~ chicken-core (chicken-5) ac557264e00f346728b673afc4b0ae7641e02d06

commit ac557264e00f346728b673afc4b0ae7641e02d06
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Jun 11 23:25:14 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Jun 11 23:25:14 2010 +0200

    added support for http_proxy env. var (thanks to Stephen Eilert)

diff --git a/chicken-install.scm b/chicken-install.scm
index d835916b..da3c6729 100644
--- a/chicken-install.scm
+++ b/chicken-install.scm
@@ -572,11 +572,22 @@ EOF
 );|
     (exit code))
 
+  (define (setup-proxy uri)
+    (if (string? uri)
+        (cond ((string-match "(.+)\\:([0-9]+)" uri) =>
+               (lambda (m)
+                 (set! *proxy-host* (cadr m))
+                 (set! *proxy-port* (string->number (caddr m))))
+               (else
+                (set! *proxy-host* uri)
+                (set! *proxy-port* 80))))))
+  
   (define *short-options* '(#\h #\k #\l #\t #\s #\p #\r #\n #\v #\i #\u #\D))
 
   (define (main args)
     (let ((update #f)
           (rx (regexp "([^:]+):(.+)")))
+      (setup-proxy (get-environment-variable "http_proxy"))
       (let loop ((args args) (eggs '()))
         (cond ((null? args)
                (cond ((and *deploy* (not *prefix*))
@@ -656,13 +667,7 @@ EOF
                         (exit 0))
 		       ((string=? "-proxy" arg)
                         (unless (pair? (cdr args)) (usage 1))
-			(cond ((string-match "(.+)\\:([0-9]+)" (cadr args)) =>
-			       (lambda (m)
-				 (set! *proxy-host* (cadr m))
-				 (set! *proxy-port* (string->number (caddr m)))))
-			      (else
-			       (set! *proxy-host* (cadr args))
-			       (set! *proxy-port* 80)))
+			(setup-proxy (cadr args))
 			(loop (cddr args) eggs))
 		       ((or (string=? "-D" arg) (string=? "-feature" arg))
                         (unless (pair? (cdr args)) (usage 1))
diff --git a/manual/Acknowledgements b/manual/Acknowledgements
index 9d5eb54f..dc5b6edf 100644
--- a/manual/Acknowledgements
+++ b/manual/Acknowledgements
@@ -13,39 +13,40 @@ Paolo Ciceri, Fulvio Ciriaco, Tobia Conforto, John Cowan, Grzegorz
 Chrupa&#322;a, James Crippen, Tollef Fog Heen, Drew Hess, Alejandro
 Forero Cuervo, Peter Danenberg, Linh Dang, Brian Denheyer, Sean
 D'Epagnier, dgym, Don, Chris Double, Brown Dragon, Jarod Eells, Petter
-Egesund, Steve Elkins, Daniel B. Faken, Will Farr, Graham Fawcett,
-Marc Feeley, Fizzie, Matthew Flatt, Kimura Fuyuki, Tony Garnock-Jones,
-Martin Gasbichler, Abdulaziz Ghuloum, Joey Gibson, Stephen C. Gilardi,
-Mario Domenech Goulart, Joshua Griffith, Johannes Groedem, Damian
-Gryski, Andreas Gustafsson, Sven Hartrumpf, Jun-ichiro itojun Hagino,
-Ahdi Hargo, Matthias Heiler, Karl M. Hegbloom, William P. Heinemann,
-Bill Hoffman, Bruce Hoult, Hans H&uuml;bner, Markus Huelsmann, Goetz
-Isenmann, Paulo Jabardo, Wietse Jacobs, David Janssens, Christian
-Jaeger, Matt Jones, Dale Jordan, Valentin Kamyshenko, Daishi Kato,
-Peter Keller, Brad Kind, Ron Kneusel, Matthias Koeppe, Krysztof
-Kowa&#322;czyk, Andre Kuehne, Todd R. Kueny Sr, Goran Krampe, David
-Krentzlin, Ben Kurtz, Micky Latowicki, John Lenz, Kirill Lisovsky,
-Juergen Lorenz, Kon Lovett, Lam Luu, Vitaly Magerya, Leonardo Valeri
-Manera, Dennis Marti, Charles Martin, Bob McIsaac, Alain Mellan, Eric
-Merrit, Perry Metzger, Scott G. Miller, Mikael, Bruce Mitchener, Fadi
-Moukayed, Chris Moline, Eric E. Moore, Julian Morrison, Dan Muresan,
-David N. Murray, Lars Nilsson, Ian Oversby, o.t., Gene Pavlovsky, Levi
-Pearson, Jeronimo Pellegrini, Nicolas Pelletier, Derrell Piper, Carlos
-Pita, Robin Lee Powell, Pupeno, Davide Puricelli, presto, Doug Quale,
-Eric Raible, Ivan Raikov, Joel Reymont, Chris Roberts, Eric Rochester,
-Paul Romanchenko, Andreas Rottman, David Rush, Lars Rustemeier, Daniel
-Sadilek, Oskar Schirmer, Burton Samograd, Reed Sheridan, Ronald
-Schroeder, Spencer Schumann, Ivan Shcheklein, Alex Shinn, Ivan
-Shmakov, Shmul, Tony Sidaway, Jeffrey B. Siegal, Andrey Sidorenko,
-Michele Simionato, Volker Stolz, Jon Strait, Dorai Sitaram, Robert
-Skeels, Jason Songhurst, Clifford Stein, Sunnan, Zbigniew Szadkowski,
-Rick Taube, Nathan Thern, Mike Thomas, Minh Thu, Christian Tismer,
-Andre van Tonder, John Tobey, Henrik Tramberend, Vladimir Tsichevsky,
-Neil van Dyke, Sam Varner, Taylor Venable, Sander Vesik, Jaques
-Vidrine, Panagiotis Vossos, Shawn Wagner, Peter Wang, Ed Watkeys, Brad
-Watson, Thomas Weidner, Goeran Weinholt, Matthew Welland, Drake
-Wilson, Joerg Wittenberger, Peter Wright, Mark Wutka, Richard Zidlicky
-and Houman Zolfaghari for bug-fixes, tips and suggestions.
+Egesund, Stephen Eilert, Steve Elkins, Daniel B. Faken, Will Farr,
+Graham Fawcett, Marc Feeley, Fizzie, Matthew Flatt, Kimura Fuyuki,
+Tony Garnock-Jones, Martin Gasbichler, Abdulaziz Ghuloum, Joey Gibson,
+Stephen C. Gilardi, Mario Domenech Goulart, Joshua Griffith, Johannes
+Groedem, Damian Gryski, Andreas Gustafsson, Sven Hartrumpf, Jun-ichiro
+itojun Hagino, Ahdi Hargo, Matthias Heiler, Karl M. Hegbloom, William
+P. Heinemann, Bill Hoffman, Bruce Hoult, Hans H&uuml;bner, Markus
+Huelsmann, Goetz Isenmann, Paulo Jabardo, Wietse Jacobs, David
+Janssens, Christian Jaeger, Matt Jones, Dale Jordan, Valentin
+Kamyshenko, Daishi Kato, Peter Keller, Brad Kind, Ron Kneusel,
+Matthias Koeppe, Krysztof Kowa&#322;czyk, Andre Kuehne, Todd R. Kueny
+Sr, Goran Krampe, David Krentzlin, Ben Kurtz, Micky Latowicki, John
+Lenz, Kirill Lisovsky, Juergen Lorenz, Kon Lovett, Lam Luu, Vitaly
+Magerya, Leonardo Valeri Manera, Dennis Marti, Charles Martin, Bob
+McIsaac, Alain Mellan, Eric Merrit, Perry Metzger, Scott G. Miller,
+Mikael, Bruce Mitchener, Fadi Moukayed, Chris Moline, Eric E. Moore,
+Julian Morrison, Dan Muresan, David N. Murray, Lars Nilsson, Ian
+Oversby, o.t., Gene Pavlovsky, Levi Pearson, Jeronimo Pellegrini,
+Nicolas Pelletier, Derrell Piper, Carlos Pita, Robin Lee Powell,
+Pupeno, Davide Puricelli, presto, Doug Quale, Eric Raible, Ivan
+Raikov, Joel Reymont, Chris Roberts, Eric Rochester, Paul Romanchenko,
+Andreas Rottman, David Rush, Lars Rustemeier, Daniel Sadilek, Oskar
+Schirmer, Burton Samograd, Reed Sheridan, Ronald Schroeder, Spencer
+Schumann, Ivan Shcheklein, Alex Shinn, Ivan Shmakov, Shmul, Tony
+Sidaway, Jeffrey B. Siegal, Andrey Sidorenko, Michele Simionato,
+Volker Stolz, Jon Strait, Dorai Sitaram, Robert Skeels, Jason
+Songhurst, Clifford Stein, Sunnan, Zbigniew Szadkowski, Rick Taube,
+Nathan Thern, Mike Thomas, Minh Thu, Christian Tismer, Andre van
+Tonder, John Tobey, Henrik Tramberend, Vladimir Tsichevsky, Neil van
+Dyke, Sam Varner, Taylor Venable, Sander Vesik, Jaques Vidrine,
+Panagiotis Vossos, Shawn Wagner, Peter Wang, Ed Watkeys, Brad Watson,
+Thomas Weidner, Goeran Weinholt, Matthew Welland, Drake Wilson, Joerg
+Wittenberger, Peter Wright, Mark Wutka, Richard Zidlicky and Houman
+Zolfaghari for bug-fixes, tips and suggestions.
 
 CHICKEN uses the "irregex" regular expression package written by Alex Shinn.
 
diff --git a/manual/Extensions b/manual/Extensions
index 1bb76280..ac964920 100644
--- a/manual/Extensions
+++ b/manual/Extensions
@@ -573,6 +573,8 @@ Available options:
 ; {{-deploy}} : install extension in the application directory for a deployed application (see [[Deployment]] for more information)
 : {{-D   -feature FEATURE}} : pass this on to subinvocations of {{csi}} and {{csc}} (when done via {{compile}} or {{(run (csc ...))}})
 
+{{chicken-install}} recognizes the {{http_proxy}} environment variable, if set.
+
 
 === chicken-uninstall reference