File: list_undef.c

package info (click to toggle)
scilab 2.2-4
  • links: PTS
  • area: non-free
  • in suites: hamm
  • size: 31,472 kB
  • ctags: 21,963
  • sloc: fortran: 110,983; ansic: 89,717; makefile: 3,016; sh: 1,892; csh: 150; cpp: 101
file content (56 lines) | stat: -rw-r--r-- 1,400 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
/* list_undefined.c -- return a list of strings containing the names of the
   undefined symbols. */

/* This file is part of DLD, a dynamic link/unlink editor for C.

   Copyright (C) 1990 by W. Wilson Ho.

   The author can be reached electronically by how@cs.ucdavis.edu or
   through physical mail at:

   W. Wilson Ho
   Division of Computer Science
   University of California at Davis
   Davis, CA 95616
 */

/* This program is free software; you can redistribute it and/or modify it
   under the terms of the GNU General Public License as published by the
   Free Software Foundation; either version 1, or (at your option) any
   later version. */

#include "defs.h"

/*
 * Return an array of strings, each of which is the name of an undefined
 * symbol.  Return 0 if there is no undefined symbol.
 *
 * The caller is responsible to free this array.
 */
char **
dld_list_undefined_sym ()
{
    register symbol *sp;
    register int i;
    register int count = 0;
    register char **list;

    if (!dld_undefined_sym_count)
	return 0;

    if (setjmp (_dld_env))
	return 0;

    list = (char **) _dld_malloc (sizeof(char *) * dld_undefined_sym_count);

    for (i=0; i<TABSIZE; i++)
	for (sp = _dld_symtab[i]; sp; sp = sp->link)
	    if (!sp->defined) {
		list[count++] = sp->name;
		if (count >= dld_undefined_sym_count)
		    break;
	    }

    return list;
} /* dld_list_undefined_sym */