/* asmdef.c */
/*****************************************************************************/
/* SPDX-License-Identifier: GPL-2.0-only OR GPL-3.0-only                     */
/*                                                                           */
/* AS-Portierung                                                             */
/*                                                                           */
/* global benutzte Variablen                                                 */
/*                                                                           */
/*****************************************************************************/

#include "stdinc.h"

#include <errno.h>
#include <string.h>

#include "strutil.h"
#include "stringlists.h"
#include "chunks.h"

#include "asmdef.h"
#include "asmsub.h"
#include "errmsg.h"

char SrcSuffix[] = ".asm";             /* Standardendungen: Hauptdatei */
char IncSuffix[] = ".inc";             /* Includedatei */
char PrgSuffix[] = ".p";               /* Programmdatei */
char LstSuffix[] = ".lst";             /* Listingdatei */
char MacSuffix[] = ".mac";             /* Makroausgabe */
char PreSuffix[] = ".i";               /* Ausgabe Makroprozessor */
char LogSuffix[] = ".log";             /* Fehlerdatei */
char MapSuffix[] = ".map";             /* Debug-Info/Map-Format */
char OBJSuffix[] = ".obj";

const char *EnvName = "ASCMD";         /* Environment-Variable fuer Default-
                                          Parameter */

StringPtr SourceFile;                    /* Hauptquelldatei */

StringPtr CursUp;		            /*   "     "  Cursor hoch */

LargeWord *PCs;                          /* Programmzaehler */
Boolean RelSegs;                         /* relokatibles Segment ? */
LargeWord StartAdr;                      /* Programmstartadresse */
Boolean StartAdrPresent;                 /*          "           definiert? */
LargeWord AfterBSRAddr;                  /* address right behind last BSR */
LargeWord *Phases;                       /* Verschiebungen */
Word Grans[SegCountPlusStruct];          /* Groesse der Adressierungselemente */
Word ListGrans[SegCountPlusStruct];      /* Wortgroesse im Listing */
Boolean grans_bits_unused[SegCountPlusStruct],  /* word size is partially unused */
        list_grans_bits_unused[SegCountPlusStruct];
ChunkList SegChunks[SegCountPlusStruct]; /* Belegungen */
as_addrspace_t ActPC;                    /* gewaehlter Programmzaehler */
Boolean PCsUsed[SegCountPlusStruct];     /* PCs bereits initialisiert ? */
LargeWord *SegInits;                     /* Segmentstartwerte */
LargeWord *SegLimits;                    /* Segmentgrenzwerte */
LongInt ValidSegs;                       /* erlaubte Segmente */
Boolean ENDOccured;	                 /* END-Statement aufgetreten ? */
Boolean Retracted;	                 /* Codes zurueckgenommen ? */
Boolean ListToStdout, ListToNull;        /* Listing auf Konsole/Nulldevice ? */

void (*pASSUMEOverride)(void);

Integer PassNo;                          /* Durchlaufsnummer */
Integer JmpErrors;                       /* Anzahl fraglicher Sprungfehler */
Boolean ThrowErrors;                     /* Fehler verwerfen bei Repass ? */
LongWord MaxErrors;                      /* terminate upon n errors? */
Boolean Repass;		                       /* noch ein Durchlauf erforderlich */
Byte MaxSymPass;	                       /* Pass, nach dem Symbole definiert sein muessen */
Byte ShareMode;                          /* 0=kein SHARED,1=Pascal-,2=C-Datei, 3=ASM-Datei */
DebugType DebugMode;                     /* Ausgabeformat Debug-Datei */
Word NoICEMask;                          /* which symbols to use in NoICE dbg file */
Byte ListMode;                           /* 0=kein Listing,1=Konsole,2=auf Datei */
Integer MaxIncludeLevel;                 /* maximum include nesting level */
Boolean MakeUseList;                     /* Belegungsliste ? */
Boolean MakeCrossList;	                 /* Querverweisliste ? */
Boolean MakeSectionList;                 /* Sektionsliste ? */
Boolean MakeIncludeList;                 /* Includeliste ? */
Boolean DefRelaxedMode;                  /* alle Integer-Syntaxen zulassen ? */
as_dynstr_t def_int_syntax;              /* default integer syntax modifiers */
Word ListMask;                           /* Listingmaske */
Boolean list_macro_handles;              /* add macros' symbol handles to listing? */
ShortInt ExtendErrors;	                 /* erweiterte Fehlermeldungen */
Integer EnumSegment;                     /* ENUM state & config */
LongInt EnumIncrement, EnumCurrentValue;
Boolean NumericErrors;                   /* Fehlermeldungen mit Nummer */
Boolean CodeOutput;	                     /* Code erzeugen */
Boolean MacProOutput;                    /* Makroprozessorausgabe schreiben */
Boolean MacroOutput;                     /* gelesene Makros schreiben */
Boolean HardRanges;                      /* Bereichsfehler echte Fehler ? */
Boolean label_leading_colon;             /* Labels have colon at beginning instead of end? */
const char *DivideChars;                 /* Trennzeichen fuer Parameter. Inhalt Read Only! */
Boolean HasAttrs;                        /* Opcode hat Attribut */
const char *AttrChars;                   /* Zeichen, mit denen Attribut abgetrennt wird */
Boolean MsgIfRepass;                     /* Meldungen, falls neuer Pass erforderlich */
Integer PassNoForMessage;                /* falls ja: ab welchem Pass ? */
Boolean CaseSensitive;                   /* Gross/Kleinschreibung unterscheiden ? */
LongInt NestMax;                         /* max. nesting level of a macro */
Boolean GNUErrors;                       /* GNU-error-style messages ? */

FILE *PrgFile = NULL;                    /* Codedatei */

StringPtr ErrorPath, ErrorName;          /* Ausgabedatei Fehlermeldungen */
StringPtr OutName;                       /* Name Code-Datei */
Integer CurrIncludeLevel;                /* current include nesting level */
StringPtr CurrFileName;                  /* mom. bearbeitete Datei */
LongInt CurrLine;                        /* virtuelle Position */
LongInt LineSum;                         /* Gesamtzahl Quellzeilen */
LongInt MacLineSum;                      /* inkl. Makroexpansion */

LongInt NOPCode;                         /* Maschinenbefehl NOP zum Stopfen */
Boolean TurnWords;                       /* TRUE  = Motorola-Wortformat */
                                         /* FALSE = Intel-Wortformat */
Byte HeaderID;	                         /* Kennbyte des Codeheaders */
const char *PCSymbol;	                   /* Symbol, womit Programmzaehler erreicht wird. Inhalt Read Only! */
Boolean (*SetIsOccupiedFnc)(void),       /* TRUE: SET instr, to be parsed by code generator */
        (*SaveIsOccupiedFnc)(void),      /* ditto for SAVE */
        (*RestoreIsOccupiedFnc)(void);   /* ditto for RESTORE */
Boolean SwitchIsOccupied,                /* TRUE: SWITCH/PAGE/SHIFT ist Prozessorbefehl */
        PageIsOccupied,
        ShiftIsOccupied;
Boolean multi_char_le;
Boolean (*DecodeAttrPart)(void);         /* dissect attribute of instruction */
void (*MakeCode)(void);                  /* Codeerzeugungsprozedur */
Boolean (*ChkPC)(LargeWord Addr);        /* ueberprueft Codelaengenueberschreitungen */
Boolean (*IsDef)(void);	                 /* ist Label nicht als solches zu werten ? */
void (*SwitchFrom)(void) = NULL;         /* bevor von einer CPU weggeschaltet wird */
void (*InternSymbol)(char *Asc, TempResult *Erg); /* vordefinierte Symbole ? */
DissectBitProc DissectBit;
dissect_reg_fnc_t DissectReg;
as_qualify_quote_fnc_t QualifyQuote;

StringPtr IncludeList;	                /* Suchpfade fuer Includedateien */
Integer IncDepth, NextIncDepth,         /* Verschachtelungstiefe INCLUDEs */
        MaxIncDepth;
