home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / forth / pfe-0.000 / pfe-0 / pfe-0.9.13 / test / environ.4th < prev    next >
Encoding:
Text File  |  1993-12-12  |  1.4 KB  |  65 lines
  1. \
  2. \ test/environ.4th ---    prints, what ENVIRONMENT? reports.
  3. \ (duz 05Aug93)
  4. \
  5.  
  6. CR .( Environment as reported by system:)
  7. CR .( ==================================)
  8. CR
  9.  
  10. MARKER FORGET-ENVIRONMENT-DISPLAY
  11. DECIMAL
  12.  
  13. : KNOWN?    2DUP TYPE 20 OUT @ - SPACES ." = "
  14.         ENVIRONMENT? DUP 0= IF ." UNKNOWN!" CR  THEN ;
  15.  
  16. : .FLAG        KNOWN? IF  IF ." YES " ELSE ." NO " THEN  CR  THEN ;
  17. : .NUMBER    KNOWN? IF  . CR  THEN ;
  18.  
  19. : SHOW-ENV    S" /COUNTED-STRING"    .NUMBER
  20.         S" /HOLD"        .NUMBER
  21.         S" /PAD"        .NUMBER
  22.         S" ADDRESS-UNIT-BITS"    .NUMBER
  23.         S" CORE"        .FLAG
  24.         S" CORE-EXT"        .FLAG
  25.         S" FLOORED"        .FLAG
  26.         S" MAX-CHAR"        .NUMBER
  27.         S" MAX-D"        KNOWN? IF  D. CR THEN
  28.         S" MAX-N"        .NUMBER
  29.         S" MAX-U"        KNOWN? IF  U. CR THEN
  30.         S" MAX-UD"        KNOWN? IF UD. CR THEN
  31.         S" RETURN-STACK-CELLS"    .NUMBER
  32.         S" STACK-CELLS"        .NUMBER
  33.         S" BLOCK"        .FLAG
  34.         S" BLOCK-EXT"        .FLAG
  35.         S" DOUBLE"        .FLAG
  36.         S" DOUBLE-EXT"        .FLAG
  37.         S" EXCEPTION"        .FLAG
  38.         S" EXCEPTION-EXT"    .FLAG
  39.         S" FACILITY"        .FLAG
  40.         S" FACILITY-EXT"    .FLAG
  41.         S" FILE"        .FLAG
  42.         S" FILE-EXT"        .FLAG
  43.         S" FLOATING"        .FLAG
  44.         S" FLOATING-EXT"    .FLAG
  45.         S" FLOATING-STACK"    .NUMBER
  46.         S" MAX-FLOAT"        KNOWN? IF  FS. CR THEN
  47.         S" LOCALS"        .FLAG
  48.         S" LOCALS-EXT"        .FLAG
  49.         S" #LOCALS"        .NUMBER
  50.         S" MEMORY-ALLOC"    .FLAG
  51.         S" MEMORY-ALLOC-EXT"    .FLAG
  52.         S" TOOLS"        .FLAG
  53.         S" TOOLS-EXT"        .FLAG
  54.         S" SEARCH-ORDER"    .FLAG
  55.         S" SEARCH-ORDER-EXT"    .FLAG
  56.         S" WORDLISTS"        .NUMBER
  57.         S" STRING"        .FLAG
  58.         S" STRING-EXT"        .FLAG
  59.         S" A NONSENSE STRING"    .FLAG
  60. ;
  61.  
  62. SHOW-ENV .S
  63.  
  64. FORGET-ENVIRONMENT-DISPLAY
  65.