laag-nasm 2.13.03.2

data/vendor/repo.or.cz/nasm/rdoff/rdf2com.1

@@ -0,0 +1 @@
+.so man1/rdf2bin.1

data/vendor/repo.or.cz/nasm/rdoff/rdf2ihx.1

@@ -0,0 +1 @@
+.so man1/rdf2bin.1

data/vendor/repo.or.cz/nasm/rdoff/rdf2ith.1

@@ -0,0 +1 @@
+.so man1/rdf2bin.1

data/vendor/repo.or.cz/nasm/rdoff/rdf2srec.1

@@ -0,0 +1 @@
+.so man1/rdf2bin.1

data/vendor/repo.or.cz/nasm/rdoff/rdfdump.1

@@ -0,0 +1,24 @@
+.TH RDFDUMP 1 "September 6, 1999" "Debian Project" "Debian Manual"
+.SH NAME
+rdfdump \- dumps an RDOFF object in human-readable form
+.SH SYNOPSIS
+.B rdfdump
+[-v]
+.RI < filename >
+.SH DESCRIPTION
+.B rdfdump
+prints a list of the header records in an RDOFF object in human-readable
+form, and optionally prints a hex dump of the contents of the segments.
+.PP
+.B rdfdump
+supports both version 1 and 2 of RDOFF.  It will give warnings if the RDOFF2
+format is violated (it looks for incorrect lengths for header records, and
+checks the overall length count at the start of the file).
+.SH OPTIONS
+.TP
+-v
+Print a hex dump of the contents of the segments.
+.SH AUTHORS
+Julian Hall <jules@earthcorp.com>.
+.PP
+This manual page was written by Matej Vela <vela@debian.org>.

data/vendor/repo.or.cz/nasm/rdoff/rdfdump.c

