Index: xotcl/ChangeLog
===================================================================
diff -u -r55764ef8921abb0e4f506e0ae6b0caf3f842276d -r8378485a74867cfbd1bbc4d6d0fd1b2919f205c3
--- xotcl/ChangeLog (.../ChangeLog) (revision 55764ef8921abb0e4f506e0ae6b0caf3f842276d)
+++ xotcl/ChangeLog (.../ChangeLog) (revision 8378485a74867cfbd1bbc4d6d0fd1b2919f205c3)
@@ -1,6 +1,9 @@
+2005-01-15 Gustaf.Neumann@wu-wien.ac.at, Uwe Zdun
- className instproc methodName ?non-pos-args? args body ?assertions + className instproc methodName ?non-pos-args? args body ?assertions objName proc methodName ?non-pos-args? args body ?assertions
@@ -1821,7 +1821,7 @@
Object o - o proc y {-a {-b {1 2 3}}} {x y} { + o proc y {-a {-b {1 2 3}} x y} { puts "$a $b $x $y" }
@@ -1839,10 +1839,10 @@
o y -a 1 3 4
- The ordinary arguments start after the last non-positional argument (here: "3 4"). We can explicitly end the non-positional arguments by -using "--". This is useful if we want to provide arguments that contain dashes ("-"), e.g.: +using "--". This is useful if we want to provide arguments that contain +dashes ("-"), e.g.:
o y -a 1 -- -b -c @@ -1858,7 +1858,7 @@Class P - P instproc y {-a:required {-b:boolean {true}}} {} { + P instproc y {-a:required {-b:boolean true}} { puts "$a $b" } P p @@ -1877,11 +1877,11 @@p y -b " a b v"- The checkoptions are extensible. In fact, they are defined in an -object "xotcl::nonPosArgs". We can extend this object with new -methods and we can provide other checkobjects. A check option method -has the following syntax: +object "::xotcl::nonposArgs". We can extend this object with new +methods. + +A check option method has the following syntax:
object|class proc|instproc methodName {?optional arguments argName args} { @@ -1905,7 +1905,7 @@ checking the options. This can be done at any place in the checkoption list. The following example defines new checkoptions in a separate object and switches to this object for checking. Then the check is -switched back to "xotcl::nonPosArgs" to invoke the predefined option +switched back to "xotcl::nonposArgs" to invoke the predefined option "required": @@ -1917,7 +1917,7 @@ colorchecker proc reddish {argName args} { puts "reddish" } -o proc color {{{-color:checkobj colorchecker,color must be red,reddish,checkobj xotcl::nonPosArgs, required} red}} {} { +o proc color {{{-color:checkobj colorchecker,color must be red,reddish,checkobj xotcl::nonposArgs, required} red}} {} { puts "$b $arg" }Index: xotcl/doc/tutorial.pdf =================================================================== diff -u -r61ee5d555b387296b00027421f9d6ff9ce54a253 -r8378485a74867cfbd1bbc4d6d0fd1b2919f205c3 Binary files differ Index: xotcl/doc/xo-daemon.html =================================================================== diff -u -ra260b30e73695102cbda2932f3d039eac481556a -r8378485a74867cfbd1bbc4d6d0fd1b2919f205c3 --- xotcl/doc/xo-daemon.html (.../xo-daemon.html) (revision a260b30e73695102cbda2932f3d039eac481556a) +++ xotcl/doc/xo-daemon.html (.../xo-daemon.html) (revision 8378485a74867cfbd1bbc4d6d0fd1b2919f205c3) @@ -76,7 +76,7 @@ Date:- [::xotcl::rcs date {$Date: 2005/01/14 23:45:22 $}] + [::xotcl::rcs date {$Date: 2005/01/14 23:45:58 $}] Index: xotcl/doc/xo-whichPkg.html =================================================================== diff -u -ra260b30e73695102cbda2932f3d039eac481556a -r8378485a74867cfbd1bbc4d6d0fd1b2919f205c3 --- xotcl/doc/xo-whichPkg.html (.../xo-whichPkg.html) (revision a260b30e73695102cbda2932f3d039eac481556a) +++ xotcl/doc/xo-whichPkg.html (.../xo-whichPkg.html) (revision 8378485a74867cfbd1bbc4d6d0fd1b2919f205c3) @@ -52,7 +52,7 @@ Date:- [::xotcl::rcs date {$Date: 2005/01/14 23:45:22 $}] + [::xotcl::rcs date {$Date: 2005/01/14 23:45:58 $}] Index: xotcl/generic/aol-xotcl.tcl =================================================================== diff -u -r55764ef8921abb0e4f506e0ae6b0caf3f842276d -r8378485a74867cfbd1bbc4d6d0fd1b2919f205c3 --- xotcl/generic/aol-xotcl.tcl (.../aol-xotcl.tcl) (revision 55764ef8921abb0e4f506e0ae6b0caf3f842276d) +++ xotcl/generic/aol-xotcl.tcl (.../aol-xotcl.tcl) (revision 8378485a74867cfbd1bbc4d6d0fd1b2919f205c3) @@ -1,4 +1,4 @@ -# $Id: aol-xotcl.tcl,v 1.5 2005/01/10 11:57:35 neumann Exp $ +# $Id: aol-xotcl.tcl,v 1.6 2005/01/14 23:45:22 neumann Exp $ # # Load XOTcl library and some related packages. @@ -9,7 +9,8 @@ # package require XOTcl; namespace import ::xotcl::* -package require xotcl::serializer 0.7 +package require xotcl::serializer 0.7 +ns_log notice "XOTcl version $::xotcl::version$::xotcl::patchlevel loaded" # # Overload procedure defined in bin/init.tcl. Index: xotcl/generic/xotcl.c =================================================================== diff -u -r836f3964b3b9bff2d75f7f0b5dbc7939164ba24e -r8378485a74867cfbd1bbc4d6d0fd1b2919f205c3 --- xotcl/generic/xotcl.c (.../xotcl.c) (revision 836f3964b3b9bff2d75f7f0b5dbc7939164ba24e) +++ xotcl/generic/xotcl.c (.../xotcl.c) (revision 8378485a74867cfbd1bbc4d6d0fd1b2919f205c3) @@ -1,4 +1,4 @@ -/* $Id: xotcl.c,v 1.35 2005/01/07 02:40:59 neumann Exp $ +/* $Id: xotcl.c,v 1.36 2005/01/14 23:45:22 neumann Exp $ * * XOTcl - Extended OTcl * @@ -10049,7 +10049,7 @@ return TCL_OK; } else if (objc != 3) { return XOTclObjErrArgCnt(in, NULL, - "::xotcl::nonpositionalArgs boolean name ?value?"); + "::xotcl::nonposArgs boolean name ?value?"); } boolean = Tcl_DuplicateObj(objv[2]); @@ -10072,7 +10072,7 @@ Tcl_Obj *CONST objv[]) { if (objc != 2 && objc != 3) return XOTclObjErrArgCnt(in, NULL, - "::xotcl::nonpositionalArgs required?currentValue?"); + "::xotcl::nonposArgs required ?currentValue?"); if (objc != 3) return XOTclVarErrMsg(in,