# HG changeset patch
# User haftmann
# Date 1162883026 -3600
# Node ID 48b8d8b8334de9b24bf7c7a1597992f60d0b7940
# Parent  44b09f675a89e3323a087454d79c9694dd08907f
added gfx

diff -r 44b09f675a89 -r 48b8d8b8334d doc-src/IsarAdvanced/Codegen/codegen_process.ps
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/doc-src/IsarAdvanced/Codegen/codegen_process.ps	Tue Nov 07 08:03:46 2006 +0100
@@ -0,0 +1,582 @@
+%!PS-Adobe-2.0
+%%Creator: dot version 2.2 (Tue Mar 22 18:02:44 UTC 2005)
+%%For: (haftmann) Florian Haftmann
+%%Title: _anonymous_0
+%%Pages: (atend)
+%%BoundingBox: 35 35 417 289
+%%EndComments
+save
+%%BeginProlog
+/DotDict 200 dict def
+DotDict begin
+
+/setupLatin1 {
+mark
+/EncodingVector 256 array def
+ EncodingVector 0
+
+ISOLatin1Encoding 0 255 getinterval putinterval
+
+EncodingVector
+  dup 306 /AE
+  dup 301 /Aacute
+  dup 302 /Acircumflex
+  dup 304 /Adieresis
+  dup 300 /Agrave
+  dup 305 /Aring
+  dup 303 /Atilde
+  dup 307 /Ccedilla
+  dup 311 /Eacute
+  dup 312 /Ecircumflex
+  dup 313 /Edieresis
+  dup 310 /Egrave
+  dup 315 /Iacute
+  dup 316 /Icircumflex
+  dup 317 /Idieresis
+  dup 314 /Igrave
+  dup 334 /Udieresis
+  dup 335 /Yacute
+  dup 376 /thorn
+  dup 337 /germandbls
+  dup 341 /aacute
+  dup 342 /acircumflex
+  dup 344 /adieresis
+  dup 346 /ae
+  dup 340 /agrave
+  dup 345 /aring
+  dup 347 /ccedilla
+  dup 351 /eacute
+  dup 352 /ecircumflex
+  dup 353 /edieresis
+  dup 350 /egrave
+  dup 355 /iacute
+  dup 356 /icircumflex
+  dup 357 /idieresis
+  dup 354 /igrave
+  dup 360 /dcroat
+  dup 361 /ntilde
+  dup 363 /oacute
+  dup 364 /ocircumflex
+  dup 366 /odieresis
+  dup 362 /ograve
+  dup 365 /otilde
+  dup 370 /oslash
+  dup 372 /uacute
+  dup 373 /ucircumflex
+  dup 374 /udieresis
+  dup 371 /ugrave
+  dup 375 /yacute
+  dup 377 /ydieresis  
+
+% Set up ISO Latin 1 character encoding
+/starnetISO {
+        dup dup findfont dup length dict begin
+        { 1 index /FID ne { def }{ pop pop } ifelse
+        } forall
+        /Encoding EncodingVector def
+        currentdict end definefont
+} def
+/Times-Roman starnetISO def
+/Times-Italic starnetISO def
+/Times-Bold starnetISO def
+/Times-BoldItalic starnetISO def
+/Helvetica starnetISO def
+/Helvetica-Oblique starnetISO def
+/Helvetica-Bold starnetISO def
+/Helvetica-BoldOblique starnetISO def
+/Courier starnetISO def
+/Courier-Oblique starnetISO def
+/Courier-Bold starnetISO def
+/Courier-BoldOblique starnetISO def
+cleartomark
+} bind def
+
+%%BeginResource: procset graphviz 0 0
+/coord-font-family /Times-Roman def
+/default-font-family /Times-Roman def
+/coordfont coord-font-family findfont 8 scalefont def
+
+/InvScaleFactor 1.0 def
+/set_scale {
+	dup 1 exch div /InvScaleFactor exch def
+	dup scale
+} bind def
+
+% styles
+/solid { [] 0 setdash } bind def
+/dashed { [9 InvScaleFactor mul dup ] 0 setdash } bind def
+/dotted { [1 InvScaleFactor mul 6 InvScaleFactor mul] 0 setdash } bind def
+/invis {/fill {newpath} def /stroke {newpath} def /show {pop newpath} def} bind def
+/bold { 2 setlinewidth } bind def
+/filled { } bind def
+/unfilled { } bind def
+/rounded { } bind def
+/diagonals { } bind def
+
+% hooks for setting color 
+/nodecolor { sethsbcolor } bind def
+/edgecolor { sethsbcolor } bind def
+/graphcolor { sethsbcolor } bind def
+/nopcolor {pop pop pop} bind def
+
+/beginpage {	% i j npages
+	/npages exch def
+	/j exch def
+	/i exch def
+	/str 10 string def
+	npages 1 gt {
+		gsave
+			coordfont setfont
+			0 0 moveto
+			(\() show i str cvs show (,) show j str cvs show (\)) show
+		grestore
+	} if
+} bind def
+
+/set_font {
+	findfont exch
+	scalefont setfont
+} def
+
+% draw aligned label in bounding box aligned to current point
+/alignedtext {			% width adj text
+	/text exch def
+	/adj exch def
+	/width exch def
+	gsave
+		width 0 gt {
+			text stringwidth pop adj mul 0 rmoveto
+		} if
+		[] 0 setdash
+		text show
+	grestore
+} def
+
+/boxprim {				% xcorner ycorner xsize ysize
+		4 2 roll
+		moveto
+		2 copy
+		exch 0 rlineto
+		0 exch rlineto
+		pop neg 0 rlineto
+		closepath
+} bind def
+
+/ellipse_path {
+	/ry exch def
+	/rx exch def
+	/y exch def
+	/x exch def
+	matrix currentmatrix
+	newpath
+	x y translate
+	rx ry scale
+	0 0 1 0 360 arc
+	setmatrix
+} bind def
+
+/endpage { showpage } bind def
+/showpage { } def
+
+/layercolorseq
+	[	% layer color sequence - darkest to lightest
+		[0 0 0]
+		[.2 .8 .8]
+		[.4 .8 .8]
+		[.6 .8 .8]
+		[.8 .8 .8]
+	]
+def
+
+/layerlen layercolorseq length def
+
+/setlayer {/maxlayer exch def /curlayer exch def
+	layercolorseq curlayer 1 sub layerlen mod get
+	aload pop sethsbcolor
+	/nodecolor {nopcolor} def
+	/edgecolor {nopcolor} def
+	/graphcolor {nopcolor} def
+} bind def
+
+/onlayer { curlayer ne {invis} if } def
+
+/onlayers {
+	/myupper exch def
+	/mylower exch def
+	curlayer mylower lt
+	curlayer myupper gt
+	or
+	{invis} if
+} def
+
+/curlayer 0 def
+
+%%EndResource
+%%EndProlog
+%%BeginSetup
+14 default-font-family set_font
+1 setmiterlimit
+% /arrowlength 10 def
+% /arrowwidth 5 def
+
+% make sure pdfmark is harmless for PS-interpreters other than Distiller
+/pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse
+% make '<<' and '>>' safe on PS Level 1 devices
+/languagelevel where {pop languagelevel}{1} ifelse
+2 lt {
+    userdict (<<) cvn ([) cvn load put
+    userdict (>>) cvn ([) cvn load put
+} if
+
+%%EndSetup
+%%Page: 1 1
+%%PageBoundingBox: 36 36 417 289
+%%PageOrientation: Portrait
+gsave
+35 35 382 254 boxprim clip newpath
+36 36 translate
+0 0 1 beginpage
+0 0 translate 0 rotate
+[ /CropBox [36 36 417 289] /PAGES pdfmark
+0.000 0.000 0.000 graphcolor
+14.00 /Times-Roman set_font
+
+%	theory
+gsave 10 dict begin
+newpath 57 252 moveto
+3 252 lineto
+3 216 lineto
+57 216 lineto
+closepath
+stroke
+gsave 10 dict begin
+11 229 moveto
+(theory)
+[4.08 6.96 6.24 6.96 4.8 6.96]
+xshow
+end grestore
+end grestore
+
+%	selection
+gsave 10 dict begin
+149 234 38 18 ellipse_path
+stroke
+gsave 10 dict begin
+124 229 moveto
+(selection)
+[5.52 6.24 3.84 6.24 6.24 3.84 3.84 6.96 6.96]
+xshow
+end grestore
+end grestore
+
+%	theory -> selection
+newpath 57 234 moveto
+70 234 86 234 101 234 curveto
+stroke
+gsave 10 dict begin
+solid
+1 setlinewidth
+0.000 0.000 0.000 edgecolor
+newpath 101 238 moveto
+111 234 lineto
+101 231 lineto
+closepath
+fill
+0.000 0.000 0.000 edgecolor
+newpath 101 238 moveto
+111 234 lineto
+101 231 lineto
+closepath
+stroke
+end grestore
+
+%	sml
+gsave 10 dict begin
+newpath 57 144 moveto
+3 144 lineto
+3 108 lineto
+57 108 lineto
+closepath
+stroke
+gsave 10 dict begin
+15 121 moveto
+(SML)
+[7.68 12.48 8.64]
+xshow
+end grestore
+end grestore
+
+%	other
+gsave 10 dict begin
+gsave 10 dict begin
+24 67 moveto
+(...)
+[3.6 3.6 3.6]
+xshow
+end grestore
+end grestore
+
+%	haskell
+gsave 10 dict begin
+newpath 60 36 moveto
+0 36 lineto
+0 0 lineto
+60 0 lineto
+closepath
+stroke
+gsave 10 dict begin
+8 13 moveto
+(Haskell)
+[10.08 6.24 5.52 6.72 6.24 3.84 3.84]
+xshow
+end grestore
+end grestore
+
+%	preprocessing
+gsave 10 dict begin
+149 180 52 18 ellipse_path
+stroke
+gsave 10 dict begin
+109 175 moveto
+(preprocessing)
+[6.96 4.56 6.24 6.96 4.56 6.96 6.24 6.24 5.52 5.52 3.84 6.96 6.96]
+xshow
+end grestore
+end grestore
+
+%	selection -> preprocessing
+newpath 149 216 moveto
+149 213 149 211 149 208 curveto
+stroke
+gsave 10 dict begin
+solid
+1 setlinewidth
+0.000 0.000 0.000 edgecolor
+newpath 153 208 moveto
+149 198 lineto
+146 208 lineto
+closepath
+fill
+0.000 0.000 0.000 edgecolor
+newpath 153 208 moveto
+149 198 lineto
+146 208 lineto
+closepath
+stroke
+end grestore
+
+%	code_thm
+gsave 10 dict begin
+newpath 358 198 moveto
+260 198 lineto
+260 162 lineto
+358 162 lineto
+closepath
+stroke
+gsave 10 dict begin
+268 175 moveto
+(code theorems)
+[6.24 6.96 6.96 6.24 3.6 4.08 6.96 6.24 6.96 4.56 6.24 10.8 5.52]
+xshow
+end grestore
+end grestore
+
+%	preprocessing -> code_thm
+newpath 202 180 moveto
+218 180 234 180 250 180 curveto
+stroke
+gsave 10 dict begin
+solid
+1 setlinewidth
+0.000 0.000 0.000 edgecolor
+newpath 250 184 moveto
+260 180 lineto
+250 177 lineto
+closepath
+fill
+0.000 0.000 0.000 edgecolor
+newpath 250 184 moveto
+260 180 lineto
+250 177 lineto
+closepath
+stroke
+end grestore
+
+%	serialization
+gsave 10 dict begin
+149 72 47 18 ellipse_path
+stroke
+gsave 10 dict begin
+114 67 moveto
+(serialization)
+[5.52 6.24 4.8 3.84 6.24 3.84 3.84 6.24 6.24 3.84 3.84 6.96 6.96]
+xshow
+end grestore
+end grestore
+
+%	serialization -> sml
+newpath 118 86 moveto
+102 94 83 102 66 110 curveto
+stroke
+gsave 10 dict begin
+solid
+1 setlinewidth
+0.000 0.000 0.000 edgecolor
+newpath 65 107 moveto
+57 114 lineto
+68 113 lineto
+closepath
+fill
+0.000 0.000 0.000 edgecolor
+newpath 65 107 moveto
+57 114 lineto
+68 113 lineto
+closepath
+stroke
+end grestore
+
+%	serialization -> other
+gsave 10 dict begin
+dotted
+newpath 101 72 moveto
+90 72 78 72 67 72 curveto
+stroke
+gsave 10 dict begin
+solid
+1 setlinewidth
+0.000 0.000 0.000 edgecolor
+newpath 67 69 moveto
+57 72 lineto
+67 76 lineto
+closepath
+fill
+0.000 0.000 0.000 edgecolor
+newpath 67 69 moveto
+57 72 lineto
+67 76 lineto
+closepath
+stroke
+end grestore
+end grestore
+
+%	serialization -> haskell
+newpath 118 58 moveto
+103 51 85 43 69 36 curveto
+stroke
+gsave 10 dict begin
+solid
+1 setlinewidth
+0.000 0.000 0.000 edgecolor
+newpath 71 33 moveto
+60 32 lineto
+68 39 lineto
+closepath
+fill
+0.000 0.000 0.000 edgecolor
+newpath 71 33 moveto
+60 32 lineto
+68 39 lineto
+closepath
+stroke
+end grestore
+
+%	extraction
+gsave 10 dict begin
+309 126 41 18 ellipse_path
+stroke
+gsave 10 dict begin
+281 121 moveto
+(extraction)
+[5.76 6.96 3.84 4.56 6.24 6.24 3.84 3.84 6.96 6.96]
+xshow
+end grestore
+end grestore
+
+%	code_thm -> extraction
+newpath 309 162 moveto
+309 159 309 157 309 154 curveto
+stroke
+gsave 10 dict begin
+solid
+1 setlinewidth
+0.000 0.000 0.000 edgecolor
+newpath 313 154 moveto
+309 144 lineto
+306 154 lineto
+closepath
+fill
+0.000 0.000 0.000 edgecolor
+newpath 313 154 moveto
+309 144 lineto
+306 154 lineto
+closepath
+stroke
+end grestore
+
+%	iml
+gsave 10 dict begin
+newpath 379 90 moveto
+239 90 lineto
+239 54 lineto
+379 54 lineto
+closepath
+stroke
+gsave 10 dict begin
+246 67 moveto
+(intermediate language)
+[3.84 6.96 3.84 6.24 4.8 10.8 6.24 6.96 3.84 6.24 3.84 6.24 3.6 3.84 6.24 6.96 6.96 6.96 6.24 6.72 6.24]
+xshow
+end grestore
+end grestore
+
+%	extraction -> iml
+newpath 309 108 moveto
+309 105 309 103 309 100 curveto
+stroke
+gsave 10 dict begin
+solid
+1 setlinewidth
+0.000 0.000 0.000 edgecolor
+newpath 313 100 moveto
+309 90 lineto
+306 100 lineto
+closepath
+fill
+0.000 0.000 0.000 edgecolor
+newpath 313 100 moveto
+309 90 lineto
+306 100 lineto
+closepath
+stroke
+end grestore
+
+%	iml -> serialization
+newpath 238 72 moveto
+228 72 217 72 207 72 curveto
+stroke
+gsave 10 dict begin
+solid
+1 setlinewidth
+0.000 0.000 0.000 edgecolor
+newpath 207 69 moveto
+197 72 lineto
+207 76 lineto
+closepath
+fill
+0.000 0.000 0.000 edgecolor
+newpath 207 69 moveto
+197 72 lineto
+207 76 lineto
+closepath
+stroke
+end grestore
+endpage
+showpage
+grestore
+%%PageTrailer
+%%EndPage: 1
+%%Trailer
+%%Pages: 1
+end
+restore
+%%EOF