2010-02-06 13:41:01 +00:00
|
|
|
require 'formula'
|
|
|
|
|
2011-03-10 05:11:03 +00:00
|
|
|
class Newlisp < Formula
|
2010-02-06 13:41:01 +00:00
|
|
|
homepage 'http://www.newlisp.org/'
|
2012-12-02 22:31:01 +00:00
|
|
|
url 'http://www.newlisp.org/downloads/newlisp-10.4.5.tgz'
|
|
|
|
sha1 '8e81b73b8d141250ab773952259cd69b228ae824'
|
2010-02-06 13:41:01 +00:00
|
|
|
|
2012-11-11 03:12:26 +00:00
|
|
|
depends_on 'readline'
|
2010-02-06 13:41:01 +00:00
|
|
|
|
2012-12-06 18:13:48 +00:00
|
|
|
# Patch newlisp-edit to work with Homebrew installation.
|
|
|
|
# Can be removed in 10.4.6
|
|
|
|
def patches
|
|
|
|
DATA
|
|
|
|
end
|
|
|
|
|
2010-02-06 13:41:01 +00:00
|
|
|
def install
|
2010-10-05 06:20:45 +00:00
|
|
|
# Required to use our configuration
|
|
|
|
ENV.append_to_cflags "-DNEWCONFIG -c"
|
|
|
|
|
|
|
|
system "./configure-alt", "--prefix=#{prefix}", "--mandir=#{man}"
|
2010-02-06 13:41:01 +00:00
|
|
|
system "make"
|
2010-10-05 06:20:45 +00:00
|
|
|
system "make check"
|
|
|
|
system "make install"
|
2010-02-06 13:41:01 +00:00
|
|
|
end
|
|
|
|
|
2012-10-10 18:25:26 +00:00
|
|
|
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
|
|
|
|
|
2010-10-05 06:20:45 +00:00
|
|
|
# Use the IDE to test a complete installation
|
|
|
|
def test
|
2012-05-05 22:12:31 +00:00
|
|
|
system "#{bin}/newlisp-edit"
|
2010-02-06 13:41:01 +00:00
|
|
|
end
|
|
|
|
end
|
2012-12-06 18:13:48 +00:00
|
|
|
|
|
|
|
__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
|
|
|
|
@@ -17,7 +17,7 @@
|
|
|
|
(set 'newlispDir (env "NEWLISPDIR"))
|
|
|
|
|
|
|
|
(set 'newlispDoc (if (= ostype "Win32")
|
|
|
|
- newlispDir (replace "newlisp" (copy newlispDir) "doc/newlisp")))
|
|
|
|
+ newlispDir (join (reverse (cons "doc/newlisp" (rest (reverse (parse newlispDir "/"))))) "/")))
|
|
|
|
|
|
|
|
(load (string newlispDir "/guiserver.lsp"))
|
|
|
|
|
|
|
|
@@ -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 "HOMEBREW_PREFIX/bin/newlisp " currentScriptFile " " file)) 'result)
|
|
|
|
)
|
|
|
|
(if (list? result)
|
|
|
|
(begin
|
|
|
|
@@ -223,7 +223,7 @@
|
|
|
|
(gs:run-shell 'OutputArea
|
|
|
|
(string newlispDir "/newlisp.exe " currentExtension " -C -w \"" $HOME "\""))
|
|
|
|
(gs:run-shell 'OutputArea
|
|
|
|
- (string "/usr/bin/newlisp " currentExtension " -C -w " $HOME))
|
|
|
|
+ (string "HOMEBREW_PREFIX/bin/newlisp " currentExtension " -C -w " $HOME))
|
|
|
|
)
|
|
|
|
)
|