aboutsummaryrefslogtreecommitdiff
path: root/src/hyper/dialog.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/hyper/dialog.pamphlet')
-rw-r--r--src/hyper/dialog.pamphlet1388
1 files changed, 0 insertions, 1388 deletions
diff --git a/src/hyper/dialog.pamphlet b/src/hyper/dialog.pamphlet
deleted file mode 100644
index 82f67bda..00000000
--- a/src/hyper/dialog.pamphlet
+++ /dev/null
@@ -1,1388 +0,0 @@
-\documentclass{article}
-\usepackage{axiom}
-\begin{document}
-\title{\$SPAD/src/dialog}
-\author{The Axiom Team}
-\maketitle
-\begin{abstract}
-\end{abstract}
-\eject
-\tableofcontents
-\eject
-\section{dialog.h}
-<<dialog.h>>=
-<<license>>
-#ifndef _DIALOG_H_
-#define _DIALOG_H_ 1
-
-#include "hyper.h"
-
-#endif
-@
-\section{dialog.c}
-<<dialog.c>>=
-/******************************************************************************
- *
- * dialog.c:
- *
- * Copyright The Numerical Algorithms Group Limited 1991, 1992, 1993.
- *
- ****************************************************************************/
-#define _DIALOG_C
-#include "axiom-c-macros.h"
-#include "useproto.h"
-#include "debug.h"
-
-#include "dialog.h"
-#include "keyin.h"
-#include "mem.h"
-#include "display.h"
-#include "group.h"
-
-#include <X11/keysym.h>
-
-#define min(x,y) ( (x<y)?(x):(y))
-
-#include "all_hyper_proto.H1"
-
-
-static void
-redraw_win()
-{
- XUnmapSubwindows(gXDisplay, gWindow->fMainWindow);
- XUnmapSubwindows(gXDisplay, gWindow->fScrollWindow);
- XFlush(gXDisplay);
- show_page(gWindow->page);
-}
-
-static char *
-mystrncpy(char *buff1, char *buff2, int n)
-{
- /*
- * copies the characters from buff1 to buff2 starting at position buff2 +
- * n and buff1 + n
- */
-
- int i;
-
- for (i = n - 1; i >= 0; i--)
- *(buff1 + i) = *(buff2 + i);
- return buff2;
-}
-
-static void
-inc_line_numbers(LineStruct *line)
-{
- for (; line != NULL; line = line->next)
- line->line_number++;
-}
-
-static void
-dec_line_numbers(LineStruct *line)
-{
- for (; line != NULL; line = line->next)
- line->line_number--;
- return;
-}
-
-static void
-decrease_line_numbers(LineStruct *line, int am)
-{
- for (; line != NULL; line = line->next)
- line->line_number -= am;
-}
-
-static void
-overwrite_buffer(char *buffer, InputItem *item)
-{
- LineStruct *newline;
- LineStruct *addline = item->curr_line;
- /*int bufflen = strlen(buffer);*/
- int nl = 0;
- int cursor_y;
- int size = item->size;
-
- /* add a single character */
-
- cursor_y = (addline->line_number - 1) * line_height;
- if (addline->buff_pntr == size) {
- clear_cursor(item);
- if (addline->len <= size) {
- nl = 1;
- addline->buffer[size] = '_';
- addline->buffer[size + 1] = 0;
- addline->len = size + 1;
- newline = (LineStruct *) alloc_inputline(size + 2);
- newline->line_number = addline->line_number + 1;
- inc_line_numbers(addline->next);
- newline->next = addline->next;
- newline->prev = addline;
- if (addline->next)
- addline->next->prev = newline;
- addline->next = newline;
- item->num_lines++;
- cursor_y += line_height;
- item->curr_line = addline = newline;
- }
- else {
- item->curr_line = addline = addline->next;
- }
- addline->len = 1;
- addline->buff_pntr = 1;
- addline->buffer[0] = buffer[0];
- }
- else {
- addline->buffer[addline->buff_pntr] = buffer[0];
- clear_cursor(item);
- if (++addline->buff_pntr > addline->len)
- addline->len++;
- }
-
- /* now set up the current line */
- if (item->curr_line->buff_pntr >= item->size &&
- item->curr_line->next != NULL && !item->curr_line->next->len) {
- /* I should actually be on the next line */
- item->curr_line->buffer[item->size] = '_';
- item->curr_line->len = item->size + 1;
- XDrawString(gXDisplay, item->win, gWindow->fInputGC, start_x,
- cursor_y + start_y,
- addline->buffer,
- addline->len);
- item->curr_line = item->curr_line->next;
- item->curr_line->buff_pntr = 0;
- item->curr_line->changed = 1;
- }
-
- if (!nl) {
- XDrawString(gXDisplay, item->win, gWindow->fInputGC, start_x,
- cursor_y + start_y,
- addline->buffer,
- addline->len);
- draw_cursor(item);
- }
- else
- redraw_win();
-}
-
-/*
- * This routine takes the current line and moves it num forward. The
- * only way I have to move any other lines forward is if this line has length
- * > size
- */
-
-static int
-move_sym_forward(LineStruct *line, int num, int size, InputItem *sym)
-{
- LineStruct *newline;
- int diff;
- int nl = 0;
-
- if (line->len > size) {
- nl = move_sym_forward(line->next, num, size, sym);
- strncpy(line->next->buffer,
- &line->buffer[sym->size - num], line->len);
- strncpy(&line->buffer[num],
- line->buffer, num);
- line->changed = 1;
- return nl;
- }
- else {
- if (line->len + num > size) {
- diff = line->len + num - size;
- newline = alloc_inputline(size);
- newline->len = diff;
- newline->line_number = line->line_number++;
- inc_line_numbers(line->next);
- sym->num_lines++;
- newline->next = line->next;
- newline->prev = line;
- if (line->next)
- line->next->prev = newline;
- line->next = newline;
- strncpy(newline->buffer, &line->buffer[size - diff], diff);
- strncpy(&line->buffer[num], line->buffer, num);
- line->buffer[size] = '_';
- line->buffer[size + 1] = 0;
- line->len = size + 1;
- return 1;
- }
- else {
- strncpy(&line->buffer[num], line->buffer, line->len);
- line->len += num;
- line->changed = 1;
- return 0;
- }
- }
-}
-
-static void
-clear_cursorline(InputItem *sym)
-{
- XCharStruct extents;
- int dir, asc, des;
- int cursor_y;
-
- XTextExtents(gInputFont, sym->curr_line->buffer,
- sym->curr_line->buff_pntr,
- &dir, &asc, &des, &extents);
- cursor_y = (sym->curr_line->line_number - 1) * line_height;
- sym->cursor_x = start_x + extents.width;
- XClearArea(gXDisplay, sym->win, sym->cursor_x, cursor_y,
- gWindow->width, line_height, False);
- XDrawString(gXDisplay, sym->win, gWindow->fInputGC, start_x, cursor_y + start_y,
- sym->curr_line->buffer,
- sym->curr_line->len);
-}
-
-static void
-insert_buffer(char *buffer, InputItem *sym)
-{
- /*int num = strlen(buffer);*/
- LineStruct *line = sym->curr_line;
- LineStruct *newline;
- int nl = 0;
- int size = sym->size;
-
- if (line->len < size) {
- /* they will all fit where I am so just copy them forward */
- line->len++;
- mystrncpy(&(line->buffer[line->buff_pntr + 1]),
- &(line->buffer[line->buff_pntr]),
- line->len - line->buff_pntr + 1);
- line->buffer[line->buff_pntr] = buffer[0];
- clear_cursorline(sym);
- line->buff_pntr++;
- draw_cursor(sym);
- return;
- }
-
- if (line->len > sym->size) {
- nl = move_sym_forward(line->next, 1, size, sym);
- if (line->buff_pntr > size) {
- line->changed = 1;
- line = line->next;
- line->buffer[0] = buffer[0];
- line->len++;
- line->buff_pntr = 1;
- line->changed = 1;
- }
- else {
- line->next->buffer[0] = line->buffer[size - 1];
- line->changed = 1;
- strncpy(&line->buffer[line->buff_pntr + 1],
- &line->buffer[line->buff_pntr], size - line->buff_pntr - 1);
- line->buffer[line->buff_pntr++] = buffer[0];
- line->changed = 1;
- if (line->buff_pntr >= size) {
- sym->curr_line = line->next;
- sym->curr_line->buff_pntr = 0;
- }
- }
- }
- else {
- nl = 1;
- newline = alloc_inputline(size);
- newline->line_number = line->line_number + 1;
- inc_line_numbers(line->next);
- sym->num_lines++;
- newline->next = line->next;
- newline->prev = line;
- if (line->next)
- line->next->prev = newline;
- line->next = newline;
-
- /*
- * was line->buff_pntr++;
- */
- if (line->buff_pntr >= size) {
- /* we are the leaders of the line */
- newline->buff_pntr = 1;
- newline->buffer[0] = buffer[0];
- newline->len = 1;
- sym->curr_line = newline;
- }
- else {
- /* we are not the leaders */
- newline->buffer[0] = line->buffer[size - 1];
- newline->len = 1;
- strncpy(&line->buffer[line->buff_pntr + 1],
- &line->buffer[line->buff_pntr], size - line->buff_pntr);
- if (line->buff_pntr < size - 1) {
- line->buffer[line->buff_pntr++] = buffer[0];
- }
- else {
- line->buffer[line->buff_pntr] = buffer[0];
- newline->buff_pntr = 0;
- sym->curr_line = newline;
- }
-
- }
- line->buffer[size] = '_';
- line->buffer[size + 1] = 0;
- line->len = size + 1;
- }
- if (nl)
- redraw_win();
- else
- update_inputsymbol(sym);
-
-}
-
-void
-add_buffer_to_sym(char *buffer,InputItem *sym)
-{
- if (gInInsertMode)
- insert_buffer(buffer, sym);
- else
- overwrite_buffer(buffer, sym);
-}
-
-void
-draw_inputsymbol(InputItem *sym)
-{
- int y_spot = start_y;
- LineStruct *cline;
- XCharStruct extents;
- int dir, asc, des;
-
-
-#if 0
- int cursor_y;
- cursor_y = (sym->curr_line->line_number - 1) * line_height;
-#endif
-
- XClearWindow(gXDisplay, sym->win);
-
- XTextExtents(gInputFont, sym->curr_line->buffer,
- sym->curr_line->buff_pntr,
- &dir, &asc, &des, &extents);
- sym->cursor_x = start_x + extents.width;
-
- /*
- * While the list of input strings is not NULL, I should just keep
- * drawing them
- */
- for (cline = sym->lines; cline != NULL;
- cline = cline->next, y_spot += line_height) {
- /* Now I should draw the initial string ** */
- cline->changed = 0;
- XDrawString(gXDisplay, sym->win, gWindow->fInputGC, start_x, y_spot,
- cline->buffer,
- cline->len);
-
- }
- if (gWindow->page->current_item == sym)
- draw_cursor(sym);
-}
-
-void
-update_inputsymbol(InputItem *sym)
-{
- int y_spot = start_y;
- LineStruct *cline;
- XCharStruct extents;
- int dir, asc, des;
- /*int cleared = 0;*/
- int clear_y;
- int clear_width;
- int clear_height;
-
-#if 0
- int cursor_y;
- cursor_y = (sym->curr_line->line_number - 1) * line_height;
-#endif
-
- clear_width = (sym->size + 1) * gInputFont->max_bounds.width + 10;
- clear_height = line_height;
- clear_y = 0;
-
-
- XTextExtents(gInputFont, sym->curr_line->buffer,
- sym->curr_line->buff_pntr,
- &dir, &asc, &des, &extents);
- sym->cursor_x = start_x + extents.width;
-
- /*
- * While the list of input strings is not NULL, I should just keep
- * drawing them
- */
- for (cline = sym->lines; cline != NULL;
- cline = cline->next, y_spot += line_height, clear_y += line_height)
- /* Now I should draw the initial string ** */
- if (cline->changed) {
- cline->changed = 0;
- XClearArea(gXDisplay, sym->win, 0, clear_y,
- clear_width, clear_height, False);
- XDrawString(gXDisplay, sym->win, gWindow->fInputGC, start_x, y_spot,
- cline->buffer,
- cline->len);
- }
- draw_cursor(sym);
-}
-
-
-static void
-draw_cursor(InputItem *sym)
-{
- int cursor_y;
- XCharStruct extents;
- int dir, asc, des;
-
-
- cursor_y = (sym->curr_line->line_number - 1) * line_height;
- XTextExtents(gInputFont, sym->curr_line->buffer,
- sym->curr_line->buff_pntr,
- &dir, &asc, &des, &extents);
- sym->cursor_x = start_x + extents.width;
- /* now draw the cursor */
- if (gInInsertMode) {
- XFillRectangle(gXDisplay, sym->win, gWindow->fInputGC,
- sym->cursor_x,
- out_cursor_y + cursor_y,
- out_cursor_width,
- out_cursor_height);
-
- /* Now draw the character currently under the cursor */
-
- XDrawString(gXDisplay, sym->win, gWindow->fCursorGC,
- sym->cursor_x, cursor_y + start_y,
- &sym->curr_line->buffer[sym->curr_line->buff_pntr],
- 1);
- }
- else
- XFillRectangle(gXDisplay, sym->win, gWindow->fInputGC,
- sym->cursor_x,
- in_cursor_y + cursor_y,
- in_cursor_width,
- in_cursor_height);
-}
-
-static void
-move_cursor_home(InputItem *sym)
-{
- LineStruct *trace = sym->curr_line;
-
- /* now move the cursor to the beginning of the current line */
- clear_cursor(sym);
- for (; trace && trace->prev && trace->prev->len > sym->size;)
- trace = trace->prev;
- sym->curr_line = trace;
- trace->buff_pntr = 0;
- draw_cursor(sym);
-}
-
-static void
-move_cursor_end(InputItem *sym)
-{
- LineStruct *trace = sym->curr_line;
-
- /* now move the cursor to the beginning of the current line */
- clear_cursor(sym);
- for (; trace && trace->next && trace->len > sym->size;)
- trace = trace->next;
- sym->curr_line = trace;
- trace->buff_pntr = trace->len;
- draw_cursor(sym);
-}
-
-static void
-move_cursor_forward(InputItem *sym)
-{
- if (sym->curr_line->buff_pntr == sym->curr_line->len &&
- !sym->curr_line->next) {
- BeepAtTheUser();
- return;
- }
-
-
- if (sym->curr_line->buff_pntr == sym->curr_line->len ||
- sym->curr_line->buff_pntr == sym->size - 1)
- {
-
- /* I have to move down to a new line */
-
- if (sym->curr_line->next == NULL) {
- /* now where to move */
- BeepAtTheUser();
- return;
- }
-
- /* move down line */
-
- clear_cursor(sym);
- sym->curr_line = sym->curr_line->next;
- sym->curr_line->buff_pntr = 0;
- }
- else {
- clear_cursor(sym);
- sym->curr_line->buff_pntr++;
- }
-
- draw_cursor(sym);
-}
-
-static void
-move_cursor_down(InputItem *sym)
-{
- int bp = sym->curr_line->buff_pntr;
- /*int size = sym->size;*/
- LineStruct *trace;
-
- /* get to the end of the current line */
-
- for (trace = sym->curr_line; trace->len > sym->size; trace = trace->next)
- ;
-
- if (!trace->next)
- BeepAtTheUser();
- else {
- clear_cursor(sym);
- sym->curr_line = trace->next;
- if (bp > sym->curr_line->len)
- sym->curr_line->buff_pntr = sym->curr_line->len;
- else
- sym->curr_line->buff_pntr = bp;
- draw_cursor(sym);
- }
-}
-
-static void
-move_cursor_up(InputItem *sym)
-{
- int bp = sym->curr_line->buff_pntr;
- /*int size = sym->size;*/
- LineStruct *trace;
-
- /* get to the end of the current line */
- for (trace = sym->curr_line;
- trace->prev && trace->prev->len > sym->size;
- trace = trace->prev)
- ;
-
- if (!trace->prev)
- BeepAtTheUser();
- else {
- clear_cursor(sym);
- sym->curr_line = trace->prev;
- if (bp > sym->curr_line->len)
- sym->curr_line->buff_pntr = sym->curr_line->len;
- else
- sym->curr_line->buff_pntr = bp;
- draw_cursor(sym);
- }
-}
-
-static void
-clear_cursor(InputItem *sym)
-{
- XCharStruct extents;
- int dir, asc, des;
- int cursor_y;
-
- XTextExtents(gInputFont, sym->curr_line->buffer,
- sym->curr_line->buff_pntr,
- &dir, &asc, &des, &extents);
- cursor_y = (sym->curr_line->line_number - 1) * line_height;
- sym->cursor_x = start_x + extents.width;
- XClearArea(gXDisplay, sym->win, sym->cursor_x, cursor_y,
- in_cursor_width, line_height, False);
-
- XDrawString(gXDisplay, sym->win, gWindow->fInputGC,
- start_x, cursor_y + start_y,
- sym->curr_line->buffer,
- sym->curr_line->len);
-}
-
-static void
-move_cursor_backward(InputItem *sym)
-{
- if (sym->curr_line->buff_pntr == 0) {
- if (sym->curr_line->prev == NULL) {
- /* now where to move */
- BeepAtTheUser();
- return;
- }
- else {
- clear_cursor(sym);
- /* move up to the previous line */
- sym->curr_line = sym->curr_line->prev;
- if (sym->curr_line->len > sym->size)
- sym->curr_line->buff_pntr = sym->size - 1;
- else
- sym->curr_line->buff_pntr = sym->curr_line->len;
- }
- }
- else { /* just slide back a char. on the current
- * line */
- clear_cursor(sym);
- sym->curr_line->buff_pntr--;
- }
- draw_cursor(sym);
-}
-
-static char
-move_rest_back(LineStruct *line, int size)
-{
- char c = '\000';
-
- if (line != NULL && line->len != 0)
- c = line->buffer[0];
- else
- return c;
-
- while (line->next != NULL && line->len > size) {
- strncpy(line->buffer, &(line->buffer[1]), size - 1);
- line->buffer[size - 1] = line->next->buffer[0];
- line->changed = 1;
- line = line->next;
- }
-
- /*
- * once I get here I should be one the last line, so I can just copy all
- * the characters back one and then return from whence I came ***
- */
- if (line->len > 0) {
- line->changed = 1;
- if (line->len > 1)
- strncpy(line->buffer, &(line->buffer[1]), line->len - 1);
- line->buffer[--line->len] = 0;
- if (line->len == 0) {
- /* I have to fix the previous line */
- line->prev->len = size;
- line->prev->buffer[size] = 0;
- }
- }
- return c;
-}
-
-static void
-delete_rest_of_line(InputItem *sym)
-{
- LineStruct *curr_line = sym->curr_line;
- LineStruct *line=NULL;
- LineStruct *trash;
- LineStruct *trace;
- int num_changed = 0, i;
-
- if (curr_line->len > sym->size) {
- for (line = curr_line->next, num_changed = 0;
- line != NULL && line->len > 0 && line->len > sym->size;
- line = line->next, num_changed++) {
- line->len = 0;
- line->buffer[0] = 0;
- line->changed = 1;
- }
- num_changed++;
- }
-
- if (num_changed == 0 && curr_line->buff_pntr == curr_line->len) {
- if (curr_line->len == 0 && curr_line->next) {
- curr_line->next->prev = curr_line->prev;
- if (curr_line->prev)
- curr_line->prev->next = curr_line->next;
- else
- sym->lines = curr_line->next;
- dec_line_numbers(curr_line->next);
- sym->num_lines--;
- sym->curr_line = curr_line->next;
- sym->curr_line->buff_pntr = 0;
- free(curr_line->buffer);
- free(curr_line);
- redraw_win();
- }
- else
- BeepAtTheUser();
- return;
- }
-
- curr_line->len = curr_line->buff_pntr;
-
- /* curr_line->buffer[curr_line->len] = NULL; */
-
- for (i = curr_line->len; i <= sym->size + 2; i++)
- curr_line->buffer[i] = 0;
-
- curr_line->changed = 1;
-
- if (num_changed) {
- /* I should get rid of all these lines */
- trace = curr_line->next;
- curr_line->next = line->next;
- if (line->next)
- line->next->prev = curr_line;
- for (; trace && trace != line->next;) {
- trash = trace;
- trace = trace->next;
- free(trash->buffer);
- free(trash);
- }
- decrease_line_numbers(curr_line->next, num_changed);
- sym->num_lines -= num_changed;
- redraw_win();
- }
- else
- update_inputsymbol(sym);
-}
-
-static void
-back_over_eoln(InputItem *sym)
-{
- /*
- * This routine is very similar to a tough enter except it starts
- * combining lines with sym->curr_line->pre
- */
-
- char buff[1024];
- LineStruct *trace;
- LineStruct *last = NULL;
- char *tr = buff;
- int bp;
- int size = sym->size;
-
- /* copy all the stuff into the buffer */
- for (trace = sym->curr_line;
- trace->len > sym->size; trace = trace->next)
- for (bp = 0; bp < size; bp++)
- *tr++ = trace->buffer[bp];
-
- /* copy the last line */
- for (bp = 0; bp < trace->len; bp++)
- *tr++ = trace->buffer[bp];
- trace->len = 0;
- *tr = 0;
-
- /* Now that I have the buffer, let's put it back where it belongs. */
- last = trace;
- for (trace = sym->curr_line; trace != last; trace = trace->next);
- trace = sym->curr_line = sym->curr_line->prev;
- trace->buff_pntr = trace->len;
- trace->changed = 1;
- for (bp = trace->len, tr = buff; bp < size && *tr; bp++)
- trace->buffer[bp] = *tr++;
-
- if (!*tr) {
- trace->len = bp;
- }
- else {
- trace->len = size + 1;
- trace->buffer[size] = '_';
- trace->buffer[size + 1] = 0;
- for (trace = trace->next; *tr;) {
- for (bp = 0; bp < size && *tr; bp++)
- trace->buffer[bp] = *tr++;
- if (*tr) {
- trace->len = size + 1;
- trace->changed = 1;
- trace->buffer[size + 1] = 0;
- trace->buffer[size] = '_';
- trace = trace->next;
- }
- else {
- trace->len = bp;
- trace->buffer[bp] = 0;
- }
- }
- }
- /* Now once I am here, let me see if I can bag a line */
- if (last->len == 0) {
- /* rid myself of this line */
- last->prev->next = last->next;
- if (last->next)
- last->next->prev = last->prev;
- dec_line_numbers(last->next);
- sym->num_lines--;
- free(last->buffer);
- free(last);
- redraw_win();
- }
- else
- update_inputsymbol(sym);
-
-}
-
-static int
-move_back_one_char(InputItem *sym)
-{
- char c = '\000', d = '\000';
- int dl = 0;
-
- /* This routine moves all the characters back one */
- LineStruct *line = sym->curr_line;
-
- if (line->len > sym->size)
- c = move_rest_back(line->next, sym->size);
-
- line->changed = 1;
-
- if (line->buff_pntr == 0) { /* I am at the front of the line */
- if (line->prev == 0) {
- BeepAtTheUser();
- return 0;
- }
- else if (line->prev->len <= sym->size) {
- back_over_eoln(sym);
- return 1;
- }
- else if (line->len > 0) {
- d = line->buffer[0];
- if (line->len <= sym->size) {
- strncpy(line->buffer, &(line->buffer[1]), line->len - 1);
- if (c == 0) {
- line->len--;
- line->buffer[line->len] = 0;
- }
- else
- line->buffer[line->len - 1] = c;
- }
- else {
- strncpy(line->buffer, &(line->buffer[1]), sym->size - 2);
- if (c == 0) {
- line->buffer[sym->size - 1] = 0;
- line->len--;
- }
- else {
- line->buffer[sym->size - 1] = c;
- }
- }
- }
- else {
- /* the line is just going to be thrown away */
- if (line->next)
- line->next->prev = line->prev;
- line->prev->next = line->next;
- dec_line_numbers(line->next);
- sym->num_lines--;
- free(line->buffer);
- free(line);
- dl = 1;
- }
- c = d;
- sym->curr_line = line = line->prev;
- line->changed = 1;
- line->buff_pntr = sym->size;
- }
-
-
- if (line->len <= sym->size) {
- strncpy(&line->buffer[line->buff_pntr - 1],
- &(line->buffer[line->buff_pntr]),
- line->len - line->buff_pntr);
- if (c == 0)
- line->buffer[--line->len] = 0;
- else
- line->buffer[line->len - 1] = c;
- }
- else {
- strncpy(&(line->buffer[line->buff_pntr - 1]),
- &(line->buffer[line->buff_pntr]),
- sym->size - line->buff_pntr);
- if (c == 0) {
- line->buffer[sym->size - 1] = 0;
- line->len = sym->size - 1;
- }
- else {
- if (line->next->len == 0) {
- line->buffer[sym->size] = 0;
- line->len = sym->size;
- }
- line->buffer[sym->size - 1] = c;
- }
- }
- line->buff_pntr--;
- if (dl)
- redraw_win();
- else
- update_inputsymbol(sym);
- return 1;
-}
-
-static void
-back_over_char(InputItem *sym)
-{
- if (move_back_one_char(sym))
- update_inputsymbol(sym);
-}
-
-static void
-delete_eoln(InputItem *sym)
-{
- /* much the same as back_over eoln except my perspective has changed */
- char buff[1024];
- LineStruct *trace;
- LineStruct *last = 0;
- char *tr = buff;
- int bp;
- int size = sym->size;
-
- /* copy all the stuff into the buffer */
- for (trace = sym->curr_line->next;
- trace->len > sym->size; trace = trace->next)
- for (bp = 0; bp < size; bp++)
- *tr++ = trace->buffer[bp];
-
- /* copy the last line */
- for (bp = 0; bp < trace->len; bp++)
- *tr++ = trace->buffer[bp];
- trace->len = 0;
- *tr = 0;
-
- /* Now that I have the buffer, let's put it back where it belongs. */
- last = trace;
- trace = sym->curr_line;
- trace->changed = 1;
- for (bp = trace->len, tr = buff; bp < size && *tr; bp++)
- trace->buffer[bp] = *tr++;
-
- if (!*tr)
- trace->len = bp;
- else {
- trace->len = size + 1;
- trace->buffer[size] = '_';
- trace->buffer[size + 1] = 0;
- for (trace = trace->next; *tr;) {
- for (bp = 0; bp < size && *tr; bp++)
- trace->buffer[bp] = *tr++;
- if (*tr) {
- trace->len = size + 1;
- trace->changed = 1;
- trace->buffer[size + 1] = 0;
- trace->buffer[size] = '_';
- trace = trace->next;
- }
- else {
- trace->len = bp;
- trace->buffer[bp] = 0;
- }
- }
- }
- /* Now once I am here, let me see if I can bag a line */
- if (last->len == 0) {
- /* rid myself of this line */
- last->prev->next = last->next;
- if (last->next)
- last->next->prev = last->prev;
- dec_line_numbers(last->next);
- sym->num_lines--;
- free(last->buffer);
- free(last);
- redraw_win();
- }
- else
- update_inputsymbol(sym);
-
-}
-
-static int
-delete_one_char(InputItem *sym)
-{
- char c = '\000';
-
- /* This routine moves all the characters back one */
- LineStruct *line = sym->curr_line;
-
- if (line->len > sym->size)
- c = move_rest_back(line->next, sym->size);
-
- if (c == 0 && line->len == line->buff_pntr) {
- if (line->next == 0) {
- BeepAtTheUser();
- return 0;
- }
- else {
- delete_eoln(sym);
- return 1;
- }
- }
-
- /*
- * let me just try to do the copy and put the stupid character c if it
- * exists at the end
- */
- if (line->len <= sym->size) {
- strncpy(&line->buffer[line->buff_pntr],
- &(line->buffer[line->buff_pntr + 1]),
- line->len - line->buff_pntr);
- if (c == 0)
- line->buffer[--line->len] = 0;
- else
- line->buffer[line->len - 1] = c;
- }
- else {
- strncpy(&(line->buffer[line->buff_pntr]),
- &(line->buffer[line->buff_pntr + 1]),
- sym->size - line->buff_pntr);
- if (c == 0) {
- line->buffer[sym->size - 1] = 0;
- line->len = sym->size - 1;
- }
- else {
- if (line->next->len == 0) {
- line->buffer[sym->size] = 0;
- line->len = sym->size;
- }
- line->buffer[sym->size - 1] = c;
- }
- }
- line->changed = 1;
- return 1;
-}
-
-static void
-delete_char(InputItem *sym)
-{
- if (delete_one_char(sym))
- update_inputsymbol(sym);
-}
-
-static void
-tough_enter(InputItem *sym)
-{
- char buff[1024];
-
- /*
- * This routine takes all the characters from the current cursor
- * on, and copies them into a temp buffer, from which they are recopied
- * back starting at the next line.
- */
-
- LineStruct *trace;
- LineStruct *last = 0;
- LineStruct *newline;
- char *tr = buff;
- int bp = sym->curr_line->buff_pntr;
- int size = sym->size;
-
- /* Copy the stuff from the current line */
- for (; bp < size; bp++)
- *tr++ = sym->curr_line->buffer[bp];
-
- /* now get the stuff from the rest of the lines */
- for (trace = sym->curr_line->next;
- trace->len > sym->size; trace = trace->next)
- for (bp = 0; bp < size; bp++)
- *tr++ = trace->buffer[bp];
-
- /* copy the last line */
- for (bp = 0; bp < trace->len; bp++)
- *tr++ = trace->buffer[bp];
- *tr = 0;
-
- /* Now that I have the buffer, let's put it back where it belongs. */
- last = trace;
- trace = sym->curr_line;
- trace->len = trace->buff_pntr;
- trace->buffer[trace->len] = 0;
- trace->changed = 1;
-
- tr = buff;
- for (trace = trace->next; trace != last; trace = trace->next) {
- for (bp = 0; bp < size; bp++)
- trace->buffer[bp] = *tr++;
- trace->len = size + 1;
- trace->buffer[size + 1] = 0;
- trace->buffer[size] = '_';
- trace->changed = 1;
- }
-
- /* Once I am here, I should be able to copy this last line */
- for (bp = 0; bp < size && *tr; bp++)
- trace->buffer[bp] = *tr++;
- trace->changed = 1;
-
- /* If I still have more to copy, then do so onto a new line */
- if (*tr) {
- trace->len = size + 1;
- trace->buffer[size + 1] = 0;
- trace->buffer[size] = '_';
- newline = alloc_inputline(size);
- sym->num_lines++;
- newline->line_number = last->line_number + 1;
- inc_line_numbers(newline->next);
- for (bp = 0; *tr; bp++)
- newline->buffer[bp] = *tr++;
- newline->len = bp;
- newline->next = last->next;
- newline->prev = last;
- last->next = newline;
- if (newline->next)
- newline->next->prev = newline;
- }
- else {
- trace->len = bp;
- trace->buffer[bp] = 0;
- }
- /* Last but not least change the curr_line */
- sym->curr_line = sym->curr_line->next;
- sym->curr_line->buff_pntr = 0;
-}
-
-static void
-enter_new_line(InputItem *sym)
-{
- LineStruct *newline;
- LineStruct *trace;
- LineStruct *prev;
- LineStruct *line = sym->curr_line;
- int bp = line->buff_pntr;
- int l = line->len;
- int size = sym->size;
-
- /*
- * At this point the user has hit a return. Let me just be naive, and
- * take everything from the current spot on, and put it on a new line
- */
-
- if (bp == 0) {
- if (line->prev->len > size) {
- /* just add a return to the end of the last line */
- prev = line->prev;
- prev->buffer[size] = 0;
- prev->len = size;
- prev->changed = 1;
- }
- else {
- newline = alloc_inputline(size);
- newline->next = sym->curr_line;
- newline->prev = sym->curr_line->prev;
- line->prev = newline;
- sym->num_lines++;
- if (newline->prev)
- newline->prev->next = newline;
- newline->len = newline->buff_pntr = 0;
- newline->line_number = line->line_number;
- if (sym->curr_line == sym->lines)
- sym->lines = newline;
- for (trace = newline->next; trace != 0; trace = trace->next)
- trace->line_number++;
- }
- }
- else if (bp == size &&
- line->len > size) {
- /* line->next; */
- newline = alloc_inputline(size);
- if (line->next)
- line->next->prev = newline;
- newline->prev = sym->curr_line;
- line->next = newline;
- newline->len = 0;
- newline->buff_pntr = 0;
- sym->num_lines++;
- sym->curr_line = newline;
- newline->line_number = newline->prev->line_number + 1;
- for (trace = newline->next; trace != 0; trace = trace->next)
- trace->line_number++;
- }
- else {
- if (line->len > size)
- tough_enter(sym);
- else {
- newline = alloc_inputline(size);
- strncpy(newline->buffer, &sym->curr_line->buffer[bp], l - bp);
- sym->curr_line->len = bp;
- sym->curr_line->buffer[bp] = '\0';
- newline->next = sym->curr_line->next;
- if (sym->curr_line->next)
- sym->curr_line->next->prev = newline;
- newline->prev = sym->curr_line;
- sym->curr_line->next = newline;
- newline->len = l - bp;
- newline->buff_pntr = 0;
- sym->num_lines++;
- sym->curr_line = newline;
- newline->line_number = newline->prev->line_number + 1;
- for (trace = newline->next; trace != 0; trace = trace->next)
- trace->line_number++;
- }
- }
- redraw_win();
-}
-
-void
-dialog(XEvent *event, KeySym keysym, char *buffer)
-{
- InputItem *item;
-
- item = gWindow->page->current_item;
- if (item == 0) {
- if (!((keysym >= XK_Shift_L) && (keysym <= XK_Hyper_R)))
- /** if something other than a modifier key was hit **/
- BeepAtTheUser();
- return;
- }
-
-
- /*
- * First check if the user had hit an enter key
- */
-
- if ((keysym == XK_Return) || (keysym == XK_KP_Enter))
- enter_new_line(item);
- /*
- * Else did the user actual type a character I can understand
- */
-
- else if (((keysym >= XK_KP_Space) && (keysym <= XK_KP_9))
- || ((keysym >= XK_space) && (keysym <= XK_asciitilde)))
- {
- /* only handle normal keys */
-
- if (event->xkey.state & ShiftModMask)
- BeepAtTheUser();
- else
- add_buffer_to_sym(buffer, item);
- }
-
- else if ((keysym >= XK_Shift_L) && (keysym <= XK_Hyper_R))
- ;
-
- /*
- * do nothing, a modifier was hit
- */
-
- else if ((keysym >= XK_F2) && (keysym <= XK_F35)) {
-
- /*
- * A function key was hit
- */
-
- if (strlen(buffer) == 0)
- BeepAtTheUser();
- else
- /* If I got characters then add it to the buffer */
-
- add_buffer_to_sym(buffer, item);
- }
- else
- switch (keysym) {
- case XK_Escape:
- if (event->xkey.state & ModifiersMask)
- BeepAtTheUser();
- else {
- move_cursor_home(item);
- delete_rest_of_line(item);
- }
- break;
- case XK_F1:
- if (event->xkey.state & ModifiersMask)
- BeepAtTheUser();
- else {
- gWindow->page->helppage = alloc_string(InputAreaHelpPage);
- helpForHyperDoc();
- }
- break;
- case XK_Up:
- if (event->xkey.state & ModifiersMask)
- BeepAtTheUser();
- else
- move_cursor_up(item);
- break;
- case XK_Down:
- if (event->xkey.state & ModifiersMask)
- BeepAtTheUser();
- else
- move_cursor_down(item);
- break;
- case XK_Delete:
- if (event->xkey.state & ModifiersMask)
- BeepAtTheUser();
- else
- delete_char(item);
- break;
- case XK_BackSpace:
- if (event->xkey.state & ModifiersMask)
- BeepAtTheUser();
- else
- back_over_char(item);
- break;
- case XK_Left:
- if (event->xkey.state & ModifiersMask)
- BeepAtTheUser();
- else
- move_cursor_backward(item);
- break;
- case XK_Right:
- if (event->xkey.state & ModifiersMask)
- BeepAtTheUser();
- else
- move_cursor_forward(item);
- break;
- case XK_Insert:
- if (event->xkey.state & ModifiersMask)
- BeepAtTheUser();
- else {
- gInInsertMode = ((gInInsertMode) ? (0) : (1));
- item->curr_line->changed = 1;
- update_inputsymbol(item);
- }
- break;
- case XK_Home:
- if (event->xkey.state & ModifiersMask)
- BeepAtTheUser();
- else
- move_cursor_home(item);
- break;
- case XK_End:
- if (event->xkey.state & ControlMask)
- /* delete from here to the end of the line */
-
- delete_rest_of_line(item);
- else if (event->xkey.state & ModifiersMask)
- BeepAtTheUser();
- else
- move_cursor_end(item);
- break;
- default:
- BeepAtTheUser();
- break;
- }
-}
-@
-\section{License}
-<<license>>=
-/*
-Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
-All rights reserved.
-
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-
- - Redistributions of source code must retain the above copyright
- notice, this list of conditions and the following disclaimer.
-
- - Redistributions in binary form must reproduce the above copyright
- notice, this list of conditions and the following disclaimer in
- the documentation and/or other materials provided with the
- distribution.
-
- - Neither the name of The Numerical ALgorithms Group Ltd. nor the
- names of its contributors may be used to endorse or promote products
- derived from this software without specific prior written permission.
-
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
-IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
-TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
-PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
-OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
-EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
-PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
-PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
-LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
-NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*/
-
-@
-<<*>>=
-<<license>>
-<<dialog.c>>
-@
-\eject
-\begin{thebibliography}{99}
-\bibitem{1} nothing
-\end{thebibliography}
-\end{document}
-
-
-
-
generated by cgit v1.2.3 (git 2.39.1) at 2024-11-14 03:00:55 +0000