mpack_src/mpack-1.6-4/macnapp.h

/* macnapp.h -- general mac application library header
 */
/* (C) Copyright 1995 by Carnegie Mellon University
 * All Rights Reserved.
 *
 * Permission to use, copy, modify, distribute, and sell this software
 * and its documentation for any purpose is hereby granted without
 * fee, provided that the above copyright notice appear in all copies
 * and that both that copyright notice and this permission notice
 * appear in supporting documentation, and that the name of Carnegie
 * Mellon University not be used in advertising or publicity
 * pertaining to distribution of the software without specific,
 * written prior permission.  Carnegie Mellon University makes no
 * representations about the suitability of this software for any
 * purpose.  It is provided "as is" without express or implied
 * warranty.
 *
 * CARNEGIE MELLON UNIVERSITY DISCLAIMS ALL WARRANTIES WITH REGARD TO
 * THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
 * AND FITNESS, IN NO EVENT SHALL CARNEGIE MELLON UNIVERSITY BE LIABLE
 * FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN
 * AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING
 * OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
 * SOFTWARE.
 */
/* (C) Copyright 1990-1995 by Christopher J. Newman
 * All Rights Reserved.
 *
 * Permission to use, copy, modify, and distribute this software and its
 * documentation for any purpose is hereby granted without fee, provided that
 * the above copyright notice appear in all copies and that both that
 * copyright notice and this permission notice appear in supporting
 * documentation, and that the name of Christopher J. Newman not be used in
 * advertising or publicity pertaining to distribution of the software without
 * specific, written prior permission.  Christopher J. Newman makes no
 * representations about the suitability of this software for any purpose.  It
 * is provided "as is" without express or implied warranty.
 *
 * CHRISTOPHER J. NEWMAN DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
 * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT
 * SHALL CHRISTOPHER J. NEWMAN BE LIABLE FOR ANY SPECIAL, INDIRECT OR
 * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
 * DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
 * TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE
 * OF THIS SOFTWARE.
 *
 * Author:      Chris Newman
 * Message:     This is a nifty program.
 */

#ifdef THINK_C
#define QD(x)   (x)
#ifndef NULL
#define NULL    0
#endif
#else
#define QD(x)   (qd.x)
#include <MacTypes.h>
#include <Quickdraw.h>
#include <Events.h>
#include <Controls.h>
#include <Windows.h>
#include <MemoryMgr.h>
#include <Menus.h>
#include <OSUtils.h>
#include <TextEdit.h>
#include <Dialogs.h>
#endif

/* dual pascal/C strings
 */
typedef unsigned char PCstr;
#define C(str)  ((char*)(str) + 1)
#define P(str)  ((unsigned char*)(str))

/* various machine types.
 */
typedef unsigned short WORD;
typedef unsigned char BYTE;

/* useful macros:
 */
#define HIWORD(x)       ( (WORD) ( (x) >> 16) )
#define LOWORD(x)       ( (WORD) (x) )

/* most window/menu procedures return short integers (see defines below)
 */
