Import J Hoppe's 20090427 release from http://retrocmp.com/tools/macro-11-on-windows

2026-01-25 19:56:30 +00:00 · 2013-02-15 23:50:38 +04:00
parent 3b8e141917
commit 6a2afc3fa7
34 changed files with 8705 additions and 7735 deletions
--- a/listing.c
+++ b/listing.c
@@ -0,0 +1,172 @@
+#define LISTING__C
+
+#include <stdlib.h>
+#include <string.h>
+#include <stddef.h>
+#include <stdarg.h>
+
+#include "listing.h"                   /* my own definitions */
+
+#include "util.h"
+#include "assemble_globals.h"
+
+
+/* GLOBAL VARIABLES */
+
+int             list_md = 1;    /* option to list macro/rept definition = yes */
+
+int             list_me = 1;    /* option to list macro/rept expansion = yes */
+
+int             list_bex = 1;   /* option to show binary */
+
+int             list_level = 1; /* Listing control level.  .LIST
+                                   increments; .NLIST decrements */
+
+static char    *listline;       /* Source lines */
+
+static char    *binline;        /* for octal expansion */
+
+FILE           *lstfile = NULL;
+
+
+
+
+/* do_list returns TRUE if listing is enabled. */
+
+static int dolist(
+    void)
+{
+    int             ok = lstfile != NULL && pass > 0 && list_level > 0;
+
+    return ok;
+}
+
+/* list_source saves a text line for later listing by list_flush */
+
+void list_source(
+    STREAM *str,
+    char *cp)
+{
+    if (dolist()) {
+        int             len = strcspn(cp, "\n");
+
+        /* Save the line text away for later... */
+        if (listline)
+            free(listline);
+        listline = memcheck(malloc(len + 1));
+        memcpy(listline, cp, len);
+        listline[len] = 0;
+
+        if (!binline)
+            binline = memcheck(malloc(sizeof(LSTFORMAT) + 16));
+
+        sprintf(binline, "%*s%*d", SIZEOF_MEMBER(LSTFORMAT, flag), "", SIZEOF_MEMBER(LSTFORMAT, line_number),
+                str->line);
+    }
+}
+
+/* list_flush produces a buffered list line. */
+
+void list_flush(
+    void)
+{
+    if (dolist()) {
+        padto(binline, offsetof(LSTFORMAT, source));
+        fputs(binline, lstfile);
+        fputs(listline, lstfile);
+        fputc('\n', lstfile);
+        listline[0] = 0;
+        binline[0] = 0;
+    }
+}
+
+/* list_fit checks to see if a word will fit in the current listing
+   line.  If not, it flushes and prepares another line. */
+
+static void list_fit(
+    STREAM *str,
+    unsigned addr)
+{
+    int             len = strlen(binline);
+    size_t          col1 = offsetof(LSTFORMAT, source);
+    size_t          col2 = offsetof(LSTFORMAT, pc);
+
+    if (strlen(binline) >= col1) {
+        int             offset = offsetof(LSTFORMAT, pc);
+
+        list_flush();
+        listline[0] = 0;
+        binline[0] = 0;
+        sprintf(binline, "%*s %6.6o", offsetof(LSTFORMAT, pc), "", addr);
+        padto(binline, offsetof(LSTFORMAT, words));
+    } else if (strlen(binline) <= col2) {
+        sprintf(binline, "%*s%*d %6.6o", SIZEOF_MEMBER(LSTFORMAT, flag), "",
+                SIZEOF_MEMBER(LSTFORMAT, line_number), str->line, addr);
+        padto(binline, offsetof(LSTFORMAT, words));
+    }
+}
+
+/* list_value is used to show a computed value */
+
+void list_value(
+    STREAM *str,
+    unsigned word)
+{
+    if (dolist()) {
+        /* Print the value and go */
+        binline[0] = 0;
+        sprintf(binline, "%*s%*d %6.6o", SIZEOF_MEMBER(LSTFORMAT, flag), "",
+                SIZEOF_MEMBER(LSTFORMAT, line_number), str->line, word & 0177777);
+    }
+}
+
+/* Print a word to the listing file */
+
+void list_word(
+    STREAM *str,
+    unsigned addr,
+    unsigned value,
+    int size,
+    char *flags)
+{
+    if (dolist()) {
+        list_fit(str, addr);
+        if (size == 1)
+            sprintf(binline + strlen(binline), "   %3.3o%1.1s ", value & 0377, flags);
+        else
+            sprintf(binline + strlen(binline), "%6.6o%1.1s ", value & 0177777, flags);
+    }
+}
+
+
+
+/* reports errors */
+void report(
+    STREAM *str,
+    char *fmt,
+    ...)
+{
+    va_list         ap;
+    char           *name = "**";
+    int             line = 0;
+
+    if (!pass)
+        return;                        /* Don't report now. */
+
+    if (str) {
+        name = str->name;
+        line = str->line;
+    }
+
+    fprintf(stderr, "%s:%d: ***ERROR ", name, line);
+    va_start(ap, fmt);
+    vfprintf(stderr, fmt, ap);
+    va_end(ap);
+
+    if (lstfile) {
+        fprintf(lstfile, "%s:%d: ***ERROR ", name, line);
+        va_start(ap, fmt);
+        vfprintf(lstfile, fmt, ap);
+        va_end(ap);
+    }
+}