Return to leditcfns.c CVS log

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

Annotation of 43BSD/contrib/emacs/etc/leditcfns.c, revision 1.1.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.