Add the .LIBRARY /string/ directive.

If no -p options or MCALL environment variable are given, pretend the search path is the current directory ".".
2026-04-30 21:38:29 +00:00 · 2015-05-12 21:32:01 +02:00
parent f75f5e1242
commit 749b0a5d73
4 changed files with 29 additions and 4 deletions
--- a/assemble.c
+++ b/assemble.c
@@ -512,6 +512,27 @@ static int assemble(
                        return str != NULL;
                    }

+                case P_LIBRARY:
+                    if (pass == 0) {
+                        char            hitfile[FILENAME_MAX];
+                        char           *name = getstring(cp, &cp);
+
+                        my_searchenv(name, "MCALL", hitfile, sizeof(hitfile));
+
+                        if (hitfile[0]) {
+                            mlbs[nr_mlbs] = mlb_open(hitfile);
+                            if (mlbs[nr_mlbs] == NULL) {
+                                report(stack->top, "Unable to register macro library \"%s\"\n", hitfile);
+                            } else {
+                                nr_mlbs++;
+                            }
+                        } else {
+                            report(stack->top, "Unable to locale macro library \"%s\"\n", name);
+                        }
+                        free(name);
+                    }
+                    return 1;
+
                case P_MCALL:
                    {
                        STREAM         *macstr;