set _chkques 0
set _msgques 0
ifdef chkmsgques
	em chkmsgques
fi
define chkmsgques "" 0t170
  set _chkques 1
  do msgque_aux msgque (*((msginfo)+0t12)) 0
.
ifdef msgques
	em msgques
fi
define msgques "" 0t44
  set _msgques 1
  msgque
  set _msgques 0
.
ifdef msghead
	em msghead
fi
define msghead "" 0t87
  printf "Id    Addr     first    last   uid gid qbytes cbytes q_num spid rpid mode\n"
.
ifdef msgque
	em msgque
fi
define msgque "" 0t182
  ifsdef _msgques
  else
    set _msgques 0
  FI
  msghead
  do msgque_aux msgque (*((msginfo)+0t12)) 0
.
ifdef msgque_aux
	em msgque_aux
fi
define msgque_aux aii 0t462
  if $2 == 0
    exit
  elseif ((*(($1)+0t44)) != 0) | _msgques == 1
    if (*(($1)+0t88)) != 0
      if _chkques == 1
	set _chkques 0
	msghead
      FI
      printf "%3x %8x %8x %8x %3x %3x  %4x   %4x   %3x  ",$3,$1,(*(($1)+0t44)),(*(($1)+0t48)),(*(($1)+0t0)),(*(($1)+0t4)),(*(($1)+0t60)),(*(($1)+0t52)),(*(($1)+0t56))
      printf "%4x %4x %4x\n",(*(($1)+0t64)),(*(($1)+0t68)),(*(($1)+0t16))
    FI
  FI
  sa 1 $1 + 0t112
  sa 2 $2 - 1
  sa 3 $3 + 1
FI
.
ifdef semques
	em semques
fi
define semques "" 0t44
  set _semques 1
  msgque
  set _semques 0
.
ifdef semque
	em semque
fi
define semque "" 0t155
  ifsdef _semques
  else
    set _semques 0
  FI
  printf "Id    Addr     base   num   gid   otime     ctime\n"
  do semque_aux sema (*((seminfo)+0t4)) 0
.
ifdef semque_aux
	em semque_aux
fi
define semque_aux aii 0t262
  if $2 == 0
    exit
  elseif ((*(($1)+0t44)) != 0) | _semques == 1
      printf "%3x %8x %8x %4x  %4x %8x  %8x\n",$3,$1,(*(($1)+0t44)),((*(($1)+0t48))&0xFFFF),(*(($1)+0t4)),(*(($1)+0t52)),(*(($1)+0t60))
  FI
  sa 1 $1 + 0t84
  sa 2 $2 - 1
  sa 3 $3 + 1
FI
.
ifdef shmem
	em shmem
fi
define shmem "" 0t90
printf "  addr    shm_amp   sz   lpid cpid mode\n"
do shmem_aux shmem (*((shminfo)+0t8))
.
ifdef shmem_aux
	em shmem_aux
fi
define shmem_aux ai 0t205
if $2 == 0
  exit
elseif ((*(($1)+0t48)) != 0)
    printf "%8x %8x %6x %4x %4x %4x\n",$1,(*(($1)+0t48)),(*(($1)+0t44)),(*(($1)+0t56)),(*(($1)+0t60)),(*(($1)+0t16))
  FI
  sa 1 $1 + 0t112
  sa 2 $2 - 1
FI
.
ifdef sockets
	em sockets
fi
define sockets "" 0t33
  do socket_aux so_so (*so_cnt)
.
ifdef socket_aux
	em socket_aux
fi
define socket_aux ai 0t146
  args 3
  if $3 == $2
    exit
  fi
  if (((*(($1)+0t0)) & 0x0001 ) == 0x0001 )
  printf "%3x %8x\n",$3,$1
  fi
  sa 3 $3 + 1
  sa 1 $1 + 0t256
.