@@ -0,0 +1,347 @@
+/* ----------------------------------------------------------------------- *
+ *
+ *   Copyright 1996-2014 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.
+ *
+ * ----------------------------------------------------------------------- */
+
+/*
+ * rdfdump.c - dump RDOFF file header.
+ */
+
+#include "compiler.h"
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#include "rdfutils.h"
+
+#define PROGRAM_VERSION	"2.3"
+
+FILE *infile;
+
+static void print_header(int32_t length, int rdf_version)
+{
+    char buf[129], t, l, s, flags;
+    uint8_t reclen;
+    int32_t o, ll;
+    uint16_t rs;
+
+    while (length > 0) {
+        nasm_read(&t, 1, infile);
+        if (rdf_version >= 2) {
+            nasm_read(&reclen, 1, infile);
+        }
+        switch (t) {
+        case RDFREC_GENERIC:   /* generic record */
+            printf("  generic record (length=%d)\n", (int)reclen);
+            fseek(infile, reclen, SEEK_CUR);
+            break;
+
+        case RDFREC_RELOC:     /* relocation record */
+        case RDFREC_SEGRELOC:  /* segment relocation */
+            nasm_read(&s, 1, infile);
+            nasm_read(&o, 4, infile);
+            nasm_read(&l, 1, infile);
+            nasm_read(&rs, 2, infile);
+            printf("  %s: location (%04x:%08"PRIx32"), length %d, "
+                   "referred seg %04x\n",
+                   t == 1 ? "relocation" : "seg relocation", (int)s,
+                   translateint32_t(o), (int)l, translateint16_t(rs));
+            if (rdf_version >= 2 && reclen != 8)
+                printf("    warning: reclen != 8\n");
+            if (rdf_version == 1)
+                length -= 9;
+            if (rdf_version == 1 && t == 6)
+                printf
+                    ("    warning: seg relocation not supported in RDOFF1\n");
+            break;
+
+        case RDFREC_IMPORT:    /* import record */
+        case RDFREC_FARIMPORT: /* import far symbol */
+            nasm_read(&flags, 1, infile);
+            nasm_read(&rs, 2, infile);
+            ll = 0;
+
+            if (rdf_version == 1) {
+                do {
+                    nasm_read(&buf[ll], 1, infile);
+                } while (buf[ll++]);
+            } else {
+                for (; ll < reclen - 3; ll++)
+                    nasm_read(&buf[ll], 1, infile);
+            }
+
+            if (t == 7)
+                printf("far ");
+            printf((flags & SYM_IMPORT) ? "  import" : "  extern");
+            if (flags & SYM_FUNCTION)
+                printf(" proc");
+            if (flags & SYM_DATA)
+                printf(" data");
+            printf(": segment %04x = %s\n", translateint16_t(rs), buf);
+            if (rdf_version == 1)
+                length -= ll + 3;
+            if (rdf_version == 1 && t == 7)
+                printf
+                    ("    warning: far import not supported in RDOFF1\n");
+            break;
+
+        case RDFREC_GLOBAL:    /* export record */
+            nasm_read(&flags, 1, infile);
+            nasm_read(&s, 1, infile);
+            nasm_read(&o, 4, infile);
+            ll = 0;
+
+            if (rdf_version == 1) {
+                do {
+                    nasm_read(&buf[ll], 1, infile);
+                } while (buf[ll++]);
+            } else {
+                for (; ll < reclen - 6; ll++)
+                    nasm_read(&buf[ll], 1, infile);
+            }
+            printf((flags & SYM_GLOBAL) ? "  export" : "  public");
+            if (flags & SYM_FUNCTION)
+                printf(" proc");
+            if (flags & SYM_DATA)
+                printf(" data");
+            printf(": (%04x:%08"PRIx32") = %s\n", (int)s, translateint32_t(o), buf);
+            if (rdf_version == 1)
+                length -= ll + 6;
+            break;
+
+        case RDFREC_DLL:       /* DLL and Module records */
+        case RDFREC_MODNAME:
+            ll = 0;
+            if (rdf_version == 1) {
+                do {
+                    nasm_read(&buf[ll], 1, infile);
+                } while (buf[ll++]);
+            } else {
+                for (; ll < reclen; ll++)
+                    nasm_read(&buf[ll], 1, infile);
+            }
+            if (t == 4)
+                printf("  dll: %s\n", buf);
+            else
+                printf("  module: %s\n", buf);
+            if (rdf_version == 1)
+                length -= ll + 1;
+            break;
+
+        case RDFREC_BSS:       /* BSS reservation */
+            nasm_read(&ll, 4, infile);
+            printf("  bss reservation: %08"PRIx32" bytes\n", translateint32_t(ll));
+            if (rdf_version == 1)
+                length -= 5;
+            if (rdf_version > 1 && reclen != 4)
+                printf("    warning: reclen != 4\n");
+            break;
+
+        case RDFREC_COMMON:{
+                uint16_t seg, align;
+                uint32_t size;
+
+                nasm_read(&seg, 2, infile);
+                nasm_read(&size, 4, infile);
+                nasm_read(&align, 2, infile);
+                for (ll = 0; ll < reclen - 8; ll++)
+                    nasm_read(buf + ll, 1, infile);
+                printf("  common: segment %04x = %s, %"PRId32":%d\n",
+                       translateint16_t(seg), buf, translateint32_t(size),
+                       translateint16_t(align));
+                break;
+            }
+
+        default:
+            printf("  unrecognized record (type %d", (int)t);
+            if (rdf_version > 1) {
+                printf(", length %d", (int)reclen);
+                fseek(infile, reclen, SEEK_CUR);
+            } else
+                length--;
+            printf(")\n");
+        }
+        if (rdf_version != 1)
+            length -= 2 + reclen;
+    }
+}
+
+int main(int argc, char **argv)
+{
+    char id[7];
+    int32_t l;
+    uint16_t s;
+    int verbose = 0;
+    int32_t offset;
+    int foundnullsegment = 0;
+    int version;
+    int32_t segmentcontentlength = 0;
+    int nsegments = 0;
+    int32_t headerlength = 0;
+    int32_t objectlength = 0;
+
+    printf("RDOFF dump utility, version %s\n", PROGRAM_VERSION);
+    printf("RDOFF2 revision %s\n", RDOFF2_REVISION);
+    puts("Copyright (c) 1996,99 Julian R Hall\n"
+         "Improvements and fixes (c) 2002-2004 RET & COM Research.");
+
+    if (argc < 2) {
+        fputs("Usage: rdfdump [-v] <filename>\n", stderr);
+        exit(1);
+    }
+
+    rdoff_init();
+
+    if (!strcmp(argv[1], "-v")) {
+        verbose = 1;
+        if (argc < 3) {
+            fputs("required parameter missing\n", stderr);
+            exit(1);
+        }
+        argv++;
+    }
+
+    infile = fopen(argv[1], "rb");
+    if (!infile) {
+        fprintf(stderr, "rdfdump: Could not open %s\n", argv[1]);
+        exit(1);
+    }
+
+    nasm_read(id, 6, infile);
+    if (strncmp(id, "RDOFF", 5)) {
+        fputs("rdfdump: File does not contain valid RDOFF header\n",
+              stderr);
+        exit(1);
+    }
+
+    printf("File %s: RDOFF version %c\n\n", argv[1], id[5]);
+    if (id[5] < '1' || id[5] > '2') {
+        fprintf(stderr, "rdfdump: unknown RDOFF version '%c'\n", id[5]);
+        exit(1);
+    }
+    version = id[5] - '0';
+
+    if (version > 1) {
+        nasm_read(&l, 4, infile);
+        objectlength = translateint32_t(l);
+        printf("Object content size: %"PRId32" bytes\n", objectlength);
+    }
+
+    nasm_read(&l, 4, infile);
+    headerlength = translateint32_t(l);
+    printf("Header (%"PRId32" bytes):\n", headerlength);
+    print_header(headerlength, version);
+
+    if (version == 1) {
+        nasm_read(&l, 4, infile);
+        l = translateint32_t(l);
+        printf("\nText segment length = %"PRId32" bytes\n", l);
+        offset = 0;
+        while (l--) {
+            nasm_read(id, 1, infile);
+            if (verbose) {
+                if (offset % 16 == 0)
+                    printf("\n%08"PRIx32" ", offset);
+                printf(" %02x", (int)(uint8_t)id[0]);
+                offset++;
+            }
+        }
+        if (verbose)
+            printf("\n\n");
+
+        nasm_read(&l, 4, infile);
+        l = translateint32_t(l);
+        printf("Data segment length = %"PRId32" bytes\n", l);
+
+        if (verbose) {
+            offset = 0;
+            while (l--) {
+                nasm_read(id, 1, infile);
+                if (offset % 16 == 0)
+                    printf("\n%08"PRIx32" ", offset);
+                printf(" %02x", (int)(uint8_t)id[0]);
+                offset++;
+            }
+            printf("\n");
+        }
+    } else {
+        do {
+            nasm_read(&s, 2, infile);
+            s = translateint16_t(s);
+            if (!s) {
+                printf("\nNULL segment\n");
+                foundnullsegment = 1;
+                break;
+            }
+            printf("\nSegment:\n  Type   = %04X (%s)\n", (int)s,
+                   translatesegmenttype(s));
+            nsegments++;
+
+            nasm_read(&s, 2, infile);
+            printf("  Number = %04X\n", (int)translateint16_t(s));
+            nasm_read(&s, 2, infile);
+            printf("  Resrvd = %04X\n", (int)translateint16_t(s));
+            nasm_read(&l, 4, infile);
+            l = translateint32_t(l);
+            printf("  Length = %"PRId32" bytes\n", l);
+            segmentcontentlength += l;
+
+            offset = 0;
+            while (l--) {
+                nasm_read(id, 1, infile);
+                if (verbose) {
+                    if (offset % 16 == 0)
+                        printf("\n%08"PRIx32" ", offset);
+                    printf(" %02x", (int)(uint8_t)id[0]);
+                    offset++;
+                }
+            }
+            if (verbose)
+                printf("\n");
+        } while (!feof(infile));
+        if (!foundnullsegment)
+            printf("\nWarning: unexpected end of file - "
+                   "NULL segment not found\n");
+
+        printf("\nTotal number of segments: %d\n", nsegments);
+        printf("Total segment content length: %"PRId32" bytes\n",
+               segmentcontentlength);
+
+        /* calculate what the total object content length should have been */
+        l = segmentcontentlength + 10 * (nsegments + 1) + headerlength + 4;
+        if (l != objectlength)
+            printf("Warning: actual object length (%"PRId32") != "
+                   "stored object length (%"PRId32")\n", l, objectlength);
+    }
+    fclose(infile);
+    return 0;
+}

