Initial population.

1 files changed, 631 insertions, 0 deletions

diff --git a/src/hyper/parse-input.pamphlet b/src/hyper/parse-input.pamphlet
new file mode 100644
index 00000000..020ff97a
--- /dev/null
+++ b/src/hyper/parse-input.pamphlet
@@ -0,0 +1,631 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/parse-input}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{parse-input.c}
+<<parse-input.c>>=
+#include "axiom-c-macros.h"
+#define _PARSE_INPUT_C
+/***
+  Contains all the code needed to parse input items,
+  InputString
+  SimpleBox
+  RadioBox.
+  ****/
+
+#include "useproto.h"
+#include "debug.h"
+
+#include "parse.h"
+#include "parse-aux.h"
+#include "lex.h"
+#include "mem.h"
+
+#include "all_hyper_proto.H1"
+
+/* create an unmapped input window for getting strings * */
+extern int make_input_file;
+
+HyperLink *
+make_input_window(InputItem * item)
+{
+  HyperLink *link;
+  XSetWindowAttributes at;
+
+  if (!make_input_file) {
+    link = (HyperLink *) halloc(sizeof(HyperLink), "HyperLink");
+    if (link == NULL) {
+      fprintf(stderr, "Ran out of memory allocating a hyper link!\n");
+      exit(-1);
+    }
+    at.cursor = gActiveCursor;
+    at.background_pixel = gInputBackgroundColor;
+    at.border_pixel = gActiveColor;
+    link->win = XCreateWindow(gXDisplay, gWindow->fDisplayedWindow, 0, 0, 100, 100, 0,
+			      0, InputOutput, CopyFromParent,
+			      CWCursor | CWBackPixel | CWBorderPixel, &at);
+    XSelectInput(gXDisplay, link->win, ButtonPressMask);
+    link->type = Inputstring;
+    link->x = link->y = 0;
+    /** This way when I click in an input window, I need only use reference
+      to get a pointer to the item                             ***/
+    link->reference.string = item;
+    hash_insert(gLinkHashTable,(char *) link,(char *) &link->win);
+
+    return link;
+  }
+  return 0;
+}
+
+/* create an unmapped input window for boxes */
+HyperLink *
+make_box_window(InputBox * box, int type)
+{
+  HyperLink *link = 0;
+  XSetWindowAttributes at;
+
+  if (!make_input_file) {
+    link = (HyperLink *) halloc(sizeof(HyperLink), "Make_box_window");
+    if (link == NULL) {
+      fprintf(stderr, "Ran out of memory allocating a hyper link!\n");
+      exit(-1);
+    }
+    at.cursor = gActiveCursor;
+    at.background_pixel = gInputBackgroundColor;
+    link->win = XCreateWindow(gXDisplay, gWindow->fDisplayedWindow,
+			      0, 0, 100, 100, 0,
+			      0, InputOutput, CopyFromParent,
+			      CWCursor | CWBackPixel, &at);
+    XSelectInput(gXDisplay, link->win, ButtonPressMask);
+    link->type = type;
+    link->x = link->y = 0;
+    /** This way when I click in an input window, I need only use reference
+      to get a pointer to the item                             ***/
+    link->reference.box = box;
+    hash_insert(gLinkHashTable, (char *)link,(char *) &link->win);
+  }
+
+  return link;
+}
+
+void
+initialize_default(InputItem *item,char * buff)
+{
+  LineStruct *newline;
+  LineStruct *curr_line;
+  int size = item->size;
+  int bp;
+
+  item->curr_line = item->lines = alloc_inputline(size);
+  curr_line = item->lines;
+  item->num_lines = 1;
+  curr_line->line_number = 1;
+  /* while I still have lines to fill */
+  for (bp = 0; *buff;) {
+    if (*buff == '\n') {
+      curr_line->len = bp;
+      curr_line->buffer[bp] = 0;
+      newline = alloc_inputline(size);
+      newline->line_number = ++(item->num_lines);
+      curr_line->next = newline;
+      newline->prev = curr_line;
+      curr_line = newline;
+      bp = 0;
+      buff++;
+    }
+    else if (bp == size) {
+      curr_line->len = size + 1;
+      curr_line->buffer[size] = '_';
+      curr_line->buffer[size + 1] = 0;
+      newline = alloc_inputline(size);
+      newline->line_number = ++(item->num_lines);
+      curr_line->next = newline;
+      newline->prev = curr_line;
+      bp = 0;
+      curr_line = newline;
+    }
+    else {
+      curr_line->buffer[bp++] = *buff++;
+    }
+  }
+  curr_line->buff_pntr = curr_line->len = bp;
+  item->curr_line = curr_line;
+}
+
+
+
+/* Parse the input string statement * */
+void
+parse_inputstring(void)
+{
+  TextNode *input_node = curr_node;
+  char *name;
+  InputItem *item;
+  int size;
+  char *default_value;
+
+  gStringValueOk = 0;
+
+  /* first get the name */
+  input_node->type = token.type;
+  get_expected_token(Lbrace);
+  name = get_input_string();
+  input_node->data.text = alloc_string(name);
+  /* now get the width */
+  get_expected_token(Lbrace);
+  get_expected_token(Word);
+  get_expected_token(Rbrace);
+  size = atoi(token.id);
+  if (size < 0) {
+    fprintf(stderr, "Illegal size in Input string\n");
+    longjmp(jmpbuf, 1);
+  }
+
+  /* get the default value */
+  get_expected_token(Lbrace);
+  default_value = get_input_string();
+
+  /** now I need to malloc space for the input stuff **/
+  item = (InputItem *) halloc(sizeof(InputItem), "InputItem");
+
+  /* Now store all the string info */
+  item->name = (char *)
+    halloc((strlen(input_node->data.text) + 1) * (sizeof(char)),"parse_inputstring");
+  strcpy(item->name, input_node->data.text);
+  item->size = size;
+  item->entered = 0;
+  item->next = NULL;
+  initialize_default(item, default_value);
+
+  /** Now that I have all the structures made, lets make the window, and
+    add the item to the list                                 ****/
+
+  input_node->link = make_input_window(item);
+  if (!make_input_file)
+    item->win = input_node->link->win;      /* TTT */
+  insert_item(item);
+  gStringValueOk = 1;
+  curr_node = input_node;
+  return ;
+}
+
+void
+parse_simplebox(void)
+{
+  InputBox *box;
+  char *name;
+  short int picked = 0;
+  char *filename;
+  TextNode *input_box = curr_node;
+
+  gStringValueOk = 0;
+
+  /* set the type and space fields  */
+  input_box->type = SimpleBox;
+  input_box->space = token.id[-1];
+
+  /* IS it selected? */
+  get_token();
+  if (token.type == Lsquarebrace) {
+    get_expected_token(Word);
+    if (!is_number(token.id)) {
+      fprintf(stderr,
+	      "parse_simple_box: Expected a value not %s\n", token.id);
+      print_page_and_filename();
+      jump();
+    }
+    else if (!strcmp(token.id, "1"))
+      picked = 1;
+    else if (!strcmp(token.id, "0"))
+      picked = 0;
+    else {
+      fprintf(stderr, "parse_simple_box: Unexpected Value %s\n", token.id);
+      print_page_and_filename();
+      jump();
+    }
+    get_expected_token(Rsquarebrace);
+    get_token();
+  }
+
+  if (token.type != Lbrace) {
+    token_name(token.type);
+    fprintf(stderr, "parse_inputbox was expecting a { not a %s\n", ebuffer);
+    print_page_and_filename();
+    jump();
+  }
+
+  name = get_input_string();
+  if (gPageBeingParsed->box_hash && hash_find(gPageBeingParsed->box_hash, name)) {
+    fprintf(stderr, "Input box name %s is not unique \n", name);
+    print_page_and_filename();
+    jump();
+  }
+
+  box = alloc_inputbox();
+  box->name = alloc_string(name);
+  input_box->data.text = alloc_string(name);
+  box->picked = picked;
+
+  /* Get the filename for the selected and unselected bitmaps */
+  get_expected_token(Lbrace);
+  filename = get_input_string();
+  if (!make_input_file)
+    box->selected = insert_image_struct(filename);
+  get_expected_token(Lbrace);
+  filename = get_input_string();
+  if (!make_input_file) {
+    box->unselected = insert_image_struct(filename);
+    /* set the width and height for the maximaum of the two */
+    input_box->height = max(box->selected->height, box->unselected->height);
+    input_box->width = max(box->selected->width, box->unselected->width);
+    /* Make the window and stuff */
+    input_box->link = make_box_window(box, SimpleBox);
+    box->win = input_box->link->win;
+
+    /* Now add the box to the box_has table for this window */
+    if (gPageBeingParsed->box_hash == NULL) {
+      gPageBeingParsed->box_hash = (HashTable *) halloc(sizeof(HashTable),
+							"Box Hash");
+      hash_init(
+		gPageBeingParsed->box_hash, 
+		BoxHashSize, 
+		(EqualFunction) string_equal, 
+		(HashcodeFunction) string_hash);
+    }
+    hash_insert(gPageBeingParsed->box_hash, (char *)box, box->name);
+  }
+
+  /* reset the curr_node and then return */
+  curr_node = input_box;
+  gStringValueOk = 1;
+  return;
+}
+void
+parse_radiobox(void)
+{
+  InputBox *box;
+  char *name;
+  char *group_name;
+  short int picked = 0;
+  TextNode *input_box = curr_node;
+
+  gStringValueOk = 0;
+
+  /* set the type and space fields  */
+  input_box->type = Radiobox;
+  input_box->space = token.id[-1];
+
+  /* IS it selected? */
+  get_token();
+  if (token.type == Lsquarebrace) {
+    get_expected_token(Word);
+    if (!is_number(token.id)) {
+      fprintf(stderr,
+	      "parse_simple_box: Expected a value not %s\n", token.id);
+      print_page_and_filename();
+      jump();
+    }
+    else if (!strcmp(token.id, "1"))
+      picked = 1;
+    else if (!strcmp(token.id, "0"))
+      picked = 0;
+    else {
+      fprintf(stderr, "parse_simple_box: Unexpected Value %s\n", token.id);
+      print_page_and_filename();
+      jump();
+    }
+    get_expected_token(Rsquarebrace);
+    get_token();
+  }
+
+  if (token.type != Lbrace) {
+    token_name(token.type);
+    fprintf(stderr, "parse_inputbox was expecting a { not a %s\n", ebuffer);
+    print_page_and_filename();
+    jump();
+  }
+
+  name = get_input_string();
+  if (gPageBeingParsed->box_hash && hash_find(gPageBeingParsed->box_hash, name)) {
+    fprintf(stderr, "Input box name %s is not unique \n", name);
+    print_page_and_filename();
+    jump();
+  }
+
+  box = alloc_inputbox();
+  box->name = alloc_string(name);
+  input_box->data.text = alloc_string(name);
+  box->picked = picked;
+
+  /* Now what I need to do is get the group name */
+  get_token();
+  if (token.type != Lbrace) {
+    token_name(token.type);
+    fprintf(stderr, "parse_inputbox was expecting a { not a %s\n", ebuffer);
+    print_page_and_filename();
+    jump();
+  }
+  group_name = get_input_string();
+
+  /*
+   * Now call a routine which searches the radio box list for the current
+   * group name, and if found adds this box to it
+   */
+  add_box_to_rb_list(group_name, box);
+
+  input_box->width = box->rbs->width;
+  input_box->height = box->rbs->height;
+  /* Make the window and stuff */
+  input_box->link = make_box_window(box, Radiobox);
+  if (!make_input_file)
+    box->win = input_box->link->win;        /* TTT */
+
+
+  /* Now add the box to the box_has table for this window */
+  if (gPageBeingParsed->box_hash == NULL) {
+    gPageBeingParsed->box_hash = (HashTable *) halloc(sizeof(HashTable),
+						      "Box Hash");
+    hash_init(
+	      gPageBeingParsed->box_hash, 
+	      BoxHashSize, 
+	      (EqualFunction) string_equal, 
+	      (HashcodeFunction) string_hash);
+  }
+  hash_insert(gPageBeingParsed->box_hash, (char *)box, box->name);
+
+  /* reset the curr_node and then return */
+  curr_node = input_box;
+  gStringValueOk = 1;
+  return;
+}
+static void
+add_box_to_rb_list(char *name,InputBox *box)
+{
+  RadioBoxes *trace = gPageBeingParsed->radio_boxes;
+  InputBox *list;
+  /*int found = 0;*/
+
+  while (trace != NULL && strcmp(trace->name, name))
+    trace = trace->next;
+
+  if (!trace) {
+    fprintf(stderr, "Tried to add a radio box to a non-existent group %s\n",
+	    name);
+    print_page_and_filename();
+    jump();
+  }
+
+  /* now add the box to the list */
+  list = trace->boxes;
+  box->next = list;
+  trace->boxes = box;
+
+  if (box->picked && check_others(box->next)) {
+    fprintf(stderr, "Only a single radio button can be picked\n");
+    print_page_and_filename();
+    box->picked = 0;
+  }
+  box->selected = trace->selected;
+  box->unselected = trace->unselected;
+  box->rbs = trace;
+
+  return;
+}
+static int
+check_others(InputBox *list)
+{
+  InputBox *trace = list;
+
+  while (trace != NULL && !trace->picked)
+    trace = trace->next;
+
+  if (trace != NULL)
+    return 1;
+  else
+    return 0;
+}
+
+
+/* inserts an item into the current input list */
+static void
+insert_item(InputItem *item)
+{
+  InputItem *trace = gPageBeingParsed->input_list;
+
+  if (gPageBeingParsed->current_item == NULL) {
+    gPageBeingParsed->current_item = item;
+  }
+  if (trace == NULL) {
+    /** Insert at the front of the list **/
+    gPageBeingParsed->input_list = item;
+    return;
+  }
+  else {
+    /** find the end of the list **/
+    while (trace->next != NULL)
+      trace = trace->next;
+    trace->next = item;
+    return;
+  }
+}
+
+InputItem *save_item;
+
+void
+init_paste_item(InputItem *item)
+{
+  InputItem *trace = gPageBeingParsed->input_list;
+
+  if (!item) {
+    gPageBeingParsed->input_list = NULL;
+    gPageBeingParsed->current_item = NULL;
+    save_item = NULL;
+  }
+  else {
+    save_item = item->next;
+    trace->next = NULL;
+  }
+}
+void
+repaste_item(void)
+{
+  InputItem *trace;
+
+  if (save_item) {
+    for (trace = gPageBeingParsed->input_list; trace && trace->next != NULL;
+	 trace = trace->next);
+    if (trace) {
+      trace->next = save_item;
+    }
+    else {
+      gWindow->page->input_list = save_item;
+      gWindow->page->current_item = save_item;
+    }
+  }
+  save_item = NULL;
+}
+
+InputItem *
+current_item(void)
+{
+  InputItem *trace = gPageBeingParsed->input_list;
+
+  if (trace) {
+    for (; trace->next != NULL; trace = trace->next);
+    return trace;
+  }
+  else
+    return NULL;
+}
+int
+already_there(char *name)
+{
+  RadioBoxes *trace = gPageBeingParsed->radio_boxes;
+
+  while (trace && strcmp(trace->name, name))
+    trace = trace->next;
+
+  if (trace)
+    return 1;
+  else
+    return 0;
+}
+void
+parse_radioboxes(void)
+{
+  TextNode *return_node = curr_node;
+  RadioBoxes *newrb;
+  char *fname;
+
+  /* I really don't need this node, it just sets up some parsing stuff */
+  return_node->type = Noop;
+
+  newrb = alloc_rbs();
+
+  get_token();
+  if (token.type != Lbrace) {
+    token_name(token.type);
+    fprintf(stderr, "\\radioboxes was expecting a name not %s\n", ebuffer);
+    print_page_and_filename();
+    jump();
+  }
+
+  newrb->name = alloc_string(get_input_string());
+
+  /* quick search for the name in the current list */
+  if (already_there(newrb->name)) {
+    free(newrb->name);
+    free(newrb);
+    fprintf(stderr, "Tried to redefine radioboxes %s\n", newrb->name);
+    print_page_and_filename();
+    jump();
+  }
+  /* now I have to get the selected and unslected bitmaps */
+  get_token();
+  if (token.type != Lbrace) {
+    token_name(token.type);
+    fprintf(stderr, "\\radioboxes was expecting a name not %s\n", ebuffer);
+    print_page_and_filename();
+    jump();
+  }
+  fname = get_input_string();
+  if (!make_input_file)
+    newrb->selected = insert_image_struct(fname);
+
+  get_token();
+  if (token.type != Lbrace) {
+    token_name(token.type);
+    fprintf(stderr, "\\radioboxes was expecting a name not %s\n", ebuffer);
+    print_page_and_filename();
+    jump();
+  }
+  fname = get_input_string();
+  if (!make_input_file) {
+    newrb->unselected = insert_image_struct(fname);
+    newrb->height = max(newrb->selected->height, newrb->unselected->height);
+    newrb->width = max(newrb->selected->width, newrb->unselected->width);
+    /* now add the thing to the current list of radio boxes */
+  }
+  newrb->next = gPageBeingParsed->radio_boxes;
+  gPageBeingParsed->radio_boxes = newrb;
+
+  curr_node = return_node;
+  return;
+}
+@
+\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>>
+<<parse-input.c>>
+@ 
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
+
+
+
+