blob: 39e93e470e910e1623f97a4a8d59c261411af7a0 (
plain)
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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
require 'formula'
class Newlisp < Formula
homepage 'http://www.newlisp.org/'
url 'http://www.newlisp.org/downloads/newlisp-10.5.4.tgz'
sha1 'a1fa37eb21f8045858a30493429d243ababc2488'
devel do
url 'http://www.newlisp.org/downloads/development/newlisp-10.5.7.tgz'
sha1 '92e1d10dcf5d36bf774b706d3483294b3cc97017'
end
depends_on 'readline'
def patches
DATA
end
def install
# Required to use our configuration
ENV.append_to_cflags "-DNEWCONFIG -c"
system "./configure-alt", "--prefix=#{prefix}", "--mandir=#{man}"
system "make"
system "make check"
system "make install"
end
def caveats; <<-EOS.undent
If you have brew in a custom prefix, the included examples
will need to be be pointed to your newlisp executable.
EOS
end
test do
path = testpath/"test.lsp"
path.write <<-EOS
(println "hello")
(exit 0)
EOS
output = `#{bin}/newlisp #{path}`
assert_equal "hello\n", output
assert_equal 0, $?.exitstatus
end
end
__END__
--- a/guiserver/newlisp-edit.lsp
+++ b/Users/gordy/tmp/newlisp-edit
@@ -1,4 +1,4 @@
-#!/usr/bin/newlisp
+#!/usr/bin/env newlisp
; newlisp-edit.lsp - multiple tab LISP editor and support for running code from the editor
; needs 9.9.2 version minimum to run
@@ -155,7 +155,7 @@
(write-file file (base64-dec text)))
(if (= ostype "Win32")
(catch (exec (string {newlisp.exe "} currentScriptFile {" } file " > " (string file "out"))) 'result)
- (catch (exec (string "/usr/bin/newlisp " currentScriptFile " " file)) 'result)
+ (catch (exec (string "/usr/local/bin/newlisp " currentScriptFile " " file)) 'result)
)
(if (list? result)
(begin
@@ -223,7 +223,7 @@
(gs:run-shell 'OutputArea
(string newlispDir "/newlisp.exe") (string currentExtension " -C -w \"" $HOME "\""))
(gs:run-shell 'OutputArea
- (string "/usr/bin/newlisp") (string currentExtension " -C -w " $HOME))
+ (string "/usr/local/bin/newlisp") (string currentExtension " -C -w " $HOME))
)
)
|
