$! File name:	GETSYI.COM
$! Product:	TCPWare for OpenVMS
$! Version:	V4.0
$!
$!	Build file for GETSYI sample programs
$!
$! Copyright (c) 1993, by
$! Process Software Corporation
$! Framingham, Massachusetts
$!
$! This command procedure may be invoked in one of these three ways:
$!   @GETSYI		- Use the XDR file produced by RPCGEN.
$!   @GETSYI XDR1	- Same as above.
$!   @GETSYI XDR2	- Use the alternate XDR file.  This file gives an
$!			- example of the xdr_union function.
$!
$! The symbol XDR determines which XDR file is used by the GETSYI sample
$! programs.
$!
$ IF( P1 .NES. "") THEN GOTO XDR1
$ XDR = ""
$ GOTO GET_DIRECTORY
$XDR1:
$ IF( P1 .NES. "XDR1") THEN GOTO XDR2
$ XDR = ""
$ GOTO GET_DIRECTORY
$XDR2:
$ IF( P1 .NES. "XDR2") THEN GOTO BAD_PARAM
$ XDR = "_2"
$ GOTO GET_DIRECTORY
$BAD_PARAM:
$ WRITE SYS$OUTPUT "Bad parameter value ''P1', check documentation"
$ EXIT 20	! SYSTEM-F-BADPARAM
$!
$! Get the current directory
$GET_DIRECTORY:
$ PD = F$ENVIRONMENT( "DEFAULT")
$!
$!-----	List source files
$!
$ WRITE SYS$OUTPUT "Compiling GETSYI_CLNT.C"
$ CC/NOMEMBER_ALIGN/ASSUME=NOALIGNED/STANDARD=VAXC/OBJ='PD' -
	TCPWARE_ROOT:[TCPWARE.EXAMPLES.RPC]GETSYI_CLNT.C
$!
$ WRITE SYS$OUTPUT "Compiling GETSYI_CLNT_CALL.C"
$ CC/NOMEMBER_ALIGN/ASSUME=NOALIGNED/STANDARD=VAXC/OBJ='PD' -
	TCPWARE_ROOT:[TCPWARE.EXAMPLES.RPC]GETSYI_CLNT_CALL.C
$!
$ WRITE SYS$OUTPUT "Compiling GETSYI_CLNT_CALLRPC.C"
$ CC/NOMEMBER_ALIGN/ASSUME=NOALIGNED/STANDARD=VAXC/OBJ='PD' -
	TCPWARE_ROOT:[TCPWARE.EXAMPLES.RPC]GETSYI_CLNT_CALLRPC.C
$!
$ WRITE SYS$OUTPUT "Compiling GETSYI_CLNT_RMTCALL.C"
$ CC/NOMEMBER_ALIGN/ASSUME=NOALIGNED/STANDARD=VAXC/OBJ='PD' -
	TCPWARE_ROOT:[TCPWARE.EXAMPLES.RPC]GETSYI_CLNT_RMTCALL.C
$!
$ WRITE SYS$OUTPUT "Compiling GETSYI_CLNT_SUBS.C"
$ CC/NOMEMBER_ALIGN/ASSUME=NOALIGNED/STANDARD=VAXC/OBJ='PD' -
	TCPWARE_ROOT:[TCPWARE.EXAMPLES.RPC]GETSYI_CLNT_SUBS.C
$!
$ WRITE SYS$OUTPUT "Compiling GETSYI_PROC_A.C"
$ CC/NOMEMBER_ALIGN/ASSUME=NOALIGNED/STANDARD=VAXC/OBJ='PD' -
	TCPWARE_ROOT:[TCPWARE.EXAMPLES.RPC]GETSYI_PROC_A.C
$!
$ WRITE SYS$OUTPUT "Compiling GETSYI_PROC_S.C"
$ CC/NOMEMBER_ALIGN/ASSUME=NOALIGNED/STANDARD=VAXC/OBJ='PD' -
	TCPWARE_ROOT:[TCPWARE.EXAMPLES.RPC]GETSYI_PROC_S.C
