Club Amiga de Montreal - CAM/CAM_CD_1.iso/files/529b.lha/BMake_v1.1/main.c

C/C++ Source or Header | 1991-07-03 | 4.7 KB | 235 lines

/*    main.c
 *    (c) Copyright 1991 by Ben Eng, All Rights Reserved
 *
 */

#include <ctype.h>

#include <exec/exec.h>
#include <exec/execbase.h>

#include <intuition/intuitionbase.h>
#include <graphics/gfxbase.h>

#include <clib/exec_protos.h>
#include <clib/dos_protos.h>

extern struct GfxBase *GfxBase;
extern struct IntuitionBase *IntuitionBase;

#include "make.h"
#include "depend.h"

/* Globals */
struct globals Global = {
    NULL,    /* me */
    NULL,    /* logfile */

    {
    (struct Node *)&Global.targetlist.lh_Tail,    /* lh_Head */
    (struct Node *)NULL,                        /* lh_Tail */
    (struct Node *)&Global.targetlist.lh_Head,    /* lh_TailPred */
    (UBYTE)NT_USER,
    (UBYTE)0
    },    /* targetlist */
    {
    (struct Node *)&Global.speciallist.lh_Tail,    /* lh_Head */
    (struct Node *)NULL,                        /* lh_Tail */
    (struct Node *)&Global.speciallist.lh_Head,    /* lh_TailPred */
    (UBYTE)NT_USER,
    (UBYTE)0
    },    /* speciallist */
    {
    (struct Node *)&Global.patternlist.lh_Tail,    /* lh_Head */
    (struct Node *)NULL,                        /* lh_Tail */
    (struct Node *)&Global.patternlist.lh_Head,    /* lh_TailPred */
    (UBYTE)NT_USER,
    (UBYTE)0
    },    /* patternlist */
    {
    (struct Node *)&Global.macrolist.lh_Tail,    /* lh_Head */
    (struct Node *)NULL,                        /* lh_Tail */
    (struct Node *)&Global.macrolist.lh_Head,    /* lh_TailPred */
    (UBYTE)NT_USER,
    (UBYTE)0
    },    /* macrolist */
    0,    /* builtin flag */
    0,    /* recursion level */
    0L    /* oldcwd */
};

static int
open_libraries( void )
{
#ifndef _DCC
    if( !( IntuitionBase = OpenLibrary( "intuition.library", 33 ))) {
        return( 1 );
    }
    if( !( GfxBase = OpenLibrary( "graphics.library", 33 ))) {
        return( 1 );
    }
#endif
    return( 0 );
}

static void
close_libraries( void )
{
#ifndef _DCC
    if( IntuitionBase )
        CloseLibrary( IntuitionBase );

    if( GfxBase )
        CloseLibrary( GfxBase );
#endif
}

static int
new_globals( struct globals *globptr )
{
    globptr->me = (struct Process *) FindTask( NULL ); /* find this task */
    return( 0 );
death:
    printf( "problem initializing globals\n" );
    return( 1 );
}

static int
delete_globals( struct globals *globptr )
{
    if( Global.oldcwd ) {
        UnLock( CurrentDir( Global.oldcwd ));
    }

    memset( globptr, 0, sizeof(struct globals));

    /*    just allow exit() to take care of free()ing all of our
     *    allocations, because I don't feel like doing it right now
     */
    NewList( &globptr->targetlist );
    NewList( &globptr->speciallist );
    NewList( &globptr->patternlist );
    NewList( &globptr->macrolist );
}


static void
die( void )
{
    delete_params();

    close_logfile();

    delete_globals( &Global );
    close_libraries();
}

static int
init( void )
{
    if( open_libraries()) goto death;
    if( new_globals( &Global )) goto death;

    return( 0 );
death:
    return( 1 );
}

static long
do_cl_macro( struct string_node *one )
{
    long retval;
    int made;

    if( strchr( one->data, '=' )) {
        logprintf( "\t%s\n", one->data );
        process_macroline( one->data );
        Remove( &one->node );
        delete_snode( one );
    }
    return( 0 );
}

static long
run_one( struct string_node *one )
{
    long retval;
    int made;

    debugprintf( 2, ("\n** run_one Make %s **\n", one->data ));
    retval = (long) make_filename( one->data, &made );
    if( !retval && !made ) {
        logprintf( "\"%s\" is up to date\n", one->data );
    }
    return( retval );
}

static void
run_it( void )
{
    long retval;
    int made;

    if( Param.filelist.lh_Head->ln_Succ )
        (void)for_list( &Param.filelist, do_cl_macro );
    if( Param.filelist.lh_Head->ln_Succ ) {
        (void)for_list( &Param.filelist, run_one );
    }
    else {
        struct target *first_goal;
        for( first_goal = (struct target *)Global.targetlist.lh_Head;
            first_goal->node.ln_Succ;
            first_goal = first_goal->node.ln_Succ ) {
            if( !(first_goal->flags & (TF_PATTERN|TF_BUILTIN ))) break;
        }
        if( first_goal->node.ln_Succ ) {
            debugprintf( 2, ("\n** first_goal Make %s **\n",
                first_goal->name ));
            retval = make_filename( first_goal->name, &made );
            if( !retval && !made ) {
                logprintf( "\"%s\" is up to date\n", first_goal->name );
            }
        }
    }
    logprintf( "\tMake done.\n" );
}

int
main( int argc, char *argv[] )
{
/*    Allow it to work with limitations on xsystem() and scdir()
    if( GfxBase->LibNode.lib_Version < 36L ) {
        printf( "This program requires Amiga OS 2.0\n" );
        return( 20 );
    }
*/
    atexit( die );    /* add die() to normal exit procedure */

    if( parse_parameters( argc, argv )) goto bailout;

    logprintf( "%s\n", version_string+7 );
    logprintf( "%s\n", copyright_string );

    if( init() ) goto bailout;
    Global.builtin_flag = 1;
    if( init_builtins()) goto bailout;
    Global.builtin_flag = 0;
    if( Param.filelist.lh_Head->ln_Succ )
        (void)for_list( &Param.filelist, do_cl_macro );

    if( input_makefile( Param.makefile )) goto bailout;
#if DEBUG
    if( Param.print_database ) dump_all();
    else run_it();
#else
    run_it();
#endif

    return( 0 );

bailout:
    /* die(); is called by atexit */
    return( 20 );
}