require 'formula'

class Alpine < Formula
  homepage 'http://www.washington.edu/alpine/'
  url 'ftp://ftp.cac.washington.edu/alpine/alpine-2.00.tar.gz'
  sha1 '363b3aa5d3eb1319e168639fbbc42b033b16f15b'

  def patches
    p = []
    # Upstream builds are broken on Snow Leopard due to a hack put in
    # for prior versions of OS X. See:
    # http://trac.macports.org/ticket/20971
    p <<  "https://trac.macports.org/export/89747/trunk/dports/mail/alpine/files/alpine-osx-10.6.patch" if MacOS.version >= :snow_leopard
    # Fails to build against Tcl 8.6; reported upstream:
    # http://mailman2.u.washington.edu/pipermail/alpine-info/2013-September/005291.html
    p << DATA
  end

  def install
    ENV.j1
    system "./configure", "--disable-debug",
                          "--prefix=#{prefix}",
                          "--with-ssl-include-dir=/usr/include/openssl"
    system "make install"
  end
end

__END__
diff --git a/web/src/alpined.d/alpined.c b/web/src/alpined.d/alpined.c
index 98c5a63..d2c63b5 100644
--- a/web/src/alpined.d/alpined.c
+++ b/web/src/alpined.d/alpined.c
@@ -751,10 +751,10 @@ main(int argc, char *argv[])
 				}
 
 				switch(Tcl_Eval(interp, &buf[co])){
-				  case TCL_OK	  : peReturn(cs, "OK", interp->result); break;
-				  case TCL_ERROR  : peReturn(cs, "ERROR", interp->result); break;
-				  case TCL_BREAK  : peReturn(cs, "BREAK", interp->result); break;
-				  case TCL_RETURN : peReturn(cs, "RETURN", interp->result); break;
+				  case TCL_OK	  : peReturn(cs, "OK",  Tcl_GetStringResult(interp)); break;
+				  case TCL_ERROR  : peReturn(cs, "ERROR", Tcl_GetStringResult(interp)); break;
+				  case TCL_BREAK  : peReturn(cs, "BREAK", Tcl_GetStringResult(interp)); break;
+				  case TCL_RETURN : peReturn(cs, "RETURN", Tcl_GetStringResult(interp)); break;
 				  default	  : peReturn(cs, "BOGUS", "eval returned unexpected value"); break;
 				}
 			    }