Index: TODO =================================================================== diff -u -re5d5a53bdd5482a7173ac81cff141906ac23cf32 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- TODO (.../TODO) (revision e5d5a53bdd5482a7173ac81cff141906ac23cf32) +++ TODO (.../TODO) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -4851,11 +4851,57 @@ - added nx-rep to test cases (rep types for "array" and "dict") - improve performance of mongo->tcl conversion by using predefined global strings +nx-monogo: +- Updated the mongo-c-driver and libbson to the actual tip version from github + (this is a significant change, since 10gen essentially changed the + officially supported c-driver of MongoDB) +- mongo-c-driver was more or less new-implementation, since strucure and + names changed in the mongo-c-driver substantially, serveral functions + were added, several were dropped. The new interface supports now + e.g. mongo URIs, and should be faster (by using collection objects + instead of connection handles) +- Although the low-level nsf interface changed significantly, the high level + (nx level) interface remained unaffected. +- Configure has now --with-mongoc=... and --with-bson instead of --with-mongodb +- New commands: + mongo::collection::open /mongoConn/ /dbName/ /collectionName/ + mongo::collection::close /collection/ + mongo::gridfs::store_string /content/ /name/ /contentType/ +- Make use of the new collection handle + mongo::count /mongoConn/ /ns/ ... -> mongo::collection::count /collection/ ... + mongo::index /mongoConn/ /ns/ ... -> mongo::collection::index /collection/ ... + mongo::insert /mongoConn/ /ns/ ... -> mongo::collection::insert /collection/ ... + mongo::query /mongoConn/ /ns/ ... -> mongo::collection::query /collection/ ... + mongo::remove /mongoConn/ /ns/ ... -> mongo::collection::delete /collection/ ... + mongo::update /mongoConn/ /ns/ ... -> mongo::collection::update /collection/ ... + mongo::cursor::find /mongoConn/ /ns/ ... -> mongo::cursor::find /collection/ ... +- nsf::mongo::connect receives now a mongoc_uri + https://github.com/mongodb/mongo-c-driver/blob/master/doc/mongoc_uri.txt +- The gridfs interface allows now to store multiple revisions of a file +- The gridfs interface allows now upload files from a string +- The gridfs interface allows to refer to files by other attributes than + just the filename (e.g. the mongo id). +- Modified/new gridfile functions + mongo::gridfile::create ?-source file|string? /gridfs/ /value/ /name/ /contentType/ + mongo::gridfile::delete /gridfs/ /query/ + mongo::gridfile::open /gridfs/ /query/ +- Updated README +- Updated regression test +- Added editor hints for a more uniform appearance + +nsf.c: +- change name of enumeratorConverterEntry to Nsf_EnumeratorConverterEntry, + move it with NSF_ARG_* flags to tcl.h to make it available in derived + modules using the converter +- Added editor hints for a more uniform appearance + ======================================================================== TODO: - remove / rephrase "//"-comments - +- ParamGetDomain(Nsf_Param CONST *paramPtr) does not work + for enumeration types defined in derived packages, having + their own constants - check deactivated tests in tests/serialize.test C(One), C(IgnoreAll), C(None2) and xlloc fix Index: generic/gentclAPI.tcl =================================================================== diff -u -r48a6cfe1b7285aadc94437635dc09dd925db4ce6 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- generic/gentclAPI.tcl (.../gentclAPI.tcl) (revision 48a6cfe1b7285aadc94437635dc09dd925db4ce6) +++ generic/gentclAPI.tcl (.../gentclAPI.tcl) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -395,7 +395,7 @@ foreach c [array names ::createdConverter] {lappend entries "\{$::createdConverter($c)\}"} if {[llength $entries]>0} { puts [subst { - static enumeratorConverterEntry enumeratorConverterEntries\[\] = { + static Nsf_EnumeratorConverterEntry enumeratorConverterEntries\[\] = { [join $entries ",\n "], {NULL, NULL} }; Index: generic/nsf.c =================================================================== diff -u -rbd39c6f1905eff26cec664d0bb2db580925b21e6 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- generic/nsf.c (.../nsf.c) (revision bd39c6f1905eff26cec664d0bb2db580925b21e6) +++ generic/nsf.c (.../nsf.c) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -180,11 +180,6 @@ static Nsf_TypeConverter ConvertToNothing, ConvertViaCmd, ConvertToObjpattern; -typedef struct { - Nsf_TypeConverter *converter; - char *domain; -} enumeratorConverterEntry; - /* * Tcl_Obj Types for Next Scripting Objects */ @@ -209,7 +204,7 @@ static Tcl_ObjCmdProc NsfAsmProc; -/* prototypes for methods called directly when CallDirectly() returns NULL */ +/* Prototypes for methods called directly when CallDirectly() returns NULL */ static int NsfCAllocMethod(Tcl_Interp *interp, NsfClass *cl, Tcl_Obj *nameObj); static int NsfCAllocMethod_(Tcl_Interp *interp, NsfClass *cl, Tcl_Obj *nameObj, Tcl_Namespace *parentNsPtr); static int NsfCCreateMethod(Tcl_Interp *interp, NsfClass *cl, CONST char *name, int objc, Tcl_Obj *CONST objv[]); @@ -5209,9 +5204,9 @@ #if !defined(NDEBUG) if (screenedObject) { - fprintf(stderr, "SCREENED OBJECT %s found: object %p (%s) cmd %p\n", - Tcl_GetCommandName(interp, cmdPtr), screenedObject, - ObjectName(screenedObject), cmdPtr); + NsfLog(interp, NSF_LOG_NOTICE, "screened object %s found: object %p (%s) cmd %p", + Tcl_GetCommandName(interp, cmdPtr), screenedObject, + ObjectName(screenedObject), cmdPtr); } #endif return screenedObject; @@ -9598,7 +9593,7 @@ assert(paramPtr); if ((paramPtr->flags & NSF_ARG_IS_ENUMERATION)) { - enumeratorConverterEntry *ePtr; + Nsf_EnumeratorConverterEntry *ePtr; for (ePtr = &enumeratorConverterEntries[0]; ePtr->converter; ePtr++) { if (ePtr->converter == paramPtr->converter) { result = ePtr->domain; @@ -26036,5 +26031,6 @@ * mode: c * c-basic-offset: 2 * fill-column: 78 + * indent-tabs-mode: nil * End: */ Index: generic/nsf.h =================================================================== diff -u -rb7f25ea0113c490cc689789aaf11757fca8dc46f -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- generic/nsf.h (.../nsf.h) (revision b7f25ea0113c490cc689789aaf11757fca8dc46f) +++ generic/nsf.h (.../nsf.h) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -275,12 +275,19 @@ int status; } Nsf_ParseContext; + struct Nsf_Param; typedef int (Nsf_TypeConverter)(Tcl_Interp *interp, Tcl_Obj *obj, struct Nsf_Param CONST *pPtr, ClientData *clientData, Tcl_Obj **outObjPtr); + +typedef struct { + Nsf_TypeConverter *converter; + CONST char *domain; +} Nsf_EnumeratorConverterEntry; + Nsf_TypeConverter Nsf_ConvertToBoolean, Nsf_ConvertToClass, Nsf_ConvertToInteger, Nsf_ConvertToInt32, Nsf_ConvertToObject, Nsf_ConvertToParameter, @@ -309,6 +316,35 @@ /* Special flags for process method arguments */ #define NSF_ARGPARSE_METHOD_PUSH 0x0100 +/* flags for NsfParams */ + +#define NSF_ARG_REQUIRED 0x00000001 +#define NSF_ARG_MULTIVALUED 0x00000002 +#define NSF_ARG_NOARG 0x00000004 +#define NSF_ARG_NOCONFIG 0x00000008 +#define NSF_ARG_CURRENTLY_UNKNOWN 0x00000010 +#define NSF_ARG_SUBST_DEFAULT 0x00000020 +#define NSF_ARG_ALLOW_EMPTY 0x00000040 +#define NSF_ARG_INITCMD 0x00000080 +#define NSF_ARG_CMD 0x00000100 +#define NSF_ARG_ALIAS 0x00000200 +#define NSF_ARG_FORWARD 0x00000400 +#define NSF_ARG_SWITCH 0x00000800 +#define NSF_ARG_BASECLASS 0x00001000 +#define NSF_ARG_METACLASS 0x00002000 +#define NSF_ARG_HAS_DEFAULT 0x00004000 +#define NSF_ARG_IS_CONVERTER 0x00008000 +#define NSF_ARG_IS_ENUMERATION 0x00010000 +#define NSF_ARG_CHECK_NONPOS 0x00020000 +#define NSF_ARG_SET 0x00040000 +#define NSF_ARG_WARN 0x00080000 +#define NSF_ARG_UNNAMED 0x00100000 +#define NSF_ARG_IS_RETURNVALUE 0x00200000 +#define NSF_ARG_NOLEADINGDASH 0x00400000 +#define NSF_ARG_SLOTASSIGN 0x00800000 +#define NSF_ARG_SLOTINITIALIZE 0x01000000 + + EXTERN int Nsf_ArgumentParse(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], Nsf_Object *object, Tcl_Obj *procNameObj, Index: generic/nsfAPI.decls =================================================================== diff -u -rccb2c99f6fb6f381dfc7e300584ac08e3d2809d3 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- generic/nsfAPI.decls (.../nsfAPI.decls) (revision ccb2c99f6fb6f381dfc7e300584ac08e3d2809d3) +++ generic/nsfAPI.decls (.../nsfAPI.decls) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -533,3 +533,10 @@ # {-argName "name" -required 1} # {-argName "value" -required 0 -type tclobj} # } + +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: Index: generic/nsfAPI.h =================================================================== diff -u -rccb2c99f6fb6f381dfc7e300584ac08e3d2809d3 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- generic/nsfAPI.h (.../nsfAPI.h) (revision ccb2c99f6fb6f381dfc7e300584ac08e3d2809d3) +++ generic/nsfAPI.h (.../nsfAPI.h) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -260,7 +260,7 @@ } - static enumeratorConverterEntry enumeratorConverterEntries[] = { + static Nsf_EnumeratorConverterEntry enumeratorConverterEntries[] = { {ConvertToInfoobjectparametersubcmd, "definitions|list|names|syntax"}, {ConvertToScope, "all|class|object"}, {ConvertToInfomethodsubcmd, "args|body|definition|exists|registrationhandle|definitionhandle|origin|parameter|syntax|type|precondition|postcondition|submethods|returns"}, Index: generic/nsfInt.h =================================================================== diff -u -rccb2c99f6fb6f381dfc7e300584ac08e3d2809d3 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- generic/nsfInt.h (.../nsfInt.h) (revision ccb2c99f6fb6f381dfc7e300584ac08e3d2809d3) +++ generic/nsfInt.h (.../nsfInt.h) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -422,34 +422,6 @@ #define NSF_TCL_DELETE 0x100000 -/* flags for NsfParams */ - -#define NSF_ARG_REQUIRED 0x00000001 -#define NSF_ARG_MULTIVALUED 0x00000002 -#define NSF_ARG_NOARG 0x00000004 -#define NSF_ARG_NOCONFIG 0x00000008 -#define NSF_ARG_CURRENTLY_UNKNOWN 0x00000010 -#define NSF_ARG_SUBST_DEFAULT 0x00000020 -#define NSF_ARG_ALLOW_EMPTY 0x00000040 -#define NSF_ARG_INITCMD 0x00000080 -#define NSF_ARG_CMD 0x00000100 -#define NSF_ARG_ALIAS 0x00000200 -#define NSF_ARG_FORWARD 0x00000400 -#define NSF_ARG_SWITCH 0x00000800 -#define NSF_ARG_BASECLASS 0x00001000 -#define NSF_ARG_METACLASS 0x00002000 -#define NSF_ARG_HAS_DEFAULT 0x00004000 -#define NSF_ARG_IS_CONVERTER 0x00008000 -#define NSF_ARG_IS_ENUMERATION 0x00010000 -#define NSF_ARG_CHECK_NONPOS 0x00020000 -#define NSF_ARG_SET 0x00040000 -#define NSF_ARG_WARN 0x00080000 -#define NSF_ARG_UNNAMED 0x00100000 -#define NSF_ARG_IS_RETURNVALUE 0x00200000 -#define NSF_ARG_NOLEADINGDASH 0x00400000 -#define NSF_ARG_SLOTASSIGN 0x00800000 -#define NSF_ARG_SLOTINITIALIZE 0x01000000 - /* method invocations */ #define NSF_ARG_METHOD_INVOCATION (NSF_ARG_ALIAS|NSF_ARG_FORWARD|NSF_ARG_INITCMD|NSF_ARG_CMD) #define NSF_ARG_METHOD_CALL (NSF_ARG_ALIAS|NSF_ARG_FORWARD) Index: library/lib/nx-test.tcl =================================================================== diff -u -r6d36b205a4dfefe47b71b35cae9e98b763edeb28 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- library/lib/nx-test.tcl (.../nx-test.tcl) (revision 6d36b205a4dfefe47b71b35cae9e98b763edeb28) +++ library/lib/nx-test.tcl (.../nx-test.tcl) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -49,7 +49,7 @@ } :public object method destroy {} { lappend msg \ - file [file rootname [file tail ${:testfile}]] \ + Test-set [file rootname [file tail ${:testfile}]] \ tests [expr {${:success} + ${:failure}}] \ success ${:success} \ failure ${:failure} \ Index: library/xotcl/tests/slottest.xotcl =================================================================== diff -u -reb758924a74f48512c98a40a539ab0c4e5a35de9 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- library/xotcl/tests/slottest.xotcl (.../slottest.xotcl) (revision eb758924a74f48512c98a40a539ab0c4e5a35de9) +++ library/xotcl/tests/slottest.xotcl (.../slottest.xotcl) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -760,31 +760,12 @@ ? [list $p currentbudget] 98 ? [list $p fullbudget 200] 200 ? [list $p currentbudget] 199 -exit -foreach o [Object allinstances] { - if {[$o isclass]} continue - if {[$o istype Slot]} continue - if {$o eq "::xotcl::relmgr"} continue - set string "$o\n" - foreach v [$o info vars] { - append string " $v = [$o set $v]\n" - } - puts $string -} -puts stderr DONE-[p1 name]-[p1 age] +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: -p3 age 77 - - - - -exit - -puts [XoXML asXML] - -puts ==== -foreach n [XoXML selectNodes {//object[age > 1]}] {puts [$n asXML]} - -exit Index: library/xotcl/tests/speedtest.xotcl =================================================================== diff -u -r45e24b34c85bf0fc3e14db5250550100bd07ff31 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- library/xotcl/tests/speedtest.xotcl (.../speedtest.xotcl) (revision 45e24b34c85bf0fc3e14db5250550100bd07ff31) +++ library/xotcl/tests/speedtest.xotcl (.../speedtest.xotcl) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -562,7 +562,11 @@ -post {A destroy; a1 destroy} -nx::test run; exit +nx::test run - - +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: Index: library/xotcl/tests/testo.xotcl =================================================================== diff -u -r9a0b8bb0992be0561d8187c275fc1d9b7e0bbcd0 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- library/xotcl/tests/testo.xotcl (.../testo.xotcl) (revision 9a0b8bb0992be0561d8187c275fc1d9b7e0bbcd0) +++ library/xotcl/tests/testo.xotcl (.../testo.xotcl) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -600,7 +600,6 @@ puts [time {TestSuite run} 1] -#exit # Local Variables: # mode: tcl Index: library/xotcl/tests/testx.xotcl =================================================================== diff -u -reb758924a74f48512c98a40a539ab0c4e5a35de9 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- library/xotcl/tests/testx.xotcl (.../testx.xotcl) (revision eb758924a74f48512c98a40a539ab0c4e5a35de9) +++ library/xotcl/tests/testx.xotcl (.../testx.xotcl) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -4402,3 +4402,10 @@ o test puts "PASSED ::topLevelCommands" + +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: Index: library/xotcl/tests/xocomm.test =================================================================== diff -u -r073177c8b1304443107efeeb0c334e9477346778 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- library/xotcl/tests/xocomm.test (.../xocomm.test) (revision 073177c8b1304443107efeeb0c334e9477346778) +++ library/xotcl/tests/xocomm.test (.../xocomm.test) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -109,3 +109,9 @@ after 1000 {nx::test run} catch {vwait forever} +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: Index: tests/alias.test =================================================================== diff -u -r45e24b34c85bf0fc3e14db5250550100bd07ff31 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- tests/alias.test (.../alias.test) (revision 45e24b34c85bf0fc3e14db5250550100bd07ff31) +++ tests/alias.test (.../alias.test) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -783,3 +783,10 @@ set handle3 [o public object alias foo $handle2] ? {o foo} {target "::o::bar" of alias foo apparently disappeared} } + +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: Index: tests/cget.test =================================================================== diff -u -rdc9120981daa00d27f8639ea98a71efc2078e0e8 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- tests/cget.test (.../cget.test) (revision dc9120981daa00d27f8639ea98a71efc2078e0e8) +++ tests/cget.test (.../cget.test) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -407,3 +407,10 @@ ? {o configure -B x} {expected integer but got "x" for parameter "-B"} ? {o cget -B} 1002 } + +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: Index: tests/class-method.test =================================================================== diff -u -r45e24b34c85bf0fc3e14db5250550100bd07ff31 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- tests/class-method.test (.../class-method.test) (revision 45e24b34c85bf0fc3e14db5250550100bd07ff31) +++ tests/class-method.test (.../class-method.test) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -121,4 +121,11 @@ ? {C class info methods} "set" ? {C info object methods} "set" -} \ No newline at end of file +} + +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: Index: tests/contains.test =================================================================== diff -u -r7ba7b3c49ff542688258f50fba2fc8102f23a011 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- tests/contains.test (.../contains.test) (revision 7ba7b3c49ff542688258f50fba2fc8102f23a011) +++ tests/contains.test (.../contains.test) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -145,4 +145,10 @@ C1 create c1 C1 create c1 -#puts stderr ===EXIT \ No newline at end of file +puts stderr "====EXIT [info script]" +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: Index: tests/destroy.test =================================================================== diff -u -rdc9120981daa00d27f8639ea98a71efc2078e0e8 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- tests/destroy.test (.../destroy.test) (revision dc9120981daa00d27f8639ea98a71efc2078e0e8) +++ tests/destroy.test (.../destroy.test) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -461,9 +461,8 @@ nx::Object create o2 # The methods of the aliased object have their own self ::nsf::method::alias o a o2 - puts stderr ===5 + ? {o a} ::o2 "call object via alias" - puts stderr ===6 ? {o info object method type a} alias # In order to avoid recursive calls, we have to provide the @@ -1026,3 +1025,11 @@ nx::Class create C nx::Class create C::* nsf::relation C superclass {C::* nx::Object} + +puts "==== EXIT [info script]" +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: Index: tests/disposition.test =================================================================== diff -u -r10c7b31ba8e82a7d988aa29dc514846a6c44e9c0 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- tests/disposition.test (.../disposition.test) (revision 10c7b31ba8e82a7d988aa29dc514846a6c44e9c0) +++ tests/disposition.test (.../disposition.test) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -776,13 +776,13 @@ ::nsf::parameter:invalidate::classcache [current] } :public method Residualargs args { - puts stderr "aliased RESIDUALARGS <[llength $args]>" - puts stderr "....... <$args>" + #puts stderr "aliased RESIDUALARGS <[llength $args]>" + #puts stderr "....... <$args>" set :args $args } :public method residualargs args { - puts stderr "residualargs <$args>" + #puts stderr "residualargs <$args>" } } C copy D @@ -1438,4 +1438,11 @@ Q configure ? {Q info superclass} ::P -} \ No newline at end of file +} + +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: Index: tests/doc.test =================================================================== diff -u -r6e4c08c5cf598e08cbc29516f84b09e5983e347c -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- tests/doc.test (.../doc.test) (revision 6e4c08c5cf598e08cbc29516f84b09e5983e347c) +++ tests/doc.test (.../doc.test) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -1092,3 +1092,10 @@ # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # + +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: Index: tests/forward.test =================================================================== diff -u -r45e24b34c85bf0fc3e14db5250550100bd07ff31 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- tests/forward.test (.../forward.test) (revision 45e24b34c85bf0fc3e14db5250550100bd07ff31) +++ tests/forward.test (.../forward.test) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -388,4 +388,12 @@ nx::Object method expr {} {} -} \ No newline at end of file +} + + +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: Index: tests/info-method.test =================================================================== diff -u -rdc9120981daa00d27f8639ea98a71efc2078e0e8 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- tests/info-method.test (.../info-method.test) (revision dc9120981daa00d27f8639ea98a71efc2078e0e8) +++ tests/info-method.test (.../info-method.test) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -1229,3 +1229,10 @@ nx::test case error-in-ensemble { ? {nx::Object info method definition foo 1} {wrong # args: should be "definition name"} } + +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: Index: tests/info-variable.test =================================================================== diff -u -rdc9120981daa00d27f8639ea98a71efc2078e0e8 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- tests/info-variable.test (.../info-variable.test) (revision dc9120981daa00d27f8639ea98a71efc2078e0e8) +++ tests/info-variable.test (.../info-variable.test) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -289,3 +289,9 @@ } +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: Index: tests/interceptor-slot.test =================================================================== diff -u -r45e24b34c85bf0fc3e14db5250550100bd07ff31 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- tests/interceptor-slot.test (.../interceptor-slot.test) (revision 45e24b34c85bf0fc3e14db5250550100bd07ff31) +++ tests/interceptor-slot.test (.../interceptor-slot.test) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -420,3 +420,9 @@ } +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: Index: tests/interp.test =================================================================== diff -u -r929db54ebd7cf84befee362a94c1b9e1a32a041d -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- tests/interp.test (.../interp.test) (revision 929db54ebd7cf84befee362a94c1b9e1a32a041d) +++ tests/interp.test (.../interp.test) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -752,3 +752,9 @@ } +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: Index: tests/introspection.test =================================================================== diff -u -r45e24b34c85bf0fc3e14db5250550100bd07ff31 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- tests/introspection.test (.../introspection.test) (revision 45e24b34c85bf0fc3e14db5250550100bd07ff31) +++ tests/introspection.test (.../introspection.test) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -66,4 +66,11 @@ o mixin M ? {o foo} [list $mh2 $mh {}] -} \ No newline at end of file +} + +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: Index: tests/linearization.test =================================================================== diff -u -rb7f25ea0113c490cc689789aaf11757fca8dc46f -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- tests/linearization.test (.../linearization.test) (revision b7f25ea0113c490cc689789aaf11757fca8dc46f) +++ tests/linearization.test (.../linearization.test) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -125,3 +125,10 @@ check-constraints ${:case} nx local-order $order [local-order-constraints o1] } + +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: \ No newline at end of file Index: tests/method-parameter.test =================================================================== diff -u -r45e24b34c85bf0fc3e14db5250550100bd07ff31 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- tests/method-parameter.test (.../method-parameter.test) (revision 45e24b34c85bf0fc3e14db5250550100bd07ff31) +++ tests/method-parameter.test (.../method-parameter.test) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -90,3 +90,10 @@ should be "::c1 p1 ?-x /value/?"} } } + +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: Index: tests/method-require.test =================================================================== diff -u -r45e24b34c85bf0fc3e14db5250550100bd07ff31 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- tests/method-require.test (.../method-require.test) (revision 45e24b34c85bf0fc3e14db5250550100bd07ff31) +++ tests/method-require.test (.../method-require.test) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -128,3 +128,10 @@ ::nsf::method::require o __alloc ? {o __alloc x} {method __alloc not dispatched on valid class} } + +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: Index: tests/mixinof.test =================================================================== diff -u -r45e24b34c85bf0fc3e14db5250550100bd07ff31 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- tests/mixinof.test (.../mixinof.test) (revision 45e24b34c85bf0fc3e14db5250550100bd07ff31) +++ tests/mixinof.test (.../mixinof.test) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -513,3 +513,10 @@ } +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: + Index: tests/object-system.test =================================================================== diff -u -re0419345b49587b5738f87c6d828dfc5ae4b3276 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- tests/object-system.test (.../object-system.test) (revision e0419345b49587b5738f87c6d828dfc5ae4b3276) +++ tests/object-system.test (.../object-system.test) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -426,5 +426,13 @@ ? {o info vars} "x __cmd" ? {o eval {array get :__cmd}} "__initblock {set :x 1}" -puts stderr ===EXIT ::nsf::configure dtrace off + +puts stderr "===EXIT [info script]" + +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: Index: tests/parameters.test =================================================================== diff -u -rdc9120981daa00d27f8639ea98a71efc2078e0e8 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- tests/parameters.test (.../parameters.test) (revision dc9120981daa00d27f8639ea98a71efc2078e0e8) +++ tests/parameters.test (.../parameters.test) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -2915,3 +2915,10 @@ nsf::configure checkarguments on } + +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: Index: tests/plain-object-method.test =================================================================== diff -u -r45e24b34c85bf0fc3e14db5250550100bd07ff31 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- tests/plain-object-method.test (.../plain-object-method.test) (revision 45e24b34c85bf0fc3e14db5250550100bd07ff31) +++ tests/plain-object-method.test (.../plain-object-method.test) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -105,4 +105,12 @@ ? {::o info methods} "set" ? {::o info object methods} "set" -} \ No newline at end of file +} + +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: + Index: tests/properties.test =================================================================== diff -u -rdc9120981daa00d27f8639ea98a71efc2078e0e8 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- tests/properties.test (.../properties.test) (revision dc9120981daa00d27f8639ea98a71efc2078e0e8) +++ tests/properties.test (.../properties.test) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -831,3 +831,10 @@ ? {o1 cget -class} ::nx::Object } +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: + Index: tests/protected.test =================================================================== diff -u -r45e24b34c85bf0fc3e14db5250550100bd07ff31 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- tests/protected.test (.../protected.test) (revision 45e24b34c85bf0fc3e14db5250550100bd07ff31) +++ tests/protected.test (.../protected.test) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -866,4 +866,12 @@ ? {C public object property {d:integer 1}} {'property' is not a method defining method} ? {C protected object property {d:integer 1}} {'property' is not a method defining method} ? {C private object property {d:integer 1}} {'property' is not a method defining method} -} \ No newline at end of file +} + +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: + Index: tests/rac.test =================================================================== diff -u -r14101af0c3253e79cf68622cb05e51eb780e1f39 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- tests/rac.test (.../rac.test) (revision 14101af0c3253e79cf68622cb05e51eb780e1f39) +++ tests/rac.test (.../rac.test) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -521,3 +521,9 @@ ::nsf::method::assertion z1 check {} +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: Index: tests/returns.test =================================================================== diff -u -r6e4c08c5cf598e08cbc29516f84b09e5983e347c -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- tests/returns.test (.../returns.test) (revision 6e4c08c5cf598e08cbc29516f84b09e5983e347c) +++ tests/returns.test (.../returns.test) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -373,4 +373,12 @@ ? [list ::nsf::method::property [::nx::current] foo returns] "" ? [:info object method parameters foo] "" } -} \ No newline at end of file +} + +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: + Index: tests/serialize.test =================================================================== diff -u -rccb2c99f6fb6f381dfc7e300584ac08e3d2809d3 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- tests/serialize.test (.../serialize.test) (revision ccb2c99f6fb6f381dfc7e300584ac08e3d2809d3) +++ tests/serialize.test (.../serialize.test) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -213,3 +213,11 @@ ? {::nsf::object::property ::C perobjectdispatch} 1 } + +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: + Index: tests/submethods.test =================================================================== diff -u -r45e24b34c85bf0fc3e14db5250550100bd07ff31 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- tests/submethods.test (.../submethods.test) (revision 45e24b34c85bf0fc3e14db5250550100bd07ff31) +++ tests/submethods.test (.../submethods.test) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -790,4 +790,12 @@ ? {d1 c1 bar} c1-::d1 ? {d1 c1 foo} "::c1: unable to dispatch method 'foo'" ? {d1 c1 baz} c1-::d1 -} \ No newline at end of file +} + +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: + Index: tests/summary.tcl =================================================================== diff -u -r5c3834b15078b31970db26d0c65030ed1f66b18d -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- tests/summary.tcl (.../summary.tcl) (revision 5c3834b15078b31970db26d0c65030ed1f66b18d) +++ tests/summary.tcl (.../summary.tcl) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -31,3 +31,10 @@ puts "" } +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: + Index: tests/tcl86.test =================================================================== diff -u -r45e24b34c85bf0fc3e14db5250550100bd07ff31 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- tests/tcl86.test (.../tcl86.test) (revision 45e24b34c85bf0fc3e14db5250550100bd07ff31) +++ tests/tcl86.test (.../tcl86.test) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -247,4 +247,12 @@ # Test case calling own method via apply ? {o map {x {:foo $x}} {hello world}} \ "hello-hello world-world" -} \ No newline at end of file +} + +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: + Index: tests/tcloo.test =================================================================== diff -u -r45e24b34c85bf0fc3e14db5250550100bd07ff31 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- tests/tcloo.test (.../tcloo.test) (revision 45e24b34c85bf0fc3e14db5250550100bd07ff31) +++ tests/tcloo.test (.../tcloo.test) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -267,4 +267,13 @@ ? {AbstractQueue new} {method 'new' unknown for ::AbstractQueue; consider '::AbstractQueue create new ' instead of '::AbstractQueue new '} ? {AbstractQueue create aQueue} {method 'create' unknown for ::AbstractQueue; consider '::AbstractQueue create create aQueue' instead of '::AbstractQueue create aQueue'} -} \ No newline at end of file +} + + +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: + Index: tests/var-access.test =================================================================== diff -u -r45e24b34c85bf0fc3e14db5250550100bd07ff31 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- tests/var-access.test (.../var-access.test) (revision 45e24b34c85bf0fc3e14db5250550100bd07ff31) +++ tests/var-access.test (.../var-access.test) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -116,3 +116,9 @@ } +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: Index: tests/varresolution.test =================================================================== diff -u -r45e24b34c85bf0fc3e14db5250550100bd07ff31 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- tests/varresolution.test (.../varresolution.test) (revision 45e24b34c85bf0fc3e14db5250550100bd07ff31) +++ tests/varresolution.test (.../varresolution.test) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -1230,4 +1230,11 @@ # ? {o3 foo-a-m-u} "o3.a" ? {o3 foo-a-r-u} "o3.a" -} \ No newline at end of file +} + +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: Index: tests/volatile.test =================================================================== diff -u -r45e24b34c85bf0fc3e14db5250550100bd07ff31 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55 --- tests/volatile.test (.../volatile.test) (revision 45e24b34c85bf0fc3e14db5250550100bd07ff31) +++ tests/volatile.test (.../volatile.test) (revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55) @@ -84,4 +84,11 @@ nx::test case procs-procs { ::foox ::foon -} \ No newline at end of file +} + +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: