/* getcd.rex */

say
say " getcd.rex : récupération des fichiers du chemin courant "
say

fd = "CHEMIN"
"pwd > " fd
fe = linein(fd)
call linein fd
"rm " fd
say " répertoire : " fe
ia = lastpos("/",fe)
lf = substr(fe,ia+1)
nomzip = lf".zip"
parse arg nomd
if words(fe)=0 then nomzip=nomd".zip"
say " le nom du fichier est en gros : " nomzip


Gran = xrange('A','Z')
Peti = xrange('a','z')

say "Essai de : unzip -uLao " nomzip " -d ."
"unzip -uLao " nomzip " -d ."
/*"pkunzip -n "lf "*.* " */
retour = rc

numt   = 0
do while retour \= 0
   numt = numt + 1
   select
     when numt=1 then nomzip = translate(substr(nomzip,1,1))||substr(nomzip,2)
     when numt=2 then nomzip = translate(nomzip,Peti,Gran)
     when numt=3 then nomzip = translate(nomzip)
     otherwise do
        say " pas vu, pas pris !"
        exit
     end
   end
   say "Essai ("||numt||") de : unzip -uLao " nomzip " -d ."
   "unzip -uLao " nomzip " -d ."
   retour = rc
   if numt=3 then retour = 0
end /* fin de tant que */

say
say ' Vous pouvez aussi utiliser " à la main" le fichier ' lf".zip"
say "      avec pkunzip -n "lf "*.* "
say "      ou   unzip -uLao " nomzip " -d ."
say