/* Read an existing crossreference file */

#include "global.h"
#include "misc.h"
#include "readdir.h"
#include "adfile.h"
#include "incfile.h"
#include "readxref.h"

/***********************************************/

static UBYTE MyBuffer[1000];

static struct RDArgs *RDArgs;
static struct RDArgs __aligned MyArgs=
   {
      {Buffer,0,0},
      NULL,
      MyBuffer,1000,
      NULL,
      0
   };

static struct
   {
      char *Name;
      char *File;
      long *Line;
      long *Type;
   } Line;

/***********************************************/

#define XREF_ERROR 0
#define XREF_OK    1
#define XREF_END   2

static WORD GetLine(void)

{
   if (!ReadLine(TRUE,TRUE)) return(XREF_ERROR);
   if (Buffer[0]!='\n')
      {
         MyArgs.RDA_Source.CS_Length=strlen(Buffer);
         MyArgs.RDA_Source.CS_CurChr=0;
         MyArgs.RDA_DAList=NULL;
         if (RDArgs=ReadArgs("Name/A,File/A,Line/A/N,Type/A/N",(long *)&Line,&MyArgs))
            {
               return(XREF_OK);
            }
         else
            {
               PrintFault(IoErr(),NULL);
               printf("File %s, line %ld\n",CurrentSource,CurrentLine);
               return(XREF_ERROR);
            }
      }
   return(XREF_END);
}

/***********************************************/

BOOL ReadXRef(void)

{
   BOOL Success;
   BOOL SectionDone;
   int Index;

   Success=TRUE;
   if (CurrentSource=Arguments.XRefIn)
      {
         printf("*** Reading crossreference file ***\n");
         CurrentLine=0;
         if (CurrentFile=Open(Arguments.XRefIn,MODE_OLDFILE))
            {
               for (Index=0; Index<6 && Success; Index++)
                  {
                     Success=ReadLine(TRUE,TRUE);
                  }
               SectionDone=FALSE;
               while (!SectionDone && Success)
                  {
                     switch(GetLine())
                        {
                           case XREF_ERROR: Success=FALSE;
                                            break;
                           case XREF_OK:    if (!AddFile("",Line.File)) Success=FALSE;
                                            FreeArgs(RDArgs);
                                            break;
                           case XREF_END:   SectionDone=TRUE;
                                            break;
                        }
                  }
               if (Success && !ReadLine(TRUE,TRUE)) Success=FALSE;
               SectionDone=FALSE;
               while (!SectionDone && Success)
                  {
                     switch(GetLine())
                        {
                           case XREF_ERROR: Success=FALSE;
                                            break;
                           case XREF_OK:    if (!AddIdent(Line.Name,Line.File,*Line.Line,FALSE)) Success=FALSE;
                                            FreeArgs(RDArgs);
                                            break;
                           case XREF_END:   SectionDone=TRUE;
                                            break;
                        }
                  }
               if (Success && !ReadLine(TRUE,TRUE)) Success=FALSE;
               SectionDone=FALSE;
               while (!SectionDone && Success)
                  {
                     switch(GetLine())
                        {
                           case XREF_ERROR: Success=FALSE;
                                            break;
                           case XREF_OK:    if (!AddIdent(Line.Name,Line.File,*Line.Line,TRUE)) Success=FALSE;
                                            FreeArgs(RDArgs);
                                            break;
                           case XREF_END:   SectionDone=TRUE;
                                            break;
                        }
                  }
               if (Success && !ReadLine(TRUE,TRUE)) Success=FALSE;
               SectionDone=FALSE;
               while (!SectionDone && Success)
                  {
                     switch(GetLine())
                        {
                           case XREF_ERROR: Success=FALSE;
                                            break;
                           case XREF_OK:    if (!AddAutodoc(Line.Name,Line.File,*Line.Type)) Success=FALSE;
                                            FreeArgs(RDArgs);
                                            break;
                           case XREF_END:   SectionDone=TRUE;
                                            break;
                        }
                  }
               if (!IoErr())
                  {
                     Success=TRUE;
                  }
               Close(CurrentFile);
            }
         else
            {
               PrintFault(IoErr(),CurrentSource);
               Success=FALSE;
            }
      }
   return(Success);
}