Return to table.c CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / new / jove

Annotation of 43BSDTahoe/new/jove/table.c, revision 1.1.1.1

1.1       root        1: /***************************************************************************
                      2:  * This program is Copyright (C) 1986, 1987, 1988 by Jonathan Payne.  JOVE *
                      3:  * is provided to you without charge, and with no warranty.  You may give  *
                      4:  * away copies of JOVE, including sources, provided that this notice is    *
                      5:  * included in all the files.                                              *
                      6:  ***************************************************************************/
                      7: 
                      8: #include "jove.h"
                      9: #include "table.h"
                     10: 
                     11: private Table  *tables = NIL;
                     12: 
                     13: Table *
                     14: make_table()
                     15: {
                     16:        Table   *tab = (Table *) emalloc(sizeof *tab);
                     17: 
                     18:        tab->t_next = tables;
                     19:        tables = tab;
                     20:        tab->t_wordlist = NIL;
                     21: 
                     22:        return tab;
                     23: }
                     24: 
                     25: Word *
                     26: word_in_table(text, table)
                     27: char   *text;
                     28: Table  *table;
                     29: {
                     30:        register Word   *w;
                     31: 
                     32:        for (w = table_top(table); w != NIL; w = next_word(w))
                     33:                if (strcmp(word_text(w), text) == 0)
                     34:                        break;  /* already in list */
                     35:        return w;
                     36: }
                     37: 
                     38: void
                     39: add_word(wname, table)
                     40: char   *wname;
                     41: Table  *table;
                     42: {
                     43:        register Word   *w;
                     44: 
                     45:        if (w = word_in_table(wname, table))
                     46:                return;
                     47:        w = (Word *) emalloc(sizeof *w);
                     48:        word_text(w) = wname;
                     49:        next_word(w) = table_top(table);
                     50:        table_top(table) = w;
                     51: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.