ftp.nice.ch/pub/next/unix/developer/pcn.2.0.s.tar.gz#/src/Support/ipsc860/main.gh.c

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

/* c main routine for program using fortran i/o */
/* specific to Green Hills' i860 C anf FORTRAN, version 1.8.5 */

extern void (*initfmt)();
extern void (*initrec)();
extern void (*uninitrec)();

int main(argc,argv)
int argc;
char *argv[];
{
    int rc;
    extern _p_pcn_main();
    if (initfmt)
	(*initfmt)();
    if (initrec)
	(*initrec)();
    rc = _p_pcn_main(argc,argv);
    if (uninitrec)
	(*uninitrec)();
    return(rc);
}

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