From: Ben Harris <bjh21@bjh21.me.uk>
Date: Sat, 16 May 2020 00:55:57 +0000 (+0100)
Subject: A few extra characters from the GNU APL atomic vector
X-Git-Tag: bedstead-002.002~29
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~bjharris/git?a=commitdiff_plain;h=c9340db9f4e0ecdec60e4c9162b05a8a3f072d27;p=bedstead.git

A few extra characters from the GNU APL atomic vector
---

diff --git a/bedstead.c b/bedstead.c
index d78795c..fa91a35 100644
--- a/bedstead.c
+++ b/bedstead.c
@@ -1242,6 +1242,7 @@ static struct glyph {
  {{002,005,004,004,004,004,004,024,010}, 0x222b, "integral" },
  {{000,004,000,000,000,021,000,000,000}, 0x2234, "therefore" },
  {{000,021,000,000,000,004,000,000,000}, U(2235) }, /* because */
+ {{000,000,010,025,002,000,000,000,000}, U(223C) }, /* tilde operator */
  {{000,010,024,025,005,002,000,000,000}, U(223F) }, /* sinewave */
  {{000,010,025,002,010,025,002,000,000}, 0x2248, "approxequal" },
  {{000,002,037,004,037,010,000,000,000}, 0x2260, "notequal" },
@@ -1249,6 +1250,7 @@ static struct glyph {
  {{002,037,004,037,004,037,010,000,000}, U(2262) }, /* not identical */
  {{003,014,020,014,003,030,007,000,000}, 0x2264, "lessequal" },
  {{030,006,001,006,030,003,034,000,000}, 0x2265, "greaterequal" },
+ {{012,004,012,012,012,004,012,000,000}, U(226C) }, /* between */
  {{000,017,020,020,020,017,000,000,000}, 0x2282, "propersubset" },
  {{000,036,001,001,001,036,000,000,000}, 0x2283, "propersuperset" },
  {{017,020,020,020,017,000,037,000,000}, 0x2286, "reflexsubset" },
@@ -1285,11 +1287,16 @@ static struct glyph {
  {{004,016,025,025,025,016,004,000,000}, U(233D) }, /* APL circle stile */
  {{000,001,032,004,013,020,000,000,000}, U(233F) }, /* APL slash bar */
  {{000,020,013,004,032,001,000,000,000}, U(2340) }, /* APL backslash bar */
+ {{037,021,023,025,031,021,037,000,000}, U(2341) }, /* APL quad slash */
+ {{037,021,031,025,023,021,037,000,000}, U(2342) }, /* APL quad backslash */
  {{000,026,011,025,022,015,000,000,000}, U(2349) }, /* APL circle backslash */
+ {{004,004,004,004,037,000,037,000,000}, U(234A) }, /* APL down tack u'bar */
  {{004,004,012,012,025,025,037,004,004}, U(234B) }, /* APL delta stile */
  {{004,016,025,025,016,004,037,000,000}, U(234E) }, /* APL down tack jot */
+ {{037,000,037,004,004,004,004,000,000}, U(2351) }, /* APL up tack overbar */
  {{004,004,037,025,025,012,012,004,004}, U(2352) }, /* APL del stile */
  {{037,004,016,025,025,016,004,000,000}, U(2355) }, /* APL up tack jot */
+ {{004,004,012,012,021,021,037,000,037}, U(2359) }, /* APL delta underbar */
  {{000,016,021,033,025,021,000,000,000}, U(235D) }, /* APL up show jot */
  {{037,025,025,021,021,021,037,000,000}, U(235E) }, /* APL quote quad */
  {{016,021,033,025,033,021,016,000,000}, U(235F) }, /* APL circle star */
@@ -1305,6 +1312,8 @@ static struct glyph {
  {{000,000,016,021,021,021,036,020,020}, U(2374) }, /* APL rho */
  {{000,000,014,004,004,004,002,000,037}, U(2373) }, /* APL iota underbar */
  {{000,000,012,021,025,025,012,000,000}, U(2375) }, /* APL omega */
+ {{000,000,014,004,004,004,002,000,037}, U(2373) }, /* APL iota underbar */
+ {{000,000,015,022,022,022,015,000,037}, U(237A) }, /* APL alpha underbar */
  {{017,020,037,020,017,000,037,000,000}, U(2377) }, /* APL epsilon underbar */
  {{000,000,012,021,025,025,012,000,037}, U(2379) }, /* APL omega underbar*/
  {{000,000,015,022,022,022,015,000,000}, U(237A) }, /* APL alpha */