1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
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'
# 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
patch do
url "https://trac.macports.org/export/89747/trunk/dports/mail/alpine/files/alpine-osx-10.6.patch"
sha1 "8cc6b95b6aba844ceef8454868b8f2c205de9792"
end
# Fails to build against Tcl 8.6; reported upstream:
# http://mailman2.u.washington.edu/pipermail/alpine-info/2013-September/005291.html
patch :DATA
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;
}
}
|
