Upstream version 2.08rc7

1 files changed, 296 insertions, 0 deletions

diff --git a/rdoff/rdlib.c b/rdoff/rdlib.c
new file mode 100644
index 0000000..31dbdb4
--- /dev/null
+++ b/rdoff/rdlib.c
@@ -0,0 +1,296 @@
+/* ----------------------------------------------------------------------- *
+ *   
+ *   Copyright 1996-2009 The NASM Authors - All Rights Reserved
+ *   See the file AUTHORS included with the NASM distribution for
+ *   the specific copyright holders.
+ *
+ *   Redistribution and use in source and binary forms, with or without
+ *   modification, are permitted provided that the following
+ *   conditions are met:
+ *
+ *   * Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *   * Redistributions in binary form must reproduce the above
+ *     copyright notice, this list of conditions and the following
+ *     disclaimer in the documentation and/or other materials provided
+ *     with the distribution.
+ *     
+ *     THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
+ *     CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
+ *     INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+ *     MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+ *     DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
+ *     CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+ *     SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+ *     NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+ *     LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ *     HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ *     CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
+ *     OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
+ *     EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ *
+ * ----------------------------------------------------------------------- */
+
+/*
+ * rdlib.c - routines for manipulating RDOFF libraries (.rdl)
+ */
+
+#include "compiler.h"
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#define RDOFF_UTILS
+
+#include "rdoff.h"
+#include "rdlib.h"
+#include "rdlar.h"
+
+/* See Texinfo documentation about new RDOFF libraries format */
+
+int rdl_error = 0;
+
+char *rdl_errors[5] = {
+    "no error", "could not open file", "invalid file structure",
+    "file contains modules of an unsupported RDOFF version",
+    "module not found"
+};
+
+int rdl_verify(const char *filename)
+{
+    FILE *fp = fopen(filename, "rb");
+    char buf[257];
+    int i;
+    int32_t length;
+    static char lastverified[256];
+    static int lastresult = -1;
+
+    if (lastresult != -1 && !strcmp(filename, lastverified))
+        return lastresult;
+
+    strcpy(lastverified, filename);
+
+    if (!fp)
+        return (rdl_error = lastresult = 1);
+
+    while (!feof(fp)) {
+        i = 0;
+
+        while (fread(buf + i, 1, 1, fp) == 1 && buf[i] && i < 257)
+            i++;
+        if (feof(fp))
+            break;
+
+        if (buf[0] == '.') {
+            /*
+             * A special module, eg a signature block or a directory.
+             * Format of such a module is defined to be:
+             *   six char type identifier
+             *   int32_t count bytes content
+             *   content
+             * so we can handle it uniformaly with RDOFF2 modules.
+             */
+            fread(buf, 6, 1, fp);
+            buf[6] = 0;
+            /* Currently, nothing useful to do with signature block.. */
+        } else {
+            fread(buf, 6, 1, fp);
+            buf[6] = 0;
+            if (strncmp(buf, "RDOFF", 5)) {
+                return rdl_error = lastresult = 2;
+            } else if (buf[5] != '2') {
+                return rdl_error = lastresult = 3;
+            }
+        }
+        fread(&length, 4, 1, fp);
+        fseek(fp, length, SEEK_CUR);    /* skip over the module */
+    }
+    fclose(fp);
+    return lastresult = 0;      /* library in correct format */
+}
+
+int rdl_open(struct librarynode *lib, const char *name)
+{
+    int i = rdl_verify(name);
+    if (i)
+        return i;
+
+    lib->fp = NULL;
+    lib->name = strdup(name);
+    lib->referenced = 0;
+    lib->next = NULL;
+    return 0;
+}
+
+void rdl_close(struct librarynode *lib)
+{
+    if (lib->fp)
+        fclose(lib->fp);
+    free(lib->name);
+}
+
+int rdl_searchlib(struct librarynode *lib, const char *label, rdffile * f)
+{
+    char buf[512];
+    int i, t;
+    void *hdr;
+    rdfheaderrec *r;
+    int32_t l;
+
+    rdl_error = 0;
+    lib->referenced++;
+
+    if (!lib->fp) {
+        lib->fp = fopen(lib->name, "rb");
+
+        if (!lib->fp) {
+            rdl_error = 1;
+            return 0;
+        }
+    } else
+        rewind(lib->fp);
+
+    while (!feof(lib->fp)) {
+        /*
+         * read the module name from the file, and prepend
+         * the library name and '.' to it.
+         */
+        strcpy(buf, lib->name);
+
+        i = strlen(lib->name);
+        buf[i++] = '.';
+        t = i;
+        while (fread(buf + i, 1, 1, lib->fp) == 1 && buf[i] && i < 512)
+            i++;
+
+        buf[i] = 0;
+
+        if (feof(lib->fp))
+            break;
+        if (!strcmp(buf + t, ".dir")) { /* skip over directory */
+            fread(&l, 4, 1, lib->fp);
+            fseek(lib->fp, l, SEEK_CUR);
+            continue;
+        }
+        /*
+         * open the RDOFF module
+         */
+        if (rdfopenhere(f, lib->fp, &lib->referenced, buf)) {
+            rdl_error = 16 * rdf_errno;
+            return 0;
+        }
+        /*
+         * read in the header, and scan for exported symbols
+         */
+        hdr = malloc(f->header_len);
+        rdfloadseg(f, RDOFF_HEADER, hdr);
+
+        while ((r = rdfgetheaderrec(f))) {
+            if (r->type != 3)   /* not an export */
+                continue;
+
+            if (!strcmp(r->e.label, label)) {   /* match! */
+                free(hdr);      /* reset to 'just open' */
+                f->header_loc = NULL;   /* state... */
+                f->header_fp = 0;
+                return 1;
+            }
+        }
+
+        /* find start of next module... */
+        i = f->eof_offset;
+        rdfclose(f);
+        fseek(lib->fp, i, SEEK_SET);
+    }
+
+    /*
+     * close the file if nobody else is using it
+     */
+    lib->referenced--;
+    if (!lib->referenced) {
+        fclose(lib->fp);
+        lib->fp = NULL;
+    }
+    return 0;
+}
+
+int rdl_openmodule(struct librarynode *lib, int moduleno, rdffile * f)
+{
+    char buf[512];
+    int i, cmod, t;
+    int32_t length;
+
+    lib->referenced++;
+
+    if (!lib->fp) {
+        lib->fp = fopen(lib->name, "rb");
+        if (!lib->fp) {
+            lib->referenced--;
+            return (rdl_error = 1);
+        }
+    } else
+        rewind(lib->fp);
+
+    cmod = -1;
+    while (!feof(lib->fp)) {
+        strcpy(buf, lib->name);
+        i = strlen(buf);
+        buf[i++] = '.';
+        t = i;
+        while (fread(buf + i, 1, 1, lib->fp) == 1 && buf[i] && i < 512)
+            i++;
+        buf[i] = 0;
+        if (feof(lib->fp))
+            break;
+
+        if (buf[t] != '.')      /* special module - not counted in the numbering */
+            cmod++;             /* of RDOFF modules - must be referred to by name */
+
+        if (cmod == moduleno) {
+            rdl_error = 16 *
+                rdfopenhere(f, lib->fp, &lib->referenced, buf);
+            lib->referenced--;
+            if (!lib->referenced) {
+                fclose(lib->fp);
+                lib->fp = NULL;
+            }
+            return rdl_error;
+        }
+
+        fread(buf, 6, 1, lib->fp);
+        buf[6] = 0;
+        if (buf[t] == '.') {
+            /* do nothing */
+        } else if (strncmp(buf, "RDOFF", 5)) {
+            if (!--lib->referenced) {
+                fclose(lib->fp);
+                lib->fp = NULL;
+            }
+            return rdl_error = 2;
+        } else if (buf[5] != '2') {
+            if (!--lib->referenced) {
+                fclose(lib->fp);
+                lib->fp = NULL;
+            }
+            return rdl_error = 3;
+        }
+
+        fread(&length, 4, 1, lib->fp);
+        fseek(lib->fp, length, SEEK_CUR);       /* skip over the module */
+    }
+    if (!--lib->referenced) {
+        fclose(lib->fp);
+        lib->fp = NULL;
+    }
+    return rdl_error = 4;       /* module not found */
+}
+
+void rdl_perror(const char *apname, const char *filename)
+{
+    if (rdl_error >= 16)
+        rdfperror(apname, filename);
+    else
+        fprintf(stderr, "%s:%s:%s\n", apname, filename,
+                rdl_errors[rdl_error]);
+}