Return to daVarRpc.x CVS log | Up to [HallC] / Analyzer / CTP |
1 saw 1.1 /*----------------------------------------------------------------------------- 2 * Copyright (c) 1993 Southeastern Universities Research Association, 3 * Continuous Electron Beam Accelerator Facility 4 * 5 * This software was developed under a United States Government license 6 * described in the NOTICE file included as part of this distribution. 7 * 8 * Stephen A. Wood, 12000 Jefferson Ave., Newport News, VA 23606 9 * Email: saw@cebaf.gov Tel: (804) 249-7367 Fax: (804) 249-5800 10 *----------------------------------------------------------------------------- 11 * 12 * Description: 13 * daVar RPCGEN input file 14 * 15 * Author: Stephen Wood, CEBAF Hall C 16 * 17 * Revision History: 18 * $Log: daVarRpc.x,v $ | ||
19 saw 1.2 * Revision 1.4 1999/08/25 13:16:05 saw 20 * *** empty log message *** 21 * 22 * Revision 1.3 1994/11/07 14:33:12 saw | ||
23 saw 1.1 * Add testnamelist structure and readmultiple_test and family rpc's 24 * 25 * Revision 1.2 1993/11/24 22:01:35 saw 26 * Add double variable type 27 * 28 * Revision 1.1 1993/05/10 21:10:37 saw 29 * Initial revision 30 * 31 */ 32 33 %#include <time.h> | ||
34 saw 1.2 %#define _xdr_result xdr_result 35 %#define _xdr_argument xdr_argument | ||
36 saw 1.1 37 #if defined(RPC_HDR) || defined(RPC_XDR) || defined(RPC_SVC) || \ 38 defined(RPC_CLNT) || defined(RPC_TBL) 39 #define RPCGEN 40 #else 41 #undef RPCGEN 42 #endif 43 44 #include "daVar.h" 45 const DAVARINT_RPC = DAVARINT; 46 const DAVARFLOAT_RPC = DAVARFLOAT; 47 const DAVARDOUBLE_RPC = DAVARDOUBLE; 48 const DAVARSTRING_RPC = DAVARSTRING; 49 const DAVARERROR_RPC = 999; 50 51 typedef string PNAME<>; 52 typedef PNAME NAMELIST<>; 53 54 union any switch (int valtype) { 55 case DAVARINT_RPC: 56 int i<>; 57 saw 1.1 case DAVARFLOAT_RPC: 58 float r<>; 59 case DAVARDOUBLE_RPC: 60 double d<>; 61 case DAVARSTRING_RPC: 62 string s<>; 63 case DAVARERROR_RPC: 64 int error; 65 default: 66 void; 67 }; 68 69 struct wany { 70 PNAME name; 71 any *val; 72 }; 73 74 typedef any RVALLIST<>; 75 76 typedef wany WVALLIST<>; 77 78 saw 1.1 typedef int ERRLIST<>; 79 80 struct TESTNAMELIST { 81 /* Can we have a more generic structure fore this? */ 82 string test_condition<>; 83 int max_time_wait; /* Seconds before failing */ 84 int max_event_wait; /* # of events before failing */ 85 int prog; 86 int vers; 87 NAMELIST *NAMELISTP; 88 }; 89 90 program DAVARSVR { 91 version DAVARVERS { 92 int DAVAR_ACKMESSAGE(string) = 101; 93 NAMELIST DAVAR_GETLIST(string) = 102; 94 RVALLIST DAVAR_READMULTIPLE(NAMELIST) = 103; 95 ERRLIST DAVAR_WRITEMULTIPLE(WVALLIST) = 104; 96 int DAVAR_READMULTIPLE_TEST(TESTNAMELIST) = 105; 97 #if defined(RPC_HDR) || defined(RPC_XDR) || defined(RPC_SVC) 98 int DAVAR_READMULTIPLE_TEST_CB(RVALLIST) = 106; /* Call Back */ 99 saw 1.1 #endif | ||
100 saw 1.2 WVALLIST DAVAR_READPATTERNMATCH(string) = 107; | ||
101 saw 1.1 /* double HACK(int) = 201;*/ 102 } = 1; 103 } = 0x2c0daFF8; 104 105 /* 106 Local Variables: 107 mode: c 108 End: 109 */ |
Analyzer/Replay: Mark Jones, Documents: Stephen Wood |
Powered by ViewCVS 0.9.2-cvsgraph-1.4.0 |