Mensagens

; GAMA-X - Mensagens - 1.0 --- jfc 8/93
TYPE
; CD -> ModApr
  MesgStLx = InstMsg | OutMsg | EnableMsg | DisableMsg | ShowMsg | 
             GoMsg | StopMsg | AbortMsg;
  InstMsg :: SOURCE: InstId;
  OutMsg :: SOURCE: InstId
            TEXT: STR;
  EnableMsg :: SOURCE: InstId
               ID:     TransId;
  DisableMsg :: SOURCE: InstId
                ID:     TransId;
  ShowMsg :: SOURCE: InstId
             ID:     VarId
             VAL:    Value;
  GoMsg :: SOURCE:  InstId
           CMDLINE: OpcCmdLineDescr;
  StopMsg :: SOURCE: InstId
             VAL:    OpcValue;
  AbortMsg :: SOURCE: InstId;
  
; ModApr -> CD
  MesgLxSt = CreateMsg | OpenMsg | StartMsg | EndMsg | CancelMsg | CmdMsg |
             KillMsg | 
             SetValMsg;
  CreateMsg :: DEST: OpcInstId
               GI:   GISym;
  OpenMsg :: DEST: InstId;
  StartMsg :: DEST: InstId
              ID:   EvId;
  EndMsg :: DEST: InstId
            ID:   EvId
            VAL:  Value;
  CancelMsg :: DEST: InstId
               ID:   EvId;
  CmdMsg :: DEST: InstId
            ID:   CmdId;
  KillMsg :: DEST: InstId;
  SetValMsg :: DEST: InstId
               VAL:  Value;

; CD -> ModApl
  MesgStSm = GetVarMsg | CallMsg | GetTypMsgSt | HaltMsg;
  GetVarMsg :: SOURCE: InstId
               ID:     VarId;
  CallMsg :: SOURCE: InstId
             OPR:    STR
             ARGS:   Value-list
             RET:    Bool;
  GetTypMsgSt :: SOURCE: InstId
                 TYP:    TypeId;
  HaltMsg :: STATUS: INT;

; ModApl -> CD
  MesgSmSt :: SetValMsg | DefTypeMsg;   
  DefTypMsg :: SOURCE: InstId
               DEF:    TypeDef;
  
; ModApr -> ModApl
  MesgLxSm = InvMsg | GetTypMsgLx;
  InvMsg :: SOURCE: InstId
            TYP:    TypeId
            VAL:    Value;
  GetTypMsgLx :: SOURCE: InstId
                 TYP:    TypeId;
  
; ModApl -> ModApr
  MesgSmLx = SetValMsg | DefTypMsg;

ENDTYPE