MODULE; IMPORT CallExpr, Expr, ExprRep, Procedure, ProcType, Textt; IMPORT Formal, Value, Scanner, TextExpr, M3String; VAR Z: CallExpr.MethodList; VAR formals: Value.T; VAR value: Expr.T := NIL; PROCEDURE InfoThisPath Check (ce: CallExpr.T; VAR cs: Expr.CheckState) = BEGIN EVAL Formal.CheckArgs (cs, ce.args, formals, ce.proc); ce.type := Textt.T; END Check; PROCEDURECompile (<*UNUSED*> ce: CallExpr.T) = BEGIN GetValue (); Expr.Prep (value); Expr.Compile (value); END Compile; PROCEDUREFold (<*UNUSED*> ce: CallExpr.T): Expr.T = BEGIN GetValue (); RETURN value; END Fold; PROCEDUREInitialize () = VAR t0 := ProcType.New (Textt.T); BEGIN Z := CallExpr.NewMethodList (0, 0, TRUE, TRUE, TRUE, Textt.T, NIL, CallExpr.NotAddressable, Check, CallExpr.PrepArgs, Compile, CallExpr.NoLValue, CallExpr.NoLValue, CallExpr.NotBoolean, CallExpr.NotBoolean, Fold, CallExpr.NoBounds, CallExpr.IsNever, (* writable *) CallExpr.IsNever, (* designator *) CallExpr.NotWritable (* noteWriter *)); Procedure.Define ("ThisPath", Z, FALSE, t0); formals := ProcType.Formals (t0); END Initialize; PROCEDUREReset () = BEGIN value := NIL; END Reset; PROCEDUREGetValue () = VAR file: TEXT; line: INTEGER; BEGIN IF (value = NIL) THEN Scanner.Here (file, line); value := TextExpr.New8 (M3String.Add (file)); END; END GetValue; BEGIN END InfoThisPath.