Author: coke
Date: Thu Aug 18 17:36:57 2005
New Revision: 8992
Added:
trunk/languages/tcl/lib/commands/after.pir
Modified:
trunk/MANIFEST
trunk/config/gen/makefiles/tcl.in
Log:
tcl: Add a rudimentary [after]
Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST (original)
+++ trunk/MANIFEST Thu Aug 18 17:36:57 2005
@@ -1371,6 +1371,7 @@ languages/tcl/examples/fact.tcl
languages/tcl/examples/hello.tcl [tcl]
languages/tcl/examples/koohii.tcl [tcl]
languages/tcl/examples/power.tcl [tcl]
+languages/tcl/lib/commands/after.pir [tcl]
languages/tcl/lib/commands/append.pir [tcl]
languages/tcl/lib/commands/array.pir [tcl]
languages/tcl/lib/commands/break.pir [tcl]
Modified: trunk/config/gen/makefiles/tcl.in
==============================================================================
--- trunk/config/gen/makefiles/tcl.in (original)
+++ trunk/config/gen/makefiles/tcl.in Thu Aug 18 17:36:57 2005
@@ -17,6 +17,7 @@ PMCS = \
tclarray
DEPS = $(PARROT) \
+lib${slash}commands${slash}after.pir \
lib${slash}commands${slash}append.pir \
lib${slash}commands${slash}array.pir \
lib${slash}commands${slash}break.pir \
Added: trunk/languages/tcl/lib/commands/after.pir
==============================================================================
--- (empty file)
+++ trunk/languages/tcl/lib/commands/after.pir Thu Aug 18 17:36:57 2005
@@ -0,0 +1,17 @@
+.namespace [ "Tcl" ]
+
+# XXX very simplistic.
+
+.sub "&after"
+ .local pmc argv
+ argv = foldup
+
+ $I0 = argv[0]
+ $N0 = $I0 / 1000
+ sleep $N0
+
+ .local pmc retval
+ retval = new String
+ retval = ""
+ .return(TCL_OK,retval)
+.end