typedef short (*na_menup)(struct na_win *, WORD, WORD);
typedef short (*na_mousep)(struct na_win *, Point, short, short);
typedef short (*na_ctrlp)(struct na_win *, Point, short, short, ControlHandle);
typedef short (*na_activep)(struct na_win *, Boolean);
typedef short (*na_closep)(struct na_win *);
typedef void (*na_afterp)(struct na_win *);
typedef short (*na_updatep)(struct na_win *, Boolean);
typedef short (*na_keyp)(struct na_win *, long, short);
typedef short (*na_cursorp)(struct na_win *, Point);
typedef short (*na_miscp)(struct na_win *, EventRecord *);
typedef short (*na_idlep)(struct na_win *);
typedef short (*na_taskp)(struct na_win *);
typedef short (*na_resizep)(struct na_win *, Point, Rect *);
typedef short (*na_openp)(short, FSSpec *, FInfo *);
typedef short (*na_initp)(struct na_win *, long *);
typedef struct na_win {
        long                    flags;          /* flags indicating various window settings (see below) */
        short                   delay;          /* delay between main loop cycles (in ticks) */
        short                   mousepix;       /* number of pixels mouse can move until drag starts */
        short                   minw, minh;     /* minimum width and height for the window */
        short                   maxw, maxh;     /* maximum width and height for the window */
        short                   type;           /* current window type (negatives reserved) */
        BYTE                    locks;          /* locks on this window structure */
        short                   priority;       /* priority if there is a taskp (-1 = everytime) */
        RgnHandle               cursorRgn;      /* cursor region */
        RgnHandle               uncrsrRgn;      /* region cursor isn't in */
        WindowPtr               pwin;           /* window pointer */
        struct na_win   **next;         /* handle to next window in linked list */
        struct na_win   **task;         /* handle to next task in a linked list of active tasks */
        struct na_win   **child;        /* handle to child window list (NULL = no child) */
        struct na_win   **parent;       /* handle to parent window (NULL = toplevel) */
        na_menup                menup;          /* menu proc */
        na_mousep               mousep;         /* mouse proc */
        na_ctrlp                ctrlp;          /* dialog item/control proc */
        na_activep              activep;        /* activate proc */
        na_closep               closep;         /* close proc */
        na_afterp               afterp;         /* after proc */
        na_updatep              updatep;        /* update proc */
        na_keyp                 keyp;           /* key proc */
        na_cursorp              cursorp;        /* cursor setting proc */
        na_miscp                miscp;          /* miscellaneous event proc (disk/net/app/driver) */
        na_idlep                idlep;          /* idle proc */
        na_taskp                taskp;          /* task proc */
        na_resizep              resizep;        /* resize proc */
        long                    resid;          /* storage for window resource id or user data. */
        char                    *data;          /* data pointer for user */
} na_win;
typedef struct nate_win {
        na_win                  winp;
        TEHandle                hTE;            /* textedit handle for auto-textedit routines */
        ControlHandle   hctrl;          /* horizontal scroll bar for textedit */
        ControlHandle   vctrl;          /* vertical scroll bar for textedit */
        long                    docwidth;       /* width of the document */
        short                   lheight;        /* line height of text */
        short                   topoff;         /* offset from top of window to textedit area */
} nate_win;
/* procedures types:
 *
 * // called for menu events when window is frontmost
 * // supercedes global menu function unless NA_NOTPROCESSED is returned.
 * // if menuid is 0, the procedure should enable/disable menus appropriately
 * // if menuid is 1, the procedure should disable enabled menus appropriately
 * short menu(winp, menuid, itemno)
 *      WORD menuid;                    // resource id of the menu
 *      WORD itemno;                    // item number of the menu item
 *
 * // called for mouse down/up/move events in the window
 * short mouse(winp, p, type, mods)
 *      Point p;                                // location of mouse action
 *      short type;                             // type of mouse action (see below)
 *      short mods;                             // modifier keys
 *
 * // called for dialog events in dialog windows
 * // control events in windows with controls
 * // In a dialog window with no key procedure, ESC, command-., return, enter are
 * // mapped to iCancel and iOk.
 * short control(winp, p, itemHit, mods, ctrlh)
 *      Point p;                                // point in window local coords
 *      short itemHit;                  // the item/part code clicked
 *      short mods;                             // modifier keys
 *      ControlHandle ctrlh;    // handle to the control
 *
 * // called when window is activated or deactivated
 * // close return values may be ignored on a deactivate
 * short activate(winp, on)
 *      Boolean on;                             // true = activate, false = deactivate
 *
 * // called when a window close request has been made (close box/close menu item)
 * // called when any window function returns NA_REQCLOSE or NA_REQCLOSEALL
 * // respond with either NA_CLOSED or NA_NOTPROCESSED
 * short close(winp)
 *
 * // called after window closed & removed from lists, but before window object freed
 * void afterp(winp)
 *
 * // called on update events
 * short update(winp, newsize)
 *      Boolean newsize;                // true if r is a new window size
 *
 * // called on key/autokey events (menu keys are parsed out first)
 * short key(winp, c, mods)
 *      long c;                                 // ASCII value of the key (unless NA_RAWKEY option set)
 *      short mods;                             // modifier keys
 *
 * // called when cursor moves into or out of a window
 * // use winp->flags & NA_CURSORON
 * // close request return values are ignored.
 * // return NA_PROCESSED only when the cursorRgn is changed
 * short cursor(winp, p)
 *      Point p;                                // point where the cursor is
 *
 * // This is called for miscellaneous events (disk/network/driver/app1-3)
 * short miscp(winp, pevent)
 *      EventRecord *pevent;    // the event
 *
 * // called every time through the event loop when window active
 * short idle(winp)
 *
 * // called cyclicly with other tasks with each pass through event loop
 * // only used when task is installed
 * // the task procedure can only close it's own window.
 * short task(winp)
 *
 * // function called to resize the window 
 * // (parameters similar to GrowWindow function)
 * short resize(winp, where, rct)
 *  Point where;
 *  Rect *rct;
 *
 * // function passed to NAinit:
 * // should return 0 if OK, and -1 to stop opening files
 * short open(message, afile, fspec)
 *      short message;                  // either appOpen or appPrint (in SegLoad.h)
 *  FSSpec *fspec;                      // file to open/print
 *  Finfo *finfo;                       // finder info
 *
 * // function passed to NAwindow:
 * // returns standard window status
 * short init(winp, datap)
 *      na_win  *winp;                  // pointer to new window structure
 *      long    *datap;                 // pointer to data passed through NAwindow
 */

