Forum OpenACS Development: Re: nest tcl package

3: Re: nest tcl package (response to 1)
Posted by Neophytos Demetriou on
nest-0.5 released, same urls as above, just wanted to point out the definition of struct and pair in nest.

meta {nest} {nest {nest {type_helper}}} {struct} {
    varchar name
    varchar type
    varchar nsp

    multiple struct slot = {} {
        varchar parent
        varchar name
        varchar type
        varchar default_value = ""
        bool optional_p = false
        varchar container = ""

    varchar pk
    bool is_final_if_no_scope


alias {pair} {lambda {typefirst typesecond name} {
    nest {type_helper} $name [concat $typefirst {first} " ; " $typesecond {second}]

("before the chicken and the egg, it was the nest")