Return to leditcfns.c CVS log

Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / etc

Annotation of 43BSDReno/contrib/emacs-18.55/etc/leditcfns.c, revision 1.1

1.1     ! root        1: #include <sgtty.h>
        !             2: #include <signal.h>
        !             3: #define STRLEN 100
        !             4: static char str[STRLEN+1] = "%?emacs"; /* extra char for the null */
        !             5: 
        !             6: switch_to_proc(){
        !             7:     char *ptr = str;
        !             8:     while (*ptr) ioctl(0, TIOCSTI, ptr++);
        !             9:     ioctl(0, TIOCSTI, "\n");
        !            10:     kill(getpid(), SIGTSTP);
        !            11:     }
        !            12: 
        !            13: set_proc_str(ptr) char *ptr; {
        !            14:     if (strlen(ptr) <= STRLEN)
        !            15:        strcpy(str, ptr);
        !            16:     else
        !            17:        printf("string too long for set-proc-str: %s\n", ptr);
        !            18:     }

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