49 lines
1.9 KiB
Ruby
49 lines
1.9 KiB
Ruby
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;
|
|
}
|
|
}
|
|
|