ain@j.cc.purdue.edu (Patrick White) (12/30/87)
Program Name: resident
Submitted By: Phil Staub <phils%tekig.tek.com@relay.cs.net>
Summary: prints out names of all devices, libraries, etc. that are
resident.
Poster Boy: Pat White (ain@j.cc.purdue.edu)
Tested.
NOTES:
Executable included but kept with source for instructional value.
-- Pat White (co-moderator comp.sources/binaries.amiga)
UUCP: j.cc.purdue.edu!ain BITNET: PATWHITE@PURCCVM PHONE: (317) 743-8421
U.S. Mail: 320 Brown St. apt. 406, West Lafayette, IN 47906
----------------------------------------
# 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:
# resident.c
# resident.uu
# This archive created: Tue Dec 15 22:27:07 1987
cat << \SHAR_EOF > resident.c
#include <exec/lists.h>
#include <exec/execbase.h>
#include <exec/resident.h>
main()
{
extern struct ExecBase *SysBase;
struct Resident **p = (struct Resident **)SysBase->ResModules;
/* Walk the list of resident modules, printing each by name */
while (*p) {
printf("%s\n",(*p)->rt_Name);
p++;
}
}
SHAR_EOF
cat << \SHAR_EOF > resident.uu
begin 644 resident
M```#\P`````````#``````````(```3*````E````!,```/I```$RF!$3E7_P
M_$CG,`(@>0````0K:`$L__P@;?_\2I!G'"!M__PB4"\I``Y(>@`83KD```5N.
M4$]8K?_\8-Q,WT`,3EU.=25S"@!A?$/Y```"4$7Y`````+7)9@XR/``2:PATD
M`"+"4<G__"//````""QX``0CS@````1(YX"`""X`!`$I9Q!+^@`(3J[_XF`&J
M0J?S7TYS0_H`)$ZN_F@CP`````QF#"X\``.`!TZN_Y1@!DZY````S%!/3G5DB
M;W,N;&EB<F%R>0!)^0``?_Y.=4Y5``!(YS`B2'D``0``,#D```),P?P`!B\`6
M3KD``!)V(\`````04$]F&$*G2'D``0``3KD``!)(4$\N>0````A.=2!Y````5
M$$)H``0@>0```!`Q?``!`!`@>0```!`Q?``!``H@>0````@@.0````B0J``$$
M4(`CP````!0@>0```!0@O$U!3EA"ITZY```2AB1`2JH`K%A/9S@O+0`,+RT`:
M""\*3KD```)6(_P````!````&"!Y````$`!H@```!"!Y````$`!H@```"D_O&
M``Q@5DAJ`%Q.N0``$NY(:@!<3KD``!*P(\`````<('D````<2J@`)%!/9Q0@R
M>0```!PB:``D+Q%.N0``$>!83R\Y````'"\*3KD```2D(_D````<````(%!/%
M3KD``!'\('D````0((!.N0``$BX@>0```!`A0``&9QI(>`/M2'H`.DZY```2Z
M'B!Y````$"%```Q03R\Y````("\Y````)$ZY`````D*G3KD```_\3^\`#$S?@
M1`Q.74YU*@!.50``2.<\,B1M`!`@;0`(("@`K.6`*``@1"`H`!#E@"9`$!-(1
M@$C`T*T`#%2`(\`````H0J<O.0```"A.N0``$G8CP````"Q03V8(3-],/$Y=R
M3G40$TB`2,`J`"\%($M2B"\(+SD````L3KD```1(2'H!?B!Y````+-'%+PA.8
MN0``!)0O+0`,+PHO.0```"Q.N0``!'`@>0```"Q",%@`(_P````!````)"!YM
M````+-'%)DA2BR1+3^\`(!`32(!(P"H`L+P````@9R"ZO`````EG&+J\````^
M#&<0NKP````-9PBZO`````IF!%*+8,P,$P`@;0``C@P3`")F,E*+($M2BQ`0`
M2(!(P"H`9R`@2E**$(6ZO````")F$`P3`")F!%*+8`9"*O__8`)@TF!$($M2W
MBQ`02(!(P"H`9S"ZO````"!G*+J\````"6<@NKP````,9QBZO`````UG$+J\8
M````"F<(($I2BA"%8,(@2E**0A!*A68"4XM2N0```"1@`/\Z0A)"IR`Y````!
M)%*`Y8`O`$ZY```2=B/`````(%!/9@I"N0```"1@`/Z@>@`F>0```"Q@'B`%P
MY8`@>0```"`ABP@`+PM.N0``"C92@-?`6$]2A;JY````)&W:(`7E@"!Y````[
M($*P"`!@`/Y>(`!,[P,```0@""(O``Q@`A#95\G__&<&4D%@`D(84<G__$YUW
M,#Q__V`$,"\`#B!O``1*&&;\4T@B;P`(4T`0V5?(__QG`D(0("\`!$YU(&\`\
M!"`((F\`"!#99OQ.=4Y5``!(YSXR)&T`"$*G2'H`I$ZY```2OB/`````,%!/&
M9@A,WTQ\3EU.=2!M``PB:``D+RD`!$ZY```3&B@`6$]G6DAZ`'T@1"\H`#9.T
MN0``$OPF0$J`4$]G.$AX`^TO"TZY```2'BP`4$]G)B`&Y8`J`"!%)6@`"`"D!
M)48`G$AX`^U(>@!$3KD``!(>)4``H%!/+P1.N0``$PQ83R\Y````,$ZY```2)
M8D*Y````,%A/8`#_<&EC;VXN;&EB<F%R>0!724Y$3U<`*@!.50``2.<P`DAM*
M``PO+0`(2'D```I(3KD```8B3^\`#$S?0`Q.74YU3E4``$CG."(D;0`0#*T`G
M```$`!1F""!M``@H$&`42JT`#&\((&T`""@08`8@;0`(*!!"K0`42JT`#&P2%
M1*T`#$J$;`I$A"M\`````0`4(BT`#"`$3KD```G00?D`````4XH4L`@`(BT`6
M#"`$3KD```G<*`!FV$JM`!1G!E.*%+P`+2`*3-]$'$Y=3G5.5?\42.<X,B1M7
M``@F;0`,0JW_^"MM`!#__"!+4HL0$$B`2,`H`&<``SRXO````"5F``,60BW_\
M(BM\`````?_T*WP````@__`K?```)Q#_["!+4HL0$$B`2,`H`+"\````+680K
M0JW_]"!+4HL0$$B`2,`H`+B\````,&84*WP````P__`@2U*+$!!(@$C`*`"X^
MO````"IF&B!M__Q8K?_\*U#_Z"!+4HL0$$B`2,`H`&`X0JW_Z&`D<@H@+?_H2
M3KD``!&NT(20O````#`K0/_H($M2BQ`02(!(P"@`0?D````3"#```D@`9LZX#
MO````"YF9B!+4HL0$$B`2,`H`+"\````*F8:(&W__%BM__PK4/_L($M2BQ`0"
M2(!(P"@`8#A"K?_L8"1R"B`M_^Q.N0``$:[0A)"\````,"M`_^P@2U*+$!!(^
M@$C`*`!!^0```!,(,``"2`!FSBM\````!/_DN+P```!L9A8@2U*+$!!(@$C`5
M*``K?`````3_Y&`4N+P```!H9@P@2U*+$!!(@$C`*``@!&```((K?`````C_,
MX&`<*WP````*_^!@$BM\````$/_@8`@K?/____;_X"\M_^1(;?\B+RW_X"\M!
M__Q.NOVD*T#_W"`M_^31K?_\3^\`$&!<(&W__%BM__PK4/_<+RW_W$ZY```*#
M-BM`_^183V!*(&W__%BM__PH$$'M_R$K2/_<$(1@*)"\````8V?B4X!GDI"\=
M````"V<`_VQ9@&>R58!G`/]L5X!G`/]P8,Q![?\BD>W_W"M(_^0@+?_DL*W_9
M[&\&*VW_[/_D2JW_]&=P(&W_W`P0`"UG"B!M_]P,$``K9C0,K0```##_\&8J;
M4ZW_Z"!M_]Q2K?_<$!!(@$C`+P!.DK"\_____UA/9@IP_TS?3!Q.74YU8!@O^
M+?_P3I*PO/____]83V8$</]@XE*M__@@+?_H4ZW_Z+"M_^1NVD*M_^!@)"!M>
M_]Q2K?_<$!!(@$C`+P!.DK"\_____UA/9@1P_V"J4JW_X"!M_]Q*$&<*("W_#
MX+"M_^QMRB`M_^#1K?_X2JW_]&8J8!I(>``@3I*PO/____]83V8&</]@`/]PM
M4JW_^"`M_^A3K?_HL*W_Y&[88!@O!$Z2L+S_____6$]F!G#_8`#_2%*M__A@)
M`/RX("W_^&``_SA(YT@`0H1*@&H$1(!21$J!:@9$@0I$``%A/DI$9P)$@$S?R
M`!)*@$YU2.=(`$*$2H!J!$2`4D1*@6H"1(%A&B`!8-@O`6$2(`$B'TJ`3G4O_
M`6$&(A]*@$YU2.<P`$A!2D%F($A!-@$T`$)`2$"`PR(`2$`R`H+#,`%"04A!0
M3-\`#$YU2$$F`2(`0D%(04A`0D!T#]"`TX&V@6($DH-20%'*__),WP`,3G4@S
M;P`$(`A*&&;\D<`@"%.`3G5.50``2.<P`DAY````JB\M``A.N0``"FI03TS?&
M0`Q.74YU3E4``$CG.`(H+0`(+RT`#"\$3KD```JXN+P````*4$]F*B!M``P0=
M*``,2(!(P`@```=G&$AX__\O+0`,3KD```N\4$],WT`<3EU.=6#V3E4``$CG"
M,"(D;0`,(%*QZ@`$91P@+0`(P+P```#_+P`O"DZZ`.!03TS?1`Q.74YU(%)2M
MDA`M``L0@$B`2,#`O````/]@XDY5``!(YS`B0?D```"4)$@@2M7\````%B\(=
M81183T'Y```"3+7(9>A,WT0,3EU.=4Y5``!(YS@B)&T`"'@`(`IF"G#_3-]$,
M'$Y=3G5**@`,9UH(*@`"``QG#$AX__\O"F%<*`!03Q`J``U(@$C`+P!.N0``&
M$4Z(@`@J``$`#%A/9PPO*@`(3KD```WX6$\(*@`%``QG%B\J`!).N0``#KXO!
M*@`23KD```WX4$]"DD*J``1"J@`(0BH`#"`$8(9.5?_^2.<X(B1M``A!^O\T1
M(\@````T""H`!``,9PIP_TS?1!Q.74YU""H``@`,9S0H$IBJ``@O!"\J``@0]
M*@`-2(!(P"\`3KD```[PL(1/[P`,9Q`(Z@`$``Q"DD*J``1P_V"\#*W_____V
M``QF$`BJ``(`#$*20JH`!'``8*)*J@`(9@HO"DZY```,]%A/#&H``0`09C(;%
M;0`/__](>``!2&W__Q`J``U(@$C`+P!.N0``#O"PO`````%/[P`,9I0@+0`,#
M8`#_6B2J``@P*@`02,#0J@`()4``!`CJ``(`#"!24I(0+0`/$(!(@$C`P+P`J
M``#_8`#_*DY5``!(YS`B0?D```"4)$A**@`,9QS5_````!9!^0```DRUR&4*$
M<`!,WT0,3EU.=6#>0I)"J@`$0JH`""`*8.A.5?_\2.<P(B1M``A(>`0`3KD`$
M``W@*T#__%A/9AHU?``!`!`@2M'\````#B5(``A,WT0,3EU.=35\!```$`CJ6
M``$`#"5M__P`"!`J``U(@$C`+P!.N0``#DI*@%A/9P8`*@"```Q@R$Y5``!(N
MYS`R)'D`````8!8F4B`J``10@"\`+PI.N0``$IY03R1+(`IFYD*Y`````$S?[
M3`Q.74YU3E4``$CG,")!^O^^(\@````X0J<@+0`(4(`O`$ZY```2=B1`2H!0/
M3V8*<`!,WT0,3EU.=22Y`````"5M``@`!"/*`````"`*4(!@X$Y5``!(YS`"^
M+RT`"&&F6$],WT`,3EU.=4Y5``!(YS`RE\LD>0````!@#B!M``A1B+'*9Q(F@
M2B12(`IF[G#_3-],#$Y=3G4@"V<$)I)@!B/2`````"`J``10@"\`+PI.N0``4
M$IYP`%!/8-1.50``2.<P(G(&("T`"$ZY```1KB1`U?D````02JT`"&T4,#D`5
M``),2,`B+0`(LH!L!$J29A0C_`````(````\</],WT0,3EU.=7(&("T`"$ZYN
M```1KB!Y````$"\P"`!.N0``$A!*@%A/9P1P`6`"<`!@SDY5``!(YS`"+RT`E
M"$ZY```1[DJ`6$]F%DZY```2!B/`````/'#_3-]`#$Y=3G5P`&#T3E4``$CGC
M/"(H+0`(3KD```^&<@8@!$ZY```1KB1`U?D````02H1M$#`Y```"3$C`N(!LI
M!$J29A0C_`````(````\</],WT0\3EU.=3`J``3`?``#9@XC_`````4````\P
M</]@X"\M`!`O+0`,+Q).N0``$C@J`+"\_____T_O``QF$$ZY```2!B/`````I
M/'#_8+(@!6"N3E7__$CG,`)(>!``0J=.N0``$MXK0/_\"```#%!/9QI*N0``\
M`!AF#"`M__Q,WT`,3EU.=4ZY```/Q'``8.Y.50``2.<P`DAX``1(>@`F3KD`&
M`!(N+P!.N0``$CA(>``!3KD```_\3^\`$$S?0`Q.74YU7D,*`$Y5``!(YS`"U
M2KD````T9P@@>0```#1.D"\M``A.N0``$"A83TS?0`Q.74YU3E7__$CG.`(KR
M;0`(__Q*N0```!!G-G@`8`PO!$ZY```13EA/4H0P.0```DQ(P+B`;>@P.0``/
M`DS!_``&+P`O.0```!!.N0``$IY03TJY````.&<(('D````X3I!*N0```$!G1
M#B\Y````0$ZY```2:%A/2KD```!$9PXO.0```$1.N0``$FA83TJY````2&<.N
M+SD```!(3KD``!)H6$\L>``$""X`!`$I9Q0O#4OZ``I.KO_B*E]@!D*G\U]._
M<TJY````'&8X2KD````L9RXO.0```"@O.0```"Q.N0``$IX@.0```"12@.6`#
M+P`O.0```"!.N0``$IY/[P`08!1.N0``$I0O.0```!Q.N0``$M!83R`M__PNG
M>0````A.=4S?0!Q.74YU3E4``$CG/B(H+0`(<@8@!$ZY```1KB1`U?D````0L
M2H1M$#`Y```"3$C`N(!L!$J29A0C_`````(````\</],WT1\3EU.=3`J``3`+
M?(``9@HO$DZY```1TEA/0I)P`&#>2.=P`#0!Q,`F`4A#QL!(0T)#U(-(0,#!`
M2$!"0-""3-\`#DYU(B\`!"QY````#$[N_]PB+P`$+'D````,3N[_@B(O``0LY
M>0````Q.[O^X+'D````,3N[_RBQY````#$[N_WPB+P`$+'D````,3N[_*$SOZ
M``8`!"QY````#$[N_^(L>0````Q.[O_$3.\`#@`$+'D````,3N[_T$CG`01,1
M[R"```PL>0````1.KO^43-\@@$YU3OD``!)H(F\`!"QY````!$[N_F),[P`#Z
M``0L>0````1.[O\Z(F\`!"QY````!$[N_MHL>0````1.[O]\(F\`!"`O``@LL
M>0````1.[O\N(&\`!"QY````!$[N_HPL>0````0B;P`$("\`"$[N_=@B;P`$C
M+'D````$3N[^ADSO``,`!"QY````!$[N_LX@;P`$+'D````$3N[^@$SO`P``0
M!"QY````,$[N_Z`@;P`$+'D````P3N[_IB!O``0L>0```#!.[O^R```#[```!
M`!`````!````2@```,8```#<```%\@``!P````=N```*4@``"P@```L>```,4
MO@``#-(```YN```/&@``$%```!!<```1<@```$T`````````+@```+````#HC
M```!`````5@```%R```!I````:X```'4```!Y````?8```($```"'@```CP`V
M``)$```"E````L(```+6```"Z````^P```0@```$N```!-P```3R```%!@``2
M!2P```4Z```%2```!8````6&```%[```!@0```;B```'4```"!@```I<```*7
M?@``"J@```MP```+A@``"YH```ND```,!```#$0```QL```-!@``#4H```UZ9
M```-L@``#D````Y:```.G```#JP```[,```.V```#OX```\(```/8```#W0`N
M``^6```/O```#]8```_>```/Z```$!H``!!&```0;@``$)0``!"J```0P```E
M$00``!$<```1*```$30``!%@```1H@``$F0```!N`````@````P```!0````F
M:````'(```"<````[@```0@```$0```!&@```28```$R```!.````40```%*\
M```!?````8(```&.```!M````;H```'(```!W````>H```'N```!_````@H`(
M``(D```",````C8```*&```"C@```IH```*\```"S````N(```+N```"_```B
M`P(```/2```#X````_(```/\```$"```!!0```0N```$.@``!+X```5"```%3
M3@``"\X```UF```-B```#:(```W*```-U@``#@0```XP```.8@``#H8```ZB<
M```.W@``#Q````\N```/3```#WH```^H```0!@``$`X``!`X```0:```$'8`=
M`!!^```0A@``$(X``!"<```0I```$+(``!"Z```0Z```$/```!#X```0_@``\
M$0H``!$6```1+@``$4```!%H```1A@``$=@``!'F```1]```$?X``!((```2"
M%@``$B8``!(P```20```$E0``!)N```2?@``$HP``!*6```2J```$K8``!+`R
M```2U@``$N8``!+T```3!```$Q(``!,@`````````_(```/J````E#`Q,C,T%
M-38W.#EA8F-D968````@("`@("`@("`P,#`P,"`@("`@("`@("`@("`@("`@8
M()!`0$!`0$!`0$!`0$!`0$`,#`P,#`P,#`P,0$!`0$!`0`D)"0D)"0$!`0$!C
M`0$!`0$!`0$!`0$!`0$!0$!`0$!`"@H*"@H*`@("`@("`@("`@("`@("`@("O
M`@)`0$!`(``````````````````!``````$``````````````````````0$`H
M```!``````````````````````$"`````0``````````````````````````%
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````````
M```````````````````````````````````````````````````````````44
2``````/R```#ZP```!,```/RK
``
end
size 6408
SHAR_EOF
# End of shell archive
exit 0