home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / BIPL.ZIP / PROCS.ZIP / USAGE.ICN < prev    next >
Encoding:
Text File  |  1992-09-28  |  1.7 KB  |  65 lines
  1. ############################################################################
  2. #
  3. #    File:     usage.icn
  4. #
  5. #    Subject:  Procedures for service functions
  6. #
  7. #    Author:   Ralph E. Griswold
  8. #
  9. #    Date:     July 19, 1991
  10. #
  11. ###########################################################################
  12. #
  13. #     These procedures provide various common services:
  14. #
  15. #     Usage(s)          stops executions with a message concerning the
  16. #                       expected form of usage of a program.
  17. #
  18. #     Error(L[])    writes arguments to &errout and returns.
  19. #
  20. #
  21. #     ErrorCheck(l,f)    reports an error that has been converted to
  22. #                       failure.
  23. #
  24. #     Feature(s)        succeeds if feature s is available in the running
  25. #                       implementation of Icon.
  26. #
  27. #     Requires(s)    terminates execution is feature s is not available.
  28. #
  29. #     Signature()    writes the version, host, and features support in
  30. #                       the running implementation of Icon.
  31. #
  32. ############################################################################
  33.  
  34. procedure Usage(s)
  35.    stop("Usage: ",s)
  36. end
  37.  
  38. procedure Error(L[])
  39.    push(L,"*** ")
  40.    push(L, &errout)
  41.    write ! L
  42. end
  43.  
  44. procedure ErrorCheck(line,file)
  45.    if &errortext == "" then fail    # No converted error
  46.    write("\nError ",&errornumber," at line ",line, " in file ",file)
  47.    write(&errortext)
  48.    write("offending value: ",image(&errorvalue))
  49.    return
  50. end
  51.  
  52. procedure Feature(s)
  53.    if s == &features then return else fail
  54. end
  55.  
  56. procedure Requires(s)
  57.    if not(Feature(s)) then stop(s," required")
  58. end
  59.  
  60. procedure Signature()
  61.    write(&version)
  62.    write(&host)
  63.    every write(&features)
  64. end
  65.