home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / Moscow ML 1.42 / src / compiler / Predef.sml < prev    next >
Encoding:
Text File  |  1997-08-18  |  1.5 KB  |  45 lines  |  [TEXT/Moml]
  1. local open Const in
  2. val predef_variables = [
  3.   {qual="(global)", id="global_data"},
  4.   {qual="(global)", id="s_irusr"},
  5.   {qual="(global)", id="s_iwusr"},
  6.   {qual="(global)", id="s_ixusr"},
  7.   {qual="(global)", id="s_irgrp"},
  8.   {qual="(global)", id="s_iwgrp"},
  9.   {qual="(global)", id="s_ixgrp"},
  10.   {qual="(global)", id="s_iroth"},
  11.   {qual="(global)", id="s_iwoth"},
  12.   {qual="(global)", id="s_ixoth"},
  13.   {qual="(global)", id="s_isuid"},
  14.   {qual="(global)", id="s_isgid"},
  15.   {qual="(global)", id="s_irall"},
  16.   {qual="(global)", id="s_iwall"},
  17.   {qual="(global)", id="s_ixall"},
  18.   {qual="(global)", id="command_line"},
  19.   {qual="(global)", id="interactive"},
  20.   {qual="(global)", id="max_string_length"},
  21.   {qual="(global)", id="max_vect_length"}
  22. ];
  23. val predef_exn = [
  24.   ({qual="exc", id="Out_of_memory"}, 1),
  25.   ({qual="sys", id="Sys_error"}, 1),
  26.   ({qual="exc", id="Failure"}, 3),
  27.   ({qual="exc", id="Invalid_argument"}, 2),
  28.   ({qual="io", id="End_of_file"}, 1),
  29.   ({qual="int", id="Division_by_zero"}, 1),
  30.   ({qual="sys", id="Break"}, 2),
  31.   ({qual="exc", id="Not_found"}, 4),
  32.   ({qual="unix", id="Unix_error"}, 1),
  33.   ({qual="graphics", id="Graphic_failure"}, 1),
  34.   ({qual="stream", id="Parse_failure"}, 1),
  35.   ({qual="general", id="Exception"}, 1),
  36.   ({qual="general", id="Bind"}, 2),
  37.   ({qual="general", id="Chr"}, 3),
  38.   ({qual="general", id="Div"}, 4),
  39.   ({qual="general", id="Domain"}, 5),
  40.   ({qual="general", id="Match"}, 6),
  41.   ({qual="general", id="Ord"}, 7),
  42.   ({qual="general", id="Overflow"}, 8)
  43. ];
  44. end;
  45.