| /* |
| * Copyright (c) Bull S.A. 2007 All Rights Reserved. |
| * |
| * This program is free software; you can redistribute it and/or modify it |
| * under the terms of version 2 of the GNU General Public License as |
| * published by the Free Software Foundation. |
| * |
| * This program is distributed in the hope that it would be useful, but |
| * WITHOUT ANY WARRANTY; without even the implied warranty of |
| * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. |
| * |
| * Further, this software is distributed without any warranty that it is |
| * free of the rightful claim of any third person regarding infringement |
| * or the like. Any license provided herein, whether implied or |
| * otherwise, applies only to this software file. Patent licenses, if |
| * any, provided herein do not apply to combinations of this program with |
| * other software, or any other product whatsoever. |
| * |
| * You should have received a copy of the GNU General Public License along |
| * with this program; if not, write the Free Software Foundation, Inc., 59 |
| * Temple Place - Suite 330, Boston MA 02111-1307, USA. |
| * |
| * History: |
| * Created by: Cyril Lacabanne (Cyril.Lacabanne@bull.net) |
| * |
| */ |
| |
| #include <stdio.h> |
| #include <tirpc/netconfig.h> |
| #include <sys/socket.h> |
| #include <tirpc/rpc/rpc.h> |
| #include <tirpc/rpc/types.h> |
| #include <tirpc/rpc/xdr.h> |
| #include <tirpc/rpc/svc.h> |
| #include <errno.h> |
| #include <netinet/in.h> |
| |
| //Standard define |
| #define VERSNUM 1 |
| #define PROGSYSERROR 10 |
| #define PROGAUTHERROR 100 |
| #define CALCTHREADPROC 1000 |
| |
| static void exm_proc(); |
| int progNum; |
| int run_mode; |
| |
| struct datas |
| { |
| double a; |
| double b; |
| double c; |
| }argument; |
| |
| //XDR Struct function |
| bool_t xdr_datas(XDR *pt_xdr, struct datas* pt) |
| { |
| return(xdr_double(pt_xdr, &(pt->a)) && |
| xdr_double(pt_xdr, &(pt->b)) && |
| xdr_double(pt_xdr, &(pt->c))); |
| } |
| |
| void *server_thread_process (void * arg) |
| { |
| //Server process in a thread |
| int err=0; |
| |
| if (run_mode == 1) |
| { |
| printf("Server #%d launched\n", atoi(arg)); |
| printf("Server Nb : %d\n", progNum + atoi(arg)); |
| } |
| |
| svc_unreg(progNum + atoi(arg), VERSNUM); |
| |
| err = svc_create(exm_proc, progNum + atoi(arg), VERSNUM, "VISIBLE"); |
| |
| if (err == 0) |
| { |
| fprintf(stderr, "Cannot create service.\n"); |
| exit(1); |
| } |
| |
| svc_run(); |
| |
| fprintf(stderr, "svc_run() returned. ERROR has occurred.\n"); |
| svc_unreg(progNum, VERSNUM); |
| |
| pthread_exit (0); |
| } |
| |
| //****************************************// |
| //*** Main Function ***// |
| //****************************************// |
| int main(int argn, char *argc[]) |
| { |
| //Server parameter is : argc[1] : Server Program Number |
| // argc[2] : Number of threads |
| // others arguments depend on server program |
| run_mode = 0; |
| int threadNb = atoi(argc[2]); |
| int i; |
| //Thread declaration |
| pthread_t *pThreadArray; |
| void *ret; |
| |
| progNum = atoi(argc[1]); |
| |
| pThreadArray = (pthread_t *)malloc(threadNb * sizeof(pthread_t)); |
| for (i = 0; i < threadNb; i++) |
| { |
| if (run_mode == 1) |
| fprintf (stderr, "Try to create Thread Server %d\n", i); |
| if (pthread_create (&pThreadArray[i], NULL, server_thread_process, i) < 0) |
| { |
| fprintf (stderr, "pthread_create error for thread 1\n"); |
| exit (1); |
| } |
| } |
| |
| //Clean threads |
| for (i = 0; i < threadNb; i++) |
| { |
| (void)pthread_join (pThreadArray[i], &ret); |
| } |
| |
| return 1; |
| } |
| |
| //****************************************// |
| //*** Remotes Procedures ***// |
| //****************************************// |
| char *calcProc(struct datas *dt) |
| { |
| //Makes a + b * c from structure dt and returns double |
| //printf("*** In calcProc ***\n"); |
| static double result = 0; |
| result = dt->a + (dt->b * dt->c); |
| //printf("Received : %lf, %lf, %lf\n", dt->a, dt->b, dt->c); |
| return (char *)&result; |
| } |
| |
| //****************************************// |
| //*** Dispatch Function ***// |
| //****************************************// |
| static void exm_proc(struct svc_req *rqstp, SVCXPRT *transp) |
| { |
| //printf("* in Dispatch Func.\n"); |
| |
| char *result; |
| xdrproc_t xdr_argument; |
| xdrproc_t xdr_result; |
| int *(*proc)(struct datas *); |
| |
| switch (rqstp->rq_proc) |
| { |
| case CALCTHREADPROC: |
| { |
| //printf("** in PROCPONG dispatch Func.\n"); |
| xdr_argument = (xdrproc_t)xdr_datas; |
| xdr_result = (xdrproc_t)xdr_double; |
| proc = (int *(*)(struct datas *))calcProc; |
| break; |
| } |
| case PROGSYSERROR: |
| { |
| //Simulate an error |
| svcerr_systemerr(transp); |
| return; |
| } |
| case PROGAUTHERROR: |
| { |
| //Simulate an authentification error |
| svcerr_weakauth(transp); |
| return; |
| } |
| default: |
| { |
| //Proc is unavaible |
| svcerr_noproc(transp); |
| return; |
| } |
| } |
| memset((int *)&argument, (int)0, sizeof(argument)); |
| if (svc_getargs(transp, xdr_argument, (char *)&argument) == FALSE) |
| { |
| svcerr_decode(transp); |
| return; |
| } |
| |
| result = (char *)(*proc)((struct datas *)&argument); |
| |
| if ((result != NULL) && (svc_sendreply(transp, xdr_result, result) == FALSE)) |
| { |
| svcerr_systemerr(transp); |
| } |
| if (svc_freeargs(transp, xdr_argument, (char *)&argument) == FALSE) |
| { |
| (void)fprintf(stderr, "unable to free arguments\n"); |
| exit(1); |
| } |
| } |