Artifact c56f460fdf3bdd8089c80668f4d1c8395936f168d4784856c7df22b0786b44ee:
- Executable file
r37/lisp/csl/cslbase/sysxwin.c
— part of check-in
[f2fda60abd]
at
2011-09-02 18:13:33
on branch master
— Some historical releases purely for archival purposes
git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/trunk/historical@1375 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 56878) [annotate] [blame] [check-ins using] [more...]
/* sysxwin.c Copyright (C) 1993-2003 Codemist Ltd */ /* * General Unix/X/StdWin system-specific code. Not currently * tested or working, but possibly valuable as a skeleton or * framework. */ /* * This code may be used and modified, and redistributed in binary * or source form, subject to the "CCL Public License", which should * accompany it. This license is a variant on the BSD license, and thus * permits use of code derived from this in either open and commercial * projects: but it does require that updates to this code be made * available back to the originators of the package. * Before merging other code in with this or linking this code * with other packages or libraries please check that the license terms * of the other material are compatible with those of this. */ /* Signature: 061156c6 13-Jul-2003 */ #include "machine.h" #ifndef NO_UNISTD_AVAILABLE /* * Posix mandates a header <unistd.h>, which is why I feel entitled to * include it here. But for systems that do not I can assert * NO_UNISTD_AVAILABLE in machine.h and worry about other ways to * reference the relevant facilities... */ #include <unistd.h> #endif #ifdef __hpux /* * Get the regular headers to define a few more things... */ #define _SYSCALL_INCLUDED #endif #include <stdarg.h> #include <stdlib.h> #include <string.h> #include <ctype.h> #include <sys/types.h> #include <sys/stat.h> #include <dirent.h> #include <errno.h> #include "tags.h" #include "externs.h" #include "sys.h" #ifdef TIMEOUT #include "timeout.h" #endif #include "filename.c" int change_directory(char *filename, char *old, size_t n) { process_file_name(filename, old, n); if (*filename == 0) return 1; if (chdir(filename)) { char err_buf[LONGEST_LEGAL_FILENAME+100]; char *msg; switch (errno) { case ENOTDIR: msg = "A component of %s is not a directory."; break; case ENOENT: msg = "The directory %s does not exist."; break; case EACCES: msg = "Insufficient permission for %s."; break; case ELOOP: msg = "Pathname %s has too many symbolic links."; break; case ENAMETOOLONG: msg = "The pathname %s is too long."; break; default: msg = "Cannot change directory to %s."; break; } sprintf(err_buf, msg, filename); aerror0(err_buf); return 1; } else return 0; } int create_directory(char *filename, char *old, size_t n) { process_file_name(filename, old, n); if (*filename == 0) return 1; return mkdir(filename, 0x1f8); } static void remove_files(char *name, int dirp, long int size) /* Remove a file, or a directory and all its contents */ { if (dirp) rmdir(name); else remove(name); } int delete_file(char *filename, char *old, size_t n) { process_file_name(filename, old, n); if (*filename == 0) return 0; /* * We cannot simply use remove here, since this will not * work with directories and their contents. Hence the * use of scan_directory. */ scan_directory(filename, remove_files); return 0; } /*#include <direct.h> */ int get_current_directory(char *s, int n) { if (getcwd(s, n) == 0) { switch(errno) { case ERANGE: aerror0("the pathname of the current directory is too long."); break; case EACCES: aerror0("insufficient permission to get pathname."); break; default: aerror0("cannot get current directory name."); break; } *s = 0; return 0; } else return strlen(s); } int directoryp(char *filename, char *old, size_t n) { struct stat buf; process_file_name(filename, old, n); if (*filename == 0) return 0; if (stat(filename,&buf) == -1) return 0; return ((buf.st_mode & S_IFMT) == S_IFDIR); } char *get_truename(char *filename, char *old, size_t n) { struct stat buf; char *temp, *fn, *dir, *pwd; process_file_name(filename, old, n); if (*filename == 0) aerror("truename"); /* Find out whether we have a file or a directory */ if (stat(filename,&buf) == -1) aerror0("truename: cannot stat file"); /* Store current directory */ /* /* * The next line is UNSATISFACTORY because Posix explicitly says (at least in * in the copy of 1003.1 that I have) that getcwd has undefined behaviour * if its first argument is NULL. */ if ((pwd = (char *)getcwd((char *)NULL, LONGEST_LEGAL_FILENAME)) == NULL) aerror0("truename: cannot get current working directory"); if ((buf.st_mode & S_IFMT) == S_IFDIR) { /* We have a directory */ char *dir = (char*) (*malloc_hook)(LONGEST_LEGAL_FILENAME); if (chdir(filename) != 0) aerror0("truename: cannot change directory"); if (getcwd(dir,LONGEST_LEGAL_FILENAME) == NULL) aerror0("truename: cannot get current working directory"); if (chdir(pwd) != 0) aerror0("truename: cannot change directory"); (*free_hool)(pwd); /* * Axiom-specific hack: truename preserves '/' at the end of * a path */ if (old[n-1] == '/' && dir[strlen(dir)-1] != '/') { n = strlen(dir); dir[n] = '/'; dir[n+1] = '\0'; } return dir; } else { /* Assume we have some kind of file */ temp = strrchr(filename,'/'); if (temp) { /* Found a directory component */ fn = strdup(temp); *temp = '\0'; /* fn is now "/file" and filename is the directory */ if (chdir(filename) != 0) aerror0("truename: cannot change directory"); /* /* getcwd(NULL,...) invalid */ if ((temp = (char *)getcwd((char *)NULL,LONGEST_LEGAL_FILENAME)) == NULL) aerror0("truename: cannot get current working directory"); if (chdir(pwd) != 0) aerror0("truename: cannot change directory"); dir = (char *)(*malloc_hook)((strlen(temp) + strlen(fn) + 1)*sizeof(char)); /* /* * No check for malloc failure... */ strcpy(dir, temp); (*free_hool)(temp); (*free_hool)(pwd); strcat(dir, fn); (*free_hool)(fn); return dir; } else { dir = (char *)(*malloc_hook)((strlen(pwd) + strlen(filename) + 2)*sizeof(char)); /* /* No check for malloc failure */ strcpy(dir,pwd); strcat(dir, "/"); strcat(dir, filename); (*free_hool)(pwd); return dir; } } } #ifndef DO_NOT_USE_STAT int file_readable(char *filename, char *old, size_t n) { struct stat buf; process_file_name(filename, old, n); if (*filename == 0) return 0; if (stat(filename,&buf) == -1) return 0; /* File probably does not exist */ else if (geteuid() == buf.st_uid) return (buf.st_mode & S_IRUSR); else if (getegid() == buf.st_gid) return (buf.st_mode & S_IRGRP); else return (buf.st_mode & S_IROTH); } int file_writeable(char *filename, char *old, size_t n) { struct stat buf; process_file_name(filename, old, n); if (*filename == 0) return 0; if (stat(filename,&buf) == -1) return 0; /* Should we check to see if the directory is writeable? */ else if (geteuid() == buf.st_uid) return (buf.st_mode & S_IWUSR); else if (getegid() == buf.st_gid) return (buf.st_mode & S_IWGRP); else return (buf.st_mode & S_IWOTH); } #else int file_readable(char *filename, char *old, size_t n) { FILE *fp; process_file_name(filename, old, n); if (*filename == 0) return 0; /* The "correct" way to do this is via stat, but this is much simpler! */ fp = fopen(filename,"r"); if (fp == NULL) return 0; else { fclose(fp); return 1; } } int file_writeable(char *filename, char *old, size_t n) { FILE *fp; process_file_name(filename, old, n); if (*filename == 0) return 0; fp = fopen(filename,"a"); if (fp == NULL) return 0; else { fclose(fp); return 1; } } #endif int rename_file(char *from_name, char *from_old, size_t from_size, char *to_name, char *to_old, size_t to_size) { process_file_name(from_name, from_old, from_size); process_file_name(to_name, to_old, to_size); if (*from_name == 0 || *to_name == 0) return 0; return rename(from_name,to_name); } #ifdef NAG_VERSION int list_directory_members(char *filename, char *old, char **filelist[], size_t n) { struct dirent **namelist; int number_of_entries, i; char **files; process_file_name(filename, old, n); /* scandir expects "." for the current directory */ if (*filename == 0) number_of_entries = scandir(".",&namelist,NULL,NULL); else number_of_entries = scandir(filename,&namelist,NULL,NULL); /* * If the scandir failed then return now, since we make an assumption later * that we found at least two entries: "." and "..". */ if (number_of_entries == -1) return -1; files=(char **)(*malloc_hook)(number_of_entries*sizeof(char *)); for (i=0;i<number_of_entries;++i) { files[i] = strdup(namelist[i]->d_name); (*free_hool)(namelist[i]); } (*free_hool)(namelist); *filelist = files; /* * When we return we will prepend the directory name to the files, so we * must make sure it is suitable for that. This is done here since it is * platform dependent (i.e. in DOS we would need to ensure the last * character was "\"). */ /* i=strlen(filename); if (i > 0 && filename[i-1] != '/') { filename[i]='/'; filename[i+1]='\0'; } */ return number_of_entries; } #else void list_directory_members(char *filename, char *old, size_t n, directory_callback *fn) { process_file_name(filename, old, n); scan_files(filename, fn); } #endif CSLbool file_exists(char *filename, char *old, size_t n, char *tt) /* * This returns YES if the file exists, and as a side-effect copies a * textual form of the last-changed-time of the file into the buffer tt. */ { struct stat statbuff; process_file_name(filename, old, n); if (*filename == 0) return NO; if (stat(filename, &statbuff) != 0) return NO; strcpy(tt, ctime(&(statbuff.st_mtime))); return YES; } /* * getenv() is a mild pain in two respects - firstly Ultrix uses * a non-ANSI definition (using 2 args not 1), and the MSDOS seems * to have a strong preference for upper case names. To allow for * all this I do not call getenv() directly but go via the following * code that can patch things up. */ #ifdef TWO_ARG_GETENV char *my_getenv(char *s) { static char value[LONGEST_LEGAL_FILENAME]; getenv(s, value); return value; } #else char *my_getenv(char *s) { return getenv(s); } #endif int my_system(char *s) { return system(s); } FILE *my_popen(char *a, char *b) { #ifdef NCC_LIB return NULL; #else return (FILE *)popen(a, b); #endif } void my_pclose(FILE *a) { #ifndef NCC_LIB pclose(a); #endif } /* * I do not expect that the following will work exactly unchanged * on all possible versions of Unix - e.g. header file names may need * altering and suchlike mess. But the idea should be reasonable and * changes when needed ought to be small. */ #ifdef USE_GETUID /* * "machine.h" should set USE_GETUID if that is a good way of doing things. * This is NOT made the default, since it seems that getuid and getpwuid * are distinctly not comfortably available on all systems. The alternative * of using getenv("HOME") when expanding "~/xxx" is reasonably good, but * for "~user/xxx" I give up and just look in the current directory. */ #include <pwd.h> extern int getuid(void); int void get_home_directory(char *b, int len) { int i; struct passwd *pw = getpwuid(getuid()); strcpy(b, pw->pw_dir); i = strlen(b); /* Here the directory handed back has "/" forced in as its final character */ if ( b[i-1] != '/') { b[i++] = '/'; b[i] = 0; } return i; } int get_users_home_directory(char *b, int len) { struct passwd *pw = getpwnam(b); if (pw != NULL) strcpy(b, pw->pw_dir); else strcpy(b, "."); /* use current directory if getpwnam() fails */ return strlen(b); } #else /* USE_GETUID */ int get_home_directory(char *b, int len) { int i; strcpy(b, getenv("HOME")); /* Probably works with most shells */ i = strlen(b); if ( b[i-1] != '/') { b[i++] = '/'; b[i] = 0; } return i; } int get_users_home_directory(char *b, int len) { strcpy(b, "."); /* use current directory if getpwnam() no available */ return 1; } #endif /* USE_GETUID */ #ifdef UNIX_TIMES /* * This is a BSD-style clock facility, possibly giving a resolution of * only 1/100 second. I believe that Portable Standard Lisp typically * reports user time, which is why I do this. A further nasty here * is that I am probably compiling this file in ANSI mode, and on * at least some computers this makes #include <sys/times.h> fairly * ineffective (ugh), so I declare all the structures and functions I * want directly (ugh ugh) and hope they are as needed. Consider this * when you port to a new machine. */ clock_t read_clock(void) { struct my_tms { clock_t tms_utime; clock_t tms_stime; clock_t tms_cutime; clock_t tms_cstime; } tmsbuf; clock_t w1, w2, w3; extern void times(/*struct my_tms * */); times(&tmsbuf); w1 = tmsbuf.tms_utime; /* User time in UNIX_TIMES ticks */ w2 = CLOCKS_PER_SEC; w3 = UNIX_TIMES; return (clock_t)((double)w1 * ((double)w2/(double)w3)); } #endif #ifdef __kcm extern int _ttyhandle; int batchp(void) { return (_ttyhandle != 0); } #else #ifdef NCC_LIB int batchp(void) { extern int _fisatty(FILE*); return !_fisatty(stdin); } #else #if BSD_LIB int batchp(void) { return !isatty(fileno(stdin)); } #else #error "Unknown Library type" #endif /* BSD_LIB */ #endif /* NCC_LIB */ #endif /* __kcm */ /* * The next procedure is responsible for establishing information about * where the main checkpoint image should be recovered from, and where * and fasl files should come from. */ char *find_image_directory(int argc, char *argv[]) { char image[LONGEST_LEGAL_FILENAME]; char pgmname[LONGEST_LEGAL_FILENAME]; char *w; /* * Here I assume Unix, or something sufficiently like it, and * if the current program is called xxx, then I want an environment * variable called xxx.img to tell me where to find the image file * and the fasl directory. */ #ifdef PUBLIC strcpy(pgmname, "/usr/local/lib/reduce"); /* fixed name */ w = my_getenv("reduceimg"); if (w != NULL) strcpy(image, w); else strcpy(image, pgmname); #else if (argc > 0 && argv[0] != NULL) { int i; w = argv[0]; i = strlen(w); while (i > 0 && w[i-1] != '/') i--; sprintf(pgmname, "%s.img", &w[i]); /* final component of argv[0] */ strncpy(program_name, &w[i], 63); program_name[63] = 0; } else strcpy(pgmname, "csl.img"); /* even argv[0] is not available! */ w = my_getenv(pgmname); #endif if (w != NULL) strcpy(image, w); else strcpy(image, pgmname); /* * I copy from local vectors into malloc'd space to hand my * answer back. */ w = (char *)(*malloc_hook)(1+strlen(image)); /* * The error exit here seem unsatisfactory... */ if (w == NULL) { fprintf(stderr, "\n+++ Panic - run out of space\n"); exit(EXIT_FAILURE); } strcpy(w, image); return w; } /* * The following function controls memory allocation policy */ int32 ok_to_grab_memory(int32 current) { #ifdef COMMON return current; #else return 3*current + 2; #endif } #include "fileops.c" #include "scandir.c" /* **************** THIS TICKER STUFF IS NOT WORKING CORRECTLY ******* */ #ifndef SOFTWARE_TICKS #include <sys/time.h> struct itimerval value, ovalue; #endif static CSLbool ticker_active = NO; void add_ticker(void) { void wimp_tick(int); /*putc('+', stderr); */ if (ticker_active) return; #ifdef SOFTWARE_TICKS if (countdown<0) countdown = SOFTWARE_TICKS; /* Reset if expired */ #else value.it_interval.tv_sec = 1; value.it_interval.tv_usec = 0; value.it_value.tv_sec = 1; value.it_value.tv_usec = 0; setitimer(ITIMER_VIRTUAL, &value, NULL); /* Set up a 1 sec interrupt */ signal(SIGVTALRM, wimp_tick); #endif ticker_active = YES; } void remove_ticker(void) { /*putc('-', stderr); */ if (!ticker_active) return; #ifndef SOFTWARE_TICKS value.it_interval.tv_sec = 0; value.it_interval.tv_usec = 0; value.it_value.tv_sec = 0; value.it_value.tv_usec = 0; setitimer(ITIMER_VIRTUAL, &value, NULL); /* Remove all interrupt */ signal(SIGVTALRM, SIG_IGN); /* Ignore the clock ticks */ #endif ticker_active = NO; } #ifndef SOFTWARE_TICKS void wimp_tick(int sig) { /* putc('.', stderr);*/ if (!ticker_active) return; signal(SIGVTALRM, wimp_tick); if (tick_pending) return; else if (already_in_gc) tick_on_gc_exit = YES; else { Lisp_Object nil = C_nil; tick_pending = YES; saveheaplimit = heaplimit; heaplimit = fringe; savevheaplimit = vheaplimit; vheaplimit = vfringe; savecodelimit = codelimit; codelimit = codefringe; savestacklimit = stacklimit; stacklimit = stackbase; } return; } #endif /* ************************************************************ */ /* ********** StdWin Interface ******************************** */ /* ************************************************************ */ /* ************************************************************ */ #include "stdwin.h" #include "tools.h" #include "editwin.h" #include "text.h" /* Rather a cheat as I need to look * low down in here */ static WINDOW *CSL_window; static EDITWIN *CSL_ew; static EDITWIN *help_ew; int max_nlines = 250; #ifndef HELP_DATA #define HELP_DATA "help.data" #endif #ifndef HELP_INDEX #define HELP_INDEX "help.index" #endif static MENU *adminmenu; static MENU *editmenu; static MENU *loadmenu; static MENU *libmenu; static MENU *switchmenu; static MENU *helpmenu; /* static MENU *fontmenu; */ /* static MENU *sizemenu; */ #define ADMIN_MENU (1) #define MMFile 0 #define MMSaveas 1 #define MMHelp 2 /* main window menu items */ #define MMHelpSel 3 #define MMHelpAsk 4 #define MMInt 5 #define MMAbort 6 #define MMPause 7 #define MMDummy 8 #define MMTime 9 #define MMSpace 10 #define MMOTime 11 #define EDIT_MENU (2) #define MMCut 0 #define MMCopy 1 #define MMPaste 2 #define MMClear 3 #define MMSelAll 4 #define HELP_LEN (36) #define HELP_MENU (3) static struct hlp { char name[HELP_LEN]; long offset; int length; } *hlp; int help_length; int helpstamp; #define LOAD_MENU (4) static char *loads[] = { "arnum", "assist", "boolean", "changevr", "compact", "complex", "decompos", "defint", "dfpart", "elem", "excalc", "gentran", "groebner", "gnuplot", "laplace", "linalg", "normform", "numeric", "odesolve", "residue", "rlfi", "rsolve", "scope", "sets", "specfn", "taylor", "tps", "tri", "trigsimp", "zeilberg", (char*)NULL}; #define LIB_MENU (5) static char *libraries[] = { "algint", "applysym", "avector", "cali", "camal", "crack", "cvit", "desir", "dummy", "fide", "fps", "ideals", "ineq", "invbase", "lie", "modsr", "ncpoly", "orthovec", "physop", "pmrules", "randpoly", "reacteqn", "spde", "symmetry", "wu", "xcolor", "xideal", "ztrans", (char*)NULL}; #define SWITCH_MENU (6) static struct sw { char *name; int state; } switches[] = { {"algint", NO}, {"adjprec", NO}, {"allbranch", NO}, {"allfac", YES}, {"arbvars", NO}, {"asterisk", YES}, {"backtrace", NO}, {"balanced_mod", NO},{"bfspace", NO}, {"combineexpt", NO}, {"combinelogs", NO}, {"comp", NO}, {"complex", NO}, {"compxroots", NO}, {"cramer", NO}, {"cref", NO}, {"defn", NO}, {"demo", NO}, {"dfprint", NO}, {"div", NO}, {"echo", NO}, {"errcont", NO}, {"evallhseqp", NO}, {"exp", YES}, {"expandexpt", YES}, {"expandlogs", NO}, {"ezgcd", NO}, {"factor", NO}, {"fastfor", NO}, {"force", NO}, {"fort", NO}, {"fortupper", NO}, {"fullprec", NO},{"fullprecision", NO}, {"fullroots", NO}, {"gcd", NO}, {"heugcd", NO}, {"horner", NO}, {"ifactor", NO}, {"int", NO}, {"intstr", NO}, {"lcm", YES}, {"lessspace", NO}, {"limitedfactors", NO}, {"list", NO}, {"listargs", NO}, {"lower", YES}, {"mcd", YES}, {"modular", NO}, {"msg", YES}, {"multiplicities", NO}, {"nat", YES}, {"nero", NO}, {"noarg", YES}, {"noconvert", NO}, {"nonlnr", NO}, {"nosplit", YES}, {"numval", YES}, {"output", YES}, {"period", YES}, {"pgwd", NO}, {"plap", NO}, {"precise", YES}, {"pret", NO}, {"pri", YES}, {"pwrds", YES}, {"quotenewnam", YES},{"raise", NO}, {"rat", NO}, {"ratarg", NO}, {"rational", NO}, {"rationalize", NO}, {"ratpri", YES}, {"reduced", NO}, {"revpri", NO}, {"rlisp88", NO}, {"rootmsg", NO}, {"roundall", YES}, {"roundbf", NO}, {"rounded", NO}, {"savestructr", NO}, {"solvesingular", NO}, {"time", NO}, {"trallfac", NO}, {"trfac", NO}, {"trint", NO}, {"trroot", NO}, {(char*)NULL, 0}}; static void menusetup(void) { MENU *mp; int i; adminmenu= mp= wmenucreate(ADMIN_MENU, "Admin"); wmenuadditem(mp, "Input file...", 'F'); wmenuadditem(mp, "Saveas...", -1); wmenuadditem(mp, "Help Window", 'H'); wmenuadditem(mp, "Help Selection", 'S'); wmenuadditem(mp, "Help Topic...", -1); wmenuadditem(mp, "Interrupt", 'I'); wmenuadditem(mp, "Quit", 'Q'); wmenuadditem(mp, "Pause", 'P'); wmenuadditem(mp, "---------", -1); wmenuadditem(mp, "0.00", -1); wmenuadditem(mp, "[GC 0]", -1); wmenuadditem(mp, "", -1); wmenuadditem(mp, "", -1); wmenuenable(mp, MMDummy, NO); wmenuenable(mp, MMTime, NO); wmenuenable(mp, MMSpace, NO); wmenuenable(mp, MMOTime, NO); editmenu= mp= wmenucreate(EDIT_MENU, "Edit"); wmenuadditem(mp, "Cut", 'X'); wmenuadditem(mp, "Copy", 'C'); wmenuadditem(mp, "Paste", 'V'); wmenuadditem(mp, "Clear", 'B'); wmenuadditem(mp, "Select All", 'A'); helpmenu= mp= wmenucreate(HELP_MENU, "Help"); { FILE* hlpindx = fopen(HELP_INDEX, "r"); if (hlpindx != NULL) { fscanf(hlpindx, "%d\n", &helpstamp); fscanf(hlpindx, "%d", &help_length); hlp = (struct hlp*) calloc(1+help_length, sizeof(struct hlp)); if (hlp == NULL) { help_length = 0; goto loader; /* Insufficient memory */ } for (i=0; i<help_length; i++) { int ch, p=0; fscanf(hlpindx, "%d %d ", &(hlp[i].offset), &(hlp[i].length)); while (p<HELP_LEN-1) { ch = getc(hlpindx); if (ch == '\n') break; hlp[i].name[p++] = ch; /* Was toupper here */ } while (ch != '\n') ch = getc(hlpindx); hlp[i].name[p] = '\0'; wmenuadditem(mp, hlp[i].name, -1); } fclose(hlpindx); } else { help_length = 0; strcpy(hlp[0].name, "No help"); hlp[0].offset = -1; hlp[0].length = 0; } } loader: loadmenu= mp= wmenucreate(LOAD_MENU, "Load"); for (i=0; loads[i]!= NULL; i++) wmenuadditem(mp, loads[i], -1); libmenu= mp= wmenucreate(LIB_MENU, "Library"); for (i=0; libraries[i]!= NULL; i++) wmenuadditem(mp, libraries[i], -1); switchmenu= mp= wmenucreate(SWITCH_MENU, "Switch"); for (i=0; switches[i].name!= NULL; i++) { wmenuadditem(mp, switches[i].name, -1); wmenucheck(mp, i, switches[i].state); } } static fixmenus(void) { CSLbool focus; focus= (CSL_ew->tp->foclen != 0); wmenuenable(editmenu, MMCut, focus); wmenuenable(editmenu, MMCopy, focus); wmenuenable(editmenu, MMClear, focus); wmenuenable(adminmenu, MMHelpSel, focus); /* wmenuenable(editmenu, MMPaste, YES); */ if (help_ew != NULL) { focus= (help_ew->tp->foclen != 0); if (focus) { wmenuenable(editmenu, MMCut, focus); wmenuenable(editmenu, MMCopy, focus); wmenuenable(editmenu, MMClear, focus); wmenuenable(adminmenu, MMHelpSel, focus); } } } #define TTYBUF_SIZE 256 static char tty_buff[TTYBUF_SIZE]; static int tty_index = 0; static CSLbool tty_ready = NO; static int tty_nnl = 0; static int tty_offset; #define STDOUT_BUFSIZE 1024 #define LONGEST_PRINTF 120 static char stdout_buffer[STDOUT_BUFSIZE]; static char *stdout_p; static int stdout_n; void start_up_window_manager(int use_wimp) { static char* def_args[]= {"X-Reduce 3.6", (char*)NULL}; int argc= 1; char **argv= def_args; int CSL_width, CSL_height; signal(SIGVTALRM, SIG_IGN); /* Ensure it is off */ wargs(&argc, &argv); /* Fiddle the argument decode for now */ winit(); wsetfont("6x13"); /* For now */ menusetup(); wsetdefwinsize(82*wcharwidth('0'), 25*wlineheight()); CSL_ew = ewcreate(NULL); CSL_window = CSL_ew->win; wsettitle(CSL_window, "Reduce 3.6"); fixmenus(); /* wmenudetach(CSL_window, helpmenu); */ wmenuenable(editmenu, MMTime, NO); /* These are not selectable */ wmenuenable(editmenu, MMOTime, NO); /* These are not selectable */ wmenuenable(editmenu, MMSpace, NO); wmenudetach(CSL_window, loadmenu); /* These are only valid when reading */ wmenudetach(CSL_window, libmenu); wmenudetach(CSL_window, switchmenu); /* wmessage("Welcome to X-Reduce\n\n"); */ wflush(); stdout_n = 0; stdout_p = stdout_buffer; #ifndef SOFTWARE_TICKS value.it_interval.tv_sec = 1; value.it_interval.tv_usec = 0; value.it_value.tv_sec = 1; /* ?? 10 seconds */ value.it_value.tv_usec = 0; signal(SIGVTALRM, wimp_tick); setitimer(ITIMER_VIRTUAL, &value, NULL); /* Set up a 1 sec interrupt */ #endif help_ew = NULL; /* Help window */ } static char *help_buff; CSLbool helpwindow(int index) { FILE* help = fopen(HELP_DATA, "r"); int ch; int width, height; int size = hlp[index].length; if (help == NULL) return; /* fprintf(stderr, "Help on index %d offset=%d size=%d\n", index, hlp[index].offset, hlp[index].length); */ fscanf(help, "%d\n", &ch); if (ch != helpstamp) return; /* Check help data in in line with index */ fseek(help, hlp[index].offset, SEEK_SET); if (help_ew) { (*free_hool)(help_buff); tesetfocus(help_ew->tp, 0, tegetlen(help_ew->tp)); ewreplace(help_ew, ""); } else { help_ew = ewcreate(NULL); wsettitle(help_ew->win, "Help for Reduce 3.6"); } help_buff = (*malloc_hook)(size+1); if (help_buff == NULL) { dprintf("Insufficient memory"); wfleep(); return FALSE; } /* fprintf(stderr, "reading %d bytes to buffer\n", size); */ fread(help_buff, size, 1, help); /* fprintf(stderr, "help starts as %.100s\n", help_buff); */ help_buff[size] = '\0'; wmenudetach(help_ew->win, loadmenu); wmenudetach(help_ew->win, libmenu); wmenudetach(help_ew->win, switchmenu); /* wmenudetach(help_ew->win, adminmenu); */ ewreplace(help_ew, help_buff); tesetfocus(help_ew->tp, 0, 0); fclose(help); return TRUE; } void help_buffer(char *buf, int len) { int i; for (i=0; i<help_length; i++) { /* fprintf(stderr, "Check against %s\n", hlp[i].name); */ if (strncmp(hlp[i].name, buf, len) == 0) { helpwindow(i); break; } } if (i == help_length) wfleep(); } void help_selection(EDITWIN *ew) { int i; char *text; TEXTEDIT *tp = ew->tp; if (tp->foclen == 0) { wfleep(); return; } text= tegettext(tp); help_buffer(text+tp->foc, tp->foclen); } extern int pause_set = 0; void event_loop(void) { for (;;) { /* Loop while there are events */ EVENT e; EDITWIN *ew; CSLbool closed; /* putc('%', stderr); */ wgetevent(&e); /* printf("Event: type=%d win=%p data=%d\n", e.type, e.window, e.u.command); */ ew = ewfind(e.window); if (ew == CSL_ew) { switch (e.type) { case WE_CHAR: switch(e.u.character) { case 'A'-'@': /* ^A == beginning of line */ { TEXTEDIT* tp = CSL_ew->tp; tesetfocus(tp, zsubgap(tp->start[tewhichline(tp, zaddgap(tp->foc), tp->focprev)]), -1); break; } case 'B'-'@': /* ^B back a character */ tearrow(CSL_ew->tp, WC_LEFT); break; case 127: /* Delete character */ case 'D'-'@': /* ^D delete at cursor */ { TEXTEDIT* tp = CSL_ew->tp; tearrow(tp, WC_RIGHT); { int f1 = tp->foc; int i; int ss = tp->start[tp->nlines-tty_nnl]; int ee = ss + tty_offset; if (ss <= f1 && f1 < ee) { if (tty_offset>0) tty_offset--; } e.type = WE_COMMAND; e.u.command = WC_BACKSPACE; ewevent(ew,&e, NULL); break; } } case 'E'-'@': /* ^E end of line */ { TEXTEDIT* tp = CSL_ew->tp; int line = tewhichline(tp, zaddgap(tp->foc), tp->focprev); int xxx = zsubgap(tetextround(tp, line, tp->right)); tesetfocus(tp, xxx, -1); break; } case 'F'-'@': /* ^F forward a character */ tearrow(CSL_ew->tp, WC_RIGHT); break; case 'K'-'@': /* ^K kill to end of line */ { /* This does not take notice of offset */ TEXTEDIT* tp = CSL_ew->tp; int f1; int i; int ss; int ee; tesetfocus(tp, tp->foc, zsubgap(tetextround(tp, tewhichline(tp, zaddgap(tp->foc), tp->focprev), tp->right))); f1 = tp->foc; ss = tp->start[tp->nlines-tty_nnl]; ee = ss + tty_offset; for (i=0; i<tp->foclen; i++) if (ss <= f1+i && f1+i < ee) { if (tty_offset>0) tty_offset--; } ewreplace(ew, ""); break; } case 'N'-'@': /* ^N next line */ tearrow(CSL_ew->tp, WC_DOWN); break; case 'P'-'@': /* ^P previous line */ tearrow(CSL_ew->tp, WC_UP); break; case 'Z'-'@': /* ^Z move to end of buffer */ { TEXTEDIT* tp = CSL_ew->tp; tesetfocus(tp, tp->buflen - tp->gaplen, -1); break; } default: ewevent(ew, &e, &closed); if (tty_ready == YES && !pause_set) return; } break; case WE_COMMAND: switch (e.u.command) { case WC_CANCEL: interrupt_pending = YES; break; case WC_CLOSE: pause_for_user(); exit(1); case WC_RETURN: { TEXTEDIT* tp = CSL_ew->tp; int f1 = zaddgap(tp->foc); int ee = tp->start[tp->nlines-tty_nnl] + tty_offset; /* printf("f1=%d ee=%d offset=%d\n", f1, ee, tty_offset); */ if (f1 >= ee) { tty_nnl++; if (f1 == tp->buflen) { ewevent(ew, &e, &closed); tty_ready = YES; if (!pause_set) return; } } } break; case WC_DEL: case WC_BACKSPACE: /* Need to check to see if we are deleting * in the offset area */ { TEXTEDIT* tp = CSL_ew->tp; int f1 = tp->foc; int i; int ss = tp->start[tp->nlines-tty_nnl]; int ee = ss + tty_offset; if (tp->foclen == 0) { if (ss < f1 && f1 <= ee && tty_offset>0) tty_offset--; } else { for (i=0; i<tp->foclen; i++) { if (ss <= f1+i && f1+i < ee && tty_offset>0) tty_offset--; } } } break; case WC_LEFT: case WC_RIGHT: default: break; } ewevent(ew, &e, &closed); break; case WE_MENU: switch (e.u.m.id) { case ADMIN_MENU: switch (e.u.m.item) { case MMFile: { short wd; TEXTEDIT *tp = CSL_ew->tp; char name[42]; if (waskstr("Input file name", name, 40)) { tesetfocus(tp, tp->buflen - tp->gaplen, -1); ewreplace(CSL_ew, "in \""); ewreplace(CSL_ew, name); ewreplace(CSL_ew, "\""); /*tetoend(tp); */ } break; } case MMSaveas: ewsaveas(CSL_ew); break; case MMHelp: helpwindow(0); break; case MMHelpSel: help_selection(ew); break; case MMHelpAsk: { char buf[40]; int len; if (waskstr("Help on topic", buf, 40)) { len = strlen(buf); help_buffer(buf, len); } } break; case MMAbort: pause_for_user(); exit(1); case MMInt: interrupt_pending = YES; return; case MMPause: pause_set = !pause_set; wmenucheck(adminmenu, MMPause, pause_set); if (pause_set) wsettitle(CSL_window, "<Paused> Reduce 3.6"); else wsettitle(CSL_window, "Reduce 3.6"); break; } break; case EDIT_MENU: switch (e.u.m.item) { case MMCopy: ewcopy(ew); break; case MMPaste: { char* text = wgetclip(); char* tt = text; int valid = YES; if (text == NULL) wfleep(); else { TEXTEDIT *tp = CSL_ew->tp; tesetfocus(tp, tp->buflen - tp->gaplen, -1); while (*tt != '\0') if (*tt++=='\n') valid = NO; if (valid) ewreplace(ew, text); else wmessage("Cannot Paste text including new line"); } } break; case MMCut: ewcopy(ew); case MMClear: /* Need to check to see if we are deleting * in the offset area */ { TEXTEDIT* tp = CSL_ew->tp; int f1 = tp->foc; int i; int ss = tp->start[tp->nlines-tty_nnl]; int ee = ss + tty_offset; for (i=0; i<tp->foclen; i++) if (ss <= f1+i && f1+i < ee) { if (tty_offset>0) tty_offset--; } } ewreplace(ew, ""); break; case MMSelAll: tesetfocus(ew->tp, 0, tegetlen(ew->tp)); break; } break; case LOAD_MENU: { char *load = "load_package "; char *tt = loads[e.u.m.item]; TEXTEDIT *tp = CSL_ew->tp; tesetfocus(tp, tp->buflen - tp->gaplen, -1); tp->aim= UNDEF; tp->focprev= FALSE; ewreplace(CSL_ew, load); ewreplace(CSL_ew, tt); tty_ready = YES; ewreplace(CSL_ew, ";\n"); tty_nnl++; wmenuenable(loadmenu, e.u.m.item, NO); return; } case LIB_MENU: { char *load = "load_package "; char *tt = libraries[e.u.m.item]; TEXTEDIT *tp = CSL_ew->tp; tesetfocus(tp, tp->buflen - tp->gaplen, -1); tp->aim= UNDEF; tp->focprev= FALSE; ewreplace(CSL_ew, load); ewreplace(CSL_ew, tt); tty_ready = YES; ewreplace(CSL_ew, ";\n"); tty_nnl++; wmenuenable(loadmenu, e.u.m.item, NO); return; } case SWITCH_MENU: { char *load = (switches[e.u.m.item].state ? "off " : "on "); char *tt = switches[e.u.m.item].name; TEXTEDIT *tp = CSL_ew->tp; tesetfocus(tp, tp->buflen - tp->gaplen, -1); ewreplace(CSL_ew, load); ewreplace(CSL_ew, tt); tty_ready = YES; ewreplace(CSL_ew, ";\n"); tty_nnl++; switches[e.u.m.item].state = ~ switches[e.u.m.item].state; wmenucheck(switchmenu, e.u.m.item, switches[e.u.m.item].state); return; } case HELP_MENU: helpwindow(e.u.m.item); break; } break; case WE_CLOSE: pause_for_user(); exit(1); default: ewevent(ew, &e, &closed); break; } } else if (ew == help_ew) { switch (e.type) { case WE_MOUSE_UP: /* Extend to a word on single click */ if (!ew->tp->mdown) break; ew->tp->mdown= FALSE; if (e.u.where.clicks > 1) { teclicknew(ew->tp, e.u.where.h, e.u.where.v, FALSE, TRUE); help_selection(ew); } break; case WE_CHAR: switch(e.u.character) { case 'A'-'@': /* ^A == beginning of line */ { TEXTEDIT* tp = help_ew->tp; tesetfocus(tp, zsubgap(tp->start[tewhichline(tp, zaddgap(tp->foc), tp->focprev)]), -1); break; } case 'B'-'@': /* ^B back a character */ tearrow(help_ew->tp, WC_LEFT); break; case 'E'-'@': /* ^E end of line */ { TEXTEDIT* tp = help_ew->tp; int line = tewhichline(tp, zaddgap(tp->foc), tp->focprev); int xxx = zsubgap(tetextround(tp, line, tp->right)); tesetfocus(tp, xxx, -1); break; } case 'F'-'@': /* ^F forward a character */ tearrow(help_ew->tp, WC_RIGHT); break; case 'K'-'@': /* ^K is Page up */ { int i; int j; wgetdefwinsize(&i, &j); j = j/wlineheight() -1; for (i=0; i<j; i++) tearrow(help_ew->tp, WC_UP); break; } case 'N'-'@': /* ^N next line */ tearrow(help_ew->tp, WC_DOWN); break; case 'P'-'@': /* ^P previous line */ tearrow(help_ew->tp, WC_UP); break; case 'Z'-'@': /* ^Z move to end of buffer */ { TEXTEDIT* tp = help_ew->tp; tesetfocus(tp, tp->buflen - tp->gaplen, -1); break; } case 'V'-'@': /* ^V page down */ case ' ': case 'L'-'@': /* ^L is Page down */ { int i; int j; wgetdefwinsize(&i, &j); j = j/wlineheight() -1; for (i=0; i<j; i++) tearrow(help_ew->tp, WC_DOWN); break; } case 'i': case 'I': { char buf[40]; int len; if (waskstr("Help on topic", buf, 40)) { len = strlen(buf); help_buffer(buf, len); } break; } case 'n': case 'N': { extern char *strstr(const char*, const char*); char *p = strstr((const char*)help_buff, (const char*)"Next: "); int i = 0; if (p == NULL) { wfleep(); break; } p += 6; while (p[i]!= ',') i++; help_buffer(p,i); break; } case 'p': case 'P': { extern char *strstr(const char*, const char*); char *p = strstr((const char*)help_buff, "Prev: "); int i = 0; if (p == NULL) { wfleep(); break; } p += 6; while (p[i]!= ',') i++; help_buffer(p,i); break; } case 'q': case 'Q': help_ew->saved = TRUE; /* Fake it */ (*free_hool)(help_buff); ewclose(help_ew); help_ew = 0; break; case 'u': case 'U': { extern char *strstr(const char*, const char*); char *p = strstr((const char*)help_buff, "Up: "); int i = 0; if (p == NULL) { wfleep(); break; } p += 4; while (p[i]!= '\n') i++; help_buffer(p,i); break; } } break; case WE_MENU: switch (e.u.m.id) { case ADMIN_MENU: switch (e.u.m.item) { case MMSaveas: ewsaveas(help_ew); break; case MMHelp: if (help_length) helpwindow(0); break; case MMHelpSel: help_selection(ew); break; case MMHelpAsk: { char buf[40]; int len; if (waskstr("Help on topic", buf, 40)) { len = strlen(buf); help_buffer(buf, len); } break; } case MMAbort: help_ew->saved = TRUE; /* Fake it */ (*free_hool)(help_buff); ewclose(help_ew); help_ew = 0; break; } break; case EDIT_MENU: switch (e.u.m.item) { case MMCopy: ewcopy(ew); break; case MMSelAll: tesetfocus(ew->tp, 0, tegetlen(ew->tp)); break; } break; case HELP_MENU: helpwindow(e.u.m.item); break; } break; case WE_COMMAND: switch (e.u.command) { case WC_CANCEL: interrupt_pending=YES; break; case WC_RETURN: help_selection(ew); break; case WC_DEL: case WC_BACKSPACE: helpwindow(0); break; default: ewevent(ew, &e, &closed); break; } if (e.u.command != WC_CLOSE) { break; } case WE_CLOSE: help_ew->saved = TRUE; /* Fake it */ (*free_hool)(help_buff); ewclose(help_ew); help_ew = 0; break; default: ewevent(ew, &e, &closed); if (closed) { help_ew->saved = TRUE; /* Fake it */ (*free_hool)(help_buff); ewclose(help_ew); help_ew = 0; } break; } } else if (ew != NULL) ewevent(ew, &e, &closed); else wfleep(); fixmenus(); } } void poll_for_attn(void) { EVENT e; EDITWIN *ew; /* putc('#', stderr); */ if (!pause_set) { if (!wpollevent(&e)) { /* putc('<', stderr); */ return; } } else wgetevent(&e); /* fprintf(stderr, "PollEvent: type=%d win=%p data=%d\n", e.type,e.window,e.u.command); */ for (;;) { /* Loop while there are events */ CSLbool closed; ew = ewfind(e.window); if (ew == CSL_ew) { switch (e.type) { case WE_CHAR: switch(e.u.character) { case 'A'-'@': /* ^A == beginning of line */ { TEXTEDIT* tp = CSL_ew->tp; tesetfocus(tp, zsubgap(tp->start[tewhichline(tp, zaddgap(tp->foc), tp->focprev)]), -1); break; } case 'B'-'@': /* ^B back a character */ tearrow(CSL_ew->tp, WC_LEFT); break; case 'D'-'@': /* ^D delete at cursor */ { TEXTEDIT* tp = CSL_ew->tp; tearrow(tp, WC_RIGHT); e.type = WE_COMMAND; e.u.command = WC_BACKSPACE; ewevent(ew,&e, NULL); break; } case 'E'-'@': /* ^E end of line */ { TEXTEDIT* tp = CSL_ew->tp; int line = tewhichline(tp, zaddgap(tp->foc), tp->focprev); int xxx = zsubgap(tetextround(tp, line, tp->right)); tesetfocus(tp, xxx, -1); break; } case 'F'-'@': /* ^F forward a character */ tearrow(CSL_ew->tp, WC_RIGHT); break; case 'K'-'@': /* ^K kill all type ahead */ tty_index = 0; break; case 'N'-'@': /* ^N next line */ tearrow(CSL_ew->tp, WC_DOWN); break; case 'P'-'@': /* ^P previous line */ tearrow(CSL_ew->tp, WC_UP); break; case 'Z'-'@': /* ^Z move to end of buffer */ { TEXTEDIT* tp = CSL_ew->tp; tesetfocus(tp, tp->buflen - tp->gaplen, -1); break; } case 'V'-'@': /* ^V page down */ case ' ': { int i; int j; wgetdefwinsize(&i, &j); j = j/wlineheight() -1; for (i=0; i<j; i++) tearrow(help_ew->tp, WC_DOWN); break; } default: if (tty_index > TTYBUF_SIZE-2) wfleep(); else tty_buff[tty_index++] = e.u.character; break; } break; case WE_COMMAND: switch (e.u.command) { case WC_CANCEL: interrupt_pending = YES; break; case WC_CLOSE: pause_for_user(); exit(1); case WC_RETURN: if (tty_index > TTYBUF_SIZE-2) wfleep(); else tty_buff[tty_index++] = '\n'; break; case WC_TAB: if (tty_index > TTYBUF_SIZE-2) wfleep(); else tty_buff[tty_index++] = '\t'; break; case WC_DEL: case WC_BACKSPACE: if (tty_index>0) tty_index--; break; } break; case WE_MENU: switch (e.u.m.id) { case ADMIN_MENU: switch (e.u.m.item) { case MMHelp: helpwindow(0); break; case MMHelpSel: help_selection(ew); break; case MMAbort: pause_for_user(); exit(1); case MMInt: interrupt_pending = YES; return; case MMPause: pause_set = !pause_set; wmenucheck(adminmenu, MMPause, pause_set); if (pause_set) wsettitle(CSL_window, "<Paused> Reduce 3.6"); else wsettitle(CSL_window, "Reduce 3.6"); break; } break; case EDIT_MENU: switch (e.u.m.item) { case MMCopy: ewcopy(ew); break; case MMPaste: break; case MMCut: ewcopy(ew); case MMClear: ewreplace(ew, ""); break; case MMSelAll: tesetfocus(ew->tp, 0, tegetlen(ew->tp)); break; } break; case HELP_MENU: helpwindow(e.u.m.item); break; } break; case WE_CLOSE: pause_for_user(); exit(1); default: ewevent(ew, &e, &closed); break; } } else if (ew == help_ew) { switch (e.type) { case WE_MOUSE_UP: /* Extend to a word on single click */ if (!ew->tp->mdown) break; ew->tp->mdown= FALSE; if (e.u.where.clicks > 1) { teclicknew(ew->tp, e.u.where.h, e.u.where.v, FALSE, TRUE); help_selection(ew); } break; case WE_CHAR: /* fprintf(stderr, "WE_CHAR %d(%c)\n", e.u.character,e.u.character); */ switch(e.u.character) { case 'A'-'@': /* ^A == beginning of line */ { TEXTEDIT* tp = help_ew->tp; tesetfocus(tp, zsubgap(tp->start[tewhichline(tp, zaddgap(tp->foc), tp->focprev)]), -1); break; } case 'B'-'@': /* ^B back a character */ tearrow(help_ew->tp, WC_LEFT); break; case 'E'-'@': /* ^E end of line */ { TEXTEDIT* tp = help_ew->tp; int line = tewhichline(tp, zaddgap(tp->foc), tp->focprev); int xxx = zsubgap(tetextround(tp, line, tp->right)); tesetfocus(tp, xxx, -1); break; } case 'F'-'@': /* ^F forward a character */ tearrow(help_ew->tp, WC_RIGHT); break; case 'N'-'@': /* ^N next line */ tearrow(help_ew->tp, WC_DOWN); break; case 'P'-'@': /* ^P previous line */ tearrow(help_ew->tp, WC_UP); break; case 'Z'-'@': /* ^Z move to end of buffer */ { TEXTEDIT* tp = help_ew->tp; tesetfocus(tp, tp->buflen - tp->gaplen, -1); break; } case 'L'-'@': /* ^L is PgDn */ case 'V'-'@': /* ^V page down */ case ' ': { int i; int j; wgetdefwinsize(&i, &j); j = j/wlineheight() -1; for (i=0; i<j; i++) tearrow(help_ew->tp, WC_DOWN); break; } case 'K'-'@': /* ^K is PgUp */ { int i; int j; wgetdefwinsize(&i, &j); j = j/wlineheight() -1; for (i=0; i<j; i++) tearrow(help_ew->tp, WC_UP); break; } } break; case WE_MENU: switch (e.u.m.id) { case ADMIN_MENU: switch (e.u.m.item) { case MMHelp: if (help_length) helpwindow(0); break; case MMHelpSel: help_selection(ew); break; } break; case EDIT_MENU: switch (e.u.m.item) { case MMCopy: ewcopy(ew); break; case MMSelAll: tesetfocus(ew->tp, 0, tegetlen(ew->tp)); break; } break; case HELP_MENU: helpwindow(e.u.m.item); break; } break; case WE_COMMAND: switch (e.u.command) { case WC_CANCEL: interrupt_pending = YES; break; case WC_RETURN: help_selection(ew); break; case WC_DEL: case WC_BACKSPACE: helpwindow(0); break; default: ewevent(ew, &e, &closed); break; } if (e.u.command != WC_CLOSE) { break; } case WE_CLOSE: help_ew->saved = TRUE; /* Fake it */ (*free_hool)(help_buff); ewclose(help_ew); help_ew = 0; break; default: ewevent(ew, &e, &closed); if (closed) { help_ew->saved = TRUE; /* Fake it */ (*free_hool)(help_buff); ewclose(help_ew); help_ew = 0; } break; } } else if (ew != NULL) ewevent(ew, &e, &closed); else wfleep(); fixmenus(); /* putc('#', stderr); */ if (!pause_set) { if (!wpollevent(&e)) { /* putc('<', stderr); */ return; } } else wgetevent(&e); /* fprintf(stderr, "PollEvent: type=%d win=%p data=%d\n", e.type,e.window,e.u.command); */ } } void flush_screen(void) { TEXTEDIT* tp = CSL_ew->tp; if (stdout_n != 0) { /* fprintf(stderr, stdout_buffer); */ ewreplace(CSL_ew, stdout_buffer); stdout_n = 0; stdout_p = stdout_buffer; } if (tp->nlines > max_nlines+5) { /* Allow a five line slop */ techangefocus(tp, 0, zsubgap(tp->start[tp->nlines-max_nlines])); tp->aim= UNDEF; tp->focprev= FALSE; /* ewreplace(CSL_ew, ""); */ tereplace(tp, ""); /* fprintf(stderr, "-> %d\n", tp->nlines); */ /* focus to end */ tesetfocus(tp, tp->buflen - tp->gaplen, -1); } wupdate(CSL_window); wflush(); } static clock_t prev_clock = 0; void accept_tick(void) { clock_t c0 = clock(); remove_ticker(); if (c0 > prev_clock + CLOCKS_PER_SEC) { /* * Time spent doing all of this is counted as "overhead" or "system time" * and not included in the times that I will report to my users... */ if (clock_stack == &consolidated_time[0]) { consolidated_time[0] += ((double)(clock_t)(c0 - base_time))/((double)CLOCKS_PER_SEC); base_time = clock(); } report_time((int)(100.0*consolidated_time[0]), (int)(100.0*gc_time)); } push_clock(); wupdate(CSL_window); poll_for_attn(); polltick_pending = NO; ensure_screen(); add_ticker(); pop_clock(); return; } static char time_string[32], space_string[32]; void report_time(int32 t, int32 gct) { sprintf(time_string, "%d.%.2d secs", t/100, t%100); wmenusetitem(adminmenu, MMTime, time_string); sprintf(time_string, "+ %d.%.2d secs", gct/100, gct%100); wmenusetitem(adminmenu, MMOTime, time_string); } void report_space(int gc_count, double percent) { sprintf(space_string, "[GC %d]:%.2f%%", gc_count, percent); wmenusetitem(adminmenu, MMSpace, space_string); } void pause_for_user(void) /* * This is called at the end of a run so that the user gets a chance to read * the final screen-full of output. It pops up a dialog box that will * wait for a button push. I take the view that if output is going to a * file then the delay is not needed, since the user can always check for * messages there. This has the effect that non-interactive build sequences * will often run without the pause - a good thing! Note however that this * mean that you MUST use the close box to exit from a wimp session. Just * "quit;" or "(stop 0)" will not do. */ { remove_ticker(); ensure_screen(); CSL_ew->saved = TRUE; /* Fake it */ if (spool_file != NULL) return; /* * Here I just loop handling events until the user hits the CLOSE box * on my window. */ wmessage("Leaving Reduce 3.6"); ewclose(CSL_ew); wdone(); } int wimpget(char *tty_buffer) /* * This is the main call from the body of CSL into the window manager * to obtain input from the user. It is expected to copy some input * characters into tty_buffer and return the number of characters * provided. In this implementation I read the text back from the * stdwin textedit buffer, looking rather too low. * Any type ahead is handled in here. */ { TEXTEDIT* tp = CSL_ew->tp; int i; int n; int lineno; tty_nnl = 1; /* Offset from nlines */ push_clock(); remove_ticker(); if (stdout_n != 0) flush_screen(); wmenuattach(CSL_window, loadmenu); wmenuattach(CSL_window, libmenu); wmenuattach(CSL_window, switchmenu); lineno = tp->nlines-1; /* Need to do this after the toend */ tty_offset = tp->foc - tp->start[lineno]; if (tty_offset<0) tty_offset += tp->gaplen; wmenuenable(adminmenu, MMPause, NO); if(tty_index>0) { int i = 0; for (; i<tty_index; i++) if (tty_buff[i] == '\n') tty_nnl++; tty_buff[tty_index] = '\0'; ewreplace(CSL_ew, tty_buff); tty_index = 0; } event_loop(); /* fprintf(stderr, "Event loop ended\n"); */ lineno = tp->nlines-tty_nnl; /* printf("Offset=%d Length=%d\n",tty_offset,tp->foc-tp->start[lineno]-tty_offset); */ /* for (i=0; i<tp->foc- tp->start[lineno]-tty_offset; i++) { */ /* printf("%c", *(tegettext(tp)+tp->start[lineno]+tty_offset+i)); */ /* } */ /* printf("\n"); */ memcpy(tty_buffer, tegettext(tp)+tp->start[lineno]+tty_offset, tp->foc- tp->start[lineno]-tty_offset); wmenudetach(CSL_window, loadmenu); wmenudetach(CSL_window, libmenu); wmenudetach(CSL_window, switchmenu); wmenuenable(adminmenu, MMPause, YES); add_ticker(); n = tp->foc- tp->start[lineno]-tty_offset; if (n<0) { n += tp->gaplen; fprintf(stderr, "N correction\n"); } tty_ready = NO; pop_clock(); return n; } int char_cnt = 0; void putc_stdout(int c) { *stdout_p++ = c; *stdout_p = 0; stdout_n++; char_cnt++; remove_ticker(); if (c == '\n' || stdout_n > STDOUT_BUFSIZE - LONGEST_PRINTF) { push_clock(); flush_screen(); if (char_cnt>200) { /* Where 200 is a random number */ poll_for_attn(); char_cnt = 0; } pop_clock(); } add_ticker(); } void vfprintf_stdout(char *fmt, va_list a) { int n; /* * I have given myself LONGEST_PRINTF locations in the array for * this vsprintf to fill in. If it overflows I am in big trouble! */ n = vsprintf(stdout_p, fmt, a); stdout_p += n; stdout_n += n; char_cnt += n; remove_ticker(); if (stdout_n > STDOUT_BUFSIZE - LONGEST_PRINTF) { push_clock(); flush_screen(); if (char_cnt>200) { poll_for_attn(); char_cnt = 0; } pop_clock(); } add_ticker(); } /* end of sysxwin.c */