/* niftyapp globals */
extern na_win **NAhead;                 /* handle to the head of the window tree */
extern na_win **NAtask;                 /* handle to the head of the window task list */
extern na_win **NActask;                /* handle to the current task */
extern na_win *NAwin;                   /* pointer to current window (NULL = no current window) */
extern na_menup NAmenup;                /* pointer to default menu procedure */
extern MenuHandle **NAmenus;    /* list of menu handles */
extern short NAnewitem;                 /* item number of the new item on the file menu (0 = not avail) */
extern short NAcloseitem;               /* item number of the close item on the file menu (0 = not avail) */
extern short NAappleitems;              /* the number of (user) items at the top of the apple menu */
extern short NAhelpitems;               /* the number of (user) help items */
extern short NAhelpcount;       /* the number of (system) items at the top of the help menu */
extern Boolean NAhasedit;               /* true if application has an edit menu */
extern long NAdelay;                    /* the wait next event delay */
extern SysEnvRec NAsysenv;              /* mac system environment */
extern Boolean NAinBack;                /* true if application is backgrounded */
extern long NAmousetime;                /* time of last mouse up event */
extern short NAlastmouse;               /* kind of last mouse event */
extern Cursor NAibeam;                  /* the ibeam cursor */
extern long NAgestaltBits;      /* 0 = gestalt not on system */

/* globals for your convenience */
extern RgnHandle NAfullRgn, NAnullRgn;

/* niftyapp definitions */

