home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / historic / v941.tgz / icon.v941src.tar / icon.v941src / tests / general / kwds.icn < prev    next >
Text File  |  2002-01-30  |  3KB  |  91 lines
  1. #SRC: JCON
  2.  
  3. #  kwds.icn -- check keywords, as best can do reproducibly
  4.  
  5. procedure main()
  6.    local f
  7.  
  8.    &error := 747
  9.    # every kw("allocated", &allocated | "[failed]")
  10.    every kw("ascii", &ascii | "[failed]")
  11.    every kw("clock", nmap(&clock) | "[failed]")
  12.    # every kw("col", &col | "[failed]")
  13.    every kw("collections", &collections | "[failed]")
  14.    # every kw("control", &control | "[failed]")
  15.    every kw("cset", &cset | "[failed]")
  16.    every kw("current", ¤t | "[failed]")
  17.    every kw("date", nmap(&date) | "[failed]")
  18.    every kw("dateline", (&dateline ** 'kwfxday, EIRL:m') | "[failed]")
  19.    every kw("digits", &digits | "[failed]")
  20.    every kw("dump", &dump | "[failed]")
  21.    every kw("e", &e | "[failed]")
  22.    every kw("error", &error | "[failed]")
  23.    every kw("errornumber", &errornumber | "[failed]")
  24.    every kw("errortext", &errortext | "[failed]")
  25.    every kw("errorvalue", &errorvalue | "[failed]")
  26.    every kw("errout", &errout | "[failed]")
  27.    every kw("fail", &fail | "[failed]")
  28.  
  29.    every insert(f := set(), &features)
  30.    every delete(f, "dynamic loading" | "graphics" | "X Windows") # may be absent
  31.    every kw("features", member(f, &features))
  32.  
  33.    every kw("input", &input | "[failed]")
  34.    every kw("interval", &interval | "[failed]")
  35.    every kw("lcase", &lcase | "[failed]")
  36.    every kw("ldrag", &ldrag | "[failed]")
  37.    every kw("letters", &letters | "[failed]")
  38.    every kw("level", &level | "[failed]")
  39.    every kw("lpress", &lpress | "[failed]")
  40.    every kw("lrelease", &lrelease | "[failed]")
  41.    every kw("main", &main | "[failed]")
  42.    every kw("mdrag", &mdrag | "[failed]")
  43.    # every kw("meta", &meta | "[failed]")
  44.    every kw("mpress", &mpress | "[failed]")
  45.    every kw("mrelease", &mrelease | "[failed]")
  46.    every kw("null", &null | "[failed]")
  47.    every kw("output", &output | "[failed]")
  48.    every kw("phi", &phi | "[failed]")
  49.    every kw("pi", &pi | "[failed]")
  50.    every kw("pos", &pos | "[failed]")
  51.    every kw("progname", &progname | "[failed]")
  52.    every kw("random", &random | "[failed]")
  53.    every kw("rdrag", &rdrag | "[failed]")
  54.    every kw("regions", ®ions | "[failed]")
  55.    every kw("resize", &resize | "[failed]")
  56.    # every kw("row", &row | "[failed]")
  57.    every kw("rpress", &rpress | "[failed]")
  58.    every kw("rrelease", &rrelease | "[failed]")
  59.    # every kw("shift", &shift | "[failed]")
  60.    every kw("source", &source | "[failed]")
  61.    # every kw("storage", &storage | "[failed]")
  62.    every kw("subject", &subject | "[failed]")
  63.    every kw("time", nmap(right(&time,4,0)) | "[failed]")
  64.    every kw("trace", &trace | "[failed]")
  65.    every kw("ucase", &ucase | "[failed]")
  66.    # every kw("version", left(&version,16) | "[failed]")
  67.    # every kw("window", &window | "[failed]")
  68.    # every kw("x", &x | "[failed]")
  69.    # every kw("y", &y | "[failed]")
  70. end
  71.  
  72. procedure kw(label, value)
  73.    local s
  74.    static prev
  75.  
  76.    if \prev == label & value == "[failed]" then
  77.       return
  78.    case type(value) of {
  79.       "string":  s := value
  80.       "cset":    s := image(value) || "  [size " || *value || "]"
  81.       default:   s := image(value)
  82.       }
  83.    write(right("&" || label, 12), ": ", s)
  84.    prev := label
  85.    return
  86. end
  87.  
  88. procedure nmap(s)
  89.    return map(s, "0123456789", "nnnnnnnnnn")
  90. end
  91.