Error processing request

Parameters

Body

Error

Unknow state transition: LINE -> END

-code

1

-level

0

-errorstack

INNER {returnImm {Unknow state transition: LINE -> END} {}} CALL {my render_wikit makeziptm.cmd \[RS\]\ from\ \[Tcl\ chatroom\],\ 2008-10-17:\ Here\ is\ a\ Windows\ cmd\ script\ that\ allows\ to\ make\ a\ \"zipkit\",\ a\ \[ZIP\]ped\ \[Tclkit\].\ \n\[Pat\ Thoyts\]\ wrote:\ \ To\ make\ tkchat.zkit\ I\ \n\ cd\ tkchat.vfs\ \;\ zip\ -r\ ..\\tkchat.zip\ .\ \;\ cd\ ..\ \;\ makeziptm\ tkchat.zip\ tkchat.zkit\nIf\ you\ renamed\ it\ .tm\ it\ can\ be\ a\ tcl\ module,\ for\ instance\ a\ tls.tm\ module\ could\ be\ done\ like\ this\ I\ beleve\n\ \n\n======\n::set\ HEADER\ \{\ -*-\ tcl\ -*-\n@echo\ off\necho\ %~0\ %~f0\nif\ \"%OS%\"\ ==\ \"Windows_NT\"\ goto\ WinNT\ntclsh\ \"%0\"\ %1\ %2\ %3\ %4\ %5\ %6\ %7\ %8\ %9\ngoto\ EOF\n:WinNT\n@rem\ this\ works\ for\ XP\ -\ probably\ not\ for\ 2k\ or\ NT\ntclsh\ %~f0\ %*\ngoto\ EOF\n\}\n\n#\ \[make_zip_tm\ /zipfile/\ /outfile/\]\n#\ Prefixes\ the\ specified\ zipfile\ with\ the\ tclmodule\ mounter\ stub\ and\ writes\n#\ out\ 'outfile'\n#\n#\ \[make_sfx_zip\ /zipfile/\ /outfile/\ /sfxstub/\]\n#\ Adds\ an\ arbitrary\ 'sfx'\ to\ a\ zip\ file,\ and\ adjusts\ the\ central\ directory\n#\ and\ file\ items\ to\ compensate\ for\ this\ extra\ data.\n\nproc\ make_zip_tm\ \{\ zipfile\ outfile\ \}\ \{\n\ \ \ \ set\ sfx_stub\ \{#!/usr/bin/env\ tclkit\n#\ This\ is\ a\ zip-based\ Tcl\ Module\n#\ Copyright\ (C)\ 2005\ Pat\ Thoyts\ <[email protected]>\npackage\ require\ vfs::zip\nvfs::zip::Mount\ \[info\ script\]\ \[info\ script\]\nif\ \{\[file\ exists\ \[file\ join\ \[info\ script\]\ main.tcl\]\]\}\ \{\n\ \ \ \ source\ \[file\ join\ \[info\ script\]\ main.tcl\]\n\}\n\ \ \ \ \}\n\ \ \ \ append\ sfx_stub\ \\x1A\n\ \ \ \ make_sfx_zip\ \$zipfile\ \$outfile\ \$sfx_stub\n\}\n\nproc\ make_sfx_zip\ \{\ zipfile\ outfile\ sfx_stub\ \}\ \{\n\ \ \ \ \n\ \ \ \ set\ in\ \[open\ \$zipfile\ r\]\n\ \ \ \ fconfigure\ \$in\ -translation\ binary\ -encoding\ binary\n\ \ \ \ \n\ \ \ \ set\ out\ \[open\ \$outfile\ w+\]\n\ \ \ \ fconfigure\ \$out\ -translation\ binary\ -encoding\ binary\n\ \ \ \ \n\ \ \ \ puts\ -nonewline\ \$out\ \$sfx_stub\n\ \ \ \ \n\ \ \ \ set\ offset\ \[tell\ \$out\]\n\ \ \ \ \n\ \ \ \ lappend\ report\ \"sfx\ stub\ size:\ \$offset\"\n\ \ \ \ \n\ \ \ \ fcopy\ \$in\ \$out\n\n\ \ \ \ set\ size\ \[tell\ \$out\]\n\ \ \ \ \n\ \ \ \ #\ Now\ seek\ in\ \$out\ to\ find\ the\ end\ of\ directory\ signature:\n\ \ \ \ #\ The\ structure\ itself\ is\ 24\ bytes\ long,\ followed\ by\ a\ maximum\ of\n\ \ \ \ #\ 64Kbytes\ text\n\ \ \ \ \n\ \ \ \ if\ \{\ \$size\ <\ 65559\ \}\ \{\n\tset\ seek\ 0\n\ \ \ \ \}\ else\ \{\n\tset\ seek\ \[expr\ \{\ \$size\ -\ 65559\ \}\ \]\n\ \ \ \ \}\n\ \ \ \ #flush\ \$out\n\ \ \ \ seek\ \$out\ \$seek\n\ \ \ \ #puts\ \"\$seek\ \[tell\ \$out\]\"\n\ \ \ \ \n\ \ \ \ set\ data\ \[read\ \$out\]\n\ \ \ \ set\ start_of_end\ \[string\ last\ \"\\x50\\x4b\\x05\\x06\"\ \$data\]\n\ \ \ \ \n\ \ \ \ set\ start_of_end\ \[expr\ \{\$start_of_end\ +\ \$seek\}\]\n\ \ \ \ lappend\ report\ \"SEO:\ \$start_of_end\ (\[expr\ \{\$start_of_end-\$size\}\])\\\n\t\[string\ length\ \$data\]\"\n\ \ \ \ \n\ \ \ \ seek\ \$out\ \$start_of_end\n\ \ \ \ set\ end_of_ctrl_dir\ \[read\ \$out\]\n\ \ \ \ \n\ \ \ \ binary\ scan\ \$end_of_ctrl_dir\ issssiis\ \\\n\teocd(signature)\ eocd(disknbr)\ eocd(ctrldirdisk)\ \\\n\teocd(numondisk)\ eocd(totalnum)\ eocd(dirsize)\ eocd(diroffset)\ \\\n\teocd(comment_len)\n\ \ \ \ \n\ \ \ \ lappend\ report\ \"End\ of\ central\ directory:\ \[array\ get\ eocd\]\"\n\ \ \ \ \n\ \ \ \ seek\ \$out\ \[expr\ \{\$start_of_end+16\}\]\n\ \ \ \ \n\ \ \ \ #adjust\ offset\ of\ start\ of\ central\ directory\ by\ the\ length\ of\ our\ sfx\ stub\n\ \ \ \ puts\ -nonewline\ \$out\ \[binary\ format\ i\ \[expr\ \{\$eocd(diroffset)+\$offset\}\]\]\n\ \ \ \ flush\ \$out\n\ \ \ \ \n\ \ \ \ seek\ \$out\ \$start_of_end\n\ \ \ \ set\ end_of_ctrl_dir\ \[read\ \$out\]\n\ \ \ \ binary\ scan\ \$end_of_ctrl_dir\ issssiis\ \\\n\teocd(signature)\ eocd(disknbr)\ eocd(ctrldirdisk)\ \\\n\teocd(numondisk)\ eocd(totalnum)\ eocd(dirsize)\ eocd(diroffset)\ \\\n\teocd(comment_len)\n\ \ \ \ \n\ \ \ \ lappend\ report\ \"New\ dir\ offset:\ \$eocd(diroffset)\"\n\ \ \ \ lappend\ report\ \"Adjusting\ \$eocd(totalnum)\ zip\ file\ items.\"\n\ \ \ \ \n\ \ \ \ seek\ \$out\ \$eocd(diroffset)\n\ \ \ \ for\ \{set\ i\ 0\}\ \{\$i\ <\$eocd(totalnum)\}\ \{incr\ i\}\ \{\n\tset\ current_file\ \[tell\ \$out\]\n\tset\ fileheader\ \[read\ \$out\ 46\]\n\tbinary\ scan\ \$fileheader\ is2sss2ii2s3ssii\ \\\n\t\ \ \ \ x(sig)\ x(version)\ x(flags)\ x(method)\ \\\n\t\ \ \ \ x(date)\ x(crc32)\ x(sizes)\ x(lengths)\ \\\n\t\ \ \ \ x(diskno)\ x(iattr)\ x(eattr)\ x(offset)\n\t\n\tif\ \{\ \$x(sig)\ !=\ 33639248\ \}\ \{\n\t\ \ \ \ error\ \"Bad\ file\ header\ signature\ at\ item\ \$i:\ \$x(sig)\"\n\t\}\n\t\n\tforeach\ size\ \$x(lengths)\ var\ \{filename\ extrafield\ comment\}\ \{\n\t\ \ \ \ if\ \{\ \$size\ >\ 0\ \}\ \{\n\t\tset\ x(\$var)\ \[read\ \$out\ \$size\]\n\t\ \ \ \ \}\ else\ \{\n\t\tset\ x(\$var)\ \"\"\n\t\ \ \ \ \}\n\t\}\n\tset\ next_file\ \[tell\ \$out\]\n\tlappend\ report\ \"file\ \$i:\ \$x(offset)\ \$x(sizes)\ \$x(filename)\"\n\t\n\tseek\ \$out\ \[expr\ \{\$current_file+42\}\]\n\tputs\ -nonewline\ \$out\ \[binary\ format\ i\ \[expr\ \{\$x(offset)+\$offset\}\]\]\n\t\n\t#verify:\n\tflush\ \$out\n\tseek\ \$out\ \$current_file\n\tset\ fileheader\ \[read\ \$out\ 46\]\n\tlappend\ report\ \"old\ \$x(offset)\ +\ \$offset\"\n\tbinary\ scan\ \$fileheader\ is2sss2ii2s3ssii\ \\\n\t\ \ \ \ x(sig)\ x(version)\ x(flags)\ x(method)\ \\\n\t\ \ \ \ x(date)\ x(crc32)\ x(sizes)\ x(lengths)\ \\\n\t\ \ \ \ x(diskno)\ x(iattr)\ x(eattr)\ x(offset)\n\tlappend\ report\ \"new\ \$x(offset)\"\n\t\n\tseek\ \$out\ \$next_file\n\ \ \ \ \}\n\ \ \ \ #puts\ \[join\ \$report\ \\n\]\n\}\n\nif\ \{!\$tcl_interactive\}\ \{\n\ \ \ \ set\ r\ \[catch\ \{eval\ \[linsert\ \$argv\ 0\ make_zip_tm\]\}\ err\]\n\ \ \ \ puts\ \$err\n\ \ \ \ exit\ \$r\n\}\n\n#\ ---\ end\ ---\n#\ \\\n:EOF regexp2} CALL {my render makeziptm.cmd \[RS\]\ from\ \[Tcl\ chatroom\],\ 2008-10-17:\ Here\ is\ a\ Windows\ cmd\ script\ that\ allows\ to\ make\ a\ \"zipkit\",\ a\ \[ZIP\]ped\ \[Tclkit\].\ \n\[Pat\ Thoyts\]\ wrote:\ \ To\ make\ tkchat.zkit\ I\ \n\ cd\ tkchat.vfs\ \;\ zip\ -r\ ..\\tkchat.zip\ .\ \;\ cd\ ..\ \;\ makeziptm\ tkchat.zip\ tkchat.zkit\nIf\ you\ renamed\ it\ .tm\ it\ can\ be\ a\ tcl\ module,\ for\ instance\ a\ tls.tm\ module\ could\ be\ done\ like\ this\ I\ beleve\n\ \n\n======\n::set\ HEADER\ \{\ -*-\ tcl\ -*-\n@echo\ off\necho\ %~0\ %~f0\nif\ \"%OS%\"\ ==\ \"Windows_NT\"\ goto\ WinNT\ntclsh\ \"%0\"\ %1\ %2\ %3\ %4\ %5\ %6\ %7\ %8\ %9\ngoto\ EOF\n:WinNT\n@rem\ this\ works\ for\ XP\ -\ probably\ not\ for\ 2k\ or\ NT\ntclsh\ %~f0\ %*\ngoto\ EOF\n\}\n\n#\ \[make_zip_tm\ /zipfile/\ /outfile/\]\n#\ Prefixes\ the\ specified\ zipfile\ with\ the\ tclmodule\ mounter\ stub\ and\ writes\n#\ out\ 'outfile'\n#\n#\ \[make_sfx_zip\ /zipfile/\ /outfile/\ /sfxstub/\]\n#\ Adds\ an\ arbitrary\ 'sfx'\ to\ a\ zip\ file,\ and\ adjusts\ the\ central\ directory\n#\ and\ file\ items\ to\ compensate\ for\ this\ extra\ data.\n\nproc\ make_zip_tm\ \{\ zipfile\ outfile\ \}\ \{\n\ \ \ \ set\ sfx_stub\ \{#!/usr/bin/env\ tclkit\n#\ This\ is\ a\ zip-based\ Tcl\ Module\n#\ Copyright\ (C)\ 2005\ Pat\ Thoyts\ <[email protected]>\npackage\ require\ vfs::zip\nvfs::zip::Mount\ \[info\ script\]\ \[info\ script\]\nif\ \{\[file\ exists\ \[file\ join\ \[info\ script\]\ main.tcl\]\]\}\ \{\n\ \ \ \ source\ \[file\ join\ \[info\ script\]\ main.tcl\]\n\}\n\ \ \ \ \}\n\ \ \ \ append\ sfx_stub\ \\x1A\n\ \ \ \ make_sfx_zip\ \$zipfile\ \$outfile\ \$sfx_stub\n\}\n\nproc\ make_sfx_zip\ \{\ zipfile\ outfile\ sfx_stub\ \}\ \{\n\ \ \ \ \n\ \ \ \ set\ in\ \[open\ \$zipfile\ r\]\n\ \ \ \ fconfigure\ \$in\ -translation\ binary\ -encoding\ binary\n\ \ \ \ \n\ \ \ \ set\ out\ \[open\ \$outfile\ w+\]\n\ \ \ \ fconfigure\ \$out\ -translation\ binary\ -encoding\ binary\n\ \ \ \ \n\ \ \ \ puts\ -nonewline\ \$out\ \$sfx_stub\n\ \ \ \ \n\ \ \ \ set\ offset\ \[tell\ \$out\]\n\ \ \ \ \n\ \ \ \ lappend\ report\ \"sfx\ stub\ size:\ \$offset\"\n\ \ \ \ \n\ \ \ \ fcopy\ \$in\ \$out\n\n\ \ \ \ set\ size\ \[tell\ \$out\]\n\ \ \ \ \n\ \ \ \ #\ Now\ seek\ in\ \$out\ to\ find\ the\ end\ of\ directory\ signature:\n\ \ \ \ #\ The\ structure\ itself\ is\ 24\ bytes\ long,\ followed\ by\ a\ maximum\ of\n\ \ \ \ #\ 64Kbytes\ text\n\ \ \ \ \n\ \ \ \ if\ \{\ \$size\ <\ 65559\ \}\ \{\n\tset\ seek\ 0\n\ \ \ \ \}\ else\ \{\n\tset\ seek\ \[expr\ \{\ \$size\ -\ 65559\ \}\ \]\n\ \ \ \ \}\n\ \ \ \ #flush\ \$out\n\ \ \ \ seek\ \$out\ \$seek\n\ \ \ \ #puts\ \"\$seek\ \[tell\ \$out\]\"\n\ \ \ \ \n\ \ \ \ set\ data\ \[read\ \$out\]\n\ \ \ \ set\ start_of_end\ \[string\ last\ \"\\x50\\x4b\\x05\\x06\"\ \$data\]\n\ \ \ \ \n\ \ \ \ set\ start_of_end\ \[expr\ \{\$start_of_end\ +\ \$seek\}\]\n\ \ \ \ lappend\ report\ \"SEO:\ \$start_of_end\ (\[expr\ \{\$start_of_end-\$size\}\])\\\n\t\[string\ length\ \$data\]\"\n\ \ \ \ \n\ \ \ \ seek\ \$out\ \$start_of_end\n\ \ \ \ set\ end_of_ctrl_dir\ \[read\ \$out\]\n\ \ \ \ \n\ \ \ \ binary\ scan\ \$end_of_ctrl_dir\ issssiis\ \\\n\teocd(signature)\ eocd(disknbr)\ eocd(ctrldirdisk)\ \\\n\teocd(numondisk)\ eocd(totalnum)\ eocd(dirsize)\ eocd(diroffset)\ \\\n\teocd(comment_len)\n\ \ \ \ \n\ \ \ \ lappend\ report\ \"End\ of\ central\ directory:\ \[array\ get\ eocd\]\"\n\ \ \ \ \n\ \ \ \ seek\ \$out\ \[expr\ \{\$start_of_end+16\}\]\n\ \ \ \ \n\ \ \ \ #adjust\ offset\ of\ start\ of\ central\ directory\ by\ the\ length\ of\ our\ sfx\ stub\n\ \ \ \ puts\ -nonewline\ \$out\ \[binary\ format\ i\ \[expr\ \{\$eocd(diroffset)+\$offset\}\]\]\n\ \ \ \ flush\ \$out\n\ \ \ \ \n\ \ \ \ seek\ \$out\ \$start_of_end\n\ \ \ \ set\ end_of_ctrl_dir\ \[read\ \$out\]\n\ \ \ \ binary\ scan\ \$end_of_ctrl_dir\ issssiis\ \\\n\teocd(signature)\ eocd(disknbr)\ eocd(ctrldirdisk)\ \\\n\teocd(numondisk)\ eocd(totalnum)\ eocd(dirsize)\ eocd(diroffset)\ \\\n\teocd(comment_len)\n\ \ \ \ \n\ \ \ \ lappend\ report\ \"New\ dir\ offset:\ \$eocd(diroffset)\"\n\ \ \ \ lappend\ report\ \"Adjusting\ \$eocd(totalnum)\ zip\ file\ items.\"\n\ \ \ \ \n\ \ \ \ seek\ \$out\ \$eocd(diroffset)\n\ \ \ \ for\ \{set\ i\ 0\}\ \{\$i\ <\$eocd(totalnum)\}\ \{incr\ i\}\ \{\n\tset\ current_file\ \[tell\ \$out\]\n\tset\ fileheader\ \[read\ \$out\ 46\]\n\tbinary\ scan\ \$fileheader\ is2sss2ii2s3ssii\ \\\n\t\ \ \ \ x(sig)\ x(version)\ x(flags)\ x(method)\ \\\n\t\ \ \ \ x(date)\ x(crc32)\ x(sizes)\ x(lengths)\ \\\n\t\ \ \ \ x(diskno)\ x(iattr)\ x(eattr)\ x(offset)\n\t\n\tif\ \{\ \$x(sig)\ !=\ 33639248\ \}\ \{\n\t\ \ \ \ error\ \"Bad\ file\ header\ signature\ at\ item\ \$i:\ \$x(sig)\"\n\t\}\n\t\n\tforeach\ size\ \$x(lengths)\ var\ \{filename\ extrafield\ comment\}\ \{\n\t\ \ \ \ if\ \{\ \$size\ >\ 0\ \}\ \{\n\t\tset\ x(\$var)\ \[read\ \$out\ \$size\]\n\t\ \ \ \ \}\ else\ \{\n\t\tset\ x(\$var)\ \"\"\n\t\ \ \ \ \}\n\t\}\n\tset\ next_file\ \[tell\ \$out\]\n\tlappend\ report\ \"file\ \$i:\ \$x(offset)\ \$x(sizes)\ \$x(filename)\"\n\t\n\tseek\ \$out\ \[expr\ \{\$current_file+42\}\]\n\tputs\ -nonewline\ \$out\ \[binary\ format\ i\ \[expr\ \{\$x(offset)+\$offset\}\]\]\n\t\n\t#verify:\n\tflush\ \$out\n\tseek\ \$out\ \$current_file\n\tset\ fileheader\ \[read\ \$out\ 46\]\n\tlappend\ report\ \"old\ \$x(offset)\ +\ \$offset\"\n\tbinary\ scan\ \$fileheader\ is2sss2ii2s3ssii\ \\\n\t\ \ \ \ x(sig)\ x(version)\ x(flags)\ x(method)\ \\\n\t\ \ \ \ x(date)\ x(crc32)\ x(sizes)\ x(lengths)\ \\\n\t\ \ \ \ x(diskno)\ x(iattr)\ x(eattr)\ x(offset)\n\tlappend\ report\ \"new\ \$x(offset)\"\n\t\n\tseek\ \$out\ \$next_file\n\ \ \ \ \}\n\ \ \ \ #puts\ \[join\ \$report\ \\n\]\n\}\n\nif\ \{!\$tcl_interactive\}\ \{\n\ \ \ \ set\ r\ \[catch\ \{eval\ \[linsert\ \$argv\ 0\ make_zip_tm\]\}\ err\]\n\ \ \ \ puts\ \$err\n\ \ \ \ exit\ \$r\n\}\n\n#\ ---\ end\ ---\n#\ \\\n:EOF} CALL {my revision makeziptm.cmd} CALL {::oo::Obj2338951 process revision/makeziptm%2Ecmd} CALL {::oo::Obj2338949 process}

-errorcode

NONE

-errorinfo

Unknow state transition: LINE -> END
    while executing
"error $msg"
    (class "::Wiki" method "render_wikit" line 6)
    invoked from within
"my render_$default_markup $N $C $mkup_rendering_engine"
    (class "::Wiki" method "render" line 8)
    invoked from within
"my render $name $C"
    (class "::Wiki" method "revision" line 31)
    invoked from within
"my revision $page"
    (class "::Wiki" method "process" line 56)
    invoked from within
"$server process [string trim $uri /]"

-errorline

4