Take out memory hints, since we are assuming flex over lex, so this shouldn't be...
[mmh] / sbr / dtimep.lex
index c36844d..8e78245 100644 (file)
@@ -1,7 +1,3 @@
-%e 2000
-%p 5000
-%n 1000
-%a 4000
 %{
 #include <h/nmh.h>
 #include <h/tws.h>
@@ -358,6 +354,7 @@ d   [0-9]
 #ifdef ADJUST_NUMERIC_ONLY_TZ_OFFSETS_WRT_DST
                                    zonehack (&tw);
 #endif /* ADJUST_NUMERIC_ONLY_TZ_OFFSETS_WRT_DST */
+                                   //                              yyterminate();
                                     }
 "-"{D}{d}{d}                                  {
                                     INIT();
@@ -366,11 +363,11 @@ d [0-9]
 #ifdef ADJUST_NUMERIC_ONLY_TZ_OFFSETS_WRT_DST
                                    zonehack (&tw);
 #endif /* ADJUST_NUMERIC_ONLY_TZ_OFFSETS_WRT_DST */
+                                   //                              yyterminate();
+                                   
                                     }
 "-"?("ut"|"UT")                            INIT(); SETZONE(0);
 "-"?("gmt"|"GMT")                  INIT(); SETZONE(0);
-"-"?("jst"|"JST")                  INIT(); SETZONE(200);
-"-"?("jdt"|"JDT")                  INIT(); SETDST(); SETZONE(2);
 "-"?("est"|"EST")                  INIT(); SETZONE(-500);
 "-"?("edt"|"EDT")                  INIT(); SETDST(); SETZONE(-500);
 "-"?("cst"|"CST")                  INIT(); SETZONE(-600);
@@ -382,21 +379,7 @@ d  [0-9]
 "-"?("nst"|"NST")                  INIT(); SETZONE(-330);
 "-"?("ast"|"AST")                  INIT(); SETZONE(-400);
 "-"?("adt"|"ADT")                  INIT(); SETDST(); SETZONE(-400);
-"-"?("yst"|"YST")                  INIT(); SETZONE(-900);
-"-"?("ydt"|"YDT")                  INIT(); SETDST(); SETZONE(-900);
 "-"?("hst"|"HST")                  INIT(); SETZONE(-1000);
 "-"?("hdt"|"HDT")                  INIT(); SETDST(); SETZONE(-1000);
-"-"?("bst"|"BST")                  INIT(); SETDST(); SETZONE(-100);
-[a-iA-I]                           {
-                                       INIT();
-                                       SETZONE(100*(('a'-1) - tolower(*cp)));
-                                   }
-[k-mK-M]                           {
-                                       INIT();
-                                       SETZONE(100*('a' - tolower(*cp)));
-                                   }
-[n-yN-Y]                           {
-                                       INIT();
-                                       SETZONE(100*(tolower(*cp) - 'm'));
-                                    }
+"-"?([a-z]{3}|[A-Z]{3})                    ;
 .|\n