FILE *ErrorFile = NULL;                 /* Fehlerausgabe */
FILE *LstFile = NULL;                   /* Listdatei */
FILE *ShareFile = NULL;                 /* Sharefile */
FILE *MacProFile = NULL;                /* Makroprozessorausgabe */
FILE *MacroFile = NULL;                 /* Ausgabedatei Makroliste */
Boolean InMacroFlag;                    /* momentan wird Makro expandiert */
StringPtr LstName;                      /* Name der Listdatei */
StringPtr MacroName, MacProName;
tLstMacroExp DoLst, NextDoLst;          /* Listing an */
StringPtr ShareName;                    /* Name des Sharefiles */

CPUVar MomCPU, MomVirtCPU;              /* definierter/vorgegaukelter Prozessortyp */
StringPtr MomCPUArgs;                   /* Arguments for Current Processor Type */
char DefCPU[20];                        /* per Kommandozeile vorgegebene CPU */
char MomCPUIdent[20],                   /* dessen Name in ASCII */
     MomFPUIdent[20],                   /* ditto FPU */
     MomPMMUIdent[20];                  /* ditto PMMU */

int OutRadixBase;                       /* dito fuer Ausgabe */
int ListRadixBase;                      /* ditto for listing */
Boolean ListPCZeroPad;			/* PC with leading zeros? */
const char *pCommentLeadIn,             /* list of comment lead-in sequences */
           *p_extra_comment_leadin;

tStrComp *ArgStr;                       /* Komponenten der Zeile */
tStrComp LabPart, CommPart, ArgPart, OpPart, AttrPart;
char AttrSplit;
Boolean oppart_leading_dot;
int ArgCnt;                             /* Argumentzahl */
int AllocArgCnt;
tStrComp SrcLine;                       /* eingelesene Zeile */
#ifdef PROFILE_MEMO
unsigned NumMemo;
unsigned long NumMemoCnt, NumMemoSum;
#endif

Byte LstCounter;                        /* Zeilenzaehler fuer automatischen Umbruch */
Word PageCounter[ChapMax + 1];          /* hierarchische Seitenzaehler */
Byte ChapDepth;                         /* momentane Kapitelverschachtelung */
StringPtr ListLine;                     /* alternative Ausgabe vor Listing fuer EQU */
Byte PageLength, PageWidth;             /* Seitenlaenge/breite in Zeilen/Spalten */
tLstMacroExpMod LstMacroExpModOverride, /* Override macro expansion ? */
                LstMacroExpModDefault;
Boolean DottedStructs;                  /* structure elements with dots */
StringPtr PrtInitString;                /* Druckerinitialisierungsstring */
StringPtr PrtExitString;                /* Druckerdeinitialisierungsstring */
StringPtr PrtTitleString;               /* Titelzeile */

LongInt MomSectionHandle;               /* mom. Namensraum */
PSaveSection SectionStack;              /* gespeicherte Sektionshandles */
tSavePhase *pPhaseStacks[SegCount];	/* saves nested PHASE values */

tSymbolSize AttrPartOpSize[2];          /* instruction operand size(s) deduced from insn attribute */
LongWord MaxCodeLen = 0;                /* max. length of generated code */
LongInt CodeLen;                        /* Laenge des erzeugten Befehls */
LongWord *DAsmCode;                     /* Zwischenspeicher erzeugter Code */
Word *WAsmCode;
Byte *BAsmCode;

Boolean DontPrint;                      /* Flag:PC veraendert, aber keinen Code erzeugt */
Word ActListGran,                       /* uebersteuerte List-Granularitaet */
     act_list_gran_bits_unused;

Byte StopfZahl;                         /* Anzahl der im 2.Pass festgestellten
                                           ueberfluessigen Worte, die mit NOP ge-
                                           fuellt werden muessen */

Boolean SuppWarns;

PTransTable TransTables,                /* Liste mit Codepages */
            CurrTransTable;             /* aktuelle Codepage */

PDefinement FirstDefine;                /* Liste von Praeprozessor-Defines */

PSaveState FirstSaveState;              /* gesicherte Zustaende */

Boolean MakeDebug;                      /* Debugginghilfe */
FILE *Debug;

Boolean WasIF, WasMACRO;

void AsmDefInit(void)
{
  LongInt z;

  DoLst = eLstMacroExpAll;
  PassNo = 1;

  LineSum = 0;

  for (z = 0; z <= ChapMax; PageCounter[z++] = 0);
  LstCounter = 0;
  ChapDepth = 0;

  PrtInitString[0] = '\0';
  PrtExitString[0] = '\0';
  PrtTitleString[0] = '\0';

  CurrFileName[0] = '\0';

  FirstDefine = NULL;
  FirstSaveState = NULL;
}

