URL https://opencores.org/ocsvn/tms1000/tms1000/trunk

Subversion Repositories tms1000

[/] [tms1000/] [trunk/] [assembler/] [symtab.c] - Blame information for rev 5

Go to most recent revision | Details | Compare with Previous | View Log


/*
symtab.c: a simple binary tree symbol table
 
CASM is an assembler for the TMS1000 processor.
*/
 
#include <stdio.h>
#include <string.h>
#include "symtab.h"
 
typedef struct sym
{
  char *name;
  int value;
  int lineno;
  struct sym *left;
  struct sym *right;
} sym;
 
static char *newstr (char *orig)
{
  int len;
  char *r;
 
  len = strlen (orig);
  r = (char *) malloc (len + 10);
 
  if (! r)
    {
      fprintf (stderr, "memory allocation failed\n");
      exit (2);
    }
 
  memcpy (r, orig, len + 1);
  return (r);
}
 
t_symtab alloc_symbol_table (void)
{
  sym **table;
  table = (sym **) calloc (1, sizeof (sym *));
  return (table);
}
 
static void free_entry (sym *p)
{
  if (p->left)
    free_entry (p->left);
  if (p->right)
    free_entry (p->right);
  free (p);
}
 
void free_symbol_table (t_symtab t)
{
  sym **table = t;
  free_entry (*table);
  free (table);
}
 
static int insert_symbol (sym **p, sym *newsym)
{
  int i;
 
  if (! *p)
    {
      (*p) = newsym;
      return (1);
    }
 
  i = stricmp (newsym->name, (*p)->name);
 
  if (i == 0)
    return (0);
  else if (i < 0)
    return (insert_symbol (& ((*p)->left), newsym));
  else
    return (insert_symbol (& ((*p)->right), newsym));
}
 
 
/* returns 1 for success, 0 if duplicate name */
int create_symbol (t_symtab t, char *name, int value, int lineno)
{
  sym **table = t;
  sym *p = *table;
  sym *newsym;
 
  newsym = (sym *) calloc (1, sizeof (sym));
  if (! newsym)
    {
      fprintf (stderr, "memory allocation failure\n");
      exit (2);
    }
 
  newsym->name = newstr (name);
  newsym->value = value;
  newsym->lineno = lineno;
 
  return (insert_symbol (table, newsym));
}
 
/* returns 1 for success, 0 if not found */
int lookup_symbol (t_symtab t, char *name, int *value)
{
  sym **table = t;
  sym *p = *table;
  int i;
 
  while (p)
    {
      i = stricmp (name, p->name);
      if (i == 0)
        {
          *value = p->value;
          return (1);
        }
      if (i < 0)
        p = p->left;
      else
        p = p->right;
    }
  return (0);
}
 
static void print_symbols (FILE *f, sym *p)
{
  if (! p)
    return;
  print_symbols (f, p->left);
  fprintf (f, "%03x %s %d\n", p->value, p->name, p->lineno);
  print_symbols (f, p->right);
}
 
void print_symbol_table (t_symtab t, FILE *f)
{
  sym **table = t;
  print_symbols (f, *table);
}

Line No.	Rev	Author	Line
1	2	nand_gates	`/*`
2			`symtab.c: a simple binary tree symbol table`
3
4			`CASM is an assembler for the TMS1000 processor.`
5			`*/`
6
7			`#include <stdio.h>`
8			`#include <string.h>`
9			`#include "symtab.h"`
10
11			`typedef struct sym`
12			`{`
13			`char *name;`
14			`int value;`
15			`int lineno;`
16			`struct sym *left;`
17			`struct sym *right;`
18			`} sym;`
19
20			`static char newstr (char orig)`
21			`{`
22			`int len;`
23			`char *r;`
24
25			`len = strlen (orig);`
26			`r = (char *) malloc (len + 10);`
27
28			`if (! r)`
29			`{`
30			`fprintf (stderr, "memory allocation failed\n");`
31			`exit (2);`
32			`}`
33
34			`memcpy (r, orig, len + 1);`
35			`return (r);`
36			`}`
37
38			`t_symtab alloc_symbol_table (void)`
39			`{`
40			`sym **table;`
41			`table = (sym *) calloc (1, sizeof (sym ));`
42			`return (table);`
43			`}`
44
45			`static void free_entry (sym *p)`
46			`{`
47			`if (p->left)`
48			`free_entry (p->left);`
49			`if (p->right)`
50			`free_entry (p->right);`
51			`free (p);`
52			`}`
53
54			`void free_symbol_table (t_symtab t)`
55			`{`
56			`sym **table = t;`
57			`free_entry (*table);`
58			`free (table);`
59			`}`
60
61			`static int insert_symbol (sym *p, sym newsym)`
62			`{`
63			`int i;`
64
65			`if (! *p)`
66			`{`
67			`(*p) = newsym;`
68			`return (1);`
69			`}`
70
71			`i = stricmp (newsym->name, (*p)->name);`
72
73			`if (i == 0)`
74			`return (0);`
75			`else if (i < 0)`
76			`return (insert_symbol (& ((*p)->left), newsym));`
77			`else`
78			`return (insert_symbol (& ((*p)->right), newsym));`
79			`}`
80
81
82			`/* returns 1 for success, 0 if duplicate name */`
83			`int create_symbol (t_symtab t, char *name, int value, int lineno)`
84			`{`
85			`sym **table = t;`
86			`sym p = table;`
87			`sym *newsym;`
88
89			`newsym = (sym *) calloc (1, sizeof (sym));`
90			`if (! newsym)`
91			`{`
92			`fprintf (stderr, "memory allocation failure\n");`
93			`exit (2);`
94			`}`
95
96			`newsym->name = newstr (name);`
97			`newsym->value = value;`
98			`newsym->lineno = lineno;`
99
100			`return (insert_symbol (table, newsym));`
101			`}`
102
103			`/* returns 1 for success, 0 if not found */`
104			`int lookup_symbol (t_symtab t, char name, int value)`
105			`{`
106			`sym **table = t;`
107			`sym p = table;`
108			`int i;`
109
110			`while (p)`
111			`{`
112			`i = stricmp (name, p->name);`
113			`if (i == 0)`
114			`{`
115			`*value = p->value;`
116			`return (1);`
117			`}`
118			`if (i < 0)`
119			`p = p->left;`
120			`else`
121			`p = p->right;`
122			`}`
123			`return (0);`
124			`}`
125
126			`static void print_symbols (FILE f, sym p)`
127			`{`
128			`if (! p)`
129			`return;`
130			`print_symbols (f, p->left);`
131			`fprintf (f, "%03x %s %d\n", p->value, p->name, p->lineno);`
132			`print_symbols (f, p->right);`
133			`}`
134
135			`void print_symbol_table (t_symtab t, FILE *f)`
136			`{`
137			`sym **table = t;`
138			`print_symbols (f, *table);`
139			`}`

Browse

Tools

Subversion Repositories tms1000

[/] [tms1000/] [trunk/] [assembler/] [symtab.c] - Blame information for rev 5