From fa64b741462df46ef63fe815dfce01b7d3d48f13 Mon Sep 17 00:00:00 2001 From: Joel Martin Date: Sat, 10 May 2014 16:29:07 -0500 Subject: PS: include/run from same directory. --- README.md | 2 +- ps/step1_read_print.ps | 7 ++++--- ps/step2_eval.ps | 7 ++++--- ps/step3_env.ps | 9 +++++---- ps/step4_if_fn_do.ps | 11 ++++++----- ps/step5_tco.ps | 11 ++++++----- ps/step6_file.ps | 11 ++++++----- ps/step7_quote.ps | 11 ++++++----- ps/step8_macros.ps | 11 ++++++----- ps/step9_interop.ps | 11 ++++++----- ps/stepA_more.ps | 11 ++++++----- 11 files changed, 56 insertions(+), 46 deletions(-) diff --git a/README.md b/README.md index 1583f1d..f03bf83 100644 --- a/README.md +++ b/README.md @@ -144,7 +144,7 @@ php stepX_YYY.php ``` cd ps -gs -q -dNODISPLAY stepX_YYY.ps +gs -q -dNODISPLAY -I./ stepX_YYY.ps ``` ### Python (2 or 3) diff --git a/ps/step1_read_print.ps b/ps/step1_read_print.ps index 476c917..858987c 100644 --- a/ps/step1_read_print.ps +++ b/ps/step1_read_print.ps @@ -1,6 +1,7 @@ -(types.ps) run -(reader.ps) run -(printer.ps) run +/runlibfile where { pop }{ /runlibfile { run } def } ifelse % +(types.ps) runlibfile +(reader.ps) runlibfile +(printer.ps) runlibfile % read /_readline { print flush (%stdin) (r) file 99 string readline } def diff --git a/ps/step2_eval.ps b/ps/step2_eval.ps index 551c637..215fc2e 100644 --- a/ps/step2_eval.ps +++ b/ps/step2_eval.ps @@ -1,6 +1,7 @@ -(types.ps) run -(reader.ps) run -(printer.ps) run +/runlibfile where { pop }{ /runlibfile { run } def } ifelse % +(types.ps) runlibfile +(reader.ps) runlibfile +(printer.ps) runlibfile % read /_readline { print flush (%stdin) (r) file 99 string readline } def diff --git a/ps/step3_env.ps b/ps/step3_env.ps index 92dc26e..e662c11 100644 --- a/ps/step3_env.ps +++ b/ps/step3_env.ps @@ -1,7 +1,8 @@ -(types.ps) run -(reader.ps) run -(printer.ps) run -(env.ps) run +/runlibfile where { pop }{ /runlibfile { run } def } ifelse % +(types.ps) runlibfile +(reader.ps) runlibfile +(printer.ps) runlibfile +(env.ps) runlibfile % read /_readline { print flush (%stdin) (r) file 99 string readline } def diff --git a/ps/step4_if_fn_do.ps b/ps/step4_if_fn_do.ps index 9e628b6..422f6eb 100644 --- a/ps/step4_if_fn_do.ps +++ b/ps/step4_if_fn_do.ps @@ -1,8 +1,9 @@ -(types.ps) run -(reader.ps) run -(printer.ps) run -(env.ps) run -(core.ps) run +/runlibfile where { pop }{ /runlibfile { run } def } ifelse % +(types.ps) runlibfile +(reader.ps) runlibfile +(printer.ps) runlibfile +(env.ps) runlibfile +(core.ps) runlibfile % read /_readline { print flush (%stdin) (r) file 99 string readline } def diff --git a/ps/step5_tco.ps b/ps/step5_tco.ps index 83fd43b..680c359 100644 --- a/ps/step5_tco.ps +++ b/ps/step5_tco.ps @@ -1,8 +1,9 @@ -(types.ps) run -(reader.ps) run -(printer.ps) run -(env.ps) run -(core.ps) run +/runlibfile where { pop }{ /runlibfile { run } def } ifelse % +(types.ps) runlibfile +(reader.ps) runlibfile +(printer.ps) runlibfile +(env.ps) runlibfile +(core.ps) runlibfile % read /_readline { print flush (%stdin) (r) file 99 string readline } def diff --git a/ps/step6_file.ps b/ps/step6_file.ps index 7d1c876..bc30e35 100644 --- a/ps/step6_file.ps +++ b/ps/step6_file.ps @@ -1,8 +1,9 @@ -(types.ps) run -(reader.ps) run -(printer.ps) run -(env.ps) run -(core.ps) run +/runlibfile where { pop }{ /runlibfile { run } def } ifelse % +(types.ps) runlibfile +(reader.ps) runlibfile +(printer.ps) runlibfile +(env.ps) runlibfile +(core.ps) runlibfile % read /_readline { print flush (%stdin) (r) file 99 string readline } def diff --git a/ps/step7_quote.ps b/ps/step7_quote.ps index d7340fd..3dd9c0c 100644 --- a/ps/step7_quote.ps +++ b/ps/step7_quote.ps @@ -1,8 +1,9 @@ -(types.ps) run -(reader.ps) run -(printer.ps) run -(env.ps) run -(core.ps) run +/runlibfile where { pop }{ /runlibfile { run } def } ifelse % +(types.ps) runlibfile +(reader.ps) runlibfile +(printer.ps) runlibfile +(env.ps) runlibfile +(core.ps) runlibfile % read /_readline { print flush (%stdin) (r) file 99 string readline } def diff --git a/ps/step8_macros.ps b/ps/step8_macros.ps index 3bf304c..32ca3af 100644 --- a/ps/step8_macros.ps +++ b/ps/step8_macros.ps @@ -1,8 +1,9 @@ -(types.ps) run -(reader.ps) run -(printer.ps) run -(env.ps) run -(core.ps) run +/runlibfile where { pop }{ /runlibfile { run } def } ifelse % +(types.ps) runlibfile +(reader.ps) runlibfile +(printer.ps) runlibfile +(env.ps) runlibfile +(core.ps) runlibfile % read /_readline { print flush (%stdin) (r) file 99 string readline } def diff --git a/ps/step9_interop.ps b/ps/step9_interop.ps index de3d2af..7f90d20 100644 --- a/ps/step9_interop.ps +++ b/ps/step9_interop.ps @@ -1,8 +1,9 @@ -(types.ps) run -(reader.ps) run -(printer.ps) run -(env.ps) run -(core.ps) run +/runlibfile where { pop }{ /runlibfile { run } def } ifelse % +(types.ps) runlibfile +(reader.ps) runlibfile +(printer.ps) runlibfile +(env.ps) runlibfile +(core.ps) runlibfile % read /_readline { print flush (%stdin) (r) file 99 string readline } def diff --git a/ps/stepA_more.ps b/ps/stepA_more.ps index 76d0a86..a24ee28 100644 --- a/ps/stepA_more.ps +++ b/ps/stepA_more.ps @@ -1,8 +1,9 @@ -(types.ps) run -(reader.ps) run -(printer.ps) run -(env.ps) run -(core.ps) run +/runlibfile where { pop }{ /runlibfile { run } def } ifelse % +(types.ps) runlibfile +(reader.ps) runlibfile +(printer.ps) runlibfile +(env.ps) runlibfile +(core.ps) runlibfile % read /_readline { print flush (%stdin) (r) file 99 string readline } def -- cgit v1.2.3