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.