drew@cgou01.dec.com (Steve Drew) (05/08/87)
Here's my first attempt at a dos handler. Please read the docs!! I wrote in support for ACTION_SCREEN_MODE originally thinking that my commandline editing under shell would work ok through AUX: to a vt100 style terminal. But alas some of the escape sequences I used under shell (for inserting / deleting char's) were Amiga specific and not ansi sequences. So as a quick alternative I added a switch to shell to turn of CLE for use over AUX:. But with the capability of RAW mode you could write/modify a ansi style screen editor that would also work through aux-handler to a ansi style terminal. Any volunteers? Following the dos's and executable are the sources. < I code because I enjoy getting frustrated!! > Please email me any bugs found to: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Steve Drew at ENET: CGFSV1::DREW ARPA: drew%cfgsv1.dec.com@decwrl.dec.com USENET: {decvax!decwrl}!cgfsv1.dec.com!drew %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% # This is a shell archive. # Remove everything above and including the cut line. # Then run the rest of the file through sh. #----cut here-----cut here-----cut here-----cut here----# #!/bin/sh # shar: Shell Archiver # Run the following text with /bin/sh to create: # aux.doc # mountlist # aux-handler.uue # This archive created: Fri May 8 09:53:32 1987 echo shar: extracting aux.doc cat << \SHAR_EOF > aux.doc Aux-Handler V1.0 (c) Steve Drew 1987 ---------------- I. Desciption: - Installs as a dos handler to control the serial port as a console. - Support all relevent dos packets including WaitForChar and ACTION_SCREEN_MODE. - To your process it looks just like a CON: handler, screening control chars doing CRLF translations and handling deletes ect... - Can be made into a RAW console via ACTION_SCREEN_MODE, it then acts like a RAW console which does not echo characters or handle control chars, but just passes all keys entered back to the process. This would allow you to implement a ANSI style screen editor like maybe MicroEMACS 3.x to work through AUX:. Now thats a multiuser system! II. Installation: 1. Insert the included MOUNTLIST file into you DEVS:MOUNTLST 2. Copy the Aux-Handler to the l: directory 3. Enter Mount AUX: to load the driver. III Using - 'NEWCLI AUX:' will start a cli on the Serial port. - <BS> <DEL> both delete last char typed. - ^X or ^U delete entire line. - ^S / ^Q stop/start screen display (if XON/XOFF selected under prefs.) IV Notes: - Setups': The Aux-Handler opens the serial port with its current settings (as set up in preferences). However you may specify if you want ECHO, CRLF, or RAW Mode on/off via specifiying keyword 'Set': Newcli AUX:Set/E:[On/Off]/C:[On/Off]/R:[On/Off] for example to set Raw off, Echo off and CRLF on. Newcli AUX:Set/e:off/c:on/r:off Case is insensitive. The default if any parameters not specified is: Echo ON, Raw Off, CRLF ON. - Killing A CLI: Normally you just do a ENDCLI. However if you had some one in over a modem or fired it up by mistake you can force an ENDCLI command to be sent to the process by doing a 'ECHO >AUX:ENDCLI' from another CLI. SHAR_EOF if test 1913 -ne "`wc -c aux.doc`" then echo shar: error transmitting aux.doc '(should have been 1913 characters)' fi echo shar: extracting mountlist cat << \SHAR_EOF > mountlist /* Installs Aux-Handler V 1.0 (C) Steve Drew */ AUX: Handler = L:Aux-Handler Stacksize = 4000 Priority = 5 GlobVec = 1 # SHAR_EOF if test 162 -ne "`wc -c mountlist`" then echo shar: error transmitting mountlist '(should have been 162 characters)' fi echo shar: extracting aux-handler.uue cat << \SHAR_EOF > aux-handler.uue begin 777 aux-handler M #\P # ( 2< 0 !@ /I $G$[Z#K!. M50 (&T ""\H ! B;0 (+RD #"\M PO+0 (80A/[P 03EU.=4Y5__@@;0 ( M(6T $ ,(&T ""%M !0 $"!M @K: $__@@;0 (*U#__"!M @@+0 ,T+P M !<(4 !"!M__PA;0 ( H@;?_\0I @;?_\0J@ !"\M__PO+?_X3KD !(" M4$].74YU3E7_^" M C0O %PK0/_\+RW__$ZY 27%A/+RW__$ZY 1 MQ%A/*T#_^"!M__@@* *3EU.=4Y5_LA!^@5$*TC__"M\ ?_@0JW_T$*G M3KD !&*6$\K0/_X+RW_^$ZY DEA/*T#_]"!M__0@* <Y8 K0/_L(&W_ M[" M__C0O %PA0 (("W_^-"\ 7"M _^0@;?_T+R@ $$AX__\O+?_X M+RW_]$ZY *D_O !!"N0 ")"N0 "9"N0 "I"N0 !I*K?_@9P $ MGDJM_]!G $ (&W_Y' $"@ #W(!X:$B>0 HL:0 .= 4+@ /=@'EHX*# M+'D 6=@ 6+@ /= 'GHH*"+P%.N0 $D!83RM _LP@>0 !9P ! H ]R M >&APJW^S&<N+SD 23KD !).6$\(N0 $ )2!M__!"J ,+RW_^"\M M__!.N0 103R!Y "B)H YP ! I ]R >&APJW^S&<P+SD *3KD M ^P6$]*@&<>2&W^T$ZZ!Q!83R\M__@O+?_P2&W^T$ZZ!5Q/[P ,(&W_Y' M$"@ #W(!X:'"K?[,9Q(O+?_X3KD "26$\K0/_T8 1@ /[V8! O+?_X3KD M "26$\K0/_T(&W_]" H A@ ,\2KD :9QQ(> #*0J<O+?_X+RW_]$ZY M *D_O !!@ -42JW_T&8H3KH))"M _]!F'$AX ,I"IR\M__@O+?_T3KD M J3^\ $& RA@!%*M_] @;?_T("@ '.6 *T#_W$AX $@;?_<< 0$%* M+P!.N0 $5Q03RM _]@@;?_<< 0$"\ +RW_V")M_]Q2B2\)3KD \X3^\ M#"!M_]QP ! 0(FW_V$(Q" K;?_8_]1@'B!M_]00$$B 2, O $ZY .@EA/ M(&W_U!" 4JW_U"!M_]1*$&;:2'H"PB\M_]A.N0 #V)03TJ 9D0(.0 # M)6<Z2'H"KR!M__ O* 83KD ^24$\@;?_P(7P ' PO+?_X+RW_\$ZY M !%!/"+D P "5@"B\M_]A.N@)Z6$\@;?_<< 0$%* +P O+?_83KD M !&>4$\@;?_T("@ %.6 *T#_Z"!M_^@A?/____\ )"!M_^@A?/____\ !$JY M &F8R(&W_] RH #[0 (9B0@;?_T*V@ !/[((&W^R"/H ! :(&W^ MR")M_^@C: 0 "0@;?_T+R@ $$AX__\O+?_X+RW_]$ZY *D_O !!@ &> M*VW_]/_P"/D P "4O+?_X+RW_\$AM_M!.N@,83^\ #& 7@@;?_T+R@ M'")M__0O*0 83KH&L%!/(&W_]")M__0C: < PO+?_X+RW_]$ZY !%!/ M8 !0"MM__3_\ CY 0 E('D 20J@ ("!M__ B>0 !(C: 4 "0O M.0 !).N0 $B!83R\M__@O+?_P2&W^T$ZZ I)/[P ,8 \B!M__1*J 4 M9Q((^0 " )0BY E8! (N0 " )0CY E3KH"6B!M__0O M* 02'C__R\M__@O+?_T3KD J3^\ $& *!3K?_09@Q"K?_@3KH(O$ZZ M"#0@;?_T(#D :L*@ %&8&0KD :(&W_]"\H !!(>/__+RW_^"\M__1. MN0 "I/[P 08%9(> #10J<O+?_X+RW_]$ZY *D_O !!@/)"\ %&< M_O:0O #YG /Z.6X!G /ZND+P .+9P#_*I"\ "V< _)I3@&< _+A3 M@&< _V9@JF ^UX@;?_L0J@ "$Y=3G5697(@,2XP("AC*2!3=&5V92!$<F5W M(#$Y.#< 0558.D5.1$-,20!%3D1#3$D* !.5?_P*WP !__!(> (2'H M_"\M A.N0 #VA/[P ,2H!G!$Y=3G4@+0 (4( K0/_\2JW_\&< - K;?_\ M__A@!%*M__P@;?_\2A!G"B)M__P,$0 O9NH@;?_\2A!F!$*M__ @;?_\0A @ M+?_X5( K0 ((&W__+'M AC ""(&W_^! 02(!(P& D*WP !__1@,"M\ M O_T8"8K? 3_]& <0JW_]& 6D+P !#9]Y5@&?0D+P -9]Q@ MY"!M @,$ !/9C @;0 (#"@ 3@ !9@P@+?_T@;D B8!@@;0 (#"@ 1@ ! M9@P@+?_T1H#!N0 ")2K?_\8 #_+& _QI!55@Z4T54+P 3E4 "!Y M"B%\ 0 D('D *,7P @ <0?D ((GD *(T@ *"\Y "DZY M 2(%A/3EU.=4Y5__A"K?_X2KD J9PH(.0 " )68*2KD F9P ! M? @Y 0 E9UX(N0 $ )2!M PA?/____\ #"\Y $DZY /HEA/ M+SD 23KD !).6$\@>0 !9P ! H ]R >&A+P%.N0 $D!83R\M ! O M+0 ,3KD $4$]@ $4"#D P "5G $("+D P "4(.0 " )6<( M0KD F8 93N0 "9*N0 "IG>BM\ ?_X(&T #"MH !C__& $4JW_ M^"!M C1[?_X(FW__-/M__@3:/____\,* *__]F"@@Y ( E9QHL;0 , M("W_^+"N !QL#"(M__BRN0 "IMNB!M__S1[?_X#"@ "O__9Q (.0 " M)68&4KD F("W_^)&Y *B\Y *B\M @@;0 (T>W_^"\(3KD \X M3^\ # RY _0 "IL%@@Y 4 E9PP(N0 % )4ZZ_CX@;0 ,(6W_ M^ ,+RT $"\M Q.N0 103TY=3G5.5?_^+SD *3KD !).6$\;>0 M C__PPM /__V8>0BW__TJY &F<22'@0 "\Y &DZY 2+E!/"#D M @ "5F $4$"W__TB 2,!@ #40BW__TJY &F<22'@@ "\Y &DZY M 2+E!/8 YG &T#__TB 2, CP "I2N0 "9@ #,"#D 0 "5G M!AM\ K__V +@(.0 ! )6<$0BW__V *9*N0 "IG)B!M C1^0 M "H,* *__]G%%.Y *DAX -(>@$J3KH!+E!/0BW__V!P2KD J9R@@ M;0 (T?D J#"@ "O__9Q93N0 "I(> #2'H ^DZZ /I03V#00BW__V Z M0BW__V T68!G /\J68!GAE6 9P#_<%> 9P#_5E& 9ZI7@&>F5X!GV%. 9P#_ M*I"\ 8V< _V!@R@@Y E9RP(.0 ! )6<2#"T "O__9@I(> - M3KH Z%A/$"W__TB 2, O $ZZ -A83PPM K__V8&4KD F#+D #^ M*FTX"/D !0 "5*N0 "9F)@@Y ( E9AQ2N0 "8@.0 "I2N0 M "H@;0 ($;P "@@ 8 1.NOPV2BW__V<6(#D J4KD J(&T "!&M__\( M $Y=3G4(( @ "" ( $Y5__I"K?_\0JW__& Z("W__"!M @;< @ __L,+0 * M__MF$@@Y $ E9PA(> -82)83Q M__M(@$C +P!A%%A/4JW__" M__RP MK0 ,;;Q.74YU3E4 $HM MG*B!Y #B%\ 0 D0>T "R)Y #B-( M "@O.0 Y.N0 $7)83TY=3G5.5?_T(_P # (DAY $ 4AX %). MN0 $5Q03R/ "F8&< !.74YU2'D 0 !2'@ 4DZY 17%!/(\ . M9A9(> !2+SD *3KD !&>4$]P &#,0J="ITZY /S%!/('D *(4 M#D*G+SD *0J=(>@$P3KD !'J3^\ $$J 9SP@>0 HO* .3KD !!D M6$](> !2+SD .3KD !&>4$](> !2+SD *3KD !&>4$]P & _V K M>0 K_^"MY #O_\0JW_]& 6(&W_^%*M__@B;?_\4JW__!*04JW_] RM M 4O_T9>!"IT*G3KD _,4$\@>0 XA0 .('D .,7P P <0J=" MITZY /S%!/(\ 69V)(> H+SD 63KD !#04$\CP !)G2$*G M+SD 22'@ 4AZ %Y.N0 $>I/[P 02H!F*B!Y $C%\ D '"!Y M$D(H !X@>0 !)"* ?3KKY[' !8 #^DB!Y $D*H !1.N@"J82)P & M_GQS97)I86PN9&5V:6-E '1I;65R+F1E=FEC90 3E4 @Y 4 E9APO M.0 I.N0 #Z)83R\Y "DZY 23EA/('D .+R@ #DZY 09%A/ M2'@ 4B\Y #DZY 1GE!/+SD *3KD ^^6$\@>0 HO* .3KD M !!D6$](> !2+SD *3KD !&>4$].74YU3E4 $JY $F<L('D 2 M2J@ %&<.+SD 23KD ^^6$](> H+SD 23KD !$:4$]*N0 !9G M#B\Y %DZY 09%A/3EU.=7 $"\ ![ \ &!C"K \ 'IB!) \ "!.=7 M$"\ ![ \ $!C"K \ %IB!- \ "!.=6%\0_D $1?D M<EF#C(\ !=K M"'0 (L)1R?_\(\\ +'@ !"/. 'DCG@( (+@ $ 2EG$$OZ A.KO_B M8 9"I_-?3G-#^@ D3J[^:"/ !&8,+CP X '3J[_E& &3KD #,4$]. M=61O<RYL:6)R87)Y $GY !__DYU3.\# $< @+P ,L\AF DYU8Q#0P-+ M8 (3(%'(__Q.=1+84<C__$YU,#Q__V $,"\ #E- :Q0@;P $(F\ "+$)9@Q3 M2$H85\C_]G 3G5C!' !3G5P_TYU(&\ !" ((F\ "!#99OQ.=2)O 0L>0 M !Y.[OX@(F\ !"QY 'D[N_BPB;P $+'D >3N[^/DY5 !(YS@@2'C_ M_TZY 0PEA/* "PO/____]F"G 3-\$'$Y=3G5(>0 ! %(> B3KD !%< M4$\D0$J 9@XO!$ZY 1MEA/< !@TB5M @ "A5M \ "15\ 0 "$(J X5 M1 /0J=.N0 $8I83R5 !!*K0 (9PPO"DZY 0M%A/8 Q(:@ 43KD !'8 M6$\@"F"(3E4 $CG," D;0 (2JH "F<*+PI.N0 $A)83Q5\ /\ ""5\____ M_P 4< 0*@ /+P!.N0 $;983TAX "(O"DZY 1GE!/3-\$#$Y=3G4B;P $ M+'D >3N[^GB O 0L>0 !Y.[OZV3E4 $CG,"!*K0 (9@IP $S?! Q. M74YU2'D 0 !+RT #$ZY 17%!/)$!*@&8$< !@W!5\ 4 "#5M X $B5M M @ #B *8,9.50 2.<P("1M @@"F8(3-\$#$Y=3G45? #_ @E?/____\ M%"5\_____P 8< P*@ 2+P O"DZY 1GE!/8,Y.^0 $6),[P # 0L>0 M !Y.[O\Z2.<# ")O PL>0 !Y.KOXX3-\ P$YU3OD !&0(F\ !"QY M'D[N_MI.^0 $:0B;P $("\ ""QY 'D[N_RX@+P $+'D >3N[^L$[Y M 1RB!O 0L>0 !Y.[OZ,(&\ !""(6)!"J $(4@ "$YU(&\ !$SO @$ M""(O ! L>0 !Y.[OY$3.\# $+'D >3N[^DB)O 0L>0 !Y.[OZ8 M(F\ !"QY 'D[N_C(B;P $("\ ""QY 'D[N_KP@+P $+'D >3N[^ MPB)O 0L>0 !Y.[OXF3OD !)B(&\ !"QY 'D[N_H /L @ M $ ZV /,@ $X B *H "V Z /@ %& ! ML =@ 'X "( F( )Z "J M0 ,& #* U8 -X M #F@ [8 /B $7@ !+X 3X %7 !:8 7 &8 !Y0 M ?H ']@ "! @@ (^ "38 E, )>@ "; O6 +^@ M#!H PT ,1 #&0 Q\ ,C@ #* SH -"@ #20 U$ - MP@ #= WB -] #@( X4 .)@ #E YB .> #QP _: M 0 $! ! X 03 $%H !!Z 0F $*8 !#T 15 $5X M !&, 1H $<8 !)> E ( %0 !5@ 5P %B !A@ M 9P &\ !T@ >( ( "&@ I( .& #P !! 0V $ M= !-( 38 $Y@ !/( 4D %+ !38 4^ %@ !8P <J M '1 !V0 =R '?@ !X0 >. 'J ![( >Z 'Q@ !] M ?B '\ !_X @N (.@ "$( A* (4@ "%@ B8 (L@ M",P C4 (W@ ".0 D& )$ "1H E& )5 "6@ ET ) MA "9X FJ )Q@ "<P G8 )[ "?P H( *%@ "C H\ M *2@ "J( JL *W@ "N@ KR *^ "P( L* +$ "Q8 M LR +. "WH NT +Q@ "] OJ , @ #"( PN ,3 M#%@ QR ,B #)H RN ,M@ #/ SZ -$@ #1X TL - M-@ #5( U> -: #7P VT -O #<H W8 -[@ #?P X* M .( #C8 X^ .2@ #EP YJ .<@ #KP [4 .W@ #P@ M ^H /M@ #\0 !"Z 0R $6H !%\ 1E@ $:X !&\ 1T M$?H !(* 2& $B8 !(X 21@ $E0 !)H _( /J 5 0 4 /R #ZP !@ /R end SHAR_EOF if test 7932 -ne "`wc -c aux-handler.uue`" then echo shar: error transmitting aux_handler.uue '(should have been 7932 characters)' fi # End of shell archive exit 0
drew@cgou01.dec.com (Steve Drew) (05/08/87)
# This is a shell archive. # Remove everything above and including the cut line. # Then run the rest of the file through sh. #----cut here-----cut here-----cut here-----cut here----# #!/bin/sh # shar: Shell Archiver # Run the following text with /bin/sh to create: # makefile # myaux.c # misc.c # This archive created: Fri May 8 09:20:05 1987 echo shar: extracting makefile cat << \SHAR_EOF > makefile ######################################################################### # # Aux-Handler Makefile # V 1.0 (c) Steve Drew 1987 # For Manx 3.40a # ######################################################################### aux-handler : misc.o myaux.o ln -o aux-handler misc.o myaux.o -lcl32 misc.o : misc.c cc +C +D +L +Hmyaux.syms misc.c myaux.o : myaux.c cc +C +D +L +Imyaux.syms myaux.c SHAR_EOF if test 401 -ne "`wc -c makefile`" then echo shar: error transmitting makefile '(should have been 401 characters)' fi echo shar: extracting myaux.c cat << \SHAR_EOF > myaux.c /**************************************************************************** * * Aux Driver V1.0 (c)CopyRight 1987, Steve Drew. All Rights Reserved. * * Aux-Handler Ver. 1.0 1-May-1987 * * Steve Drew * 52-Castledale Cres. N.E. * Calgary, Ab. Canada. * * |You may freely distribute this source as long as | * |the Copyright notice is left intact. | ***************************************************************************/ #include <devices/serial.h> #include <devices/timer.h> typedef unsigned char u_char; #undef BADDR #define BADDR(x) ((APTR)((long)x << 2)) #define ACTION_FINDINPUT 1005L #define ACTION_FINDOUTPUT 1006L #define ACTION_END 1007L #define ACTION_SCREEN_MODE 994L #define DOS_FALSE 0L #define DOS_TRUE -1L #define AUX_ECHO 1 #define AUX_CRLF 2 #define AUX_RAW 4 #define AUX_RPEND 8 #define AUX_WAIT_FOR 16 #define AUX_TYPEAHEAD_FULL 32 #define AUXBUFSIZE 256 /* Same as CON: handler */ #define MAXLINESIZE 254 /* save two for \n'\0' */ #define MYPORT_SIG (1L << myport->mp_SigBit) #define READSER_SIG (1L << ReadSER->IOSer.io_Message.mn_ReplyPort->mp_SigBit) #define TIMER_SIG (1L << Timer_Port->mp_SigBit) /* extern long AbsExecBase; */ /* My Globals */ struct IOExtSer *ReadSER; struct IOExtSer *WriteSER; struct timerequest *Timer; struct MsgPort *Timer_Port; struct Task *reader; long SysBase; int aux_stat, aux_avail, in_len; u_char in_c; _main() { extern void returnpkt(); /* sends back the packet */ extern void returnpktplain(); /* use args in Res1 */ extern struct DosPacket *taskwait(); char *version = "Ver 1.0 (c) Steve Drew 1987"; struct Process *myproc; /* my process */ struct DosPacket *mypkt; /* a pointer to the dos packet */ struct DosPacket *rdpkt; struct DeviceNode *mynode; /* our device node (parmpkt Arg3) */ struct FileHandle *fh; /* a pointer to our file handle */ struct MsgPort *myport; long run = TRUE; /* handler main loop flag */ u_char *ptr; /* ptr for name translation */ char *name,*s; /* ptr to name for open */ int aux_open = 0; /* aux open count */ char auxbuf[AUXBUFSIZE];/* Our type ahead buffer */ long signals; /* signals that occurred in Wait */ /* Initializing the handler */ myproc = (struct Process *)FindTask(0L); mypkt = taskwait(myproc); /* Wait for my startup message */ /* I don't need the name or extra info passed in Arg1/2 */ mynode = (struct DeviceNode *)BADDR(mypkt->dp_Arg3); mynode->dn_Task = &myproc->pr_MsgPort; myport = &myproc->pr_MsgPort; returnpkt(mypkt, myproc, DOS_TRUE, mypkt->dp_Res2); in_len = aux_avail = aux_stat = 0; reader = (struct Task *) 0; /* done initial stuff, now for some work */ while(run) { if (aux_open) { /* then wait for read char or new action */ signals = Wait( MYPORT_SIG | READSER_SIG | TIMER_SIG ); if (signals & TIMER_SIG) { WaitIO(Timer); aux_stat &= ~AUX_WAIT_FOR; rdpkt->dp_Res1 = DOS_FALSE; returnpktplain(rdpkt,myproc); } if ((signals & READSER_SIG) && CheckIO(ReadSER)) { read_ser(auxbuf); chk_pend(auxbuf,rdpkt,myproc); } if (signals & MYPORT_SIG) { mypkt = taskwait(myproc); } else /* no new dospackets */ continue; } else /* only port at the moment is myport */ mypkt = taskwait(myproc); switch(mypkt->dp_Type) { /* find what action to perform */ case ACTION_FINDINPUT: if (reader) { /* Have I already got a someone reading */ returnpkt(mypkt, myproc, DOS_FALSE, ERROR_OBJECT_IN_USE); break; } case ACTION_FINDOUTPUT: /* I allow for multiple writers. But doesn't make sense to allow for mutilple readers. */ if (!aux_open) { /* first time here we open the devices */ if ((aux_open = open_stuff()) == 0) { returnpkt(mypkt, myproc, DOS_FALSE, ERROR_OBJECT_IN_USE); break; } } else aux_open++; /* get file name and Upper case it */ ptr = (u_char *)BADDR(mypkt->dp_Arg3); name = AllocMem((long)*ptr + 1, MEMF_PUBLIC); movmem(ptr+1, name, *ptr); name[*ptr] = '\0'; for (s = name; *s; ++s) *s = toupper(*s); /* This is a Hack to allow a bail out of a NEWCLI that is using the AUX. By doing say an echo >AUX:ENDCLI from another process the reader (being the NEWCLI) will be sent a ENDCLI command. */ if (!strcmp(name,"AUX:ENDCLI") && (aux_stat & AUX_RPEND)) { strcpy(rdpkt->dp_Arg2,"ENDCLI\n"); rdpkt->dp_Res1 = 7L; returnpktplain(rdpkt, myproc); aux_stat &= ~AUX_RPEND; } else chk_params(name); FreeMem(name, (long)*ptr +1); fh = (struct FileHandle *)BADDR(mypkt->dp_Arg1); fh->fh_Arg1 = DOS_TRUE; fh->fh_Port = (struct MsgPort *)DOS_TRUE; if (!reader && (mypkt->dp_Type == ACTION_FINDINPUT)) { struct MsgPort *port; port = mypkt->dp_Port; reader = port->mp_SigTask; fh->fh_Arg1 = (long)port->mp_SigTask; } returnpkt(mypkt, myproc, DOS_TRUE, mypkt->dp_Res2); break; case ACTION_READ: rdpkt = mypkt; aux_stat |= AUX_RPEND; chk_pend(auxbuf,rdpkt,myproc); break; case ACTION_WRITE: write_ser(mypkt->dp_Arg2,(int)mypkt->dp_Arg3); mypkt->dp_Res1 = mypkt->dp_Arg3; /* tell em we wrote them all */ returnpktplain(mypkt, myproc); break; case ACTION_WAIT_CHAR: /* just queue up to wait for data */ rdpkt = mypkt; aux_stat |= AUX_WAIT_FOR; Timer->tr_time.tv_secs = 0L; Timer->tr_time.tv_micro = rdpkt->dp_Arg1; SendIO(Timer); chk_pend(auxbuf,rdpkt,myproc); break; case ACTION_SCREEN_MODE: if (mypkt->dp_Arg1) { aux_stat |= AUX_RAW; aux_stat &= ~AUX_ECHO; } else { aux_stat &= ~AUX_RAW; aux_stat |= AUX_ECHO; } chk_pend(); returnpkt(mypkt, myproc, DOS_TRUE, mypkt->dp_Res2); break; case ACTION_END: if (--aux_open == 0) { run = 0; close_timer(); close_ser(); } if (mypkt->dp_Arg1 == (long)reader) reader = (struct Task *) 0; returnpkt(mypkt, myproc, DOS_TRUE, mypkt->dp_Res2); break; default: returnpkt(mypkt, myproc, DOS_FALSE, ERROR_ACTION_NOT_KNOWN); break; } } /* end while */ mynode->dn_Task = FALSE; } /* Allows some flexibilty to control the port. Can dynamically change CRLF translation, Echo or RAW mode on/off. */ chk_params(str) char *str; { char *ptr, *s; int param, i=1; if (strncmp(str,"AUX:SET/",8)) return; ptr = str + 8; while(i) { for (s = ptr; *ptr && *ptr != '/'; ++ptr); if (*ptr == '\0') i = 0; *ptr = '\0'; str = s+2; if (ptr > str) { switch (*s) { case 'E': param = AUX_ECHO; break; case 'C': param = AUX_CRLF; break; case 'R': param = AUX_RAW; break; default: param = 0; break; } if (*str == 'O') { if (*(str+1) == 'N') aux_stat |= param; else if (*(str+1) == 'F') aux_stat &= ~param; } } ++ptr; } } /* Start a asynchronous Read request */ set_read() { /* set up for a read */ ReadSER->IOSer.io_Length = 1L; ReadSER->IOSer.io_Command = CMD_READ; ReadSER->IOSer.io_Data = (APTR) &in_c; SendIO(ReadSER); } /* Check our buf to see if we have a line to return yet. Or if raw mode give 'em all we got. */ chk_pend(buf,pkt,proc) char *buf; struct DosPacket *pkt; struct Process *proc; { extern void returnpktplain(); char *p; int i=0; if ((in_len && (aux_stat & AUX_RAW)) || aux_avail) { if (aux_stat & AUX_WAIT_FOR) { aux_stat &= ~AUX_WAIT_FOR; /* clear the wait_for */ pkt->dp_Res1 = DOS_TRUE; AbortIO(Timer); WaitIO(Timer); Wait (1L << Timer_Port->mp_SigBit); returnpktplain(pkt,proc); } else if (aux_stat & AUX_RPEND) { aux_stat &= ~AUX_RPEND; /* clear the pending read */ if (aux_stat & AUX_RAW) { aux_avail = 0; /* since we're sending all */ } else --aux_avail; /* if in_len is zero, then aux_avail must of been set up to force us here to reply with Res1 = 0; thus actually returning an EOF. */ if (in_len) { for (i = 1,p = (char *) pkt->dp_Arg2; ((p[i-1] = buf[i-1]) != 10 || (aux_stat & AUX_RAW)) && i < pkt->dp_Arg3 && i < in_len; ++i) ; /* reader asked for less than 256 chars but no cr was found. If not in raw mode then bump avail back up since we still have the remaining CR terminated line in buf[]. */ if (p[i-1] != 10 && !(aux_stat & AUX_RAW)) { ++aux_avail; } } in_len -= i; movmem(buf+i,buf,in_len); if (in_len < MAXLINESIZE - 1 && (aux_stat & AUX_TYPEAHEAD_FULL)) { aux_stat &= ~AUX_TYPEAHEAD_FULL; set_read(); /* start waiting for reads again */ } pkt->dp_Res1 = (long)i; returnpktplain(pkt,proc); } } } /* Only called here if there really is a character waiting to be read. */ read_ser(buf) char *buf; { char c; WaitIO(ReadSER); c = in_c; if (c == 3) { /* ^C typed so immediately send the signal */ c = 0; if (reader) Signal(reader,SIGBREAKF_CTRL_C); } if (!(aux_stat & AUX_RAW)) switch(c) { case 4: /* ^D, send the signal if not in raw mode */ c = 0; if (reader) Signal(reader,SIGBREAKF_CTRL_D); break; case 28: /* ^\ so wipe out line and force EOF */ in_len = c = 0; ++aux_avail; break; case 13: /* CR convert to LF if CRLF turned on */ if (aux_stat & AUX_CRLF) c = 10; break; case 10: /* ignore these */ if (aux_stat & AUX_CRLF) c = 0; break; case 8: /* BS */ case 127: /* DEL */ if (in_len && buf[in_len-1] != 10) { --in_len; write_ser("\010 \010",3); } c = 0; break; case 24: /* ^X */ case 21: /* ^U */ while(in_len && buf[in_len-1] != 10) { --in_len; write_ser("\010 \010",3); } c = 0; break; case 27: /* <ESC> */ c = 0; default: break; } if (aux_stat & AUX_ECHO) { if ((aux_stat & AUX_CRLF) && c == 10) putc_ser(13); putc_ser(c); } if (c == 10) ++aux_avail; /* always done when CR received */ /* If our buffer is full then ignore any further input. (it will stack up in the serial.device buffer) If our buffer contains no CR's (unterminated) then add a newline. At this point the CON: driver would wait for the user to type a return while ignoring any other key strokes. In raw mode the buffer CAN be full and unterminated. Since when ever the reader asks for data we give him what ever we have so far. */ if (in_len >= MAXLINESIZE) { aux_stat |= AUX_TYPEAHEAD_FULL; if (!aux_avail && !(aux_stat & AUX_RAW)) { ++aux_avail; buf[in_len++] = 10; } } else set_read(); if (c) buf[in_len++] = c; } /* Write 'em out one by one converting to CR LF if enabled. */ write_ser(buf,len) char *buf; int len; { int i=0; char c; for (i=0; i<len; i++) { c = buf[i]; if (c == 10 && (aux_stat & AUX_CRLF)) putc_ser(13); putc_ser(c); } } /* Perform Synchronous write. */ putc_ser(c) char c; { if (c) { WriteSER->IOSer.io_Length = 1L; WriteSER->IOSer.io_Data = (APTR) &c; DoIO(WriteSER); } } open_stuff() { BYTE *c,*b; int i; aux_stat = AUX_ECHO | AUX_CRLF; /* set the default */ if ((ReadSER = (struct IOExtSer *) AllocMem((long)sizeof(*ReadSER),MEMF_PUBLIC|MEMF_CLEAR)) == NULL) return(0); if ((WriteSER = (struct IOExtSer *) AllocMem((long)sizeof(*WriteSER),MEMF_PUBLIC|MEMF_CLEAR)) == NULL) { FreeMem(ReadSER,(long)sizeof(*ReadSER)); return(0); } ReadSER->IOSer.io_Message.mn_ReplyPort = CreatePort(0,0); if (OpenDevice(SERIALNAME,NULL,ReadSER,NULL)) { DeletePort(ReadSER->IOSer.io_Message.mn_ReplyPort); FreeMem(WriteSER,(long)sizeof(*WriteSER)); FreeMem(ReadSER,(long)sizeof(*ReadSER)); return(0); } b = (BYTE *)ReadSER; c = (BYTE *)WriteSER; for (i=0;i<sizeof(struct IOExtSer);i++) *c++ = *b++; WriteSER->IOSer.io_Message.mn_ReplyPort = CreatePort(0,0); WriteSER->IOSer.io_Command = CMD_WRITE; /* Open Timer.device */ if (Timer_Port = CreatePort (NULL, NULL)) { if ((Timer = CreateExtIO (Timer_Port, (long) sizeof (*Timer)))) { if (!(OpenDevice (TIMERNAME, UNIT_VBLANK, Timer, 0L))) { Timer->tr_node.io_Command = TR_ADDREQUEST; Timer->tr_node.io_Flags = 0; Timer->tr_node.io_Error = 0; set_read(); return(1); } } } Timer->tr_node.io_Device = 0; close_timer(); close_ser(); return(0); } close_ser() { if (!(aux_stat & AUX_TYPEAHEAD_FULL)) { AbortIO(ReadSER); WaitIO(ReadSER); } DeletePort(WriteSER->IOSer.io_Message.mn_ReplyPort); FreeMem(WriteSER,(long)sizeof(*WriteSER)); CloseDevice(ReadSER); DeletePort(ReadSER->IOSer.io_Message.mn_ReplyPort); FreeMem(ReadSER,(long)sizeof(*ReadSER)); } close_timer() { if (Timer) { if (Timer->tr_node.io_Device) CloseDevice (Timer); DeleteExtIO (Timer, (long) sizeof (*Timer)); } if (Timer_Port) DeletePort(Timer_Port); } SHAR_EOF if test 13852 -ne "`wc -c myaux.c`" then echo shar: error transmitting myaux.c '(should have been 13852 characters)' fi echo shar: extracting misc.c cat << \SHAR_EOF > misc.c /* * misc.c - support routines - Phillip Lindsay (C) Commodore 1986 * You may freely distribute this source and use it for Amiga Development - * as long as the Copyright notice is left intact. * * 30-SEP-86 * */ #include <functions.h> #include <stdio.h> #include <exec/types.h> #include <exec/nodes.h> #include <exec/lists.h> #include <exec/ports.h> #include <exec/libraries.h> #include <exec/devices.h> #include <exec/io.h> #include <exec/memory.h> #include <devices/console.h> #include <libraries/dos.h> #include <libraries/dosextens.h> #include <libraries/filehandler.h> extern void returnpkt(); /* returnpkt() - packet support routine * here is the guy who sends the packet back to the sender... * * (I modeled this just like the BCPL routine [so its a little redundant] ) */ void returnpktplain(packet, myproc) struct DosPacket *packet; struct Process *myproc; { returnpkt(packet, myproc, packet->dp_Res1, packet->dp_Res2); } void returnpkt(packet, myproc, res1, res2) struct DosPacket *packet; struct Process *myproc; ULONG res1, res2; { struct Message *mess; struct MsgPort *replyport; packet->dp_Res1 = res1; packet->dp_Res2 = res2; replyport = packet->dp_Port; mess = packet->dp_Link; packet->dp_Port = &myproc->pr_MsgPort; mess->mn_Node.ln_Name = (char *) packet; mess->mn_Node.ln_Succ = NULL; mess->mn_Node.ln_Pred = NULL; PutMsg(replyport, mess); } /* * taskwait() ... Waits for a message to arrive at your port and * extracts the packet address which is returned to you. */ struct DosPacket * taskwait(myproc) struct Process *myproc; { struct MsgPort *myport; struct Message *mymess; myport = &myproc->pr_MsgPort; WaitPort(myport); mymess = GetMsg(myport); return((struct DosPacket *)mymess->mn_Node.ln_Name); } /* end of misc.c */ SHAR_EOF if test 1924 -ne "`wc -c misc.c`" then echo shar: error transmitting misc.c '(should have been 1924 characters)' fi # End of shell archive exit 0