home *** CD-ROM | disk | FTP | other *** search
-
- /* if you attempt to compile this, you may have to add some */
- /* more includes here, since I modified this file after I */
- /* did a lc -ph */
-
- #include <intuition/intuition.h>
- #include <exec/exec.h>
- #include <devices/serial.h>
- #include <minrexx.h> /* from the arexx disk */
- #include <xproto.h> /* xpr library stuff */
- #include <reqbase.h> /* req.library stuff-see lib9 */
-
- struct NewWindow wnw = {
- 0,0,
- 640,200,
- 0,1,
- VANILLAKEY|MENUPICK,
- WINDOWSIZING|WINDOWDEPTH|WINDOWDRAG|ACTIVATE|SMART_REFRESH|NOCAREREFRESH,
- NULL,
- NULL,
- NULL,
- NULL,
- NULL,
- 100,40,640,400,
- WBENCHSCREEN };
-
- struct NewScreen cns = {
- 0,0,640,200,1,
- 0,1,
- HIRES,
- CUSTOMSCREEN,
- NULL,
- NULL,
- NULL,
- NULL };
-
- struct NewWindow cnw = {
- 0,0,
- 640,200,
- 0,1,
- VANILLAKEY|MENUPICK,
- BACKDROP|BORDERLESS|ACTIVATE|SMART_REFRESH|NOCAREREFRESH,
- NULL,
- NULL,
- NULL,
- NULL,
- NULL,
- 0,0,0,0,
- CUSTOMSCREEN };
-
- struct IntuiText m0txt[] = {
- {0,1,JAM1,3,1,NULL,(UBYTE *)"About "},
- {0,1,JAM1,3,1,NULL,(UBYTE *)"Palette "},
- {0,1,JAM1,3,1,NULL,(UBYTE *)"Titlebar"},
- {0,1,JAM1,3,1,NULL,(UBYTE *)"Quit "},};
- struct IntuiText m1txt[] = {
- {0,1,JAM1,3,1,NULL,(UBYTE *)"Capture "},
- {0,1,JAM1,3,1,NULL,(UBYTE *)"Download"},
- {0,1,JAM1,3,1,NULL,(UBYTE *)"Upload "},
- {0,1,JAM1,3,1,NULL,(UBYTE *)"Protocol"},};
- struct IntuiText m2txt[] = {
- {0,1,JAM1,3,1,NULL,(UBYTE *)"Speed "},
- {0,1,JAM1,18,1,NULL,(UBYTE *)"1200 "},
- {0,1,JAM1,18,1,NULL,(UBYTE *)"2400 "},
- {0,1,JAM1,18,1,NULL,(UBYTE *)"9600 "},
- {0,1,JAM1,3,1,NULL,(UBYTE *)"Set "},
- {0,1,JAM1,18,1,NULL,(UBYTE *)"8N1 "},
- {0,1,JAM1,18,1,NULL,(UBYTE *)"7N1 "},
- {0,1,JAM1,18,1,NULL,(UBYTE *)"7E1 "},
- {0,1,JAM1,18,1,NULL,(UBYTE *)"7O1 "},};
-
- char words[500]; /* ugly */
- char cmd[500];
-
- struct IntuiText m3txt[] = {
- {0,1,JAM1,3,1,NULL,&words[0]},
- {0,1,JAM1,3,1,NULL,&words[50]},
- {0,1,JAM1,3,1,NULL,&words[100]},
- {0,1,JAM1,3,1,NULL,&words[150]},
- {0,1,JAM1,3,1,NULL,&words[200]},
- {0,1,JAM1,3,1,NULL,&words[250]},
- {0,1,JAM1,3,1,NULL,&words[300]},
- {0,1,JAM1,3,1,NULL,&words[350]},
- {0,1,JAM1,3,1,NULL,&words[400]},
- {0,1,JAM1,3,1,NULL,&words[450]},};
-
- #define mflag1 (ITEMTEXT|ITEMENABLED|HIGHCOMP)
- #define mflag2 (CHECKIT|ITEMTEXT|ITEMENABLED|HIGHCOMP)
- struct MenuItem m0i[] = {
- {&m0i[1],0,0,117,10,mflag1,NULL,(APTR)&m0txt[0],NULL,NULL},
- {&m0i[2],0,10,117,10,mflag1,NULL,(APTR)&m0txt[1],NULL,NULL},
- {&m0i[3],0,20,117,10,mflag1,NULL,(APTR)&m0txt[2],NULL,NULL},
- {NULL,0,30,117,10,mflag1|COMMSEQ,NULL,(APTR)&m0txt[3],NULL,'Q'},};
- struct MenuItem m1i[] = {
- {&m1i[1],0,0,117,10,mflag1|COMMSEQ,NULL,(APTR)&m1txt[0],NULL,'C'},
- {&m1i[2],0,10,117,10,mflag1|COMMSEQ,NULL,(APTR)&m1txt[1],NULL,'D'},
- {&m1i[3],0,20,117,10,mflag1|COMMSEQ,NULL,(APTR)&m1txt[2],NULL,'U'},
- {NULL,0,30,117,10,mflag1|COMMSEQ,NULL,(APTR)&m1txt[3],NULL,'P'},};
- struct MenuItem m2i[] = {
- {&m2i[4],0,0,72,10,mflag1,NULL,(APTR)&m2txt[0],NULL,NULL,&m2i[1]},
- {&m2i[2],70,0,63,10,CHECKED|mflag2,0x6,(APTR)&m2txt[1],NULL,NULL},
- {&m2i[3],70,10,63,10,mflag2,0x5,(APTR)&m2txt[2],NULL,NULL},
- {NULL,70,20,63,10,mflag2,0x3,(APTR)&m2txt[3],NULL,NULL},
- {NULL,0,10,72,10,mflag1,NULL,(APTR)&m2txt[4],NULL,NULL,&m2i[5]},
- {&m2i[6],70,0,54,10,CHECKED|mflag2,0xe,(APTR)&m2txt[5],NULL,NULL},
- {&m2i[7],70,10,54,10,mflag2,0xd,(APTR)&m2txt[6],NULL,NULL},
- {&m2i[8],70,20,54,10,mflag2,0xb,(APTR)&m2txt[7],NULL,NULL},
- {NULL,70,30,54,10,mflag2,0x7,(APTR)&m2txt[8],NULL,NULL},};
- struct MenuItem m3i[] = {
- {&m3i[1],0,0,175,10,mflag1|COMMSEQ,NULL,&m3txt[0],NULL,'1',NULL},
- {&m3i[2],0,10,175,10,mflag1|COMMSEQ,NULL,&m3txt[1],NULL,'2',NULL},
- {&m3i[3],0,20,175,10,mflag1|COMMSEQ,NULL,&m3txt[2],NULL,'3',NULL},
- {&m3i[4],0,30,175,10,mflag1|COMMSEQ,NULL,&m3txt[3],NULL,'4',NULL},
- {&m3i[5],0,40,175,10,mflag1|COMMSEQ,NULL,&m3txt[4],NULL,'5',NULL},
- {&m3i[6],0,50,175,10,mflag1|COMMSEQ,NULL,&m3txt[5],NULL,'6',NULL},
- {&m3i[7],0,60,175,10,mflag1|COMMSEQ,NULL,&m3txt[6],NULL,'7',NULL},
- {&m3i[8],0,70,175,10,mflag1|COMMSEQ,NULL,&m3txt[7],NULL,'8',NULL},
- {&m3i[9],0,80,175,10,mflag1|COMMSEQ,NULL,&m3txt[8],NULL,'9',NULL},
- {NULL,0,90,175,10,mflag1|COMMSEQ,NULL,&m3txt[9],NULL,'0',NULL},};
-
- struct Menu mstrip[] = {
- {&mstrip[1],0,0,45,0,MENUENABLED,"File",&m0i[0]},
- {&mstrip[2],46,0,72,0,MENUENABLED,"Transfer",&m1i[0]},
- {&mstrip[3],119,0,54,0,MENUENABLED,"Serial",&m2i[0]},
- {NULL ,174,0,45,0,MENUENABLED,"Macro",&m3i[0]},};
-
-
- struct IntuiText gtxt[] = {
- {0,1,JAM1,20,1,NULL,(UBYTE *)" program by",>xt[1]},
- {0,1,JAM1,20,11,NULL,(UBYTE *)"Paul DePetrillo",>xt[2]},
- {0,1,JAM1,20,21,NULL,(UBYTE *)" v. -1 8/90 ",NULL},};
-
- struct Gadget gad1={
- NULL,1,1,159,30,GADGHNONE,ENDGADGET,BOOLGADGET|REQGADGET,NULL,NULL,NULL,0,NULL,0,NULL};
-
- struct Requester myreq={
- NULL,
- 1,11,160,31,
- 0,0,
- &gad1,
- NULL,
- >xt[0],
- NULL,
- 1,
- NULL,
- {NULL},
- {NULL},
- NULL,
- {NULL},
- };
-
-
-
-
- struct timerequest *timerreq,*timeret;
- struct FileRequester myfilereq;
- struct MsgPort *console_portw,*serial_portw,*serial_portr,*timer_port;
- struct IOStdReq *conwrite_req;
- struct IOExtSer *serwrite_req,*serread_req,*serret;
- struct Screen *screen;
- struct Window *window,*oldwin;
- struct IntuiMessage *message;
- struct MenuItem *mitem;
- struct Process *myprocess;
- APTR iaddress;
- USHORT mcode;
- ULONG mclass,timermask,windowmask,serialmask,signals;
- char key,serbuf[512],txtbuf[4096],frdir[DSIZE+1],frfile[FCHARS+1],frpath[DSIZE+FCHARS+2];
- VOID opencapture(),closecapture(),cleanup(),doinit(),dowindow();
- VOID doupload(),doprotocol(),doserial(),domenu(),printstr(),dodownload();
- int readserial();
- ULONG flags,capture,txtpos,baud,set;
- FILE *fp;
- struct XPR_IO io;
- struct Library *IntuitionBase,*ReqBase,*XProtocolBase;
- long __saveds __regargs xupdate();
- long __saveds __regargs xfopen();
- long __saveds __regargs xfclose();
- long __saveds __regargs xfread();
- long __saveds __regargs xfwrite();
- long __saveds __regargs xfseek();
- long __saveds __regargs xsread();
- long __saveds __regargs xswrite();
- long __saveds __regargs xupdate();
- long __saveds __regargs xgets();
- long __saveds __regargs xfinfo();
- long __saveds __regargs xchkabort();
- long __saveds __regargs xsflush();
- VOID rexxquitcom();
- VOID rexxecho();
- VOID rexxdownload();
- void rexxupload();
- void rexxsend();
- void rexxgetstr();
- void rexxmacro();
- void rexxproto();
- void rexxserial();
- void rexxpause();
- void rexxcapon();
- void rexxcapoff();
- void rexxwaitstr();
- int setserial();
- long rexxbit;
- int ohshit=0;
- int match,matched;
- char matchstr[10];
- char *matchptr;
- long err;
- long hostmon=0;
- long rxreq=1;
- long sendreq=1;
- long menuz=1;
- int disp();
- int go=1;
- int replyed=0;
- int custom=1;
- int doup=0;
- int dodwn=0;
- int tit=0;
-
-
- struct rexxCommandList rcl[] = {
- { "quitcom", (APTR)&rexxquitcom },
- { "send", (APTR)&rexxsend },
- { "download",(APTR)&rexxdownload },
- { "upload",(APTR)&rexxupload },
- { "echo",(APTR)&rexxecho },
- { "getstr", (APTR)&rexxgetstr },
- { "macro", (APTR)&rexxmacro },
- { "protocol", (APTR)&rexxproto},
- { "setserial", (APTR)&rexxserial},
- { "capon", (APTR)&rexxcapon},
- { "capoff", (APTR)&rexxcapoff},
- { "waitstr",(APTR)&rexxwaitstr},
- { "pause",(APTR)&rexxpause},
- { NULL, NULL } } ;
-
-