rehearsecode/derived/RehearseCodeBundle.m3


MODULE RehearseCodeBundle;
Generated by m3bundle; see its manpage.

IMPORT Bundle, BundleRep, Text;

TYPE T = Bundle.T OBJECT OVERRIDES
           get      := LookUp;
           getNames := GetNames;
         END;

TYPE Texts = REF ARRAY OF TEXT;

VAR
  bundle: T     := NIL;
  names : Texts := NIL;

PROCEDURE Get(): Bundle.T =
  BEGIN
    IF (bundle = NIL) THEN bundle := NEW (T) END;
    RETURN bundle;
  END Get;

PROCEDURE GetNames (<*UNUSED*> self: T): Texts =
  BEGIN
    IF names = NIL THEN
      names := NEW (Texts, NUMBER (Names));
      names^ := Names;
    END;
    RETURN names;
  END GetNames;

PROCEDURE LookUp (<*UNUSED*> self: T;  element: TEXT): TEXT =
  BEGIN
    FOR i := 0 TO LAST (Names)-1 DO
      IF Text.Equal (Names[i], element) THEN
        RETURN Elements[i];
      END;
    END;
    RETURN NIL;
  END LookUp;

CONST Names = ARRAY [0..1] OF TEXT {
  "RehearseCode.fv",
  NIL
};

CONST Elements = ARRAY [0..1] OF TEXT {
  E0,
  NIL
};

CONST E0 =
   "; Copyright (C) 1994, Digital Equipment Corporation                    "
 & "     \n; All rights reserved.                                          "
 & "            \n; See the file COPYRIGHT for a full description.         "
 & "                   \n\n(Rim\n  (Pen 2)\n  (VBox\n    (HBox\n      (Butt"
 & "on %reparse \"Reparse\")\n      (Glue 4)\n      (Button %step \"Step\")"
 & "\n      (Glue 4)\n      (Button %run \"Run\")\n      (Glue 4)\n      (B"
 & "utton %exit \"Exit\")\n      Fill)\n    (Glue 2)\n    (VTile\n      (Sh"
 & "ape\n        (Height 35 + Infinity)\n        (Width 450 + Infinity)\n  "
 & "      (Frame Lowered (Browser %procedures Quick)))\n      (Shape\n     "
 & "   (Height 35 + Infinity)\n        (Width 450 + Infinity)\n        (Fra"
 & "me Ridged (TextEdit %typescript ReadOnly))))))\n";

BEGIN
END RehearseCodeBundle.