extra/unicode/flags/flags.factor

   1 USING: accessors ascii assocs biassocs lexer sequences ;
   2
   3 IN: unicode.flags
   4
   5 MEMO: flag-codes ( -- biassoc ) H{
   6     { CHAR: A CHAR: 🇦 }
   7     { CHAR: B CHAR: 🇧 }
   8     { CHAR: C CHAR: 🇨 }
   9     { CHAR: D CHAR: 🇩 }
  10     { CHAR: E CHAR: 🇪 }
  11     { CHAR: F CHAR: 🇫 }
  12     { CHAR: G CHAR: 🇬 }
  13     { CHAR: H CHAR: 🇭 }
  14     { CHAR: I CHAR: 🇮 }
  15     { CHAR: J CHAR: 🇯 }
  16     { CHAR: K CHAR: 🇰 }
  17     { CHAR: L CHAR: 🇱 }
  18     { CHAR: M CHAR: 🇲 }
  19     { CHAR: N CHAR: 🇳 }
  20     { CHAR: O CHAR: 🇴 }
  21     { CHAR: P CHAR: 🇵 }
  22     { CHAR: Q CHAR: 🇶 }
  23     { CHAR: R CHAR: 🇷 }
  24     { CHAR: S CHAR: 🇸 }
  25     { CHAR: T CHAR: 🇹 }
  26     { CHAR: U CHAR: 🇺 }
  27     { CHAR: V CHAR: 🇻 }
  28     { CHAR: W CHAR: 🇼 }
  29     { CHAR: X CHAR: 🇽 }
  30     { CHAR: Y CHAR: 🇾 }
  31     { CHAR: Z CHAR: 🇿 }
  32 } >biassoc ;
  33
  34 : unicode>flag ( country-code -- flag )
  35     >upper [ flag-codes from>> at ] map ;
  36
  37 : flag>unicode ( flag -- country-code )
  38     [ flag-codes to>> at ] map ;
  39
  40 SYNTAX: FLAG: scan-token unicode>flag suffix! ;