amiga-request@abcfd20.larc.nasa.gov (Amiga Sources/Binaries Moderator) (10/09/90)
Submitted-by: hgschmie@faui41.informatik.uni-erlangen.de (Henning Schmiedehausen)
Posting-number: Volume 90, Issue 265
Archive-name: util/stickmouse-1.0/part01
[ uuencoded executable enclosed ...tad ]
This program changes the port and the device used by the
internal input.device to control the Mouse-Pointer.
#!/bin/sh
# This is a shell archive. Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file". To overwrite existing
# files, type "sh file -c". You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g.. If this archive is complete, you
# will see the following message at the end:
# "End of archive 1 (of 1)."
# Contents: MakeFile StickMouse.doc StickMouse.uu Stickmouse.c
# Wrapped by tadguy@abcfd20 on Mon Oct 8 17:22:52 1990
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'MakeFile' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'MakeFile'\"
else
echo shar: Extracting \"'MakeFile'\" \(268 characters\)
sed "s/^X//" >'MakeFile' <<'END_OF_FILE'
X# Makefile for
X# Stickmouse
X# will work with Manx C V 3.6
X#
X
XCFLAGS = +l -n -s
X# remove -n after your finished Debugging
X
XStickmouse: Stickmouse.o
X ln -t -g -o StickMouse Stickmouse.o -lc32
X# remove -t and -g after you finished Debugging
X
XStickmouse.o: Stickmouse.c
X
END_OF_FILE
if test 268 -ne `wc -c <'MakeFile'`; then
echo shar: \"'MakeFile'\" unpacked with wrong size!
fi
# end of 'MakeFile'
fi
if test -f 'StickMouse.doc' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'StickMouse.doc'\"
else
echo shar: Extracting \"'StickMouse.doc'\" \(2168 characters\)
sed "s/^X//" >'StickMouse.doc' <<'END_OF_FILE'
X/***************************************************\
X * *
X * S T I C K M O U S E *
X * *
X * 901002 V 1.0 written and released by Dr. Music *
X * *
X * Dr. Music is: *
X * Henning Schmiedehausen *
X * Glueckstrasse 3 *
X * D-8520 Erlangen *
X * GERMANY *
X * hgschmie@faui41.informatik.uni-erlangen.de *
X * *
X * This program is placed in the public domain *
X * It may be distributed freely as long as this *
X * message is left unchanged. *
X * You may add it to any PD-Disk you want, as long *
X * as you don't charge more money than necessary *
X * to distribute the Disk. *
X * *
X\***************************************************/
X
X
XThis program changes the port and the device used by the
Xinternal input.device to control the Mouse-Pointer.
X
XThe useage of this little program is
X
XSTICKMOUSE <port> <device>, where
X
X<port> is either 0 or 1 for the Gameports.
X<device> is either JOY or MOUSE for the device.
X
XJust STICKMOUSE and Return will reset to Mouse and Port 0.
X
XThe C-Code is included in this package, it should contain:
X
XMakefile: 268 Bytes
XStickmouse.c: 3949 Bytes
XStickmouse: 6708 Bytes
XStickmouse.doc: 2168 Bytes
X
XThis is PD. Use it or discard it.
X
X
X Henning
X
X ___ _________________________________________________________________
X ONLY //// |Henning Schmiedehausen | You can call me | Opinions are
X___ //// |Glueckstr. 3 8520 Erlangen| Dr. Music, 'cause | mine, Typos
X\\\\ //// |Germany | Music is my name - BOC| and Grammars
X \\\X/// +--------------------------+---------------+-------+------+ are
X \XXX/AMIGA|hgschmie@faui41.informatik.uni-erlangen.de| HACK IS BACK!| yours
END_OF_FILE
if test 2168 -ne `wc -c <'StickMouse.doc'`; then
echo shar: \"'StickMouse.doc'\" unpacked with wrong size!
fi
# end of 'StickMouse.doc'
fi
if test -f 'StickMouse.uu' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'StickMouse.uu'\"
else
echo shar: Extracting \"'StickMouse.uu'\" \(9432 characters\)
sed "s/^X//" >'StickMouse.uu' <<'END_OF_FILE'
Xbegin 644 StickMouse
XM```#\P`````````#``````````(```7A````K@````$```/I```%X4[Z!%Q.8
XM5?_^&VT`#___(&T`"#%\``X`'$'M__\B;0`((T@`*"!M``@A?`````$`)"\M<
XM``A.NA9D6$].74YU3E7__AMM``___R!M``@Q?``/`!Q![?__(FT`""-(`"@@W
XM;0`((7P````!`"0O+0`(3KH6*EA/3EU.=4Y5__XO!`RM`````P`(;```D`RM$
XM`````0`(9@Q"+?__&WP``?_^8'0,K0````(`"&96(&T`#")H``0,$0`_9DA()
XM>@&F3KH(+%A/2'H!SDZZ"")83TAZ`>A.N@@86$](>@'^3KH(#EA/2'H"&DZZ4
XM"`183TAZ`D!.N@?Z6$](>``*3KH1IEA/8!1(>@)&3KH'Y%A/2'@`"DZZ$9!8Z
XM3V```-`@;0`,(F@`!!`12(!(P)"\````,!M`__]*+?__90@,+0`!__]C%$AZ_
XM`D).N@>F6$](>``*3KH14EA/>`!@)B!M``PB:``($#%``$B`2,`O`$ZZ`I18;
XM3R!M``PB:``($X!``%)$,`1(P"\`(&T`#"\H``A.N@)@6$\B'[*`;<!(>@(&!
XM(&T`#"\H``A.N@**4$]*@&8(&WP``O_^8#)(>@'L(&T`#"\H``A.N@)L4$]*1
XM@&8(&WP``?_^8!1(>@'43KH'$EA/2'@`"DZZ$+Y83T*G2'H!XDZZ$PA03RE`6
XM@EXO+()>3KH3Y%A/*4""6D*G+RR"6D*G2'H!T4ZZ%/1/[P`0<``0+?__+P`O*
XM+():3KK]WE!/<``0+?_^+P`O+():3KK^!E!/+RR"6DZZ$IA83R\L@EI.NA.J1
XM6$\O+()>3KH3+%A/*!].74YU"@H@4U1)0TM-3U5313H@<W=I=&-H97,@=&AEE
XM($UO=7-E+5!O:6YT97(M1&5V:6-E"@`@55-!1T4Z(%-424-+34]54T4@/'!OO
XM<G0^(#QD979I8V4^"@`@/'!O<G0^(#T@,"\Q(&9O<B!T:&4@2F]Y<&]R=',*`
XM`"`\9&5V:6-E/B`]($U/55-%+TI/62!F;W(@=&AE($1E=FEC90H`(%-424-+1
XM34]54T4@=VET:&]U="!P87)A;7,@=VEL;"!S970@=&\@9&5F875L=`H`('=R`
XM:71T96X@8GD@1'(N($UU<VEC(#$Y.3`*`%5S96%G93H@4W1I8VM-;W5S92`\8
XM<&]R=#X@/&1E=CX@;W(@4W1I8VM-;W5S92`_(&9O<B!H96QP"@!0;W)T+4YUR
XM;6)E<B!M=7-T(&)E(#`@;W(@,0H`2D]9`$U/55-%`$1E=FEC92!M=7-T(&)E]
XM(&5I=&AE<B!-3U5312!O<B!*3UD*`%-T:6-K36]U<V5?:7-?:&5R90!I;G!UH
XM="YD979I8V4`(&\`!"`(2AAF_)'`(`A3@$YU<``0+P`'L#P`8&,*L#P`>F($;
XMD#P`($YU<``0+P`'L#P`0&,*L#P`6F($T#P`($YU,#Q__V`$,"\`#E-`:Q0@&
XM;P`$(F\`"+$)9@Q32$H85\C_]G``3G5C!'`!3G5P_TYU87!#[():1>R"6K7)P
XM9@XR/``7:PAT`"+"4<G__"E/@F8L>``$*4Z":DCG@(`(+@`$`2EG$$OZ``A.I
XMKO_B8`9"I_-?3G-#^@`@3J[^:"E`@FYF#"X\``.`!TZN_Y1@!$ZZ`!I03TYUF
XM9&]S+FQI8G)A<GD`2?D``'_^3G5.50``+PI(>0`!```P+().P?P`!B\`3KH1`
XMG"E`@G)03V840J=(>0`!``!.N@^^4$\N;()F3G4@;()R0F@`!"!L@G(Q?``!2
XM`!`@;()R,7P``0`*(&R"9B`L@F:0J``$4(`I0()V(&R"=B"\34%.6$*G3KH1S
XM:B1`2JH`K%A/9S`O+0`,+RT`""\*3KH`LBE\`````8)Z(&R"<@!H@```!"!L%
XM@G(`:(````I/[P`,8$)(:@!<3KH1QDAJ`%Q.NA%4*4""?B!L@GY*J``D4$]G+
XM$"!L@GXB:``D+Q%.N@ZH6$\O+()^+PI.N@)X*6R"?H*"4$].N@ZH(&R"<B"`;
XM3KH.R"!L@G(A0``&9Q9(>`/M2'H`+$ZZ#J0@;()R(4``#%!/+RR"@B\L@H9.V
XMNOIX0J=.N@R:3^\`#"1?3EU.=2H`3E4``$CG##`D;0`0(&T`"$JH`*QG&"!M6
XM``@@*`"LY8`H`"!$("@`$.6`)D!@!"9L@E`0$TB`2,#0K0`,5(`I0(**0J<OU
XM+(**3KH0+BE`@HY03V8(3-\,,$Y=3G40$TB`2,`J`"\%($M2B"\(+RR"CDZZ9
XM`8X@;(*.T<5#^@%8$-EF_"\M``PO"B\L@HY.N@%.(&R"CD(P6``I?`````&"3
XMAB!L@H[1Q29(4HLD2T_O`!@0$TB`2,`J`+"\````(&<@NKP````)9QBZO```L
XM``QG$+J\````#6<(NKP````*9@12BV#,#!,`(&T``(P,$P`B9C)2BR!+4HL0N
XM$$B`2,`J`&<@($I2BA"%NKP````B9A`,$P`B9@12BV`&0BK__V`"8-)@1"!+U
XM4HL0$$B`2,`J`&<PNKP````@9RBZO`````EG(+J\````#&<8NKP````-9Q"ZN
XMO`````IG""!*4HH0A6#"($I2BD(02H5F`E.+4JR"AF``_SQ"$D*G("R"AE*`C
XMY8`O`$ZZ#O(I0(*"4$]F"$*L@H9@`/Z^>@`F;(*.8!X@!>6`(&R"@B&+"``@P
XM2R`(2AAF_)'`4XA2B-?(4H6ZK(*&;=P@!>6`(&R"@D*P"`!@`/Z"(``P/'__H
XM8`0P+P`.(&\`!$H89OQ32")O``A30!#95\C__&<"0A`@+P`$3G5,[P,```0@E
XM""(O``Q@`A#95\G__&<&4D%@`D(84<G__$YU3E4``$CG#C`D;0`(0J=(>@".!
XM3KH.TBE`@I)03V8(3-\,<$Y=3G4@;0`,(F@`)"\I``1.N@\.*`!83V=22'H`9
XM;2!$+R@`-DZZ#N`F0$J`4$]G-$AX`^TO"TZZ"_XL`%!/9R0@!N6`*@`@125HV
XM``@`I"5&`)Q(>`/M2'H`.$ZZ"]HE0`"@4$\O!$ZZ#JQ83R\L@I).N@P<0JR"9
XMDEA/8(!I8V]N+FQI8G)A<GD`5TE.1$]7`"H`3E4``$AM``PO+0`(2'H$H$ZZ=
XM`)!/[P`,3EU.=4Y5``!(YP@@)&T`$`RM````!``49@@@;0`(*!!@%$JM``QO5
XM""!M``@H$&`&(&T`""@00JT`%$JM``QL$D2M``Q*A&P*1(0K?`````$`%"(M@
XM``P@!$ZZ`]9![(`"4XH4L`@`(BT`#"`$3KH#SB@`9MY*K0`49P93BA2\`"T@?
XM"DS?!!!.74YU3E7_%$CG"#`D;0`()FT`#$*M__@K;0`0__P@2U*+$!!(@$C`-
XM*`!G``,TN+P````E9@`##D(M_R(K?`````'_]"M\````(/_P*WP``"<0_^P@@
XM2U*+$!!(@$C`*`"PO````"UF$$*M__0@2U*+$!!(@$C`*`"XO````#!F%"M\6
XM````,/_P($M2BQ`02(!(P"@`N+P````J9AH@;?_\6*W__"M0_^@@2U*+$!!(W
XM@$C`*`!@-$*M_^A@(G(*("W_Z$ZZ"=[0A)"\````,"M`_^@@2U*+$!!(@$C`5
XM*`!![(`5"#```D@`9M*XO````"YF8B!+4HL0$$B`2,`H`+"\````*F8:(&W_0
XM_%BM__PK4/_L($M2BQ`02(!(P"@`8#1"K?_L8")R"B`M_^Q.N@ETT(20O```+
XM`#`K0/_L($M2BQ`02(!(P"@`0>R`%0@P``)(`&;2*WP````$_^2XO````&QFV
XM%B!+4HL0$$B`2,`H`"M\````!/_D8!2XO````&AF#"!+4HL0$$B`2,`H`"`$*
XM8```@BM\````"/_@8!PK?`````K_X&`2*WP````0_^!@""M\____]O_@+RW_`
XMY$AM_R(O+?_@+RW__$ZZ_;(K0/_<("W_Y-&M__Q/[P`08%P@;?_\6*W__")0V
XM*TG_W"`)2AEF_)/`4XDK2?_D8$H@;?_\6*W__"@00>W_(2M(_]P0A&`HD+P`Q
XM``!C9^)3@&>2D+P````+9P#_;%F`9[)5@&<`_VQ7@&<`_W!@S$'M_R*1[?_<[
XM*TC_Y"`M_^2PK?_L;P8K;?_L_^1*K?_T9W`@;?_<#!``+6<*(&W_W`P0`"MFA
XM-`RM````,/_P9BI3K?_H(&W_W%*M_]P0$$B`2,`O`$Z2L+S_____6$]F"G#_R
XM3-\,$$Y=3G5@&"\M__!.DK"\_____UA/9@1P_V#B4JW_^"`M_^A3K?_HL*W_O
XMY&[:0JW_X&`D(&W_W%*M_]P0$$B`2,`O`$Z2L+S_____6$]F!'#_8*I2K?_@/
XM(&W_W$H09PH@+?_@L*W_[&W*("W_X-&M__A*K?_T9BI@&DAX`"!.DK"\____<
XM_UA/9@9P_V``_W!2K?_X("W_Z%.M_^BPK?_D;MA@&"\$3I*PO/____]83V8&M
XM</]@`/](4JW_^&``_,`@+?_X8`#_.$CG2`!"A$J`:@1$@%)$2H%J!D2!"D0`@
XM`6$^2D1G`D2`3-\`$DJ`3G5(YT@`0H1*@&H$1(!21$J!:@)$@6$:(`%@V"\!T
XM81(@`2(?2H!.=2\!808B'TJ`3G5(YS``2$%*068@2$$V`30`0D!(0(##(@!(K
XM0#("@L,P`4)!2$%,WP`,3G5(028!(@!"04A!2$!"0'0/T(#3@;:!8@22@U)`#
XM4<K_\DS?``Q.=4Y5``!(;("L+RT`"$ZZ``A03TY=3G5.50``+P0H+0`(+RT`9
XM#"\$3KH`-+B\````"E!/9B8@;0`,$"@`#$B`2,`(```'9Q1(>/__+RT`#$ZZ)
XM`/Q03R@?3EU.=6#X3E4``"\*)&T`#"!2L>H`!&4:("T`","\````_R\`+PI.W
XMN@#.4$\D7TY=3G4@4E*2$"T`"Q"`2(!(P,"\````_V#D3E4``"\*0>R`EB1(@
XM($K5_````!8O"&$06$]![().M<AEZB1?3EU.=4Y5``!(YP@@)&T`"'@`(`IFU
XM"G#_3-\$$$Y=3G5**@`,9U((*@`"``QG#$AX__\O"F%4*`!03Q`J``U(@$C`<
XM+P!.N@4TB(`(*@`!``Q83V<*+RH`"$ZZ`CQ83P@J``4`#&<2+RH`$DZZ`M@O5
XM*@`23KH"(E!/0I)"J@`$0JH`"$(J``P@!&".3E7__DCG""`D;0`(0?K_1"E((
XM@I8(*@`$``QG"G#_3-\$$$Y=3G4(*@`"``QG-"!2D>H`""@(+P0O*@`($"H`U
XM#4B`2,`O`$ZZ`I:PA$_O``QG$`CJ``0`#$*20JH`!'#_8+P,K?____\`#&80I
XM"*H``@`,0I)"J@`$<`!@HDJJ``AF""\*3KH`I%A/#&H``0`09C`;;0`/__](F
XM>``!2&W__Q`J``U(@$C`+P!.N@(RL+P````!3^\`#&:8("T`#&``_UXDJ@`(/
XM,"H`$$C`T*H`""5```0(Z@`"``P@4E*2$"T`#Q"`2(!(P,"\````_V``_RY.U
XM50``+PI![("6)$A**@`,9QC5_````!9![().M<AE"'``)%].74YU8.)"DD*JM
XM``1"J@`((`I@ZDY5__PO"B1M``A(>`0`3KH`PBM`__Q83V88-7P``0`0($K1R
XM_`````XE2``()%].74YU-7P$```0".H``0`,)6W__``($"H`#4B`2,`O`$ZZ7
XM`-Y*@%A/9P8`*@"```Q@S$Y5``!(YP`P)&R"8F`4)E(@*@`$4(`O`"\*3KH&4
XM0E!/)$L@"F;H0JR"8DS?#`!.74YU3E4``"\*0?K_QBE(@II"IR`M``A0@"\`E
XM3KH%TB1`2H!03V8(<``D7TY=3G4DK()B)6T`"``$*4J"8B`*4(!@YDY5```OV
XM+0`(8;983TY=3G5.50``2.<`,)?+)&R"8F`.(&T`"%&(L<IG$B9*)%(@"F;NM
XM</],WPP`3EU.=2`+9P0FDF`$*5*"8B`J``10@"\`+PI.N@68<`!03V#83E4`Z
XM`"\*<@8@+0`(3KH"X"1`U>R"<DJM``AM$C`L@DY(P"(M``BR@&P$2I)F$"E\K
XM`````H*></\D7TY=3G5R!B`M``A.N@*H(&R"<B\P"`!.N@+T2H!83V<$<`%@3
XM`G``8-9.50``+RT`"$ZZ`KY*@%A/9@Y.N@+(*4""GG#_3EU.=7``8/A.50``_
XM2.<,("@M``A.N@!V<@8@!$ZZ`E(D0-7L@G)*A&T.,"R"3DC`N(!L!$J29A(II
XM?`````*"GG#_3-\$,$Y=3G4P*@`$P'P``V8,*7P````%@IYP_V#B+RT`$"\ML
XM``PO$DZZ`HXJ`+"\_____T_O``QF#$ZZ`D(I0(*></]@NB`%8+9.5?_\2'@0Z
XM`$*G3KH$\BM`__P(```,4$]G$DJL@GIF""`M__Q.74YU3KH`!G``8/1.50``$
XM2'@`!$AZ`!Q.N@(8+P!.N@(J2'@``4ZZ``Y/[P`03EU.=5Y#"@!.50``2JR"`
XMEF<&(&R"EDZ0+RT`"$ZZ``A83TY=3G5.5?_\+P0K;0`(__Q*K()R9RQX`&`*9
XM+P1.N@#\6$]2A#`L@DY(P+B`;>PP+().P?P`!B\`+RR"<DZZ`]103TJL@IIG=
XM!B!L@II.D$JL@E1G"B\L@E1.N@&06$]*K(*B9P@@;(*B(*R"IDJL@JIG"B\L5
XM@JI.N@&X6$]*K(*N9PHO+(*N3KH!J%A/2JR"LF<*+RR"LDZZ`9A83TJL@K9G5
XM"B\L@K9.N@&(6$\L>``$""X`!`$I9Q0O#4OZ``I.KO_B*E]@!D*G\U].<TJLE
XM@GYF*DJL@HYG(B\L@HHO+(*.3KH#,"`L@H92@.6`+P`O+(*"3KH#'D_O`!!@<
XM#DZZ`P@O+()^3KH#>%A/("W__"YL@F9.=2@?3EU.=4Y5``!(YPX@*"T`"'(&]
XM(`1.N@!$)$#5[()R2H1M#C`L@DY(P+B`;`1*DF82*7P````"@IYP_TS?!'!.E
XM74YU,"H`!,!\@`!F""\23KH`+EA/0I)P`&#@2.=P`#0!Q,`F`4A#QL!(0T)#J
XMU(-(0,#!2$!"0-""3-\`#DYU(B\`!"QL@FY.[O_<(B\`!"QL@FY.[O^"(B\`7
XM!"QL@FY.[O^X+&R";D[N_\HL;()N3N[_?"(O``0L;()N3N[_*$SO``8`!"QLH
XM@FY.[O_B+&R";D[N_\1.^@`"(B\`!"QL@FY.[O^F3.\`#@`$+&R";D[N_]!($
XMYP$$3.\@@``,+&R":DZN_Y1,WR"`3G4B;P`$+&R":D[N_CY.^@`"(F\`!"QL\
XM@FI.[OYB3E4``$CG""!(>/__3KH`T"@`L+S_____6$]F"G``3-\$$$Y=3G5(D
XM>0`!``%(>``B3KH!8"1`2H!03V8,+P1.N@&F<`!83V#6)6T`"``*%6T`#P`)R
XM%7P`!``(0BH`#A5$``]"ITZZ`50E0``02JT`"%A/9PHO"DZZ`%I83V`*2&H`O
XM%$ZZ`7I83R`*8)).50``+PHD;0`(2JH`"F<(+PI.N@&66$\5?`#_``@E?/__R
XM__\`%'``$"H`#R\`3KH!*DAX`"(O"DZZ`0Q/[P`,)%].74YU(F\`!"QL@FI._
XM[OZ>("\`!"QL@FI.[OZV3E4``$AX`#`O+0`(3KH`&E!/3EU.=4Y5```O+0`(^
XM3KH`3%A/3EU.=4Y5```O"DJM``AF"'``)%].74YU2'D``0`!+RT`#$ZZ`&`D*
XM0$J`4$]F!'``8.`5?``%``@U;0`.`!(E;0`(``X@"F#*3E4``"\*)&T`""`*^
XM9@8D7TY=3G45?`#_``@E?/____\`%"5\_____P`8<``P*@`2+P`O"DZZ`$90]
XM3V#23OH``DSO``,`!"QL@FI.[O\Z2.<#`")O``PL;()J3J[^.$S?`,!.=4[Z!
XM``(B;P`$+&R":D[N_MHL;()J3N[_?$[Z``(B;P`$("\`""QL@FI.[O\N("\`<
XM!"QL@FI.[OZP(&\`!"QL@FI.[OZ,(&\`!""(6)!"J``$(4@`"$YU(&\`!$SOB
XM`@$`""(O`!`L;()J3N[^1"QL@FHB;P`$("\`"$[N_=@B;P`$+&R":D[N_I@B\
XM;P`$+&R":D[N_H9,[P`#``0L;()J3N[^SB!O``0L;()J3N[^@$SO`P``!"QLP
XM@I).[O^@(&\`!"QL@I).[O^F(&\`!"QL@I).[O^R```#[`````$````!```$P
XMT@````````/R```#Z@```)8P,3(S-#4V-S@Y86)C9&5F````("`@("`@("`@,
XM,#`P,#`@("`@("`@("`@("`@("`@(""00$!`0$!`0$!`0$!`0$!`#`P,#`P,(
XM#`P,#$!`0$!`0$`)"0D)"0D!`0$!`0$!`0$!`0$!`0$!`0$!`4!`0$!`0`H*.
XM"@H*"@("`@("`@("`@("`@("`@("`@("0$!`0"```````````````````0``Q
XM```!``````````````````````$!`````0`````````````````````!`@``'
XM``$`````````````````````````````````````````````````````````!
XM`````````````````````````````````````````````````````````````
XM`````````````````````````````````````````````````````````````
XM`````````````````````````````````````````````````````````````
XM`````````````````````````````````````````````````````````````
XM`````````````````````````````````````````````````````````````
XM`````````````````````````````````````````````````````````````
XM`````````````````````````````````````````````````````````````
XM````````````````````````````%`````````````````/R```#ZP````$`X
X#``/RU
X``
Xend
Xsize 6708
END_OF_FILE
if test 9432 -ne `wc -c <'StickMouse.uu'`; then
echo shar: \"'StickMouse.uu'\" unpacked with wrong size!
fi
# end of 'StickMouse.uu'
fi
if test -f 'Stickmouse.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Stickmouse.c'\"
else
echo shar: Extracting \"'Stickmouse.c'\" \(3949 characters\)
sed "s/^X//" >'Stickmouse.c' <<'END_OF_FILE'
X/***************************************************\
X * *
X * S T I C K M O U S E *
X * *
X * 901002 V 1.0 written and released by Dr. Music *
X * *
X * Dr. Music is: *
X * Henning Schmiedehausen *
X * Glueckstrasse 3 *
X * D-8520 Erlangen *
X * GERMANY *
X * hgschmie@faui41.informatik.uni-erlangen.de *
X * *
X * This program is placed in the public domain *
X * It may be distributed freely as long as this *
X * message is left unchanged. *
X * You may add it to any PD-Disk you want, as long *
X * as you don't charge more money than necessary *
X * to distribute the Disk. *
X * *
X\***************************************************/
X
X/* This program will switch the intuition-input.device
X to use different ports and Devices at the external ports to
X control the mouse-pointer. The trigger button will simulate
X the left mouse button, the right button must be simulated via
X Right-Amiga and ALT
X*/
X
X/* Usage of this program: STICKMOUSE <port> <device> */
X/* just STICKMOUSE
X will set the port to 0 and the device to MOUSE (default) */
X
X#include <ctype.h>
X#include <exec/types.h>
X#include <devices/input.h>
X#include <devices/gameport.h>
X
Xvoid SetMousePort(request,port)
Xstruct IOStdReq *request;
XUBYTE port;
X {
XUBYTE MyPort;
X MyPort = port;
X request->io_Command = (UWORD)IND_SETMPORT;
X request->io_Data = (APTR)&MyPort;
X request->io_Length = 1L;
X DoIO(request);
X }
X
Xvoid SetMouseDev(request,dev)
Xstruct IOStdReq *request;
XUBYTE dev;
X {
XUBYTE MyDev;
X MyDev = dev;
X request->io_Command = (UWORD)IND_SETMTYPE;
X request->io_Data = (APTR)&MyDev;
X request->io_Length = 1L;
X DoIO(request);
X }
X
Xstatic struct IOStdReq *StickMouseReq;
Xstatic struct MsgPort *StickMousePort;
X
Xmain(argc,argv)
Xint argc;
XSTRPTR argv[];
X {
X
Xregister COUNT i; /* for our loops */
X
XUBYTE Stick_Port, /* This will keep the Port-Number */
X Stick_Dev; /* and this one the Device-Type */
X
X if((argc<3))
X {
X if(argc==1)
X {
X Stick_Port = 0;
X Stick_Dev = GPCT_MOUSE; /* Default-Settings for MOUSE */
X }
X else
X if((argc==2) && (argv[1][0] == '?'))
X {
X printf("\n\n STICKMOUSE: switches the Mouse-Pointer-Device\n");
X printf(" USAGE: STICKMOUSE <port> <device>\n");
X printf(" <port> = 0/1 for the Joyports\n");
X printf(" <device> = MOUSE/JOY for the Device\n");
X printf(" STICKMOUSE without params will set to default\n");
X printf(" written by Dr. Music 1990\n");
X exit(10);
X }
X else
X {
X printf("Useage: StickMouse <port> <dev> or StickMouse ? for help\n");
X exit(10);
X }
X }
X else
X {
X Stick_Port = (short)((char)argv[1][0] - '0');
X if((Stick_Port < 0) || (Stick_Port > 1))
X {
X printf("Port-Number must be 0 or 1\n");
X exit(10);
X }
X for(i=0;i<strlen(argv[2]);i++)
X argv[2][i] = toupper((char)argv[2][i]);
X if(!strcmp(argv[2],"JOY"))
X Stick_Dev = GPCT_RELJOYSTICK;
X else
X if(!strcmp(argv[2],"MOUSE"))
X Stick_Dev = GPCT_MOUSE;
X else
X {
X printf("Device must be either MOUSE or JOY\n");
X exit(10);
X }
X }
X/* ok, end of parsing: 0 / 1 is port-number, GPCT_MOUSE / RELJOYSTICK is type
X*/
X StickMousePort = (struct MsgPort *)CreatePort("StickMouse_is_here",NULL);
X StickMouseReq = (struct IOStdReq *)CreateStdIO(StickMousePort);
X OpenDevice("input.device",0,StickMouseReq,0);
X
X
X SetMousePort(StickMouseReq,Stick_Port);
X SetMouseDev(StickMouseReq,Stick_Dev);
X
X CloseDevice(StickMouseReq);
X DeleteStdIO(StickMouseReq);
X DeletePort(StickMousePort);
X
X }
X
X
END_OF_FILE
if test 3949 -ne `wc -c <'Stickmouse.c'`; then
echo shar: \"'Stickmouse.c'\" unpacked with wrong size!
fi
# end of 'Stickmouse.c'
fi
echo shar: End of archive 1 \(of 1\).
cp /dev/null ark1isdone
MISSING=""
for I in 1 ; do
if test ! -f ark${I}isdone ; then
MISSING="${MISSING} ${I}"
fi
done
if test "${MISSING}" = "" ; then
echo You have the archive.
rm -f ark[1-9]isdone
else
echo You still need to unpack the following archives:
echo " " ${MISSING}
fi
## End of shell archive.
exit 0
--
Mail submissions (sources or binaries) to <amiga@uunet.uu.net>.
Mail comments to the moderator at <amiga-request@uunet.uu.net>.
Post requests for sources, and general discussion to comp.sys.amiga.