DEFINITION MODULE Foo;

IMPORT
  RPC, Strings;

EXPORT QUALIFIED
   Version, Procedures,
   Find,
   HelloWorld, Not, Array;

CONST
  Version = 10;

TYPE
  Procedures = (HelloWorldProc, NotProc, ArrayProc);

PROCEDURE HelloWorld(
VAR oneOne:INTEGER; (* In *)
VAR two:BOOLEAN; (* InOut *)
VAR three:Strings.String (* Out *)
  ):RPC.RC;

PROCEDURE Not(
VAR two:BOOLEAN (* InOut *)
  ):RPC.RC;

PROCEDURE Array(
VAR size:CARDINAL; (* Local *)
VAR ar1:ARRAY OF INTEGER; (* In *)
VAR ar2:ARRAY OF CHAR (* Out *)
  ):RPC.RC;

PROCEDURE Find(name:Strings.String; dist:RPC.Distance):RPC.MemberRC;

END Foo.
