
DIRECTORY
BlackCherry,
DFS,
Icons,
IO,
RefText,
Rope,
UFS;

BlackCherryUFSImpl: CEDAR PROGRAM
IMPORTS
BlackCherry, DFS, Icons, IO, RefText, Rope, UFS

= BEGIN OPEN BlackCherry;

ROPE: TYPE ~ Rope.ROPE;
STREAM: TYPE ~ IO.STREAM;
localStreamOptions: UFS.StreamOptions м [
tiogaRead: FALSE,
truncatePagesOnClose: FALSE,
closeUFSOpenFileOnClose: TRUE
];

UFSFullName: PROC [ fileName: ROPE, wDir: ROPE м NIL ] RETURNS [ fullName: ROPE ] ~ {
BEGIN ENABLE UFS.Error => {
Report["\n***UFS.Error: %g\n", [rope[error.explanation]] ];
IF error.code = $illegalName THEN GOTO tryAgain ELSE GOTO Bogus
};
fullName м UFS.ExpandName[fileName, wDir].fullUName;
EXITS
Bogus => { ERROR BadName };
tryAgain => NULL;
END;
BEGIN
BEGIN ENABLE UFS.Error => { Report["\n***UFS.Error: %g\n",
[rope[error.explanation]] ];  GOTO Bogus2 };
temp: REF TEXT м RefText.ObtainScratch[RefText.line];
temp.length м 0;
FOR i: INT IN [0..fileName.Length[]) DO
c: CHAR ~ fileName.Fetch[i];
IF (c  = '  ) OR ( c = '\t ) THEN LOOP;
[] м RefText.AppendChar[temp, c];
ENDLOOP;
fileName м Rope.FromRefText[temp];
RefText.ReleaseScratch[temp];
fullName м UFS.ExpandName[fileName, wDir].fullUName;
EXITS
Bogus2 => { ERROR BadName };
END;
END;
};

UFSFileOpenOrCreate: PROC [ name: ROPE, how: ATOM ]
RETURNS [ fileData: BCFileData] ~ {
fileData м NEW[BCFileDataRec м [name: name] ];
IF how = $create THEN {
fileData.writeStream м UFS.StreamOpen[fileData.name, $create, UFS.binaryStreamOptions ];
fileData.writeStream.Close[];
};
fileData.writeStream м UFS.StreamOpen[fileData.name, $write, UFS.binaryStreamOptions ];

fileData.readStream м fileData.writeStream;
};

UFSSetByteCount: PROC [ fileData: BCFileData, bytes: INT ] ~ {
fileData.writeStream м UFS.StreamOpen[fileData.name, $write, UFS.binaryStreamOptions ];
fileData.writeStream.SetLength[bytes];
fileData.writeStream.Close[];
fileData.writeStream м NIL;
};

UFSIconSetter: PROC[iconFileName: ROPE] = {
BlackCherry.msgSetIcon м Icons.NewIconFromFile[iconFileName, 1
! DFS.Error => { GOTO notFound }];
BlackCherry.msgIcon м Icons.NewIconFromFile[iconFileName, 2];
EXITS
notFound => NULL;
};

Init: PROC = {
procs: BlackCherry.FileProcs м NEW[BlackCherry.FileProcsRec м [
fullName: UFSFullName,
openOrCreate: UFSFileOpenOrCreate,
setByteCount: UFSSetByteCount,
iconSetter: UFSIconSetter
]  ];
BlackCherry.RegisterFileProcs[procs];
};

Init[];

END.


   6  BlackCherryUFSImpl.mesa
Copyright ╙ 1989, 1992 by Xerox Corporation.  All rights reserved.
Willie-Sue, November 28, 1989 4:25:41 pm PST
Bill Jackson (bj) July 19, 1989 6:38:17 pm PDT

Initial PCedar version
try getting rid of spaces and tabs in the name
Report["%g of %g\n", [atom[how]], [rope[name]] ];
Э╩╤  Ц(cedarcode) styleХNewlineDelimiter
Ш ЪЬЩIcodeЪЬ
╧eЬ7ЩBKЩ,KЩ.KЩ ЧЪ╧k	Ш	KЪЬШKЪЮЬШKШKЪЮЬШKШKЪЬШKЪЮЬШKШ ЧЪ╧bЬЮЬЮШ!ЪЮШKЪЬЮЬ	ЮЬЮШ/ЧKШ KЪЬЮЬЮЬШKШ KЪЮЬЮЬЮЬШKЪЮЬЮЬЮЬЮЬШheadЪ╧zЩЪЬЮЬШ)KЪЬЮЬШKЪЬЮЬШKЪЬЮШKЪЬШЧKШ Ъ╧nЬЮЬЮЬЮЬЮЬЮЬЮЬШUЪЮЬЮЬЮЬШKЪЬ;Ш;KЪ
ЮЬЮЬЮЬ
ЮЬЮЬШ?KЪЬШЧKЪЬЮЬ&Ш4ЪЮШKЪЬЮЬШKЪЬЮЬШKЪЮЬШЧKЩ.ЪЮШЪЮЬЮЬЮЬIЮЬ
ШgKЪЬЮЬЮЬ'Ш5KШЪЮЬЮЬЮЬЮШ'KЪЬЮЬШKЪЮЬЮЬЮЬЮЬШ'KШ!KЪЮЬШЧKШ"KЪЬШKЪЬЮЬ&Ш4ЪЮШKЪЬЮЬШЧKЪЮЬШЧKЪЮЬШЧKШKШ ЧЪ
бЬЮЬ	ЮЬЮЬЮЬШWKЪЬЮЬ Ш.KЪЬ1Щ1ЪЮЬЮЬШKЪЬЮЬ$ЮЬШXKЪЬШKШЧKЪЬЮЬ#ЮЬШWKШ KШ+KШKШ ЧЪбЬЮЬ ЮЬШ>KЪЬЮЬ#ЮЬШWKЪЬ&Ш&KЪЬШKЪЬЮЬШKШKШ ЧЪбЬЮЬЮЬШ+KЪЬAЮЬЮЬШaKШ=ЪЮШKЪЬЮЬШЧKЪЬШKШ ЧЪбЬЮЬШЪЬЮЬШ?KЪЬШKЪЬ"Ш"KЪЬШKЪЬШKШЧKЪЬ%Ш%KШKШ ЧKШЧKШ KЪЮЬШKШ ЧKШ Ч ЕЧ    	<  C  