/* default resource id for niftyapp windows */
#define NA_CLIPWINDOW   1000
#define NA_ABOUTDLOG    1000
#define NA_PREFSDLOG    1001
#define NA_HELPSTR              1000
/* default item numbers for OK & cancel */
#define iOk                             1
#define iCancel                 2
/* default ids for APPLE, FILE, EDIT, and HELP menus */
#define mApple                  128
#define mFile                   129
#define mEdit                   130
#define mHelp                   ((WORD)-16490)
/* default item numbers for about & edit menu */
#define iAbout                  1
#define iUndo                   1
#define iCut                    3
#define iCopy                   4
#define iPaste                  5
#define iClear                  6
#define iSelAll                 7
#define iClipboard              9
/* new window positions */
#define NA_HFULLSCN             0x0000
#define NA_HQUARTERSCN  0x0001
#define NA_HHALFSCN             0x0002
#define NA_H3QUARTERSCN 0x0003
#define NA_VFULLSCN             0x0000
#define NA_VQUARTERSCN  0x0004
#define NA_VHALFSCN             0x0008
#define NA_V3QUARTERSCN 0x000C
#define NA_CENTERSCN    0x0000
#define NA_TOPSCN               0x0010
#define NA_BOTTOMSCN    0x0020
#define NA_LEFTSCN              0x0040
#define NA_RIGHTSCN             0x0080
#define NA_TITLEOFFSET  0x0100
/* new window flags */
#define NA_PLAINWIN             0x00000000L     /* plain window -- no title, simple border */
#define NA_COLORWINDOW  0x00000001L     /* allow color in the window */
#define NA_DIALOGWINDOW 0x00000002L     /* open as a dialog */
#define NA_TITLEBAR             0x00000004L     /* have title bar */
#define NA_GROWBOX              0x00000008L     /* have a grow box (enables automatic drawing) */
#define NA_ZOOMBOX              0x00000010L     /* have a zoom box */
#define NA_CLOSEBOX             0x00000020L     /* have a close box (enables close menu item) */
#define NA_SHADOWBORDER 0x00000040L     /* have a shadow border (for dialogs) */
#define NA_DOUBLEBORDER 0x00000080L     /* have a double (dialog) border */
#define NA_ROUNDBORDER  0x000000c0L     /* have rounded corners and black title bar */
#define NA_CHILDWINDOW  0x00000100L     /* open as a child window of current window */
#define NA_NOTVISIBLE   0x00000200L     /* do not make window visible on open */
#define NA_BEHIND               0x00000400L     /* open window behind current window */
#define NA_HASCONTROLS  0x00000800L     /* process/draw/kill controls automatically */
#define NA_HASTASK              0x00001000L     /* install window in background task list */
#define NA_USERESOURCE  0x00002000L     /* use res parameter as WIND/DLOG/wctb/dctb resource */
#define NA_CURSORON             0x00004000L     /* true if application has set the cursor */
#define NA_MODAL                0x00008000L     /* set if window/dialog will be modal */
#define NA_DEFBUTTON    0x00010000L     /* show default button after init proc */
#define NA_COPYDATA             0x00020000L     /* data will by copied by NAwindow */
#define NA_SMARTSIZE    0x00040000L     /* window resizes & placements are saved in WIND res */
#define NA_FORCESIZE    0x00080000L     /* when a resource is used, re-size the window anyway */
#define NA_RAWKEY               0x00100000L     /* if set, key event fields aren't stripped */
#define NA_HILITECTRLS  0x00200000L     /* if set, hilite controls on activate/deactive */
#define NATE_FLAGS              0x0f000000L     /* flags reserved for NATE */
#define NA_USER_FLAG1   0x10000000L     /* flags reserved for users */
#define NA_USER_FLAG2   0x20000000L
#define NA_USER_FLAG3   0x40000000L
#define NA_USER_FLAG4   0x80000000L
/* niftyapp window/task types */
#define NA_CLIPTYPE             -1
#define NA_DEBUGTYPE    -2
#define NA_TCPTYPE              -3
#define NA_SMTPTYPE             -4
/* mouse click types */
#define NA_DOWN1                0
#define NA_UP1                  1
#define NA_DOWN2                2
#define NA_UP2                  3
#define NA_DOWNN                4
#define NA_UPN                  5
#define NA_DRAG                 6
#define NA_RELEASE              7
/* return values for window/menu procedures */
#define NA_ALLCLOSED    -4              /* all windows are to be destroyed & exit app immediately */
#define NA_REQCLOSEALL  -3              /* request to close all windows & exit app */
#define NA_CLOSED               -2              /* current window is ready to close (used by closep/taskp) */
#define NA_REQCLOSE             -1              /* request to close current window */
#define NA_NOTPROCESSED 0               /* use any default handler available */
#define NA_PROCESSED    1               /* do nothing more */
#define NA_USERINTERACT 2               /* user interaction pending -- don't do tasks */
/* Gestalt bits */
#define NA_HASAEVENTS   0x00000001L     /* Apple events supported */
#define NA_HASFSSPEC    0x00000002L /* FSSpec calls supported */
#define NA_HASSTDFILE   0x00000004L /* New standard file available */

/* niftyapp basic macros */

