juno-machine/src/NonLinearSolveRep.i3


 Copyright (C) 1992, Digital Equipment Corporation                         
 All rights reserved.                                                      
 See the file COPYRIGHT for a full description.                            
                                                                           
 Last modified on Thu Dec  8 15:44:34 1994 by gnelson                      
      modified on Mon Oct 31 18:31:26 PST 1994 by isard                    
      modified on Sun Sep 25 18:04:13 PDT 1994 by heydon                   

INTERFACE NonLinearSolveRep;
Reveals the type field of a NonLinearSolve.Constraint.

IMPORT RedundantSolve AS NonLinearSolve;

TYPE
  ConType = { Plus, Minus, Halve, Times, Sin, Cos, Atan, MultTan, Exp };
  ConstraintRep = NonLinearSolve.ConstraintPub OBJECT
    type: ConType
  END;

REVEAL
  NonLinearSolve.Constraint <: ConstraintRep;

REVEAL
  NonLinearSolve.Constraint =
    ConstraintRep BRANDED "NonLinearSolve.Constraint" OBJECT
      availLink: NonLinearSolve.Constraint
    END;

VAR
  conAvail, conInUse: NonLinearSolve.Constraint := NIL;

END NonLinearSolveRep.