Reasonably complete attempt at an APL character set

diff --git a/bedstead.c b/bedstead.c
index 07cc3a29a7c4d6ee1248bb9f1e085bbb87fba91b..030ff1d316b7f5686a505b95d4d76f5e90ef1639 100644 (file)
--- a/bedstead.c
+++ b/bedstead.c
@@ -1219,19 +1219,24 @@ static struct glyph {
  {{016,021,001,017,021,021,016,000,000}, 0x2202, "partialdiff" },
  {{004,004,012,012,021,021,037,000,000}, 0x2206, "Delta" },
  {{037,021,021,012,012,004,004,000,000}, 0x2207, "gradient" },
+ {{017,020,020,037,020,020,017,000,000}, 0x2208, "element" },
+ {{000,017,020,037,020,017,000,000,000}, U(220A) }, /* small element of */
  {{037,021,021,021,021,021,021,021,021}, 0x220f, "product" },
  {{021,021,021,021,021,021,021,021,037}, U(2210) }, /* n-ary coproduct */
  {{037,020,010,004,002,004,010,020,037}, 0x2211, "summation" },
  {{000,000,000,037,000,000,000,000,000}, 0x2212, "minus" },
  {{037,000,004,004,037,004,004,000,000}, U(2213) }, /* minusplus */
+ {{000,000,004,012,012,004,000,000,000}, U(2218) }, /* ring operator */
  {{000,000,004,016,004,000,000,000,000}, U(2219) }, /* bulletoperator */
  {{007,004,004,004,024,014,004,000,000}, 0x221a, "radical" },
  {{023,012,022,012,022,006,002,000,000}, U(221B) }, /* cube root */
  {{015,025,035,005,001,003,001,000,000}, U(221C) }, /* fourth root */
  {{000,012,025,025,025,012,000,000,000}, 0x221e, "infinity" },
  {{000,020,020,020,020,037,000,000,000}, 0x221f, "orthogonal" },
- {{004,004,004,004,004,004,004,000,000}, U(2223), }, /* divides */
- {{012,012,012,012,012,012,012,000,000}, U(2225), }, /* parallel */
+ {{004,004,004,004,004,004,004,000,000}, U(2223) }, /* divides */
+ {{012,012,012,012,012,012,012,000,000}, U(2225) }, /* parallel */
+ {{000,000,004,012,021,000,000,000,000}, 0x2227, "logicaland" },
+ {{000,000,021,012,004,000,000,000,000}, 0x2228, "logicalor" },
  {{000,016,021,021,021,021,000,000,000}, 0x2229, "intersection" },
  {{000,021,021,021,021,016,000,000,000}, 0x222a, "union" },
  {{002,005,004,004,004,004,004,024,010}, 0x222b, "integral" },
@@ -1239,8 +1244,10 @@ static struct glyph {
  {{000,021,000,000,000,004,000,000,000}, U(2235) }, /* because */
  {{000,010,024,025,005,002,000,000,000}, U(223F) }, /* sinewave */
  {{000,010,025,002,010,025,002,000,000}, 0x2248, "approxequal" },
+ {{000,004,012,021,012,004,000,000,000}, U(224C) }, /* diamond operator */
  {{000,002,037,004,037,010,000,000,000}, 0x2260, "notequal" },
  {{000,037,000,037,000,037,000,000,000}, 0x2261, "equivalence" },
+ {{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" },
  {{000,017,020,020,020,017,000,000,000}, 0x2282, "propersubset" },
@@ -1253,16 +1260,54 @@ static struct glyph {
  {{000,037,025,037,025,037,000,000,000}, U(229E) }, /* squared plus */
  {{000,037,021,037,021,037,000,000,000}, U(229F) }, /* squared minus (DLE) */
  {{000,037,021,025,021,037,000,000,000}, U(22A1) }, /* squared dot */
+ {{000,020,020,037,020,020,000,000,000}, U(22A2) }, /* right tack */
+ {{000,001,001,037,001,001,000,000,000}, U(22A3) }, /* left tack */
+ {{000,037,004,004,004,004,000,000,000}, U(22A4) }, /* down tack */
+ {{000,004,004,004,004,037,000,000,000}, U(22A5) }, /* up tack */
  {{000,004,000,004,000,004,000,000,000}, U(22EE) }, /* vertical ellipsis */
  {{000,000,000,025,000,000,000,000,000}, U(22EF) }, /* midline ellipsis */
  {{000,001,000,004,000,020,000,000,000}, U(22F0) }, /* /-diagonal ellipsis */
  {{000,020,000,004,000,001,000,000,000}, U(22F1) }, /* \-diagonal ellipsis */
+ {{017,020,020,037,020,020,017,000,037}, U(22F8) }, /* element of underbar */
 
  /* Miscellaneous technical */
  {{004,012,021,021,021,021,037,000,000}, 0x2302, "house" },
+ {{016,010,010,010,010,010,010,010,010}, U(2308) }, /* APL upstile */
+ {{010,010,010,010,010,010,010,010,016}, U(2309) }, /* APL downstile */
  {{000,000,037,020,020,000,000,000,000}, 0x2310, "revlogicalnot" },
  {{000,000,002,005,004,004,004,004,004}, 0x2320, "integraltp" },
  {{004,004,004,004,004,024,010,000,000}, 0x2321, "integralbt" },
+ {{000,037,004,004,004,037,000,000,000}, U(2336) }, /* APL I-beam */
+ {{016,012,012,012,012,012,016,000,000}, U(2337) }, /* APL squish quad */
+ {{037,021,037,021,037,021,037,000,000}, U(2338) }, /* APL quad equal */
+ {{037,025,021,037,021,025,037,000,000}, U(2339) }, /* APL quad divide */
+ {{037,025,033,021,033,025,037,000,000}, U(233A) }, /* APL quad diamond */
+ {{004,016,025,025,025,016,004,000,000}, U(233C) }, /* 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 */
+ {{000,026,011,025,022,015,000,000,000}, U(2349) }, /* APL circle backslash */
+ {{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 */
+ {{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 */
+ {{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 */
+ {{037,021,025,021,025,021,037,000,000}, U(2360) }, /* APL quad colon */
+ {{012,000,025,016,004,016,025,000,000}, U(2363) }, /* APL star dieresis */
+ {{012,000,004,012,012,004,000,000,000}, U(2364) }, /* APL jot dieresis */
+ {{012,000,010,025,002,000,000,000,000}, U(2368) }, /* APL tilde dieresis */
+ {{000,000,000,037,000,000,004,004,010}, U(236A) }, /* APL comma bar */
+ {{016,021,031,025,023,021,016,000,000}, U(236C) }, /* APL zilde */
+ {{010,025,002,000,021,012,004,000,000}, U(2371) }, /* APL nor */
+ {{010,025,002,000,004,012,021,000,000}, U(2372) }, /* APL nand */
+ {{000,000,014,004,004,004,002,000,000}, U(2373) }, /* APL iota */
+ {{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 */
+ {{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 */
  {{000,000,005,002,025,010,000,000,000}, U(237B) }, /* crossed tick (NAK) */
  {{000,000,000,000,000,033,016,000,000}, U(237D) }, /* nbsp symbol */
  {{000,016,021,037,012,033,000,000,000}, U(237E) }, /* bell symbol (BEL) */
@@ -1270,6 +1315,7 @@ static struct glyph {
  {{000,016,012,012,012,033,000,000,000}, U(238D) }, /* monostable (SYN) */
  {{000,007,012,012,012,034,000,000,000}, U(238E) }, /* hysteresis */
  {{000,000,037,000,025,000,000,000,000}, U(2393) }, /* directcurrent */
+ {{037,021,021,021,021,021,037,000,000}, U(2395) }, /* APL quad */
  {{002,004,010,010,010,010,010,010,010}, U(239B) }, /* long parenleft top */
  {{010,010,010,010,010,010,010,010,010}, U(239C) }, /* long parenleft middle */
  {{010,010,010,010,010,004,002,000,000}, U(239D) }, /* long parenleft bottom */
@@ -1472,6 +1518,7 @@ static struct glyph {
  {{000,001,007,037,007,001,000,000,000}, 0x25c4, "triaglf" },
  {{000,004,016,037,016,004,000,000,000}, U(25C6) }, /* black diamond shape */
  {{000,004,012,021,012,004,000,000,000}, U(25C7) }, /* white diamond shape */
+ {{004,012,012,021,012,012,004,000,000}, 0x25ca, "lozenge" },
  {{000,016,021,021,021,016,000,000,000}, 0x25cb, "circle" },
  {{000,004,021,000,021,004,000,000,000}, U(25CC) }, /* dottedcircle */
  {{000,016,037,037,037,016,000,000,000}, 0x25cf, "H18533" },