2010/6/25 Rob Antonishen <rob.antonis...@gmail.com>:
> Add in a merge sort (i used these three functions):
>    (define split
>      (lambda (ls)
>      ...
>          (split-h ls ls '()))))
>    (define merge
>      (lambda (pred ls1 ls2)
>     ...
>          (else (cons (car ls2) (merge pred ls1 (cdr ls2)))))))
>    (define merge-sort
>      (lambda (pred ls)
>      ...
>                    (merge-sort pred (cdr splits))))))))
> Then get a sorted directory like like so:
> (set! varFileList (merge-sort string<=? (cadr (file-glob
> (string-append varDirectory DIR-SEPARATOR "*")  1))))
> -Rob A>

Well done, Rob, and what an interesting revelation! Though not so long
ago, indeed, I have collected all the Script-Fu procedures returned by
the “oblist” command invocation in a text file, with the purpose of
having them always within reach, nevertheless I hadn’t noticed the
existence of the “file-glob” procedure before now. Hence, thanks a lot
for highlighting this command, as well as for contriving those
powerful procedures whereby it is possible to achieve a sorted

The approach you suggest is a good alternative to the employment of
the “dir-read-entry” procedure, which actually might be unreliable in
certain cases, as Saulgoode points out, depending to what kind of
filesystem the target directory belongs to.

In fact, after obtaining an alphabetically ordered list with the names
of the folder's elements, it would be possible to exploit even the
last element rather than the first one, by producing a new string that
concatenates this ending string, the character “z”, and finally the
string “.pat”, so as to get a file name that should be unique and

Thank you again for your contribution.
Gimp-developer mailing list

Reply via email to