Add Private Use Area mapping for 'rtlm' glyphs

I've gone for U+F100 upwards because I expect there to be more than the
31 I've currently got.

diff --git a/bedstead.c b/bedstead.c
index 9be33cda853c1277b7aac7791271e859d2c644ad..72a477e3b9b00dca2c2a8cf6c35ed2e085a39aef 100644 (file)
--- a/bedstead.c
+++ b/bedstead.c
@@ -1345,9 +1345,9 @@ static struct glyph {
  /* Mathematical operators */
  {{021,021,037,021,012,012,004,000,000}, 0x2200, "universal" },
  {{016,021,001,017,021,021,016,000,000}, 0x2202, "partialdiff" },
- {{016,021,020,036,021,021,016,000,000}, -1, "partialdiff.rtlm" },
+ {{016,021,020,036,021,021,016,000,000}, 0xf100, "partialdiff.rtlm" },
  {{037,001,001,017,001,001,037,000,000}, 0x2203, "existential" },
- {{037,020,020,036,020,020,037,000,000}, -1, "existential.rtlm" },
+ {{037,020,020,036,020,020,037,000,000}, 0xf101, "existential.rtlm" },
  {{000,015,022,025,011,026,000,000,000}, 0x2205, "emptyset" },
  {{004,004,012,012,021,021,037,000,000}, 0x2206, "Delta" },
  {{037,021,021,012,012,004,004,000,000}, 0x2207, "gradient" },
@@ -1358,7 +1358,7 @@ static struct glyph {
  {{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" },
- {{037,001,002,004,010,004,002,001,037}, -1, "summation.rtlm" },
+ {{037,001,002,004,010,004,002,001,037}, 0xf102, "summation.rtlm" },
  {{000,000,000,037,000,000,000,000,000}, 0x2212, "minus" },
  {{037,000,004,004,037,004,004,000,000}, U(2213) }, /* minusplus */
  {{004,000,004,004,037,004,004,000,000}, U(2214) }, /* dot plus */
@@ -1369,13 +1369,13 @@ static struct glyph {
  {{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" },
- {{034,004,004,004,005,006,004,000,000}, -1, "radical.rtlm" },
+ {{034,004,004,004,005,006,004,000,000}, 0xf103, "radical.rtlm" },
  {{023,012,022,012,022,006,002,000,000}, U(221B) }, /* cube root */
- {{022,021,022,021,022,030,020,000,000}, -1, "uni221B.rtlm" },
+ {{022,021,022,021,022,030,020,000,000}, 0xf104, "uni221B.rtlm" },
  {{015,025,035,005,001,003,001,000,000}, U(221C) }, /* fourth root */
- {{023,025,027,021,020,030,020,000,000}, -1, "uni221C.rtlm" },
+ {{023,025,027,021,020,030,020,000,000}, 0xf105, "uni221C.rtlm" },
  {{000,012,025,024,025,012,000,000,000}, 0x221d, "proportional" },
- {{000,012,025,005,025,012,000,000,000}, -1, "proportional.rtlm" },
+ {{000,012,025,005,025,012,000,000,000}, 0xf106, "proportional.rtlm" },
  {{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 */
@@ -1385,9 +1385,9 @@ static struct glyph {
  {{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" },
- {{010,024,004,004,004,004,004,005,002}, -1, "integral.rtlm" },
+ {{010,024,004,004,004,004,004,005,002}, 0xf107, "integral.rtlm" },
  {{002,005,004,016,025,016,004,024,010}, U(222E) }, /* contour integral */
- {{010,024,004,016,025,016,004,005,002}, -1, "uni222E.rtlm" },
+ {{010,024,004,016,025,016,004,005,002}, 0xf108, "uni222E.rtlm" },
  {{000,004,000,000,000,021,000,000,000}, 0x2234, "therefore" },
  {{000,021,000,000,000,004,000,000,000}, U(2235) }, /* because */
  {{000,004,000,000,000,004,000,000,000}, U(2236) }, /* ratio */
@@ -1396,16 +1396,16 @@ static struct glyph {
  {{000,000,010,025,002,000,000,000,000}, 0x223c, "similar" },
  {{000,000,002,025,010,000,000,000,000}, U(223D) }, /* reversed tilde */
  {{000,002,011,025,022,010,000,000,000}, U(223E) }, /* inverted lazy S */
- {{000,010,022,025,011,002,000,000,000}, -1, "uni223E.rtlm" },
+ {{000,010,022,025,011,002,000,000,000}, 0xf109, "uni223E.rtlm" },
  {{000,010,024,025,005,002,000,000,000}, U(223F) }, /* sinewave */
- {{000,002,005,025,024,010,000,000,000}, -1, "uni223F.rtlm" },
+ {{000,002,005,025,024,010,000,000,000}, 0xf10a, "uni223F.rtlm" },
  {{000,037,000,010,025,002,000,000,000}, U(2242) }, /* minus tilde */
- {{000,037,000,002,025,010,000,000,000}, -1, "uni2242.rtlm" },
+ {{000,037,000,002,025,010,000,000,000}, 0xf10b, "uni2242.rtlm" },
  {{000,010,025,002,000,037,000,000,000}, U(2243) }, /* asymptotically equal */
  {{010,025,002,000,037,000,037,000,000}, 0x2245, "congruent" },
  ALIAS("congruent.rtlm", "uni224C"),
  {{000,010,025,002,010,025,002,000,000}, 0x2248, "approxequal" },
- {{000,002,025,010,002,025,010,000,000}, -1, "approxequal.rtlm" },
+ {{000,002,025,010,002,025,010,000,000}, 0xf10c, "approxequal.rtlm" },
  {{002,025,010,000,037,000,037,000,000}, U(224C) }, /* all equal to */
  ALIAS("uni224C.rtlm", "congruent"),
  {{000,021,016,000,016,021,000,000,000}, U(224D) }, /* equivalent to */
@@ -1418,10 +1418,10 @@ static struct glyph {
  {{016,021,000,037,000,037,000,000,000}, U(2258) }, /* corresponds to */
  {{032,025,025,000,037,000,037,000,000}, U(225E) }, /* measured by */
  {{000,002,037,004,037,010,000,000,000}, 0x2260, "notequal" },
- {{000,010,037,004,037,002,000,000,000}, -1, "notequal.rtlm" },
+ {{000,010,037,004,037,002,000,000,000}, 0xf10d, "notequal.rtlm" },
  {{000,037,000,037,000,037,000,000,000}, 0x2261, "equivalence" },
  {{002,037,004,037,004,037,010,000,000}, U(2262) }, /* not identical */
- {{010,037,004,037,004,037,002,000,000}, -1, "uni2262.rtlm" },
+ {{010,037,004,037,004,037,002,000,000}, 0xf10e, "uni2262.rtlm" },
  {{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 */
@@ -1451,7 +1451,7 @@ static struct glyph {
  {{000,004,004,004,004,037,000,000,000}, 0x22a5, "perpendicular" },
  {{000,010,010,016,010,010,000,000,000}, U(22A6) }, /* assertion */
  {{000,010,016,010,016,010,000,000,000}, U(22A7) }, /* models */
- {{000,002,016,002,016,002,000,000,000}, -1, "uni22A7.rtlm" },
+ {{000,002,016,002,016,002,000,000,000}, 0xf10f, "uni22A7.rtlm" },
  {{000,020,037,020,037,020,000,000,000}, U(22A8) }, /* true */
  {{000,024,024,027,024,024,000,000,000}, U(22A9) }, /* forces */
  {{000,024,027,024,027,024,000,000,000}, U(22AB) }, /* dbl v dbl rt tstile */
@@ -1480,7 +1480,7 @@ static struct glyph {
  {{000,020,000,004,000,001,000,000,000}, U(22F1) }, /* \-diagonal ellipsis */
  {{037,000,017,020,037,020,017,000,000}, U(22F7) }, /* small element overbar */
  {{017,020,020,037,020,020,017,000,037}, U(22F8) }, /* element of underbar */
- {{036,001,001,037,001,001,036,000,037}, -1, "uni22F8.rtlm" },
+ {{036,001,001,037,001,001,036,000,037}, 0xf110, "uni22F8.rtlm" },
  {{037,000,036,001,037,001,036,000,000}, U(22FE) }, /* small contains o'bar */
 
  /* Miscellaneous technical */
@@ -1495,9 +1495,9 @@ static struct glyph {
  {{000,000,020,020,020,020,037,000,000}, U(231E) }, /* bottom left corner */
  {{000,000,001,001,001,001,037,000,000}, U(231F) }, /* bottom right corner */
  {{000,000,002,005,004,004,004,004,004}, 0x2320, "integraltp" },
- {{000,000,010,024,004,004,004,004,004}, -1, "integraltp.rtlm" },
+ {{000,000,010,024,004,004,004,004,004}, 0xf111, "integraltp.rtlm" },
  {{004,004,004,004,004,024,010,000,000}, 0x2321, "integralbt" },
- {{004,004,004,004,004,005,002,000,000}, -1, "integralbt.rtlm" },
+ {{004,004,004,004,004,005,002,000,000}, 0xf112, "integralbt.rtlm" },
  {{002,002,004,010,004,002,002,000,000}, 0x2329, "angleleft" },
  {{010,010,004,002,004,010,010,000,000}, 0x232a, "angleright" },
  {{000,037,004,004,004,037,000,000,000}, U(2336) }, /* APL I-beam */
@@ -1910,15 +1910,15 @@ static struct glyph {
  {{021,021,021,021,025,021,021,021,016}, U(2A03) }, /* n-ary union dot */
  {{021,021,025,025,037,025,025,021,016}, U(2A04) }, /* n-ary union plus */
  {{002,005,004,004,037,004,004,024,010}, U(2A0D) }, /* integral with bar */
- {{010,024,004,004,037,004,004,005,002}, -1, "uni2A0D.rtlm" },
+ {{010,024,004,004,037,004,004,005,002}, 0xf113, "uni2A0D.rtlm" },
  {{002,005,004,037,004,037,004,024,010}, U(2A0E) }, /* integral w/dbl bar */
- {{010,024,004,037,004,037,004,005,002}, -1, "uni2A0E.rtlm" },
+ {{010,024,004,037,004,037,004,005,002}, 0xf114, "uni2A0E.rtlm" },
  {{002,005,004,037,025,037,004,024,010}, U(2A16) }, /* integral w/square */
- {{010,024,004,037,025,037,004,005,002}, -1, "uni2A16.rtlm" },
+ {{010,024,004,037,025,037,004,005,002}, 0xf115, "uni2A16.rtlm" },
  {{002,005,004,016,025,025,004,024,010}, U(2A19) }, /* integral w/cap */
- {{010,024,004,016,025,025,004,005,002}, -1, "uni2A19.rtlm" },
+ {{010,024,004,016,025,025,004,005,002}, 0xf116, "uni2A19.rtlm" },
  {{002,005,004,025,025,016,004,024,010}, U(2A1A) }, /* integral w/cup */
- {{010,024,004,025,025,016,004,005,002}, -1, "uni2A1A.rtlm" },
+ {{010,024,004,025,025,016,004,005,002}, 0xf117, "uni2A1A.rtlm" },
  {{004,004,037,004,004,000,004,000,000}, U(2A25) }, /* plus dot */
  {{000,000,000,037,000,004,000,000,000}, U(2A2A) }, /* minus dot */
  {{000,020,000,037,000,001,000,000,000}, U(2A2B) }, /* minus falling dots */
@@ -1935,11 +1935,11 @@ static struct glyph {
  {{000,000,037,000,037,000,004,000,000}, U(2A66) }, /* equals dot */
  {{004,000,037,000,037,000,037,000,000}, U(2A67) }, /* dot identical */
  {{004,000,010,025,002,000,000,000,000}, U(2A6A) }, /* dot tilde */
- {{004,000,002,025,010,000,000,000,000}, -1, "uni2A6A.rtlm" },
+ {{004,000,002,025,010,000,000,000,000}, 0xf118, "uni2A6A.rtlm" },
  {{000,001,010,025,002,020,000,000,000}, U(2A6B) }, /* tilde rising dots */
- {{000,020,002,025,010,001,000,000,000}, -1, "uni2A6B.rtlm" },
+ {{000,020,002,025,010,001,000,000,000}, 0xf119, "uni2A6B.rtlm" },
  {{037,000,037,000,010,025,002,000,000}, U(2A73) }, /* equals tilde */
- {{037,000,037,000,002,025,010,000,000}, -1, "uni2A73.rtlm" },
+ {{037,000,037,000,002,025,010,000,000}, 0xf11a, "uni2A73.rtlm" },
  {{012,000,037,000,037,000,012,000,000}, U(2A77) }, /* equals with four dots */
  {{004,033,000,037,000,037,000,000,000}, U(2AAE) }, /* bumpy equals */
  {{000,017,020,024,020,017,000,000,000}, U(2ABD) }, /* subset with dot */
@@ -1953,9 +1953,9 @@ static struct glyph {
  {{017,020,017,000,037,000,037,000,000}, U(2AC5) }, /* subset equals */
  {{036,001,036,000,037,000,037,000,000}, U(2AC6) }, /* superset equals */
  {{017,020,017,000,010,025,002,000,000}, U(2AC7) }, /* subset tilde */
- {{036,001,036,000,002,025,010,000,000}, -1, "uni2AC7.rtlm" },
+ {{036,001,036,000,002,025,010,000,000}, 0xf11b, "uni2AC7.rtlm" },
  {{036,001,036,000,010,025,002,000,000}, U(2AC8) }, /* superset tilde */
- {{017,020,017,000,002,025,010,000,000}, -1, "uni2AC8.rtlm" },
+ {{017,020,017,000,002,025,010,000,000}, 0xf11c, "uni2AC8.rtlm" },
  {{000,017,021,021,021,017,000,000,000}, U(2ACF) }, /* closed subset */
  {{000,036,021,021,021,036,000,000,000}, U(2AD0) }, /* closed superset */
  {{017,021,021,021,017,000,037,000,000}, U(2AD1) }, /* closed subset or eq */
@@ -1971,12 +1971,12 @@ static struct glyph {
  {{000,000,037,004,004,000,000,000,000}, U(2ADF) }, /* short down tack */
  {{000,000,004,004,037,000,000,000,000}, U(2AE0) }, /* short up tack */
  {{020,037,020,037,020,037,020,000,000}, U(2AE2) }, /* triple rt turnstile */
- {{001,037,001,037,001,037,001,000,000}, -1, "uni2AE2.rtlm" },
+ {{001,037,001,037,001,037,001,000,000}, 0xf11d, "uni2AE2.rtlm" },
  {{000,005,005,035,005,005,000,000,000}, U(2AE3) }, /* dbl vert left tstile */
  {{000,001,037,001,037,001,000,000,000}, U(2AE4) }, /* dbl left turnstile */
  {{000,005,035,005,035,005,000,000,000}, U(2AE5) }, /* dbl v dbl left tstile */
  {{000,024,024,037,024,024,000,000,000}, U(2AE6) },
- {{000,005,005,037,005,005,000,000,000}, -1, "uni2AE6.rtlm" },
+ {{000,005,005,037,005,005,000,000,000}, 0xf11e, "uni2AE6.rtlm" },
  {{000,037,000,037,004,004,000,000,000}, U(2AE7) }, /* short down tack o'bar */
  {{000,004,004,037,000,037,000,000,000}, U(2AE8) }, /* short up tack u'bar */
  {{004,004,037,000,037,004,004,000,000}, U(2AE9) }, /* short up down tacks */
@@ -2095,9 +2095,9 @@ static struct glyph {
   * Characters in the private use area are used for Bedstead glyphs
   * that would otherwise be unencoded so as to make them easier to
   * use. These encodings should be stable, but they do not use uniXXXX
-  * glyph names.  U+F1D0 to U+F1D9 are used above for glyphs from real
-  * character generators. U+F1C0 and U+F1C1 are used below for small
-  * caps glyphs.
+  * glyph names.  U+F100 to U+F11F are used for right-to-left mirrored
+  * glyphs.  U+F1D0 to U+F1D9 are used for glyphs from real character
+  * generators. U+F1C0 and U+F1C1 are used for small caps glyphs.
   */
  
  /* Alphabetic presentation forms */