code.delx.au - gnu-emacs/blob - lib-src/leditcfns.c

   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     }
  19
  20 /* arch-tag: eb7ae804-0d6e-4077-ab42-7173821410c3
  21    (do not change this comment) */