view lib-src/leditcfns.c @ 1203:5f2f8dcbfb3e

[xemacs-hg @ 2003-01-12 11:04:30 by michaels] 2002-12-16 Ben Wing <ben@xemacs.org> * README (NOTE): * config.inc.samp: * config.inc.samp (PACKAGE_PREFIX): * config.inc.samp (GTK_DIR): * config.inc.samp (COMPFACE_DIR): * config.inc.samp (USE_FASTCALL): * config.inc.samp (HAVE_VC6): New. * config.inc.samp (PROFILE_SUPPORT): * config.inc.samp (DEBUG_XEMACS): * config.inc.samp (USE_PORTABLE_DUMPER): * config.inc.samp (USE_KKCC): New. * config.inc.samp (USE_UNION_TYPE): New. * xemacs.dsp (CFG): * xemacs.mak (HAVE_VC6): * xemacs.mak (ERROR_CHECK_ALL): New. * xemacs.mak (CPLUSPLUS_COMPILE): New. * xemacs.mak (USE_KKCC): New. * xemacs.mak (USE_UNION_TYPE): New. * xemacs.mak (USE_PORTABLE_DUMPER): * xemacs.mak (PROFILE_FLAGS): * xemacs.mak (CPLUSPLUS_COMPILE_FLAGS): New. * xemacs.mak (DUMPER_DEFINES): * xemacs.mak (KKCC_DEFINES): New. * xemacs.mak (DEFINES): * xemacs.mak (LASTFILE_FLAGS): * xemacs.mak (TEMACS_CPP_FLAGS_NO_CFLAGS): * xemacs.mak (OS): Support C++ compilation, KKCC compilation. See src/ChangeLog. Add stuff about the evilness of USE_UNION_TYPE.
author michaels
date Sun, 12 Jan 2003 11:04:30 +0000 (2003-01-12)
parents 376386a54a3c
children
line wrap: on
line source
/* Synched up with: FSF 19.28. */

#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);
    }