Return to nlist.c CVS log

Up to [MW Coherent from dump] / coherent / b / lib / libc / gen

Annotation of coherent/b/lib/libc/gen/nlist.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * Get entries from name list.
                      3:  */
                      4: 
                      5: #include <stdio.h>
                      6: #include <l.out.h>
                      7: #include <canon.h>
                      8: 
                      9: nlist(fn, nlp)
                     10: char *fn;
                     11: struct nlist *nlp;
                     12: {
                     13:        register struct nlist *np;
                     14:        register int ntodo = 0;
                     15:        struct FILE *lfp;
                     16:        struct ldheader lh;
                     17:        struct ldsym ste;
                     18:        fsize_t symsize;
                     19:        register int n;
                     20: 
                     21:        for (np = nlp; np->n_name[0] != '\0'; np++) {
                     22:                np->n_type = np->n_value = 0;
                     23:                ntodo++;
                     24:        }
                     25:        if ((lfp = fopen(fn, "r")) == NULL)
                     26:                return;
                     27:        n = fread(&lh, sizeof lh, 1, lfp);
                     28:        canint(lh.l_magic);
                     29:        if (n!=1 || lh.l_magic!=L_MAGIC) {
                     30:                fclose(lfp);
                     31:                return;
                     32:        }
                     33:        for (n=0; n<=L_SYM; n++)
                     34:                cansize(lh.l_ssize[n]);
                     35:        symsize = sizeof lh + lh.l_ssize[L_SHRI] + lh.l_ssize[L_SHRD]
                     36:            + lh.l_ssize[L_PRVI] + lh.l_ssize[L_PRVD] + lh.l_ssize[L_DEBUG];
                     37:        fseek(lfp, symsize, 0);
                     38:        symsize = lh.l_ssize[L_SYM];
                     39:        for ( ; symsize>0 && ntodo; symsize -= sizeof ste) {
                     40:                if (fread(&ste, sizeof ste, 1, lfp) != 1)
                     41:                        break;
                     42:                for (np = nlp; np->n_name[0] != '\0'; np++)
                     43:                        if (strncmp(np->n_name, ste.ls_id, NCPLN) == 0) {
                     44:                                canint(ste.ls_type);
                     45:                                canvaddr(ste.ls_addr);
                     46:                                np->n_type = ste.ls_type;
                     47:                                np->n_value = ste.ls_addr;
                     48:                                if (--ntodo == 0)
                     49:                                        break;
                     50:                        }
                     51:        }
                     52:        fclose(lfp);
                     53: }

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