/************************************************************************/
/*                                                                      */
/* MakeBarflyFD.c       ---     creates the file ram:BARFLY.FD          */
/*                                                                      */
/* V1.01 - KS 2.04 required                                             */
/*                                                                      */
/*----------------------------------------------------------------------*/
/*                                                                      */
/* 07/24/91     "Small C-Hack" (V1.00) by Ralph Schmidt                 */
/*                                                                      */
/* 11/28/91     Rewrite (call it V1.01) by Michael Böhnisch (billy)     */
/*              Executable shrinks to less than 1/2 of original size    */
/* 3/2/94       Update some paths(V1.02)                                */
/*                                                                      */
/************************************************************************/

#include <exec/exec.h>

#include <dos/dos.h>
#include <dos/dostags.h>

#include <proto/exec.h>
#include <proto/dos.h>

#include <stdlib.h>     /* ANSI includes. DO NOT INCLUDE STDIO.H !      */
#include <stdarg.h>
#include <stddef.h>
#include <string.h>
#include <ctype.h>

const UBYTE Version[] = "$VER: MakeBarflyFD 1.02 ("__DATE__")";

#define BUFFERSIZE      256

/*extern struct Library *DOSBase;*/

/*----------------------------------------------------------------------*/
/* I/O filehandles & filenames                                          */
/*----------------------------------------------------------------------*/

BPTR    Source, Dest, stdout;

UBYTE   *SourceName = "T:BARFLY.FD_bak",
        *DestName   = "ram:BARFLY.FD",
        *stdoutName = "CON:0/0/640/200/MakeBarFlyFD/AUTO/NOCLOSE";

/*----------------------------------------------------------------------*/
/* Close anything opened at runtime                                     */
/*----------------------------------------------------------------------*/

void CloseAll(void)
{
        if ( Source )   Close(Source);
        if ( Dest   )   Close(Dest  );

        DeleteFile(SourceName);

        if ( stdout )   {
                Delay(500);
                Close(stdout);
        }
}

/*----------------------------------------------------------------------*/
/* fake main program (lc will replace this by tinymain)                 */
/*----------------------------------------------------------------------*/

void main(int argc, char **argv)
{
        UBYTE   Buffer[BUFFERSIZE];
        int     i;

        /*--------------------------------------------------------------*/
        /* assign I/O file handles                                      */
        /*--------------------------------------------------------------*/

        stdout  = Open(stdoutName, MODE_NEWFILE);
        if ( ! stdout  ) {
                exit(20);
        }

        /*--------------------------------------------------------------*/
        /* introductory messages                                        */
        /*--------------------------------------------------------------*/

        FPuts(stdout,
                "\033[0;0H\033[J"       /* Clear window                 */
                "This program creates the file 'ram:Barfly.FD'.\n\n"

                "Please check the following files:\n"
                "exec_lib.fd\t\t1. line: \"* exec.library\"\n"
                "misc_lib.fd\t\t1. line: \"* misc.resource\"\n"
                "expansion_lib.fd\t1. line: \"* expansion.library\"\n"
                "Better check all library definition files and add it\n"
                "where necessary!\n\n"

                "Joining #?.FD files...\n\n"
        );
                
        /*--------------------------------------------------------------*/
        /* Join fd files to temporary. SystemTagList() is the preferred */
        /* method for calling external programs since the actual progam */
        /* return code is returned, -1 for not executable.              */
        /* Additonally SystemTagList()  does  not  read  commands  from */
        /* Input() filehandle.                                          */
        /*--------------------------------------------------------------*/

        if ( SystemTagList("Join >NIL: FD:#?.fd AS T:BARFLY.FD_bak", NULL) ) {
                FPuts(stdout,
                        "Join failed.\n"
                        "Make sure that \"FD:\" is assigned to the directory"
                        "containing\n"
                        "the #?.fd files.\n"
                );
                CloseAll();
                exit(10);
        }

        /*--------------------------------------------------------------*/
        /* Open temporary file as input                                 */
        /*--------------------------------------------------------------*/

        if ( ! ( Source = Open(SourceName, MODE_OLDFILE) ) ) {
                FPuts(stdout, "Can't open T:BARFLY.FD_bak\n");
                CloseAll();
                exit(10);
        }

        /*--------------------------------------------------------------*/
        /* Create new library description file for Barfly               */
        /*--------------------------------------------------------------*/

        if ( ! ( Dest = Open(DestName, MODE_NEWFILE) ) ) {
                FPuts(stdout, "Can't create new file ram:BARFLY.FD\n");
                CloseAll();
                exit(10);
        }

        FPuts(stdout, "Creating ram:BARFLY.FD...\n\n");

        /*--------------------------------------------------------------*/
        /* Main step: filter comments and argument strings              */
        /*--------------------------------------------------------------*/

        while ( FGets(Source, Buffer, BUFFERSIZE) ) {
                switch ( Buffer[0] ) {

                    /*--------------------------------------------------*/
                    /* filter comments (except lib/resource/... names)  */
                    /*--------------------------------------------------*/

                    case '*':
                        if ( ( Buffer[1] == ' ' ) && (Buffer[2] == '\"') ) {
                                FPuts(Dest, Buffer);
                        }
                        break;
                        
                    /*--------------------------------------------------*/
                    /* filter fd commands (except ##bias)               */
                    /*--------------------------------------------------*/

                    case '#':
                        if ( (        Buffer[1]  == '#') &&
                             (tolower(Buffer[2]) == 'b') &&
                             (tolower(Buffer[3]) == 'i')    ) {
                                FPuts(Dest, Buffer);
                        }
                        break;

                    /*--------------------------------------------------*/
                    /* filter argument strings                          */
                    /*--------------------------------------------------*/

                    default:
                        if ( isalpha(Buffer[0]) ) {
                                for ( i = 0; Buffer[i] != '('; i++ ) { ; }
                                Buffer[i]   = '\n';
                                Buffer[i+1] = '\0';
                                FPuts(Dest, Buffer);
                        }
                        break;
                }
        }

        /*--------------------------------------------------------------*/
        /* Cleanup: Close anything opened at runtime                    */
        /*--------------------------------------------------------------*/

        FPuts(stdout, "All done!!!\n");
        CloseAll();
}