lload for xenix

[Bodo Rueskamp]

In article <30067 at conexch.UUCP> sandy at conexch.UUCP (Sandford Zelkovitz) writes:
>Below, is my ported version of lload.c for Xenix. The original code,
>by Lars Pensj from Myab Gothenburg, Sweden, was distributed in 
>alt.sources.

Diffs for Xenix 286 [ sizeof(int) != sizeof(long) !! ]:


*** lload.c	Tue May 30 12:34:15 1989
--- lload.c.orig	Tue May 30 12:34:20 1989
***************
*** 33,40
  
  
  /*  For Xenix:  compile as follows:  cc -Ox lload.c -lm -lx -o lload   */
- /*  For Xenix 286: compile as follows:
- 		cc -M2e -i -Ox lload.c -lm -lx -o lload		*/
  
  /*  Modified for Xenix by Sanford Zelkovitz    XBBS   714-898-8634     */
  /*  Modified for Xenix 286 by Bodo Rueskamp, <br at unido.uucp>  */

--- 33,38 -----
  
  
  /*  For Xenix:  compile as follows:  cc -Ox lload.c -lm -lx -o lload   */
  
  /*  Modified for Xenix by Sanford Zelkovitz    XBBS   714-898-8634     */
  
***************
*** 37,43
  		cc -M2e -i -Ox lload.c -lm -lx -o lload		*/
  
  /*  Modified for Xenix by Sanford Zelkovitz    XBBS   714-898-8634     */
- /*  Modified for Xenix 286 by Bodo Rueskamp, <br at unido.uucp>  */
  
  #include <fcntl.h>
  #ifdef M_XENIX

--- 35,40 -----
  /*  For Xenix:  compile as follows:  cc -Ox lload.c -lm -lx -o lload   */
  
  /*  Modified for Xenix by Sanford Zelkovitz    XBBS   714-898-8634     */
  
  #include <fcntl.h>
  #ifdef M_XENIX
***************
*** 46,52
  #include <nlist.h>
  #endif
  #include <stdio.h>
- #ifndef M_XENIX
  #include <stropts.h>
  #include <poll.h>
  #endif

--- 43,48 -----
  #include <nlist.h>
  #endif
  #include <stdio.h>
  #include <stropts.h>
  #include <poll.h>
  #include <math.h>
***************
*** 49,55
  #ifndef M_XENIX
  #include <stropts.h>
  #include <poll.h>
- #endif
  #include <math.h>
  #include <sys/types.h>
  #include <sys/param.h>

--- 45,50 -----
  #include <stdio.h>
  #include <stropts.h>
  #include <poll.h>
  #include <math.h>
  #include <sys/types.h>
  #include <sys/param.h>
***************
*** 169,175
  	 * Read the 'v' structure every time. It says how
  	 * many procs are used.
  	 */
! 	if (lseek(kmem, (long) v_p->n_value, 0) == -1) {
  	    perror("lseek v");
  	    exit(1);
  	}

--- 164,170 -----
  	 * Read the 'v' structure every time. It says how
  	 * many procs are used.
  	 */
! 	if (lseek(kmem, v_p->n_value, 0) == -1) {
  	    perror("lseek v");
  	    exit(1);
  	}
***************
*** 180,186
  	size = (struct proc *)v.ve_proc - (struct proc *)proc_p->n_value;
  	first_buf = buf_p->n_value;
  	last_buf = first_buf + v.v_buf * sizeof (struct buf);
! 	if (lseek(kmem, (long) proc_p->n_value, 0) == -1) {
  	    perror("lseek proc");
  	    exit(1);
  	}

--- 175,181 -----
  	size = (struct proc *)v.ve_proc - (struct proc *)proc_p->n_value;
  	first_buf = buf_p->n_value;
  	last_buf = first_buf + v.v_buf * sizeof (struct buf);
! 	if (lseek(kmem, proc_p->n_value, 0) == -1) {
  	    perror("lseek proc");
  	    exit(1);
  	}
***************
*** 233,239
  		   av[0]);
  	write(debug_fd, buff, strlen(buff));
  #endif
! 	(void)nap(sleeping * 1000L);
  	free(p);
      }
  }

--- 228,234 -----
  		   av[0]);
  	write(debug_fd, buff, strlen(buff));
  #endif
! 	(void)nap(sleeping * 1000);
  	free(p);
      }
  }