aboutsummaryrefslogtreecommitdiffstats
path: root/asmfnums.c
diff options
context:
space:
mode:
authorfishsoupisgood <github@madingley.org>2019-05-27 02:41:51 +0100
committerfishsoupisgood <github@madingley.org>2019-05-27 02:41:51 +0100
commit333b605b2afd472b823aeda0adf0e8b1ea9843c0 (patch)
treebc8f581317897e2e53f278f1716b4471fcdccd4f /asmfnums.c
downloadasl-master.tar.gz
asl-master.tar.bz2
asl-master.zip
initial commit from asl-1.41r8.tar.gzHEADmaster
Diffstat (limited to 'asmfnums.c')
-rw-r--r--asmfnums.c167
1 files changed, 167 insertions, 0 deletions
diff --git a/asmfnums.c b/asmfnums.c
new file mode 100644
index 0000000..7352ff2
--- /dev/null
+++ b/asmfnums.c
@@ -0,0 +1,167 @@
+/* asmfnums.c */
+/*****************************************************************************/
+/* AS-Portierung */
+/* */
+/* Verwaltung von Datei-Nummern */
+/* */
+/* Historie: 15. 5.1996 Grundsteinlegung */
+/* 25. 7.1998 GetFileName jetzt mit int statt Byte */
+/* Verwaltung Adreßbereiche */
+/* Caching FileCount */
+/* 16. 8.1998 Ruecksetzen Adressbereiche */
+/* */
+/*****************************************************************************/
+
+#include "stdinc.h"
+#include <string.h>
+
+#include "strutil.h"
+#include "chunks.h"
+#include "asmdef.h"
+#include "asmsub.h"
+
+#include "asmfnums.h"
+
+#ifdef HAS64
+#define ADRMAX 9223372036854775807ll;
+#else
+#define ADRMAX 4294967295l;
+#endif
+
+
+typedef struct _TToken
+ {
+ struct _TToken *Next;
+ LargeWord FirstAddr,LastAddr;
+ char *Name;
+ } TToken,*PToken;
+
+static PToken FirstFile;
+static int FileCount;
+
+ void InitFileList(void)
+BEGIN
+ FirstFile=Nil; FileCount=0;
+END
+
+
+ void ClearFileList(void)
+BEGIN
+ PToken F;
+
+ while (FirstFile!=Nil)
+ BEGIN
+ F=FirstFile->Next;
+ free(FirstFile->Name);
+ free(FirstFile);
+ FirstFile=F;
+ END
+ FileCount=0;
+END
+
+
+ static PToken SearchToken(int Num)
+BEGIN
+ PToken Lauf=FirstFile;
+
+ while (Num>0)
+ BEGIN
+ if (Lauf==Nil) return Nil;
+ Num--; Lauf=Lauf->Next;
+ END
+ return Lauf;
+END
+
+
+ void AddFile(char *FName)
+BEGIN
+ PToken Lauf,Neu;
+
+ if (GetFileNum(FName)!=-1) return;
+
+ Neu=(PToken) malloc(sizeof(TToken));
+ Neu->Next=Nil;
+ Neu->Name=strdup(FName);
+ Neu->FirstAddr=ADRMAX;
+ Neu->LastAddr=0;
+ if (FirstFile==Nil) FirstFile=Neu;
+ else
+ BEGIN
+ Lauf=FirstFile;
+ while (Lauf->Next!=Nil) Lauf=Lauf->Next;
+ Lauf->Next=Neu;
+ END
+ FileCount++;
+END
+
+
+ Integer GetFileNum(char *Name)
+BEGIN
+ PToken FLauf=FirstFile;
+ int Cnt=0;
+
+ while ((FLauf!=Nil) AND (strcmp(FLauf->Name,Name)!=0))
+ BEGIN
+ Cnt++;
+ FLauf=FLauf->Next;
+ END
+ return (FLauf==Nil)?(-1):(Cnt);
+END
+
+
+ char *GetFileName(int Num)
+BEGIN
+ PToken Lauf=SearchToken(Num);
+ static char *Dummy="";
+
+ return (Lauf==Nil)?(Dummy):(Lauf->Name);
+END
+
+
+ Integer GetFileCount(void)
+BEGIN
+ return FileCount;
+END
+
+
+ void AddAddressRange(int File, LargeWord Start, LargeWord Len)
+BEGIN
+ PToken Lauf=SearchToken(File);
+
+ if (Lauf==Nil) return;
+
+ if (Start<Lauf->FirstAddr) Lauf->FirstAddr=Start;
+ if ((Len+=Start-1)>Lauf->LastAddr) Lauf->LastAddr=Len;
+END
+
+
+ void GetAddressRange(int File, LargeWord *Start, LargeWord *End)
+BEGIN
+ PToken Lauf=SearchToken(File);
+
+ if (Lauf==Nil)
+ BEGIN
+ *Start=ADRMAX; *End=0;
+ END
+ else
+ BEGIN
+ *Start=Lauf->FirstAddr; *End=Lauf->LastAddr;
+ END
+END
+
+ void ResetAddressRanges(void)
+BEGIN
+ PToken Run;
+
+ for (Run=FirstFile; Run!=Nil; Run=Run->Next)
+ BEGIN
+ Run->FirstAddr=ADRMAX;
+ Run->LastAddr=0;
+ END
+END
+
+ void asmfnums_init(void)
+BEGIN
+ FirstFile=Nil; FileCount=0;
+END
+