Weitek.cm
Last Edited by: Curry, June 21, 1984 7:58:10 am PDT
use GSLVAX
Allocate MTA0:
Mount MTA0:
COPY MTA0:FRED DRB0:[CURRY]
DISMPUNT
-Device: MTA0:
MOUNT MTA0:
-Label: FRED
-Log name:
DIR MTA0:
Copy MTA0:[]*.* *.*
SH DEF     show default directory
DIR      directory
Copy ///Weitek.pas ← /GSLVAX/Curry/Fred.pas does this work?
Bringover /INDIGO/TEX/Top/PasMesa.df
PasMesa Weitek  needs valid Weitek.mod
Copy /IVY/Curry/WeitekIeee.mesa  ← ///WeitekIeee.mesa
Copy /IVY/Curry/WeitekIeeeImplA.mesa ← ///WeitekIeeeImplA.mesa
Copy /IVY/Curry/WeitekIeeeImplB.mesa ← ///WeitekIeeeImplB.mesa
FTP IVY ret/c Weitek*.mesa <Mesa>Formatter.bcd
Formatter WeitekIeee WeitekIeeeImplA WeitekIeeeImplB
FTP IVY st/c Weitek*.mesa
Copy ///WeitekIeee.mesa   ← /IVY/Curry/WeitekIeee.mesa
Copy ///WeitekIeeeImplA.mesa ← /IVY/Curry/WeitekIeeeImplA.mesa
Copy ///WeitekIeeeImplB.mesa ← /IVY/Curry/WeitekIeeeImplB.mesa
OPEN WeitekIeee.mesa WeitekIeeeImplA.mesa WeitekIeeeImplB.mesa
DoTiogaOps MatchCase MatchLiterally ChangeInitCap
DoTiogaOps SubstituteInEntireDoc MatchAnywhere DoReplace
DoTiogaOps ClearSearchFor "BEGIN"
DoTiogaOps ClearReplaceBy "{"
DoTiogaOps ClearSearchFor "END"
DoTiogaOps ClearReplaceBy "}"
DoTiogaOps ClearSearchFor "}CASE"
DoTiogaOps ClearReplaceBy "ENDCASE"
DoTiogaOps ClearSearchFor "}LOOP"
DoTiogaOps ClearReplaceBy "ENDLOOP"
DoTiogaOps ClearSearchFor "-- --"
DoTiogaOps ClearReplaceBy ""
also =
{
and ;
};
ReadIndent WeitekIeee.mesa WeitekIeeeImplA.mesa WeitekIeeeImplB.mesa
Hand formatting
Compile WeitekIeee WeitekIeeeImplA WeitekIeeeImplB; Bind Weitek
SModel FP.df