[49687] trunk/dports/lang/clojure
jmr at macports.org
jmr at macports.org
Wed Apr 15 06:19:50 PDT 2009
Revision: 49687
http://trac.macports.org/changeset/49687
Author: jmr at macports.org
Date: 2009-04-15 06:19:49 -0700 (Wed, 15 Apr 2009)
Log Message:
-----------
clojure: improve wrapper script and add rlwrap variant (#18915)
Modified Paths:
--------------
trunk/dports/lang/clojure/Portfile
trunk/dports/lang/clojure/files/clj-jline.sh
trunk/dports/lang/clojure/files/clj.sh
Added Paths:
-----------
trunk/dports/lang/clojure/files/.clj_completions
trunk/dports/lang/clojure/files/clj-rlwrap.sh
trunk/dports/lang/clojure/files/completions-contrib.clj
trunk/dports/lang/clojure/files/completions.clj
Modified: trunk/dports/lang/clojure/Portfile
===================================================================
--- trunk/dports/lang/clojure/Portfile 2009-04-15 13:02:35 UTC (rev 49686)
+++ trunk/dports/lang/clojure/Portfile 2009-04-15 13:19:49 UTC (rev 49687)
@@ -30,6 +30,10 @@
depends_run-append port:jline
}
+variant rlwrap description {Use rlwrap support for tab completion, parenthesis matching} {
+ depends_run-append port:rlwrap
+}
+
destroot {
set javadir ${destroot}${prefix}/share/java
set clojuredir ${javadir}/clojure
@@ -43,11 +47,20 @@
set clojuresh clj-jline.sh
}
+ if {[variant_isset rlwrap]} {
+ set clojuresh clj-rlwrap.sh
+ }
+
xinstall -m 0755 -d ${javadir}
xinstall -m 0755 -d ${clojuredir}
xinstall -m 0755 -d ${clojuredir}/lib
xinstall -m 0755 -d ${clojuredir}/bin
xinstall -m 0644 -W ${workpath} ${name}/clojure.jar ${clojurejar}
xinstall -m 0755 -W ${filespath} ${clojuresh} ${clojurebin}
+
+ if {[variant_isset rlwrap]} {
+ xinstall -m 0644 -W ${filespath} .clj_completions ${clojuredir}/.clj_completions
+ }
+
ln -s ${clojurelink} ${bindir}/clj
}
Added: trunk/dports/lang/clojure/files/.clj_completions
===================================================================
--- trunk/dports/lang/clojure/files/.clj_completions (rev 0)
+++ trunk/dports/lang/clojure/files/.clj_completions 2009-04-15 13:19:49 UTC (rev 49687)
@@ -0,0 +1,505 @@
+sorted-map
+read-line
+re-pattern
+keyword?
+val
+*compile-path*
+max-key
+list*
+ns-aliases
+the-ns
+==
+longs
+special-form-anchor
+instance?
+syntax-symbol-anchor
+format
+sequential?
+fn?
+empty
+dorun
+time
+remove-method
+gensym
+not=
+*3
+unchecked-multiply
+doseq
+bit-or
+aset-byte
+if-not
+hash-set
+add-watch
+unchecked-dec
+some
+nil?
+string?
+second
+letfn
+keys
+for
+*2
+long-array
+cond
+bit-set
+fn
+sorted?
+ns-unalias
+ns-publics
+dosync
+all-ns
+long
+with-open
+init-proxy
+add-classpath
+false?
+await1
+true?
+gen-interface
+sync
+short
+ns-unmap
+repeat
+zipmap
+distinct
+get-in
+bit-xor
+char-escape-string
+complement
+let
+get-validator
+dotimes
+print-namespace-doc
+*ns*
+defmethod
+derive
+aset-float
+lazy-cat
+commute
+defstruct
+with-in-str
+rem
+odd?
+symbol?
+*print-level*
+*allow-unresolved-vars*
+*macro-meta*
+proxy-call-with-super
+ns-interns
+re-matches
+split-with
+find-doc
+loop
+remove-watcher
+next
+import
+symbol
+vals
+print-doc
+select-keys
+re-matcher
+rand
+deref
+unchecked-inc
+*math-context*
+read
+sequence
+make-hierarchy
++
+number?
+descendants
+into-array
+last
+unchecked-negate
+integer?
+alter
+prn
+with-meta
+with-out-str
+floats
+*
+*compile-files*
+when-not
+butlast
+-
+reversible?
+rseq
+send-off
+seq?
+refer-clojure
+identical?
+..
+print
+vary-meta
+*command-line-args*
+bit-flip
+zero?
+bit-and
+unquote-splicing
+future
+re-groups
+*warn-on-reflection*
+newline
+replicate
+distinct?
+remove-ns
+ratio?
+xml-seq
+vec
+concat
+update-in
+vector
+conj
+bases
+/
+unchecked-add
+ref-set
+assoc
+seque
+aset-char
+boolean
+read-string
+neg?
+float-array
+doubles
+isa?
+future-call
+doto
+remove-watch
+print-str
+*e
+rsubseq
+*flush-on-newline*
+*out*
+vector?
+split-at
+ns-refers
+create-struct
+proxy-super
+int-array
+float
+assert
+map
+counted?
+memfn
+double-array
+accessor
+*print-length*
+class?
+rand-int
+*1
+aset-short
+prn-str
+iterate
+add-watcher
+when-first
+slurp
+mapcat
+assoc-in
+special-symbol?
+ref
+find-var
+inc
+definline
+unchecked-subtract
+ns-name
+defn-
+*file*
+re-find
+bit-not
+construct-proxy
+destructure
+seq
+intern
+pvalues
+to-array-2d
+sorted-map-by
+filter
+var?
+alter-meta!
+comment
+key
+class
+re-seq
+ns
+empty?
+test
+print-dup
+create-ns
+name
+list?
+aset
+nnext
+doall
+macroexpand-1
+not-any?
+resultset-seq
+into
+with-precision
+*use-context-classloader*
+ffirst
+bit-clear
+proxy-name
+load-reader
+or
+hash
+print-ctor
+associative?
+float?
+drop-last
+replace
+decimal?
+defn
+parents
+map?
+prefers
+condp
+quot
+file-seq
+send
+with-local-vars
+reverse
+count
+get-proxy-class
+set
+when-let
+comp
+nth
+byte
+*err*
+constantly
+load
+namespace
+pr-str
+<
+rationalize
+sort-by
+cycle
+peek
+reduce
+interleave
+amap
+->
+cons
+macroexpand
+var-set
+str
+aset-boolean
+ns-imports
+while
+first
+bean
+=
+memoize
+var-get
+range
+tree-seq
+defmacro
+set-validator!
+aset-double
+enumeration-seq
+prefer-method
+ensure
+find-ns
+not-every?
+struct-map
+>
+max
+proxy-mappings
+identity
+ints
+fnext
+min-key
+reset-meta!
+subs
+compile
+agent-errors
+clear-agent-errors
+printf
+ns-resolve
+method-sig
+>=
+shutdown-agents
+reset!
+even?
+require
+bit-shift-left
+methods
+compare
+cast
+supers
+pcalls
+load-string
+get
+<=
+await
+resolve
+print-method
+loaded-libs
+force
+partial
+pmap
+if-let
+comparator
+pos?
+char
+take-while
+and
+refer
+underive
+in-ns
+iterator-seq
+declare
+ancestors
+locking
+partition
+contains?
+update-proxy
+interpose
+aset-int
+ifn?
+load-file
+delay
+apply
+swap!
+defmulti
+proxy
+subvec
+rest
+keyword
+ns-map
+unquote
+int
+release-pending-sends
+mod
+bigdec
+nfirst
+nthnext
+*agent*
+aset-long
+struct
+array-map
+bigint
+dec
+println
+aget
+pr
+drop
+*print-dup*
+gen-class
+eval
+unchecked-remainder
+aclone
+char-name-string
+pop
+primitives-classnames
+atom
+defonce
+bit-shift-right
+delay?
+num
+disj
+io!
+*print-readably*
+rational?
+merge-with
+take-nth
+*print-meta*
+double
+lazy-seq
+*in*
+line-seq
+take
+when
+areduce
+set?
+make-array
+alias
+use
+if
+alength
+*source-path*
+to-array
+hash-map
+bit-and-not
+compare-and-set!
+type
+repeatedly
+trampoline
+remove
+find
+coll?
+drop-while
+not-empty
+print-special-doc
+println-str
+list
+every?
+flush
+sort
+dissoc
+not
+binding
+doc
+agent
+sorted-set
+alter-var-root
+merge
+subseq
+min
+print-simple
+bit-test
+await-for
+meta
+unchecked-divide
+rename-keys
+union
+select
+project
+join
+intersection
+map-invert
+difference
+rename
+index
+content-handler
+*stack*
+attrs
+element
+tag
+startparse-sax
+*current*
+content
+*state*
+parse
+emit-element
+*sb*
+emit
+lefts
+down
+insert-left
+up
+next
+path
+children
+vector-zip
+append-child
+zipper
+branch?
+end?
+leftmost
+edit
+replace
+insert-right
+root
+insert-child
+prev
+seq-zip
+xml-zip
+make-node
+rights
+node
+right
+left
+remove
+rightmost
Modified: trunk/dports/lang/clojure/files/clj-jline.sh
===================================================================
--- trunk/dports/lang/clojure/files/clj-jline.sh 2009-04-15 13:02:35 UTC (rev 49686)
+++ trunk/dports/lang/clojure/files/clj-jline.sh 2009-04-15 13:19:49 UTC (rev 49687)
@@ -5,6 +5,7 @@
cljjar='lib/clojure.jar'
cljclass='clojure.lang.Repl'
+cljscript='clojure.lang.Script'
jlineclass='jline.ConsoleRunner'
dir=$0
@@ -24,4 +25,11 @@
cljjar="$dir/../$cljjar"
jlinejar="$dir/../../jline.jar"
-exec java -classpath $jlinejar:$cljjar $jlineclass $cljclass
+
+if [ -z "$1" ]; then
+ exec java -classpath $jlinejar:$cljjar $jlineclass $cljclass
+else
+ scriptname=$1
+ exec java -classpath $jlinejar:$cljjar $jlineclass $cljscript $scriptname --$*
+fi
+
Added: trunk/dports/lang/clojure/files/clj-rlwrap.sh
===================================================================
--- trunk/dports/lang/clojure/files/clj-rlwrap.sh (rev 0)
+++ trunk/dports/lang/clojure/files/clj-rlwrap.sh 2009-04-15 13:19:49 UTC (rev 49687)
@@ -0,0 +1,36 @@
+#!/bin/sh
+
+# clj - Clojure launcher script
+
+BREAK_CHARS="\(\){}[],^%$#@\"\";:''|\\"
+
+cljjar='lib/clojure.jar'
+cljclass='clojure.lang.Repl'
+cljscript='clojure.lang.Script'
+cljcompletions='.clj_completions'
+
+dir=$0
+while [ -h "$dir" ]; do
+ ls=`ls -ld "$dir"`
+ link=`expr "$ls" : '.*-> \(.*\)$'`
+
+ if expr "$link" : '/.*' > /dev/null; then
+ dir="$link"
+ else
+ dir=`dirname "$dir"`"/$link"
+ fi
+done
+
+dir=`dirname $dir`
+dir=`cd "$dir" > /dev/null && pwd`
+cljjar="$dir/../$cljjar"
+cljcompletions="$dir/../$cljcompletions"
+
+if [ $# -eq 0 ]; then
+ rlwrap --remember -c -b $BREAK_CHARS -f $cljcompletions \
+ java -cp $cljjar $cljclass
+else
+ scriptname=$1
+ exec java -classpath $cljjar $cljscript $scriptname --$*
+fi
+
Modified: trunk/dports/lang/clojure/files/clj.sh
===================================================================
--- trunk/dports/lang/clojure/files/clj.sh 2009-04-15 13:02:35 UTC (rev 49686)
+++ trunk/dports/lang/clojure/files/clj.sh 2009-04-15 13:19:49 UTC (rev 49687)
@@ -5,6 +5,7 @@
cljjar='lib/clojure.jar'
cljclass='clojure.lang.Repl'
+cljscript='clojure.lang.Script'
dir=$0
while [ -h "$dir" ]; do
@@ -22,4 +23,9 @@
dir=`cd "$dir" > /dev/null && pwd`
cljjar="$dir/../$cljjar"
-exec java -classpath $cljjar $cljclass
+if [ -z "$1" ]; then
+ exec java -classpath $cljjar $cljclass
+else
+ scriptname=$1
+ exec java -classpath $cljjar $cljscript $scriptname --$*
+fi
Added: trunk/dports/lang/clojure/files/completions-contrib.clj
===================================================================
--- trunk/dports/lang/clojure/files/completions-contrib.clj (rev 0)
+++ trunk/dports/lang/clojure/files/completions-contrib.clj 2009-04-15 13:19:49 UTC (rev 49687)
@@ -0,0 +1,6 @@
+(def completions
+ (reduce concat (map (fn [p] (keys (ns-publics (find-ns p))))
+ '(clojure.core clojure.set clojure.xml clojure.zip))))
+
+(with-open [f (java.io.BufferedWriter. (java.io.FileWriter. ".clj_completions"))]
+ (.write f (apply str (interleave completions (repeat "\n")))))
\ No newline at end of file
Added: trunk/dports/lang/clojure/files/completions.clj
===================================================================
--- trunk/dports/lang/clojure/files/completions.clj (rev 0)
+++ trunk/dports/lang/clojure/files/completions.clj 2009-04-15 13:19:49 UTC (rev 49687)
@@ -0,0 +1,4 @@
+(def completions (keys (ns-publics (find-ns 'clojure.core))))
+
+(with-open [f (java.io.BufferedWriter. (java.io.FileWriter. ".clj_completions"))]
+ (.write f (apply str (interleave completions (repeat "\n")))))
\ No newline at end of file
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090415/d8eaf42c/attachment.html>
More information about the macports-changes
mailing list