head	1.3;
access;
symbols;
locks; strict;
comment	@# @;


1.3
date	97.03.17.23.48.13;	author wware;	state Exp;
branches;
next	1.2;

1.2
date	97.03.17.20.53.26;	author wware;	state Exp;
branches;
next	1.1;

1.1
date	97.03.13.17.20.34;	author wware;	state Exp;
branches;
next	;


desc
@@


1.3
log
@more work on gambit-c
@
text
@#!/usr/local/bin/perl

# First translate config.lsp into config.c

open(INPUT,"config.lsp");
open(OUTPUT,">config.c");
while ()
{
    s/^;#/#/;
    print OUTPUT;
}
close(INPUT);
close(OUTPUT);

`(gcc -E config.c | gawk '!/^#/' > lisp.c) 2> /dev/null`;
`(gcc -E -DDEBUG config.c | gawk '!/^#/' > lispd.c) 2> /dev/null`;
`(gcc -E -DSCHEME config.c | gawk '!/^#/' > scheme.c) 2> /dev/null`;
`(gcc -E -DSCHEME -DGAMBIT config.c | gawk '!/^#/' > gambit.c) 2> /dev/null`;
`(gcc -E -DSCHEME -DUSE_MRED config.c | gawk '!/^#/' > mred.c) 2> /dev/null`;

sub trim_blank_lines
{
    $blanks = 2;
    open(INPUT,$_[0]);
    open(OUTPUT,">".$_[1]);
    while ()
    {
	$blanks++;
	if (!/^[ \t]*$/) { $blanks = 0; }
	if ($blanks < 2) { print OUTPUT; }
    }
    close(INPUT);
    close(OUTPUT);
}

&trim_blank_lines("lisp.c", "lisp.lsp");
&trim_blank_lines("lispd.c", "lispd.lsp");
&trim_blank_lines("gambit.c", "gambit.scm");
&trim_blank_lines("scheme.c", "scheme.scm");
&trim_blank_lines("mred.c", "mred.scm");

`rm config.c lisp.c lispd.c gambit.c scheme.c mred.c`;
@


1.2
log
@add case for gambit
@
text
@d18 1
a18 1
`(gcc -E -DSCHEME -DUSE_STRUCTS config.c | gawk '!/^#/' > gambit.c) 2> /dev/null`;
@


1.1
log
@Initial revision
@
text
@d18 1
d38 1
d42 1
a42 1
`rm config.c lisp.c lispd.c scheme.c mred.c`;
@