Posted to tcl by kbk at Thu Nov 12 19:08:15 GMT 2015view pretty

oo::define quadcode::database method transform {} {

    my variable quads
    my variable vars
    my variable types
    my variable ptype
    my variable rtype

    my copyprop
    my revprop
    my tidyjumps
    my insertExistenceAssertions
    my insertExistenceChecks
    my ssa
    my freeValues
    my determineVariableTypes
    my widenTypes
    my assignParameterTypes
    my determineReturnType

    return [list $rtype $ptype $types $quads]

}