Lines Matching +refs:make +refs:regexp

52  (define-public (url:make-http host port path)
54 +(define-public (url:make-https host port path)
56  (define-public (url:make-ftp user host port path)
58  (define-public (url:make-mailto address)
61  (define http-regexp (make-regexp "^http://([^:/]+)(:([0-9]+))?(/(.*))?$"))
62 +(define https-regexp (make-regexp "^https://([^:/]+)(:([0-9]+))?(/(.*))?$"))
63  (define ftp-regexp
64    (make-regexp "^ftp://(([^@:/]+)@)?([^:/]+)(:([0-9]+))?(/(.*))?$"))
65  (define mailto-regexp (make-regexp "^mailto:(.*)$"))
71 +   ((regexp-exec https-regexp url)
73 +	 (url:make-https (match:substring m 1)
78     ((regexp-exec ftp-regexp url)