DIRECTORY
Basics USING [CompareInt],
BasicTime USING [GMT, Now],
Commander USING [CommandProc, Register],
CommanderOps USING [ParseToList],
IO USING [GetLine, PutF1, PutRope, rope, time],
List USING [CompareProc, LORA, Sort],
RefText USING [New],
Rope USING [Fetch, FromRefText, Length, Replace, ROPE, SkipTo],
TimeParse;

ParseIt: CEDAR PROGRAM
IMPORTS Basics, BasicTime, Commander, CommanderOps, IO, List, RefText, Rope, TimeParse
= BEGIN

buffer: REF TEXT ¬ RefText.New[1000];

alNumRope: Rope.ROPE = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789";

Compare: List.CompareProc = {
p1, p2: REF TimeParse.PieceType;

p1 ¬ NARROW[ref1];
p2 ¬ NARROW[ref2];
RETURN[Basics.CompareInt[p1.start, p2.start]];
};

CmdParse: Commander.CommandProc = {
str: Rope.ROPE;
cnt, len: INT;
time: BasicTime.GMT;
inputList: LIST OF Rope.ROPE;
pieces: TimeParse.PiecesType;
piece: REF TimeParse.PieceType;
piecesLora: List.LORA;
dir: TimeParse.DirectionType ¬ heuristic;
insistTime, insistDay: BOOLEAN ¬ TRUE;

ListToLora: PROC[ls: TimeParse.PiecesType] RETURNS [lr: List.LORA ¬ NIL] = {
WHILE ls # NIL DO
lr ¬ CONS[ls.first, lr];
ls ¬ ls.rest;
ENDLOOP;
};

inputList ¬ CommanderOps.ParseToList[cmd: cmd
].list;
WHILE inputList # NIL DO
str ¬ inputList.first;
IF Rope.Length[str] > 1 AND Rope.Fetch[str] = '- THEN {
 SELECT Rope.Fetch[str, 1] FROM
'b => dir ¬ backward;
'f => dir ¬ forward;
'h => dir ¬ heuristic;
'd => insistDay ¬ FALSE;
't => insistTime ¬ FALSE;
ENDCASE => {IO.PutRope[cmd.out, "Usage: parse -[bfhtd]\n"]; RETURN;};
};
inputList ¬ inputList.rest;
ENDLOOP;
WHILE TRUE DO
ENABLE TimeParse.ParseError => {
SELECT errorType FROM
noTime => IO.PutRope[cmd.out, "No time specified\n"];
yearOrMonthButNoDay => IO.PutRope[cmd.out, "Doesn't make sense to have year/month but no day\n"];
yearButNoMonth => IO.PutRope[cmd.out, "Doesn't make sense to have year but no month\n"];
dayWeekdayMismatch => IO.PutRope[cmd.out, "Mismatch between weekday and date\n"];
badYearInSlash => IO.PutRope[cmd.out, "mm/dd/yy has invalid value for year\n"];
twoYears => IO.PutRope[cmd.out, "The year is specified in two different ways\n"];
ENDCASE => NULL;
LOOP;
};
str ¬ Rope.FromRefText[IO.GetLine[cmd.in, buffer]];
[time, pieces] ¬ TimeParse.Parse[str, BasicTime.Now[], dir, insistTime, insistDay];
IO.PutF1[cmd.out, "%g\n", IO.time[time]];
cnt ¬ 0;
piecesLora ¬ List.Sort[ListToLora[pieces], Compare];
WHILE piecesLora # NIL DO
piece ¬ NARROW[piecesLora.first];
len ¬ piece.len;
IF piecesLora.rest # NIL AND Rope.SkipTo[str, piece.start - cnt + len, alNumRope] >= NARROW[piecesLora.rest.first, REF TimeParse.PieceType].start  - cnt THEN
len ¬ NARROW[piecesLora.rest.first, REF TimeParse.PieceType].start - piece.start;
str ¬ Rope.Replace[str, piece.start - cnt, len];
cnt ¬ cnt + len;
piecesLora ¬ piecesLora.rest;
ENDLOOP;
IO.PutF1[cmd.out, "  Revised String: %g\n", IO.rope[str]];
ENDLOOP;
};

Commander.Register[
key: "parseit",
proc: CmdParse,
doc: "Parse a time value\n  -b backward\n  -f forward\n  -h heuristic\n  -d  don't insist on Day\n  -t don't insist on Time" ];

END.
   ì  
ParseIt.mesa
Copyright Ó 1990, 1992 by Xerox Corporation.  All rights reserved.
David Goldberg December 6, 1989 10:24:33 pm PST
Peter B. Kessler, January 10, 1990 10:39:41 am PST
Willie-s, May 5, 1992 2:29 pm PDT

PROC[ref1: REF ANY, ref2: REF ANY] RETURNS [Comparison];
PROC [cmd: Handle] RETURNS [result: REF _ NIL, msg: ROPE _ NIL];
! CommanderOps.Failed => {log.PutRope["invalid input format\n"]; GO TO quit}
if there is only punctuation between two pieces, remove the punctuation
Ê  •NewlineDelimiter
–(cedarcode) style™ codešœ™Iproc–"Cedar" stylešœ
Ïeœ7™BL–"Cedar" stylešœ/™/K™2K™!K™ —šÏk	˜	Kšœžœ˜Kšœ
žœžœ˜Kšœ
žœ˜(Kšœžœ˜!Kšžœžœ'˜/Kšœžœžœ˜%Kšœžœ˜Kšœžœ'žœ
˜?K˜
K˜ —KšÐlnœž˜Kšžœ-žœ ˜Všœž˜K˜ Kšœžœžœ˜%K˜ KšœžœD˜XK˜ šÏnœ˜Kšžœžœžœžœžœžœ™8Kšœžœ˜ K˜ Kšœžœ˜Kšœžœ˜Kšžœ(˜.Kšœ˜K˜ —š œ˜#K–4 in tabStopsšžœžœ
žœžœžœžœ™@K–4 in tabStopsšœ
žœ˜K–4 in tabStopsšœ
žœ˜K–4 in tabStopsšœžœ˜Kšœžœžœžœ˜K–4 in tabStops˜K–4 in tabStopsšœžœ˜K–4 in tabStopsšœžœ˜K–4 in tabStops˜)K–4 in tabStopsšœžœžœ˜&K˜ –3 in tabStopsš
 
œžœžœžœžœ˜Lcode2šžœžœž˜Kšœžœ˜K˜Kšžœ˜—Kšœ˜K–3 in tabStops˜ —˜-KšœAžœžœ™L—Kšœ˜šžœžœž˜K˜šžœžœžœ˜7šœžœž˜K˜K˜K˜Kšœžœ˜Kšœžœ˜Kšžœžœ.žœ˜E—Kšœ˜—K˜Kšžœ˜—šžœžœž˜šžœ˜ šžœž˜Kšœ
žœ)˜5KšœžœH˜aKšœžœD˜XKšœžœ9˜QKšœžœ;˜OKšœžœC˜QKšžœžœ˜—Kšžœ˜K˜—Kšœžœ˜3K˜SKšžœžœ˜)K˜K˜4šžœžœž˜Kšœžœ˜!K˜KšœG™Gšžœžœžœ9žœžœ#ž˜Kšœžœžœ*˜Q—K˜0K˜K˜Kšžœ˜—Kšžœ*žœ˜:Kšžœ˜—K˜—K˜ —šœ˜Kšœ˜Kšœ˜Kšœ˜—K˜ Kšžœ˜— …—      ü  