Path: utzoo!mnetor!uunet!husc6!rutgers!iuvax!pur-ee!j.cc.purdue.edu!ain From: ain@j.cc.purdue.edu (Patrick White) Newsgroups: comp.sources.amiga Subject: resident library lister part 1 of 1 (executable included) Message-ID: <6059@j.cc.purdue.edu> Date: 29 Dec 87 17:59:41 GMT Organization: PUCC Land, USA Lines: 197 Keywords: resident, library, part 1 of 1, tested Approved: ain@j.cc.purdue.edu (Pat White) Program Name: resident Submitted By: Phil Staub 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 #include #include 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`"+"40!)^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`(\`````H0J0```"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@!$3KD``!(>)4``H%!/+P1.N0``$PQ83R\Y````,$ZY```2) M8D*Y````,%A/8`#_<&EC;VXN;&EB0!724Y$3U<`*@!.50``2.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$ 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&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.``!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.`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.!``0J=.N0``$MXK0/_\"```#%!/9QI*N0``\ M`!AF#"`M__Q,WT`,3EU.=4ZY```/Q'``8.Y.50``2.@`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]._ M0````A.=4S?0!Q.74YU3E4``$CG/B(H+0`(<@8@!$ZY```1KB1`U?D````0L M2H1M$#`Y```"3$C`N(!L!$J29A0C_`````(````\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