

DIRECTORY
SSUDefs,
Commander,
IO,
MimosaInterface,
Rope;

MimosaPackagedImpl: CEDAR PROGRAM IMPORTS Commander, IO, MimosaInterface, Rope = {

ROPE: TYPE = Rope.ROPE;
STREAM: TYPE = IO.STREAM;

XRExitWorld: PROC [status: INT] =
TRUSTED MACHINE CODE { "<xr/Threads.h>.XR_ExitWorld" };


MimosaPackaged: SAFE PROC [cmd: Commander.Handle]
RETURNS [result: REF ¬ NIL, msg: ROPE ¬ NIL] ~ {
in: STREAM ¬ IO.RIS[cmd.commandLine];
out: STREAM ¬ cmd.out;
data: REF ¬ cmd.procData.clientData;
retval: SSUDefs.JobStatus;
[result, msg] ¬ MimosaInterface.DoCompile[in, out, data];
SELECT result FROM
$Failure =>  {
IF Rope.Equal[msg, "W (Interface)"] THEN retval ¬  successfulDefWithWarnings;
IF Rope.Equal[msg, "W (Implementation)"] THEN retval ¬  successfulImplWithWarnings
ELSE retval ¬ mimosaCompileFailed};
$Definition => retval ¬  successfulDef;
$Implementation => retval ¬  successfulImpl;
ENDCASE => retval ¬ unknown;
XRExitWorld[ORD[retval]];
};

mimDoc: ROPE = "Mimosa compiler (Cedar to C)";

Commander.Register["MimosaPackaged", MimosaPackaged, mimDoc, $MimosaServer];

}...
    Ì  MimosaPackagedImpl.mesa
Copyright Ó 1990, 1992 by Xerox Corporation.  All rights reserved.
Foote, October 23, 1990 2:57 pm PDT
Mna, June 18, 1992 11:28 am PDT
Willie-s, December 9, 1992 3:50 pm PST
ÊÐ  •NewlineDelimiter
–"cedarcode" style˜ šœ™Jšœ
Ïeœ7™BJ™#J™J™&Icode˜ —šÏk	˜	Kšœ˜Kšœ
˜
Kšžœ˜K˜Kšœ˜K˜ —š
Ïnœžœžœžœžœ˜RK˜ Kšžœžœžœ˜Kšžœžœžœžœ˜K˜ KšŸœžœ
žœœžœžœžœ#˜YK˜ —˜ šŸœžœžœ˜1Kš
žœ
žœžœžœžœ˜0Kšœžœžœžœ˜%Kšœžœ˜Kšœžœ˜$Kšœ˜K˜9šžœž˜šœ˜Kšžœ"žœ%˜MKšžœ'žœ%˜RKšžœ˜#—K˜'K˜,Kšžœ˜—Kšœžœ
˜K˜K˜ —Kšœžœ"˜.K˜ KšœL˜L—K˜ K˜— …—    4  Ð  