Листинг 16.3. Процедура сервера, вызываемая с помощью Sun RPC
//sunrpc/square1/server.c
1 #include "unpipc.h"
2 #include "square.h"
3 square_out *
4 squareproc_l_svc(square_in *inp, struct svc_req *rqstp)
5 {
6 static square_out out;
7 out.res1 = inp->arg1 * inp->arg1;
8 return(&out);
9 }