Script to find orphan folders from icons

[mfilos]

Hi guys,

I want some help in order to be able to make a script that will find from .info files if a folder doesn't have an .info file.

For example lets say I have these folders:
- 1
- 2
- 3
- 4
and the info files:
- 1.info
- 2.info
- 4.info

What I want is a script that will output me just the name of the folder "3" that doesn't have an icon.

The opposite (finding orphan .info file) is so much easier and I can check it out under DOpus by selecting all the folders and checking out which .info file is not selected.

[thomas]

AmigaDOS does not have folders, it has drawers.

list all files p=#?.info lformat="if not exists *"%p%m*"*n echo %p%m*nendif" >ram:script
execute ram:script

[Bamiga2002]

Originally Posted by thomas

AmigaDOS does not have folders, it has drawers.

, right on! Folders are a winblows thing

[mfilos]

Fantastic idea Thomas (I was 100% sure that I'd get a response from you).
Soz about the folder thing btw.
I'm the one calling wallpapers as backdrops and I fell into the trap myself :P

Cheers

[mfilos]

Hi Thomas, just gave it a spin and it doesn't work as intended.

My example:
I have a drawer in RAM: called Test
Inside the Test drawer there are 4 drawers named:
- 1
- 2
- 3
- 4
Also there are icons for every folder but 3
- 1.info
- 2.info
- 4.info

When I run the command inside the Test drawer I get the following script file output:

if not exists "4"
 echo 4
endif
if not exists "2"
 echo 2
endif
if not exists "1"
 echo 1
endif

Ofc, just executing the script doesn't show anything as the drawer didn't exist on the script.
Also if other drawers with icons exist recursively on any drawer, they output as well (which is not correct for what I had in mind).

[thomas]

Oops, sorry. Little logic error here. It does what you already can: it finds orphaned icons, not drawers without icons.

This should do the opposite:

list all dirs lformat="if not exists *"%p%n.info*"*n echo %p%n*nendif" >ram:script
execute ram:script

[daxb]

Here an ARexx script that does the same. However, it can easily expanded.

/* Find drawers without ".info" files script.
 *
 *     $VER: FindDrawer.rexx V0.1 (08.01.2014)
 * Function: Find drawers that do not have a ".info" file.
 * Requires: rexxtricks.library
 *    Usage: "rx FindDrawer.rexx <source>"
 *           <source> = any path
 *
 *  Example: "rx FindDrawer.rexx SYS:"
 *  Example: "rx FindDrawer.rexx Games:Adventure/"
*/

pattern = '#?'   /* AmigaDOS pattern */

PARSE ARG source . ; OPTIONS RESULTS

IF source = '' | source = '?' THEN DO
 SAY 'Usage: "rx FindDrawer.rexx <source>"'
 SAY 'Example: "rx FindDrawer.rexx Games:Adventure/"'
 EXIT
END


CALL addLibs()

IF ~GETDIR(source, pattern, 'sourceDirs', 'DIRS', 'PATH', 'SUBDIRS') THEN DO
 SAY 'GETDIR() ERROR! while reading: "'|| source ||'"'
 EXIT
END

DO i = 1 TO sourceDirs.0
 IF ~EXISTS(sourceDirs.i || '.info') THEN DO
  SAY sourceDirs.i
 END
END

EXIT

/* Check/Add libs */
addLibs:
libs = 'rexxtricks.library'
DO i = 1 TO WORDS(libs)
 IF ~SHOW('L', WORD(libs, i)) THEN DO
  IF ADDLIB(WORD(libs, i), 0, -30, 0) = 0 THEN DO
   ADDRESS COMMAND 'Run >NIL: C:RequestChoice "FindDrawer.rexx" "Can`t open" WORD(libs, i) "_OK"'
   EXIT
  END
 END
END
RETURN

[mfilos]

Thanks a lot both of you!
I'll try both and see what suits me best for my need

The reason I wanted the following script help is because I wanted to copy iGame IFF files from an archive that probably had some folders that my WHDLoad archive DIDN'T have.
I checked for example letter A and one drawer had no info (cause it changed the WHD name apparently).
To check it out firstly I exported a file via the list command and took it to EXCEL where via IF declaration found out easily. All this procedure was not fast NOR clever by any means alas I thought of asking here the experts

EDIT: Both scripts work the same. I didn't like that they both display recursively the drawers but I edited the arexx script and now it works in the first level of directory only. Thanks again

[Bamiga2002]

You could have copied the iGame IFFs as they are (all dirs), then sort your games-DRAWER(!) by size in DOPUS4 and just delete the dirs that only had the pics in it.

[mfilos]

True as well!
Cheers man.

[jPV]

Originally Posted by Bamiga2002

, right on! Folders are a winblows thing

I usually call them just directories, which is more universal term I think Although it's usually related to shell usage, but on most platforms at least. I never call them yucky folders and calling them workbenchish drawers can cause understanding problems