#define NAunlockWindow(winp)            {if (!--(winp)->locks) HUnlock((Handle) GetWRefCon((winp)->pwin));}
#define NAunlockWindowh(winh, winp)     {if (!--(winp)->locks) HUnlock((Handle) winh);}
#define NAisDAWindow(pWnd)                      (( (WindowPeek) pWnd)->windowKind < 0)
#define NAmenuh(menu)                           ((*NAmenus)[(menu) - mApple])
#define NAenableMItem(menu, item)       EnableItem(NAmenuh(menu), item)
#define NAdisableMItem(menu, item)      DisableItem(NAmenuh(menu), item)
#define NAcheckItem(menu, item, c)      CheckItem(NAmenuh(menu), item, c)
#define NAgetDHandle(dlg, it, hn)       {short ty; Rect r; GetDItem(dlg, it, &ty, (Handle *) (hn), &r);}
#define NAgetDRect(dlg, it, rct)        {short ty; Handle hn; GetDItem(dlg, it, &ty, &hn, (rct));}
#define NAsetIval(dlg, it, val)         {short ty; Rect r; Handle hn; GetDItem(dlg, it, &ty, &hn, &r); SetCtlValue((ControlHandle)hn, (val));}
#define NAsetInum(dlg, it, val)         NAsetIText(dlg, it, longtoPCstr(val))
#define NAalert(resid)                          Alert(resid, NAfilterProc)

/* niftyapp basic procedures */

/* initialize the Macintosh managers and niftyapp internal variables.
 * optionally set up a menu bar & menu procedure.
 * Returns 0 if OK, negative if an error occured, 1 if print files requested & app should quit
 * short minK;                  // minimum K needed to execute
 * short masters;               // number of times to call MoreMasters()
 * na_proc *openp;              // open file procedure -- called for each application in the startup list
 * na_proc *menup;              // pointer to a menu procedure (NULL = no menu handling)
 * short nummenu;               // number of menus (starting at mApple == 128)
 * short numapple;              // number of apple menu items
 * short newitem;               // item number of new item (mFile)
 * short closeitem;             // item number of close item (mFile)
 */
short NAinit(short, short, na_openp, na_menup, short, short, short, short);

/* call the main loop procedure
 */
void NAmainloop(void);

/* create a rectangle based on the screen size
 *      short position;         // see above
 */
Rect *NAscreenrect(short);

/* create a new window structure
 * returns window status result, up to the caller to pass on NA_ALLCLOSED
 *      Rect *rpos;                     // placement rectangle
 *      long flags;                     // flags determining type of window
 *      char *title;            // window title (C string may not be NULL unless NA_USERESOURCE)
 *      short res;                      // resource number of WIND/DLOG/wctb/dctb/DITL
 *      long *initdata;         // window data (may be NULL)
 *      long datasize;          // bytes of window data
 *      na_proc *initp;         // procedure to initialize the window functions, etc.
 */
short NAwindow(Rect *, long, char *, short, long *, long, na_initp);

/* create & add a new task to the task list, given pointer to task procedure,
 * and data size
 */
na_win **NAaddtask(na_taskp, long);

/* standard init procedure for an about box -- stops all background tasks, however */
short NAabout(na_win*, long*);

/* standard button flash procedure used by shell for keypresses */
void NAflashButton(DialogPtr, short);

/* draw the default button */
void NAdefaultButton(DialogPtr);

/* filter proc for modal dialogs which handles ESC and command-. */
pascal Boolean NAfilterProc(DialogPtr, EventRecord *, short *);

/* re-calculate cursor region information (after changing winp->cursorRgn) */
void NAcalcCursor(na_win*);

/* this saves a window's dimensions into a 'WIND' resource with appropriate resid */
void NAsaveWin(na_win*);

/* This is available to access window structures other than the current window
 * best for looking at parent window or child window(s).
 */
na_win *NAlockWindow(na_win**);

/* This is available, but the user should only call it is severe cases */
short NAcloseWindow(na_win*, short);

/* this is for closing all windows, the user should only call it from main
 * usually NAhead is the first parameter.
 */
short NAcloseWindows(na_win**, short);

/* this is for sending an event directly to the misc procedure of all windows.
 * usually NAhead is the first parameter.
 */
short NAallWindows(na_win**, EventRecord*);


