ftp.nice.ch/pub/next/developer/languages/translator/schemetoc.s.tar.gz#/schemetoc/scrt/sci.c

This is sci.c in view mode; [Download] [Up]

/* SCHEME->C */

#include <objects.h>


static void  init_constants()
{
}

DEFTSCP( scint_start_2drep_v );
DEFSTRING( t1003, "SCINT_START-REP", 15 );
EXTERNTSCPP( sc_apply_2dtwo );
EXTERNTSCP( sc_apply_2dtwo_v );
EXTERNTSCPP( screp_read_2deval_2dprint );
EXTERNTSCP( screp_read_2deval_2dprint_v );

TSCP  scint_start_2drep( c1002 )
        TSCP  c1002;
{
        PUSHSTACKTRACE( U_TX( ADR( t1003 ) ) );
        POPSTACKTRACE( sc_apply_2dtwo( screp_read_2deval_2dprint_v, 
                                       c1002 ) );
}

void  scint__init(){}

static void  init_modules( compiler_version )
        char *compiler_version;
{
        screp__init();
        MAXDISPLAY( 0 );
}

main( argc, argv )
        int argc;  char *argv[];
{
        static int  init = 0;
        if  (init)  return;
        init = 1;
        INITHEAP( 0, argc, argv, scint_start_2drep );
        init_constants();
        init_modules( "(scint SCHEME->C COMPILER 28sep90jfb)" );
        INITIALIZEVAR( U_TX( ADR( t1003 ) ), 
                       ADR( scint_start_2drep_v ), 
                       MAKEPROCEDURE( 1, 
                                      0, 
                                      scint_start_2drep, EMPTYLIST ) );
        scint_start_2drep( CLARGUMENTS( argc, argv ) );
        SCHEMEEXIT();
}

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.