--		Comprehensive test of RPC compiler		BIGSUB.RPC
--
--  29 Nov 89	The parameter names p1 etc are short to prevent long lines of C
--		code in the stub crashing the OS9 C compiler!
--
package bigsub is

    type      byte_type      is   rpc_byte;
    type      char_type      is   rpc_char;
    type      short_type     is   rpc_short;
    type      long_type      is   rpc_long;
    type      real_type      is   rpc_real32;
    type      str_type       is   string(80);
    type      substr_type    is   substring(80);
    type      array_type     is   array(0..10,5..12) of rpc_char;
    type      seq_type       is   sequence(80) of rpc_long;

    procedure in_out         (p1    : in out  byte_type;
                              p2    : in out  char_type;
                              p3    : in out  short_type;
                              p4    : in out  long_type;
                              p5    : in out  real_type;
                              p6    : in out  str_type;
                              p7    : in out  substr_type;
                              p8    : in out  array_type;
                              p9    : in out  seq_type);

    procedure only_in        (p1    : in      byte_type;
                              p2    : in      char_type;
                              p3    : in      short_type;
                              p4    : in      long_type;
                              p5    : in      real_type;
                              p6    : in      str_type;
                              p7    : in      substr_type;
                              p8    : in      array_type;
                              p9    : in      seq_type);

    procedure only_out       (p1    : out     byte_type;
                              p2    : out     char_type;
                              p3    : out     short_type;
                              p4    : out     long_type;
                              p5    : out     real_type;
                              p6    : out     str_type;
                              p7    : out     substr_type;
                              p8    : out     array_type;
                              p9    : out     seq_type);
    function bigsub1(
		p1:	IN	rpc_long;
		p2:	IN OUT	rpc_long;
		p3:	OUT	rpc_long)	return rpc_long;

    procedure no_parameters;	-- Added 23 Jun 88 to test the compiler

end bigsub;