home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume6 / xnetld / patch1 / RUPRPC.patch < prev   
Encoding:
Text File  |  1990-03-20  |  3.9 KB  |  142 lines
  1. *** Imakefile.dist    Tue Oct 10 08:06:25 1989
  2. --- Imakefile    Wed Feb 21 12:27:04 1990
  3. ***************
  4. *** 22,47 ****
  5.   # CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  6.   #
  7.   
  8.   #
  9.   # Since xnetload finds the local machine's load using the standard Load
  10.   # widget stuff, it needs to be able to read kmem, i.e.  setgid kmem.  If
  11.   # you do not want this, then define NOLOCAL
  12. ! #        DEFINES = -O -DNOLOCAL
  13.   
  14. !        INCLUDES = -I$(TOP) -I$(TOP)/X11
  15.   
  16.   # Dynix doesn't have -L option on load, but I have left changing the
  17.   # XLIB specification up to individual sites.  Dynix and our Sun 3.5
  18.   # don't come with a memcpy, so you'll have to add in whichever library
  19.   # has memcpy.
  20. ! /* LOCAL_LIBRARIES = $(XAWLIB) $(XMULIB) $(XTOOLLIB) $(XLIB) */
  21. ! LOCAL_LIBRARIES = -L/usr/software/X11/lib -lXaw -lXmu -lXt -lX11
  22.   
  23. !            SRCS = xnetload.c getload.o
  24. !            OBJS = xnetload.o getload.o
  25.   
  26.      INSTALLFLAGS = $(INSTKMEMFLAGS)
  27.   
  28. ! all: xnetload
  29.   
  30. ! SingleProgramTarget(xnetload,$(OBJS),,$(LOCAL_LIBRARIES))
  31. --- 22,63 ----
  32.   # CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  33.   #
  34.   
  35. +      COMPATFLAGS = -DXAW_BC
  36. + 
  37.   #
  38.   # Since xnetload finds the local machine's load using the standard Load
  39.   # widget stuff, it needs to be able to read kmem, i.e.  setgid kmem.  If
  40.   # you do not want this, then define NOLOCAL
  41. ! #if SunOSPlatform
  42. !       RUPDEFINES = -DRUPRPC -DDEFREMUPDATE=5 /* -DDEBUGGING */
  43. !    SYS_LIBRARIES = -lrpcsvc
  44. ! #endif
  45. !          DEFINES = /* -DNOLOCAL */ $(RUPDEFINES)
  46.   
  47. ! #       INCLUDES = -I$(TOP) -I$(TOP)/X11
  48.   
  49.   # Dynix doesn't have -L option on load, but I have left changing the
  50.   # XLIB specification up to individual sites.  Dynix and our Sun 3.5
  51.   # don't come with a memcpy, so you'll have to add in whichever library
  52.   # has memcpy.
  53. ! LOCAL_LIBRARIES = $(XAWLIB) $(XMULIB) $(XTOOLLIB) $(XLIB)
  54.   
  55. !            SRCS = xnetload.c getload.c X11/Load.c
  56. !            OBJS = xnetload.o getload.o Load.o
  57.   
  58.      INSTALLFLAGS = $(INSTKMEMFLAGS)
  59.   
  60. ! ComplexProgramTarget(xnetload)
  61.   
  62. ! Load.o:        X11/Load.c
  63. !         $(CC) -c $(CFLAGS) X11/Load.c
  64. ! 
  65. ! #if SunOSPlatform
  66. ! #if HasGcc    /* GCC is too picky about syntax in Sun RPC header files */
  67. ! getload.o:    getload.c
  68. !         @if [ "$(CC)" != cc ] ;\
  69. !         then $(MAKE) CC=cc CCOPTIONS= getload.o ;\
  70. !         else cmd="$(CC) -c $(CFLAGS) getload.c"; echo $$cmd; $$cmd ;\
  71. !         fi
  72. ! #endif
  73. ! #endif
  74. *** getload.c.dist    Tue Oct 10 08:06:26 1989
  75. --- getload.c    Wed Feb 21 13:21:55 1990
  76. ***************
  77. *** 32,37 ****
  78. --- 32,87 ----
  79.   #include <sys/types.h>
  80.   #include <sys/time.h>
  81.   
  82. + #ifdef RUPRPC
  83. + #include <sys/param.h>
  84. + #include <sys/stat.h>
  85. + #include <sys/socket.h>
  86. + #include <rpcsvc/rstat.h>
  87. + #include <rpc/rpc.h>
  88. + #include <rpc/pmap_clnt.h>
  89. + 
  90. + int
  91. + getload(host)
  92. +     char *host;
  93. + {
  94. +     enum clnt_stat err;
  95. +     struct statstime sw;
  96. +     
  97. + #ifdef DEBUGGING
  98. +     fprintf(stderr, "xnetload: %s: ", host);
  99. +     fflush(stderr);
  100. + #endif
  101. +     err = (enum clnt_stat)callrpc(host, RSTATPROG, RSTATVERS_TIME,
  102. +         RSTATPROC_STATS, xdr_void, 0, xdr_statstime, &sw);
  103. +     if (err != RPC_SUCCESS)
  104. +          if (err == RPC_PROGVERSMISMATCH) {
  105. +         if (err = (enum clnt_stat)callrpc(host, RSTATPROG,
  106. +             RSTATVERS_SWTCH, RSTATPROC_STATS, xdr_void, 0,
  107. +             xdr_statsswtch, &sw)) {
  108. + #ifndef DEBUGGING
  109. +             fprintf(stderr, "xnetload: %s: ", host);
  110. + #endif
  111. +             clnt_perrno(err);
  112. +             fprintf(stderr, "\n");
  113. +             return( -1 );
  114. +         }
  115. +     }
  116. +     else {
  117. + #ifndef DEBUGGING
  118. +         fprintf(stderr, "xnetload: %s: ", host);
  119. + #endif
  120. +         clnt_perrno(err);
  121. +         fprintf(stderr, "\n");
  122. +         return( -1 );
  123. +     }
  124. + 
  125. + #ifdef DEBUGGING
  126. +     fprintf(stderr, "%lf\n", (double)sw.avenrun[0]/FSCALE);
  127. + #endif
  128. +     return( (double)sw.avenrun[0]/FSCALE * 100.0);
  129. + }
  130. + 
  131. + #else /* no RUPRPC */
  132.   /* Dynix doesn't have an rwhod.h file, so here's the struct for that system */
  133.   #ifdef sequent
  134.   struct  outmp {
  135. ***************
  136. *** 113,115 ****
  137. --- 163,166 ----
  138.       }
  139.       return(0);        /* couldn't read load if here */
  140.   }
  141. + #endif
  142.