diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/Inter.glyphs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Inter.glyphs b/src/Inter.glyphs index f5d36602b..d17b972e0 100644 --- a/src/Inter.glyphs +++ b/src/Inter.glyphs @@ -1967,7 +1967,7 @@ code = "sub parenleft by parenleft.case;\012sub parenright by parenright.case;\0 name = case; }, { -code = "# whitespace\012@SPACE = [\012 space nbspace narrownbspace mediumspace-math enquad emquad enspace emspace thirdemspace\012 quarteremspace sixthemspace figurespace punctuationspace thinspace hairspace\012 zerowidthspace\012];\012\012# numbers\012@NUM = [\012 zero one two twostroke three four five Tonefive six seven eight nine\012 zero.slash one.ss01 three.1 four.ss01 six.ss01 nine.ss01 zero.tf one.tf\012 two.tf three.tf four.tf five.tf six.tf seven.tf eight.tf nine.tf\012 zero.tf.slash one.tf.ss01 three.1.tf four.tf.ss01 six.tf.ss01 nine.tf.ss01\012];\012\012# cap-height tall glyphs\012@UC = [\012 @Uppercase\012 @NUM\012\012 # punctuation\012 ampersand exclam exclamdbl exclamdown uni2049 question uni2047 uni2048\012 questiondown interrobang invertedinterrobang bar paragraph\012\012 # currency\012 dollar cent yen sterling florin uni20BA uni20BD euro uni20B9 tenge peseta\012 peso kip won lira austral hryvnia naira guarani coloncurrency cedi cruzeiro\012 tugrik uni20AF mill afii57636 manat rupee lari franc\012\012 # cap-tall symbols\012 numero triagrt triagdn triagup blackleftpointingtriangle\012 circleblack circlewhite\012 diamondblack diamondblack_x diamondwhite diamondwhite_x\012 sunWithRays blackSunWithRays\012 heartWhiteSuit heartBlackSuit heavyBlackHeart\012 upBlackArrow upWhiteArrow\012 capslock placeofinterestsign control projective option alternativekeysymbol\012 brokenCircleNorthWestArrow anticlockwiseOpenCircleArrow\012 clockwiseOpenCircleArrow\012 deleteleft deleteright clear ejectsymbol\012\012 # percent and fractions\012 onehalf onethird onequarter threequarters fivesixths onefraction seveneighths\012 oneeighth fiveeighths threeeighths percent perthousand pertenthousand uni214D\012 cadauna careof accountof addresssubject \012];\012\012# x-height tall glyphs\012@LC = [\012 @Lowercase\012];\012\012@CASE_DELIM_L = [\012 braceleft braceright\012 bracketleft bracketright\012 parenleft parenright\012];\012@CASE_NONDELIM_L = [\012 at\012 multiply\012 minus\012 plus\012 plusminus\012 divide\012 equal\012 notequal\012 endash\012 figuredash\012 emdash\012 hyphen\012 bullet\012 openbullet\012 hyphenbullet\012 trianglebullet\012 blackleftbullet\012 blackrightbullet\012 leftArrow\012 leftLongArrow\012 rightArrow\012 rightLongArrow\012 leftRightArrow\012 leftRightLongArrow\012 colon\012 approxequal\012 asciitilde\012 less\012 greater\012 lessequal\012 greaterequal\012];\012@CASE_L = [\012 @CASE_DELIM_L\012 @CASE_NONDELIM_L\012];\012\012@CASE_DELIM_R = [\012 braceleft.case braceright.case\012 bracketleft.case bracketright.case\012 parenleft.case parenright.case\012];\012@CASE_NONDELIM_R = [\012 at.case\012 multiply.case\012 minus.case\012 plus.case\012 plusminus.case\012 divide.case\012 equal.case\012 notequal.case\012 endash.case\012 figuredash.case\012 emdash.case\012 hyphen.case\012 bullet.case\012 openbullet.case\012 hyphenbullet.case\012 trianglebullet.case\012 blackleftbullet.case\012 blackrightbullet.case\012 leftArrow.case\012 leftLongArrow.case\012 rightArrow.case\012 rightLongArrow.case\012 leftRightArrow.case\012 leftRightLongArrow.case\012 colon.case\012 approxequal.case\012 asciitilde.case\012 less.case\012 greater.case\012 lessequal.case\012 greaterequal.case\012];\012@CASE_R = [\012 @CASE_DELIM_R\012 @CASE_NONDELIM_R\012];\012\012@DASH = [\012 hyphen hyphen.case\012 endash endash.case\012 emdash emdash.case\012 minus minus.case\012];\012\012# ---------------------------------------------------\012\012# arrows: <-> <-->\012sub less hyphen greater by leftRightArrow;\012sub less hyphen.case greater by leftRightArrow.case;\012sub less [endash emdash] greater by leftRightLongArrow;\012sub less [endash.case emdash.case] greater by leftRightLongArrow.case;\012sub less hyphen hyphen greater by leftRightLongArrow;\012sub less hyphen.case hyphen.case greater by leftRightLongArrow.case;\012\012# arrows: -> -->\012sub hyphen greater by rightArrow;\012sub hyphen.case greater by rightArrow.case;\012sub [endash emdash] greater by rightLongArrow;\012sub [endash.case emdash.case] greater by rightLongArrow.case;\012\012# arrows: <- <--\012ignore sub less @DASH @NUM; # e.g. \"<-3\"\012sub less' hyphen' by leftArrow;\012sub less' hyphen.case' by leftArrow.case;\012sub less' [endash emdash]' by leftLongArrow;\012sub less' [endash.case emdash.case]' by leftLongArrow.case;\012\012# :-)\012sub colon' @DASH [parenright parenright.case] by colon.case;\012sub [colon colon.case] hyphen' [parenright parenright.case] by hyphen.case;\012sub [colon colon.case] endash' [parenright parenright.case] by endash.case;\012sub [colon colon.case] emdash' [parenright parenright.case] by emdash.case;\012sub [colon colon.case] @DASH parenright' by parenright.case;\012\012# A foo' -> A foo.case\012#\012# ignore subs adjacent to lower case\012#\012# x[]X\012ignore sub @LC @CASE_DELIM_L @CASE_DELIM_L @UC;\012ignore sub @LC @CASE_DELIM_L @UC;\012ignore sub @LC @CASE_DELIM_L @SPACE @UC;\012ignore sub @LC @CASE_DELIM_L @SPACE @SPACE @UC;\012#\012# short runs of uc-lc, e.g \"(Xx)\", \"[Zzz]\"\012ignore sub @CASE_DELIM_L @UC @LC @CASE_DELIM_L;\012ignore sub @CASE_DELIM_L @UC @All @LC @CASE_DELIM_L;\012#\012# e.g. \"x-\"\012# TODO: figure out how to ignore \"x--A\"\012ignore sub @LC @CASE_L;\012#\012# e.g. \"-x\", \"--x\", \"---x\", \"----x\", \"-----x\"\012ignore sub @CASE_L @LC;\012ignore sub @CASE_L @CASE_L @LC;\012ignore sub @CASE_L @CASE_L @CASE_L @LC;\012ignore sub @CASE_L @CASE_L @CASE_L @CASE_L @LC;\012ignore sub @CASE_L @CASE_L @CASE_L @CASE_L @CASE_L @LC;\012#\012# pairs with space, e.g. \"( ) M\" since we don't support subbing\012# all on the left side.\012ignore sub @CASE_DELIM_L @SPACE @CASE_DELIM_L @SPACE [ @UC @CASE_R ];\012ignore sub @CASE_DELIM_L @CASE_DELIM_L @SPACE [ @UC @CASE_R ];\012#\012# e.g. \"A-\", \"A -\", \"A -\"\012sub [ @UC @CASE_R ] @CASE_L' by @CASE_R;\012sub [ @UC @CASE_R ] @SPACE @CASE_L' by @CASE_R;\012sub [ @UC @CASE_R ] @SPACE @SPACE @CASE_L' by @CASE_R;\012\012# foo' foo foo foo foo A -> foo.case foo foo foo foo A\012# foo' foo foo foo A -> foo.case foo foo foo A\012# foo' foo foo A -> foo.case foo foo A\012# foo' foo A -> foo.case foo A\012# foo' A -> foo.case A\012# Note: since we look quite far back, sequences like x{}[]M will case both\012# the square brackets next to M _and_ the curly braces to become .case\012# \012# e.g. \"-A\", \"--A\", \"---A\", \"----A\", \"-----A\"\012sub @CASE_L' [ @UC @CASE_R ] by @CASE_R;\012sub @CASE_L' @CASE_L [ @CASE_R @UC ] by @CASE_R;\012sub @CASE_L' @CASE_L @CASE_L [ @CASE_R @UC ] by @CASE_R;\012sub @CASE_L' @CASE_L @CASE_L @CASE_L [ @CASE_R @UC ] by @CASE_R;\012sub @CASE_L' @CASE_L @CASE_L @CASE_L @CASE_L [ @CASE_R @UC ] by @CASE_R;\012# \012# e.g. \"- A\", \"-- A\", \"--- A\", \"---- A\", \"----- A\"\012sub @CASE_L' @SPACE [ @UC @CASE_R ] by @CASE_R;\012sub @CASE_L' @CASE_L @SPACE [ @CASE_R @UC ] by @CASE_R;\012sub @CASE_L' @CASE_L @CASE_L @SPACE [ @CASE_R @UC ] by @CASE_R;\012sub @CASE_L' @CASE_L @CASE_L @CASE_L @SPACE [ @CASE_R @UC ] by @CASE_R;\012sub @CASE_L' @CASE_L @CASE_L @CASE_L @CASE_L @SPACE [ @CASE_R @UC ] by @CASE_R;\012# \012# e.g. \"- A\", \"-- A\", \"--- A\", \"---- A\", \"----- A\"\012sub @CASE_L' @SPACE @SPACE [ @UC @CASE_R ] by @CASE_R;\012sub @CASE_L' @CASE_L @SPACE @SPACE [ @CASE_R @UC ] by @CASE_R;\012sub @CASE_L' @CASE_L @CASE_L @SPACE @SPACE [ @CASE_R @UC ] by @CASE_R;\012sub @CASE_L' @CASE_L @CASE_L @CASE_L @SPACE @SPACE [ @CASE_R @UC ] by @CASE_R;\012sub @CASE_L' @CASE_L @CASE_L @CASE_L @CASE_L @SPACE @SPACE [ @CASE_R @UC ] by @CASE_R;\012sub @CASE_L' @SPACE @SPACE @SPACE [ @UC @CASE_R ] by @CASE_R; # e.g. \"- A\"\012\012# X(_)\012@Punctuation = [\012 slash bar quoteleft quoteright apostrophemod quotesingle quotedbl\012 quotedblleft quotedblright quotedblbase quotesinglbase prime doubleprime\012 tripleprime quadrupleprime primerev doubleprimerev tripleprimerev primemod\012 doubleprimemod comma period ellipsis twodotleader semicolon underscore\012 asciicircum circumflex\012 asterisk\012];\012sub @CASE_DELIM_R @Punctuation @CASE_DELIM_L' by @CASE_DELIM_R;\012\012# in between numbers\012@between_num_L = [\012 x\012 asterisk\012];\012@between_num_R = [\012 multiply.case\012 asterisk.case\012];\012sub @NUM @between_num_L' @NUM by @between_num_R; # 3*9\012sub @NUM @SPACE @between_num_L' @NUM by @between_num_R; # 3 *9\012sub @NUM @SPACE @SPACE @between_num_L' @NUM by @between_num_R; # 3 *9\012sub @NUM @between_num_L' @SPACE @NUM by @between_num_R; # 3* 9\012sub @NUM @SPACE @between_num_L' @SPACE @NUM by @between_num_R; # 3 * 9\012sub @NUM @SPACE @SPACE @between_num_L' @SPACE @NUM by @between_num_R; # 3 * 9\012sub @NUM @between_num_L' @SPACE @SPACE @NUM by @between_num_R; # 3* 9\012sub @NUM @SPACE @between_num_L' @SPACE @SPACE @NUM by @between_num_R; # 3 * 9\012sub @NUM @SPACE @SPACE @between_num_L' @SPACE @SPACE @NUM by @between_num_R; # 3 * 9\012"; +code = "# whitespace\012@SPACE = [\012 space nbspace narrownbspace mediumspace-math enquad emquad enspace emspace thirdemspace\012 quarteremspace sixthemspace figurespace punctuationspace thinspace hairspace\012 zerowidthspace\012];\012\012# numbers\012@NUM = [\012 zero one two twostroke three four five Tonefive six seven eight nine\012 zero.slash one.ss01 three.1 four.ss01 six.ss01 nine.ss01 zero.tf one.tf\012 two.tf three.tf four.tf five.tf six.tf seven.tf eight.tf nine.tf\012 zero.tf.slash one.tf.ss01 three.1.tf four.tf.ss01 six.tf.ss01 nine.tf.ss01\012];\012\012# cap-height tall glyphs\012@UC = [\012 @Uppercase\012 @NUM\012\012 # punctuation\012 ampersand exclam exclamdbl exclamdown uni2049 question uni2047 uni2048\012 questiondown interrobang invertedinterrobang bar paragraph\012\012 # currency\012 dollar cent yen sterling florin uni20BA uni20BD euro uni20B9 tenge peseta\012 peso kip won lira austral hryvnia naira guarani coloncurrency cedi cruzeiro\012 tugrik uni20AF mill afii57636 manat rupee lari franc\012\012 # cap-tall symbols\012 numero triagrt triagdn triagup blackleftpointingtriangle\012 circleblack circlewhite\012 diamondblack diamondblack_x diamondwhite diamondwhite_x\012 sunWithRays blackSunWithRays\012 heartWhiteSuit heartBlackSuit heavyBlackHeart\012 upBlackArrow upWhiteArrow\012 capslock placeofinterestsign control projective option alternativekeysymbol\012 brokenCircleNorthWestArrow anticlockwiseOpenCircleArrow\012 clockwiseOpenCircleArrow\012 deleteleft deleteright clear ejectsymbol\012\012 # percent and fractions\012 onehalf onethird onequarter threequarters fivesixths onefraction seveneighths\012 oneeighth fiveeighths threeeighths percent perthousand pertenthousand uni214D\012 cadauna careof accountof addresssubject \012];\012\012# x-height tall glyphs\012@LC = [\012 @Lowercase\012];\012\012@CASE_DELIM_L = [\012 braceleft braceright\012 bracketleft bracketright\012 parenleft parenright\012];\012@CASE_NONDELIM_L = [\012 at\012 multiply\012 minus\012 plus\012 plusminus\012 divide\012 equal\012 notequal\012 endash\012 figuredash\012 emdash\012 hyphen\012 bullet\012 openbullet\012 hyphenbullet\012 trianglebullet\012 blackleftbullet\012 blackrightbullet\012 leftArrow\012 leftLongArrow\012 rightArrow\012 rightLongArrow\012 leftRightArrow\012 leftRightLongArrow\012 colon\012 approxequal\012 asciitilde\012 less\012 greater\012 lessequal\012 greaterequal\012];\012@CASE_L = [\012 @CASE_DELIM_L\012 @CASE_NONDELIM_L\012];\012\012@CASE_DELIM_R = [\012 braceleft.case braceright.case\012 bracketleft.case bracketright.case\012 parenleft.case parenright.case\012];\012@CASE_NONDELIM_R = [\012 at.case\012 multiply.case\012 minus.case\012 plus.case\012 plusminus.case\012 divide.case\012 equal.case\012 notequal.case\012 endash.case\012 figuredash.case\012 emdash.case\012 hyphen.case\012 bullet.case\012 openbullet.case\012 hyphenbullet.case\012 trianglebullet.case\012 blackleftbullet.case\012 blackrightbullet.case\012 leftArrow.case\012 leftLongArrow.case\012 rightArrow.case\012 rightLongArrow.case\012 leftRightArrow.case\012 leftRightLongArrow.case\012 colon.case\012 approxequal.case\012 asciitilde.case\012 less.case\012 greater.case\012 lessequal.case\012 greaterequal.case\012];\012@CASE_R = [\012 @CASE_DELIM_R\012 @CASE_NONDELIM_R\012];\012\012@DASH = [\012 hyphen hyphen.case\012 endash endash.case\012 emdash emdash.case\012 minus minus.case\012];\012\012# ---------------------------------------------------\012\012# arrows: <-> <-->\012sub less hyphen greater by leftRightArrow;\012sub less hyphen.case greater by leftRightArrow.case;\012sub less hyphen.case greater.case by leftRightArrow.case;\012sub less.case hyphen.case greater.case by leftRightArrow.case;\012sub less [endash emdash] greater by leftRightLongArrow;\012sub less [endash.case emdash.case] greater by leftRightLongArrow.case;\012sub less [endash.case emdash.case] greater.case by leftRightLongArrow.case;\012sub less.case [endash.case emdash.case] greater.case by leftRightLongArrow.case;\012sub less hyphen hyphen greater by leftRightLongArrow;\012sub less hyphen.case hyphen.case greater by leftRightLongArrow.case;\012sub less hyphen.case hyphen.case greater.case by leftRightLongArrow.case;\012sub less.case hyphen.case hyphen.case greater.case by leftRightLongArrow.case;\012\012# arrows: -> -->\012sub hyphen greater by rightArrow;\012sub hyphen.case greater by rightArrow.case;\012sub hyphen.case greater.case by rightArrow.case;\012sub [endash emdash] greater by rightLongArrow;\012sub [endash.case emdash.case] greater by rightLongArrow.case;\012sub [endash.case emdash.case] greater.case by rightLongArrow.case;\012\012# arrows: <- <--\012ignore sub less @DASH @NUM; # e.g. \"<-3\"\012sub less' hyphen' by leftArrow;\012sub less' hyphen.case' by leftArrow.case;\012sub less.case' hyphen.case' by leftArrow.case;\012sub less' [endash emdash]' by leftLongArrow;\012sub less' [endash.case emdash.case]' by leftLongArrow.case;\012sub less.case' [endash.case emdash.case]' by leftLongArrow.case;\012\012# :-)\012sub colon' @DASH [parenright parenright.case] by colon.case;\012sub [colon colon.case] hyphen' [parenright parenright.case] by hyphen.case;\012sub [colon colon.case] endash' [parenright parenright.case] by endash.case;\012sub [colon colon.case] emdash' [parenright parenright.case] by emdash.case;\012sub [colon colon.case] @DASH parenright' by parenright.case;\012\012# A foo' -> A foo.case\012#\012# ignore subs adjacent to lower case\012#\012# x[]X\012ignore sub @LC @CASE_DELIM_L @CASE_DELIM_L @UC;\012ignore sub @LC @CASE_DELIM_L @UC;\012ignore sub @LC @CASE_DELIM_L @SPACE @UC;\012ignore sub @LC @CASE_DELIM_L @SPACE @SPACE @UC;\012#\012# short runs of uc-lc, e.g \"(Xx)\", \"[Zzz]\"\012ignore sub @CASE_DELIM_L @UC @LC @CASE_DELIM_L;\012ignore sub @CASE_DELIM_L @UC @All @LC @CASE_DELIM_L;\012#\012# e.g. \"x-\"\012# TODO: figure out how to ignore \"x--A\"\012ignore sub @LC @CASE_L;\012#\012# e.g. \"-x\", \"--x\", \"---x\", \"----x\", \"-----x\"\012ignore sub @CASE_L @LC;\012ignore sub @CASE_L @CASE_L @LC;\012ignore sub @CASE_L @CASE_L @CASE_L @LC;\012ignore sub @CASE_L @CASE_L @CASE_L @CASE_L @LC;\012ignore sub @CASE_L @CASE_L @CASE_L @CASE_L @CASE_L @LC;\012#\012# pairs with space, e.g. \"( ) M\" since we don't support subbing\012# all on the left side.\012ignore sub @CASE_DELIM_L @SPACE @CASE_DELIM_L @SPACE [ @UC @CASE_R ];\012ignore sub @CASE_DELIM_L @CASE_DELIM_L @SPACE [ @UC @CASE_R ];\012#\012# e.g. \"A-\", \"A -\", \"A -\"\012sub [ @UC @CASE_R ] @CASE_L' by @CASE_R;\012sub [ @UC @CASE_R ] @SPACE @CASE_L' by @CASE_R;\012sub [ @UC @CASE_R ] @SPACE @SPACE @CASE_L' by @CASE_R;\012\012# foo' foo foo foo foo A -> foo.case foo foo foo foo A\012# foo' foo foo foo A -> foo.case foo foo foo A\012# foo' foo foo A -> foo.case foo foo A\012# foo' foo A -> foo.case foo A\012# foo' A -> foo.case A\012# Note: since we look quite far back, sequences like x{}[]M will case both\012# the square brackets next to M _and_ the curly braces to become .case\012# \012# e.g. \"-A\", \"--A\", \"---A\", \"----A\", \"-----A\"\012sub @CASE_L' [ @UC @CASE_R ] by @CASE_R;\012sub @CASE_L' @CASE_L [ @CASE_R @UC ] by @CASE_R;\012sub @CASE_L' @CASE_L @CASE_L [ @CASE_R @UC ] by @CASE_R;\012sub @CASE_L' @CASE_L @CASE_L @CASE_L [ @CASE_R @UC ] by @CASE_R;\012sub @CASE_L' @CASE_L @CASE_L @CASE_L @CASE_L [ @CASE_R @UC ] by @CASE_R;\012# \012# e.g. \"- A\", \"-- A\", \"--- A\", \"---- A\", \"----- A\"\012sub @CASE_L' @SPACE [ @UC @CASE_R ] by @CASE_R;\012sub @CASE_L' @CASE_L @SPACE [ @CASE_R @UC ] by @CASE_R;\012sub @CASE_L' @CASE_L @CASE_L @SPACE [ @CASE_R @UC ] by @CASE_R;\012sub @CASE_L' @CASE_L @CASE_L @CASE_L @SPACE [ @CASE_R @UC ] by @CASE_R;\012sub @CASE_L' @CASE_L @CASE_L @CASE_L @CASE_L @SPACE [ @CASE_R @UC ] by @CASE_R;\012# \012# e.g. \"- A\", \"-- A\", \"--- A\", \"---- A\", \"----- A\"\012sub @CASE_L' @SPACE @SPACE [ @UC @CASE_R ] by @CASE_R;\012sub @CASE_L' @CASE_L @SPACE @SPACE [ @CASE_R @UC ] by @CASE_R;\012sub @CASE_L' @CASE_L @CASE_L @SPACE @SPACE [ @CASE_R @UC ] by @CASE_R;\012sub @CASE_L' @CASE_L @CASE_L @CASE_L @SPACE @SPACE [ @CASE_R @UC ] by @CASE_R;\012sub @CASE_L' @CASE_L @CASE_L @CASE_L @CASE_L @SPACE @SPACE [ @CASE_R @UC ] by @CASE_R;\012sub @CASE_L' @SPACE @SPACE @SPACE [ @UC @CASE_R ] by @CASE_R; # e.g. \"- A\"\012\012# X(_)\012@Punctuation = [\012 slash bar quoteleft quoteright apostrophemod quotesingle quotedbl\012 quotedblleft quotedblright quotedblbase quotesinglbase prime doubleprime\012 tripleprime quadrupleprime primerev doubleprimerev tripleprimerev primemod\012 doubleprimemod comma period ellipsis twodotleader semicolon underscore\012 asciicircum circumflex\012 asterisk\012];\012sub @CASE_DELIM_R @Punctuation @CASE_DELIM_L' by @CASE_DELIM_R;\012\012# in between numbers\012@between_num_L = [\012 x\012 asterisk\012];\012@between_num_R = [\012 multiply.case\012 asterisk.case\012];\012sub @NUM @between_num_L' @NUM by @between_num_R; # 3*9\012sub @NUM @SPACE @between_num_L' @NUM by @between_num_R; # 3 *9\012sub @NUM @SPACE @SPACE @between_num_L' @NUM by @between_num_R; # 3 *9\012sub @NUM @between_num_L' @SPACE @NUM by @between_num_R; # 3* 9\012sub @NUM @SPACE @between_num_L' @SPACE @NUM by @between_num_R; # 3 * 9\012sub @NUM @SPACE @SPACE @between_num_L' @SPACE @NUM by @between_num_R; # 3 * 9\012sub @NUM @between_num_L' @SPACE @SPACE @NUM by @between_num_R; # 3* 9\012sub @NUM @SPACE @between_num_L' @SPACE @SPACE @NUM by @between_num_R; # 3 * 9\012sub @NUM @SPACE @SPACE @between_num_L' @SPACE @SPACE @NUM by @between_num_R; # 3 * 9\012"; name = calt; }, { |