Index: Makefile.in =================================================================== diff -u -r2fcc2f0db81ba75af31e0578ca240be8fbb0a801 -ra6087540279fa5a9110728605795620ecd43e10e --- Makefile.in (.../Makefile.in) (revision 2fcc2f0db81ba75af31e0578ca240be8fbb0a801) +++ Makefile.in (.../Makefile.in) (revision a6087540279fa5a9110728605795620ecd43e10e) @@ -346,6 +346,8 @@ -libdir $(PLATFORM_DIR) $(TESTFLAGS) $(TCLSH) $(src_test_dir_native)/destroytest.xotcl \ -libdir $(PLATFORM_DIR) $(TESTFLAGS) + $(TCLSH) $(src_test_dir_native)/protected.xotcl \ + -libdir $(PLATFORM_DIR) $(TESTFLAGS) $(TCLSH) $(src_test_dir_native)/testx.xotcl \ -libdir $(PLATFORM_DIR) $(TESTFLAGS) $(TCLSH) $(src_test_dir_native)/testo.xotcl \ Index: doc/index.html =================================================================== diff -u -r0440393b42137e1b1cac3393d799b8f2fbad0004 -ra6087540279fa5a9110728605795620ecd43e10e --- doc/index.html (.../index.html) (revision 0440393b42137e1b1cac3393d799b8f2fbad0004) +++ doc/index.html (.../index.html) (revision a6087540279fa5a9110728605795620ecd43e10e) @@ -23,7 +23,7 @@
Index: generic/xotcl.h =================================================================== diff -u -ra4d1fd30453e4e87467b02ed749fb4007d46a5e0 -ra6087540279fa5a9110728605795620ecd43e10e --- generic/xotcl.h (.../xotcl.h) (revision a4d1fd30453e4e87467b02ed749fb4007d46a5e0) +++ generic/xotcl.h (.../xotcl.h) (revision a6087540279fa5a9110728605795620ecd43e10e) @@ -40,6 +40,7 @@ # endif #endif + /* activate bytecode support #define XOTCL_BYTECODE */ @@ -50,7 +51,6 @@ */ /* activate/deacticate assert - #define NDEBUG 1 */ #define NDEBUG 1 Index: library/lib/htmllib.xotcl =================================================================== diff -u -rc72f9f638677608fab1502cd696c8f2d6b2952f9 -ra6087540279fa5a9110728605795620ecd43e10e --- library/lib/htmllib.xotcl (.../htmllib.xotcl) (revision c72f9f638677608fab1502cd696c8f2d6b2952f9) +++ library/lib/htmllib.xotcl (.../htmllib.xotcl) (revision a6087540279fa5a9110728605795620ecd43e10e) @@ -58,7 +58,7 @@ # the compressed parameter means that minimal HTML page are created # i.e. that space indentation is turned off # - Class HtmlBuilder -parameter { + Class create HtmlBuilder -parameter { {compressed 0} } Index: library/lib/metadataAnalyzer.xotcl =================================================================== diff -u -rc72f9f638677608fab1502cd696c8f2d6b2952f9 -ra6087540279fa5a9110728605795620ecd43e10e --- library/lib/metadataAnalyzer.xotcl (.../metadataAnalyzer.xotcl) (revision c72f9f638677608fab1502cd696c8f2d6b2952f9) +++ library/lib/metadataAnalyzer.xotcl (.../metadataAnalyzer.xotcl) (revision a6087540279fa5a9110728605795620ecd43e10e) @@ -60,7 +60,7 @@ } } - Class MetadataToken -parameter { + Class create MetadataToken -parameter { {name ""} {properties ""} } @@ -126,7 +126,7 @@ Token for @File Metadata. } } - Class FileToken -superclass MetadataToken + Class create FileToken -superclass MetadataToken FileToken instproc print {} { set c "FILE=[my set name]\n" append c [my printProperties] @@ -138,7 +138,7 @@ Token for @Constraint Metadata. } } - Class ConstraintToken -superclass MetadataToken + Class create ConstraintToken -superclass MetadataToken ConstraintToken instproc print {} { set c "CONSTRAINT=[my set name]\n" append c [my printProperties] @@ -152,7 +152,7 @@ } } - Class PackageToken -superclass MetadataToken -parameter { + Class create PackageToken -superclass MetadataToken -parameter { {version ""} {type ""} } @@ -163,7 +163,7 @@ "procList" = list of all proc token and "cl"= class name. } } - Class ObjToken -superclass MetadataToken -parameter { + Class create ObjToken -superclass MetadataToken -parameter { {procList ""} cl } @@ -203,7 +203,7 @@ "instprocList" = list of all instproc token. } } - Class ClassToken -superclass ObjToken -parameter { + Class create ClassToken -superclass ObjToken -parameter { {instprocList ""} } ClassToken instproc print {} { @@ -216,7 +216,7 @@ Token for Meta-Class metadata. } } - Class MetaClassToken -superclass ClassToken + Class create MetaClassToken -superclass ClassToken MetaClassToken instproc print {} { regsub "^CLASS=" [next] "META-CLASS=" r return $r @@ -229,7 +229,7 @@ "obj" name, "abstract" = 0 or 1 (whether its an abstract method or not). } } - Class MethodToken -superclass MetadataToken -parameter { + Class create MethodToken -superclass MetadataToken -parameter { arguments returnValue obj @@ -256,7 +256,7 @@ Token for Proc metadata } } - Class ProcToken -superclass MethodToken + Class create ProcToken -superclass MethodToken ProcToken instproc print {} { regsub "^ METHOD=" [next] " PROC=" r return $r @@ -267,7 +267,7 @@ Token for Instproc metadata. } } - Class InstprocToken -superclass MethodToken + Class create InstprocToken -superclass MethodToken InstprocToken instproc print {} { regsub "^ METHOD=" [next] " INSTPROC=" r return $r @@ -277,7 +277,7 @@ description "Handler class for building a metadata runtime structure" } - Class MetadataAnalyzer -parameter { + Class create MetadataAnalyzer -parameter { {objList ""} {packageList ""} {knownMetaclasses "Class"} @@ -446,7 +446,7 @@ @ Class AnalyzerCmd { description {Class that overload the unknown mechanism of @ to provide metadata analysis.} } - Class AnalyzerCmd -parameter { + Class create AnalyzerCmd -parameter { {analyzerObj ""} {onOff 0} } @@ -492,7 +492,7 @@ @ AnalyzerCmd @ { description {Recreate @ with metadata analyis funtionality.} } - AnalyzerCmd @ + AnalyzerCmd create @ namespace export \ MetadataToken FileToken ConstraintToken PackageToken ObjToken \ Index: library/lib/package.xotcl =================================================================== diff -u -rc72f9f638677608fab1502cd696c8f2d6b2952f9 -ra6087540279fa5a9110728605795620ecd43e10e --- library/lib/package.xotcl (.../package.xotcl) (revision c72f9f638677608fab1502cd696c8f2d6b2952f9) +++ library/lib/package.xotcl (.../package.xotcl) (revision a6087540279fa5a9110728605795620ecd43e10e) @@ -33,7 +33,7 @@ } } - Object package + Object create package package set component . package set verbose 0 package proc unknown args { @@ -82,7 +82,7 @@ return $v } - Object package::tracker + Object create package::tracker package::tracker set verbose 0 package::tracker proc storeEntry {table index} { my instvar verbose $table @@ -103,7 +103,7 @@ ::Object add mixin [self]::M } - Class package::tracker::M + Class create package::tracker::M package::tracker::M instproc create {cls args} { set table [string tolower [string trimleft [self] :]] package::tracker storeEntry $table [lindex $args 0] Index: library/lib/staticMetadata.xotcl =================================================================== diff -u -rc72f9f638677608fab1502cd696c8f2d6b2952f9 -ra6087540279fa5a9110728605795620ecd43e10e --- library/lib/staticMetadata.xotcl (.../staticMetadata.xotcl) (revision c72f9f638677608fab1502cd696c8f2d6b2952f9) +++ library/lib/staticMetadata.xotcl (.../staticMetadata.xotcl) (revision a6087540279fa5a9110728605795620ecd43e10e) @@ -20,7 +20,7 @@ } } - Class StaticMetadataAnalyzer -superclass MetadataAnalyzer \ + Class create StaticMetadataAnalyzer -superclass MetadataAnalyzer \ -parameter {{namespace ::}} StaticMetadataAnalyzer instproc cmdsplit {cmd} { # from Jeffrey's tkcon Index: library/lib/xodoc.xotcl =================================================================== diff -u -rc72f9f638677608fab1502cd696c8f2d6b2952f9 -ra6087540279fa5a9110728605795620ecd43e10e --- library/lib/xodoc.xotcl (.../xodoc.xotcl) (revision c72f9f638677608fab1502cd696c8f2d6b2952f9) +++ library/lib/xodoc.xotcl (.../xodoc.xotcl) (revision a6087540279fa5a9110728605795620ecd43e10e) @@ -21,7 +21,7 @@ are registered for all token types. } } - Class MetadataTokenHTML + Class create MetadataTokenHTML @ MetadataTokenHTML abstract instproc printHTML {} { description {Print token to HTML document object} } @@ -72,7 +72,7 @@ MetadataToken instmixin [concat [MetadataToken info instmixin] MetadataTokenHTML] @ Class FileTokenHTML -superclass MetadataTokenHTML - Class FileTokenHTML -superclass MetadataTokenHTML + Class create FileTokenHTML -superclass MetadataTokenHTML FileTokenHTML instproc printHTML {htmlDoc} { $htmlDoc addLineBreak $htmlDoc addString " Filename: " @@ -87,7 +87,7 @@ FileToken instmixin [concat [FileToken info instmixin] FileTokenHTML] @ Class ConstraintTokenHTML -superclass MetadataTokenHTML - Class ConstraintTokenHTML -superclass MetadataTokenHTML + Class create ConstraintTokenHTML -superclass MetadataTokenHTML ConstraintTokenHTML instproc printHTML {htmlDoc} { $htmlDoc addAnchor "" -name [my set name] $htmlDoc addString "