home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / comp / os / vms / 20813 < prev    next >
Encoding:
Text File  |  1993-01-12  |  4.8 KB  |  127 lines
  1. Path: sparky!uunet!haven.umd.edu!decuac!pa.dec.com!engage.pko.dec.com!e2big.mko.dec.com!nntpd.lkg.dec.com!sousa.tay.dec.com!keptin.enet.dec.com
  2. From: granoff@keptin.enet.dec.com (Mark H. Granoff)
  3. Newsgroups: comp.os.vms
  4. Subject: Re: Implimenting "TOMORROW +1: 0:0" from an .EXE
  5. Message-ID: <2382@sousa.tay.dec.com>
  6. Date: 12 Jan 93 13:39:56 GMT
  7. References: <1993Jan11.153438.28624@magnus.acs.ohio-state.edu> <11JAN199319201213@spades.aces.com>
  8. Sender: newsa@sousa.tay.dec.com
  9. Reply-To: granoff@ranger.enet.dec.com
  10. Organization: Digital Equipment Corporation, Littleton, MA
  11. Lines: 114
  12.  
  13.  
  14. In article pat@magnus.acs.ohio-state.edu (Patrick E Plaisted) writes...
  15. >I have the need to set an AST timer queue entry to fire at, in DCL
  16. >syntax, "TOMORROW +1:0:0".  I've looked through all the LIB$ routines,
  17. >as well as $bintim and $asctim.  Is there a simple way to get a
  18. >quadword time value set to this so I can stick it into $setimr?  
  19. >My only thoughts on how to do this are:   
  20. > 
  21. >  1. calculate the number of hours to midnight.
  22. >  2. calculate the number of minutes to midnight.
  23. >  3. calculate the number of seconds to midnight.
  24. >  4. use lib$cvt_to_internal_time to convert these values to
  25. >     delta time quadwords.
  26. >  5. use lib$add_times to add these values to a quadword containing the 
  27. >     current time.
  28. >  6. again using lib$add_times, add 1 hour to this value.
  29. >  7. finally, call $setimr with the quadword.
  30. > 
  31. >I think this approach should work, but am I missing something really 
  32. >obvious?  Is there an easier way to do this?
  33.  
  34. No need to bother with lengthy, error-prone calculations! VMS has it now. :-)
  35. Attached is a C program from which you can figure out what you want to do.
  36.  
  37. Basically, you can call LIB$CONVERT_DATE_STRING to convert the string
  38. "TOMORROW" to quadword time format.  Similarly, you can call SYS$BINTIM to
  39. convert a string containing a delta time (like "0 1:00:00.00") to quadword time
  40. format.  And finally, you can call LIB$ADD_TIMES to add the two together.  The
  41. result is suitable for use in SYS$SETIMR.
  42.  
  43. As an added bonus, there are some other time manipulations in here, too. 
  44. Enjoy.
  45.  
  46. Disclaimer: This program is provided AS IS, as a demonstration program only.
  47. Neither I nor Digital Equipment Corporation assume any responsibility or
  48. liability for use of this program.
  49.  
  50. /*     
  51. **  time_test.c
  52. **
  53. **  Modification History
  54. **  Date    Who        Description
  55. **  ----------- --------------- --------------------------------------------
  56. **  28 Dec 1989 M. Granoff    Author
  57. **
  58. **  Demonstrate converting time and date strings to internal values and vice
  59. **  versa.
  60. */
  61.  
  62. #include <stdio>
  63. #include <descrip>
  64.  
  65. /*
  66. **  Global Variables
  67. */
  68.  
  69. static char *day_name[8] = {"","Monday","Tuesday","Wednesday",
  70.                             "Thursday","Friday","Saturday","Sunday"};
  71.  
  72. /*     
  73. **  External Declarations
  74. */     
  75.  
  76. extern int  lib$convert_date_string(), lib$day_of_week(), sys$asctim(), 
  77.             sys$bintim(), lib$add_times();
  78.  
  79. main() {
  80.     $DESCRIPTOR (ascii_time, "XX-XXX-XXXX 00:00:00.00"); /* Filler */
  81.     int        ascii_time_len;
  82.     int        day_number;
  83.     /* Flags for convert_date_string; default all time fields and the year */
  84.     int        flags = 121;
  85.     int        internal_time[2];
  86.     int        next_day_time[2];
  87.     $DESCRIPTOR (one_day, "1 00:00:00.00");
  88.     int        one_day_delta[2];
  89.     $DESCRIPTOR (string_date, "TODAY");
  90.     int        sts;
  91.  
  92.     sts = lib$convert_date_string(&string_date, &internal_time, 0, 
  93.                                   &flags, 0, 0);
  94.     printf("Status of lib$convert_date_string call was %%x%X\n",sts);
  95.  
  96.     sts = lib$day_of_week(&internal_time, &day_number);
  97.     printf("Status of lib$day_of_week call was %%x%X\n",sts);
  98.     printf("The date %s is a %s\n", string_date.dsc$a_pointer, 
  99.                                     day_name[day_number]);
  100.  
  101.     sts = sys$asctim(&ascii_time_len, &ascii_time, &internal_time, 0);
  102.     printf("Status of sys$asctim call was %%x%X\n",sts);
  103.     printf("ASCII time is %.*s\n",ascii_time,ascii_time_len);
  104.  
  105.     sts = sys$bintim(&one_day, &one_day_delta);
  106.     printf("Status of sys$bintim call was %%x%X\n",sts);
  107.  
  108.     sts = lib$add_times(&internal_time, &one_day_delta, &next_day_time);
  109.     printf("Status of lib$add_times call was %%x%X\n",sts);
  110.  
  111.     sts = sys$asctim(&ascii_time_len, &ascii_time, &next_day_time, 0);
  112.     printf("Status of sys$asctim call was %%x%X\n",sts);
  113.     printf("The next day is %.*s\n",ascii_time,ascii_time_len);
  114.  
  115. }
  116.  
  117.  
  118. --
  119. Mark H. Granoff | Personal Computing Systems Network S/W Development Group  
  120. ---------------------------------------------------------------------------
  121. Digital Equipment Corporation | Internet: granoff@keptin.enet.dec.com
  122. 30 Porter Road, LJO2/I4       | Usenet  : ...!decwrl!keptin.enet!granoff
  123. Littleton, MA 01460           | AT&T    : +1 508 486 2090
  124. ---------------------------------------------------------------------------
  125. Opinions herein are my own and do not necessarily reflect those of Digital.
  126.  
  127.