source: downloads/boost_1_34_1/tools/jam/src/mkjambase.c @ 29

/*
 * Copyright 1993, 1995 Christopher Seiwald.
 *
 * This file is part of Jam - see jam.c for Copyright information.
 */

/*  This file is ALSO:
 *  Copyright 2001-2004 David Abrahams.
 *  Distributed under the Boost Software License, Version 1.0.
 *  (See accompanying file LICENSE_1_0.txt or http://www.boost.org/LICENSE_1_0.txt)
 */

/*
 * mkjambase.c - turn Jambase into a big C structure
 *
 * Usage: mkjambase jambase.c Jambase ...
 *
 * Results look like this:
 *
 *       char *jambase[] = {
 *       "...\n",
 *       ...
 *       0 };
 *
 * Handles \'s and "'s specially; knows to delete blank and comment lines.
 *
 */

# include <stdio.h>
# include <string.h>

int main( int argc, char **argv, char **envp )
{
        char buf[ 1024 ];
        FILE *fin;
        FILE *fout;
        char *p;
        int doDotC = 0;

        if( argc < 3 )
        {
            fprintf( stderr, "usage: %s jambase.c Jambase ...\n", argv[0] );
            return -1;
        }

        if( !( fout = fopen( argv[1], "w" ) ) )
        {
            perror( argv[1] );
            return -1;
        }

        /* If the file ends in .c generate a C source file */

        if( ( p = strrchr( argv[1], '.' ) ) && !strcmp( p, ".c" ) )
            doDotC++;

        /* Now process the files */

        argc -= 2, argv += 2;

        if( doDotC )
        {
            fprintf( fout, "/* Generated by mkjambase from Jambase */\n" );
            fprintf( fout, "char *jambase[] = {\n" );
        }

        for( ; argc--; argv++ )
        {
            if( !( fin = fopen( *argv, "r" ) ) )
            {
                perror( *argv );
                return -1;
            }

            if( doDotC )
            {
                fprintf( fout, "/* %s */\n", *argv );
            }
            else
            {
                fprintf( fout, "### %s ###\n", *argv );
            }

            while( fgets( buf, sizeof( buf ), fin ) )
            {
                if( doDotC )
                {
                    char *p = buf;

                    /* Strip leading whitespace. */

                    while( *p == ' ' || *p == '\t' || *p == '\n' )
                        p++;

                    /* Drop comments and empty lines. */

                    if( *p == '#' || !*p )
                        continue;

                    /* Copy */

                    putc( '"', fout );

                    for( ; *p && *p != '\n'; p++ )
                        switch( *p )
                    {
                    case '\\': putc( '\\', fout ); putc( '\\', fout ); break;
                    case '"': putc( '\\', fout ); putc( '"', fout ); break;
                    case '\r': break;
                    default: putc( *p, fout ); break;
                    }

                    fprintf( fout, "\\n\",\n" );
                }
                else
                {
                    fprintf( fout, "%s", buf );
                }

            }

            fclose( fin );
        }
            
        if( doDotC )
            fprintf( fout, "0 };\n" );

        fclose( fout );

        return 0;
}