// $Source$
// $Revision$
// $Date$

$use Class Compare Convert;

$const Reserved_Words =

// ------------           Keywords            ------------

  "asm"         "do"            "inline"            "short"        "typeid"
  "auto"        "double"        "int"               "signed"       "typename"
  "bool"        "dynamic_cast"  "long"              "sizeof"       "union"
  "break"       "else"          "mutable"           "static"       "unsigned"
  "case"        "enum"          "namespace"         "static_cast"  "using"
  "catch"       "explicit"      "new"               "struct"       "virtual"
  "char"        "extern"        "operator"          "switch"       "void"
  "class"       "false"         "private"           "template"     "volatile"
  "const"       "float"         "protected"         "this"         "wchar_t"
  "const_cast"  "for"           "public"            "throw"        "while"
  "continue"    "friend"        "register"          "true"
  "default"     "goto"          "reinterpret_cast"  "try"
  "delete"      "if"            "return"            "typedef"


// ------------  Alternative representations  ------------

  "and"      "and_eq"   "bitand"   "bitor"   "compl"    "not"
  "not_eq"   "or"       "or_eq"    "xor"     "xor_eq";


IsReservedWord e.word = \{
  <ToChars e.word> : '_' s.char e, \{
    s.char : '_';
    <IsLetter s.char>, # \{ '?!' : e s.char e; }, <Lt (s.char) ('a')>;
  };
  <ToWord e.word> :: s.word, &Reserved_Words : e s.word e;
};