home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / gnu / emacs-18.59-bin.lha / lib / emacs / 18.59 / etc / leditcfns.c < prev    next >
C/C++ Source or Header  |  1985-04-18  |  427b  |  19 lines
  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.