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 {Mavica 411 image conversion} \n\[JBR\]\ 2011-12-31\ -\ Back\ in\ the\ distant\ past\ I\ had\ a\ Sony\ Mavica\ digital\ camera.\ \ Here\ is\ some\ code\ to\ convert\ its\ native\ 411\ format\ thumbnail\ images\ to\ ppm\ and\ hence\ allow\ their\ display\ on\ a\ Tk\ canvas.\n\n======\n\n#!/usr/bin/env\ tclkit8.6\n#\n\n#\ Utilities\n#\n\ proc\ K\ \{\ x\ y\ \}\ \{\ set\ x\ \}\n\ proc\ map\ \{\ args\ \}\ \{\n\ \ \ \ set\ body\ \[lindex\ \$args\ end\]\n\ \ \ \ set\ reply\ \{\}\n\ \ \ \ foreach\ \{*\}\[lrange\ \$args\ 0\ end-1\]\ \{\ lappend\ reply\ \[eval\ \$body\]\ \}\n\n\ \ \ \ set\ reply\n\ \}\n\ proc\ cat\ \{\ file\ \}\ \{\ K\ \[read\ \[set\ fp\ \[open\ \$file\ rb\]\]\]\ \[close\ \$fp\]\ \}\n\ proc\ bytes\ \{\ data\ \}\ \{\n\ \ \ \ binary\ scan\ \$data\ c*\ X\n\ \ \ \ set\ X\n\ \}\n\n\nproc\ tcl::mathfunc::clip\ \{\ v\ min\ max\ \}\ \{\n\ \ \ \ if\ \{\ \$v\ <\ \$min\ \}\ \{\ return\ \$min\ \}\n\ \ \ \ if\ \{\ \$v\ >\ \$max\ \}\ \{\ return\ \$max\ \}\n\n\ \ \ \ return\ \$v\n\}\n\n#\ Conversion\n#\n#\ http://web.archive.org/web/20030819175903/http://mav-magazine.com/Dec1998/code411/code411.htm\n#\nproc\ yuvtorgb\ \{\ Y\ U\ V\ \}\ \{\n\ \ \ \ set\ R\ \[expr\ int(clip(\$Y\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ +\ 1.402\ *\ (\$V-128),\ 0,\ 255))\]\n\ \ \ \ set\ G\ \[expr\ int(clip(\$Y\ -\ 0.344\ *\ (\$U-128)\ -\ 0.714\ *\ (\$V-128),\ 0,\ 255))\]\n\ \ \ \ set\ B\ \[expr\ int(clip(\$Y\ +\ 1.772\ *\ (\$U-128)\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ ,\ 0,\ 255))\]\n\n\ \ \ \ list\ \$R\ \$G\ \$B\n\}\n\nproc\ 411toppm\ \{\ file\ \}\ \{\n\ \ \ \ set\ 411\ \[map\ x\ \[bytes\ \[cat\ \$file\]\]\ \{\ expr\ \$x&0xFF\ \}\]\n\ \ \ \ set\ rgb\ \[join\ \[map\ \{\ 1\ 2\ 3\ 4\ U\ V\ \}\ \$411\ \{\n\ \ \ \ \ \ \ \ list\ \{*\}\[yuvtorgb\ \$1\ \$U\ \$V\]\ \ \ \ \ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \{*\}\[yuvtorgb\ \$2\ \$U\ \$V\]\ \ \ \ \ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \{*\}\[yuvtorgb\ \$3\ \$U\ \$V\]\ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \{*\}\[yuvtorgb\ \$4\ \$U\ \$V\]\ \}\]\]\n\n\ \ \ \ subst\ \{P6\\n64\ 48\\n255\\n\[binary\ format\ c*\ \$rgb\]\}\n\}\n\n\n\n#\ Test\n#\nset\ PPM\ \[411toppm\ MVC-526X.411\]\n\npackage\ require\ Tk\n\nimage\ create\ photo\ img\ -width\ 64\ -height\ 48\ -data\ \$PPM\n\ncanvas\ .c\ -bg\ blue\n.c\ create\ image\ 3\ 3\ -anchor\ nw\ \ -image\ img\ngrid\ .c regexp2} CALL {my render {Mavica 411 image conversion} \n\[JBR\]\ 2011-12-31\ -\ Back\ in\ the\ distant\ past\ I\ had\ a\ Sony\ Mavica\ digital\ camera.\ \ Here\ is\ some\ code\ to\ convert\ its\ native\ 411\ format\ thumbnail\ images\ to\ ppm\ and\ hence\ allow\ their\ display\ on\ a\ Tk\ canvas.\n\n======\n\n#!/usr/bin/env\ tclkit8.6\n#\n\n#\ Utilities\n#\n\ proc\ K\ \{\ x\ y\ \}\ \{\ set\ x\ \}\n\ proc\ map\ \{\ args\ \}\ \{\n\ \ \ \ set\ body\ \[lindex\ \$args\ end\]\n\ \ \ \ set\ reply\ \{\}\n\ \ \ \ foreach\ \{*\}\[lrange\ \$args\ 0\ end-1\]\ \{\ lappend\ reply\ \[eval\ \$body\]\ \}\n\n\ \ \ \ set\ reply\n\ \}\n\ proc\ cat\ \{\ file\ \}\ \{\ K\ \[read\ \[set\ fp\ \[open\ \$file\ rb\]\]\]\ \[close\ \$fp\]\ \}\n\ proc\ bytes\ \{\ data\ \}\ \{\n\ \ \ \ binary\ scan\ \$data\ c*\ X\n\ \ \ \ set\ X\n\ \}\n\n\nproc\ tcl::mathfunc::clip\ \{\ v\ min\ max\ \}\ \{\n\ \ \ \ if\ \{\ \$v\ <\ \$min\ \}\ \{\ return\ \$min\ \}\n\ \ \ \ if\ \{\ \$v\ >\ \$max\ \}\ \{\ return\ \$max\ \}\n\n\ \ \ \ return\ \$v\n\}\n\n#\ Conversion\n#\n#\ http://web.archive.org/web/20030819175903/http://mav-magazine.com/Dec1998/code411/code411.htm\n#\nproc\ yuvtorgb\ \{\ Y\ U\ V\ \}\ \{\n\ \ \ \ set\ R\ \[expr\ int(clip(\$Y\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ +\ 1.402\ *\ (\$V-128),\ 0,\ 255))\]\n\ \ \ \ set\ G\ \[expr\ int(clip(\$Y\ -\ 0.344\ *\ (\$U-128)\ -\ 0.714\ *\ (\$V-128),\ 0,\ 255))\]\n\ \ \ \ set\ B\ \[expr\ int(clip(\$Y\ +\ 1.772\ *\ (\$U-128)\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ ,\ 0,\ 255))\]\n\n\ \ \ \ list\ \$R\ \$G\ \$B\n\}\n\nproc\ 411toppm\ \{\ file\ \}\ \{\n\ \ \ \ set\ 411\ \[map\ x\ \[bytes\ \[cat\ \$file\]\]\ \{\ expr\ \$x&0xFF\ \}\]\n\ \ \ \ set\ rgb\ \[join\ \[map\ \{\ 1\ 2\ 3\ 4\ U\ V\ \}\ \$411\ \{\n\ \ \ \ \ \ \ \ list\ \{*\}\[yuvtorgb\ \$1\ \$U\ \$V\]\ \ \ \ \ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \{*\}\[yuvtorgb\ \$2\ \$U\ \$V\]\ \ \ \ \ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \{*\}\[yuvtorgb\ \$3\ \$U\ \$V\]\ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \{*\}\[yuvtorgb\ \$4\ \$U\ \$V\]\ \}\]\]\n\n\ \ \ \ subst\ \{P6\\n64\ 48\\n255\\n\[binary\ format\ c*\ \$rgb\]\}\n\}\n\n\n\n#\ Test\n#\nset\ PPM\ \[411toppm\ MVC-526X.411\]\n\npackage\ require\ Tk\n\nimage\ create\ photo\ img\ -width\ 64\ -height\ 48\ -data\ \$PPM\n\ncanvas\ .c\ -bg\ blue\n.c\ create\ image\ 3\ 3\ -anchor\ nw\ \ -image\ img\ngrid\ .c} CALL {my revision {Mavica 411 image conversion}} CALL {::oo::Obj133899 process revision/Mavica+411+image+conversion} CALL {::oo::Obj133897 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