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

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

/* SCHEME->C */

#include <objects.h>


static void  init_constants()
{
}

static void  init_modules( compiler_version )
        char *compiler_version;
{
        depth__init();
        screen__init();
        visual__init();
        xarc__init();
        xchar2b__init();
        xcharstruct__init();
        xclasshint__init();
        xcolor__init();
        xevent__init();
        xfontprop__init();
        xgcvalues__init();
        xhostaddress__init();
        ximage__init();
        xkeyboardcontrol__init();
        xkeyboardstate__init();
        xlibconstants__init();
        xlibtypes__init();
        xlibstubs__init();
        xpoint__init();
        xrectangle__init();
        xrmoptiondescrec__init();
        xrmvalue__init();
        xsegment__init();
        xsetwindowattributes__init();
        xsizehints__init();
        xtextitem__init();
        xtextitem16__init();
        xtimecoord__init();
        xvisualinfo__init();
        xwindowattributes__init();
        xwindowchanges__init();
        xwss__init();
        xws2__init();
        xws3__init();
        xws4__init();
        xws5__init();
        xws6__init();
        xws7__init();
        xws8__init();
        xws9__init();
        xws10__init();
        MAXDISPLAY( 0 );
}

void  xlib__init()
{
        static int  init = 0;
        if  (init)  return;
        init = 1;
        INITHEAP( 0, 0, 0, 0 );
        init_constants();
        init_modules( "(xlib SCHEME->C COMPILER 28sep90jfb)" );
        return;
}

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