home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 2 / 2154 < prev    next >
Encoding:
Internet Message Format  |  1990-12-28  |  7.6 KB
  1. From: mf@ircam.fr (Michel Fingerhut)
  2. Newsgroups: alt.sources
  3. Subject: Unofficial patches to sps for DEC/MIPS + Ultrix 4.x
  4. Message-ID: <1990Nov25.230124.1828@ircam.fr>
  5. Date: 25 Nov 90 23:01:24 GMT
  6.  
  7. Here are the patches.  Thanks to Alan Rollow from Dec for his tip.
  8.  
  9. ------------------------------------------------------------------------------------
  10.  
  11. diff -c /old/sps/Makefile.dec3100 sps/Makefile.dec3100
  12. *** /old/sps/Makefile.dec3100    Sun Nov 25 23:52:57 1990
  13. --- sps/Makefile.dec3100    Sun Nov 25 23:42:34 1990
  14. ***************
  15. *** 9,17 ****
  16.           selectproc.o selecttty.o termwidth.o ttystatus.o waitingfor.o
  17.   INCS    =       sps.h
  18.   CC      =       cc
  19. ! CFLAGS  =       -DBSD42 -DULTRIX20 -DULTRIX30 -DVPRINTF -DDEC3100 -I/sys
  20.   LIBS    =       -ltermlib
  21. ! DIRINSTALL =    /bin
  22.   
  23.   all:            $(PROG)
  24.   .c.o:
  25. --- 9,18 ----
  26.           selectproc.o selecttty.o termwidth.o ttystatus.o waitingfor.o
  27.   INCS    =       sps.h
  28.   CC      =       cc
  29. ! CFLAGS  =       -DBSD42 -DULTRIX20 -DULTRIX30 -DULTRIX40 -DVPRINTF -DDEC3100 -I/sys
  30.   LIBS    =       -ltermlib
  31. ! DIRINSTALL =    /usr/local/bin
  32. ! DIRMAN  =       /usr/local/man/man1
  33.   
  34.   all:            $(PROG)
  35.   .c.o:
  36. ***************
  37. *** 26,36 ****
  38.           $(CC) -o $@ $(OBJS) $(LIBS)
  39.   
  40.   install:        $(PROG)
  41. !         strip $(PROG)
  42. !         mv $(PROG) $(DIRINSTALL)/$(PROG)
  43. !         /etc/chown root $(DIRINSTALL)/$(PROG)
  44. !         chgrp kmem $(DIRINSTALL)/$(PROG)
  45. !         chmod 2755 $(DIRINSTALL)/$(PROG)
  46.   
  47.   lint:
  48.           lint -x -b $(CFLAGS) *.c
  49. --- 27,34 ----
  50.           $(CC) -o $@ $(OBJS) $(LIBS)
  51.   
  52.   install:        $(PROG)
  53. !         install -s -c -o root -g kmem -m 2755 $(PROG) $(DIRINSTALL)/$(PROG)
  54. !         install -c -o root -g wheel -m 644 sps.l $(DIRMAN)/sps.1
  55.   
  56.   lint:
  57.           lint -x -b $(CFLAGS) *.c
  58. Common subdirectories: /old/sps/SCCS and sps/SCCS
  59. diff -c /old/sps/getcmd.c sps/getcmd.c
  60. *** /old/sps/getcmd.c    Sun Nov 25 23:52:56 1990
  61. --- sps/getcmd.c    Wed Nov 21 18:31:52 1990
  62. ***************
  63. *** 54,60 ****
  64. --- 54,64 ----
  65.       p->pr_upag = 0 ;
  66.       if ( p->pr_p.p_stat == SZOMB )
  67.           return ( "** Exit **" ) ;
  68. + # ifdef ULTRIX40
  69. +     if ( !(p->pr_p.p_sched & SLOAD) && Flg.flg_o )
  70. + # else
  71.       if ( !(p->pr_p.p_flag & SLOAD) && Flg.flg_o )
  72. + # endif
  73.           return ( "** Swapped out **" ) ;
  74.       /* Find the process' upage */
  75.   # ifdef KVM
  76. ***************
  77. *** 65,71 ****
  78. --- 69,79 ----
  79.           return ( "** No upage **" ) ;
  80.       p->pr_upag = 1 ;
  81.       /* Is this a system process ? */
  82. + # ifdef ULTRIX40
  83. +     if ( p->pr_p.p_type & SSYS )            
  84. + # else
  85.       if ( p->pr_p.p_flag & SSYS )            
  86. + # endif    
  87.           switch ( p->pr_p.p_pid )
  88.           {
  89.               case 0 :
  90. ***************
  91. *** 142,148 ****
  92. --- 150,160 ----
  93.       /* Look at the top of the upage to locate the command arguments.
  94.          The page is loaded if the process itself is loaded and the pte
  95.          contains is marked as valid. */
  96. + # ifdef ULTRIX40
  97. +     if ( (p->pr_p.p_sched & SLOAD)
  98. + # else
  99.       if ( (p->pr_p.p_flag & SLOAD)
  100. + # endif
  101.       && !ptetbl[0].pg_fod && ptetbl[0].pg_pfnum )
  102.       {       /* If the page is loaded, read the arguments from
  103.              physical memory. */
  104. ***************
  105. *** 152,158 ****
  106. --- 164,174 ----
  107.       }
  108.       else                            
  109.       {       /* Otherwise the page is on the swap device */
  110. + # ifdef ULTRIX40
  111. +         vstodb( 0, ctod( CLSIZE ), &User.u_us.u_procp->p_smap, &db, 1) ;
  112. + # else
  113.           vstodb( 0, ctod( CLSIZE ), &User.u_us.u_smap, &db, 1 ) ;
  114. + # endif
  115.   #  ifdef BSD42
  116.           swseek( (long)dtob( db.db_base ) ) ;
  117.   #  else
  118. diff -c /old/sps/getupage.c sps/getupage.c
  119. *** /old/sps/getupage.c    Sun Nov 25 23:52:57 1990
  120. --- sps/getupage.c    Sun Nov 25 21:04:36 1990
  121. ***************
  122. *** 40,52 ****
  123. --- 40,67 ----
  124.       extern int              Flmem, Flkmem, Flswap ;
  125.   
  126.       /* If the process is not loaded, look for the upage on the swap device*/
  127. + # ifdef ULTRIX40
  128. +     if ( !(p->pr_p.p_sched & SLOAD) )
  129. + # else
  130.       if ( !(p->pr_p.p_flag & SLOAD) )
  131. + # endif
  132.       {                               
  133. + # ifdef ULTRIX40
  134. +                 struct dmap l_dmap;
  135. +         int ublkno;
  136. + 
  137. +             memseek( Flkmem, (long)p->pr_p.p_smap );
  138. +             read( Flkmem, (char*)&l_dmap, sizeof( struct dmap ));
  139. +         memseek( Flkmem, l_dmap.dm_ptdaddr );
  140. +         read( Flkmem, (char *)&ublkno, sizeof(int));
  141. +         swseek( (long)dtob(ublkno) );
  142. + # else ULTRIX40
  143.   # ifdef BSD42
  144.           swseek( (long)dtob( p->pr_p.p_swaddr ) ) ;
  145.   # else BSD42
  146.           swseek( (long)ctob( p->pr_p.p_swaddr ) ) ;
  147.   # endif BSD42
  148. + # endif ULTRIX40
  149.   # ifdef SUN
  150.           if ( read( Flswap, (char*)&User.u_us, sizeof( union userstate ))
  151.           != sizeof( union userstate ) )
  152. diff -c /old/sps/needed.c sps/needed.c
  153. *** /old/sps/needed.c    Sun Nov 25 23:52:57 1990
  154. --- sps/needed.c    Sun Nov 25 23:38:17 1990
  155. ***************
  156. *** 78,84 ****
  157. --- 78,89 ----
  158.       uid = getuid() ;
  159.       for ( p = process ; p < lastp ; p++ )
  160.       {                               
  161. + # ifdef ULTRIX40
  162. +         if ( !p->pr_p.p_stat 
  163. +             || p->pr_p.p_pid==0 && p->pr_p.p_stat == SIDL)
  164. + # else
  165.           if ( !p->pr_p.p_stat )
  166. + # endif
  167.               continue ;
  168.           /* Count processes and sizes */
  169.           summarise( p ) ;
  170. ***************
  171. *** 150,156 ****
  172. --- 155,165 ----
  173.   # endif
  174.       Summary.sm_kloaded += p->pr_p.p_rssize ;
  175.       Summary.sm_kswapped += p->pr_p.p_swrss ;
  176. + # ifdef ULTRIX40
  177. +     if ( p->pr_p.p_sched & SLOAD )
  178. + # else
  179.       if ( p->pr_p.p_flag & SLOAD )
  180. + # endif
  181.           Summary.sm_nloaded++ ;
  182.       else
  183.           Summary.sm_nswapped++ ;
  184. diff -c /old/sps/percentmem.c sps/percentmem.c
  185. *** /old/sps/percentmem.c    Sun Nov 25 23:52:57 1990
  186. --- sps/percentmem.c    Thu Nov 22 08:31:59 1990
  187. ***************
  188. *** 34,40 ****
  189. --- 34,44 ----
  190.       fracmem = ( (double)p->pr_p.p_rssize + szptudot ) ;
  191.   # else
  192.       tp = p->pr_p.p_textp ;
  193. + # ifdef ULTRIX40
  194. +     if ( !(p->pr_p.p_sched & SLOAD) || !tp )
  195. + # else
  196.       if ( !(p->pr_p.p_flag & SLOAD) || !tp )
  197. + # endif
  198.           return ( 0.0 ) ;
  199.       szptudot = UPAGES + clrnd( ctopt( p->pr_p.p_dsize + p->pr_p.p_ssize ) );
  200.       fracmem = ( (double)p->pr_p.p_rssize + szptudot ) / CLSIZE ;
  201. diff -c /old/sps/printproc.c sps/printproc.c
  202. *** /old/sps/printproc.c    Sun Nov 25 23:52:57 1990
  203. --- sps/printproc.c    Thu Nov 22 08:38:06 1990
  204. ***************
  205. *** 138,146 ****
  206. --- 138,158 ----
  207.               break ;
  208.       }
  209.       /* If the process is loaded, list the status information in capitals */
  210. + # ifdef ULTRIX40
  211. +     printf( "%-6.6s ", p->pr_p.p_sched & SLOAD ?
  212. + # else
  213.       printf( "%-6.6s ", p->pr_p.p_flag & SLOAD ?
  214. + # endif
  215.           (capitals( chp, chbuf ), chbuf) : chp ) ;
  216.       /* List process flags */
  217. + # ifdef ULTRIX40
  218. +     printf( "%c%c%c", p->pr_p.p_type & SSYS ? 'U' :
  219. +         p->pr_p.p_trace & STRC ? 'T' : ' ',
  220. +         p->pr_p.p_vm & SVFORK ? 'V' :
  221. +         p->pr_p.p_vm & SPHYSIO ? 'I' : ' ',
  222. +         p->pr_p.p_vm & SUANOM ? 'A' :
  223. +         p->pr_p.p_vm & SSEQL ? 'S' : ' ' ) ;
  224. + # else
  225.       printf( "%c%c%c", p->pr_p.p_flag & SSYS ? 'U' :
  226.           p->pr_p.p_flag & STRC ? 'T' : ' ',
  227.           p->pr_p.p_flag & SVFORK ? 'V' :
  228. ***************
  229. *** 147,152 ****
  230. --- 159,165 ----
  231.           p->pr_p.p_flag & SPHYSIO ? 'I' : ' ',
  232.           p->pr_p.p_flag & SUANOM ? 'A' :
  233.           p->pr_p.p_flag & SSEQL ? 'S' : ' ' ) ;
  234. + # endif
  235.       /* List process niceness */
  236.       if ( p->pr_p.p_nice != NZERO )          
  237.           printf( "%3d ", p->pr_p.p_nice - NZERO ) ;
  238. diff -c /old/sps/waitingfor.c sps/waitingfor.c
  239. *** /old/sps/waitingfor.c    Sun Nov 25 23:52:57 1990
  240. --- sps/waitingfor.c    Thu Nov 22 08:41:47 1990
  241. ***************
  242. *** 79,85 ****
  243. --- 79,89 ----
  244.           return ( "null" ) ;
  245.       /* Waiting for a child process, alternatively in a vfork() ? */
  246.       if ( INRANGE( w, Info.i_proc0, &Info.i_proc0[ Info.i_nproc ] ) )
  247. + # ifdef ULTRIX40
  248. +         return ( p->pr_p.p_vm & SNOVM ? "vfork" : "child" ) ;
  249. + # else
  250.           return ( p->pr_p.p_flag & SNOVM ? "vfork" : "child" ) ;
  251. + # endif
  252.   # ifndef SUNOS40
  253.       /* Waiting for a page to be brought in ? */
  254.       if ( INRANGE( w, Info.i_swbuf0, &Info.i_swbuf0[ Info.i_nswbuf ] ) )
  255. -- 
  256. Michael Fingerhut    email: mf@ircam.fr    voice:     +33 1 42770105
  257. IRCAM, 31 rue St Merri, 75004 Paris, France    fax:     +33 1 42772947    
  258.