[svn:parrot] r29889 - in trunk: . languages/tcl/lib languages/tcl/runtime/builtin

[coke@xxxxxxxxxxxx]

Author: coke
Date: Wed Jul 30 14:14:20 2008
New Revision: 29889

Added:
   trunk/languages/tcl/runtime/builtin/bgerror.pir   (contents, props changed)
   trunk/languages/tcl/runtime/builtin/chan.pir   (contents, props changed)
   trunk/languages/tcl/runtime/builtin/dde.pir   (contents, props changed)
   trunk/languages/tcl/runtime/builtin/fblocked.pir   (contents, props changed)
   trunk/languages/tcl/runtime/builtin/fcopy.pir   (contents, props changed)
   trunk/languages/tcl/runtime/builtin/history.pir   (contents, props changed)
   trunk/languages/tcl/runtime/builtin/load.pir   (contents, props changed)
   trunk/languages/tcl/runtime/builtin/memory.pir   (contents, props changed)
   trunk/languages/tcl/runtime/builtin/pid.pir   (contents, props changed)
   trunk/languages/tcl/runtime/builtin/read.pir   (contents, props changed)
   trunk/languages/tcl/runtime/builtin/registry.pir   (contents, props changed)
   trunk/languages/tcl/runtime/builtin/seek.pir   (contents, props changed)
   trunk/languages/tcl/runtime/builtin/tell.pir   (contents, props changed)
   trunk/languages/tcl/runtime/builtin/unload.pir   (contents, props changed)
Modified:
   trunk/MANIFEST
   trunk/languages/tcl/lib/test_more.tcl

Log:
[tcl] Add empty stubs for most of the remaining builtins.


Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST      (original)
+++ trunk/MANIFEST      Wed Jul 30 14:14:20 2008
@@ -1,7 +1,7 @@
 # ex: set ro:
 # $Id$
 #
-# generated by tools/dev/mk_manifest_and_skip.pl Wed Jul 30 16:59:59 2008 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Wed Jul 30 21:13:13 2008 UT
 #
 # See tools/dev/install_files.pl for documentation on the
 # format of this file.
@@ -2488,14 +2488,17 @@
 languages/tcl/runtime/builtin/array.pir                     [tcl]
 languages/tcl/runtime/builtin/auto_execok.pir               [tcl]
 languages/tcl/runtime/builtin/auto_load.pir                 [tcl]
+languages/tcl/runtime/builtin/bgerror.pir                   [tcl]
 languages/tcl/runtime/builtin/binary.pir                    [tcl]
 languages/tcl/runtime/builtin/break.pir                     [tcl]
 languages/tcl/runtime/builtin/catch.pir                     [tcl]
 languages/tcl/runtime/builtin/cd.pir                        [tcl]
+languages/tcl/runtime/builtin/chan.pir                      [tcl]
 languages/tcl/runtime/builtin/clock.pir                     [tcl]
 languages/tcl/runtime/builtin/close.pir                     [tcl]
 languages/tcl/runtime/builtin/concat.pir                    [tcl]
 languages/tcl/runtime/builtin/continue.pir                  [tcl]
+languages/tcl/runtime/builtin/dde.pir                       [tcl]
 languages/tcl/runtime/builtin/dict.pir                      [tcl]
 languages/tcl/runtime/builtin/encoding.pir                  [tcl]
 languages/tcl/runtime/builtin/eof.pir                       [tcl]
@@ -2504,7 +2507,9 @@
 languages/tcl/runtime/builtin/exec.pir                      [tcl]
 languages/tcl/runtime/builtin/exit.pir                      [tcl]
 languages/tcl/runtime/builtin/expr.pir                      [tcl]
+languages/tcl/runtime/builtin/fblocked.pir                  [tcl]
 languages/tcl/runtime/builtin/fconfigure.pir                [tcl]
+languages/tcl/runtime/builtin/fcopy.pir                     [tcl]
 languages/tcl/runtime/builtin/file.pir                      [tcl]
 languages/tcl/runtime/builtin/fileevent.pir                 [tcl]
 languages/tcl/runtime/builtin/flush.pir                     [tcl]
@@ -2514,6 +2519,7 @@
 languages/tcl/runtime/builtin/gets.pir                      [tcl]
 languages/tcl/runtime/builtin/glob.pir                      [tcl]
 languages/tcl/runtime/builtin/global.pir                    [tcl]
+languages/tcl/runtime/builtin/history.pir                   [tcl]
 languages/tcl/runtime/builtin/if.pir                        [tcl]
 languages/tcl/runtime/builtin/incr.pir                      [tcl]
 languages/tcl/runtime/builtin/info.pir                      [tcl]
@@ -2526,6 +2532,7 @@
 languages/tcl/runtime/builtin/linsert.pir                   [tcl]
 languages/tcl/runtime/builtin/list.pir                      [tcl]
 languages/tcl/runtime/builtin/llength.pir                   [tcl]
+languages/tcl/runtime/builtin/load.pir                      [tcl]
 languages/tcl/runtime/builtin/lrange.pir                    [tcl]
 languages/tcl/runtime/builtin/lrepeat.pir                   [tcl]
 languages/tcl/runtime/builtin/lreplace.pir                  [tcl]
