Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/oper_sys/emerald/emrldsys.lha/Language/Compiler/Builtins/Handler.m

Text File | 1990-08-16 | 387 b | 16 lines

%
% @(#)Handler.m    1.2  3/16/88
%
export _HandlerObject to "Builtins"
const _HandlerObject == immutable object _HandlerObject
  export getSignature
  const HandlerType == type i_HandlerType
    operation nodeUp [ Node, Time ]
    operation nodeDown [ Node, Time ]
  end i_HandlerType
  function getSignature -> [r : Signature]
    r <- HandlerType
  end getSignature
end _HandlerObject