From 79817be2151a8c590738100dbbd1eddfc0f67b40 Mon Sep 17 00:00:00 2001
From: jesusc <jesusc@4a8a32a2-be11-0410-ad9d-d568d2c75423>
Date: Sun, 6 Jul 2003 19:31:23 +0000
Subject: [PATCH] Sdcc librarian

git-svn-id: https://sdcc.svn.sourceforge.net/svnroot/sdcc/trunk/sdcc@2721 4a8a32a2-be11-0410-ad9d-d568d2c75423
---
 support/librarian/sdcclib.c | 518 ++++++++++++++++++++++++++++++++++++
 1 file changed, 518 insertions(+)
 create mode 100644 support/librarian/sdcclib.c

diff --git a/support/librarian/sdcclib.c b/support/librarian/sdcclib.c
new file mode 100644
index 00000000..2993c32f
--- /dev/null
+++ b/support/librarian/sdcclib.c
@@ -0,0 +1,518 @@
+/* sdcclib.c: sdcc librarian
+   Copyright (C) 2003, Jesus Calvino-Fraga jesusc(at)ece.ubc.ca
+
+This program is free software; you can redistribute it and/or modify it
+under the terms of the GNU General Public License as published by the
+Free Software Foundation; either version 2, or (at your option) any
+later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software
+Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
+
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+#define _POSIX_
+#include <limits.h>
+
+char ProgName[PATH_MAX];
+char LibName[PATH_MAX];
+char LibNameTmp[PATH_MAX];
+char IndexName[PATH_MAX];
+char RelName[PATH_MAX];
+char AdbName[PATH_MAX];
+
+#define version "0.1"
+
+#define OPT_ADD_REL 0
+#define OPT_EXT_REL 1
+#define OPT_DEL_REL 2
+#define OPT_DUMP_SYM 3
+#define OPT_DUMP_MOD 4
+
+#define MAXLINE 254
+#define EQ(A,B) !strcmp((A),(B))
+#define NEQ(A,B) strcmp((A),(B))
+
+int action=0;
+FILE *lib, *newlib, *rel, *adb, *index;
+char FLine[MAXLINE+1];
+char ModName[MAXLINE+1];
+int state=0;
+
+void GetNameFromPath(char * path, char * name)
+{
+	int i, j;
+
+	for(i=0; path[i]!=0; i++);
+	for(; (path[i]!='\\')&&(path[i]!='/')&&(i>=0); i--);
+	for(j=0, i++; (path[i]!='.')&&(path[i]!=0); i++, j++) name[j]=path[i];
+	name[j]=0;
+}
+
+void ChangeExtension(char * path, char * ext)
+{
+	int i, j;
+
+	for(i=0; path[i]!=0; i++);
+	for(; (path[i]!='.')&&(path[i]!='\\')&&(path[i]!='/')&&(i>=0); i--);
+	if(path[i]=='.')
+	{
+	    path[i+1]=0;
+        strcat(path, ext);
+	}
+	else
+	{
+	    printf("ERROR: Filename '%s' must have an extension\n", path);
+	    exit(1);
+	}
+}
+
+void CleanLine(char * buff)
+{
+    int j, l;
+    l=strlen(buff);
+    for(j=0; j<l; j++)
+    {
+        if((buff[j]=='\n')||(buff[j]=='\r')) buff[j]=0;
+    }
+}
+
+int set_options (char * opt)
+{
+	char temp[255];
+	int rvalue=0, unknown=0;
+	static char Help[] =
+	"Usage: %s [-options] library relfile\n\n"
+	"available options:\n"
+	"a - Adds relfile to library.  If relfile exists, replaces it.\n"
+	"d - Deletes relfile from library.\n"
+	"e - Extracts relfile from library.\n"
+	"s - Dumps symbols of library.\n"
+	"m - Dumps modules of library.\n"
+	"v - Displays program version.\n"
+	"h - This help.\n";
+
+	switch (opt[0])
+	{
+		default:
+		    unknown=1;
+		case 'h':
+		case '?':
+		case 'v':
+		    printf("%s: SDCC librarian version %s\n", ProgName, version);
+		    printf("by Jesus Calvino-Fraga\n\n");
+			if (unknown) printf("Unknown option: %c\n", opt[0]);
+		    if (opt[0]=='v') exit(0);
+			printf(Help, ProgName);
+			exit(1);
+		break;
+		case 'a':
+		    action=OPT_ADD_REL;
+		break;
+		case 'e':
+		    action=OPT_EXT_REL;
+		break;
+		case 'd':
+		    action=OPT_DEL_REL;
+		break;
+		case 's':
+		    action=OPT_DUMP_SYM;
+		break;
+		case 'm':
+		    action=OPT_DUMP_MOD;
+		break;
+	}
+	return (rvalue);
+}
+
+void ProcLineOptions (int argc, char **argv)
+{
+	int cont_par=0;
+	int i, j;
+
+	/*Get the program name*/
+    GetNameFromPath(argv[0], ProgName);
+
+	for (j=1; j<argc; j++)
+	{
+		if(argv[j][0]=='-')
+		{
+			for(i=1; argv[j][i]!=0 ; i++)
+				if (set_options(&argv[j][i])) break;
+		}
+		else
+		{
+			switch(cont_par)
+			{
+				case 0:
+					cont_par++;
+					strcpy(LibName, argv[j]);
+				break;
+
+				case 1:
+					cont_par++;
+					strcpy(RelName, argv[j]);
+				break;
+
+				default:
+					cont_par++;
+				break;
+			}
+		}
+	}
+
+	if ( (cont_par!=2) && (action<OPT_DUMP_SYM) )
+	{
+		printf("Error: Too %s arguments.\n", cont_par<2?"few":"many");
+		set_options("h"); /*Show help and exit*/
+	}
+	else if ( (cont_par!=1) && (action>=OPT_DUMP_SYM) )
+	{
+		printf("Error: Too %s arguments.\n", cont_par<1?"few":"many");
+		set_options("h"); /*Show help and exit*/
+	}
+}
+
+void AddRel(void)
+{
+    int inrel=0;
+    long newlibpos, indexsize;
+    char symname[MAXLINE+1];
+    char c;
+
+    strcpy(LibNameTmp, LibName);
+    ChangeExtension(LibNameTmp, "__L");
+
+    strcpy(IndexName, LibName);
+    ChangeExtension(IndexName, "__I");
+
+    strcpy(AdbName, RelName);
+    ChangeExtension(AdbName, "adb");
+
+    lib=fopen(LibName, "r");
+
+    if(action==OPT_ADD_REL)
+    {
+        rel=fopen(RelName, "r");
+        if(rel==NULL)
+        {
+            printf("ERROR: Couldn't open file '%s'", RelName);
+            fclose(lib);
+            return;
+        }
+    }
+    GetNameFromPath(RelName, ModName);
+
+    newlib=fopen(LibNameTmp, "w");
+    if(newlib==NULL)
+    {
+        printf("ERROR: Couldn't create temporary file '%s'", LibNameTmp);
+        fclose(lib);
+        fclose(rel);
+        return;
+    }
+    fprintf(newlib, "<FILES>\n\n");
+
+    index=fopen(IndexName, "w");
+    if(index==NULL)
+    {
+        printf("ERROR: Couldn't create temporary file '%s'", IndexName);
+        fclose(lib);
+        fclose(newlib);
+        fclose(rel);
+        return;
+    }
+
+    if(lib!=NULL) while(!feof(lib))
+    {
+        FLine[0]=0;
+        fgets(FLine, MAXLINE, lib);
+        CleanLine(FLine);
+
+        switch(state)
+        {
+            case 0:
+                if(EQ(FLine, "<FILE>"))
+                {
+                    FLine[0]=0;
+                    fgets(FLine, MAXLINE, lib);
+                    CleanLine(FLine);
+                    if(NEQ(FLine, ModName))
+                    {
+                        newlibpos=ftell(newlib);
+                        fprintf(newlib, "<FILE>\n%s\n", FLine);
+                        fprintf(index, "<MODULE>\n%s %ld\n", FLine, newlibpos);
+                        state++;
+                    }
+                }                
+            break;
+            case 1:
+                fprintf(newlib, "%s\n", FLine);
+                if(EQ(FLine, "</FILE>"))
+                {
+                    fprintf(newlib, "\n");
+                    fprintf(index, "</MODULE>\n\n");
+                    state=0;
+                    inrel=0;
+                }
+                else if(EQ(FLine, "<REL>")) inrel=1;
+                else if(EQ(FLine, "</REL>")) inrel=0;
+                if(inrel)
+                {
+                    if(FLine[0]=='S')
+                    {
+                        sscanf(FLine, "S %s %c", symname, &c);
+                        if(c=='D') fprintf(index, "%s\n", symname);
+                    }
+                }
+            break;
+        }
+    }
+
+    if(action==OPT_ADD_REL)
+    {
+        newlibpos=ftell(newlib);
+        fprintf(newlib, "<FILE>\n%s\n<REL>\n", ModName);
+        fprintf(index, "<MODULE>\n%s %ld\n", ModName, newlibpos);
+        while(!feof(rel))
+        {
+            FLine[0]=0;
+            fgets(FLine, MAXLINE, rel);
+            CleanLine(FLine);
+            if(strlen(FLine)>0)
+            {
+                fprintf(newlib, "%s\n", FLine);
+            }
+            if(FLine[0]=='S')
+            {
+                sscanf(FLine, "S %s %c", symname, &c);
+                if(c=='D') fprintf(index, "%s\n", symname);
+            }
+        }
+        fclose(rel);
+        fprintf(index, "</MODULE>\n");
+        fprintf(newlib, "</REL>\n<ADB>\n");
+    
+        adb=fopen(AdbName, "r");
+        if(adb!=NULL)
+        {
+            while(!feof(rel))
+            {
+                FLine[0]=0;
+                fgets(FLine, MAXLINE, adb);
+                CleanLine(FLine);
+                if(strlen(FLine)>0)
+                {
+                    fprintf(newlib, "%s\n", FLine);
+                }
+            }
+            fclose(adb);
+        }
+        fprintf(newlib, "</ADB>\n</FILE>\n");
+    }
+
+    /*Put the temporary files together as a new library file*/
+    indexsize=ftell(index);
+    fflush(index);
+    fflush(newlib);
+    fclose(newlib);
+    if(lib!=NULL) fclose(lib);
+    fclose(index);
+
+    newlib=fopen(LibNameTmp, "r");
+    lib=fopen(LibName, "w");
+    index=fopen(IndexName, "r");
+
+    fprintf(lib, "<SDCCLIB>\n\n");
+    fprintf(lib, "<INDEX>\n");
+
+    indexsize+=ftell(lib)+12+14;
+    fprintf(lib, "%10ld\n", indexsize);
+
+    while(!feof(index))
+    {
+        FLine[0]=0;
+        fgets(FLine, MAXLINE, index);
+        fprintf(lib, "%s", FLine);
+    }
+    fprintf(lib, "\n</INDEX>\n\n");
+
+    while(!feof(newlib))
+    {
+        FLine[0]=0;
+        fgets(FLine, MAXLINE, newlib);
+        fprintf(lib, "%s", FLine);
+    }
+    fprintf(lib, "\n</FILES>\n\n");
+    fprintf(lib, "</SDCCLIB>\n");
+
+    fclose(newlib);
+    fclose(lib);
+    fclose(index);
+
+    unlink(LibNameTmp);
+    unlink(IndexName);
+}
+
+void ExtractRel(void)
+{
+    strcpy(AdbName, RelName);
+    ChangeExtension(AdbName, "adb");
+
+    lib=fopen(LibName, "r");
+    if(lib==NULL)
+    {
+        printf("ERROR: Couldn't open file '%s'", LibName);
+        return;
+    }
+
+    rel=fopen(RelName, "w");
+    if(rel==NULL)
+    {
+        printf("ERROR: Couldn't create file '%s'", RelName);
+        fclose(lib);
+        return;
+    }
+    GetNameFromPath(RelName, ModName);
+
+    adb=fopen(AdbName, "w");
+    if(adb==NULL)
+    {
+        printf("ERROR: Couldn't create file '%s'", AdbName);
+        fclose(lib);
+        fclose(rel);
+        return;
+    }
+
+    while(!feof(lib))
+    {
+        if(state==5) break;
+        FLine[0]=0;
+        fgets(FLine, MAXLINE, lib);
+        CleanLine(FLine);
+
+        switch(state)
+        {
+            case 0:
+                if(EQ(FLine, "<FILE>"))
+                {
+                    FLine[0]=0;
+                    fgets(FLine, MAXLINE, lib);
+                    CleanLine(FLine);
+                    if(EQ(FLine, ModName)) state=1;
+                }                
+            break;
+            case 1:
+                if(EQ(FLine, "<REL>")) state=2;
+            break;
+            case 2:
+                if(EQ(FLine, "</REL>"))
+                    state=3;
+                else
+                    fprintf(rel, "%s\n", FLine);
+            break;
+            case 3:
+                if(EQ(FLine, "<ADB>")) state=4;
+            break;
+            case 4:
+                if(EQ(FLine, "</ADB>"))
+                    state=5;
+                else
+                    fprintf(adb, "%s\n", FLine);
+            break; 
+        }
+    }
+    
+    fclose(rel);
+    fclose(lib);
+    fclose(adb);
+}
+
+void DumpSymbols(void)
+{
+    lib=fopen(LibName, "r");
+    if(lib==NULL)
+    {
+        printf("ERROR: Couldn't open file '%s'", LibName);
+        return;
+    }
+
+    while(!feof(lib))
+    {
+        if(state==3) break;
+        FLine[0]=0;
+        fgets(FLine, MAXLINE, lib);
+        CleanLine(FLine);
+
+        switch(state)
+        {
+            case 0:
+                if(EQ(FLine, "<INDEX>")) state=1;
+            break;
+            case 1:
+                if(EQ(FLine, "<MODULE>"))
+                {
+                    FLine[0]=0;
+                    fgets(FLine, MAXLINE, lib);
+                    sscanf(FLine, "%s", ModName);
+                    if(action==OPT_DUMP_SYM)
+                    {
+                        printf("%s.rel:\n", ModName);
+                        state=2;
+                    }
+                    else
+                    {
+                        printf("%s.rel\n", ModName);
+                    }
+                }
+                else if(EQ(FLine, "</INDEX>")) state=3;
+            break;
+            case 2:
+                if(EQ(FLine, "</MODULE>"))
+                {
+                    state=1;
+                    printf("\n");
+                }
+                else printf("   %s\n", FLine);
+            break;
+            default:
+                state=3;
+            case 3:
+            break;
+        }
+    }
+    
+    fclose(lib);
+}
+
+int main(int argc, char **argv)
+{
+	ProcLineOptions (argc, argv);
+
+	switch(action)
+	{
+	    default:
+	        action=OPT_ADD_REL;
+		case OPT_ADD_REL:
+		case OPT_DEL_REL:
+		    AddRel();
+		break;
+		
+		case OPT_EXT_REL:
+            ExtractRel();
+        break;
+        
+		case OPT_DUMP_SYM:
+		case OPT_DUMP_MOD:
+		    DumpSymbols();
+		break;
+	}
+	return 0; //Success!!!
+}
-- 
2.47.2