void NullProc(void)
{
}

void Default_InternSymbol(char *Asc, TempResult *Erg)
{
  UNUSED(Asc);

  Erg->Typ = TempNone;
}

void Default_DissectBit(char *pDest, size_t DestSize, LargeWord BitSpec)
{
  HexString(pDest, DestSize, BitSpec, 0);
}

static char *GetString(void)
{
  return (char*)malloc(STRINGSIZE * sizeof(char));
}

int SetMaxCodeLen(LongWord NewMaxCodeLen)
{
  if (NewMaxCodeLen > MaxCodeLen_Max)
    return ENOMEM;
  if (NewMaxCodeLen > MaxCodeLen)
  {
    void *pNewMem;

    if (!MaxCodeLen)
      pNewMem = (LongWord *) malloc(NewMaxCodeLen);
    else
      pNewMem = (LongWord *) realloc(DAsmCode, NewMaxCodeLen);
    if (!pNewMem)
      return ENOMEM;

    DAsmCode = (LongWord *)pNewMem;
    WAsmCode = (Word *) DAsmCode;
    BAsmCode = (Byte *) DAsmCode;
    memset(BAsmCode + MaxCodeLen, 0, NewMaxCodeLen - MaxCodeLen);
    MaxCodeLen = NewMaxCodeLen;
  }
  return 0;
}

/*!------------------------------------------------------------------------
 * \fn     AppendArg(size_t ReqSize)
 * \brief  extend list of arguments by one more at the end
 * \param  ReqSize length of argument to store (excluding NUL at end)
 * ------------------------------------------------------------------------ */

/* NOTICE: Due to port from Pascal sources, ArgStr[] is still indexed starting at
   one instead of zero:

   - ArgStr[0] is unused.
   - If ArgCnt == n, ArgStr[1] to ArgStr[n] are used.  */

void AppendArg(size_t ReqSize)
{
  if (ArgCnt >= ArgCntMax)
    WrXError(ErrNum_InternalError, "MaxArgCnt");
  ++ArgCnt;

  if (ArgCnt >= AllocArgCnt)
  {
    size_t NewArgStrSize = sizeof(*ArgStr) * (ArgCnt + 1); /* one more, [0] is unused */
    int z;

    ArgStr = ArgStr ? (tStrComp*)realloc(ArgStr, NewArgStrSize) : (tStrComp*)malloc(NewArgStrSize);
    for (z = AllocArgCnt; z <= ArgCnt; z++)
      StrCompAlloc(&ArgStr[z], STRINGSIZE);
    AllocArgCnt = ArgCnt + 1;
  }

  if (ArgStr[ArgCnt].str.capacity <= ReqSize)
  {
    if (as_dynstr_realloc(&ArgStr[ArgCnt].str, as_dynstr_roundup_len(ReqSize)))
      WrXError(ErrNum_InternalError, "out of memory");
  }
}

/*!------------------------------------------------------------------------
 * \fn     InsertArg(unsigned Index, size_t ReqSize)
 * \brief  insert one more arg @ given position
 * \param  Index insertion position
 * \param  ReqSize requested size of new arg
 * ------------------------------------------------------------------------ */

void InsertArg(int Index, size_t ReqSize)
{
  int z;

  /* 0 should never be passed... */

  if (Index < 1)
    Index = 1;

  /* Insertion beyond end means appending */

  if (Index > ArgCnt)
  {
    AppendArg(ReqSize);
    return;
  }

  /* current last arg dictates length of new last arg */

  AppendArg(strlen(ArgStr[ArgCnt].str.p_str));
  for (z = ArgCnt; z > Index; z--)
  {
    as_dynstr_copy(&ArgStr[z].str, &ArgStr[z - 1].str);
    ArgStr[z].Pos = ArgStr[z - 1].Pos;
  }
  if (ArgStr[Index].str.capacity < ReqSize + 1)
  {
    if (as_dynstr_realloc(&ArgStr[Index].str, as_dynstr_roundup_len(ReqSize)))
      WrXError(ErrNum_InternalError, "out of memory");
  }
}

