Category:Initlib: Difference between revisions
Improved display of source code, enabled syntax highlighting, and fixed sloppy formatting and typos.
m (Use a lib template) |
(Improved display of source code, enabled syntax highlighting, and fixed sloppy formatting and typos.) |
||
Line 1:
{{Library}}
Here is a library of functions tested in
<syntaxhighlight lang="shell" inline>
ghostscript -q -dNODISPLAY -c '(initlib.ps) run'
</syntaxhighlight>
== <code>initlib.ps</code> ==
<
%!PS
% conventions: parameter names with let begins with .
Line 23:
/empty? {dup length 0 eq?}.
/zero? {dup 0 eq?}.
% stack invariant, execute any predicate and
% leave stack untouched except for answer.
/? {
4 dict begin
end}.
% stacky functions
Line 64:
/uncons {getname getbody}.
/concat {exch [ rup aload pop counttomark -1 roll aload pop ] }.
% make a unit list.
/unit {1 array astore cvx}.
Line 81 ⟶ 82:
/find {
4 dict begin
end}.
/transpose {
}.
/zip {[rup] transpose}.
Line 96 ⟶ 97:
% [[1 2 3 4 ] [5 6 7 8] [9 10 11 12]] transpose
/all? {
{
}.
% 1 {{10 gt} {5 gt} {0 gt}} any?
/any? {
{
}.
/pipe {
{
}.
% 1 {{2 *} {3 *} {5 *}} pipe
/collect {
{
}.
% 1 {{2 *} {3 *} {5 *}} collect
Line 126 ⟶ 127:
/treemap {
[/.tree /.rec] let
end}.
Line 140 ⟶ 141:
/ift {
[/.if /.then] let
end}.
% ift - allow stack invariant ifelse condition
/ifte {
[/.if /.then /.else] let
end}.
% switch statement.
Line 154 ⟶ 155:
/dip {
[/.v /.q] let
end}.
/apply {exec}.
Line 161 ⟶ 162:
/linrec {
[/.if /.then /.rec1 /.rec2] let
end}.
/binrec {
[/.if /.then /.rec1 /.rec2] let
end}.
/genrec {
[/.if /.then /.rec1 /.rec2] let
end}.
Line 191 ⟶ 192:
/primrec {
5 dict begin
[/.param /.then /.rec] let*
end}.
/cvstr {
{
%
%
end
} def
Line 230 ⟶ 231:
/puts {= (\n) print flush}.
/, {(=============\n)
% set the prompt to something else so that we know initlib is loaded.
/prompt {(>| ) print flush} bind def</syntaxhighlight>
| |||