static void print_sem(int semid)
{
struct sem_data *semdata;
size_t i;
if (ipc_sem_get_info(semid, &semdata) < 1) {
warnx(_("id %d not found"), semid);
return;
}
printf(_("\nSemaphore Array semid=%d\n"), semid);
printf(_("uid=%u\t gid=%u\t cuid=%u\t cgid=%u\n"),
semdata->sem_perm.uid, semdata->sem_perm.uid,
semdata->sem_perm.cuid, semdata->sem_perm.cgid);
printf(_("mode=%#o, access_perms=%#o\n"),
semdata->sem_perm.mode, semdata->sem_perm.mode & 0777);
printf(_("nsems = %ju\n"), semdata->sem_nsems);
printf(_("otime = %-26.24s\n"),
semdata->sem_otime ? xctime(&semdata->sem_otime) : _("Not set"));
printf(_("ctime = %-26.24s\n"), xctime(&semdata->sem_ctime));
printf("%-10s %-10s %-10s %-10s %-10s\n",
_("semnum"), _("value"), _("ncount"), _("zcount"), _("pid"));
for (i = 0; i < semdata->sem_nsems; i++) {
struct sem_elem *e = &semdata->elements[i];
printf("%-10zd %-10d %-10d %-10d %-10d\n",
i, e->semval, e->ncount, e->zcount, e->pid);
}
printf("\n");
ipc_sem_free_info(semdata);
}
void print_msg(int msgid, int unit)
{
struct msg_data *msgdata;
if (ipc_msg_get_info(msgid, &msgdata) < 1) {
warnx(_("id %d not found"), msgid);
return;
}
printf(_("\nMessage Queue msqid=%d\n"), msgid);
printf(_("uid=%u\tgid=%u\tcuid=%u\tcgid=%u\tmode=%#o\n"),
msgdata->msg_perm.uid, msgdata->msg_perm.uid,
msgdata->msg_perm.cuid, msgdata->msg_perm.cgid,
msgdata->msg_perm.mode);
ipc_print_size(unit, unit == IPC_UNIT_HUMAN ? _("csize=") : _("cbytes="),
msgdata->q_cbytes, "\t", 0);
ipc_print_size(unit, unit == IPC_UNIT_HUMAN ? _("qsize=") : _("qbytes="),
msgdata->q_qbytes, "\t", 0);
printf("qnum=%jd\tlspid=%d\tlrpid=%d\n",
msgdata->q_qnum,
msgdata->q_lspid, msgdata->q_lrpid);
printf(_("send_time=%-26.24s\n"),
msgdata->q_stime ? xctime(&msgdata->q_stime) : _("Not set"));
printf(_("rcv_time=%-26.24s\n"),
msgdata->q_rtime ? xctime(&msgdata->q_rtime) : _("Not set"));
printf(_("change_time=%-26.24s\n"),
msgdata->q_ctime ? xctime(&msgdata->q_ctime) : _("Not set"));
printf("\n");
ipc_msg_free_info(msgdata);
}
static void print_shm(int shmid, int unit)
{
struct shm_data *shmdata;
if (ipc_shm_get_info(shmid, &shmdata) < 1) {
warnx(_("id %d not found"), shmid);
return;
}
printf(_("\nShared memory Segment shmid=%d\n"), shmid);
printf(_("uid=%u\tgid=%u\tcuid=%u\tcgid=%u\n"),
shmdata->shm_perm.uid, shmdata->shm_perm.uid,
shmdata->shm_perm.cuid, shmdata->shm_perm.cgid);
printf(_("mode=%#o\taccess_perms=%#o\n"), shmdata->shm_perm.mode,
shmdata->shm_perm.mode & 0777);
ipc_print_size(unit, unit == IPC_UNIT_HUMAN ? _("size=") : _("bytes="),
shmdata->shm_segsz, "\t", 0);
printf(_("lpid=%u\tcpid=%u\tnattch=%jd\n"),
shmdata->shm_lprid, shmdata->shm_cprid,
shmdata->shm_nattch);
printf(_("att_time=%-26.24s\n"),
shmdata->shm_atim ? xctime(&(shmdata->shm_atim)) : _("Not set"));
printf(_("det_time=%-26.24s\n"),
shmdata->shm_dtim ? xctime(&shmdata->shm_dtim) : _("Not set"));
printf(_("change_time=%-26.24s\n"), xctime(&shmdata->shm_ctim));
printf("\n");
ipc_shm_free_info(shmdata);
}
void
main(int argc, char *argv[])
{
int i, j, c;
int oflag, xflag, sflag;
vlong r;
Dir d;
char strs[1024];
char ebuf[1024];
fmtinstall('M', dirmodefmt);
oflag = 0;
xflag = 0;
sflag = 0;
ARGBEGIN{
case 'o':
oflag++;
break;
case 's':
sflag++;
break;
case 'x':
xflag++;
break;
default:
goto Usage;
}ARGEND
if(argc<1 || argc>1+NARG){
Usage:
fprint(2, "usage: syscall [-ox] entry [args; buf==1MB buffer]\n");
fprint(2, "\tsyscall write 1 hello 5\n");
fprint(2, "\tsyscall -o errstr buf 1024\n");
fprint(2, "\tsyscall -[xs] stat file buf 1024\n");
exits("usage");
}
for(i=1; i<argc; i++)
arg[i-1] = parse(argv[i]);
notify(catch);
for(i=0; tab[i].name; i++)
if(strcmp(tab[i].name, argv[0])==0){
/* special case for seek, pread, pwrite; vlongs are problematic */
if(strcmp(argv[0], "seek") == 0)
r=seek(arg[0], strtoll(argv[2], 0, 0), arg[2]);
else if(strcmp(argv[0], "pread") == 0)
r=pread(arg[0], (void*)arg[1], arg[2], strtoll(argv[4], 0, 0));
else if(strcmp(argv[0], "pwrite") == 0)
r=pwrite(arg[0], (void*)arg[1], arg[2], strtoll(argv[4], 0, 0));
else
r=(*tab[i].func)(arg[0], arg[1], arg[2], arg[3], arg[4]);
if(r == -1){
errstr(ebuf, sizeof ebuf);
fprint(2, "syscall: return %lld, error:%s\n", r, ebuf);
}else{
ebuf[0] = 0;
fprint(2, "syscall: return %lld, no error\n", r);
}
if(oflag)
print("%s\n", buf);
if(xflag){
for(j=0; j<r; j++){
if(j%16 == 0)
print("%.4x\t", j);
c = buf[j]&0xFF;
if('!'<=c && c<='~')
print(" %c ", c);
else
print("%.2ux ", c);
if(j%16 == 15)
print("\n");
}
print("\n");
}
if(sflag && r > 0){
r = convM2D((uchar*)buf, r, &d, strs);
if(r <= BIT16SZ)
print("short stat message\n");
else{
print("[%s] ", d.muid);
print("(%.16llux %lud %.2ux) ", d.qid.path, d.qid.vers, d.qid.type);
print("%M (%luo) ", d.mode, d.mode);
print("%c %d ", d.type, d.dev);
print("%s %s ", d.uid, d.gid);
print("%lld ", d.length);
print("%s ", lstime(d.mtime));
print("%s\n", d.name);
print("\tmtime: %s\n\tatime: %s\n", xctime(d.mtime), xctime(d.atime));
}
}
exits(ebuf);
}
fprint(2, "syscall: %s not known\n", argv[0]);
exits("unknown");
}
static void do_msg (char format, int unit)
{
struct passwd *pw;
struct msg_data *msgds, *msgdsp;
switch (format) {
case LIMITS:
{
struct ipc_limits lim;
if (ipc_msg_get_limits(&lim))
return;
printf (_("------ Messages Limits --------\n"));
printf (_("max queues system wide = %d\n"), lim.msgmni);
ipc_print_size(unit == IPC_UNIT_DEFAULT ? IPC_UNIT_BYTES : unit,
_("max size of message"), lim.msgmax, "\n", 0);
ipc_print_size(unit == IPC_UNIT_DEFAULT ? IPC_UNIT_BYTES : unit,
_("default max size of queue"), lim.msgmnb, "\n", 0);
return;
}
case STATUS:
{
struct msginfo msginfo;
if (msgctl (0, MSG_INFO, (struct msqid_ds *) (void *) &msginfo) < 0) {
printf (_("kernel not configured for message queues\n"));
return;
}
printf (_("------ Messages Status --------\n"));
printf (_("allocated queues = %d\n"), msginfo.msgpool);
printf (_("used headers = %d\n"), msginfo.msgmap);
ipc_print_size(unit, _("used space"), msginfo.msgtql,
unit == IPC_UNIT_DEFAULT ? _(" bytes\n") : "\n", 0);
return;
}
case CREATOR:
printf (_("------ Message Queues Creators/Owners --------\n"));
printf ("%-10s %-10s %-10s %-10s %-10s %-10s\n",
_("msqid"),_("perms"),_("cuid"),_("cgid"),_("uid"),_("gid"));
break;
case TIME:
printf (_("------ Message Queues Send/Recv/Change Times --------\n"));
printf ("%-8s %-10s %-20s %-20s %-20s\n",
_("msqid"),_("owner"),_("send"),_("recv"),_("change"));
break;
case PID:
printf (_("------ Message Queues PIDs --------\n"));
printf ("%-10s %-10s %-10s %-10s\n",
_("msqid"),_("owner"),_("lspid"),_("lrpid"));
break;
default:
printf (_("------ Message Queues --------\n"));
printf ("%-10s %-10s %-10s %-10s %-12s %-12s\n",
_("key"), _("msqid"), _("owner"), _("perms"),
unit == IPC_UNIT_HUMAN ? _("size") : _("used-bytes"),
_("messages"));
break;
}
/*
* Print data
*/
if (ipc_msg_get_info(-1, &msgds) < 1)
return;
msgdsp = msgds;
for (msgdsp = msgds; msgdsp->next != NULL; msgdsp = msgdsp->next) {
if (format == CREATOR) {
ipc_print_perms(stdout, &msgdsp->msg_perm);
continue;
}
pw = getpwuid(msgdsp->msg_perm.uid);
switch (format) {
case TIME:
if (pw)
printf ("%-8d %-10.10s", msgdsp->msg_perm.id, pw->pw_name);
else
printf ("%-8d %-10u", msgdsp->msg_perm.id, msgdsp->msg_perm.uid);
printf (" %-20.16s", msgdsp->q_stime
? xctime(&msgdsp->q_stime) + 4 : _("Not set"));
printf (" %-20.16s", msgdsp->q_rtime
? xctime(&msgdsp->q_rtime) + 4 : _("Not set"));
printf (" %-20.16s\n", msgdsp->q_ctime
? xctime(&msgdsp->q_ctime) + 4 : _("Not set"));
break;
case PID:
if (pw)
printf ("%-8d %-10.10s", msgdsp->msg_perm.id, pw->pw_name);
else
printf ("%-8d %-10u", msgdsp->msg_perm.id, msgdsp->msg_perm.uid);
printf (" %5d %5d\n",
msgdsp->q_lspid, msgdsp->q_lrpid);
break;
default:
printf( "0x%08x ",msgdsp->msg_perm.key );
if (pw)
printf ("%-10d %-10.10s", msgdsp->msg_perm.id, pw->pw_name);
else
printf ("%-10d %-10u", msgdsp->msg_perm.id, msgdsp->msg_perm.uid);
printf (" %-10o ", msgdsp->msg_perm.mode & 0777);
if (unit == IPC_UNIT_HUMAN)
ipc_print_size(unit, NULL, msgdsp->q_cbytes, " ", 6);
else
ipc_print_size(unit, NULL, msgdsp->q_cbytes, NULL, -12);
printf (" %-12ju\n", msgdsp->q_qnum);
break;
}
}
ipc_msg_free_info(msgds);
return;
}
static void do_sem (char format)
{
struct passwd *pw;
struct sem_data *semds, *semdsp;
switch (format) {
case LIMITS:
{
struct ipc_limits lim;
printf (_("------ Semaphore Limits --------\n"));
if (ipc_sem_get_limits(&lim))
return;
printf (_("max number of arrays = %d\n"), lim.semmni);
printf (_("max semaphores per array = %d\n"), lim.semmsl);
printf (_("max semaphores system wide = %d\n"), lim.semmns);
printf (_("max ops per semop call = %d\n"), lim.semopm);
printf (_("semaphore max value = %d\n"), lim.semvmx);
return;
}
case STATUS:
{
struct seminfo seminfo;
union semun arg;
arg.array = (ushort *) (void *) &seminfo;
if (semctl (0, 0, SEM_INFO, arg) < 0) {
printf (_("kernel not configured for semaphores\n"));
return;
}
printf (_("------ Semaphore Status --------\n"));
printf (_("used arrays = %d\n"), seminfo.semusz);
printf (_("allocated semaphores = %d\n"), seminfo.semaem);
return;
}
case CREATOR:
printf (_("------ Semaphore Arrays Creators/Owners --------\n"));
printf ("%-10s %-10s %-10s %-10s %-10s %-10s\n",
_("semid"),_("perms"),_("cuid"),_("cgid"),_("uid"),_("gid"));
break;
case TIME:
printf (_("------ Semaphore Operation/Change Times --------\n"));
printf ("%-8s %-10s %-26.24s %-26.24s\n",
_("semid"),_("owner"),_("last-op"),_("last-changed"));
break;
case PID:
break;
default:
printf (_("------ Semaphore Arrays --------\n"));
printf ("%-10s %-10s %-10s %-10s %-10s\n",
_("key"),_("semid"),_("owner"),_("perms"),_("nsems"));
break;
}
/*
* Print data
*/
if (ipc_sem_get_info(-1, &semds) < 1)
return;
semdsp = semds;
for (semdsp = semds; semdsp->next != NULL; semdsp = semdsp->next) {
if (format == CREATOR) {
ipc_print_perms(stdout, &semdsp->sem_perm);
continue;
}
pw = getpwuid(semdsp->sem_perm.uid);
switch (format) {
case TIME:
if (pw)
printf ("%-8d %-10.10s", semdsp->sem_perm.id, pw->pw_name);
else
printf ("%-8d %-10u", semdsp->sem_perm.id, semdsp->sem_perm.uid);
printf (" %-26.24s", semdsp->sem_otime
? xctime(&semdsp->sem_otime) : _("Not set"));
printf (" %-26.24s\n", semdsp->sem_ctime
? xctime( &semdsp->sem_ctime) : _("Not set"));
break;
case PID:
break;
default:
printf("0x%08x ", semdsp->sem_perm.key);
if (pw)
printf ("%-10d %-10.10s", semdsp->sem_perm.id, pw->pw_name);
else
printf ("%-10d %-10u", semdsp->sem_perm.id, semdsp->sem_perm.uid);
printf (" %-10o %-10ju\n",
semdsp->sem_perm.mode & 0777,
semdsp->sem_nsems);
break;
}
}
ipc_sem_free_info(semds);
return;
}
static void do_shm (char format, int unit)
{
struct passwd *pw;
struct shm_data *shmds, *shmdsp;
switch (format) {
case LIMITS:
{
struct ipc_limits lim;
printf (_("------ Shared Memory Limits --------\n"));
if (ipc_shm_get_limits(&lim))
return;
printf (_("max number of segments = %ju\n"), lim.shmmni);
ipc_print_size(unit == IPC_UNIT_DEFAULT ? IPC_UNIT_KB : unit,
_("max seg size"), lim.shmmax, "\n", 0);
ipc_print_size(unit == IPC_UNIT_DEFAULT ? IPC_UNIT_KB : unit,
_("max total shared memory"),
lim.shmall * getpagesize(), "\n", 0);
ipc_print_size(unit == IPC_UNIT_DEFAULT ? IPC_UNIT_BYTES : unit,
_("min seg size"), lim.shmmin, "\n", 0);
return;
}
case STATUS:
{
int maxid;
struct shm_info shm_info;
maxid = shmctl (0, SHM_INFO, (struct shmid_ds *) &shm_info);
if (maxid < 0) {
printf (_("kernel not configured for shared memory\n"));
return;
}
printf (_("------ Shared Memory Status --------\n"));
/*
* TRANSLATORS: This output format is maintained for backward
* compatibility as ipcs is used in scripts. For consistency
* with the rest, the translated form can follow this model:
*
* "segments allocated = %d\n"
* "pages allocated = %ld\n"
* "pages resident = %ld\n"
* "pages swapped = %ld\n"
* "swap performance = %ld attempts, %ld successes\n"
*/
printf (_("segments allocated %d\n"
"pages allocated %ld\n"
"pages resident %ld\n"
"pages swapped %ld\n"
"Swap performance: %ld attempts\t %ld successes\n"),
shm_info.used_ids,
shm_info.shm_tot,
shm_info.shm_rss,
shm_info.shm_swp,
shm_info.swap_attempts, shm_info.swap_successes);
return;
}
/*
* Headers only
*/
case CREATOR:
printf (_("------ Shared Memory Segment Creators/Owners --------\n"));
printf ("%-10s %-10s %-10s %-10s %-10s %-10s\n",
_("shmid"),_("perms"),_("cuid"),_("cgid"),_("uid"),_("gid"));
break;
case TIME:
printf (_("------ Shared Memory Attach/Detach/Change Times --------\n"));
printf ("%-10s %-10s %-20s %-20s %-20s\n",
_("shmid"),_("owner"),_("attached"),_("detached"),
_("changed"));
break;
case PID:
printf (_("------ Shared Memory Creator/Last-op PIDs --------\n"));
printf ("%-10s %-10s %-10s %-10s\n",
_("shmid"),_("owner"),_("cpid"),_("lpid"));
break;
default:
printf (_("------ Shared Memory Segments --------\n"));
printf ("%-10s %-10s %-10s %-10s %-10s %-10s %-12s\n",
_("key"),_("shmid"),_("owner"),_("perms"),
unit == IPC_UNIT_HUMAN ? _("size") : _("bytes"),
_("nattch"),_("status"));
break;
}
/*
* Print data
*/
if (ipc_shm_get_info(-1, &shmds) < 1)
return;
shmdsp = shmds;
for (shmdsp = shmds; shmdsp->next != NULL; shmdsp = shmdsp->next) {
if (format == CREATOR) {
ipc_print_perms(stdout, &shmdsp->shm_perm);
continue;
}
pw = getpwuid(shmdsp->shm_perm.uid);
switch (format) {
case TIME:
if (pw)
printf ("%-10d %-10.10s", shmdsp->shm_perm.id, pw->pw_name);
else
printf ("%-10d %-10u", shmdsp->shm_perm.id, shmdsp->shm_perm.uid);
/* ctime uses static buffer: use separate calls */
printf(" %-20.16s", shmdsp->shm_atim
? xctime(&shmdsp->shm_atim) + 4 : _("Not set"));
printf(" %-20.16s", shmdsp->shm_dtim
? xctime(&shmdsp->shm_dtim) + 4 : _("Not set"));
printf(" %-20.16s\n", shmdsp->shm_ctim
? xctime(&shmdsp->shm_ctim) + 4 : _("Not set"));
break;
case PID:
if (pw)
printf ("%-10d %-10.10s", shmdsp->shm_perm.id, pw->pw_name);
else
printf ("%-10d %-10u", shmdsp->shm_perm.id, shmdsp->shm_perm.uid);
printf (" %-10u %-10u\n",
shmdsp->shm_cprid, shmdsp->shm_lprid);
break;
default:
printf("0x%08x ", shmdsp->shm_perm.key);
if (pw)
printf ("%-10d %-10.10s", shmdsp->shm_perm.id, pw->pw_name);
else
printf ("%-10d %-10u", shmdsp->shm_perm.id, shmdsp->shm_perm.uid);
printf (" %-10o ", shmdsp->shm_perm.mode & 0777);
if (unit == IPC_UNIT_HUMAN)
ipc_print_size(unit, NULL, shmdsp->shm_segsz, " ", 6);
else
ipc_print_size(unit, NULL, shmdsp->shm_segsz, NULL, -10);
printf (" %-10ju %-6s %-6s\n",
shmdsp->shm_nattch,
shmdsp->shm_perm.mode & SHM_DEST ? _("dest") : " ",
shmdsp->shm_perm.mode & SHM_LOCKED ? _("locked") : " ");
break;
}
}
ipc_shm_free_info(shmds);
return;
}
