The R Project SVN
R
(root)/trunk/src/gnuwin32/getline/getline.c – Rev 77458
Rev 74693 | Rev 77919 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed
#include <R_ext/Boolean.h>#include <R_ext/Error.h>/** Copyright (C) 1991, 1992, 1993 by Chris Thewalt (thewalt@ce.berkeley.edu)** Permission to use, copy, modify, and distribute this software* for any purpose and without fee is hereby granted, provided* that the above copyright notices appear in all copies and that both the* copyright notice and this permission notice appear in supporting* documentation. This software is provided "as is" without express or* implied warranty.** Thanks to the following people who have provided enhancements and fixes:* Ron Ueberschaer, Christoph Keller, Scott Schwartz, Steven List,* DaviD W. Sanderson, Goran Bostrom, Michael Gleason, Glenn Kasten,* Edin Hodzic, Eric J Bivona, Kai Uwe Rommel, Danny Quah, Ulrich Betzler*//* Copyright (C) 2018-2019 The R Core Team */#include "getline.h"static int gl_tab(); /* forward reference needed for gl_tab_hook */int (*gl_in_hook)() = 0;int (*gl_out_hook)() = 0;int (*gl_tab_hook)() = gl_tab;#include <rlocale.h>extern Rboolean mbcslocale;#define mbs_init(x) memset(x, 0, sizeof(mbstate_t))/* NB: this define must match the one in src/main/scan.c */#define CONSOLE_PROMPT_SIZE 256#include <string.h>#include <ctype.h>#include <setjmp.h>#include <stdlib.h>#include <stdio.h>#include <io.h>/******************** internal interface *********************************/static int BUF_SIZE; /* dimension of the buffer received*/static int gl_init_done = -1; /* terminal mode flag */static int gl_termw = 80; /* actual terminal width */static int gl_scroll = 27; /* width of EOL scrolling region */static int gl_width = 0; /* net size available for input */static int gl_extent = 0; /* how far to redraw, 0 means all */static int gl_overwrite = 0; /* overwrite mode */static int gl_pos, gl_cnt = 0; /* position and size of input */static char *gl_buf; /* input buffer */static char *gl_killbuf; /* killed text */static const char *gl_prompt; /* to save the prompt string */static int gl_search_mode = 0; /* search mode flag */static jmp_buf gl_jmp;static void gl_init(void); /* prepare to edit a line */static void gl_cleanup(void); /* to undo gl_init */static void gl_char_init(void); /* get ready for no echo input */static void gl_char_cleanup(void); /* undo gl_char_init */static size_t (*gl_strlen)() = (size_t(*)())strlen;/* returns printable prompt width */static void gl_addchar(int); /* install specified char */static void gl_del(int); /* del, either left (-1) or cur (0) */static void gl_error(const char *); /* write error msg and die */static void gl_fixup(const char *, int, int); /* fixup state variables and screen */static int gl_getc(void); /* read one char from terminal */static void gl_kill(int); /* delete to EOL */static void gl_newline(void); /* handle \n or \r */static void gl_putc(int); /* write one char to terminal */static void gl_puts(const char *); /* write a line to terminal */static void gl_redraw(void); /* issue \n and redraw all */static void gl_transpose(void); /* transpose two chars */static void gl_yank(void); /* yank killed text */static void gl_word(int); /* move a word */static void gl_killword(int);void gl_hist_init(int, int); /* initializes hist pointers */char *gl_hist_next(); /* return ptr to next item */char *gl_hist_prev(); /* return ptr to prev item */static char *hist_save(); /* makes copy of a string, without NL */static void search_addchar(int); /* increment search string */static void search_term(void); /* reset with current contents */static void search_back(int); /* look back for current string */static void search_forw(int); /* look forw for current string */static void gl_beep(void); /* try to play a system beep sound *//************************ nonportable part *********************************//*extern int write();extern void exit();*/#define WIN32_LEAN_AND_MEAN 1#include <windows.h>static HANDLE Win32OutputStream, Win32InputStream = NULL;static DWORD OldWin32Mode, AltIsDown;static voidgl_char_init() /* turn off input echo */{if (!Win32InputStream) {Win32InputStream = GetStdHandle(STD_INPUT_HANDLE);Win32OutputStream = GetStdHandle(STD_OUTPUT_HANDLE);}GetConsoleMode(Win32InputStream,&OldWin32Mode);SetConsoleMode(Win32InputStream, ENABLE_PROCESSED_INPUT); /* So ^C works */AltIsDown = 0;}static voidgl_char_cleanup(void) /* undo effects of gl_char_init */{SetConsoleMode(Win32InputStream,OldWin32Mode);AltIsDown = 0;}static intgl_getc(void)/* get a character without echoing it to screen */{int c;static char buf[9] = "";static int bufavail = 0;static int bufpos = 0;if (bufavail > 0) {bufavail--;return buf[bufpos++];}bufpos = 0;/* guido masarotto (3/12/98)* get Ansi char code from a Win32 console*/DWORD a;INPUT_RECORD r;DWORD st;WORD vk;CONSOLE_SCREEN_BUFFER_INFO csb;int bbb = 0, nAlt=0, n;c = 0;while (!c) {/*Following two lines seem to be needed under Win2kto reshow the cursor*/GetConsoleScreenBufferInfo(Win32OutputStream, &csb);SetConsoleCursorPosition(Win32OutputStream, csb.dwCursorPosition);ReadConsoleInputW(Win32InputStream, &r, 1, &a);if (!(r.EventType == KEY_EVENT)) break;st = r.Event.KeyEvent.dwControlKeyState;vk = r.Event.KeyEvent.wVirtualKeyCode;if (r.Event.KeyEvent.bKeyDown) {AltIsDown = (st & LEFT_ALT_PRESSED);if (vk == VK_MENU && AltIsDown) { /* VK_MENU isAlt or AltGr */nAlt = 0;bbb = 0;}else if (st & ENHANCED_KEY) {/* FIXME: remove this eventually as these keys are alreadyaccepted below without ENHANCED_KEY flag, but check itdoes not change any expected behavior wrt to other enhanced keys*/switch(vk) {case VK_LEFT: c=2 ;break;case VK_RIGHT: c=6;break;case VK_HOME: c='\001';break;case VK_END: c='\005';break;case VK_UP: c=16;break;case VK_DOWN: c=14;break;case VK_DELETE: c='\004';break;}}else if (AltIsDown) { /* Interpret Alt+xxx entries */switch (vk) {case VK_INSERT: n = 0; break;case VK_END: n = 1; break;case VK_DOWN: n = 2; break;case VK_NEXT: n = 3;break;case VK_LEFT: n = 4; break;case VK_CLEAR: n = 5; break;case VK_RIGHT: n = 6; break;case VK_HOME: n = 7; break;case VK_UP: n = 8; break;case VK_PRIOR: n = 9; break;default: n = -1;}if (n >= 0) bbb = 10 * bbb + n;nAlt += 1;if (nAlt==3) {c = (bbb < 256) && (bbb > 0) ? bbb : 0;bbb = 0;nAlt = 0;}}/* with conPTY on Windows 10, the ENHANCED_KEY state is not set */else if (vk == VK_LEFT)c = 2;else if (vk == VK_RIGHT)c = 6;else if (vk == VK_HOME)c = '\001';else if (vk == VK_END)c = '\005';else if (vk == VK_UP)c = 16;else if (vk == VK_DOWN)c = 14;else if (vk == VK_DELETE)c = '\004';else {/* Originally uChar.AsciiChar was used here and for MBCS charactersGetConsoleInput returned as many events as bytes in the character.As of Windows 8 this reportedly no longer works, GetConsoleInputwould only generate one event with the first byte in AsciiChar.The bug still exists in Windows 10, and thus we now callGetConsoleInputW to get uchar.UnicodeChar. Ideally (at least forWindows) all of getline code would be refactored to work with widecharacters, but for now we just convert the character back to bytesin current native locale to recover the old behavior of gl_getc. */wchar_t wc = r.Event.KeyEvent.uChar.UnicodeChar;mbstate_t mb_st;mbs_init(&mb_st);if (wc != L'\0') {size_t cres = wcrtomb(buf, wc, &mb_st);if (cres != (size_t)-1) {bufavail = (int) cres - 1;bufpos = 1;c = buf[0];}}}}else if (vk == VK_MENU && AltIsDown) {/* Alt key up event: could be AltGr, but let's hope usersonly press one of them at a time. */AltIsDown = 0;c = (bbb < 256) && (bbb > 0) ? bbb : 0;bbb = 0;nAlt = 0;}if ((c < -127) || (c > 255)) c = 0;if (c < 0) c = 256 + c;}return c;}static voidgl_putc(int c){int ch = c;write(1, &ch, 1);if (ch == '\n') {ch = '\r';write(1, &ch, 1); /* RAW mode needs '\r', does not hurt */}}/******************** fairly portable part *********************************/static voidgl_puts(const char *const buf){int len;if (buf) {len = strlen(buf);write(1, buf, len);}}void gl_error(const char *const buf){int len = strlen(buf);gl_cleanup();write(2, buf, len);longjmp(gl_jmp,1);}static voidgl_init(void)/* set up variables and terminal */{if (gl_init_done < 0) { /* -1 only on startup */gl_hist_init(512, 1);}if (isatty(0) == 0 || isatty(1) == 0)gl_error("\n*** Error: getline(): not interactive, use stdio.\n");if (!(gl_killbuf=calloc(BUF_SIZE,sizeof(char))))gl_error("\n*** Error: getline(): no enough memory.\n");gl_char_init();gl_init_done = 1;}static voidgl_cleanup(void)/* undo effects of gl_init, as necessary */{if (gl_init_done > 0)gl_char_cleanup();free(gl_killbuf);gl_init_done = 0;}voidgl_setwidth(int w){if (w > 20) {gl_termw = w;gl_scroll = w / 3;} else {gl_error("\n*** Error: minimum screen width is 21\n");}}intgetline(const char *prompt, char *buf, int buflen){int c, loc, tmp;int mb_len;mbstate_t mb_st;int i;wchar_t wc;BUF_SIZE = buflen;gl_buf = buf;gl_buf[0] = '\0';if (setjmp(gl_jmp)) {gl_newline();gl_cleanup();return 0;}gl_init();gl_pos = 0;gl_prompt = (prompt)? prompt : "";if (gl_in_hook)gl_in_hook(gl_buf);gl_fixup(gl_prompt, -2, BUF_SIZE);while ((c = gl_getc()) >= 0) {gl_extent = 0; /* reset to full extent */if (!iscntrl(c)) {if (gl_search_mode)search_addchar(c);elsegl_addchar(c);} else {if (gl_search_mode) {if (c == '\033' || c == '\016' || c == '\020') {search_term();c = 0; /* ignore the character */} else if (c == '\010' || c == '\177') {search_addchar(-1); /* unwind search string */c = 0;} else if (c != '\022' && c != '\023') {search_term(); /* terminate and handle char */}}switch (c) {case '\n': case '\r': /* newline */gl_newline();gl_cleanup();return 0;/*NOTREACHED*/break;case '\001': gl_fixup(gl_prompt, -1, 0); /* ^A */break;case '\002': /* ^B */if(mbcslocale) {mb_len = 0;mbs_init(&mb_st);for(i = 0; i < gl_pos ;) {mbrtowc(&wc, gl_buf+i, MB_CUR_MAX, &mb_st);mb_len = Ri18n_wcwidth(wc);i += (wc==0) ? 0 : mb_len;}gl_fixup(gl_prompt, -1, gl_pos - mb_len);} elsegl_fixup(gl_prompt, -1, gl_pos-1);break;case '\003': /* ^C */gl_fixup(gl_prompt, -1, gl_cnt);gl_puts("^C\n");gl_kill(0);gl_fixup(gl_prompt, -2, BUF_SIZE);break;case '\004': /* ^D */if (gl_cnt == 0) {gl_buf[0] = 0;gl_cleanup();gl_putc('\n');return 0;} else {gl_del(0);}break;case '\005': gl_fixup(gl_prompt, -1, gl_cnt); /* ^E */break;case '\006': /* ^F */if(mbcslocale) {if(gl_pos >= gl_cnt) break;mb_len = 0;mbs_init(&mb_st);for(i = 0; i<= gl_pos ;){mbrtowc(&wc, gl_buf+i, MB_CUR_MAX, &mb_st);mb_len = Ri18n_wcwidth(wc);i += (wc==0) ? 0 : mb_len;}gl_fixup(gl_prompt, -1, gl_pos + mb_len);}elsegl_fixup(gl_prompt, -1, gl_pos+1);break;case '\010': case '\177': gl_del(-1); /* ^H and DEL */break;case '\t': /* TAB */if (gl_tab_hook) {tmp = gl_pos;loc = gl_tab_hook(gl_buf, gl_strlen(gl_prompt), &tmp);if (loc != -1 || tmp != gl_pos)gl_fixup(gl_prompt, loc, tmp);}break;case '\013': gl_kill(gl_pos); /* ^K */break;case '\014': gl_redraw(); /* ^L */break;case '\016': /* ^N */strncpy(gl_buf, gl_hist_next(), BUF_SIZE-2);gl_buf[BUF_SIZE-2] = '\0';if (gl_in_hook)gl_in_hook(gl_buf);gl_fixup(gl_prompt, 0, BUF_SIZE);break;case '\017': gl_overwrite = !gl_overwrite; /* ^O */break;case '\020': /* ^P */strncpy(gl_buf, gl_hist_prev(),BUF_SIZE-2);gl_buf[BUF_SIZE-2] = '\0';if (gl_in_hook)gl_in_hook(gl_buf);gl_fixup(gl_prompt, 0, BUF_SIZE);break;case '\022': search_back(1); /* ^R */break;case '\023': search_forw(1); /* ^S */break;case '\024': gl_transpose(); /* ^T */break;case '\025': gl_kill(0); /* ^U */break;case '\027': gl_killword(-1); /* ^W */break;case '\031': gl_yank(); /* ^Y */break;case '\032': /* ^Z */gl_newline();gl_cleanup();return 1;/*NOTREACHED*/break;case '\033': /* ansi arrow keys */c = gl_getc();if (c == '[') {switch(c = gl_getc()) {case 'A': /* up */strncpy(gl_buf, gl_hist_prev(), BUF_SIZE-2);gl_buf[BUF_SIZE-2] = '\0';if (gl_in_hook)gl_in_hook(gl_buf);gl_fixup(gl_prompt, 0, BUF_SIZE);break;case 'B': /* down */strncpy(gl_buf, gl_hist_next(), BUF_SIZE-2);gl_buf[BUF_SIZE-2] = '\0';if (gl_in_hook)gl_in_hook(gl_buf);gl_fixup(gl_prompt, 0, BUF_SIZE);break;case 'C': /* right */if(mbcslocale) {mb_len = 0;mbs_init(&mb_st);for(i = 0; i <= gl_pos ;) {mbrtowc(&wc, gl_buf+i, MB_CUR_MAX, &mb_st);mb_len = Ri18n_wcwidth(wc);i += (wc==0) ? 0 : mb_len;}gl_fixup(gl_prompt, -1, gl_pos + mb_len);} elsegl_fixup(gl_prompt, -1, gl_pos+1);break;case 'D': /* left */if(mbcslocale) {mb_len = 0;mbs_init(&mb_st);for(i = 0; i <= gl_pos ;) {mbrtowc(&wc, gl_buf+i, MB_CUR_MAX, &mb_st);mb_len = Ri18n_wcwidth(wc);i += (wc==0) ? 0 :mb_len;}gl_fixup(gl_prompt, -1, gl_pos - mb_len);} elsegl_fixup(gl_prompt, -1, gl_pos-1);break;default: gl_putc('\007'); /* who knows */break;}} else if (c == 'f' || c == 'F') {gl_word(1);} else if (c == 'b' || c == 'B') {gl_word(-1);} elsegl_putc('\007');break;default: /* check for a terminal signal */if (c > 0)gl_putc('\007');break;}}}gl_newline();gl_cleanup();return 0;}static voidgl_addchar(int c)/* adds the character c to the input buffer at current location */{int i;if (gl_cnt >= BUF_SIZE - 2) {gl_putc('\a');return;}if(mbcslocale) {mbstate_t mb_st;wchar_t wc;char s[9]; /* only 3 needed */int res;int clen ;s[0] = c;clen = 1;res = 0;/* This is a DBCS locale, so input is 1 or 2 bytes.This loop should not be necessary.*/if((unsigned int) c >= (unsigned int) 0x80) {while(clen <= MB_CUR_MAX) {mbs_init(&mb_st);res = mbrtowc(&wc, s, clen, &mb_st);if(res >= 0) break;if(res == -1)gl_error("invalid multibyte character in mbcs_get_next");/* so res == -2 */c = gl_getc();if(c == EOF)gl_error("EOF whilst reading MBCS char");s[clen++] = c;} /* we've tried enough, so must be complete or invalid by now */}if( res >= 0 ) {if (!(gl_overwrite == 0 || gl_pos == gl_cnt))gl_del(0);for (i = gl_cnt; i >= gl_pos; i--)gl_buf[i+clen] = gl_buf[i];for (i = 0; i < clen; i++)gl_buf[gl_pos + i] = s[i];gl_fixup(gl_prompt, gl_pos, gl_pos+clen);}} elseif (gl_overwrite == 0 || gl_pos == gl_cnt) {for (i = gl_cnt; i >= gl_pos; i--)gl_buf[i+1] = gl_buf[i];gl_buf[gl_pos] = (char) c;gl_fixup(gl_prompt, gl_pos, gl_pos+1);} else {gl_buf[gl_pos] = (char) c;gl_extent = 1;gl_fixup(gl_prompt, gl_pos, gl_pos+1);}}static voidgl_yank(void)/* adds the kill buffer to the input buffer at current location */{int i, len;len = strlen(gl_killbuf);if (len > 0) {if (gl_overwrite == 0) {if (gl_cnt + len >= BUF_SIZE - 1)gl_error("\n*** Error: getline(): input buffer overflow\n");for (i=gl_cnt; i >= gl_pos; i--)gl_buf[i+len] = gl_buf[i];for (i=0; i < len; i++)gl_buf[gl_pos+i] = gl_killbuf[i];gl_fixup(gl_prompt, gl_pos, gl_pos+len);} else {if (gl_pos + len > gl_cnt) {if (gl_pos + len >= BUF_SIZE - 1)gl_error("\n*** Error: getline(): input buffer overflow\n");gl_buf[gl_pos + len] = 0;}for (i=0; i < len; i++)gl_buf[gl_pos+i] = gl_killbuf[i];gl_extent = len;gl_fixup(gl_prompt, gl_pos, gl_pos+len);}} elsegl_beep();}static voidgl_transpose(void)/* switch character under cursor and to left of cursor */{int c;if (gl_pos > 0 && gl_cnt > gl_pos) {if(mbcslocale) {int l_len = 0;int r_len = 0;int i = 0;int j = 0;mbstate_t mb_st;mbs_init(&mb_st);for (i = 0; i < gl_pos;) {l_len = mbrlen(gl_buf+i, MB_CUR_MAX, &mb_st);i += l_len;}mbs_init(&mb_st);r_len = mbrlen(gl_buf+gl_pos, MB_CUR_MAX, &mb_st);for (i = 0; i < r_len; i++) {for(j = 0; j < l_len; j++) {c = gl_buf[gl_pos+i-j];gl_buf[gl_pos+i-j] = gl_buf[gl_pos+i-j-1];gl_buf[gl_pos+i-j-1] = (char)c;}}gl_extent = l_len + r_len;gl_fixup(gl_prompt, gl_pos - l_len, gl_pos + (r_len - l_len));} else {c = gl_buf[gl_pos-1];gl_buf[gl_pos-1] = gl_buf[gl_pos];gl_buf[gl_pos] = (char) c;gl_extent = 2;gl_fixup(gl_prompt, gl_pos-1, gl_pos);}} elsegl_beep();}static voidgl_newline(void)/** Cleans up entire line before returning to caller. A \n is appended.* If line longer than screen, we redraw starting at beginning*/{int change = gl_cnt;int len = gl_cnt;int loc = gl_width - 5; /* shifts line back to start position */if (gl_cnt >= BUF_SIZE - 1) {gl_error("\n*** Error: getline(): input buffer overflow\n");}if (gl_out_hook) {change = gl_out_hook(gl_buf);len = strlen(gl_buf);}if (loc > len)loc = len;gl_fixup(gl_prompt, change, loc); /* must do this before appending \n */gl_buf[len] = '\n';gl_buf[len+1] = '\0';gl_putc('\n');}static voidgl_del(int loc)/** Delete a character. The loc variable can be:* -1 : delete character to left of cursor* 0 : delete character under cursor*/{int i;if(mbcslocale) {int mb_len;mbstate_t mb_st;wchar_t wc;mb_len=0;mbs_init(&mb_st);if ((loc == -1 && gl_pos > 0) || (loc == 0 && gl_pos < gl_cnt)) {for(i = 0; i<= gl_pos + loc;) {mbrtowc(&wc,gl_buf+i, MB_CUR_MAX, &mb_st);mb_len = Ri18n_wcwidth(wc);i += (wc==0) ? 0 : mb_len;}for (i = gl_pos+(loc*mb_len); i <= gl_cnt - mb_len; i++)gl_buf[i] = gl_buf[i + mb_len];gl_fixup(gl_prompt,gl_pos+(loc * mb_len) , gl_pos+(loc * mb_len));} elsegl_beep();} elseif ((loc == -1 && gl_pos > 0) || (loc == 0 && gl_pos < gl_cnt)) {for (i = gl_pos+loc; i < gl_cnt; i++)gl_buf[i] = gl_buf[i+1];gl_fixup(gl_prompt, gl_pos+loc, gl_pos+loc);} elsegl_beep();}static voidgl_kill(int pos)/* delete from pos to the end of line */{if (pos < gl_cnt) {strcpy(gl_killbuf, gl_buf + pos);gl_buf[pos] = '\0';gl_fixup(gl_prompt, pos, pos);} elsegl_beep();}static voidgl_killword(int direction){int pos = gl_pos;int startpos = gl_pos;int tmp;int i;if (direction > 0) { /* forward */while (!isspace(gl_buf[pos]) && pos < gl_cnt)pos++;while (isspace(gl_buf[pos]) && pos < gl_cnt)pos++;} else { /* backward */if (pos > 0)pos--;while (isspace(gl_buf[pos]) && pos > 0)pos--;while (!isspace(gl_buf[pos]) && pos > 0)pos--;if (pos < gl_cnt && isspace(gl_buf[pos])) /* move onto word */pos++;}if (pos < startpos) {tmp = pos;pos = startpos;startpos = tmp;}memcpy(gl_killbuf, gl_buf + startpos, (size_t) (pos - startpos));gl_killbuf[pos - startpos] = '\0';if (isspace(gl_killbuf[pos - startpos - 1]))gl_killbuf[pos - startpos - 1] = '\0';gl_fixup(gl_prompt, -1, startpos);for (i=0, tmp=pos - startpos; i<tmp; i++)gl_del(0);} /* gl_killword */static voidgl_word(int direction)/* move forward or backword one word */{int pos = gl_pos;if (direction > 0) { /* forward */while (!isspace(gl_buf[pos]) && pos < gl_cnt)pos++;while (isspace(gl_buf[pos]) && pos < gl_cnt)pos++;} else { /* backword */if (pos > 0)pos--;while (isspace(gl_buf[pos]) && pos > 0)pos--;while (!isspace(gl_buf[pos]) && pos > 0)pos--;if (pos < gl_cnt && isspace(gl_buf[pos])) /* move onto word */pos++;}gl_fixup(gl_prompt, -1, pos);}static voidgl_redraw(void)/* emit a newline, reset and redraw prompt and current input line */{if (gl_init_done > 0) {gl_putc('\n');gl_fixup(gl_prompt, -2, gl_pos);}}static voidgl_fixup(const char *prompt, int change, int cursor)/** This function is used both for redrawing when input changes or for* moving within the input line. The parameters are:* prompt: compared to last_prompt[] for changes;* change : the index of the start of changes in the input buffer,* with -1 indicating no changes, -2 indicating we're on* a new line, redraw everything.* cursor : the desired location of the cursor after the call.* A value of BUF_SIZE can be used to indicate the cursor should* move just past the end of the input line.*/{static int gl_shift; /* index of first on screen character */static int off_right; /* true if more text right of screen */static int off_left; /* true if more text left of screen */static char last_prompt[CONSOLE_PROMPT_SIZE] = "";int left = 0, right = -1; /* bounds for redraw */int pad; /* how much to erase at end of line */int backup; /* how far to backup before fixing */int new_shift; /* value of shift based on cursor */int extra; /* adjusts when shift (scroll) happens */int i;int new_right = -1; /* alternate right bound, using gl_extent */int l1, l2, ll;if (change == -2) { /* reset */while (gl_pos--) gl_putc('\b');gl_pos = gl_cnt = gl_shift = off_right = off_left = 0;gl_puts(prompt);strncpy(last_prompt, prompt, CONSOLE_PROMPT_SIZE-1);change = 0;gl_width = gl_termw - gl_strlen(prompt);} else if (strcmp(prompt, last_prompt) != 0) {l1 = gl_strlen(last_prompt);l2 = gl_strlen(prompt);ll = gl_pos + l1;gl_cnt = gl_cnt + l1 - l2;strncpy(last_prompt, prompt, CONSOLE_PROMPT_SIZE-1);while (ll--) gl_putc('\b');gl_puts(prompt);gl_pos = gl_shift;gl_width = gl_termw - l2;change = 0;}pad = (off_right)? gl_width - 1 : gl_cnt - gl_shift; /* old length */backup = gl_pos - gl_shift;if (change >= 0) {gl_cnt = strlen(gl_buf);if (change > gl_cnt)change = gl_cnt;}if (cursor > gl_cnt) {if (cursor != BUF_SIZE) /* BUF_SIZE means end of line */gl_putc('\007');cursor = gl_cnt;}if (cursor < 0) {gl_putc('\007');cursor = 0;}if (off_right || (off_left && cursor < gl_shift + gl_width - gl_scroll / 2))extra = 2; /* shift the scrolling boundary */elseextra = 0;new_shift = cursor + extra + gl_scroll - gl_width;if (new_shift > 0) {new_shift /= gl_scroll;new_shift *= gl_scroll;} elsenew_shift = 0;if (new_shift != gl_shift) { /* scroll occurs */gl_shift = new_shift;off_left = (gl_shift)? 1 : 0;off_right = (gl_cnt > gl_shift + gl_width - 1)? 1 : 0;left = gl_shift;new_right = right = (off_right)? gl_shift + gl_width - 2 : gl_cnt;} else if (change >= 0) { /* no scroll, but text changed */if (change < gl_shift + off_left) {left = gl_shift;} else {left = change;backup = gl_pos - change;}off_right = (gl_cnt > gl_shift + gl_width - 1)? 1 : 0;right = (off_right)? gl_shift + gl_width - 2 : gl_cnt;new_right = (gl_extent && (right > left + gl_extent))?left + gl_extent : right;}pad -= (off_right)? gl_width - 1 : gl_cnt - gl_shift;pad = (pad < 0)? 0 : pad;if (left <= right) { /* clean up screen */for (i=0; i < backup; i++)gl_putc('\b');if (left == gl_shift && off_left) {gl_putc('$');left++;}for (i=left; i < new_right; i++)gl_putc(gl_buf[i]);gl_pos = new_right;if (off_right && new_right == right) {gl_putc('$');gl_pos++;} else {for (i=0; i < pad; i++) /* erase remains of prev line */gl_putc(' ');gl_pos += pad;}}i = gl_pos - cursor; /* move to final cursor location */if (i > 0) {while (i--)gl_putc('\b');} else {for (i=gl_pos; i < cursor; i++)gl_putc(gl_buf[i]);}gl_pos = cursor;}static intgl_tab(char *buf, int offset, int *loc)/* default tab handler, acts like tabstops every 8 cols */{int i, count, len;len = strlen(buf);count = 8 - (offset + *loc) % 8;for (i=len; i >= *loc; i--)buf[i+count] = buf[i];for (i=0; i < count; i++)buf[*loc+i] = ' ';i = *loc;*loc = i + count;return i;}/******************* strlen stuff **************************************/void gl_strwidth(func)size_t (*func)();{if (func != 0) {gl_strlen = func;}}/******************* History stuff **************************************/static int HIST_SIZE = 512;static int hist_pos = 0, hist_last = 0, gl_beep_on = 1;static char **hist_buf;voidgl_hist_init(int size, int beep){int i;HIST_SIZE = size;hist_buf = (char **) malloc(size * sizeof(char *));if(!hist_buf)gl_error("\n*** Error: gl_hist_init() failed on malloc\n");hist_buf[0] = "";for (i = 1; i < HIST_SIZE; i++)hist_buf[i] = (char *)0;hist_pos = hist_last = 0;gl_init_done = 0;gl_beep_on = beep;}voidgl_histadd(const char *buf){const char *p = buf;/* in case we call gl_histadd() before we call getline() */if (gl_init_done < 0) { /* -1 only on startup */gl_hist_init(512, 1);gl_init_done = 0;}while (*p == ' ' || *p == '\t' || *p == '\n')p++;if (*p) {hist_buf[hist_last] = hist_save(buf);hist_last = hist_last + 1;if(hist_last > HIST_SIZE - 1) {int i, size = HIST_SIZE + 512;hist_buf = (char **) realloc(hist_buf, size * sizeof(char *));if(!hist_buf)gl_error("\n*** Error: gl_histadd() failed on realloc\n");for(i = HIST_SIZE; i < size; i++)hist_buf[i] = (char *)0;HIST_SIZE = size;}hist_buf[hist_last] = "";}hist_pos = hist_last;}char *gl_hist_prev(void)/* loads previous hist entry into input buffer, sticks on first */{char *p = 0;int next = hist_pos - 1;if (hist_buf[hist_pos] != 0 && next >= 0) {hist_pos = next;p = hist_buf[hist_pos];}if (p == 0) {p = "";gl_beep();}return p;}char *gl_hist_next(void)/* loads next hist entry into input buffer, clears on last */{char *p = 0;if (hist_pos != hist_last) {hist_pos = hist_pos+1;p = hist_buf[hist_pos];}if (p == 0) {p = "";gl_beep();}return p;}static char *hist_save(const char *p)/* makes a copy of the string */{char *s = 0;int len = strlen(p);char *nl = strchr(p, '\n');if (nl) {if ((s = (char *) malloc(len)) != 0) {strncpy(s, p, len-1);s[len-1] = 0;}} else {if ((s = (char *) malloc(len+1)) != 0) {strcpy(s, p);}}if (s == 0)gl_error("\n*** Error: hist_save() failed on malloc\n");return s;}void gl_savehistory(const char *file, int size){FILE *fp;int i, init;if (!file || !hist_last) return;fp = fopen(file, "w");if (!fp) {char msg[256];sprintf(msg, "Unable to open %s", file);R_ShowMessage(msg);return;}init = hist_last - size;init = (init < 0) ? 0 : init;for (i = init; i < hist_last; i++)fprintf(fp, "%s\n", hist_buf[i]);fclose(fp);}void gl_loadhistory(const char *file){FILE *fp;int i;char buf[1000];if (!file) return;fp = fopen(file, "r");if (!fp) {return;}for(i = 0;; i++) {if(!fgets(buf, 1000, fp)) break;gl_histadd(buf);}fclose(fp);}/******************* Search stuff **************************************/static char search_prompt[101]; /* prompt includes search string */static char search_string[100];static int search_pos = 0; /* current location in search_string */static int search_forw_flg = 0; /* search direction flag */static int search_last = 0; /* last match found */static voidsearch_update(int c){if (c == 0) {search_pos = 0;search_string[0] = 0;search_prompt[0] = '?';search_prompt[1] = ' ';search_prompt[2] = 0;} else if (c > 0) {search_string[search_pos] = (char) c;search_string[search_pos+1] = (char) 0;search_prompt[search_pos] = (char) c;search_prompt[search_pos+1] = (char) '?';search_prompt[search_pos+2] = (char) ' ';search_prompt[search_pos+3] = (char) 0;search_pos++;} else {if (search_pos > 0) {search_pos--;search_string[search_pos] = (char) 0;search_prompt[search_pos] = (char) '?';search_prompt[search_pos+1] = (char) ' ';search_prompt[search_pos+2] = (char) 0;} else {gl_beep();hist_pos = hist_last;}}}static voidsearch_addchar(int c){char *loc;search_update(c);if (c < 0) {if (search_pos > 0) {hist_pos = search_last;} else {gl_buf[0] = 0;hist_pos = hist_last;}strncpy(gl_buf, hist_buf[hist_pos],BUF_SIZE-2);gl_buf[BUF_SIZE-2] = '\0' ;}if ((loc = strstr(gl_buf, search_string)) != 0) {gl_fixup(search_prompt, 0, loc - gl_buf);} else if (search_pos > 0) {if (search_forw_flg) {search_forw(0);} else {search_back(0);}} else {gl_fixup(search_prompt, 0, 0);}}static voidsearch_term(void){gl_search_mode = 0;if (gl_buf[0] == 0) /* not found, reset hist list */hist_pos = hist_last;if (gl_in_hook)gl_in_hook(gl_buf);gl_fixup(gl_prompt, 0, gl_pos);}static voidsearch_back(int new_search){int found = 0;char *p, *loc;search_forw_flg = 0;if (gl_search_mode == 0) {search_last = hist_pos = hist_last;search_update(0);gl_search_mode = 1;gl_buf[0] = 0;gl_fixup(search_prompt, 0, 0);} else if (search_pos > 0) {while (!found) {p = gl_hist_prev();if (*p == 0) { /* not found, done looking */gl_buf[0] = 0;gl_fixup(search_prompt, 0, 0);found = 1;} else if ((loc = strstr(p, search_string)) != 0) {strncpy(gl_buf, p, BUF_SIZE-2);gl_buf[BUF_SIZE-2] = '\0';gl_fixup(search_prompt, 0, loc - p);if (new_search)search_last = hist_pos;found = 1;}}} else {gl_beep();}}static voidsearch_forw(int new_search){int found = 0;char *p, *loc;search_forw_flg = 1;if (gl_search_mode == 0) {search_last = hist_pos = hist_last;search_update(0);gl_search_mode = 1;gl_buf[0] = 0;gl_fixup(search_prompt, 0, 0);} else if (search_pos > 0) {while (!found) {p = gl_hist_next();if (*p == 0) { /* not found, done looking */gl_buf[0] = 0;gl_fixup(search_prompt, 0, 0);found = 1;} else if ((loc = strstr(p, search_string)) != 0) {strncpy(gl_buf, p, BUF_SIZE-2);gl_buf[BUF_SIZE-2] = '\0';gl_fixup(search_prompt, 0, loc - p);if (new_search)search_last = hist_pos;found = 1;}}} else {gl_beep();}}static voidgl_beep(void){if(gl_beep_on) MessageBeep(MB_OK);} /* gl_beep */