Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!wuarchive!uunet!abcfd20.larc.nasa.gov!amiga-request From: amiga-request@abcfd20.larc.nasa.gov (Amiga Sources/Binaries Moderator) Newsgroups: comp.sources.amiga Subject: v90i247: setnoclick - noclick for workbench 2.0, Part01/01 Message-ID: Date: 3 Sep 90 22:42:05 GMT Reply-To: marc@CAM.ORG (Marc Boucher) Lines: 309 Approved: tadguy@uunet.UU.NET (Tad Guy) X-Mail-Submissions-To: amiga@uunet.uu.net X-Post-Discussions-To: comp.sys.amiga Submitted-by: marc@CAM.ORG (Marc Boucher) Posting-number: Volume 90, Issue 247 Archive-name: util/setnoclick/part01 [ uuencoded executable enclosed ...tad ] This tiny program sets the NOCLICK flag in trackdisk.device to enable the new noclick built-in but not activated feature in trackdisk v36. Marc -- Internet BIX Telephone Fax Domicile marc@CAM.ORG mboucher (514) 466-8932 Bureau marc@DHD.COM (514) 489-8989 (514) 489-0242 #!/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 'Makefile' <<'END_OF_FILE' XARCH = setnoclick.lzh X Xsetnoclick: setnoclick.o X ln $@ -lc X Xclean: X delete setnoclick.o $(ARCH) X Xarchive: setnoclick clean X lharc a $(ARCH) setnoclick setnoclick.c Makefile ReadMe END_OF_FILE if test 180 -ne `wc -c <'Makefile'`; then echo shar: \"'Makefile'\" unpacked with wrong size! fi # end of 'Makefile' fi if test -f 'ReadMe' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'ReadMe'\" else echo shar: Extracting \"'ReadMe'\" \(211 characters\) sed "s/^X//" >'ReadMe' <<'END_OF_FILE' XThis is a very simple piece of code that sets the NOCLICK flag Xin the public section of a trackdisk unit. X XOnly works with trackdisk.device version 36 and up. X XMarc Boucher X XInternet: marc@CAM.ORG XBix: mboucher END_OF_FILE if test 211 -ne `wc -c <'ReadMe'`; then echo shar: \"'ReadMe'\" unpacked with wrong size! fi # end of 'ReadMe' fi if test -f 'setnoclick.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'setnoclick.c'\" else echo shar: Extracting \"'setnoclick.c'\" \(1059 characters\) sed "s/^X//" >'setnoclick.c' <<'END_OF_FILE' Xchar *vers="\0$VER: setnoclick 1.0 -- Marc Boucher (Internet: marc@CAM.ORG / BIX: mboucher) Saturday 07-Jul-90 13:36:45"; X X#include X#include X X#include X#include X Xmain(int ac, char **av) X{ X struct IOExtTD *td; X struct MsgPort *po; X struct TDU_PublicUnit *tpu; X long unit=0; X X switch(ac) { X case 1: break; X case 2: unit=atol(av[1]); break; X default: X fprintf(stderr, "Usage: %s [unitnum]\n", av[0]); X exit(1); X break; X } X X po=CreatePort(NULL,0); X if(!po) exit(1); X X td=(struct IOExtTD *)CreateExtIO(po, sizeof(struct IOExtTD)); X if(!td) { X DeletePort(po); X exit(1); X } X if(OpenDevice("trackdisk.device", unit, (struct IORequest *)td, 0)) { X fprintf(stderr, "%s: trackdisk.device unit %d OpenDevice() failed\n", av[0], unit); X DeleteExtIO((struct IORequest *)td); X DeletePort(po); X exit(1); X } X tpu=(struct TDU_PublicUnit *)td->iotd_Req.io_Unit; X tpu->tdu_PubFlags|=TDPF_NOCLICK; X CloseDevice((struct IORequest *)td); X DeleteExtIO((struct IORequest *)td); X DeletePort(po); X return(0); X} END_OF_FILE if test 1059 -ne `wc -c <'setnoclick.c'`; then echo shar: \"'setnoclick.c'\" unpacked with wrong size! fi # end of 'setnoclick.c' fi if test -f 'setnoclick.uu' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'setnoclick.uu'\" else echo shar: Extracting \"'setnoclick.uu'\" \(9543 characters\) sed "s/^X//" >'setnoclick.uu' <<'END_OF_FILE' Xbegin 666 setnoclick XM```#\P`````````#``````````(```74````R0````$```/I```%U$[Z`KX`K XM)%9%4CH@``!M XM3KH4@%A/2'@`."\M__A.N@?*4$\K0/_\2JW__&8``!8O+?_X3KH'8EA/2'@`% XM`4ZZ%%)83RM._^PL;(+*<@`B;?_\("W_\$'Z`*=.KOY$+&W_[$J`9P``.B\M! XM__`@;0`,+Q!(>@"<2&R!-$ZZ`,9/[P`0+RW__$ZZ!ZI83R\M__A.N@<&6$](X XM>``!3KH3]EA/(&W__"MH`!C_]"!M__31_````#4(T```*T[_["QL@LHB;?_\# XM3J[^/BQM_^PO+?_\3KH'8%A/+RW_^$ZZ!KQ83W``3-\``$Y=3G55.($AI(@4C!T($D``2"````,!`22(!![(`'$#```$B`T XM"````F;22H-G!B`"1(!@`B`"3-\$#$YU87!#[(+*1>R"RK7)9@XR/``6:PAT* XM`"+"4``$*4Z"RDCG@(`(+@`$`2EG$$OZ``A.KO_B8`9"I_-?! XM3G-#^@`@3J[^:"E`@M)F#"X\``.`!TZN_Y1@!$ZZ`!I03TYU9&]S+FQI8G)A8 XM(&R"UEB(`%"``"!L@M;1_`````H`4(``3^\`#&!6+PXL;(+*R XM0>H`7$ZN_H`L7R\.+&R"RD'J`%Q.KOZ,+%\I0(+B(&R"XDJH`"1G(B\.+&R"X XMTB!L@N(@:``D(A!.KO^"+%\O+(+B+PI.N@):4$\I;(+B@N8O#BQL@M).KO_*R XM+%\@;(+6((`O#BQL@M).KO_$+%\@;(+6(4``!DJJ`*1G)$CG(`(L;(+2)#P`- XM``/M0?H`,"((3J[_XDS?0`0@;(+6(4``#"\L@N8O+(+J3KK[ME!/+P!.NA"FQ XM6$],WPP`3G4J`$CG.#(F+P`<*"\`("9O`"0@0TJH`*QG%"!#("@`K.6`+$`@) XM+@`0Y8`D0&`$)&R"PA`22(!(P-"$5(`I0(+N+PXL;(+*<@`@+(+N3J[_.BQ?! XM*4""\F8&3-],'$YU$!)(@$C`)``O`D'J``$O""\L@O).N@)<2'H!1B!"T>R"H XM\B\(3KH-Q"\$+PLO+(+R3KH!,"!L@O)","@`*7P````!@NHD0M7L@O)2BB9** XM3^\`(!`22(!(P"0`#(`````@9R`,@@````EG&`R"````#&<0#((````-9P@,D XM@@````IF!%**8,P,$@`@;78,$@`B9BI2BA`:2(!(P"0`9QP6P@R"````(F80J XM#!(`(F8$4HI@!D(K__]@`F#:8#@0&DB`2,`D`& XM8`#^G"``3.\#```$(`@B+P`,2AAF_%.($-E7R?_\!($``0``:O)"($YU2."\.+&R"]D/Z`)4@:@`V3J[_H"Q?+$!*< XM@&=02.<@`BQL@M(D/````^TB+P`$3J[_XDS?0`0F`&0!7\ XM24Y$3U<`*@!,[P,```0@""(O``Q@`A#95\G__&<,!($``0``:O!.=4(84+%]@#$'J`!0O"$ZZ!>I83R`*8(!(YP`@)&\`. XM"$JJ``IG#B\.+&R"RB)*3J[^F"Q?%7P`_P`()7S_____`!0O#BQL@LIP`!`JY XM``].KOZP+%\O#BQL@LIP(B)*3J[_+BQ?3-\$`$YU2.<@,"9O`!`D+P`4(`MFE XM"'``3-\,!$YU+PXL;(+*(CP``0`!(`).KO\Z+%\D0$J`9@1P`&#<%7P`!0`([ XM-4(`$B5+``X@"F#*2.<`("1O``@@"F8&3-\$`$YU%7P`_P`()7S_____`!0E[ XM?/____\`&"\.+&R"RG``,"H`$B)*3J[_+BQ?8,Y.5?WT2.<_,B9M``@L;0`03 XM?@`D;0`,%A)F"B`'3-],_$Y=3G52B@P#`"5G0B0'(%.QZP`$9`P@4U*3$(-P] XM`!`#8`YP`!`#+P`O"TZZ!/903PR`_____V<`!'A2@A829@0@`F"X4HH,`P`EI XM9L(N`G@`*WP````@__P6&G``$`-@:`C$``!@\@C$``%@[`C$``)@Y@C$``-@' XMX$WN``0D+O_\2H)L!@C$``!$@A8:8%8K?````##__'0`8!@@`N>`<@`2`]"!! XMT(+0@B0`!((````P%AIP`!`#0>R`!Q`P``!(@`@```)FU&`>5T!G4 XMH%]`9Z)30&>,54!G@E=`9ZQ@LBM"__@D/```?<8,`P`N9EX6&@P#`"IF%DWNP XM``0D+O_\2H)L!B0\``!]QA8:8#!T`&`8(`+G@'(`$@/0@=""T((D``2"````- XM,!8:<``0`T'L@`<0,```2(`(```"9M0,@@``?<9G""M\````(/_\*@(,`P!H( XM9@8(Q``'8!8,`P!L9@8(Q``&8`H,`P!,9@8(Q``(%AHK2@`,<``0`V```9Y@& XM``,J"`0`!V<,3>X`!"!N__PPAV`<"`0`!F<,3>X`!"!N__P@AV`*3>X`!"!N9 XM__P@AW0`8``!LDWN``0D;O_\+PI.N@,0)``,A0``?<983V<&M(5O`B0%8``!) XMCDWN``06+O__0>W]^"1($(-T`6```7AT"&`0`$0`2'9X=!!@!@C$``1T"@P#L XM`%AF"$'Z`J0@"&`&0?H"K2`(*T#]]`@$``9G"DWN``0L+O_\8!@(!``$9PI-` XM[@`$+"[__&`(3>X`!"PN__P(!``$9PI*AFP&1(8(Q``%0>W_^"1(#(4``'W&& XM9@)Z`4J&9@1*A6<<(`8B`DZZ!9@@;?WT%3`(`"`&(@).N@64+`!FY$'M__B1` XMRB0("`0``V=N#`,`;V842H)G"@P2`#!G"+2%;00J`E*%8%0,`P!X9P8,`P!8( XM9DA*@F=$#!(`,&<^M(5L$$'M_?JQRF0(%3P`,%*"8.P(!```9AP,K0```##_P XM_&82(`)4@+"M__AL""HM__A5A6#*%0,5/``P5(*TA6P00>W]^+'*9`@5/``PS XM4H)@[&!,!$``)6<`_L($0``S9P#^T@1```MG`/ZJ4T!G`/[(6T!G`/["6T!GL XM`/Y`4T!G`/ZH4T!G`/ZF5T!G`/YB54!G`/ZH5T!G`/Z:8`#^&@@$``1G*`@$U XM``5G!A4\`"U@&@@$``%G!A4\`"M@#@@$``)G!A4\`"!@`E."4H+>@@@$``!F7 XM``"0#*T````P__QF0@@$``1G/#`$`D``)FL`!&0.(%-2DQ"\> XM`"!P`'`@8`Q(>``@+PM.N@"04$\,@/____]G$E*'("W_^%.M__BP@F[(8`#[U XM1'#_8`#[2#`Q,C,T-38W.#E!0D-$148`,#$R,S0U-CR!""1(+PI.` XMN@&86$_5_````!9![(+`MH`"&,>2'@``2`2D*H`!"\`S XM$"H`#DB`2,`O`$ZZ!()/[P`,)*H`""!J`!#1TB5(``0,A/____]F!'8`8`(6' XM!"`2D*H`""H`,`("0`"@9T8,A/____]G&B!24I(0@T'J``P(T``&-!!!^O\4` XM*4B"^E*%#(3_____9PP,`P`*9P:ZJ@`0901X_V`,)5(`!'``$`-@`/]2"`(`" XM#F@!J2&W_]TZZ`J0X*@`4=@!03W``,`1R"DZZ`-H&@````#!R> XM!Y*#0>W_]Q&`&`!(Q(G\``I2@PR#````!6W40BW__TAM__=.N@-D6$]"DD*J< XM``1"J@`(0FH`#$J"9P9P_V``_UAP`&``_U)435``2.<`("1O``@@"F9$0>R!- XM""1(2FH`#&/__+PI.NOU:4$]@VDCG2`!"A$J`:@1$A XM@%)$2H%J!D2!"D0``6$^2D1G`D2`3-\`$DJ`3G5(YT@`0H1*@&H$1(!21$J!C XM:@)$@6$:(`%@V"\!81(@`2(?2H!.=2\!808B'TJ`3G5(YS``2$%*068@2$$VT XM`30`0D!(0(##(@!(0#("@L,P`4)!2$%,WP`,3G5(028!(@!"04A!2$!"0'0/' XMT(#3@;:!8@22@U)`4H`#R5(``@T/`"`0>H`#'``,!`R`DC!@($P@"5J``@`!"2J``A," XMWP0$3G5(YP`R+&\`$)?+)&R"_F`,0>H`"+W(9PXF2B12(`IF\$S?3`!.=2`+, XM9P0FDF`$*5*"_B\.+&R"RB`J``10@")*3J[_+BQ?8-A(YP`P)&R"_F`8)E(OG XM#BQL@LH@*@`$4(`B2DZN_RXL7R1+(`IFY$*L@OY,WPP`3G5(YR`@)"\`#$J"5 XM9@AP`$S?!`1.=2\.+&R"RG(`(`)0@$ZN_SHL7R1`2H!F!'``8-Y!^O^>*4B#K XM`B2L@OXE0@`$*4J"_B`*4(!@Q$SO`P``!"`($-EF_$YU2.<@("0O``P@`B(`8 XMXXC0@>.()$#5[(+62H)M##!L@L"QPF\$2I)F$"E\`````X,&.((&R"UB(P"`!.KO\H+%]*@&<$<`%@`G``8-!(YS`@X XM)"\`$$ZZ`6H@`B(`XXC0@>.()$#5[(+62H)M##!L@L"QPF\$2I)F$"E\````^ XM`X,&R"- XMUDJ";0PP;(+`L<)O!$J29A`I?`````.#!G#_3-\,#$YU,"H`!`)```-F#"E\1 XM````!H,&``!3KH`"EA/3G5>0PH`2JR#"F<4(&R#"B!H``1.% XMD"!L@PHI4(,*8.9*K(+Z9P8@;(+Z3I`O+P`$3KH`!EA/3G5(YS``)B\`#$JL* XM@M9G-'0`8`HO`DZZ`4I83U*",&R"P+'";NXO#BQL@LHP+(+`2,`B`..(T('C% XMB")L@M9.KO\N+%]*K(,"9P8@;(,"3I!*K(+&9Q`O#BQL@M(B+(+&3J[_IBQ?9 XM2JR##F<((&R##B"L@Q)*K(,69Q`O#BQL@LHB;(,63J[^8BQ?2JR#&F<0+PXL< XM;(+*(FR#&DZN_F(L7TJL@QYG$"\.+&R"RB)L@QY.KOYB+%]*K(,B9Q`O#BQLV XM@LHB;(,B3J[^8BQ?2.<`!BQX``0(+@`$`2EG$$OZ``A.KO_B8`9"I_-?3G,J4 XM7TJL@N)F-$JL@O)G+"\.+&R"RB`L@NXB;(+R3J[_+BQ?+PXL;(+*("R"ZN6`A XM6(`B;(+F3J[_+BQ?8!PO#BQL@LI.KO]\+%\O#BQL@LHB;(+B3J[^ABQ?+PXLH XM;(+*(FR"TDZN_F(L7R`#+FR"SDYU3-\`#$YU2.<@("0O``P@`B(`XXC0@>.($ XM)$#5[(+62H)M##!L@L"QPF\$2I)F$"E\`````X,&. Mail comments to the moderator at . Post requests for sources, and general discussion to comp.sys.amiga.