/* niftyapp clipboard library:
 * NAclipboard: true = window on, false = window off, 'TEXT' or 'PICT'
 */
void NAclipboard(Boolean, ResType);


/* niftyapp debug library:
 */
void NAdebug(char *, ...);
#ifdef DEBUG
#define NADEBUG(x) NAdebug x
#else
#define NADEBUG(x)
#endif


/* niftyapp dialog library:
 */
/* select a radio button
 * returns number from 0 to firstitem - lastitem: the button that's been pressed
 *      DialogPtr dialog;       // the dialog window
 *      short firstitem;        // the itemno of first radio button
 *      short lastitem;         // the itemno of last radio button
 *      short setting;          // the radio button to set (itemno to lastitem)
 */
short NAradioSet(DialogPtr, short, short, short);

/* get the itemno of the active radio button
 *      DialogPtr dialog;       // the dialog window
 *      short firstitem;        // the itemno of first radio button
 *      short lastitem;         // the itemno of last radio button
 */
short NAradioGet(DialogPtr, short, short);

/* enable/disable,hilite,show/hide an item in a dialog window */
void NAenableDItem(DialogPtr, short, Boolean);
void NAhiliteDItem(DialogPtr, short, short);
void NAvisibleDItem(DialogPtr, short, Boolean);

/* set/get the item text in a dialog item */
void NAsetIText(DialogPtr, short, PCstr*);
void NAgetIText(DialogPtr, short, PCstr*);

/* enable/disable modal menus for a moveable modal dialog box (1 = go modal) */
void NAmodalMenus(int);

/* handle edit menu for dialogs */
short NAdialogMenu(na_win *, WORD, WORD);


/* NATE (NiftyApp TextEdit) libraries
 */
#define NATEflags (NA_TITLEBAR | NA_GROWBOX | NA_ZOOMBOX | NA_CLOSEBOX \
        | NA_HASCONTROLS | NA_HILITECTRLS)
#define NATE_DEFAULT    0x00000000L
#define NATE_READONLY   0x01000000L
#define NATE_NOMOUSE    0x02000000L
#define NATE_NOHSCROLL  0x04000000L
#define NATE_NOVSCROLL  0x08000000L
void NATEinit(na_win*, long, short, Ptr, long); /* winp, flags, horizwidth, data, len */
short NATEinitp(na_win*, long*);
short NATEmousep(na_win*, Point, short, short);
short NATEidlep(na_win*);
short NATEactivep(na_win*, Boolean);
short NATEkeyp(na_win*, long, short);
short NATEmenup(na_win*, WORD, WORD);
short NATEupdatep(na_win*, Boolean);
short NATEctrlp(na_win*, Point, short, short, ControlHandle);
short NATEclosep(na_win*);

void NATEsetscroll(na_win*, Boolean, Rect*, Rect*);
void NATEappend(na_win*, char*, long);


/* Niftyapp file library
 */
/* get a file to open -- similar to StandardGetFile, but works on older systems
 * extra fields in "StandardFileReply" are only valid if NA_HASSTDFILE is set in
 * NAgestaltBits
 */
void NAgetFile(FileFilterProcPtr, short, SFTypeList, StandardFileReply *);
/* put a file to open -- similar to StandardPutFile, but works on older systems
 * extra fields in "StandardFileReply" are only valid if NA_HASSTDFILE is set in
 * NAgestaltBits
 */
void NAputFile(Str255, Str255, StandardFileReply *);


/* Niftyapp TCP library
 */
/* tcp stream descriptor */
typedef int na_tcp;
/* tcp init function 
 *  passed NATCP_connect for success, NATCP_nodriver/NATCP_nomem for failure
 *  passed 1 to 100 for progress waiting for MacTCP to finish cleanly
 */
typedef void na_tcpinitp(short);
/* TCP read/status callback for connection, or TCP window
 * void *user;   Context generic pointer (passed to NATCPopen)
 * na_tcp s;     TCP stream id
 * short status; TCP status (see below)
 * long size;    size of buffer (or Macintosh error)
 * char *data;   data or NULL
 */
