home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD2.bin / bbs / gnu / sh-utils-1.12-src.lha / sh-utils-1.12 / lib / posixtm.y < prev    next >
Text File  |  1994-09-26  |  4KB  |  196 lines
  1. /* Parse dates for touch.
  2.    Copyright (C) 1989, 1990, 1991 Free Software Foundation Inc.
  3.  
  4.    This program is free software; you can redistribute it and/or modify
  5.    it under the terms of the GNU General Public License as published by
  6.    the Free Software Foundation; either version 2, or (at your option)
  7.    any later version.
  8.  
  9.    This program is distributed in the hope that it will be useful,
  10.    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12.    GNU General Public License for more details.
  13.  
  14.    You should have received a copy of the GNU General Public License
  15.    along with this program; if not, write to the Free Software
  16.    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  17.  
  18. /* Written by Jim Kingdon and David MacKenzie. */
  19. %{
  20.  
  21. #ifdef HAVE_CONFIG_H
  22. #include <config.h>
  23. #endif
  24.  
  25. /* The following block of alloca-related preprocessor directives is here
  26.    solely to allow compilation by non GNU-C compilers of the C parser
  27.    produced from this file by old versions of bison.  Newer versions of
  28.    bison include a block similar to this one in bison.simple.  */
  29.    
  30. #ifdef __GNUC__
  31. #define alloca __builtin_alloca
  32. #else
  33. #ifdef HAVE_ALLOCA_H
  34. #include <alloca.h>
  35. #else
  36. #ifdef _AIX
  37.  #pragma alloca
  38. #else
  39. void *alloca ();
  40. #endif
  41. #endif
  42. #endif
  43.  
  44. #include <stdio.h>
  45. #include <sys/types.h>
  46.  
  47. #ifdef TM_IN_SYS_TIME
  48. #include <sys/time.h>
  49. #else
  50. #include <time.h>
  51. #endif
  52.  
  53. /* Some old versions of bison generate parsers that use bcopy.
  54.    That loses on systems that don't provide the function, so we have
  55.    to redefine it here.  */
  56. #if !defined (HAVE_BCOPY) && defined (HAVE_MEMCPY) && !defined (bcopy)
  57. #define bcopy(from, to, len) memcpy ((to), (from), (len))
  58. #endif
  59.  
  60. #define YYDEBUG 1
  61.  
  62. /* Lexical analyzer's current scan position in the input string. */
  63. static char *curpos;
  64.  
  65. /* The return value. */
  66. static struct tm t;
  67.  
  68. time_t mktime ();
  69.  
  70. #define yyparse posixtime_yyparse
  71. static int yylex ();
  72. static int yyerror ();
  73. %}
  74.  
  75. %token DIGIT
  76.  
  77. %%
  78. date :
  79.        digitpair /* month */
  80.        digitpair /* day */
  81.        digitpair /* hours */
  82.        digitpair /* minutes */
  83.        year
  84.        seconds {
  85.              if ($1 >= 1 && $1 <= 12)
  86.            t.tm_mon = $1 - 1;
  87.          else {
  88.            YYABORT;
  89.          }
  90.          if ($2 >= 1 && $2 <= 31)
  91.            t.tm_mday = $2;
  92.          else {
  93.            YYABORT;
  94.          }
  95.          if ($3 >= 0 && $3 <= 23)
  96.            t.tm_hour = $3;
  97.          else {
  98.            YYABORT;
  99.          }
  100.          if ($4 >= 0 && $4 <= 59)
  101.            t.tm_min = $4;
  102.          else {
  103.            YYABORT;
  104.          }
  105.            }
  106.  
  107. year : digitpair {
  108.                    t.tm_year = $1;
  109.            /* Deduce the century based on the year.
  110.               See POSIX.2 section 4.63.3.  */
  111.            if ($1 <= 68)
  112.              t.tm_year += 100;
  113.          }
  114.     | digitpair digitpair {
  115.                             t.tm_year = $1 * 100 + $2;
  116.                 if (t.tm_year < 1900) {
  117.                   YYABORT;
  118.                 } else
  119.                   t.tm_year -= 1900;
  120.               }
  121.     | /* empty */ {
  122.                     time_t now;
  123.             struct tm *tmp;
  124.  
  125.                     /* Use current year.  */
  126.                     time (&now);
  127.             tmp = localtime (&now);
  128.             t.tm_year = tmp->tm_year;
  129.           }
  130.     ;
  131.  
  132. seconds : /* empty */ {
  133.                         t.tm_sec = 0;
  134.               }
  135.         | '.' digitpair {
  136.                       if ($2 >= 0 && $2 <= 61)
  137.                 t.tm_sec = $2;
  138.               else {
  139.                 YYABORT;
  140.               }
  141.             }
  142.         ;
  143.  
  144. digitpair : DIGIT DIGIT {
  145.                           $$ = $1 * 10 + $2;
  146.             }
  147.           ;
  148. %%
  149. static int
  150. yylex ()
  151. {
  152.   char ch = *curpos++;
  153.  
  154.   if (ch >= '0' && ch <= '9')
  155.     {
  156.       yylval = ch - '0';
  157.       return DIGIT;
  158.     }
  159.   else if (ch == '.' || ch == 0)
  160.     return ch;
  161.   else
  162.     return '?';            /* Cause an error.  */
  163. }
  164.  
  165. static int
  166. yyerror ()
  167. {
  168.   return 0;
  169. }
  170.  
  171. /* Parse a POSIX-style date and return it, or (time_t)-1 for an error.  */
  172.  
  173. time_t
  174. posixtime (s)
  175.      char *s;
  176. {
  177.   curpos = s;
  178.   /* Let mktime decide whether it is daylight savings time.  */
  179.   t.tm_isdst = -1;
  180.   if (yyparse ())
  181.     return (time_t)-1;
  182.   else
  183.     return mktime (&t);
  184. }
  185.  
  186. /* Parse a POSIX-style date and return it, or NULL for an error.  */
  187.  
  188. struct tm *
  189. posixtm (s)
  190.      char *s;
  191. {
  192.   if (posixtime (s) == -1)
  193.     return NULL;
  194.   return &t;
  195. }
  196.