Source Code 1992 March/Source_Code_CD-ROM_Walnut_Creek_March_1992.iso/usenet/altsrcs/2/2796

Internet Message Format | 1991-02-19 | 62KB

From: [e-mail] (Guido van Rossum)
Newsgroups: alt.sources
Subject: Python 0.9.1 part 04/21
Message-ID: <[e-mail]>
Date: 19 Feb 91 17:41:26 GMT

: This is a shell archive.
: Extract with 'sh this_file'.
:
: Extract part 01 first since it makes all directories
echo 'Start of pack.out, part 04 out of 21:'
if test -s 'demo/sgi/gl_panel/flying/freeze.s'
then echo '*** I will not over-write existing file demo/sgi/gl_panel/flying/freeze.s'
else
echo 'x - demo/sgi/gl_panel/flying/freeze.s'
sed 's/^X//' > 'demo/sgi/gl_panel/flying/freeze.s' << 'EOF'
X;;; This file was automatically generated by the panel editor.
X;;; If you read it into gnu emacs, it will automagically format itself.
X
X(panel (prop help creator:user-panel-help)
X(prop user-panel #t)
X(label "frames per second")
X(al (pnl_toggle_button (name "freeze")
X(prop help creator:user-act-help)
X(label "freeze")
X(x 0.25)
X(y 4.3)
X(w 1.45)
X(h 0.6)
X(labeltype 16)
X(downfunc move-then-resize)
X)
X(pnl_scale_chart (name "mystrip")
X(prop help creator:user-act-help)
X(x 0.25)
X(y 0.25)
X(downfunc move-then-resize)
X)
X)
X)
X;;; Local Variables:
X;;; mode: scheme
X;;; eval: (save-excursion (goto-char (point-min)) (kill-line 3))
X;;; eval: (save-excursion (goto-char (point-min)) (replace-regexp "[ \n]*)" ")"))
X;;; eval: (indent-region (point-min) (point-max) nil)
X;;; eval: (progn (kill-line -3) (delete-backward-char 1) (save-buffer))
X;;; End:
EOF
fi
if test -s 'src/cstubs'
then echo '*** I will not over-write existing file src/cstubs'
else
echo 'x - src/cstubs'
sed 's/^X//' > 'src/cstubs' << 'EOF'
X/*
XInput used to generate the Python module "glmodule.c".
XThe stub generator is a Python script called "cgen".
X
XEach definition must be contained on one line:
X
X<returntype> <name> <type> <arg> <type> <arg>
X
X<returntype> can be: void, short, long (XXX maybe others?)
X
X<type> can be: char, string, short, float, long, or double
X    string indicates a null terminated string;
X    if <type> is char and <arg> begins with a *, the * is stripped
X    and <type> is changed into string
X
X<arg> has the form <mode> or <mode>[<subscript>]
X    where <mode> can be
X        s: arg is sent
X        r: arg is received        (arg is a pointer)
X    and <subscript> can be (N and I are numbers):
X        N
X        argI
X        retval
X        N*argI
X        N*retval
X*/
X
X#include <gl.h>
X#include <device.h>
X
X#include "allobjects.h"
X#include "import.h"
X#include "modsupport.h"
X#include "cgensupport.h"
X
X/*
XSome stubs are too complicated for the stub generator.
XWe can include manually written versions of them here.
XA line starting with '%' gives the name of the function so the stub
Xgenerator can include it in the table of functions.
X*/
X
X/*
Xvarray -- an array of v.. calls.
XThe argument is an array (maybe list or tuple) of points.
XEach point must be a tuple or list of coordinates (x, y, z).
XThe points may be 2- or 3-dimensional but must all have the
Xsame dimension.  Float and int values may be mixed however.
XThe points are always converted to 3D double precision points
Xby assuming z=0.0 if necessary (as indicated in the man page),
Xand for each point v3d() is called.
X*/
X
X% varray
X
Xstatic object *
Xgl_varray(self, args)
X    object *self;
X    object *args;
X{
X    object *v, *w;
X    int i, n, width;
X    double vec[3];
X    object * (*getitem) FPROTO((object *, int));
X
X    if (!getiobjectarg(args, 1, 0, &v))
X        return NULL;
X
X    if (is_listobject(v)) {
X        n = getlistsize(v);
X        getitem = getlistitem;
X    }
X    else if (is_tupleobject(v)) {
X        n = gettuplesize(v);
X        getitem = gettupleitem;
X    }
X    else {
X        err_badarg();
X        return NULL;
X    }
X
X    if (n == 0) {
X        INCREF(None);
X        return None;
X    }
X    if (n > 0)
X        w = (*getitem)(v, 0);
X
X    width = 0;
X    if (w == NULL) {
X    }
X    else if (is_listobject(w)) {
X        width = getlistsize(w);
X    }
X    else if (is_tupleobject(w)) {
X        width = gettuplesize(w);
X    }
X
X    switch (width) {
X    case 2:
X        vec[2] = 0.0;
X        /* Fall through */
X    case 3:
X        break;
X    default:
X        err_badarg();
X        return NULL;
X    }
X
X    for (i = 0; i < n; i++) {
X        w = (*getitem)(v, i);
X        if (!getidoublearray(w, 1, 0, width, vec))
X            return NULL;
X        v3d(vec);
X    }
X
X    INCREF(None);
X    return None;
X}
X
X/*
Xvnarray, nvarray -- an array of n3f and v3f calls.
XThe argument is an array (list or tuple) of pairs of points and normals.
XEach pair is a tuple (NOT a list) of a point and a normal for that point.
XEach point or normal must be a tuple (NOT a list) of coordinates (x, y, z).
XThree coordinates must be given.  Float and int values may be mixed.
XFor each pair, n3f() is called for the normal, and then v3f() is called
Xfor the vector.
X
Xvnarray and nvarray differ only in the order of the vector and normal in
Xthe pair: vnarray expects (v, n) while nvarray expects (n, v).
X*/
X
Xstatic object *gen_nvarray(); /* Forward */
X
X% nvarray
X
Xstatic object *
Xgl_nvarray(self, args)
X    object *self;
X    object *args;
X{
X    return gen_nvarray(args, 0);
X}
X
X% vnarray
X
Xstatic object *
Xgl_vnarray(self, args)
X    object *self;
X    object *args;
X{
X    return gen_nvarray(args, 1);
X}
X
X/* Generic, internal version of {nv,nv}array: inorm indicates the
X   argument order, 0: normal first, 1: vector first. */
X
Xstatic object *
Xgen_nvarray(args, inorm)
X    object *args;
X    int inorm;
X{
X    object *v, *w, *wnorm, *wvec;
X    int i, n;
X    float norm[3], vec[3];
X    object * (*getitem) FPROTO((object *, int));
X
X    if (!getiobjectarg(args, 1, 0, &v))
X        return NULL;
X
X    if (is_listobject(v)) {
X        n = getlistsize(v);
X        getitem = getlistitem;
X    }
X    else if (is_tupleobject(v)) {
X        n = gettuplesize(v);
X        getitem = gettupleitem;
X    }
X    else {
X        err_badarg();
X        return NULL;
X    }
X
X    for (i = 0; i < n; i++) {
X        w = (*getitem)(v, i);
X        if (!is_tupleobject(w) || gettuplesize(w) != 2) {
X            err_badarg();
X            return NULL;
X        }
X        wnorm = gettupleitem(w, inorm);
X        wvec = gettupleitem(w, 1 - inorm);
X        if (!getifloatarray(wnorm, 1, 0, 3, norm) ||
X            !getifloatarray(wvec, 1, 0, 3, vec))
X            return NULL;
X        n3f(norm);
X        v3f(vec);
X    }
X
X    INCREF(None);
X    return None;
X}
X
X/* nurbssurface(s_knots[], t_knots[], ctl[][], s_order, t_order, type).
X   The dimensions of ctl[] are computed as follows:
X   [len(s_knots) - s_order], [len(t_knots) - t_order]
X*/
X
X% nurbssurface
X
Xstatic object *
Xgl_nurbssurface(self, args)
X    object *self;
X    object *args;
X{
X    long arg1 ;
X    double * arg2 ;
X    long arg3 ;
X    double * arg4 ;
X    double *arg5 ;
X    long arg6 ;
X    long arg7 ;
X    long arg8 ;
X    long ncoords;
X    long s_byte_stride, t_byte_stride;
X    long s_nctl, t_nctl;
X    long s, t;
X    object *v, *w, *pt;
X    double *pnext;
X    if (!getilongarraysize(args, 6, 0, &arg1))
X        return NULL;
X    if ((arg2 = NEW(double, arg1 )) == NULL) {
X        return err_nomem();
X    }
X    if (!getidoublearray(args, 6, 0, arg1 , arg2))
X        return NULL;
X    if (!getilongarraysize(args, 6, 1, &arg3))
X        return NULL;
X    if ((arg4 = NEW(double, arg3 )) == NULL) {
X        return err_nomem();
X    }
X    if (!getidoublearray(args, 6, 1, arg3 , arg4))
X        return NULL;
X    if (!getilongarg(args, 6, 3, &arg6))
X        return NULL;
X    if (!getilongarg(args, 6, 4, &arg7))
X        return NULL;
X    if (!getilongarg(args, 6, 5, &arg8))
X        return NULL;
X    if (arg8 == N_XYZ)
X        ncoords = 3;
X    else if (arg8 == N_XYZW)
X        ncoords = 4;
X    else {
X        err_badarg();
X        return NULL;
X    }
X    s_nctl = arg1 - arg6;
X    t_nctl = arg3 - arg7;
X    if (!getiobjectarg(args, 6, 2, &v))
X        return NULL;
X    if (!is_listobject(v) || getlistsize(v) != s_nctl) {
X        err_badarg();
X        return NULL;
X    }
X    if ((arg5 = NEW(double, s_nctl*t_nctl*ncoords )) == NULL) {
X        return err_nomem();
X    }
X    pnext = arg5;
X    for (s = 0; s < s_nctl; s++) {
X        w = getlistitem(v, s);
X        if (w == NULL || !is_listobject(w) ||
X                    getlistsize(w) != t_nctl) {
X            err_badarg();
X            return NULL;
X        }
X        for (t = 0; t < t_nctl; t++) {
X            pt = getlistitem(w, t);
X            if (!getidoublearray(pt, 1, 0, ncoords, pnext))
X                return NULL;
X            pnext += ncoords;
X        }
X    }
X    s_byte_stride = sizeof(double) * ncoords;
X    t_byte_stride = s_byte_stride * s_nctl;
X    nurbssurface( arg1 , arg2 , arg3 , arg4 ,
X        s_byte_stride , t_byte_stride , arg5 , arg6 , arg7 , arg8 );
X    DEL(arg2);
X    DEL(arg4);
X    DEL(arg5);
X    INCREF(None);
X    return None;
X}
X
X/* nurbscurve(knots, ctlpoints, order, type).
X   The length of ctlpoints is len(knots)-order. */
X
X%nurbscurve
X
Xstatic object *
Xgl_nurbscurve(self, args)
X    object *self;
X    object *args;
X{
X    long arg1 ;
X    double * arg2 ;
X    long arg3 ;
X    double * arg4 ;
X    long arg5 ;
X    long arg6 ;
X    int ncoords, npoints;
X    int i;
X    object *v;
X    double *pnext;
X    if (!getilongarraysize(args, 4, 0, &arg1))
X        return NULL;
X    if ((arg2 = NEW(double, arg1 )) == NULL) {
X        return err_nomem();
X    }
X    if (!getidoublearray(args, 4, 0, arg1 , arg2))
X        return NULL;
X    if (!getilongarg(args, 4, 2, &arg5))
X        return NULL;
X    if (!getilongarg(args, 4, 3, &arg6))
X        return NULL;
X    if (arg6 == N_ST)
X        ncoords = 2;
X    else if (arg6 == N_STW)
X        ncoords = 3;
X    else {
X        err_badarg();
X        return NULL;
X    }
X    npoints = arg1 - arg5;
X    if (!getiobjectarg(args, 4, 1, &v))
X        return NULL;
X    if (!is_listobject(v) || getlistsize(v) != npoints) {
X        err_badarg();
X        return NULL;
X    }
X    if ((arg4 = NEW(double, npoints*ncoords )) == NULL) {
X        return err_nomem();
X    }
X    pnext = arg4;
X    for (i = 0; i < npoints; i++) {
X        if (!getidoublearray(getlistitem(v, i), 1, 0, ncoords, pnext))
X            return NULL;
X        pnext += ncoords;
X    }
X    arg3 = (sizeof(double)) * ncoords;
X    nurbscurve( arg1 , arg2 , arg3 , arg4 , arg5 , arg6 );
X    DEL(arg2);
X    DEL(arg4);
X    INCREF(None);
X    return None;
X}
X
X/* pwlcurve(points, type).
X   Points is a list of points. Type must be N_ST. */
X
X%pwlcurve
X
Xstatic object *
Xgl_pwlcurve(self, args)
X    object *self;
X    object *args;
X{
X    object *v;
X    long type;
X    double *data, *pnext;
X    long npoints, ncoords;
X    int i;
X    if (!getiobjectarg(args, 2, 0, &v))
X        return NULL;
X    if (!getilongarg(args, 2, 1, &type))
X        return NULL;
X    if (!is_listobject(v)) {
X        err_badarg();
X        return NULL;
X    }
X    npoints = getlistsize(v);
X    if (type == N_ST)
X        ncoords = 2;
X    else {
X        err_badarg();
X        return NULL;
X    }
X    if ((data = NEW(double, npoints*ncoords)) == NULL) {
X        return err_nomem();
X    }
X    pnext = data;
X    for (i = 0; i < npoints; i++) {
X        if (!getidoublearray(getlistitem(v, i), 1, 0, ncoords, pnext))
X            return NULL;
X        pnext += ncoords;
X    }
X    pwlcurve(npoints, data, sizeof(double)*ncoords, type);
X    DEL(data);
X    INCREF(None);
X    return None;
X}
X
X
X/* Picking and Selecting */
X
Xstatic short *pickbuffer = NULL;
Xstatic long pickbuffersize;
X
Xstatic object *
Xpick_select(args, func)
X    object *args;
X    void (*func)();
X{
X    if (!getilongarg(args, 1, 0, &pickbuffersize))
X        return NULL;
X    if (pickbuffer != NULL) {
X        err_setstr(RuntimeError,
X            "pick/gselect: already picking/selecting");
X        return NULL;
X    }
X    if ((pickbuffer = NEW(short, pickbuffersize)) == NULL) {
X        return err_nomem();
X    }
X    (*func)(pickbuffer, pickbuffersize);
X    INCREF(None);
X    return None;
X}
X
Xstatic object *
Xendpick_select(args, func)
X    object *args;
X    long (*func)();
X{
X    object *v, *w;
X    int i, nhits, n;
X    if (!getnoarg(args))
X        return NULL;
X    if (pickbuffer == NULL) {
X        err_setstr(RuntimeError,
X            "endpick/endselect: not in pick/select mode");
X        return NULL;
X    }
X    nhits = (*func)(pickbuffer);
X    if (nhits < 0) {
X        nhits = -nhits; /* How to report buffer overflow otherwise? */
X    }
X    /* Scan the buffer to see how many integers */
X    n = 0;
X    for (; nhits > 0; nhits--) {
X        n += 1 + pickbuffer[n];
X    }
X    v = newlistobject(n);
X    if (v == NULL)
X        return NULL;
X    /* XXX Could do it nicer and interpret the data structure here,
X       returning a list of lists. But this can be done in Python... */
X    for (i = 0; i < n; i++) {
X        w = newintobject((long)pickbuffer[i]);
X        if (w == NULL) {
X            DECREF(v);
X            return NULL;
X        }
X        setlistitem(v, i, w);
X    }
X    DEL(pickbuffer);
X    pickbuffer = NULL;
X    return v;
X}
X
Xextern void pick(), gselect();
Xextern long endpick(), endselect();
X
X%pick
Xstatic object *gl_pick(self, args) object *self, *args; {
X    return pick_select(args, pick);
X}
X
X%endpick
Xstatic object *gl_endpick(self, args) object *self, *args; {
X    return endpick_select(args, endpick);
X}
X
X%gselect
Xstatic object *gl_gselect(self, args) object *self, *args; {
X    return pick_select(args, gselect);
X}
X
X%endselect
Xstatic object *gl_endselect(self, args) object *self, *args; {
X    return endpick_select(args, endselect);
X}
X
X
X/* XXX The generator botches this one.  Here's a quick hack to fix it. */
X
X% getmatrix float r[16]
X
Xstatic object *
Xgl_getmatrix(self, args)
X    object *self;
X    object *args;
X{
X    float arg1 [ 16 ] ;
X    object *v, *w;
X    int i;
X    getmatrix( arg1 );
X    v = newlistobject(16);
X    if (v == NULL) {
X        return err_nomem();
X    }
X    for (i = 0; i < 16; i++) {
X        w = mknewfloatobject(arg1[i]);
X        if (w == NULL) {
X            DECREF(v);
X            return NULL;
X        }
X        setlistitem(v, i, w);
X    }
X    return v;
X}
X
X/* End of manually written stubs */
X
X%%
X
Xlong     getshade
Xvoid     devport     short s long s
Xvoid     rdr2i         long s long s
Xvoid    rectfs         short s short s short s short s
Xvoid     rects         short s short s short s short s
Xvoid     rmv2i         long s long s
Xvoid    noport
Xvoid    popviewport
Xvoid    clear
Xvoid    clearhitcode
Xvoid    closeobj
Xvoid    cursoff
Xvoid    curson
Xvoid    doublebuffer
Xvoid     finish
Xvoid    gconfig
Xvoid    ginit
Xvoid    greset
Xvoid    multimap
Xvoid    onemap
Xvoid    popattributes
Xvoid    popmatrix
Xvoid    pushattributes
Xvoid    pushmatrix
Xvoid    pushviewport
Xvoid    qreset
Xvoid    RGBmode
Xvoid    singlebuffer
Xvoid    swapbuffers
Xvoid    gsync
Xvoid    tpon
Xvoid    tpoff
Xvoid    clkon
Xvoid    clkoff
Xvoid    ringbell
X#void    callfunc
Xvoid    gbegin
Xvoid    textinit
Xvoid    initnames
Xvoid    pclos
Xvoid    popname
Xvoid    spclos
Xvoid    zclear
Xvoid    screenspace
Xvoid    reshapeviewport
Xvoid    winpush
Xvoid    winpop
Xvoid    foreground
Xvoid    endfullscrn
Xvoid    endpupmode
Xvoid    fullscrn
Xvoid    pupmode
Xvoid    winconstraints
Xvoid    pagecolor     short s
Xvoid    textcolor     short s
Xvoid     color           short s
Xvoid    curveit        short s
Xvoid    font        short s
Xvoid     linewidth    short s
Xvoid    setlinestyle    short s
Xvoid    setmap        short s
Xvoid    swapinterval    short s
Xvoid    writemask    short s
Xvoid    textwritemask    short s
Xvoid    qdevice        short s
Xvoid    unqdevice    short s
Xvoid    curvebasis    short s
Xvoid    curveprecision    short s
Xvoid    loadname    short s
Xvoid    passthrough    short s
Xvoid    pushname    short s
Xvoid    setmonitor    short s
Xvoid    setshade    short s
Xvoid    setpattern    short s
Xvoid    pagewritemask    short s
X#
Xvoid    callobj        long s
Xvoid    delobj        long s
Xvoid     editobj        long s
Xvoid    makeobj        long s
Xvoid    maketag        long s
Xvoid    chunksize    long s
Xvoid    compactify    long s
Xvoid    deltag        long s
Xvoid    lsrepeat    long s
Xvoid    objinsert    long s
Xvoid     objreplace    long s
Xvoid    winclose    long s
Xvoid    blanktime    long s
Xvoid     freepup        long s
X# This is not in the library!?
X###void    pupcolor    long s
X#
Xvoid    backbuffer    long s
Xvoid     frontbuffer    long s
Xvoid    lsbackup    long s
Xvoid    resetls        long s
Xvoid    lampon        long s
Xvoid    lampoff        long s
Xvoid    setbell        long s
Xvoid    blankscreen    long s
Xvoid     depthcue    long s
Xvoid    zbuffer        long s
Xvoid    backface    long s
X#
Xvoid     cmov2i        long s long s
Xvoid     draw2i        long s long s
Xvoid    move2i        long s long s
Xvoid    pnt2i        long s long s
Xvoid     patchbasis    long s long s
Xvoid     patchprecision    long s long s
Xvoid    pdr2i        long s long s
Xvoid    pmv2i        long s long s
Xvoid    rpdr2i        long s long s
Xvoid    rpmv2i        long s long s
Xvoid    xfpt2i        long s long s
Xvoid    objdelete    long s long s
Xvoid    patchcurves    long s long s
Xvoid    minsize        long s long s
Xvoid     maxsize        long s long s
Xvoid    keepaspect    long s long s
Xvoid    prefsize    long s long s
Xvoid    stepunit    long s long s
Xvoid     fudge        long s long s
Xvoid     winmove        long s long s
X#
Xvoid     attachcursor    short s short s
Xvoid     deflinestyle    short s short s
Xvoid     noise        short s short s
Xvoid     picksize    short s short s
Xvoid     qenter        short s short s
Xvoid     setdepth    short s short s
Xvoid     cmov2s        short s short s
Xvoid     draw2s        short s    short s
Xvoid     move2s        short s short s
Xvoid     pdr2s        short s short s
Xvoid     pmv2s        short s short s
Xvoid     pnt2s        short s short s
Xvoid     rdr2s        short s short s
Xvoid     rmv2s        short s short s
Xvoid     rpdr2s        short s short s
Xvoid     rpmv2s        short s short s
Xvoid     xfpt2s        short s short s
X#
Xvoid cmov2        float s float s
Xvoid draw2        float s float s
Xvoid move2        float s float s
Xvoid pnt2        float s float s
Xvoid pdr2        float s float s
Xvoid pmv2        float s float s
Xvoid rdr2        float s float s
Xvoid rmv2        float s float s
Xvoid rpdr2        float s float s
Xvoid rpmv2        float s float s
Xvoid xfpt2        float s float s
X#
Xvoid loadmatrix        float s[16]
Xvoid multmatrix        float s[16]
Xvoid crv            float s[16]
Xvoid rcrv            float s[16]
X#
X# Methods that have strings.
X#
Xvoid addtopup        long s char *s long s
Xvoid charstr        char *s
Xvoid getport         char *s
Xlong strwidth        char *s
Xlong winopen        char *s
Xvoid wintitle        char *s
X#
X# Methods that have 1 long (# of elements) and an array
X#
Xvoid polf        long s float s[3*arg1]
Xvoid polf2        long s float s[2*arg1]
Xvoid poly        long s float s[3*arg1]
Xvoid poly2        long s float s[2*arg1]
Xvoid crvn        long s float s[3*arg1]
Xvoid rcrvn        long s float s[4*arg1]
X#
Xvoid polf2i        long s long s[2*arg1]
Xvoid polfi        long s long s[3*arg1]
Xvoid poly2i        long s long s[2*arg1]
Xvoid polyi        long s long s[3*arg1]
X#
Xvoid polf2s        long s short s[2*arg1]
Xvoid polfs        long s short s[3*arg1]
Xvoid polys        long s short s[3*arg1]
Xvoid poly2s        long s short s[2*arg1]
X#
Xvoid defcursor        short s short s[16]
Xvoid writepixels    short s short s[arg1]
Xvoid defbasis        long s float s[16]
Xvoid gewrite        short s short s[arg1]
X#
Xvoid rotate        short s char s
X# This is not in the library!?
X###void setbutton        short s char s
Xvoid rot        float s char s
X#
Xvoid circfi        long s long s long s
Xvoid circi        long s long s long s
Xvoid cmovi        long s long s long s
Xvoid drawi        long s long s long s
Xvoid movei        long s long s long s
Xvoid pnti         long s long s long s
Xvoid newtag        long s long s long s
Xvoid pdri          long s long s long s
Xvoid pmvi          long s long s long s
Xvoid rdri          long s long s long s
Xvoid rmvi          long s long s long s
Xvoid rpdri         long s long s long s
Xvoid rpmvi         long s long s long s
Xvoid xfpti         long s long s long s
X#
Xvoid circ        float s float s float s
Xvoid circf        float s float s float s
Xvoid cmov        float s float s float s
Xvoid draw        float s float s float s
Xvoid move        float s float s float s
Xvoid pnt        float s float s float s
Xvoid scale        float s float s float s
Xvoid translate        float s float s float s
Xvoid pdr        float s float s float s
Xvoid pmv        float s float s float s
Xvoid rdr        float s float s float s
Xvoid rmv        float s float s float s
Xvoid rpdr        float s float s float s
Xvoid rpmv        float s float s float s
Xvoid xfpt        float s float s float s
X#
Xvoid RGBcolor        short s short s short s
Xvoid RGBwritemask    short s short s short s
Xvoid setcursor        short s short s short s
Xvoid tie        short s short s short s
Xvoid circfs        short s short s short s
Xvoid circs        short s short s short s
Xvoid cmovs        short s short s short s
Xvoid draws        short s short s short s
Xvoid moves        short s short s short s
Xvoid pdrs        short s short s short s
Xvoid pmvs        short s short s short s
Xvoid pnts        short s short s short s
Xvoid rdrs        short s short s short s
Xvoid rmvs        short s short s short s
Xvoid rpdrs        short s short s short s
Xvoid rpmvs        short s short s short s
Xvoid xfpts        short s short s short s
Xvoid curorigin        short s short s short s
Xvoid cyclemap        short s short s short s
X#
Xvoid patch        float s[16] float s[16] float s[16]
Xvoid splf        long s float s[3*arg1] short s[arg1]
Xvoid splf2        long s float s[2*arg1] short s[arg1]
Xvoid splfi        long s long s[3*arg1] short s[arg1]
Xvoid splf2i        long s long s[2*arg1] short s[arg1]
Xvoid splfs        long s short s[3*arg1] short s[arg1]
Xvoid splf2s        long s short s[2*arg1] short s[arg1]
Xvoid defpattern        short s short s short s[arg2*arg2/16]
X#
Xvoid rpatch        float s[16] float s[16] float s[16] float s[16]
X#
X# routines that send 4 floats
X#
Xvoid ortho2        float s float s float s float s
Xvoid rect        float s float s float s float s
Xvoid rectf        float s float s float s float s
Xvoid xfpt4        float s float s float s float s
X#
Xvoid textport        short s short s short s short s
Xvoid mapcolor        short s short s short s short s
Xvoid scrmask        short s short s short s short s
Xvoid setvaluator    short s short s short s short s
Xvoid viewport        short s short s short s short s
Xvoid shaderange        short s short s short s short s
Xvoid xfpt4s        short s short s short s short s
Xvoid rectfi        long s long s long s long s
Xvoid recti        long s long s long s long s
Xvoid xfpt4i        long s long s long s long s
Xvoid prefposition    long s long s long s long s
X#
Xvoid arc        float s float s float s short s short s
Xvoid arcf        float s float s float s short s short s
Xvoid arcfi        long s long s long s short s short s
Xvoid arci        long s long s long s short s short s
X#
Xvoid bbox2        short s short s float s float s float s float s
Xvoid bbox2i        short s short s long s long s long s long s
Xvoid bbox2s        short s short s short s short s short s short s
Xvoid blink        short s short s short s short s short s
Xvoid ortho        float s float s float s float s float s float s
Xvoid window        float s float s float s float s float s float s
Xvoid lookat        float s float s float s float s float s float s short s
X#
Xvoid perspective    short s float s float s float s
Xvoid polarview        float s short s short s short s
X# XXX getichararray not supported
X#void writeRGB        short s char s[arg1] char s[arg1] char s[arg1]
X#
Xvoid arcfs        short s short s short s short s short s
Xvoid arcs        short s short s short s short s short s
Xvoid rectcopy        short s short s short s short s short s short s
Xvoid RGBcursor        short s short s short s short s short s short s short s
X#
Xlong getbutton        short s
Xlong getcmmode
Xlong getlsbackup
Xlong getresetls
Xlong getdcm
Xlong getzbuffer
Xlong ismex
Xlong isobj        long s
Xlong isqueued        short s
Xlong istag        long s
X#
Xlong genobj
Xlong gentag
Xlong getbuffer
Xlong getcolor
Xlong getdisplaymode
Xlong getfont
Xlong getheight
Xlong gethitcode
Xlong getlstyle
Xlong getlwidth
Xlong getmap
Xlong getplanes
Xlong getwritemask
Xlong qtest
Xlong getlsrepeat
Xlong getmonitor
Xlong getopenobj
Xlong getpattern
Xlong winget
Xlong winattach
Xlong getothermonitor
Xlong newpup
X#
Xlong getvaluator    short s
Xvoid winset        long s
Xlong dopup        long s
Xvoid getdepth        short r short r
Xvoid getcpos        short r short r
Xvoid getsize        long r long r
Xvoid getorigin        long r long r
Xvoid getviewport    short r short r short r short r
Xvoid gettp        short r short r short r short r
Xvoid getgpos        float r float r float r float r
Xvoid winposition    long s long s long s long s
Xvoid gRGBcolor        short r short r short r
Xvoid gRGBmask        short r short r short r
Xvoid getscrmask    short r short r short r short r
Xvoid gRGBcursor    short r short r short r short r short r short r short r short r long *
Xvoid getmcolor        short s short r short r short r
Xvoid mapw        long s short s short s float r float r float r float r float r float r
Xvoid mapw2        long s short s short s float r float r
Xvoid defrasterfont    short s short s short s Fontchar s[arg3] short s short s[4*arg5]
Xlong qread        short r
Xvoid getcursor        short r short r short r long r
X#
X#   For these we receive arrays of stuff
X#
Xvoid getdev         long s short s[arg1] short r[arg1]
X#XXX not generated correctly yet
X#void getmatrix        float r[16]
Xlong readpixels        short s short r[retval]
Xlong readRGB        short s char r[retval] char r[retval] char r[retval]
Xlong blkqread        short s short r[arg1]
X#
X#   New 4D routines
X#
Xvoid cmode
Xvoid concave        long s
Xvoid curstype        long s
Xvoid drawmode        long s
Xvoid gammaramp        short s[256] short s[256] short s[256]
Xlong getbackface
Xlong getdescender
Xlong getdrawmode
Xlong getmmode
Xlong getsm
Xlong getvideo        long s
Xvoid imakebackground
Xvoid lmbind        short s short s
Xvoid lmdef        long s long s long s float s[arg3]
Xvoid mmode        long s
Xvoid normal        float s[3]
Xvoid overlay        long s
Xvoid RGBrange        short s short s short s short s short s short s short s short s
Xvoid setvideo         long s long s
Xvoid shademodel        long s
Xvoid underlay        long s
X#
X# New Personal Iris/GT Routines
X#
Xvoid bgnclosedline
Xvoid bgnline
Xvoid bgnpoint
Xvoid bgnpolygon
Xvoid bgnsurface
Xvoid bgntmesh
Xvoid bgntrim
Xvoid endclosedline
Xvoid endline
Xvoid endpoint
Xvoid endpolygon
Xvoid endsurface
Xvoid endtmesh
Xvoid endtrim
Xvoid blendfunction    long s long s
Xvoid c3f        float s[3]
Xvoid c3i        long  s[3]
Xvoid c3s        short s[3]
Xvoid c4f        float s[4]
Xvoid c4i        long  s[4]
Xvoid c4s        short s[4]
Xvoid colorf        float s
Xvoid cpack        long s
Xvoid czclear        long s long s
Xvoid dglclose        long s
Xlong dglopen        char *s long s
Xlong getgdesc        long s
Xvoid getnurbsproperty    long s float r
Xvoid glcompat        long s long s
Xvoid iconsize         long s long s
Xvoid icontitle        char *s
Xvoid lRGBrange        short s short s short s short s short s short s long s long s
Xvoid linesmooth        long s
Xvoid lmcolor        long s
Xvoid logicop        long s
Xlong lrectread         short s short s short s short s long r[retval]
Xvoid lrectwrite        short s short s short s short s long s[(arg2-arg1+1)*(arg4-arg3+1)]
Xlong rectread         short s short s short s short s short r[retval]
Xvoid rectwrite        short s short s short s short s short s[(arg2-arg1+1)*(arg4-arg3+1)]
Xvoid lsetdepth        long s long s
Xvoid lshaderange    short s short s long s long s
Xvoid n3f        float s[3]
Xvoid noborder
Xvoid pntsmooth        long s
Xvoid readsource        long s
Xvoid rectzoom        float s float s
Xvoid sbox        float s float s float s float s
Xvoid sboxi        long s long s long s long s
Xvoid sboxs        short s short s short s short s
Xvoid sboxf        float s float s float s float s
Xvoid sboxfi        long s long s long s long s
Xvoid sboxfs        short s short s short s short s
Xvoid setnurbsproperty    long s float s
Xvoid setpup         long s long s long s
Xvoid smoothline        long s
Xvoid subpixel        long s
Xvoid swaptmesh
Xlong swinopen        long s
Xvoid v2f        float s[2]
Xvoid v2i        long  s[2]
Xvoid v2s        short s[2]
Xvoid v3f        float s[3]
Xvoid v3i        long  s[3]
Xvoid v3s        short s[3]
Xvoid v4f        float s[4]
Xvoid v4i        long  s[4]
Xvoid v4s        short s[4]
Xvoid videocmd        long s
Xlong windepth        long s
Xvoid wmpack        long s
Xvoid zdraw        long s
Xvoid zfunction        long s
Xvoid zsource        long s
Xvoid zwritemask        long s
X#
X#   uses doubles
X#
Xvoid v2d        double s[2]
Xvoid v3d        double s[3]
Xvoid v4d        double s[4]
EOF
fi
if test -s 'src/stdwinmodule.c'
then echo '*** I will not over-write existing file src/stdwinmodule.c'
else
echo 'x - src/stdwinmodule.c'
sed 's/^X//' > 'src/stdwinmodule.c' << 'EOF'
X/***********************************************************
XCopyright 1991 by Stichting Mathematisch Centrum, Amsterdam, The
XNetherlands.
X
X                        All Rights Reserved
X
XPermission to use, copy, modify, and distribute this software and its
Xdocumentation for any purpose and without fee is hereby granted,
Xprovided that the above copyright notice appear in all copies and that
Xboth that copyright notice and this permission notice appear in
Xsupporting documentation, and that the names of Stichting Mathematisch
XCentrum or CWI not be used in advertising or publicity pertaining to
Xdistribution of the software without specific, written prior permission.
X
XSTICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO
XTHIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
XFITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE
XFOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
XWHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
XACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
XOF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
X
X******************************************************************/
X
X/* Stdwin module */
X
X/* Stdwin itself is a module, not a separate object type.
X   Object types defined here:
X    wp: a window
X    dp: a drawing structure (only one can exist at a time)
X    mp: a menu
X    tp: a textedit block
X*/
X
X/* Rules for translating C stdwin function calls into Python stwin:
X   - All names drop their initial letter 'w'
X   - Functions with a window as first parameter are methods of window objects
X   - There is no equivalent for wclose(); just delete the window object
X     (all references to it!)  (XXX maybe this is a bad idea)
X   - w.begindrawing() returns a drawing object
X   - There is no equivalent for wenddrawing(win); just delete the drawing
X      object (all references to it!)  (XXX maybe this is a bad idea)
X   - Functions that may only be used inside wbegindrawing / wendddrawing
X     are methods of the drawing object; this includes the text measurement
X     functions (which however have doubles as module functions).
X   - Methods of the drawing object drop an initial 'draw' from their name
X     if they have it, e.g., wdrawline() --> d.line()
X   - The obvious type conversions: int --> intobject; string --> stringobject
X   - A text parameter followed by a length parameter is only a text (string)
X     parameter in Python
X   - A point or other pair of horizontal and vertical coordinates is always
X     a pair of integers in Python
X   - Two points forming a rectangle or endpoints of a line segment are a
X     pair of points in Python
X   - The arguments to d.elarc() are three points.
X   - The functions wgetclip() and wsetclip() are translated into
X     stdwin.getcutbuffer() and stdwin.setcutbuffer(); 'clip' is really
X     a bad word for what these functions do (clipping has a different
X     meaning in the drawing world), while cutbuffer is standard X jargon.
X     XXX This must change again in the light of changes to stdwin!
X   - For textedit, similar rules hold, but they are less strict.
X   XXX more?
X*/
X
X#include "allobjects.h"
X
X#include "modsupport.h"
X
X#include "stdwin.h"
X
X/* Window and menu object types declared here because of forward references */
X
Xtypedef struct {
X    OB_HEAD
X    object    *w_title;
X    WINDOW    *w_win;
X    object    *w_attr;    /* Attributes dictionary */
X} windowobject;
X
Xextern typeobject Windowtype;    /* Really static, forward */
X
X#define is_windowobject(wp) ((wp)->ob_type == &Windowtype)
X
Xtypedef struct {
X    OB_HEAD
X    MENU    *m_menu;
X    int     m_id;
X    object    *m_attr;    /* Attributes dictionary */
X} menuobject;
X
Xextern typeobject Menutype;    /* Really static, forward */
X
X#define is_menuobject(mp) ((mp)->ob_type == &Menutype)
X
X
X/* Strongly stdwin-specific argument handlers */
X
Xstatic int
Xgetmousedetail(v, ep)
X    object *v;
X    EVENT *ep;
X{
X    if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 4)
X        return err_badarg();
X    return getintintarg(gettupleitem(v, 0),
X                    &ep->u.where.h, &ep->u.where.v) &&
X        getintarg(gettupleitem(v, 1), &ep->u.where.clicks) &&
X        getintarg(gettupleitem(v, 2), &ep->u.where.button) &&
X        getintarg(gettupleitem(v, 3), &ep->u.where.mask);
X}
X
Xstatic int
Xgetmenudetail(v, ep)
X    object *v;
X    EVENT *ep;
X{
X    object *mp;
X    if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 2)
X        return err_badarg();
X    mp = gettupleitem(v, 0);
X    if (mp == NULL || !is_menuobject(mp))
X        return err_badarg();
X    ep->u.m.id = ((menuobject *)mp) -> m_id;
X    return getintarg(gettupleitem(v, 1), &ep->u.m.item);
X}
X
Xstatic int
Xgeteventarg(v, ep)
X    object *v;
X    EVENT *ep;
X{
X    object *wp, *detail;
X    int a[4];
X    if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 3)
X        return err_badarg();
X    if (!getintarg(gettupleitem(v, 0), &ep->type))
X        return 0;
X    wp = gettupleitem(v, 1);
X    if (wp == None)
X        ep->window = NULL;
X    else if (wp == NULL || !is_windowobject(wp))
X        return err_badarg();
X    else
X        ep->window = ((windowobject *)wp) -> w_win;
X    detail = gettupleitem(v, 2);
X    switch (ep->type) {
X    case WE_CHAR:
X        if (!is_stringobject(detail) || getstringsize(detail) != 1)
X        return err_badarg();
X        ep->u.character = getstringvalue(detail)[0];
X        return 1;
X    case WE_COMMAND:
X        return getintarg(detail, &ep->u.command);
X    case WE_DRAW:
X        if (!getrectarg(detail, a))
X            return 0;
X        ep->u.area.left = a[0];
X        ep->u.area.top = a[1];
X        ep->u.area.right = a[2];
X        ep->u.area.bottom = a[3];
X        return 1;
X    case WE_MOUSE_DOWN:
X    case WE_MOUSE_UP:
X    case WE_MOUSE_MOVE:
X        return getmousedetail(detail, ep);
X    case WE_MENU:
X        return getmenudetail(detail, ep);
X    default:
X        return 1;
X    }
X}
X
X
X/* Return construction tools */
X
Xstatic object *
Xmakepoint(a, b)
X    int a, b;
X{
X    object *v;
X    object *w;
X    if ((v = newtupleobject(2)) == NULL)
X        return NULL;
X    if ((w = newintobject((long)a)) == NULL ||
X        settupleitem(v, 0, w) != 0 ||
X        (w = newintobject((long)b)) == NULL ||
X        settupleitem(v, 1, w) != 0) {
X        DECREF(v);
X        return NULL;
X    }
X    return v;
X}
X
Xstatic object *
Xmakerect(a, b, c, d)
X    int a, b, c, d;
X{
X    object *v;
X    object *w;
X    if ((v = newtupleobject(2)) == NULL)
X        return NULL;
X    if ((w = makepoint(a, b)) == NULL ||
X        settupleitem(v, 0, w) != 0 ||
X        (w = makepoint(c, d)) == NULL ||
X        settupleitem(v, 1, w) != 0) {
X        DECREF(v);
X        return NULL;
X    }
X    return v;
X}
X
Xstatic object *
Xmakemouse(hor, ver, clicks, button, mask)
X    int hor, ver, clicks, button, mask;
X{
X    object *v;
X    object *w;
X    if ((v = newtupleobject(4)) == NULL)
X        return NULL;
X    if ((w = makepoint(hor, ver)) == NULL ||
X        settupleitem(v, 0, w) != 0 ||
X        (w = newintobject((long)clicks)) == NULL ||
X        settupleitem(v, 1, w) != 0 ||
X        (w = newintobject((long)button)) == NULL ||
X        settupleitem(v, 2, w) != 0 ||
X        (w = newintobject((long)mask)) == NULL ||
X        settupleitem(v, 3, w) != 0) {
X        DECREF(v);
X        return NULL;
X    }
X    return v;
X}
X
Xstatic object *
Xmakemenu(mp, item)
X    object *mp;
X    int item;
X{
X    object *v;
X    object *w;
X    if ((v = newtupleobject(2)) == NULL)
X        return NULL;
X    INCREF(mp);
X    if (settupleitem(v, 0, mp) != 0 ||
X        (w = newintobject((long)item)) == NULL ||
X        settupleitem(v, 1, w) != 0) {
X        DECREF(v);
X        return NULL;
X    }
X    return v;
X}
X
X
X/* Drawing objects */
X
Xtypedef struct {
X    OB_HEAD
X    windowobject    *d_ref;
X} drawingobject;
X
Xstatic drawingobject *Drawing; /* Set to current drawing object, or NULL */
X
X/* Drawing methods */
X
Xstatic void
Xdrawing_dealloc(dp)
X    drawingobject *dp;
X{
X    wenddrawing(dp->d_ref->w_win);
X    Drawing = NULL;
X    DECREF(dp->d_ref);
X    free((char *)dp);
X}
X
Xstatic object *
Xdrawing_generic(dp, args, func)
X    drawingobject *dp;
X    object *args;
X    void (*func) FPROTO((int, int, int, int));
X{
X    int a[4];
X    if (!getrectarg(args, a))
X        return NULL;
X    (*func)(a[0], a[1], a[2], a[3]);
X    INCREF(None);
X    return None;
X}
X
Xstatic object *
Xdrawing_line(dp, args)
X    drawingobject *dp;
X    object *args;
X{
X    drawing_generic(dp, args, wdrawline);
X}
X
Xstatic object *
Xdrawing_xorline(dp, args)
X    drawingobject *dp;
X    object *args;
X{
X    drawing_generic(dp, args, wxorline);
X}
X
Xstatic object *
Xdrawing_circle(dp, args)
X    drawingobject *dp;
X    object *args;
X{
X    int a[3];
X    if (!getpointintarg(args, a))
X        return NULL;
X    wdrawcircle(a[0], a[1], a[2]);
X    INCREF(None);
X    return None;
X}
X
Xstatic object *
Xdrawing_elarc(dp, args)
X    drawingobject *dp;
X    object *args;
X{
X    int a[6];
X    if (!get3pointarg(args, a))
X        return NULL;
X    wdrawelarc(a[0], a[1], a[2], a[3], a[4], a[5]);
X    INCREF(None);
X    return None;
X}
X
Xstatic object *
Xdrawing_box(dp, args)
X    drawingobject *dp;
X    object *args;
X{
X    drawing_generic(dp, args, wdrawbox);
X}
X
Xstatic object *
Xdrawing_erase(dp, args)
X    drawingobject *dp;
X    object *args;
X{
X    drawing_generic(dp, args, werase);
X}
X
Xstatic object *
Xdrawing_paint(dp, args)
X    drawingobject *dp;
X    object *args;
X{
X    drawing_generic(dp, args, wpaint);
X}
X
Xstatic object *
Xdrawing_invert(dp, args)
X    drawingobject *dp;
X    object *args;
X{
X    drawing_generic(dp, args, winvert);
X}
X
Xstatic object *
Xdrawing_cliprect(dp, args)
X    drawingobject *dp;
X    object *args;
X{
X    drawing_generic(dp, args, wcliprect);
X}
X
Xstatic object *
Xdrawing_noclip(dp, args)
X    drawingobject *dp;
X    object *args;
X{
X    if (!getnoarg(args))
X        return NULL;
X    wnoclip();
X    INCREF(None);
X    return None;
X}
X
Xstatic object *
Xdrawing_shade(dp, args)
X    drawingobject *dp;
X    object *args;
X{
X    int a[5];
X    if (!getrectintarg(args, a))
X        return NULL;
X    wshade(a[0], a[1], a[2], a[3], a[4]);
X    INCREF(None);
X    return None;
X}
X
Xstatic object *
Xdrawing_text(dp, args)
X    drawingobject *dp;
X    object *args;
X{
X    int a[2];
X    object *s;
X    if (!getpointstrarg(args, a, &s))
X        return NULL;
X    wdrawtext(a[0], a[1], getstringvalue(s), (int)getstringsize(s));
X    INCREF(None);
X    return None;
X}
X
X/* The following four are also used as stdwin functions */
X
Xstatic object *
Xdrawing_lineheight(dp, args)
X    drawingobject *dp;
X    object *args;
X{
X    if (!getnoarg(args))
X        return NULL;
X    return newintobject((long)wlineheight());
X}
X
Xstatic object *
Xdrawing_baseline(dp, args)
X    drawingobject *dp;
X    object *args;
X{
X    if (!getnoarg(args))
X        return NULL;
X    return newintobject((long)wbaseline());
X}
X
Xstatic object *
Xdrawing_textwidth(dp, args)
X    drawingobject *dp;
X    object *args;
X{
X    object *s;
X    if (!getstrarg(args, &s))
X        return NULL;
X    return newintobject(
X        (long)wtextwidth(getstringvalue(s), (int)getstringsize(s)));
X}
X
Xstatic object *
Xdrawing_textbreak(dp, args)
X    drawingobject *dp;
X    object *args;
X{
X    object *s;
X    int a;
X    if (!getstrintarg(args, &s, &a))
X        return NULL;
X    return newintobject(
X        (long)wtextbreak(getstringvalue(s), (int)getstringsize(s), a));
X}
X
Xstatic struct methodlist drawing_methods[] = {
X    {"box",        drawing_box},
X    {"circle",    drawing_circle},
X    {"cliprect",    drawing_cliprect},
X    {"elarc",    drawing_elarc},
X    {"erase",    drawing_erase},
X    {"invert",    drawing_invert},
X    {"line",    drawing_line},
X    {"noclip",    drawing_noclip},
X    {"paint",    drawing_paint},
X    {"shade",    drawing_shade},
X    {"text",    drawing_text},
X    {"xorline",    drawing_xorline},
X
X    /* Text measuring methods: */
X    {"baseline",    drawing_baseline},
X    {"lineheight",    drawing_lineheight},
X    {"textbreak",    drawing_textbreak},
X    {"textwidth",    drawing_textwidth},
X    {NULL,        NULL}        /* sentinel */
X};
X
Xstatic object *
Xdrawing_getattr(wp, name)
X    drawingobject *wp;
X    char *name;
X{
X    return findmethod(drawing_methods, (object *)wp, name);
X}
X
Xstatic typeobject Drawingtype = {
X    OB_HEAD_INIT(&Typetype)
X    0,            /*ob_size*/
X    "drawing",        /*tp_name*/
X    sizeof(drawingobject),    /*tp_size*/
X    0,            /*tp_itemsize*/
X    /* methods */
X    drawing_dealloc,    /*tp_dealloc*/
X    0,            /*tp_print*/
X    drawing_getattr,    /*tp_getattr*/
X    0,            /*tp_setattr*/
X    0,            /*tp_compare*/
X    0,            /*tp_repr*/
X};
X
X
X/* Text(edit) objects */
X
Xtypedef struct {
X    OB_HEAD
X    TEXTEDIT    *t_text;
X    windowobject    *t_ref;
X    object        *t_attr;    /* Attributes dictionary */
X} textobject;
X
Xextern typeobject Texttype;    /* Really static, forward */
X
Xstatic textobject *
Xnewtextobject(wp, left, top, right, bottom)
X    windowobject *wp;
X    int left, top, right, bottom;
X{
X    textobject *tp;
X    tp = NEWOBJ(textobject, &Texttype);
X    if (tp == NULL)
X        return NULL;
X    tp->t_attr = NULL;
X    INCREF(wp);
X    tp->t_ref = wp;
X    tp->t_text = tecreate(wp->w_win, left, top, right, bottom);
X    if (tp->t_text == NULL) {
X        DECREF(tp);
X        return (textobject *) err_nomem();
X    }
X    return tp;
X}
X
X/* Text(edit) methods */
X
Xstatic void
Xtext_dealloc(tp)
X    textobject *tp;
X{
X    if (tp->t_text != NULL)
X        tefree(tp->t_text);
X    if (tp->t_attr != NULL)
X        DECREF(tp->t_attr);
X    DECREF(tp->t_ref);
X    DEL(tp);
X}
X
Xstatic object *
Xtext_arrow(self, args)
X    textobject *self;
X    object *args;
X{
X    int code;
X    if (!getintarg(args, &code))
X        return NULL;
X    tearrow(self->t_text, code);
X    INCREF(None);
X    return None;
X}
X
Xstatic object *
Xtext_draw(self, args)
X    textobject *self;
X    object *args;
X{
X    register TEXTEDIT *tp = self->t_text;
X    int a[4];
X    int left, top, right, bottom;
X    if (!getrectarg(args, a))
X        return NULL;
X    if (Drawing != NULL) {
X        err_setstr(RuntimeError, "not drawing");
X        return NULL;
X    }
X    /* Clip to text area and ignore if area is empty */
X    left = tegetleft(tp);
X    top = tegettop(tp);
X    right = tegetright(tp);
X    bottom = tegetbottom(tp);
X    if (a[0] < left) a[0] = left;
X    if (a[1] < top) a[1] = top;
X    if (a[2] > right) a[2] = right;
X    if (a[3] > bottom) a[3] = bottom;
X    if (a[0] < a[2] && a[1] < a[3]) {
X        /* Hide/show focus around draw call; these are undocumented,
X           but required here to get the highlighting correct.
X           The call to werase is also required for this reason.
X           Finally, this forces us to require (above) that we are NOT
X           already drawing. */
X        tehidefocus(tp);
X        wbegindrawing(self->t_ref->w_win);
X        werase(a[0], a[1], a[2], a[3]);
X        tedrawnew(tp, a[0], a[1], a[2], a[3]);
X        wenddrawing(self->t_ref->w_win);
X        teshowfocus(tp);
X    }
X    INCREF(None);
X    return None;
X}
X
Xstatic object *
Xtext_event(self, args)
X    textobject *self;
X    object *args;
X{
X    register TEXTEDIT *tp = self->t_text;
X    EVENT e;
X    if (!geteventarg(args, &e))
X        return NULL;
X    if (e.type == WE_MOUSE_DOWN) {
X        /* Cheat at the margins */
X        int width, height;
X        wgetdocsize(e.window, &width, &height);
X        if (e.u.where.h < 0 && tegetleft(tp) == 0)
X            e.u.where.h = 0;
X        else if (e.u.where.h > width && tegetright(tp) == width)
X            e.u.where.h = width;
X        if (e.u.where.v < 0 && tegettop(tp) == 0)
X            e.u.where.v = 0;
X        else if (e.u.where.v > height && tegetright(tp) == height)
X            e.u.where.v = height;
X    }
X    return newintobject((long) teevent(tp, &e));
X}
X
Xstatic object *
Xtext_getfocus(self, args)
X    textobject *self;
X    object *args;
X{
X    if (!getnoarg(args))
X        return NULL;
X    return makepoint(tegetfoc1(self->t_text), tegetfoc2(self->t_text));
X}
X
Xstatic object *
Xtext_getfocustext(self, args)
X    textobject *self;
X    object *args;
X{
X    int f1, f2;
X    char *text;
X    if (!getnoarg(args))
X        return NULL;
X    f1 = tegetfoc1(self->t_text);
X    f2 = tegetfoc2(self->t_text);
X    text = tegettext(self->t_text);
X    return newsizedstringobject(text + f1, f2-f1);
X}
X
Xstatic object *
Xtext_getrect(self, args)
X    textobject *self;
X    object *args;
X{
X    if (!getnoarg(args))
X        return NULL;
X    return makerect(tegetleft(self->t_text),
X            tegettop(self->t_text),
X            tegetright(self->t_text),
X            tegetbottom(self->t_text));
X}
X
Xstatic object *
Xtext_gettext(self, args)
X    textobject *self;
X    object *args;
X{
X    if (!getnoarg(args))
X        return NULL;
X    return newsizedstringobject(tegettext(self->t_text),
X                    tegetlen(self->t_text));
X}
X
Xstatic object *
Xtext_move(self, args)
X    textobject *self;
X    object *args;
X{
X    int a[4];
X    if (!getrectarg(args, a))
X        return NULL;
X    temovenew(self->t_text, a[0], a[1], a[2], a[3]);
X    INCREF(None);
X    return None;
X}
X
Xstatic object *
Xtext_setfocus(self, args)
X    textobject *self;
X    object *args;
X{
X    int a[2];
X    if (!getpointarg(args, a))
X        return NULL;
X    tesetfocus(self->t_text, a[0], a[1]);
X    INCREF(None);
X    return None;
X}
X
Xstatic object *
Xtext_replace(self, args)
X    textobject *self;
X    object *args;
X{
X    object *text;
X    if (!getstrarg(args, &text))
X        return NULL;
X    tereplace(self->t_text, getstringvalue(text));
X    INCREF(None);
X    return None;
X}
X
Xstatic struct methodlist text_methods[] = {
X    "arrow",    text_arrow,
X    "draw",        text_draw,
X    "event",    text_event,
X    "getfocus",    text_getfocus,
X    "getfocustext",    text_getfocustext,
X    "getrect",    text_getrect,
X    "gettext",    text_gettext,
X    "move",        text_move,
X    "replace",    text_replace,
X    "setfocus",    text_setfocus,
X    {NULL,        NULL}        /* sentinel */
X};
X
Xstatic object *
Xtext_getattr(tp, name)
X    textobject *tp;
X    char *name;
X{
X    if (tp->t_attr != NULL) {
X        object *v = dictlookup(tp->t_attr, name);
X        if (v != NULL) {
X            INCREF(v);
X            return v;
X        }
X    }
X    return findmethod(text_methods, (object *)tp, name);
X}
X
Xstatic int
Xtext_setattr(tp, name, v)
X    textobject *tp;
X    char *name;
X    object *v;
X{
X    if (tp->t_attr == NULL) {
X        tp->t_attr = newdictobject();
X        if (tp->t_attr == NULL)
X            return -1;
X    }
X    if (v == NULL)
X        return dictremove(tp->t_attr, name);
X    else
X        return dictinsert(tp->t_attr, name, v);
X}
X
Xstatic typeobject Texttype = {
X    OB_HEAD_INIT(&Typetype)
X    0,            /*ob_size*/
X    "textedit",        /*tp_name*/
X    sizeof(textobject),    /*tp_size*/
X    0,            /*tp_itemsize*/
X    /* methods */
X    text_dealloc,        /*tp_dealloc*/
X    0,            /*tp_print*/
X    text_getattr,        /*tp_getattr*/
X    text_setattr,        /*tp_setattr*/
X    0,            /*tp_compare*/
X    0,            /*tp_repr*/
X};
X
X
X/* Menu objects */
X
X#define IDOFFSET 10        /* Menu IDs we use start here */
X#define MAXNMENU 20        /* Max #menus we allow */
Xstatic menuobject *menulist[MAXNMENU];
X
Xstatic menuobject *
Xnewmenuobject(title)
X    object *title;
X{
X    int id;
X    MENU *menu;
X    menuobject *mp;
X    for (id = 0; id < MAXNMENU; id++) {
X        if (menulist[id] == NULL)
X            break;
X    }
X    if (id >= MAXNMENU)
X        return (menuobject *) err_nomem();
X    menu = wmenucreate(id + IDOFFSET, getstringvalue(title));
X    if (menu == NULL)
X        return (menuobject *) err_nomem();
X    mp = NEWOBJ(menuobject, &Menutype);
X    if (mp != NULL) {
X        mp->m_menu = menu;
X        mp->m_id = id + IDOFFSET;
X        mp->m_attr = NULL;
X        menulist[id] = mp;
X    }
X    else
X        wmenudelete(menu);
X    return mp;
X}
X
X/* Menu methods */
X
Xstatic void
Xmenu_dealloc(mp)
X    menuobject *mp;
X{
X
X    int id = mp->m_id - IDOFFSET;
X    if (id >= 0 && id < MAXNMENU && menulist[id] == mp) {
X        menulist[id] = NULL;
X    }
X    wmenudelete(mp->m_menu);
X    if (mp->m_attr != NULL)
X        DECREF(mp->m_attr);
X    DEL(mp);
X}
X
Xstatic object *
Xmenu_additem(self, args)
X    menuobject *self;
X    object *args;
X{
X    object *text;
X    int shortcut;
X    if (is_tupleobject(args)) {
X        object *v;
X        if (!getstrstrarg(args, &text, &v))
X            return NULL;
X        if (getstringsize(v) != 1) {
X            err_badarg();
X            return NULL;
X        }
X        shortcut = *getstringvalue(v) & 0xff;
X    }
X    else {
X        if (!getstrarg(args, &text))
X            return NULL;
X        shortcut = -1;
X    }
X    wmenuadditem(self->m_menu, getstringvalue(text), shortcut);
X    INCREF(None);
X    return None;
X}
X
Xstatic object *
Xmenu_setitem(self, args)
X    menuobject *self;
X    object *args;
X{
X    int index;
X    object *text;
X    if (!getintstrarg(args, &index, &text))
X        return NULL;
X    wmenusetitem(self->m_menu, index, getstringvalue(text));
X    INCREF(None);
X    return None;
X}
X
Xstatic object *
Xmenu_enable(self, args)
X    menuobject *self;
X    object *args;
X{
X    int index;
X    int flag;
X    if (!getintintarg(args, &index, &flag))
X        return NULL;
X    wmenuenable(self->m_menu, index, flag);
X    INCREF(None);
X    return None;
X}
X
Xstatic object *
Xmenu_check(self, args)
X    menuobject *self;
X    object *args;
X{
X    int index;
X    int flag;
X    if (!getintintarg(args, &index, &flag))
X        return NULL;
X    wmenucheck(self->m_menu, index, flag);
X    INCREF(None);
X    return None;
X}
X
Xstatic struct methodlist menu_methods[] = {
X    "additem",    menu_additem,
X    "setitem",    menu_setitem,
X    "enable",    menu_enable,
X    "check",    menu_check,
X    {NULL,        NULL}        /* sentinel */
X};
X
Xstatic object *
Xmenu_getattr(mp, name)
X    menuobject *mp;
X    char *name;
X{
X    if (mp->m_attr != NULL) {
X        object *v = dictlookup(mp->m_attr, name);
X        if (v != NULL) {
X            INCREF(v);
X            return v;
X        }
X    }
X    return findmethod(menu_methods, (object *)mp, name);
X}
X
Xstatic int
Xmenu_setattr(mp, name, v)
X    menuobject *mp;
X    char *name;
X    object *v;
X{
X    if (mp->m_attr == NULL) {
X        mp->m_attr = newdictobject();
X        if (mp->m_attr == NULL)
X            return -1;
X    }
X    if (v == NULL)
X        return dictremove(mp->m_attr, name);
X    else
X        return dictinsert(mp->m_attr, name, v);
X}
X
Xstatic typeobject Menutype = {
X    OB_HEAD_INIT(&Typetype)
X    0,            /*ob_size*/
X    "menu",            /*tp_name*/
X    sizeof(menuobject),    /*tp_size*/
X    0,            /*tp_itemsize*/
X    /* methods */
X    menu_dealloc,        /*tp_dealloc*/
X    0,            /*tp_print*/
X    menu_getattr,        /*tp_getattr*/
X    menu_setattr,        /*tp_setattr*/
X    0,            /*tp_compare*/
X    0,            /*tp_repr*/
X};
X
X
X/* Windows */
X
X#define MAXNWIN 50
Xstatic windowobject *windowlist[MAXNWIN];
X
X/* Window methods */
X
Xstatic void
Xwindow_dealloc(wp)
X    windowobject *wp;
X{
X    if (wp->w_win != NULL) {
X        int tag = wgettag(wp->w_win);
X        if (tag >= 0 && tag < MAXNWIN)
X            windowlist[tag] = NULL;
X        else
X            fprintf(stderr, "XXX help! tag %d in window_dealloc\n",
X                tag);
X        wclose(wp->w_win);
X    }
X    DECREF(wp->w_title);
X    if (wp->w_attr != NULL)
X        DECREF(wp->w_attr);
X    free((char *)wp);
X}
X
Xstatic void
Xwindow_print(wp, fp, flags)
X    windowobject *wp;
X    FILE *fp;
X    int flags;
X{
X    fprintf(fp, "<window titled '%s'>", getstringvalue(wp->w_title));
X}
X
Xstatic object *
Xwindow_begindrawing(wp, args)
X    windowobject *wp;
X    object *args;
X{
X    drawingobject *dp;
X    if (!getnoarg(args))
X        return NULL;
X    if (Drawing != NULL) {
X        err_setstr(RuntimeError, "already drawing");
X        return NULL;
X    }
X    dp = NEWOBJ(drawingobject, &Drawingtype);
X    if (dp == NULL)
X        return NULL;
X    Drawing = dp;
X    INCREF(wp);
X    dp->d_ref = wp;
X    wbegindrawing(wp->w_win);
X    return (object *)dp;
X}
X
Xstatic object *
Xwindow_change(wp, args)
X    windowobject *wp;
X    object *args;
X{
X    int a[4];
X    if (!getrectarg(args, a))
X        return NULL;
X    wchange(wp->w_win, a[0], a[1], a[2], a[3]);
X    INCREF(None);
X    return None;
X}
X
Xstatic object *
Xwindow_gettitle(wp, args)
X    windowobject *wp;
X    object *args;
X{
X    if (!getnoarg(args))
X        return NULL;
X    INCREF(wp->w_title);
X    return wp->w_title;
X}
X
Xstatic object *
Xwindow_getwinsize(wp, args)
X    windowobject *wp;
X    object *args;
X{
X    int width, height;
X    if (!getnoarg(args))
X        return NULL;
X    wgetwinsize(wp->w_win, &width, &height);
X    return makepoint(width, height);
X}
X
Xstatic object *
Xwindow_getdocsize(wp, args)
X    windowobject *wp;
X    object *args;
X{
X    int width, height;
X    if (!getnoarg(args))
X        return NULL;
X    wgetdocsize(wp->w_win, &width, &height);
X    return makepoint(width, height);
X}
X
Xstatic object *
Xwindow_getorigin(wp, args)
X    windowobject *wp;
X    object *args;
X{
X    int width, height;
X    if (!getnoarg(args))
X        return NULL;
X    wgetorigin(wp->w_win, &width, &height);
X    return makepoint(width, height);
X}
X
Xstatic object *
Xwindow_scroll(wp, args)
X    windowobject *wp;
X    object *args;
X{
X    int a[6];
X    if (!getrectpointarg(args, a))
X        return NULL;
X    wscroll(wp->w_win, a[0], a[1], a[2], a[3], a[4], a[5]);
X    INCREF(None);
X    return None;
X}
X
Xstatic object *
Xwindow_setdocsize(wp, args)
X    windowobject *wp;
X    object *args;
X{
X    int a[2];
X    if (!getpointarg(args, a))
X        return NULL;
X    wsetdocsize(wp->w_win, a[0], a[1]);
X    INCREF(None);
X    return None;
X}
X
Xstatic object *
Xwindow_setorigin(wp, args)
X    windowobject *wp;
X    object *args;
X{
X    int a[2];
X    if (!getpointarg(args, a))
X        return NULL;
X    wsetorigin(wp->w_win, a[0], a[1]);
X    INCREF(None);
X    return None;
X}
X
Xstatic object *
Xwindow_settitle(wp, args)
X    windowobject *wp;
X    object *args;
X{
X    object *title;
X    if (!getstrarg(args, &title))
X        return NULL;
X    DECREF(wp->w_title);
X    INCREF(title);
X    wp->w_title = title;
X    wsettitle(wp->w_win, getstringvalue(title));
X    INCREF(None);
X    return None;
X}
X
Xstatic object *
Xwindow_show(wp, args)
X    windowobject *wp;
X    object *args;
X{
X    int a[4];
X    if (!getrectarg(args, a))
X        return NULL;
X    wshow(wp->w_win, a[0], a[1], a[2], a[3]);
X    INCREF(None);
X    return None;
X}
X
Xstatic object *
Xwindow_settimer(wp, args)
X    windowobject *wp;
X    object *args;
X{
X    int a;
X    if (!getintarg(args, &a))
X        return NULL;
X    wsettimer(wp->w_win, a);
X    INCREF(None);
X    return None;
X}
X
Xstatic object *
Xwindow_menucreate(self, args)
X    windowobject *self;
X    object *args;
X{
X    menuobject *mp;
X    object *title;
X    if (!getstrarg(args, &title))
X        return NULL;
X    wmenusetdeflocal(1);
X    mp = newmenuobject(title);
X    if (mp == NULL)
X        return NULL;
X    wmenuattach(self->w_win, mp->m_menu);
X    return (object *)mp;
X}
X
Xstatic object *
Xwindow_textcreate(self, args)
X    windowobject *self;
X    object *args;
X{
X    textobject *tp;
X    int a[4];
X    if (!getrectarg(args, a))
X        return NULL;
X    return (object *)
X        newtextobject(self, a[0], a[1], a[2], a[3]);
X}
X
Xstatic object *
Xwindow_setselection(self, args)
X    windowobject *self;
X    object *args;
X{
X    int sel;
X    object *str;
X    int ok;
X    if (!getintstrarg(args, &sel, &str))
X        return NULL;
X    ok = wsetselection(self->w_win, sel,
X        getstringvalue(str), (int)getstringsize(str));
X    return newintobject(ok);
X}
X
Xstatic object *
Xwindow_setwincursor(self, args)
X    windowobject *self;
X    object *args;
X{
X    object *str;
X    CURSOR *c;
X    if (!getstrarg(args, &str))
X        return NULL;
X    c = wfetchcursor(getstringvalue(str));
X    if (c == NULL) {
X        err_setstr(RuntimeError, "no such cursor");
X        return NULL;
X    }
X    wsetwincursor(self->w_win, c);
X    INCREF(None);
X    return None;
X}
X
Xstatic struct methodlist window_methods[] = {
X    {"begindrawing",window_begindrawing},
X    {"change",    window_change},
X    {"getdocsize",    window_getdocsize},
X    {"getorigin",    window_getorigin},
X    {"gettitle",    window_gettitle},
X    {"getwinsize",    window_getwinsize},
X    {"menucreate",    window_menucreate},
X    {"scroll",    window_scroll},
X    {"setwincursor",window_setwincursor},
X    {"setdocsize",    window_setdocsize},
X    {"setorigin",    window_setorigin},
X    {"setselection",window_setselection},
X    {"settimer",    window_settimer},
X    {"settitle",    window_settitle},
X    {"show",    window_show},
X    {"textcreate",    window_textcreate},
X    {NULL,        NULL}        /* sentinel */
X};
X
Xstatic object *
Xwindow_getattr(wp, name)
X    windowobject *wp;
X    char *name;
X{
X    if (wp->w_attr != NULL) {
X        object *v = dictlookup(wp->w_attr, name);
X        if (v != NULL) {
X            INCREF(v);
X            return v;
X        }
X    }
X    return findmethod(window_methods, (object *)wp, name);
X}
X
Xstatic int
Xwindow_setattr(wp, name, v)
X    windowobject *wp;
X    char *name;
X    object *v;
X{
X    if (wp->w_attr == NULL) {
X        wp->w_attr = newdictobject();
X        if (wp->w_attr == NULL)
X            return -1;
X    }
X    if (v == NULL)
X        return dictremove(wp->w_attr, name);
X    else
X        return dictinsert(wp->w_attr, name, v);
X}
X
Xstatic typeobject Windowtype = {
X    OB_HEAD_INIT(&Typetype)
X    0,            /*ob_size*/
X    "window",        /*tp_name*/
X    sizeof(windowobject),    /*tp_size*/
X    0,            /*tp_itemsize*/
X    /* methods */
X    window_dealloc,        /*tp_dealloc*/
X    window_print,        /*tp_print*/
X    window_getattr,        /*tp_getattr*/
X    window_setattr,        /*tp_setattr*/
X    0,            /*tp_compare*/
X    0,            /*tp_repr*/
X};
X
X/* Stdwin methods */
X
Xstatic object *
Xstdwin_open(sw, args)
X    object *sw;
X    object *args;
X{
X    int tag;
X    object *title;
X    windowobject *wp;
X    if (!getstrarg(args, &title))
X        return NULL;
X    for (tag = 0; tag < MAXNWIN; tag++) {
X        if (windowlist[tag] == NULL)
X            break;
X    }
X    if (tag >= MAXNWIN)
X        return err_nomem();
X    wp = NEWOBJ(windowobject, &Windowtype);
X    if (wp == NULL)
X        return NULL;
X    INCREF(title);
X    wp->w_title = title;
X    wp->w_win = wopen(getstringvalue(title), (void (*)()) NULL);
X    wp->w_attr = NULL;
X    if (wp->w_win == NULL) {
X        DECREF(wp);
X        return NULL;
X    }
X    windowlist[tag] = wp;
X    wsettag(wp->w_win, tag);
X    return (object *)wp;
X}
X
Xstatic object *
Xstdwin_get_poll_event(poll, args)
X    int poll;
X    object *args;
X{
X    EVENT e;
X    object *v, *w;
X    if (!getnoarg(args))
X        return NULL;
X    if (Drawing != NULL) {
X        err_setstr(RuntimeError, "cannot getevent() while drawing");
X        return NULL;
X    }
X/* again: */
X    if (poll) {
X        if (!wpollevent(&e)) {
X            INCREF(None);
X            return None;
X        }
X    }
X    else
X        wgetevent(&e);
X    if (e.type == WE_COMMAND && e.u.command == WC_CANCEL) {
X        /* Turn keyboard interrupts into exceptions */
X        err_set(KeyboardInterrupt);
X        return NULL;
X    }
X/*
X    if (e.window == NULL && (e.type == WE_COMMAND || e.type == WE_CHAR))
X        goto again;
X*/
X    if (e.type == WE_COMMAND && e.u.command == WC_CLOSE) {
X        /* Turn WC_CLOSE commands into WE_CLOSE events */
X        e.type = WE_CLOSE;
X    }
X    v = newtupleobject(3);
X    if (v == NULL)
X        return NULL;
X    if ((w = newintobject((long)e.type)) == NULL) {
X        DECREF(v);
X        return NULL;
X    }
X    settupleitem(v, 0, w);
X    if (e.window == NULL)
X        w = None;
X    else {
X        int tag = wgettag(e.window);
X        if (tag < 0 || tag >= MAXNWIN || windowlist[tag] == NULL)
X            w = None;
X        else
X            w = (object *)windowlist[tag];
X#ifdef sgi
X        /* XXX Trap for unexplained weird bug */
X        if ((long)w == (long)0x80000001) {
X            err_setstr(SystemError,
X                "bad pointer in stdwin.getevent()");
X            return NULL;
X        }
X#endif
X    }
X    INCREF(w);
X    settupleitem(v, 1, w);
X    switch (e.type) {
X    case WE_CHAR:
X        {
X            char c[1];
X            c[0] = e.u.character;
X            w = newsizedstringobject(c, 1);
X        }
X        break;
X    case WE_COMMAND:
X        w = newintobject((long)e.u.command);
X        break;
X    case WE_DRAW:
X        w = makerect(e.u.area.left, e.u.area.top,
X                e.u.area.right, e.u.area.bottom);
X        break;
X    case WE_MOUSE_DOWN:
X    case WE_MOUSE_MOVE:
X    case WE_MOUSE_UP:
X        w = makemouse(e.u.where.h, e.u.where.v,
X                e.u.where.clicks,
X                e.u.where.button,
X                e.u.where.mask);
X        break;
X    case WE_MENU:
X        if (e.u.m.id >= IDOFFSET && e.u.m.id < IDOFFSET+MAXNMENU &&
X                menulist[e.u.m.id - IDOFFSET] != NULL)
X            w = (object *)menulist[e.u.m.id - IDOFFSET];
X        else
X            w = None;
X        w = makemenu(w, e.u.m.item);
X        break;
X    case WE_LOST_SEL:
X        w = newintobject((long)e.u.sel);
X        break;
X    default:
X        w = None;
X        INCREF(w);
X        break;
X    }
X    if (w == NULL) {
X        DECREF(v);
X        return NULL;
X    }
X    settupleitem(v, 2, w);
X    return v;
X}
X
Xstatic object *
Xstdwin_getevent(sw, args)
X    object *sw;
X    object *args;
X{
X    return stdwin_get_poll_event(0, args);
X}
X
Xstatic object *
Xstdwin_pollevent(sw, args)
X    object *sw;
X    object *args;
X{
X    return stdwin_get_poll_event(1, args);
X}
X
Xstatic object *
Xstdwin_setdefwinpos(sw, args)
X    object *sw;
X    object *args;
X{
X    int a[2];
X    if (!getpointarg(args, a))
X        return NULL;
X    wsetdefwinpos(a[0], a[1]);
X    INCREF(None);
X    return None;
X}
X
Xstatic object *
Xstdwin_setdefwinsize(sw, args)
X    object *sw;
X    object *args;
X{
X    int a[2];
X    if (!getpointarg(args, a))
X        return NULL;
X    wsetdefwinsize(a[0], a[1]);
X    INCREF(None);
X    return None;
X}
X
Xstatic object *
Xstdwin_getdefwinpos(wp, args)
X    windowobject *wp;
X    object *args;
X{
X    int h, v;
X    if (!getnoarg(args))
X        return NULL;
X    wgetdefwinpos(&h, &v);
X    return makepoint(h, v);
X}
X
Xstatic object *
Xstdwin_getdefwinsize(wp, args)
X    windowobject *wp;
X    object *args;
X{
X    int width, height;
X    if (!getnoarg(args))
X        return NULL;
X    wgetdefwinsize(&width, &height);
X    return makepoint(width, height);
X}
X
Xstatic object *
Xstdwin_menucreate(self, args)
X    object *self;
X    object *args;
X{
X    object *title;
X    if (!getstrarg(args, &title))
X        return NULL;
X    wmenusetdeflocal(0);
X    return (object *)newmenuobject(title);
X}
X
Xstatic object *
Xstdwin_askfile(self, args)
X    object *self;
X    object *args;
X{
X    object *prompt, *dflt;
X    int new, ret;
X    char buf[256];
X    if (!getstrstrintarg(args, &prompt, &dflt, &new))
X        return NULL;
X    strncpy(buf, getstringvalue(dflt), sizeof buf);
X    buf[sizeof buf - 1] = '\0';
X    ret = waskfile(getstringvalue(prompt), buf, sizeof buf, new);
X    if (!ret) {
X        err_set(KeyboardInterrupt);
X        return NULL;
X    }
X    return newstringobject(buf);
X}
X
Xstatic object *
Xstdwin_askync(self, args)
X    object *self;
X    object *args;
X{
X    object *prompt;
X    int new, ret;
X    if (!getstrintarg(args, &prompt, &new))
X        return NULL;
X    ret = waskync(getstringvalue(prompt), new);
X    if (ret < 0) {
X        err_set(KeyboardInterrupt);
X        return NULL;
X    }
X    return newintobject((long)ret);
X}
X
Xstatic object *
Xstdwin_askstr(self, args)
X    object *self;
X    object *args;
X{
X    object *prompt, *dflt;
X    int ret;
X    char buf[256];
X    if (!getstrstrarg(args, &prompt, &dflt))
X        return NULL;
X    strncpy(buf, getstringvalue(dflt), sizeof buf);
X    buf[sizeof buf - 1] = '\0';
X    ret = waskstr(getstringvalue(prompt), buf, sizeof buf);
X    if (!ret) {
X        err_set(KeyboardInterrupt);
X        return NULL;
X    }
X    return newstringobject(buf);
X}
X
Xstatic object *
Xstdwin_message(self, args)
X    object *self;
X    object *args;
X{
X    object *msg;
X    if (!getstrarg(args, &msg))
X        return NULL;
X    wmessage(getstringvalue(msg));
X    INCREF(None);
X    return None;
X}
X
Xstatic object *
Xstdwin_fleep(self, args)
X    object *self;
X    object *args;
X{
X    if (!getnoarg(args))
X        return NULL;
X    wfleep();
X    INCREF(None);
X    return None;
X}
X
Xstatic object *
Xstdwin_setcutbuffer(self, args)
X    object *self;
X    object *args;
X{
X    int i;
X    object *str;
X    if (!getintstrarg(args, &i, &str))
X        return NULL;
X    wsetcutbuffer(i, getstringvalue(str), getstringsize(str));
X    INCREF(None);
X    return None;
X}
X
Xstatic object *
Xstdwin_getcutbuffer(self, args)
X    object *self;
X    object *args;
X{
X    int i;
X    char *str;
X    int len;
X    if (!getintarg(args, &i))
X        return NULL;
X    str = wgetcutbuffer(i, &len);
X    if (str == NULL) {
X        str = "";
X        len = 0;
X    }
X    return newsizedstringobject(str, len);
X}
X
Xstatic object *
Xstdwin_rotatecutbuffers(self, args)
X    object *self;
X    object *args;
X{
X    int i;
X    if (!getintarg(args, &i))
X        return NULL;
X    wrotatecutbuffers(i);
X    INCREF(None);
X    return None;
X}
X
Xstatic object *
Xstdwin_getselection(self, args)
X    object *self;
X    object *args;
X{
X    int sel;
X    char *data;
X    int len;
X    if (!getintarg(args, &sel))
X        return NULL;
X    data = wgetselection(sel, &len);
X    if (data == NULL) {
X        data = "";
X        len = 0;
X    }
X    return newsizedstringobject(data, len);
X}
X
Xstatic object *
Xstdwin_resetselection(self, args)
X    object *self;
X    object *args;
X{
X    int sel;
X    if (!getintarg(args, &sel))
X        return NULL;
X    wresetselection(sel);
X    INCREF(None);
X    return None;
X}
X
Xstatic struct methodlist stdwin_methods[] = {
X    {"askfile",        stdwin_askfile},
X    {"askstr",        stdwin_askstr},
X    {"askync",        stdwin_askync},
X    {"fleep",        stdwin_fleep},
X    {"getselection",    stdwin_getselection},
X    {"getcutbuffer",    stdwin_getcutbuffer},
X    {"getdefwinpos",    stdwin_getdefwinpos},
X    {"getdefwinsize",    stdwin_getdefwinsize},
X    {"getevent",        stdwin_getevent},
X    {"menucreate",        stdwin_menucreate},
X    {"message",        stdwin_message},
X    {"open",        stdwin_open},
X    {"pollevent",        stdwin_pollevent},
X    {"resetselection",    stdwin_resetselection},
X    {"rotatecutbuffers",    stdwin_rotatecutbuffers},
X    {"setcutbuffer",    stdwin_setcutbuffer},
X    {"setdefwinpos",    stdwin_setdefwinpos},
X    {"setdefwinsize",    stdwin_setdefwinsize},
X
X    /* Text measuring methods borrow code from drawing objects: */
X    {"baseline",        drawing_baseline},
X    {"lineheight",        drawing_lineheight},
X    {"textbreak",        drawing_textbreak},
X    {"textwidth",        drawing_textwidth},
X    {NULL,            NULL}        /* sentinel */
X};
X
Xvoid
Xinitstdwin()
X{
X    static int inited;
X    if (!inited) {
X        winit();
X        inited = 1;
X    }
X    initmodule("stdwin", stdwin_methods);
X}
EOF
fi
echo 'Part 04 out of 21 of pack.out complete.'
exit 0