home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / vmsnet / misc / 1079 < prev    next >
Encoding:
Internet Message Format  |  1992-12-17  |  1.5 KB
  1. Path: sparky!uunet!sunquest!spades.aces.com!gavron
  2. From: gavron@spades.aces.com (Ehud Gavron 602-570-2000 x. 2546)
  3. Newsgroups: vmsnet.misc
  4. Subject: Re: writing lexical functions
  5. Message-ID: <17DEC199211540418@spades.aces.com>
  6. Date: 17 Dec 92 18:54:00 GMT
  7. References: <Bz3KEC.Es2@wm.estec.esa.nl> <12DEC199200264446@spades.aces.com> <1992Dec13.020257.1@tango.cchs.su.oz.au> <BzCAvM.9o9@bcstec.ca.boeing.com>
  8. Sender: news@sunquest.UUCP
  9. Reply-To: gavron@ACES.COM
  10. Organization: ACES Consulting Inc.
  11. Lines: 33
  12. News-Software: VAX/VMS VNEWS 1.4-b1
  13.  
  14. In article <BzCAvM.9o9@bcstec.ca.boeing.com>, silverm@bcstec.ca.boeing.com (Jeff Silverman) writes...
  15. #    I, for one, would like a complete time arithmetic package.  Yes,
  16. #I know I can run a program, use the $ASCTIM and $BINTIM system services and
  17. #the LIB$ADDX and LIB$SUBX calls to do the time arithmetic.  But, doing all
  18. #that takes an image activation, plus, I gotta get the symbols out of DCL and
  19. #put the answer back into a symbol in DCL... a mess.
  20.  
  21. Would be nice...
  22.  
  23. #    I would like a silo of the last few (20? 30?) error messages, including
  24. #the 32 bit error codes.
  25.  
  26. I'd say the last 3-4 would be cool, but that's not there either.  This would
  27. require a patch to $exit or $putmsg.
  28.  
  29. #    I would like a lexical function which returns the CPU type (Alpha, or
  30. #VAX).
  31.  
  32. if f$getsyi("HOW_MODEL") .gt. 1023 then ALPHA else VAX
  33.  
  34. # 
  35. #    Jeff Silverman, Boeing
  36. # 
  37. #>--
  38. #>Ehud Gavron        (EG76)     
  39. #>gavron@vesta.sunquest.com
  40.  
  41.     Ehud
  42.  
  43. --
  44. Ehud Gavron        (EG76)     
  45. gavron@vesta.sunquest.com
  46. Did I do an INCORRECT THING??
  47.