Adding Lisp-inspired data and control utilities.

1 files changed, 392 insertions, 0 deletions

diff --git a/cppawk-include/varg-priv.h b/cppawk-include/varg-priv.h
new file mode 100644
index 0000000..33616fd
--- /dev/null
+++ b/cppawk-include/varg-priv.h
@@ -0,0 +1,392 @@
+// cppawk: C preprocessor wrapper around awk
+// Kaz Kylheku <kaz@kylheku.com>
+//
+// BSD-2 License
+//
+// Redistribution and use in source and binary forms, with or without
+// modification, are permitted provided that the following conditions are met:
+//
+// 1. Redistributions of source code must retain the above copyright notice,
+//    this list of conditions and the following disclaimer.
+//
+// 2. Redistributions in binary form must reproduce the above copyright notice,
+//    this list of conditions and the following disclaimer in the documentation
+//    and/or other materials provided with the distribution.
+//
+// THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+// AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+// IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+// ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
+// LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+// CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+// SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+// INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+// CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+// ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+// POSSIBILITY OF SUCH DAMAGE.
+
+#ifndef __CPPAWK_VARG_PRIV_H
+#define __CPPAWK_VARG_PRIV_H
+
+#ifndef __CPPAWK_BASE_H
+#include "base.h"
+#endif
+
+#ifndef __CPPAWK_CASE_PRIV_H
+#include "case-priv.h"
+#endif
+
+#ifndef __CPPAWK_CONS_H
+#include "cons.h"
+#endif
+
+#define __rest                                                                \
+  __r1, __r2, __r3, __r4, __r5, __r6, __r7, __r8, __r9, __r10,  __r11,        \
+  __r12, __r13, __r14, __r15, __r16, __r17, __r18, __r19, __r20, __r21,       \
+  __r22, __r23, __r24, __r25, __r26, __r27, __r28, __r29, __r30, __r31, __r32
+
+#define __varg_count(name, check, count)                                  \
+  if (__present(check))                                                       \
+    __error(name ": too many arguments");                                     \
+  count = 0;                                                                  \
+  if (__present(__r16)) {                                                     \
+    if (__present(__r24)) {                                                   \
+      if (__present(__r28)) {                                                 \
+        if (__present(__r30)) {                                               \
+          if (__present(__r31)) {                                             \
+            if (__present(__r32))                                             \
+              count = 32;                                                     \
+            else                                                              \
+              count = 31;                                                     \
+          } else {                                                            \
+            count = 30;                                                       \
+          }                                                                   \
+        } else { /* !__present(__r30) */                                      \
+          if (__present(__r29))                                               \
+            count = 29;                                                       \
+          else                                                                \
+            count = 28;                                                       \
+        }                                                                     \
+      } else { /* !__present(__r28) */                                        \
+        if (__present(__r26)) {                                               \
+          if (__present(__r27))                                               \
+            count = 27;                                                       \
+          else                                                                \
+            count = 26;                                                       \
+        } else { /* !__present(__r26) */                                      \
+          if (__present(__r25))                                               \
+            count = 25;                                                       \
+          else                                                                \
+            count = 24;                                                       \
+        }                                                                     \
+      }                                                                       \
+    } else { /* !__present(__r24) */                                          \
+      if (__present(__r20)) {                                                 \
+        if (__present(__r22)) {                                               \
+          if (__present(__r23))                                               \
+            count = 23;                                                       \
+          else                                                                \
+            count = 22;                                                       \
+        } else { /* !__present(__r22) */                                      \
+          if (__present(__r21))                                               \
+            count = 21;                                                       \
+          else                                                                \
+            count = 20;                                                       \
+        }                                                                     \
+      } else { /* !__present(__r20) */                                        \
+        if (__present(__r18)) {                                               \
+          if (__present(__r19))                                               \
+            count = 19;                                                       \
+          else                                                                \
+            count = 18;                                                       \
+        } else { /* !__present(__r18) */                                      \
+          if (__present(__r17))                                               \
+            count = 17;                                                       \
+          else                                                                \
+            count = 16;                                                       \
+        }                                                                     \
+      }                                                                       \
+    }                                                                         \
+  } else { /*!__present(__r16) */                                             \
+    if (__present(__r8)) {                                                    \
+      if (__present(__r12)) {                                                 \
+        if (__present(__r14)) {                                               \
+          if (__present(__r15)) {                                             \
+            count = 15;                                                       \
+          } else {                                                            \
+            count = 14;                                                       \
+          }                                                                   \
+        } else { /* !__present(__r14) */                                      \
+          if (__present(__r13))                                               \
+            count = 13;                                                       \
+          else                                                                \
+            count = 12;                                                       \
+        }                                                                     \
+      } else { /* !__present(__r12) */                                        \
+        if (__present(__r10)) {                                               \
+          if (__present(__r11))                                               \
+            count = 11;                                                       \
+          else                                                                \
+            count = 10;                                                       \
+        } else { /* !__present(__r10) */                                      \
+          if (__present(__r9))                                                \
+            count = 9;                                                        \
+          else                                                                \
+            count = 8;                                                        \
+        }                                                                     \
+      }                                                                       \
+    } else { /* !__present(__r8) */                                           \
+      if (__present(__r4)) {                                                  \
+        if (__present(__r6)) {                                                \
+          if (__present(__r7))                                                \
+            count = 7;                                                        \
+          else                                                                \
+            count = 6;                                                        \
+        } else { /* !__present(__r6) */                                       \
+          if (__present(__r5))                                                \
+            count = 5;                                                        \
+          else                                                                \
+            count = 4;                                                        \
+        }                                                                     \
+      } else { /* !__present(__r4) */                                         \
+        if (__present(__r2)) {                                                \
+          if (__present(__r3))                                                \
+            count = 3;                                                        \
+          else                                                                \
+            count = 2;                                                        \
+        } else { /* !__present(__r2) */                                       \
+          if (__present(__r1))                                                \
+            count = 1;                                                        \
+        }                                                                     \
+      }                                                                       \
+    }                                                                         \
+  }
+
+#define __varg_list(name, check, count, out)                              \
+  __varg_count(name, check, count);                                       \
+  out = nil;                                                                  \
+  __case (count) {                                                            \
+    __of (32)                                                                 \
+      out = cons(__r32, out);                                                 \
+      __cfall;                                                                \
+    __of (31)                                                                 \
+      out = cons(__r31, out);                                                 \
+      __cfall;                                                                \
+    __of (30)                                                                 \
+      out = cons(__r30, out);                                                 \
+      __cfall;                                                                \
+    __of (29)                                                                 \
+      out = cons(__r29, out);                                                 \
+      __cfall;                                                                \
+    __of (28)                                                                 \
+      out = cons(__r28, out);                                                 \
+      __cfall;                                                                \
+    __of (27)                                                                 \
+      out = cons(__r27, out);                                                 \
+      __cfall;                                                                \
+    __of (26)                                                                 \
+      out = cons(__r26, out);                                                 \
+      __cfall;                                                                \
+    __of (25)                                                                 \
+      out = cons(__r25, out);                                                 \
+      __cfall;                                                                \
+    __of (24)                                                                 \
+      out = cons(__r24, out);                                                 \
+      __cfall;                                                                \
+    __of (23)                                                                 \
+      out = cons(__r23, out);                                                 \
+      __cfall;                                                                \
+    __of (22)                                                                 \
+      out = cons(__r22, out);                                                 \
+      __cfall;                                                                \
+    __of (21)                                                                 \
+      out = cons(__r21, out);                                                 \
+      __cfall;                                                                \
+    __of (20)                                                                 \
+      out = cons(__r20, out);                                                 \
+      __cfall;                                                                \
+    __of (19)                                                                 \
+      out = cons(__r19, out);                                                 \
+      __cfall;                                                                \
+    __of (18)                                                                 \
+      out = cons(__r18, out);                                                 \
+      __cfall;                                                                \
+    __of (17)                                                                 \
+      out = cons(__r17, out);                                                 \
+      __cfall;                                                                \
+    __of (16)                                                                 \
+      out = cons(__r16, out);                                                 \
+      __cfall;                                                                \
+    __of (15)                                                                 \
+      out = cons(__r15, out);                                                 \
+      __cfall;                                                                \
+    __of (14)                                                                 \
+      out = cons(__r14, out);                                                 \
+      __cfall;                                                                \
+    __of (13)                                                                 \
+      out = cons(__r13, out);                                                 \
+      __cfall;                                                                \
+    __of (12)                                                                 \
+      out = cons(__r12, out);                                                 \
+      __cfall;                                                                \
+    __of (11)                                                                 \
+      out = cons(__r11, out);                                                 \
+      __cfall;                                                                \
+    __of (10)                                                                 \
+      out = cons(__r10, out);                                                 \
+      __cfall;                                                                \
+    __of (9)                                                                  \
+      out = cons(__r9, out);                                                  \
+      __cfall;                                                                \
+    __of (8)                                                                  \
+      out = cons(__r8, out);                                                  \
+      __cfall;                                                                \
+    __of (7)                                                                  \
+      out = cons(__r7, out);                                                  \
+      __cfall;                                                                \
+    __of (6)                                                                  \
+      out = cons(__r6, out);                                                  \
+      __cfall;                                                                \
+    __of (5)                                                                  \
+      out = cons(__r5, out);                                                  \
+      __cfall;                                                                \
+    __of (4)                                                                  \
+      out = cons(__r4, out);                                                  \
+      __cfall;                                                                \
+    __of (3)                                                                  \
+      out = cons(__r3, out);                                                  \
+      __cfall;                                                                \
+    __of (2)                                                                  \
+      out = cons(__r2, out);                                                  \
+      __cfall;                                                                \
+    __of (1)                                                                  \
+      out = cons(__r1, out);                                                  \
+      __cfall;                                                                \
+  }
+
+#define __varg_array(name, check, count, out)                             \
+  __varg_count(name, check, count);                                       \
+  delete out;                                                                 \
+  __case (count) {                                                            \
+    __of (32)                                                                 \
+      out[32] = __r32;                                                        \
+      __cfall;                                                                \
+    __of (31)                                                                 \
+      out[31] = __r31;                                                        \
+      __cfall;                                                                \
+    __of (30)                                                                 \
+      out[30] = __r30;                                                        \
+      __cfall;                                                                \
+    __of (29)                                                                 \
+      out[29] = __r29;                                                        \
+      __cfall;                                                                \
+    __of (28)                                                                 \
+      out[28] = __r28;                                                        \
+      __cfall;                                                                \
+    __of (27)                                                                 \
+      out[27] = __r27;                                                        \
+      __cfall;                                                                \
+    __of (26)                                                                 \
+      out[26] = __r26;                                                        \
+      __cfall;                                                                \
+    __of (25)                                                                 \
+      out[25] = __r25;                                                         \
+      __cfall;                                                                \
+    __of (24)                                                                 \
+      out[24] = __r24;                                                        \
+      __cfall;                                                                \
+    __of (23)                                                                 \
+      out[23] = __r23;                                                        \
+      __cfall;                                                                \
+    __of (22)                                                                 \
+      out[22] = __r22;                                                        \
+      __cfall;                                                                \
+    __of (21)                                                                 \
+      out[21] = __r21;                                                        \
+      __cfall;                                                                \
+    __of (20)                                                                 \
+      out[20] = __r20;                                                        \
+      __cfall;                                                                \
+    __of (19)                                                                 \
+      out[19] = __r19;                                                        \
+      __cfall;                                                                \
+    __of (18)                                                                 \
+      out[18] = __r18;                                                         \
+      __cfall;                                                                \
+    __of (17)                                                                 \
+      out[17] = __r17;                                                        \
+      __cfall;                                                                \
+    __of (16)                                                                 \
+      out[16] = __r16;                                                        \
+      __cfall;                                                                \
+    __of (15)                                                                 \
+      out[15] = __r15;                                                        \
+      __cfall;                                                                \
+    __of (14)                                                                 \
+      out[14] = __r14;                                                        \
+      __cfall;                                                                \
+    __of (13)                                                                 \
+      out[13] = __r13;                                                        \
+      __cfall;                                                                \
+    __of (12)                                                                 \
+      out[12] = __r12;                                                        \
+      __cfall;                                                                \
+    __of (11)                                                                 \
+      out[11] = __r11;                                                        \
+      __cfall;                                                                \
+    __of (10)                                                                 \
+      out[10] = __r10;                                                        \
+      __cfall;                                                                \
+    __of (9)                                                                  \
+      out[9] = __r9;                                                          \
+      __cfall;                                                                \
+    __of (8)                                                                  \
+      out[8] = __r8;                                                          \
+      __cfall;                                                                \
+    __of (7)                                                                  \
+      out[7] = __r7;                                                          \
+      __cfall;                                                                \
+    __of (6)                                                                  \
+      out[6] = __r6;                                                          \
+      __cfall;                                                                \
+    __of (5)                                                                  \
+      out[5] = __r5;                                                          \
+      __cfall;                                                                \
+    __of (4)                                                                  \
+      out[4] = __r4;                                                          \
+      __cfall;                                                                \
+    __of (3)                                                                  \
+      out[3] = __r3;                                                          \
+      __cfall;                                                                \
+    __of (2)                                                                  \
+      out[2] = __r2;                                                          \
+      __cfall;                                                                \
+    __of (1)                                                                  \
+      out[1] = __r1;                                                          \
+      __cfall;                                                                \
+  }
+
+function __argcount(__name, __rest,
+                    __narg, // check argument; doubles as local count
+                    __case_temps)
+{
+  __varg_count(__name, __narg, __narg)
+  return __narg;
+}
+
+function __arglist(__name, __rest,
+                   __narg,  // check argument; doubles as local count
+                   __out, __case_temps)
+{
+  __varg_list(__name, __narg, __narg, __out)
+  return __out;
+}
+
+function __argarray(__name, __to_array, __rest,
+                    __narg, // check argument; doubles as local count
+                    __case_temps)
+{
+  __varg_array(__name, __narg, __narg, __to_array)
+}
+
+#endif