Author: paultcochrane
Date: Mon Apr 9 00:41:20 2007
New Revision: 18046
Modified:
trunk/languages/tcl/runtime/builtin/after.pir
trunk/languages/tcl/runtime/builtin/append.pir
trunk/languages/tcl/runtime/builtin/apply.pir
trunk/languages/tcl/runtime/builtin/array.pir
trunk/languages/tcl/runtime/builtin/auto_execok.pir
trunk/languages/tcl/runtime/builtin/auto_load.pir
trunk/languages/tcl/runtime/builtin/binary.pir
trunk/languages/tcl/runtime/builtin/catch.pir
trunk/languages/tcl/runtime/builtin/clock.pir
trunk/languages/tcl/runtime/builtin/close.pir
trunk/languages/tcl/runtime/builtin/concat.pir
trunk/languages/tcl/runtime/builtin/dict.pir
trunk/languages/tcl/runtime/builtin/encoding.pir
trunk/languages/tcl/runtime/builtin/error.pir
trunk/languages/tcl/runtime/builtin/eval.pir
trunk/languages/tcl/runtime/builtin/exec.pir
trunk/languages/tcl/runtime/builtin/expr.pir
trunk/languages/tcl/runtime/builtin/fconfigure.pir
trunk/languages/tcl/runtime/builtin/file.pir
trunk/languages/tcl/runtime/builtin/fileevent.pir
trunk/languages/tcl/runtime/builtin/foreach.pir
trunk/languages/tcl/runtime/builtin/format.pir
trunk/languages/tcl/runtime/builtin/gets.pir
trunk/languages/tcl/runtime/builtin/glob.pir
trunk/languages/tcl/runtime/builtin/global.pir
trunk/languages/tcl/runtime/builtin/if.pir
trunk/languages/tcl/runtime/builtin/info.pir
trunk/languages/tcl/runtime/builtin/inline.pir
trunk/languages/tcl/runtime/builtin/interp.pir
trunk/languages/tcl/runtime/builtin/lappend.pir
trunk/languages/tcl/runtime/builtin/lassign.pir
trunk/languages/tcl/runtime/builtin/lindex.pir
trunk/languages/tcl/runtime/builtin/linsert.pir
trunk/languages/tcl/runtime/builtin/list.pir
trunk/languages/tcl/runtime/builtin/lrepeat.pir
trunk/languages/tcl/runtime/builtin/lreplace.pir
trunk/languages/tcl/runtime/builtin/lsearch.pir
trunk/languages/tcl/runtime/builtin/lset.pir
trunk/languages/tcl/runtime/builtin/lsort.pir
trunk/languages/tcl/runtime/builtin/namespace.pir
trunk/languages/tcl/runtime/builtin/open.pir
trunk/languages/tcl/runtime/builtin/package.pir
trunk/languages/tcl/runtime/builtin/proc.pir
trunk/languages/tcl/runtime/builtin/puts.pir
trunk/languages/tcl/runtime/builtin/regexp.pir
trunk/languages/tcl/runtime/builtin/regsub.pir
trunk/languages/tcl/runtime/builtin/rename.pir
trunk/languages/tcl/runtime/builtin/return.pir
trunk/languages/tcl/runtime/builtin/scan.pir
trunk/languages/tcl/runtime/builtin/socket.pir
trunk/languages/tcl/runtime/builtin/source.pir
trunk/languages/tcl/runtime/builtin/split.pir
trunk/languages/tcl/runtime/builtin/string.pir
trunk/languages/tcl/runtime/builtin/subst.pir
trunk/languages/tcl/runtime/builtin/switch.pir
trunk/languages/tcl/runtime/builtin/trace.pir
trunk/languages/tcl/runtime/builtin/unknown.pir
trunk/languages/tcl/runtime/builtin/unset.pir
trunk/languages/tcl/runtime/builtin/update.pir
trunk/languages/tcl/runtime/builtin/uplevel.pir
trunk/languages/tcl/runtime/builtin/upvar.pir
trunk/languages/tcl/runtime/builtin/variable.pir
trunk/languages/tcl/runtime/builtin/vwait.pir
trunk/languages/tcl/runtime/conversions.pir
trunk/languages/tcl/runtime/list_to_string.pir
trunk/languages/tcl/runtime/options.pir
trunk/languages/tcl/runtime/string_to_list.pir
trunk/languages/tcl/runtime/tcllib.pir
trunk/languages/tcl/runtime/variables.pir
trunk/languages/tcl/src/builtin/cd.pir
trunk/languages/tcl/src/builtin/expr.pir
trunk/languages/tcl/src/builtin/list.pir
trunk/languages/tcl/src/builtin/return.pir
trunk/languages/tcl/src/class/tclconst.pir
trunk/languages/tcl/src/class/tclproc.pir
trunk/languages/tcl/src/grammar/expr/functions.pir
trunk/languages/tcl/src/grammar/expr/operators.pir
trunk/languages/tcl/src/grammar/expr/parse.pir
trunk/languages/tcl/src/grammar/expr/past.pir
trunk/languages/tcl/src/macros.pir
trunk/languages/tcl/src/returncodes.pir
trunk/languages/tcl/src/tclsh.pir
Log:
[tcl] Added pir emacs/vim coda as per coding standards
Modified: trunk/languages/tcl/runtime/builtin/after.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/after.pir (original)
+++ trunk/languages/tcl/runtime/builtin/after.pir Mon Apr 9 00:41:20 2007
@@ -18,3 +18,9 @@
tcl_error 'wrong # args: should be "after option ?arg arg ...?"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/append.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/append.pir (original)
+++ trunk/languages/tcl/runtime/builtin/append.pir Mon Apr 9 00:41:20 2007
@@ -57,3 +57,9 @@
badargs:
tcl_error 'wrong # args: should be "append varName ?value value ...?"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/apply.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/apply.pir (original)
+++ trunk/languages/tcl/runtime/builtin/apply.pir Mon Apr 9 00:41:20 2007
@@ -31,3 +31,9 @@
no_args:
tcl_error 'wrong # args: should be "apply lambdaExpr ?arg1 arg2 ...?"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/array.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/array.pir (original)
+++ trunk/languages/tcl/runtime/builtin/array.pir Mon Apr 9 00:41:20 2007
@@ -458,3 +458,9 @@
.return (retval)
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/auto_execok.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/auto_execok.pir (original)
+++ trunk/languages/tcl/runtime/builtin/auto_execok.pir Mon Apr 9 00:41:20 2007
@@ -11,3 +11,9 @@
.return('')
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/auto_load.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/auto_load.pir (original)
+++ trunk/languages/tcl/runtime/builtin/auto_load.pir Mon Apr 9 00:41:20 2007
@@ -12,3 +12,9 @@
.return('')
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/binary.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/binary.pir (original)
+++ trunk/languages/tcl/runtime/builtin/binary.pir Mon Apr 9 00:41:20 2007
@@ -93,3 +93,9 @@
bad_args:
tcl_error 'wrong # args: should be "binary scan value formatString
?varName varName ...?"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/catch.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/catch.pir (original)
+++ trunk/languages/tcl/runtime/builtin/catch.pir Mon Apr 9 00:41:20 2007
@@ -53,3 +53,9 @@
bad_args:
tcl_error 'wrong # args: should be "catch script ?resultVarName?
?optionVarName?"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/clock.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/clock.pir (original)
+++ trunk/languages/tcl/runtime/builtin/clock.pir Mon Apr 9 00:41:20 2007
@@ -79,3 +79,9 @@
bad_args:
tcl_error 'wrong # args: should be "clock seconds"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/close.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/close.pir (original)
+++ trunk/languages/tcl/runtime/builtin/close.pir Mon Apr 9 00:41:20 2007
@@ -40,3 +40,9 @@
tcl_error 'wrong # args: should be "close channelId"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/concat.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/concat.pir (original)
+++ trunk/languages/tcl/runtime/builtin/concat.pir Mon Apr 9 00:41:20 2007
@@ -77,3 +77,9 @@
done:
.return(retval)
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/dict.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/dict.pir (original)
+++ trunk/languages/tcl/runtime/builtin/dict.pir Mon Apr 9 00:41:20 2007
@@ -1052,3 +1052,9 @@
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/encoding.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/encoding.pir (original)
+++ trunk/languages/tcl/runtime/builtin/encoding.pir Mon Apr 9 00:41:20 2007
@@ -118,3 +118,9 @@
bad_args:
tcl_error 'wrong # args: should be "encoding system ?encoding?"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/error.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/error.pir (original)
+++ trunk/languages/tcl/runtime/builtin/error.pir Mon Apr 9 00:41:20 2007
@@ -49,3 +49,9 @@
badargs:
tcl_error 'wrong # args: should be "error message ?errorInfo? ?errorCode?"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/eval.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/eval.pir (original)
+++ trunk/languages/tcl/runtime/builtin/eval.pir Mon Apr 9 00:41:20 2007
@@ -29,3 +29,9 @@
bad_args:
tcl_error 'wrong # args: should be "eval arg ?arg ...?"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/exec.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/exec.pir (original)
+++ trunk/languages/tcl/runtime/builtin/exec.pir Mon Apr 9 00:41:20 2007
@@ -12,3 +12,9 @@
.return('')
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/expr.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/expr.pir (original)
+++ trunk/languages/tcl/runtime/builtin/expr.pir Mon Apr 9 00:41:20 2007
@@ -36,3 +36,9 @@
no_args:
tcl_error 'wrong # args: should be "expr arg ?arg ...?"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/fconfigure.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/fconfigure.pir (original)
+++ trunk/languages/tcl/runtime/builtin/fconfigure.pir Mon Apr 9 00:41:20 2007
@@ -12,3 +12,9 @@
.return('')
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/file.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/file.pir (original)
+++ trunk/languages/tcl/runtime/builtin/file.pir Mon Apr 9 00:41:20 2007
@@ -599,3 +599,9 @@
bad_args:
tcl_error 'wrong # args: should be "file volumes"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/fileevent.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/fileevent.pir (original)
+++ trunk/languages/tcl/runtime/builtin/fileevent.pir Mon Apr 9 00:41:20 2007
@@ -53,3 +53,9 @@
badargs:
tcl_error 'wrong # args: should be "fileevent channelId event ?script?"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/foreach.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/foreach.pir (original)
+++ trunk/languages/tcl/runtime/builtin/foreach.pir Mon Apr 9 00:41:20 2007
@@ -131,3 +131,9 @@
bad_varlist:
tcl_error 'foreach varlist is empty'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/format.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/format.pir (original)
+++ trunk/languages/tcl/runtime/builtin/format.pir Mon Apr 9 00:41:20 2007
@@ -26,3 +26,9 @@
noargs:
tcl_error 'wrong # args: should be "format formatString ?arg arg ...?"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/gets.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/gets.pir (original)
+++ trunk/languages/tcl/runtime/builtin/gets.pir Mon Apr 9 00:41:20 2007
@@ -38,3 +38,9 @@
tcl_error 'wrong # args: should be "gets channelId ?varName?"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/glob.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/glob.pir (original)
+++ trunk/languages/tcl/runtime/builtin/glob.pir Mon Apr 9 00:41:20 2007
@@ -12,3 +12,9 @@
.return('')
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/global.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/global.pir (original)
+++ trunk/languages/tcl/runtime/builtin/global.pir Mon Apr 9 00:41:20 2007
@@ -47,3 +47,9 @@
badargs:
tcl_error 'wrong # args: should be "global varName ?varName ...?"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/if.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/if.pir (original)
+++ trunk/languages/tcl/runtime/builtin/if.pir Mon Apr 9 00:41:20 2007
@@ -155,3 +155,9 @@
$S0 = $S0 . '" argument'
tcl_error $S0
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/info.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/info.pir (original)
+++ trunk/languages/tcl/runtime/builtin/info.pir Mon Apr 9 00:41:20 2007
@@ -568,3 +568,9 @@
.param pmc argv
.return(0)
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/inline.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/inline.pir (original)
+++ trunk/languages/tcl/runtime/builtin/inline.pir Mon Apr 9 00:41:20 2007
@@ -52,3 +52,9 @@
$S0 .= '" specified'
tcl_error $S0
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/interp.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/interp.pir (original)
+++ trunk/languages/tcl/runtime/builtin/interp.pir Mon Apr 9 00:41:20 2007
@@ -12,3 +12,9 @@
.return('')
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/lappend.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/lappend.pir (original)
+++ trunk/languages/tcl/runtime/builtin/lappend.pir Mon Apr 9 00:41:20 2007
@@ -49,3 +49,9 @@
tcl_error 'wrong # args: should be "lappend varName ?value value ...?"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/lassign.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/lassign.pir (original)
+++ trunk/languages/tcl/runtime/builtin/lassign.pir Mon Apr 9 00:41:20 2007
@@ -43,3 +43,9 @@
bad_args:
tcl_error 'wrong # args: should be "lassign list varName ?varName ...?"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/lindex.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/lindex.pir (original)
+++ trunk/languages/tcl/runtime/builtin/lindex.pir Mon Apr 9 00:41:20 2007
@@ -69,3 +69,9 @@
bad_args:
tcl_error 'wrong # args: should be "lindex list ?index...?"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/linsert.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/linsert.pir (original)
+++ trunk/languages/tcl/runtime/builtin/linsert.pir Mon Apr 9 00:41:20 2007
@@ -48,3 +48,9 @@
tcl_error 'wrong # args: should be "linsert list index element ?element
...?"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/list.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/list.pir (original)
+++ trunk/languages/tcl/runtime/builtin/list.pir Mon Apr 9 00:41:20 2007
@@ -12,3 +12,9 @@
.return($P0)
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/lrepeat.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/lrepeat.pir (original)
+++ trunk/languages/tcl/runtime/builtin/lrepeat.pir Mon Apr 9 00:41:20 2007
@@ -50,3 +50,9 @@
bad_args:
tcl_error 'wrong # args: should be "lrepeat positiveCount value ?value ...?"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/lreplace.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/lreplace.pir (original)
+++ trunk/languages/tcl/runtime/builtin/lreplace.pir Mon Apr 9 00:41:20 2007
@@ -61,3 +61,9 @@
$S0 = "list doesn't contain element " . $S0
tcl_error $S0
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/lsearch.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/lsearch.pir (original)
+++ trunk/languages/tcl/runtime/builtin/lsearch.pir Mon Apr 9 00:41:20 2007
@@ -120,3 +120,9 @@
bad_args:
tcl_error 'wrong # args: should be "lsearch ?options? list pattern"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/lset.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/lset.pir (original)
+++ trunk/languages/tcl/runtime/builtin/lset.pir Mon Apr 9 00:41:20 2007
@@ -83,3 +83,9 @@
replace:
.return __set(name, value)
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/lsort.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/lsort.pir (original)
+++ trunk/languages/tcl/runtime/builtin/lsort.pir Mon Apr 9 00:41:20 2007
@@ -295,3 +295,9 @@
$I0 = cmp_num s2, s1
.return ($I0)
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/namespace.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/namespace.pir (original)
+++ trunk/languages/tcl/runtime/builtin/namespace.pir Mon Apr 9 00:41:20 2007
@@ -479,3 +479,9 @@
.sub 'which'
.return ('')
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/open.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/open.pir (original)
+++ trunk/languages/tcl/runtime/builtin/open.pir Mon Apr 9 00:41:20 2007
@@ -47,3 +47,9 @@
error:
tcl_error 'wrong # args: should be "open fileName ?access? ?permissions?"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/package.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/package.pir (original)
+++ trunk/languages/tcl/runtime/builtin/package.pir Mon Apr 9 00:41:20 2007
@@ -13,3 +13,9 @@
.return('')
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/proc.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/proc.pir (original)
+++ trunk/languages/tcl/runtime/builtin/proc.pir Mon Apr 9 00:41:20 2007
@@ -306,3 +306,9 @@
error:
tcl_error 'wrong # args: should be "proc name args body"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/puts.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/puts.pir (original)
+++ trunk/languages/tcl/runtime/builtin/puts.pir Mon Apr 9 00:41:20 2007
@@ -78,3 +78,9 @@
done:
.return('')
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/regexp.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/regexp.pir (original)
+++ trunk/languages/tcl/runtime/builtin/regexp.pir Mon Apr 9 00:41:20 2007
@@ -138,3 +138,9 @@
tcl_error 'wrong # args: should be "regexp ?switches? exp string ?matchVar?
?subMatchVar subMatchVar ...?"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/regsub.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/regsub.pir (original)
+++ trunk/languages/tcl/runtime/builtin/regsub.pir Mon Apr 9 00:41:20 2007
@@ -122,3 +122,9 @@
tcl_error 'wrong # args: should be "regsub ?switches? exp string subSpec
?varName?"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/rename.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/rename.pir (original)
+++ trunk/languages/tcl/runtime/builtin/rename.pir Mon Apr 9 00:41:20 2007
@@ -86,3 +86,9 @@
bad_args:
tcl_error 'wrong # args: should be "rename oldName newName"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/return.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/return.pir (original)
+++ trunk/languages/tcl/runtime/builtin/return.pir Mon Apr 9 00:41:20 2007
@@ -33,3 +33,9 @@
empty:
tcl_return ''
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/scan.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/scan.pir (original)
+++ trunk/languages/tcl/runtime/builtin/scan.pir Mon Apr 9 00:41:20 2007
@@ -467,3 +467,9 @@
bad_args:
tcl_error 'wrong # args: should be "scan string format ?varName varName
...?"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/socket.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/socket.pir (original)
+++ trunk/languages/tcl/runtime/builtin/socket.pir Mon Apr 9 00:41:20 2007
@@ -44,3 +44,9 @@
tcl_error 'wrong # args: should be "socket ?-myaddr addr? ?-myport myport?
?-async? host port" or "socket -server command ?-myaddr addr? port"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/source.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/source.pir (original)
+++ trunk/languages/tcl/runtime/builtin/source.pir Mon Apr 9 00:41:20 2007
@@ -80,3 +80,9 @@
bad_args:
tcl_error 'wrong # args: should be "source fileName"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/split.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/split.pir (original)
+++ trunk/languages/tcl/runtime/builtin/split.pir Mon Apr 9 00:41:20 2007
@@ -98,3 +98,9 @@
bad_args:
tcl_error 'wrong # args: should be "split string ?splitChars?"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/string.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/string.pir (original)
+++ trunk/languages/tcl/runtime/builtin/string.pir Mon Apr 9 00:41:20 2007
@@ -1151,3 +1151,9 @@
bad_args:
tcl_error 'wrong # args: should be "string wordstart string index"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/subst.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/subst.pir (original)
+++ trunk/languages/tcl/runtime/builtin/subst.pir Mon Apr 9 00:41:20 2007
@@ -126,3 +126,9 @@
$S0 .= '": must be -nobackslashes, -nocommands, or -novariables'
tcl_error $S0
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/switch.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/switch.pir (original)
+++ trunk/languages/tcl/runtime/builtin/switch.pir Mon Apr 9 00:41:20 2007
@@ -162,3 +162,9 @@
$S1 .= '": must be -exact, -glob, -indexvar, -matchvar, -nocase, -regexp, or
--'
tcl_error $S1
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/trace.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/trace.pir (original)
+++ trunk/languages/tcl/runtime/builtin/trace.pir Mon Apr 9 00:41:20 2007
@@ -12,3 +12,9 @@
.return('')
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/unknown.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/unknown.pir (original)
+++ trunk/languages/tcl/runtime/builtin/unknown.pir Mon Apr 9 00:41:20 2007
@@ -12,3 +12,9 @@
.return('')
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/unset.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/unset.pir (original)
+++ trunk/languages/tcl/runtime/builtin/unset.pir Mon Apr 9 00:41:20 2007
@@ -103,3 +103,9 @@
tcl_error $S0
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/update.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/update.pir (original)
+++ trunk/languages/tcl/runtime/builtin/update.pir Mon Apr 9 00:41:20 2007
@@ -12,3 +12,9 @@
.return('')
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/uplevel.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/uplevel.pir (original)
+++ trunk/languages/tcl/runtime/builtin/uplevel.pir Mon Apr 9 00:41:20 2007
@@ -83,3 +83,9 @@
bad_args:
tcl_error 'wrong # args: should be "uplevel ?level? command ?arg ...?"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/upvar.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/upvar.pir (original)
+++ trunk/languages/tcl/runtime/builtin/upvar.pir Mon Apr 9 00:41:20 2007
@@ -111,3 +111,9 @@
tcl_error 'wrong # args: should be "upvar ?level? otherVar localVar
?otherVar localVar ...?"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/variable.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/variable.pir (original)
+++ trunk/languages/tcl/runtime/builtin/variable.pir Mon Apr 9 00:41:20 2007
@@ -66,3 +66,9 @@
bad_args:
tcl_error 'wrong # args: should be "variable ?name value...? name ?value?"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/builtin/vwait.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/vwait.pir (original)
+++ trunk/languages/tcl/runtime/builtin/vwait.pir Mon Apr 9 00:41:20 2007
@@ -40,3 +40,9 @@
badargs:
tcl_error 'wrong # args: should be "vwait name"'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/conversions.pir
==============================================================================
--- trunk/languages/tcl/runtime/conversions.pir (original)
+++ trunk/languages/tcl/runtime/conversions.pir Mon Apr 9 00:41:20 2007
@@ -624,3 +624,9 @@
$S0 = $S0 . '"'
tcl_error $S0
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/list_to_string.pir
==============================================================================
--- trunk/languages/tcl/runtime/list_to_string.pir (original)
+++ trunk/languages/tcl/runtime/list_to_string.pir Mon Apr 9 00:41:20 2007
@@ -153,3 +153,9 @@
$S1 = __listToString(list)
.return ($S1)
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/options.pir
==============================================================================
--- trunk/languages/tcl/runtime/options.pir (original)
+++ trunk/languages/tcl/runtime/options.pir Mon Apr 9 00:41:20 2007
@@ -273,3 +273,9 @@
invalid_done:
.return (error)
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/string_to_list.pir
==============================================================================
--- trunk/languages/tcl/runtime/string_to_list.pir (original)
+++ trunk/languages/tcl/runtime/string_to_list.pir Mon Apr 9 00:41:20 2007
@@ -227,3 +227,9 @@
list = __stringToList(str)
.return __listToDict(list)
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/tcllib.pir
==============================================================================
--- trunk/languages/tcl/runtime/tcllib.pir (original)
+++ trunk/languages/tcl/runtime/tcllib.pir Mon Apr 9 00:41:20 2007
@@ -287,3 +287,9 @@
$P1 = script($S0)
$P1()
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/runtime/variables.pir
==============================================================================
--- trunk/languages/tcl/runtime/variables.pir (original)
+++ trunk/languages/tcl/runtime/variables.pir Mon Apr 9 00:41:20 2007
@@ -414,3 +414,9 @@
ns[name] = value
.return(value)
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/src/builtin/cd.pir
==============================================================================
--- trunk/languages/tcl/src/builtin/cd.pir (original)
+++ trunk/languages/tcl/src/builtin/cd.pir Mon Apr 9 00:41:20 2007
@@ -37,3 +37,9 @@
$S0 = "tcl_error 'wrong # args: should be \"cd\ ?dirName?\"'\n"
.return($S0)
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/src/builtin/expr.pir
==============================================================================
--- trunk/languages/tcl/src/builtin/expr.pir (original)
+++ trunk/languages/tcl/src/builtin/expr.pir Mon Apr 9 00:41:20 2007
@@ -62,3 +62,9 @@
error .= "\"\n"
.return(error)
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/src/builtin/list.pir
==============================================================================
--- trunk/languages/tcl/src/builtin/list.pir (original)
+++ trunk/languages/tcl/src/builtin/list.pir Mon Apr 9 00:41:20 2007
@@ -35,3 +35,9 @@
.return(pir_code)
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/src/builtin/return.pir
==============================================================================
--- trunk/languages/tcl/src/builtin/return.pir (original)
+++ trunk/languages/tcl/src/builtin/return.pir Mon Apr 9 00:41:20 2007
@@ -31,3 +31,9 @@
pir_code = "tcl_return \"\"\n"
.return(pir_code)
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/src/class/tclconst.pir
==============================================================================
--- trunk/languages/tcl/src/class/tclconst.pir (original)
+++ trunk/languages/tcl/src/class/tclconst.pir Mon Apr 9 00:41:20 2007
@@ -270,3 +270,9 @@
.return compiler(argnum, value)
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/src/class/tclproc.pir
==============================================================================
--- trunk/languages/tcl/src/class/tclproc.pir (original)
+++ trunk/languages/tcl/src/class/tclproc.pir Mon Apr 9 00:41:20 2007
@@ -31,3 +31,9 @@
# Should combine this with 'args' for P6-style args..
addattribute $P1, 'defaults'
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/src/grammar/expr/functions.pir
==============================================================================
--- trunk/languages/tcl/src/grammar/expr/functions.pir (original)
+++ trunk/languages/tcl/src/grammar/expr/functions.pir Mon Apr 9 00:41:20 2007
@@ -729,3 +729,9 @@
is_string:
tcl_error "argument to math function didn't have numeric value"
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/src/grammar/expr/operators.pir
==============================================================================
--- trunk/languages/tcl/src/grammar/expr/operators.pir (original)
+++ trunk/languages/tcl/src/grammar/expr/operators.pir Mon Apr 9 00:41:20 2007
@@ -1010,3 +1010,9 @@
false:
.return(0)
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/src/grammar/expr/parse.pir
==============================================================================
--- trunk/languages/tcl/src/grammar/expr/parse.pir (original)
+++ trunk/languages/tcl/src/grammar/expr/parse.pir Mon Apr 9 00:41:20 2007
@@ -68,3 +68,9 @@
.return syntax_error(mob, msg, adverbs)
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/src/grammar/expr/past.pir
==============================================================================
--- trunk/languages/tcl/src/grammar/expr/past.pir (original)
+++ trunk/languages/tcl/src/grammar/expr/past.pir Mon Apr 9 00:41:20 2007
@@ -211,3 +211,9 @@
it under the same terms as Parrot.
=cut
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/src/macros.pir
==============================================================================
--- trunk/languages/tcl/src/macros.pir (original)
+++ trunk/languages/tcl/src/macros.pir Mon Apr 9 00:41:20 2007
@@ -110,3 +110,9 @@
load_bytecode 'PGE/Dumper.pbc'
_dumper(.dingus)
.endm
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/src/returncodes.pir
==============================================================================
--- trunk/languages/tcl/src/returncodes.pir (original)
+++ trunk/languages/tcl/src/returncodes.pir Mon Apr 9 00:41:20 2007
@@ -14,3 +14,9 @@
.const int VALUE_SLOT = 0 # _message
.const int SEVERITY_SLOT = 2 # _severity
.const int CODE_SLOT = 9 # tcl return code.
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Modified: trunk/languages/tcl/src/tclsh.pir
==============================================================================
--- trunk/languages/tcl/src/tclsh.pir (original)
+++ trunk/languages/tcl/src/tclsh.pir Mon Apr 9 00:41:20 2007
@@ -292,3 +292,9 @@
.return ($P0)
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