typedef void na_tcpreadp(void *, na_tcp, short, long, char *);
typedef void na_readp(na_win *, short, long, char *);
/* TCP window */
typedef struct natcp_win {
        na_win          winp;
        na_tcp          s;
        na_readp    *readp;
} natcp_win;
/* status values/bits */
#define NATCP_closing  0x08             /* other end of connection closed */
#define NATCP_urgent   0x04             /* in urgent mode */
#define NATCP_more     0x02             /* more data will follow immediately */
#define NATCP_data     0x01             /* data to read */
#define NATCP_connect  0x00             /* connection ready */
#define NATCP_noread   -1               /* non-fatal */
#define NATCP_nowrite  -2               /* fatal... */
#define NATCP_nodriver -3
#define NATCP_notcpbuf -4
#define NATCP_nomem    -5
#define NATCP_nohost   -6
#define NATCP_nocon    -7
#define NATCP_closed   -8               /* connection fully closed */
/* open flags */
#define NATCP_server    0x01    /* be a server */
/* functions */
void NATCPinit(na_tcpinitp *);
/* NATCPsettings: TCP buffer size, type of service, precedence, write buffer size */
void NATCPsettings(long, short, short, unsigned short);
short NATCPtask(na_win *);
/* NATCPopen: callback, context, host, port, flags */
na_tcp NATCPopen(na_tcpreadp *, void *, char *, long, short);
na_tcp NATCPwinopen(natcp_win *, char *, long, short); /* tcp window, host, port, flags */
short NATCPwrite(na_tcp, Ptr, long, short); /* tcp, buffer, length, dispose */
short NATCPputchar(na_tcp, char);
void NATCPclose(na_tcp);
void NATCPdone(long); /* number of 1/60 sec intervals to wait for MacTCP to finish cleanly */
/* returns passes NATCP_connect to readp on success with hostname as argument */
void NATCPgethost(na_tcpreadp *, void *);


/* niftyapp SMTP library
 */
/* status:
 * void *context;       user context
 * short code;          see below
 * short err;           SMTP error code or NATCP error code (NASMTP_tcpfail) or 0
 * long num;            macintosh TCP error code or address number or 0
 * char *errstr;        SMTP error string or NULL
 */
typedef void (*na_smtpstat)(void *, short, short, long, char *);
#define NASMTP_progress   2 /* progress: err = % done */
#define NASMTP_badaddr    1 /* address was not valid */
#define NASMTP_completed  0 /* success */
#define NASMTP_nomem     -1 /* not enough memory */
#define NASMTP_badargs   -2 /* input arguments invalid */
#define NASMTP_oserr     -3 /* OS failure (e.g. file error) */
#define NASMTP_tcpfail   -4 /* TCP connection to SMTP server failed */
#define NASMTP_conclosed -5 /* connection closed by other side before completion */
#define NASMTP_badprot   -6 /* other end sent unrecognizable protocol */
#define NASMTP_temperr   -7 /* SMTP persistant temporary failure */
#define NASMTP_permerr   -8 /* SMTP permanent failure */
/* Submit email: statf, server, fspec, headers, envelope, flags, context */
void NASMTPsubmit(na_smtpstat, char *, FSSpec *, Handle, Handle, short, void *);
#define NASMTP_crtrans  0x01 /* flag indicating translation of CR -> CRLF desired */

/* PC, C string libraries:
 */
#define SetClen(pcstr)  (*((pcstr) + *(pcstr) + 1) = '\0')
#define PCstrlen(pcstr) (*(pcstr))
#define Pstrlen(pstr)   (* (unsigned char *) (pstr))

void PtoPCstrcpy(PCstr*, char*);
void CtoPCstrcpy(PCstr*, char*);
void PCtoPCstrcpy(PCstr*, PCstr*);
void PtoPCstrncpy(PCstr*, char*, short);
void CtoPCstrncpy(PCstr*, char*, short);
void PtoPCstrcat(PCstr*, char*);
void CtoPCstrcat(PCstr*, char*);
PCstr *PtoPCstr(char*);
PCstr *CtoPCstr(char*);
void SetPlen(PCstr*);
PCstr *longtoPCstr(long);