From 0b8bd8e88f2620992310c7ba41283f5d9120e371 Mon Sep 17 00:00:00 2001
From: Peter Mikkelsen <petermikkelsen10@gmail.com>
Date: Sun, 9 Jan 2022 22:24:07 +0000
Subject: Add rule for monadic function application

---
 functions.c | 57 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 57 insertions(+)

(limited to 'functions.c')

diff --git a/functions.c b/functions.c
index 6ff653a..1c60a82 100644
--- a/functions.c
+++ b/functions.c
@@ -4,6 +4,63 @@
 
 #include "apl9.h"
 
+Rune primfuncnames[] = L"+-×÷*⍟⌹○!?|⌈⌊⊥⊤⊣⊢=≠≤<>≥≡≢∨∧⍲⍱↑↓⊂⊃⊆⌷⍋⍒⍳⍸∊⍷∪∩~,⍪⍴⌽⊖⍉⍎⍕";
+
+fnmonad monadfunctiondefs[] = {
+	0, /* + */
+	0, /* - */
+	0, /* × */
+	0, /* ÷ */
+	0, /* * */
+	0, /* ⍟ */
+	0, /* ⌹ */
+	0, /* ○ */
+	0, /* ! */
+	0, /* ? */
+	0, /* | */
+	0, /* ⌈ */
+	0, /* ⌊ */
+	0, /* ⊥ */
+	0, /* ⊤ */
+	0, /* ⊣ */
+	0, /* ⊢ */
+	0, /* = */
+	0, /* ≠ */
+	0, /* ≤ */
+	0, /* < */
+	0, /* > */
+	0, /* ≥ */
+	0, /* ≡ */
+	0, /* ≢ */
+	0, /* ∨ */
+	0, /* ∧ */
+	0, /* ⍲ */
+	0, /* ⍱ */
+	0, /* ↑ */
+	0, /* ↓ */
+	fnEnclose, /* ⊂ */
+	0, /* ⊃ */
+	fnNest, /* ⊆ */
+	0, /* ⌷ */
+	0, /* ⍋ */
+	0, /* ⍒ */
+	0, /* ⍳ */
+	0, /* ⍸ */
+	0, /* ∊ */
+	0, /* ⍷ */
+	0, /* ∪ */
+	0, /* ∩ */
+	0, /* ~ */
+	fnRavel, /* , */
+	0, /* ⍪ */
+	0, /* ⍴ */
+	0, /* ⌽ */
+	0, /* ⊖ */
+	0, /* ⍉ */
+	0, /* ⍎ */
+	0,  /* ⍕ */
+};
+
 Array *
 fnCatenateFirst(Array *left, Array *right)
 {
-- 
cgit v1.2.3