Finished implemenation of commands to delete macros. Added the new commands to

[cc65] / src / ca65 / macpack.c

diff --git a/src/ca65/macpack.c b/src/ca65/macpack.c
index ee46d3e6f02a505ca6243b25f4c86bf7656bc33b..7efd9a56331b5bc94a1a8e8f6b094b63b2c28e31 100644 (file)
--- a/src/ca65/macpack.c
+++ b/src/ca65/macpack.c
@@ -102,9 +102,14 @@ int MacPackFind (const StrBuf* Name)
 
 
 
-void MacPackInsert (int Id)
-/* Insert the macro package with the given id in the input stream */
-{
+int MacPackInsert (int Id)
+/* Insert the macro package with the given id in the input stream. Returns
+ * true if the macro package was found and successfully inserted. Returns
+ * false otherwise.
+ */
+{                   
+    int RetCode;
+
     /* Check the parameter */
     CHECK (Id >= 0 && Id < MAC_COUNT);
 
@@ -116,6 +121,9 @@ void MacPackInsert (int Id)
         /* Insert the builtin package */
         NewInputData (MacPackages[Id].Package, 0);
 
+        /* Always successful */
+        RetCode = 1;
+
     } else {
 
         StrBuf Filename = AUTO_STRBUF_INITIALIZER;
@@ -127,12 +135,15 @@ void MacPackInsert (int Id)
         SB_Terminate (&Filename);
 
         /* Open the macro package as include file */
-        NewInputFile (SB_GetConstBuf (&Filename));
+        RetCode = NewInputFile (SB_GetConstBuf (&Filename));
 
         /* Destroy the contents of Filename */
         SB_Done (&Filename);
 
     }
+
+    /* Return the success code */
+    return RetCode;
 }