view lib-src/leditcfns.c @ 22618:ed91f54d85b9

(create-fontset-from-fontset-spec): Generate ASCII font names of style variants fontsets from a resolved ASCII font name of a base fontset.

+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申#include <sgtty.h>
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申#include <signal.h>
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申#define STRLEN 100
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申static char str[STRLEN+1] = "%?emacs"; /* extra char for the null */
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申switch_to_proc(){
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申    char *ptr = str;
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申    while (*ptr) ioctl(0, TIOCSTI, ptr++);
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申    ioctl(0, TIOCSTI, "\n");
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申    kill(getpid(), SIGTSTP);
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申    }
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申set_proc_str(ptr) char *ptr; {
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申    if (strlen(ptr) <= STRLEN)
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申	strcpy(str, ptr);
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申    else
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申	printf("string too long for set-proc-str: %s\n", ptr);
+
鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申    }