m3tk/src/ast/M3AST_PG_Init.m3


Copyright (C) 1994, Digital Equipment Corp.

MODULE M3AST_PG_Init;

IMPORT AST, M3AST_AS_F, M3AST_PG;

PROCEDURE Interface(n: M3AST_AS_F.Interface): AST.NODE RAISES {}=
  BEGIN
    n.vEXTERNAL_DECL := NEW(M3AST_PG.EXTERNAL_DECL).init();
    RETURN n;
  END Interface;

PROCEDURE Interface_gen_def(n: M3AST_AS_F.Interface_gen_def
    ): AST.NODE RAISES {}=
  BEGIN
    n.vEXTERNAL_DECL := NEW(M3AST_PG.EXTERNAL_DECL).init();
    RETURN n;
  END Interface_gen_def;

PROCEDURE DECL(n: M3AST_AS_F.DECL): AST.NODE RAISES {}=
  BEGIN
    n.vEXTERNAL_DECL := NEW(M3AST_PG.EXTERNAL_DECL).init();
    RETURN n;
  END DECL;

BEGIN
END M3AST_PG_Init.