$!
$ WRITE SYS$OUTPUT "Compiling GETSYI_SVC.C"
$ CC/NOMEMBER_ALIGN/ASSUME=NOALIGNED/STANDARD=VAXC/OBJ='PD' -
	TCPWARE_ROOT:[TCPWARE.EXAMPLES.RPC]GETSYI_SVC.C
$!
$ WRITE SYS$OUTPUT "Compiling GETSYI_SVC_REG.C"
$ CC/NOMEMBER_ALIGN/ASSUME=NOALIGNED/STANDARD=VAXC/OBJ='PD' -
	TCPWARE_ROOT:[TCPWARE.EXAMPLES.RPC]GETSYI_SVC_REG.C
$!
$ WRITE SYS$OUTPUT "Compiling GETSYI_SVC_SUBS.C"
$ CC/NOMEMBER_ALIGN/ASSUME=NOALIGNED/STANDARD=VAXC/OBJ='PD' -
	TCPWARE_ROOT:[TCPWARE.EXAMPLES.RPC]GETSYI_SVC_SUBS.C
$!
$ WRITE SYS$OUTPUT "Compiling GETSYI_XDR''XDR'.C"
$ CC/NOMEMBER_ALIGN/ASSUME=NOALIGNED/STANDARD=VAXC/OBJ='PD' -
	TCPWARE_ROOT:[TCPWARE.EXAMPLES.RPC]GETSYI_XDR'XDR'.C
$!
$!
$!----- List object modules
$!
$ WRITE SYS$OUTPUT "Linking the clnt_call client"
$ LINK GETSYI_CLNT, GETSYI_CLNT_CALL, GETSYI_XDR'XDR', GETSYI_CLNT_SUBS, -
	SYS$INPUT/OPTIONS
	SYS$SHARE:TCPWARE_RPCLIB_SHR/SHARE
	SYS$SHARE:TCPWARE_SOCKLIB_SHR/SHARE
$!
$ WRITE SYS$OUTPUT "Linking the remote call client"
$ LINK GETSYI_CLNT_RMTCALL, GETSYI_XDR'XDR', GETSYI_CLNT_SUBS, -
	SYS$INPUT/OPTIONS
	SYS$SHARE:TCPWARE_RPCLIB_SHR/SHARE
	SYS$SHARE:TCPWARE_SOCKLIB_SHR/SHARE
$!
$ WRITE SYS$OUTPUT "Linking the callrpc client"
$ LINK GETSYI_CLNT_CALLRPC, GETSYI_XDR'XDR', GETSYI_CLNT_SUBS, -
	SYS$INPUT/OPTIONS
	SYS$SHARE:TCPWARE_RPCLIB_SHR/SHARE
	SYS$SHARE:TCPWARE_SOCKLIB_SHR/SHARE
$!
$ WRITE SYS$OUTPUT "Linking the asynchronous server"
$ LINK/EXE=GETSYI_SVC_A GETSYI_PROC_A, GETSYI_SVC_SUBS, GETSYI_XDR'XDR', -
	SYS$INPUT/OPTIONS
	SYS$SHARE:TCPWARE_RPCLIB_SHR/SHARE
	SYS$SHARE:TCPWARE_SOCKLIB_SHR/SHARE
$!
$ WRITE SYS$OUTPUT "Linking the registerrpc server"
$ LINK GETSYI_SVC_REG, GETSYI_SVC_SUBS, GETSYI_XDR'XDR', SYS$INPUT/OPTIONS
	SYS$SHARE:TCPWARE_RPCLIB_SHR/SHARE
	SYS$SHARE:TCPWARE_SOCKLIB_SHR/SHARE
$!
$ WRITE SYS$OUTPUT "Linking the synchronous server"
$ LINK GETSYI_SVC, GETSYI_PROC_S, GETSYI_SVC_SUBS, GETSYI_XDR'XDR', -
	SYS$INPUT/OPTIONS
	SYS$SHARE:TCPWARE_RPCLIB_SHR/SHARE
	SYS$SHARE:TCPWARE_SOCKLIB_SHR/SHARE
$!
$ EXIT