home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / amigae / stderr.lha / stderrtest.e < prev    next >
Encoding:
Text File  |  1994-09-06  |  777 b   |  38 lines
  1.  
  2. MODULE 'other/stderr'
  3.  
  4. PROC main() HANDLE
  5. DEF fh, file
  6. file:='RAM:test.txt'
  7. err_Name('StdErrTest')
  8. err_WriteF('StdErr test.\nLook in \s\n',[file]) -> NOTE: argument passing.
  9. fh := Open('RAM:',0)
  10. IF fh = NIL
  11.  err_WriteF() -> You don't HAVE to say anything.
  12. ELSE
  13.  Close(fh)
  14. ENDIF
  15. err_New(file)
  16. err_WriteF('I can print errors to a file, too!\n')
  17. err_New(stdout)
  18. err_WriteF('Redirectable stdout text.\n')
  19. err_New()  -> Without options, will go to StdErr port
  20. err_WriteF('Non-redirectable stderr text.\n')
  21. err_Dispose()
  22. EXCEPT
  23.  SELECT exception
  24.   CASE "MEM"
  25.    WriteF('Not enough memory.\n')
  26.   CASE "FILE"
  27.    WriteF('File i/o error.\n')
  28.   CASE "OPEN"
  29.    WriteF('Open file error.\n')
  30.   DEFAULT
  31.    WriteF('SOME kind of error occured.\n')
  32.  ENDSELECT
  33.  
  34. ENDPROC
  35. /*EE folds
  36. -1
  37. EE folds*/
  38.