(module verif-url
   (main analyse-arg))
;;
(define (analyse-arg args)
   (let* ((chaine (cadr args))
          (regexp (string-append "^http(s)?://"
				 "(([a-zA-Z0-9-]+\\.){1,5}"
                                 "[a-zA-Z]{2,4})(:\\d+)?(/(.*)?)?$"))
          (result (pregexp-match regexp chaine)))
      (if result
          (let ((ssl    (cadr result))
                (hote   (caddr result))
                (port (let ((ce-port (car (cddddr result))))
                         (if ce-port
                             (substring ce-port 1
                                        (string-length ce-port)) )))
                (chemin (let ((ce-chemin (cadr (cddddr result))))
                           (or ce-chemin #unspecified))))
             (print "La chaine a analyser : " chaine)
             (print "SSL ? " ssl)
	     (print "Le site hote : " hote)
             (print "Le port : " port)
             (print "Le chemin : " chemin))
          (print chaine " : pas un url"))))