gef/src/GEFAlg.i3


Copyright (C) 1994, Digital Equipment Corp.

INTERFACE GEFAlg;

IMPORT Algorithm, RefList, SLisp;

TYPE
  Interp <: PublicInterp;
  PublicInterp = SLisp.T OBJECT
  METHODS
    init(alg: Algorithm.T): Interp;
  END;

PROCEDURE Feedback(interp: Interp; name: TEXT; args: RefList.T);
call the function name in interp (if it exists) with args

END GEFAlg.