/*!------------------------------------------------------------------------
 * \fn     memo_set_pseudo(void)
 * \brief  is the current instruction SET, and the pseudo instruction of that name?
 * \return True if yes
 * ------------------------------------------------------------------------ */

Boolean memo_set_pseudo(void)
{
  return Memo("SET") && is_set_pseudo();
}

/*!------------------------------------------------------------------------
 * \fn     is_set_pseudo(void)
 * \brief  is the current (SET) instruction the pseudo instruction of that name?
 * \return True if yes
 * ------------------------------------------------------------------------ */

Boolean is_set_pseudo(void)
{
  return (oppart_leading_dot
       || (!SetIsOccupiedFnc || !SetIsOccupiedFnc()));
}

/*!------------------------------------------------------------------------
 * \fn     is_save_pseudo(void)
 * \brief  is the current (SAVE) instruction the pseudo instruction of that name?
 * \return True if yes
 * ------------------------------------------------------------------------ */

Boolean is_save_pseudo(void)
{
  return (oppart_leading_dot
       || (!SaveIsOccupiedFnc || !SaveIsOccupiedFnc()));
}

/*!------------------------------------------------------------------------
 * \fn     is_restore_pseudo(void)
 * \brief  is the current (RESTORE) instruction the pseudo instruction of that name?
 * \return True if yes
 * ------------------------------------------------------------------------ */

Boolean is_restore_pseudo(void)
{
  return (oppart_leading_dot
       || (!RestoreIsOccupiedFnc || !RestoreIsOccupiedFnc()));
}

/*!------------------------------------------------------------------------
 * \fn     memo_switch_pseudo(void)
 * \brief  is the current instruction SWITCh, and the pseudo instruction of that name?
 * \return True if yes
 * ------------------------------------------------------------------------ */

Boolean memo_switch_pseudo(void)
{
  return Memo("SWITCH")
      && (oppart_leading_dot || !SwitchIsOccupied);
}

/*!------------------------------------------------------------------------
 * \fn     is_page_pseudo(void)
 * \brief  is the current PAGE instruction the pseudo instruction of that name?
 * \return True if yes
 * ------------------------------------------------------------------------ */

Boolean is_page_pseudo(void)
{
  return oppart_leading_dot || !PageIsOccupied;
}

void asmdef_init(void)
{
  SwitchFrom = NullProc;
  InternSymbol = Default_InternSymbol;
  DissectBit = Default_DissectBit;
  DissectReg = NULL;
  QualifyQuote = NULL;

  SetMaxCodeLen(MaxCodeLen_Ini);

  /* auf diese Weise wird PCSymbol defaultmaessig nicht erreichbar
     da das schon von den Konstantenparsern im Formelparser abgefangen
     wuerde */

  PCSymbol = "--PC--SYMBOL--";
  *DefCPU = '\0';

  ArgStr = NULL;
  AllocArgCnt = 0;
  SourceFile = GetString();
  CursUp = GetString();
  ErrorPath = GetString();
  ErrorName = GetString();
  OutName = GetString();
  CurrFileName = GetString();
  IncludeList = GetString();
  LstName = GetString();
  MacroName = GetString();
  MacProName = GetString();
  ShareName = GetString();
  StrCompAlloc(&LabPart, STRINGSIZE);
  StrCompAlloc(&OpPart, STRINGSIZE);
  StrCompAlloc(&AttrPart, STRINGSIZE);
  StrCompAlloc(&ArgPart, STRINGSIZE);
  StrCompAlloc(&CommPart, STRINGSIZE);
  StrCompAlloc(&SrcLine, STRINGSIZE);
  ListLine = GetString();
  PrtInitString = GetString();
  PrtExitString = GetString();
  PrtTitleString = GetString();
  MomCPUArgs = GetString();

  SegInits = (LargeWord*)calloc(SegCount, sizeof(*SegInits));
  SegLimits = (LargeWord*)calloc(SegCount, sizeof(*SegLimits));
  Phases = (LargeWord*)calloc(SegCountPlusStruct, sizeof(*Phases));
  PCs = (LargeWord*)calloc(SegCountPlusStruct, sizeof(*PCs));
}
