Return to hang.c CVS log

Up to [Research Unix] / researchv9 / jtools / src / cmd

Annotation of researchv9/jtools/src/cmd/hang.c, revision 1.1.1.1

1.1       root        1: #include <stdio.h>
                      2: #include <signal.h>
                      3: #include <sys/ptrace.h>
                      4: #include <sys/wait.h>
                      5: 
                      6: /*
                      7:  * bsd semi-equivalent of Ninth Edition hang
                      8:  *
                      9:  * D. A. Kapilow               12/18/87
                     10:  */
                     11: 
                     12: main(argc,argv)
                     13: int argc; char **argv;
                     14: {
                     15:        int pid, wpid;
                     16:        union wait status;
                     17: 
                     18:        if (argc <= 1) {
                     19:                fprintf(stderr,"Usage: %s cmd [args...]\n",*argv);
                     20:                exit(1);
                     21:        }
                     22:        if ((pid = fork()) == 0) {
                     23:                ptrace(PTRACE_TRACEME, 0, 0, 0, 0);
                     24:                execvp(argv[1], argv+1);
                     25:                perror(argv[1]);
                     26:                exit(1);
                     27:        }
                     28:        if (pid < 0) {
                     29:                fprintf(stderr,"%s: can't fork\n",*argv);
                     30:                exit(1);
                     31:        }
                     32:        while ((wpid = wait(&status)) != pid)
                     33:                ;
                     34:        if (!WIFSTOPPED(status) || status.w_stopsig != SIGTRAP) {
                     35:                fprintf(stderr,"%s: child died\n",*argv);
                     36:                exit(1);
                     37:        }
                     38:        kill(pid, SIGSTOP);
                     39:        ptrace(PTRACE_DETACH, pid, (int *)1, 0, 0);
                     40:        fprintf(stderr, "%d %s\n", pid, argv[1]);
                     41:        while ((wpid = wait(&status)) != pid)
                     42:                if (wpid < 0)
                     43:                        exit(1);
                     44: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.