data/vendor/repo.or.cz/nasm/rdoff/rdflib.1

@@ -0,0 +1,39 @@
+.TH RDFLIB 1 "September 6, 1999" "Debian Project" "Debian Manual"
+.SH NAME
+rdflib \- manage a library file for use with ldrdf(1)
+.SH SYNOPSIS
+.B rdflib
+.I command
+.I arguments
+.SH DESCRIPTION
+.B rdflib
+manages a library file which can be used by
+.BR ldrdf (1).
+It is supplied with a shell script
+.B makelib
+which should probably be used to create libraries.
+.SH COMMANDS
+.TP
+.BI c " library-file"
+Create (or truncate) a library.
+.TP
+.BI a " library-file object-file module"
+Add the
+.I object-file
+to the library under the name
+.IR module .
+.TP
+.BI x " library-file module object-file"
+Extract a
+.I module
+from the library to the file
+.IR object-file .
+.TP
+.B t " library-file"
+Display a list of modules in the library.
+.SH NOTES
+A remove command will be added soon.
+.SH AUTHORS
+Julian Hall <jules@earthcorp.com>.
+.PP
+This manual page was written by Matej Vela <vela@debian.org>.

data/vendor/repo.or.cz/nasm/rdoff/rdflib.c

@@ -0,0 +1,434 @@
+/* ----------------------------------------------------------------------- *
+ *
+ *   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.
+ *
+ * ----------------------------------------------------------------------- */
+
+/* rdflib - manipulate RDOFF library files (.rdl) */
+
+/*
+ * an rdoff library is simply a sequence of RDOFF object files, each
+ * preceded by the name of the module, an ASCII string of up to 255
+ * characters, terminated by a zero.
+ *
+ * When a library is being created, special signature block is placed
+ * in the beginning of the file. It is a string 'RDLIB' followed by a
+ * version number, then int32_t content size and a int32_t time stamp.
+ * The module name of the signature block is '.sig'.
+ *
+ *
+ * There may be an optional directory placed on the end of the file.
+ * The format of the directory will be 'RDLDD' followed by a version
+ * number, followed by the length of the directory, and then the
+ * directory, the format of which has not yet been designed.
+ * The module name of the directory must be '.dir'.
+ *
+ * All module names beginning with '.' are reserved for possible future
+ * extensions. The linker ignores all such modules, assuming they have
+ * the format of a six uint8_t type & version identifier followed by int32_t
+ * content size, followed by data.
+ */
+
+#include "compiler.h"
+#include "rdfutils.h"
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <errno.h>
+#include <string.h>
+#include <time.h>
+
+/* functions supported:
+ *   create a library	(no extra operands required)
+ *   add a module from a library (requires filename and name to give mod.)
+ *   replace a module in a library (requires given name and filename)
+ *   delete a module from a library (requires given name)
+ *   extract a module from the library (requires given name and filename)
+ *   list modules
+ */
+
+const char *usage =
+    "usage:\n"
+    "  rdflib x libname [extra operands]\n\n"
+    "  where x is one of:\n"
+    "    c - create library\n"
+    "    a - add module (operands = filename module-name)\n"
+    "    x - extract               (module-name filename)\n"
+    "    r - replace               (module-name filename)\n"
+    "    d - delete                (module-name)\n" "    t - list\n";
+
+/* Library signature */
+const char *rdl_signature = "RDLIB2", *sig_modname = ".sig";
+
+char **_argv;
+
+#define _ENDIANNESS 0           /* 0 for little, 1 for big */
+
+static void int32_ttolocal(int32_t *l)
+{
+#if _ENDIANNESS
+    uint8_t t;
+    uint8_t *p = (uint8_t *)l;
+
+    t = p[0];
+    p[0] = p[3];
+    p[3] = t;
+    t = p[1];
+    p[1] = p[2];
+    p[2] = p[1];
+#else
+    (void)l;             /* placate optimizers */
+#endif
+}
+
+static char copybytes(FILE * fp, FILE * fp2, int n)
+{
+    int i, t = 0;
+
+    for (i = 0; i < n; i++) {
+        t = fgetc(fp);
+        if (t == EOF) {
+            fprintf(stderr, "rdflib: premature end of file in '%s'\n",
+                    _argv[2]);
+            exit(1);
+        }
+        if (fp2)
+            if (fputc(t, fp2) == EOF) {
+                fprintf(stderr, "rdflib: write error\n");
+                exit(1);
+            }
+    }
+    return (char)t;             /* return last char read */
+}
+
+static int32_t copyint32_t(FILE * fp, FILE * fp2)
+{
+    int32_t l;
+    int i, t;
+    uint8_t *p = (uint8_t *)&l;
+
+    for (i = 0; i < 4; i++) {   /* skip magic no */
+        t = fgetc(fp);
+        if (t == EOF) {
+            fprintf(stderr, "rdflib: premature end of file in '%s'\n",
+                    _argv[2]);
+            exit(1);
+        }
+        if (fp2)
+            if (fputc(t, fp2) == EOF) {
+                fprintf(stderr, "rdflib: write error\n");
+                exit(1);
+            }
+        *p++ = t;
+    }
+    int32_ttolocal(&l);
+    return l;
+}
+
+int main(int argc, char **argv)
+{
+    FILE *fp, *fp2 = NULL, *fptmp;
+    char *p, buf[256], c;
+    int i;
+    int32_t l;
+    time_t t;
+    char rdbuf[10];
+
+    _argv = argv;
+
+    if (argc < 3 || !strncmp(argv[1], "-h", 2)
+        || !strncmp(argv[1], "--h", 3)) {
+        fputs(usage, stdout);
+        exit(1);
+    }
+
+    rdoff_init();
+
+    switch (argv[1][0]) {
+    case 'c':                  /* create library */
+        fp = fopen(argv[2], "wb");
+        if (!fp) {
+            fprintf(stderr, "rdflib: could not open '%s'\n", argv[2]);
+            perror("rdflib");
+            exit(1);
+        }
+        nasm_write(sig_modname, strlen(sig_modname) + 1, fp);
+        nasm_write(rdl_signature, strlen(rdl_signature), fp);
+	t = time(NULL);
+        fwriteint32_t(t, fp);
+        fclose(fp);
+        break;
+
+    case 'a':                  /* add module */
+        if (argc < 5) {
+            fprintf(stderr, "rdflib: required parameter missing\n");
+            exit(1);
+        }
+        fp = fopen(argv[2], "ab");
+        if (!fp) {
+            fprintf(stderr, "rdflib: could not open '%s'\n", argv[2]);
+            perror("rdflib");
+            exit(1);
+        }
+
+        fp2 = fopen(argv[3], "rb");
+        if (!fp2) {
+            fprintf(stderr, "rdflib: could not open '%s'\n", argv[3]);
+            perror("rdflib");
+            exit(1);
+        }
+
+        p = argv[4];
+        do {
+            if (fputc(*p, fp) == EOF) {
+                fprintf(stderr, "rdflib: write error\n");
+                exit(1);
+            }
+        } while (*p++);
+
+        while (!feof(fp2)) {
+            i = fgetc(fp2);
+            if (i == EOF) {
+                break;
+            }
+
+            if (fputc(i, fp) == EOF) {
+                fprintf(stderr, "rdflib: write error\n");
+                exit(1);
+            }
+        }
+        fclose(fp2);
+        fclose(fp);
+        break;
+
+    case 'x':
+        if (argc < 5) {
+            fprintf(stderr, "rdflib: required parameter missing\n");
+            exit(1);
+        }
+    case 't':
+        fp = fopen(argv[2], "rb");
+        if (!fp) {
+            fprintf(stderr, "rdflib: could not open '%s'\n", argv[2]);
+            perror("rdflib");
+            exit(1);
+        }
+
+        fp2 = NULL;
+        while (!feof(fp)) {
+            /* read name */
+            p = buf;
+            while ((*(p++) = (char)fgetc(fp)))
+                if (feof(fp))
+                    break;
+
+            if (feof(fp))
+                break;
+
+            fp2 = NULL;
+            if (argv[1][0] == 'x') {
+                /* check against desired name */
+                if (!strcmp(buf, argv[3])) {
+                    fp2 = fopen(argv[4], "wb");
+                    if (!fp2) {
+                        fprintf(stderr, "rdflib: could not open '%s'\n",
+                                argv[4]);
+                        perror("rdflib");
+                        exit(1);
+                    }
+                }
+            } else
+                printf("%-40s ", buf);
+
+            /* step over the RDOFF file, extracting type information for
+             * the listing, and copying it if fp2 != NULL */
+
+            if (buf[0] == '.') {
+
+                if (argv[1][0] == 't')
+                    for (i = 0; i < 6; i++)
+                        printf("%c", copybytes(fp, fp2, 1));
+                else
+                    copybytes(fp, fp2, 6);
+
+                l = copyint32_t(fp, fp2);
+
+                if (argv[1][0] == 't')
+                    printf("   %"PRId32" bytes content\n", l);
+
+                copybytes(fp, fp2, l);
+            } else if ((c = copybytes(fp, fp2, 6)) >= '2') {    /* version 2 or above */
+                l = copyint32_t(fp, fp2);
+
+                if (argv[1][0] == 't')
+                    printf("RDOFF%c   %"PRId32" bytes content\n", c, l);
+                copybytes(fp, fp2, l);  /* entire object */
+            } else {
+                if (argv[1][0] == 't')
+                    printf("RDOFF1\n");
+                /*
+                 * version 1 object, so we don't have an object content
+                 * length field.
+                 */
+                copybytes(fp, fp2, copyint32_t(fp, fp2));  /* header */
+                copybytes(fp, fp2, copyint32_t(fp, fp2));  /* text */
+                copybytes(fp, fp2, copyint32_t(fp, fp2));  /* data */
+            }
+
+            if (fp2)
+                break;
+        }
+        fclose(fp);
+        if (fp2)
+            fclose(fp2);
+        else if (argv[1][0] == 'x') {
+            fprintf(stderr, "rdflib: module '%s' not found in '%s'\n",
+                    argv[3], argv[2]);
+            exit(1);
+        }
+        break;
+
+    case 'r':                  /* replace module */
+        argc--;
+    case 'd':                  /* delete module */
+        if (argc < 4) {
+            fprintf(stderr, "rdflib: required parameter missing\n");
+            exit(1);
+        }
+
+        fp = fopen(argv[2], "rb");
+        if (!fp) {
+            fprintf(stderr, "rdflib: could not open '%s'\n", argv[2]);
+            perror("rdflib");
+            exit(1);
+        }
+
+        if (argv[1][0] == 'r') {
+            fp2 = fopen(argv[4], "rb");
+            if (!fp2) {
+                fprintf(stderr, "rdflib: could not open '%s'\n", argv[4]);
+                perror("rdflib");
+                exit(1);
+            }
+        }
+
+        fptmp = tmpfile();
+        if (!fptmp) {
+            fprintf(stderr, "rdflib: could not open temporary file\n");
+            perror("rdflib");
+            exit(1);
+        }
+
+        /* copy library into temporary file */
+        fseek(fp, 0, SEEK_END); /* get file length */
+        l = ftell(fp);
+        fseek(fp, 0, SEEK_SET);
+        copybytes(fp, fptmp, l);
+        rewind(fptmp);
+        if (freopen(argv[2], "wb", fp) == NULL) {
+            fprintf(stderr, "rdflib: could not reopen '%s'\n", argv[2]);
+            perror("rdflib");
+            exit(1);
+        }
+
+        while (!feof(fptmp)) {
+            /* read name */
+            p = buf;
+            while ((*(p++) = (char)fgetc(fptmp)))
+                if (feof(fptmp))
+                    break;
+
+            if (feof(fptmp))
+                break;
+
+            /* check against desired name */
+            if (!strcmp(buf, argv[3])) {
+                if (fread(p = rdbuf, 1, sizeof(rdbuf), fptmp) < 10) {
+                    nasm_fatal(0, "short read on input");
+                }
+                l = *(int32_t *)(p + 6);
+                fseek(fptmp, l, SEEK_CUR);
+                break;
+            } else {
+                nasm_write(buf, strlen(buf) + 1, fp);    /* module name */
+                if ((c = copybytes(fptmp, fp, 6)) >= '2') {
+                    l = copyint32_t(fptmp, fp);    /* version 2 or above */
+                    copybytes(fptmp, fp, l);    /* entire object */
+                }
+            }
+        }
+
+        if (argv[1][0] == 'r') {
+            /* copy new module into library */
+            p = argv[3];
+            do {
+                if (fputc(*p, fp) == EOF) {
+                    fprintf(stderr, "rdflib: write error\n");
+                    exit(1);
+                }
+            } while (*p++);
+
+            while (!feof(fp2)) {
+                i = fgetc(fp2);
+                if (i == EOF) {
+                    break;
+                }
+                if (fputc(i, fp) == EOF) {
+                    fprintf(stderr, "rdflib: write error\n");
+                    exit(1);
+                }
+            }
+            fclose(fp2);
+        }
+
+        /* copy rest of library if any */
+        while (!feof(fptmp)) {
+            i = fgetc(fptmp);
+            if (i == EOF) {
+                break;
+            }
+
+            if (fputc(i, fp) == EOF) {
+                fprintf(stderr, "rdflib: write error\n");
+                exit(1);
+            }
+        }
+
+        fclose(fp);
+        fclose(fptmp);
+        break;
+
+    default:
+        fprintf(stderr, "rdflib: command '%c' not recognized\n",
+                argv[1][0]);
+        exit(1);
+    }
+    return 0;
+}