sim/igen/table.c

57   line_ref *entry = ZALLOC (line_ref);
58   *entry = file->pseudo_line;
59   return entry;
65   table_entry *entry;
66   entry = ZALLOC (table_entry);
67   entry->file = file->root;
68   entry->line = current_line (file);
69   entry->type = type;
70   return entry;
74 set_nr_table_entry_fields (table_entry *entry, int nr_fields)
76   entry->field = NZALLOC (char *, nr_fields + 1);
77   entry->nr_fields = nr_fields;
272   table_entry *entry = NULL;
293 	  entry = new_table_entry (file, table_code_entry);
303 	    set_nr_table_entry_fields (entry, nr_lines);
308 	    for (line_nr = 0; line_nr < entry->nr_fields; line_nr++)
311 		  entry->field[line_nr] = chp + 2;
313 		  entry->field[line_nr] = chp;
327 	  entry = new_table_entry (file, table_code_entry);
349 	    set_nr_table_entry_fields (entry, nr_lines);
354 	    for (line_nr = 0; line_nr < entry->nr_fields; line_nr++)
357 		  entry->field[line_nr] = chp + 1;
359 		  entry->field[line_nr] = "";	/* blank */
436 	entry = new_table_entry (file, table_colon_entry);
466 	  set_nr_table_entry_fields (entry, nr_fields);
471 	  for (field_nr = 0; field_nr < entry->nr_fields; field_nr++)
474 	      entry->field[field_nr] = chp;
476 	      *back_spaces (entry->field[field_nr], chp) = '\0';
485   ASSERT (entry == NULL || entry->field[entry->nr_fields] == NULL);
486   return entry;
490 table_print_code (lf *file, const table_entry *entry)
493   for (field_nr = 0; field_nr < entry->nr_fields; field_nr++)
495       char *chp = entry->field[field_nr];
523 	  line_ref line = *entry->line;
556       return "code-entry";
558       return "colon-entry";
566 		  const table_entry *entry,
569   lf_printf (file, "%s(table_entry*) %p", prefix, entry);
570   if (entry != NULL)
574       dump_line_ref (file, "\n(line ", entry->line, ")");
575       lf_printf (file, "\n(type %s)", table_entry_type_to_str (entry->type));
576       lf_printf (file, "\n(nr_fields %d)", entry->nr_fields);
579       for (field = 0; field < entry->nr_fields; field++)
580 	lf_printf (file, "\n\"%s\"", entry->field[field]);
594   table_entry *entry;
611       entry = table_read (t);
614       dump_table_entry (l, line, entry, ")\n");
616   while (entry != NULL);