@@ -2533,18 +2540,23 @@
 languages/tcl/runtime/builtin/lsearch.pir                   [tcl]
 languages/tcl/runtime/builtin/lset.pir                      [tcl]
 languages/tcl/runtime/builtin/lsort.pir                     [tcl]
+languages/tcl/runtime/builtin/memory.pir                    [tcl]
 languages/tcl/runtime/builtin/namespace.pir                 [tcl]
 languages/tcl/runtime/builtin/open.pir                      [tcl]
 languages/tcl/runtime/builtin/package.pir                   [tcl]
 languages/tcl/runtime/builtin/parray.pir                    [tcl]
+languages/tcl/runtime/builtin/pid.pir                       [tcl]
 languages/tcl/runtime/builtin/proc.pir                      [tcl]
 languages/tcl/runtime/builtin/puts.pir                      [tcl]
 languages/tcl/runtime/builtin/pwd.pir                       [tcl]
+languages/tcl/runtime/builtin/read.pir                      [tcl]
 languages/tcl/runtime/builtin/regexp.pir                    [tcl]
+languages/tcl/runtime/builtin/registry.pir                  [tcl]
 languages/tcl/runtime/builtin/regsub.pir                    [tcl]
 languages/tcl/runtime/builtin/rename.pir                    [tcl]
 languages/tcl/runtime/builtin/return.pir                    [tcl]
 languages/tcl/runtime/builtin/scan.pir                      [tcl]
+languages/tcl/runtime/builtin/seek.pir                      [tcl]
 languages/tcl/runtime/builtin/set.pir                       [tcl]
 languages/tcl/runtime/builtin/socket.pir                    [tcl]
 languages/tcl/runtime/builtin/source.pir                    [tcl]
@@ -2552,9 +2564,11 @@
 languages/tcl/runtime/builtin/string.pir                    [tcl]
 languages/tcl/runtime/builtin/subst.pir                     [tcl]
 languages/tcl/runtime/builtin/switch.pir                    [tcl]
+languages/tcl/runtime/builtin/tell.pir                      [tcl]
 languages/tcl/runtime/builtin/time.pir                      [tcl]
 languages/tcl/runtime/builtin/trace.pir                     [tcl]
 languages/tcl/runtime/builtin/unknown.pir                   [tcl]
+languages/tcl/runtime/builtin/unload.pir                    [tcl]
 languages/tcl/runtime/builtin/unset.pir                     [tcl]
 languages/tcl/runtime/builtin/update.pir                    [tcl]
 languages/tcl/runtime/builtin/uplevel.pir                   [tcl]

Modified: trunk/languages/tcl/lib/test_more.tcl
==============================================================================
--- trunk/languages/tcl/lib/test_more.tcl       (original)
+++ trunk/languages/tcl/lib/test_more.tcl       Wed Jul 30 14:14:20 2008
@@ -193,10 +193,7 @@
 proc customMatch        {args} {return 0}
 proc testinfocmdcount   {args} {return 0}
 proc interpreter        {args} {return 0}
-proc interp             {args} {return 0}
 proc safeInterp         {args} {return 0}
-proc pid                {args} {return 0}
-proc auto_load          {args} {return 0}
 proc child              {args} {return 0}
 proc child-trusted      {args} {return 0}
 proc makeDirectory      {args} {return 0}

Added: trunk/languages/tcl/runtime/builtin/bgerror.pir
==============================================================================
--- (empty file)
+++ trunk/languages/tcl/runtime/builtin/bgerror.pir     Wed Jul 30 14:14:20 2008
@@ -0,0 +1,13 @@
+.HLL 'Tcl', ''
+.namespace []
+
+.sub '&bgerror'
+  .param pmc argv :slurpy
+  .return('')
+.end
+
+# Local Variables:
+#   mode: pir
+#   fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:

Added: trunk/languages/tcl/runtime/builtin/chan.pir
==============================================================================
--- (empty file)
+++ trunk/languages/tcl/runtime/builtin/chan.pir        Wed Jul 30 14:14:20 2008
@@ -0,0 +1,13 @@
+.HLL 'Tcl', ''
+.namespace []
+
+.sub '&chan'
+  .param pmc argv :slurpy
+  .return('')
+.end
+
+# Local Variables:
+#   mode: pir
+#   fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:

Added: trunk/languages/tcl/runtime/builtin/dde.pir
==============================================================================
--- (empty file)
+++ trunk/languages/tcl/runtime/builtin/dde.pir Wed Jul 30 14:14:20 2008
@@ -0,0 +1,13 @@
+.HLL 'Tcl', ''
+.namespace []
+
+.sub '&dde'
+  .param pmc argv :slurpy
+  .return('')
+.end
+
+# Local Variables:
+#   mode: pir
+#   fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:

Added: trunk/languages/tcl/runtime/builtin/fblocked.pir
==============================================================================
--- (empty file)
+++ trunk/languages/tcl/runtime/builtin/fblocked.pir    Wed Jul 30 14:14:20 2008
@@ -0,0 +1,13 @@
+.HLL 'Tcl', ''
+.namespace []
+
+.sub '&fblocked'
+  .param pmc argv :slurpy
+  .return('')
+.end
+
+# Local Variables:
+#   mode: pir
+#   fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:

Added: trunk/languages/tcl/runtime/builtin/fcopy.pir
==============================================================================
--- (empty file)
+++ trunk/languages/tcl/runtime/builtin/fcopy.pir       Wed Jul 30 14:14:20 2008
@@ -0,0 +1,13 @@
+.HLL 'Tcl', ''
+.namespace []
+
+.sub '&fcopy'
+  .param pmc argv :slurpy
+  .return('')
+.end
+
+# Local Variables:
+#   mode: pir
+#   fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:

Added: trunk/languages/tcl/runtime/builtin/history.pir
==============================================================================
--- (empty file)
+++ trunk/languages/tcl/runtime/builtin/history.pir     Wed Jul 30 14:14:20 2008
@@ -0,0 +1,13 @@
+.HLL 'Tcl', ''
+.namespace []
+
+.sub '&history'
+  .param pmc argv :slurpy
+  .return('')
+.end
+
+# Local Variables:
+#   mode: pir
+#   fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:

Added: trunk/languages/tcl/runtime/builtin/load.pir
==============================================================================
--- (empty file)
+++ trunk/languages/tcl/runtime/builtin/load.pir        Wed Jul 30 14:14:20 2008
@@ -0,0 +1,13 @@
+.HLL 'Tcl', ''
+.namespace []
+
+.sub '&load'
+  .param pmc argv :slurpy
+  .return('')
+.end
+
+# Local Variables:
+#   mode: pir
+#   fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:

Added: trunk/languages/tcl/runtime/builtin/memory.pir
==============================================================================
--- (empty file)
+++ trunk/languages/tcl/runtime/builtin/memory.pir      Wed Jul 30 14:14:20 2008
@@ -0,0 +1,13 @@
+.HLL 'Tcl', ''
+.namespace []
+
+.sub '&memory'
+  .param pmc argv :slurpy
+  .return('')
+.end
+
+# Local Variables:
+#   mode: pir
+#   fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:

Added: trunk/languages/tcl/runtime/builtin/pid.pir
==============================================================================
--- (empty file)
+++ trunk/languages/tcl/runtime/builtin/pid.pir Wed Jul 30 14:14:20 2008
@@ -0,0 +1,14 @@
+.HLL 'Tcl', ''
+.namespace []
+
+.sub '&pid'
+  .param pmc argv :slurpy
+  .return('')
+.end
+
+
+# Local Variables:
+#   mode: pir
+#   fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:

Added: trunk/languages/tcl/runtime/builtin/read.pir
==============================================================================
--- (empty file)
+++ trunk/languages/tcl/runtime/builtin/read.pir        Wed Jul 30 14:14:20 2008
@@ -0,0 +1,13 @@
+.HLL 'Tcl', ''
+.namespace []
+
+.sub '&read'
+  .param pmc argv :slurpy
+  .return('')
+.end
+
+# Local Variables:
+#   mode: pir
+#   fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:

Added: trunk/languages/tcl/runtime/builtin/registry.pir
==============================================================================
--- (empty file)
+++ trunk/languages/tcl/runtime/builtin/registry.pir    Wed Jul 30 14:14:20 2008
@@ -0,0 +1,13 @@
+.HLL 'Tcl', ''
+.namespace []
+
+.sub '&registry'
+  .param pmc argv :slurpy
+  .return('')
+.end
+
+# Local Variables:
+#   mode: pir
+#   fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:

Added: trunk/languages/tcl/runtime/builtin/seek.pir
==============================================================================
--- (empty file)
+++ trunk/languages/tcl/runtime/builtin/seek.pir        Wed Jul 30 14:14:20 2008
@@ -0,0 +1,13 @@
+.HLL 'Tcl', ''
+.namespace []
+
+.sub '&seek'
+  .param pmc argv :slurpy
+  .return('')
+.end
+
+# Local Variables:
+#   mode: pir
+#   fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:

Added: trunk/languages/tcl/runtime/builtin/tell.pir
==============================================================================
--- (empty file)
+++ trunk/languages/tcl/runtime/builtin/tell.pir        Wed Jul 30 14:14:20 2008
@@ -0,0 +1,13 @@
+.HLL 'Tcl', ''
+.namespace []
+
+.sub '&tell'
+  .param pmc argv :slurpy
+  .return('')
+.end
+
+# Local Variables:
+#   mode: pir
+#   fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:

Added: trunk/languages/tcl/runtime/builtin/unload.pir
==============================================================================
--- (empty file)
+++ trunk/languages/tcl/runtime/builtin/unload.pir      Wed Jul 30 14:14:20 2008
@@ -0,0 +1,13 @@
+.HLL 'Tcl', ''
+.namespace []
+
+.sub '&unload'
+  .param pmc argv :slurpy
+  .return('')
+.end
+
+# Local Variables:
+#   mode: pir
+#   fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir: