Forum OpenACS Development: Re: OpenACS, XoTcl, and ActiveRecord

This looks like a great idea.  During the past few months I've also wondered if XOTcl and OpenACS might not make a good match.

The reason [AcsObject table_name] doesn't work is because you are getting the name of the class (AcsObject is of class ActiveRecord) instead of the name of the object itself.  Your demo will work if you change [my info class] to [self] in the table_name proc.

ActiveRecord instproc table_name {} {
    # Transforms AcsObject -> acs_object
    set table_name [lindex [split [self] ::] end]
    regsub {([a-z])([A-Z])} $table_name {\1_\2} table_name
    set table_name [string tolower $table_name]
    return $table_name
}

"[split] Returns a list created by splitting string at each character that is in the splitChars argument. Each element of the result list will consist of the characters from string that lie between instances of the characters in splitChars. Empty list elements will be generated if string contains adjacent characters in splitChars, or if the first or last character of string is in splitChars. If splitChars is an empty string then each character of string becomes a separate element of the result list. SplitChars defaults to the standard white-space characters."

Therefore if I'm not mistaken:

[split [self] ::]

will attempt to split self by ':' and ':' rather than '::' which will produce an empty string between each element e.g

set self "mytcl::namespace::isgroovy"
split $self ::

gives a list of 5 elements:

mytcl {} namespace {} isgroovy

rather than a list of three elements:

mytcl namespace isgroovy

I get round this by regsubbing a safe chr inplace of the string then splitting on that chr.

I don't know if that is the desired effects - I'm just poking my nose in.

    - Steve