
DIRECTORY Commander, CommanderOps, Convert, IO, PFS, PFSNames, Rope;

PfsParseTest: CEDAR PROGRAM
IMPORTS Commander, CommanderOps, Convert, IO, PFS, PFSNames, Rope
= BEGIN

ROPE: TYPE ~ Rope.ROPE;

Shorten: Commander.CommandProc ~ {
argv: CommanderOps.ArgumentVector ~ CommanderOps.Parse[cmd];
FOR i: NAT IN [1..argv.argc) DO
arg: ROPE ~ argv[i];
{ENABLE PFS.Error => {
cmd.err.PutF["%g => PFS.Error[%g, %g]\n", [rope[arg]], [atom[error.code]], [rope[error.explanation]] ];
CONTINUE};
full: PFS.PATH ~ PFS.PathFromRope[argv[i]];
n: INT ~ full.ComponentCount[];
l: LIST OF PFSNames.Component _ NIL;
part: PFS.PATH;
res: ROPE;
FOR j: INT DECREASING IN (0..n) DO
l _ CONS[full.Fetch[j], l];
ENDLOOP;
part _ PFSNames.ConstructName[l, TRUE, full.IsADirectory[], FALSE];
res _ PFS.RopeFromPath[part];
cmd.out.PutF["\"%q\" => \"%q\"\n", [rope[arg]], [rope[res]] ];
}ENDLOOP;
RETURN};

Parse: Commander.CommandProc ~ {
argv: CommanderOps.ArgumentVector ~ CommanderOps.Parse[cmd];
FOR i: NAT IN [1..argv.argc) DO
arg: ROPE ~ argv[i];
{ENABLE PFS.Error => {
cmd.err.PutF["%g => PFS.Error[%g, %g]\n", [rope[arg]], [atom[error.code]], [rope[error.explanation]] ];
CONTINUE};
full: PFS.PATH ~ PFS.PathFromRope[argv[i]];
res: ROPE _ PFS.RopeFromPath[full];
cmd.out.PutF["\"%q\" => \"%q\"\n", [rope[arg]], [rope[res]] ];
}ENDLOOP;
RETURN};

FindBackward: Commander.CommandProc ~ {
argv: CommanderOps.ArgumentVector ~ CommanderOps.Parse[cmd];
IF argv.argc#5 THEN RETURN [$Failure, "Usage: rope-find-backward s1 s2 pos1 case"];
{pos1: INT ~ Convert.IntFromRope[argv[3]];
case: BOOL ~ Convert.BoolFromRope[argv[4]];
ans: INT ~ Rope.FindBackward[argv[1], argv[2], pos1, case];
cmd.out.Put1[[integer[ans]] ];
RETURN}};

Commander.Register["pfs-parse-test", Parse];
Commander.Register["pfs-shorten", Shorten];
Commander.Register["rope-find-backward", FindBackward];

END.
     
PfsParseTest.mesa
Copyright Ó 1992 by Xerox Corporation.  All rights reserved.
Last tweaked by Mike Spreitzer March 30, 1992 6:35 am PST
ÊŒ  •NewlineDelimiter
–"cedar" style™ code™K™<K™9—K˜ KšÏk	œ#œœ˜DK˜ šÏnœœ˜Kšœ#œœ˜A—Kšœ˜K˜ Kšœœœ˜K˜ šžœ˜"K˜<šœœœ˜Kšœœ˜šœœœ˜Kšœg˜gKšœ˜
—Kšœœœœ˜+Kšœœ˜Kšœœœœ˜$Kšœœœ˜Kšœœ˜
š	œœ
œœ˜"Kšœœ˜Kšœ˜—Kšœ!œœ˜CKšœœ˜K˜>Kšœœ˜	—Kšœ˜—K˜ šžœ˜ K˜<šœœœ˜Kšœœ˜šœœœ˜Kšœg˜gKšœ˜
—Kšœœœœ˜+Kšœœœ˜#K˜>Kšœœ˜	—Kšœ˜—K˜ šžœ˜'K˜<Kšœœœ9˜SKšœœ ˜*Kšœœ!˜+Kšœœ3˜;K˜Kšœ˜	—K˜ K˜,K˜+Kšœ7˜7K˜ Kšœ˜— …—    <  
X  