Tcl Source Code

Artifact daeeb07cca2c88d056770b938f8c94e913db8f99:

Attachment "test.tcl" to ticket [3001438fff] added by coldstore 2010-05-19 20:48:36.

---

proc Debug.tuple {args} {puts stderr "tuple @ [uplevel subst $args]"}
proc Debug.tupler {args} {puts stderr HTTP@[uplevel subst $args]}

oo::class create Tuple {
    # fixup - consistency and semantic supplements to tuples on their way to the store.
    method fixup {tuple} {
	dict with tuple {
	    switch -- $type {
		conversion {
		    my New name b type type
		}
	    }
	}
    }

    method New {args} {
	my fixup $args
	info frame -1
    }

    constructor {args} {
	Debug.tuple {Creating Tuple [self] $args}
	variable name2id {}
    }
}

oo::class create Tupler {
    superclass Tuple
    
    constructor {args} {
	next
	my New name moop type conversion
    }
}

set ts [Tupler new]