Category:Initlib: Difference between revisions

Content added Content deleted

Inline

@@ Line 23: / Line 23: @@
 /empty? {dup length 0 eq?}.
 /zero? {dup 0 eq?}.
+% stack invariant, execute any predicate and leave stack untouched
+% except for answer.
+/? {
+dict begin
+    [/.pred] let*
+    count array astore /.stack exch def
+    /_restore {clear .stack aload pop}.
+    .stack aload pop .pred /.top exch def
+    _restore .top
+end}.
 % stacky functions
@@ Line 80: / Line 91: @@
     } loop pop pop]
 }.
+/all? {
+    {
+        {empty?} ? {pop true exit} if
+        uncons {?} dip exch not {pop false exit} if
+    } loop
+}.
+/any? {
+    {
+        {empty?} ? {pop false exit} if
+        uncons {?} dip exch {pop true exit} if
+    } loop
+}.
+/pipe {
+    {
+        {empty?} ? {pop exit} if
+        uncons {i} dip
+    } loop
+}.
+%  1 {{2 *} {3 *} {5 *}} pipe
+/collect {
+    {
+        {empty?} ? {pop exit} if
+        uncons {?} dip
+    } loop
+}.
+%  1 {{2 *} {3 *} {5 *}} collect
 % do on all elements of a tree.
@@ Line 97: / Line 136: @@
 % ift - allow stack invariant if condition
 /ift {
+[/.if /.then] let
-dict begin
-    [/.if /.then] let*
+    /.if ' ?  /.then ' if
-    count array astore /.stack exch def
-    /_restore {clear .stack aload pop}.
-    .stack aload pop .if {
-       _restore .then
-    } {
-       _restore
-    } ifelse
 end}.
 % ift - allow stack invariant ifelse condition
 /ifte {
+[/.if /.then /.else] let
-dict begin
-    [/.if /.then /.else] let*
+    /.if ' ?  /.then ' /.else ' ifelse
-    count array astore /.stack exch def
-    /_restore {count array astore pop .stack aload pop}.
-    .stack aload pop .if {
-       _restore .then
-    } {
-       _restore .else
-    } ifelse
 end}.
 % switch statement.
@@ Line 178: / Line 203: @@
     ifte
 end}.
+/cvstr {
+dict begin
+        /elements exch def
+        /len elements length def
+        /str len string def
+        /i 0 def
+        {
+        i len ge { exit } if
+        str i
+        %The element of the array, as a hexadecimal string.
+        %If it exceeds 16#FF, this will fail with a rangecheck.
+        elements i get cvi
+        put
+        /i i 1 add def
+    } loop
+    str
+end
+} def