La descente récursive

Il reste à faire le parcours récursif si on n’a pas atteint le niveau 0 en faisant attention que l’on peut ne pas avoir de droits.
i f niveaux < > 0 then 72 List . i t e r 73 ( fun r
> try begin 74 supprime 75 d s u f f i x e s d erni ers premiers complets ( niveaux
1) r ;
Sys . chdir Filename . parent_dir_name 77 end 78 with Sys_error m
> prerr_ end line m)
ssrep
Ce qui est la fin de la fonction supprime
Analyser la ligne de commande
On prévoit une commande à options :
-r n n est le niveau de descente récursive
-d rep rep est le répertoire de départ
-sl d d est le temps d’attente de confirmation
-lc c c est un dernier caractère à prendre en compte
-pc c c est un premier caractère à prendre en compte
-s suf suf est un suffixe (sans .) à prendre en compte
Nous utilisons le module Arg qui est fait pour faciliter l’analyse d’une ligne de commande.

La fonction Arg.parse

val parse : (string * spec * string) list -> (string -> unit) -> string -> unit
Arg.parse speclist anonfun usage_msg parses the command line.
speclist is a list of triples (key, spec, doc).
key is the option keyword, it must start with a ’-’ character.
spec gives the option type and the function to call when this option is found on the command line.
doc is a one-line description of this option.
anonfun is called on anonymous arguments.
The functions in spec and anonfun are called in the same order as their arguments appear
on the command line.
If an error occurs, Arg.parse exits the program, after printing an error message as follows:
* The reason for the error: unknown option, invalid or missing argument, etc.
* usage_msg
* The list of options, each followed by the corresponding doc string.For the user to be able to specify anonymous arguments starting with a -,include for example (« -« , String anonfun, doc) in speclist.By default, parse recognizes two unit options, -help and –help,
which will display usage_msg and the list of options, and exit the program. You can override this behaviour by specifying your own -help and –help options in speclist