home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / lang / tcl / 2268 < prev    next >
Encoding:
Text File  |  1992-12-30  |  4.7 KB  |  137 lines
  1. Newsgroups: comp.lang.tcl
  2. Path: sparky!uunet!zaphod.mps.ohio-state.edu!menudo.uh.edu!sugar!markd
  3. From: markd@NeoSoft.com (Mark Diekhans)
  4. Subject: Patch to Extended Tcl convertclock command
  5. Organization: NeoSoft Communications Services -- (713) 684-5900
  6. Date: Wed, 30 Dec 1992 07:35:33 GMT
  7. Message-ID: <C02AFB.3ss@NeoSoft.com>
  8. Lines: 127
  9.  
  10.  
  11. Patch to Extended Tcl tclX6.4c or tclX6.5c.
  12.  
  13. This patch fixes a bug in the convertclock command were a date string without
  14. an explict timezone returns invalid results.
  15.  
  16. This will work on either tclX6.4c or tclX6.5c.  This is patch3 because patch2
  17. brought tclX6.4c up to tclX6.5c.
  18.  
  19. If you have any problems, please mail tcl-project@NeoSoft.com.
  20.  
  21.  
  22. *** /u/markd/tmp/tclX6.5c/src/tclXgetdate.y    Sat Dec 19 14:15:21 1992
  23. --- src/tclXgetdate.y    Tue Dec 29 22:50:23 1992
  24. ***************
  25. *** 18,24 ****
  26.    *     University of North Carolina at Chapel Hill
  27.    *     getdate.y    2.13    9/16/86
  28.    *-----------------------------------------------------------------------------
  29. !  * $Id: tclXgetdate.y,v 2.1 1992/11/20 04:37:02 markd Exp $
  30.    *-----------------------------------------------------------------------------
  31.    */
  32.   
  33. --- 18,24 ----
  34.    *     University of North Carolina at Chapel Hill
  35.    *     getdate.y    2.13    9/16/86
  36.    *-----------------------------------------------------------------------------
  37. !  * $Id: tclXgetdate.y,v 2.2 1992/12/30 06:49:39 markd Exp $
  38.    *-----------------------------------------------------------------------------
  39.    */
  40.   
  41. ***************
  42. *** 527,533 ****
  43.           dayLight = MAYBE;
  44.           hh = mm = ss = 0;
  45.           merid = 24;
  46. -         ourzone = zone;
  47.   
  48.           if (err = yyparse()) return (-1);
  49.   
  50. --- 527,532 ----
  51. ***************
  52. *** 535,542 ****
  53.           mcheck(zoneflag);
  54.           mcheck(dateflag);
  55.           mcheck(dayflag);
  56. - 
  57.           if (err) return (-1);
  58.           if (dateflag || timeflag || dayflag) {
  59.                   sdate = dateconv(month,day,year,hh,mm,ss,merid,ourzone,
  60.                                    dayLight);
  61. --- 534,548 ----
  62.           mcheck(zoneflag);
  63.           mcheck(dateflag);
  64.           mcheck(dayflag);
  65.           if (err) return (-1);
  66. + 
  67. +         /*
  68. +          * If timezone was not in strings, set it here.  yyparse nukes ourzone
  69. +          * if not specified, but not sure why.
  70. +          */
  71. +         if (!zoneflag)
  72. +             ourzone = zone;
  73. + 
  74.           if (dateflag || timeflag || dayflag) {
  75.                   sdate = dateconv(month,day,year,hh,mm,ss,merid,ourzone,
  76.                                    dayLight);
  77. *** /u/markd/tmp/tclX6.5c/src/patchlevel.h    Sat Dec 19 14:14:59 1992
  78. --- src/patchlevel.h    Tue Dec 29 22:51:50 1992
  79. ***************
  80. *** 1,2 ****
  81.   
  82. ! #define PATCHLEVEL 2
  83. --- 1,2 ----
  84.   
  85. ! #define PATCHLEVEL 3
  86. *** /u/markd/tmp/tclX6.5c/tests/clock.test    Sat Dec 19 14:14:46 1992
  87. --- tests/clock.test    Tue Dec 29 22:51:32 1992
  88. ***************
  89. *** 12,18 ****
  90.   # software for any purpose.  It is provided "as is" without express or
  91.   # implied warranty.
  92.   #------------------------------------------------------------------------------
  93. ! # $Id: clock.test,v 2.1 1992/11/07 20:36:55 markd Exp $
  94.   #------------------------------------------------------------------------------
  95.   #
  96.   
  97. --- 12,18 ----
  98.   # software for any purpose.  It is provided "as is" without express or
  99.   # implied warranty.
  100.   #------------------------------------------------------------------------------
  101. ! # $Id: clock.test,v 2.2 1992/12/30 06:50:35 markd Exp $
  102.   #------------------------------------------------------------------------------
  103.   #
  104.   
  105. ***************
  106. *** 67,69 ****
  107. --- 67,81 ----
  108.       fmtclock $clock {%b %d,%Y %H.%M GMT} GMT
  109.   } {Oct 23,1992 15.00 GMT}
  110.   
  111. + 
  112. + test clock-3.7 {convertclock tests} {
  113. +     # Test if local timezone works when not explicitly specified.
  114. + 
  115. +     set clock [getclock]
  116. +     set ourzone [fmtclock $clock %Z]
  117. +     set intime [fmtclock $clock {%a %h %d %T %Y}]
  118. + 
  119. +     set cnv1 [convertclock $intime]
  120. +     set cnv2 [convertclock "$intime $ourzone"]
  121. +     expr {$cnv1 == $cnv2}
  122. + } 1
  123. *** /u/markd/tmp/tclX6.5c/CHANGES    Sat Dec 19 14:16:11 1992
  124. --- CHANGES    Tue Dec 29 23:06:17 1992
  125. ***************
  126. *** 397,399 ****
  127. --- 397,405 ----
  128.   19 Dec 92: Extended Tcl 6.5c patch 2 released. Makes TclX6.4c-P1 compatible
  129.              with Tcl 6.5 and Tk 3.0.  Plus adds above fixes and features.
  130.   ===============================================================================
  131. + 29 Dec 92:
  132. +   o Fixed bug in convertclock command were a date string without an explict
  133. +     timezone returns invalid results.
  134. + ===============================================================================
  135. + 29 Dec 92: Extended Tcl 6.4c/6.5c patch3 released.
  136. + ===============================================================================
  137.