This will work only if
A) there is a manifest in the jar specifying which class contains the main
method
B) if you do not need to add libraries explicitly, -cp is ignored when you use
-jar
Clojure.org is correct, especially regarding b). If you happen to need to add
libs to your REPL, -jar is a dead end.
If you happen to create a specific main for your own app, using -jar is
much more complex to setup.
Luc P
> On http://clojure.org/getting_started:
>
>
> Download <http://clojure.org/downloads> and unzip Clojure. In the directory
> in which you expanded clojure.zip, run:
>
> java -cp clojure-1.4.0.jar clojure.main
>
> Should be just:
>
>
> java -jar clojure-1.4.0.jar
>
>
> It's a detail, but an important one, as it's the first contact for most of
> the new Clojure users.
>
> Denis
>
> On Mon, Sep 3, 2012 at 9:00 AM, Denis Labaye <denis.lab...@gmail.com> wrote:
>
> >
> > 1. java -cp ./org/clojure/clojure/1.4.0/clojure-1.4.0.jar clojure.main
> > 2. cut & paste your code in the REPL
> > 3. type (start) [enter]
> >
> >
> >
> >
> > On Fri, Aug 31, 2012 at 3:36 AM, gearss <gearss8...@gmail.com> wrote:
> >
> >> I have a file named pong.clj, it isunder following, I want to know how
> >> can I run it?
> >> Thank you.
> >>
> >> --------
> >> (ns example.game.pong
> >> (:use [penumbra opengl]
> >> [clojure.contrib.def])
> >> (:require [penumbra [app :as app] [text :as text]]))
> >> (def ball-width 0.03)
> >> (def ball-height 0.03)
> >> (def paddle-width 0.02)
> >> (def paddle-height 0.15)
> >> ;;;
> >> (defn abs [x] (Math/abs x))
> >> (defn intersect-1d [[a b] [x y]]
> >> (and (<= a y) (>= b x)))
> >> (defn intersect-2d [[a b c d] [x y z w]]
> >> (and (intersect-1d [a c] [x z])
> >> (intersect-1d [b d] [y w])))
> >> (defn reflector [[x y w h] f]
> >> (let [r [x y (+ x w) (+ y h)]]
> >> (fn [region velocity]
> >> (if (intersect-2d region r)
> >> (f velocity)
> >> velocity))))
> >> (defvar boundaries
> >> [(reflector [0 -1 1 1] (fn [[x y]] [x (abs y)]))
> >> (reflector [0 1 1 1] (fn [[x y]] [x (- (abs y))]))
> >> (reflector [-1 0 1 1] (fn [[x y]] [(abs x) y]))
> >> (reflector [1 0 1 1] (fn [[x y]] [(- (abs x)) y]))])
> >> (defn update-ball [state dt]
> >> (let [ball (concat (:p state) (map + (:p state) [ball-width
> >> ball-height]))
> >> v (reduce
> >> #(%2 ball %1) (:v state)
> >> (conj
> >> boundaries
> >> (reflector [0.01 (:left state) paddle-width paddle-height]
> >> (fn [[x y]] [(abs x) y]))
> >> (reflector [(- 0.99 paddle-width) (:right state) paddle-width
> >> paddle-height]
> >> (fn [[x y]] [(- (abs x)) y]))))]
> >> (assoc state
> >> :v v
> >> :p (map + (:p state) (map (partial * dt) v)))))
> >> (defn draw-ball [pos]
> >> (push-matrix
> >> (apply translate pos)
> >> (draw-quads
> >> (vertex 0 0)
> >> (vertex ball-width 0)
> >> (vertex ball-width ball-height)
> >> (vertex 0 ball-height))))
> >> ;;;
> >> (defn update-opponent-paddle [state]
> >> (let [[x y] (:p state)
> >> [vx vy] (:v state)
> >> dt (/ (- 1 x) vx)
> >> dy (- (+ y (* vy dt)) (:right state))]
> >> (assoc state
> >> :v-right (if (neg? vx) 0 (/ dy dt)))))
> >> (defn update-player-paddle [state]
> >> (assoc state
> >> :v-left
> >> (cond
> >> (app/key-pressed? :up) -1
> >> (app/key-pressed? :down) 1
> >> :else 0)))
> >> (defn update-paddle [dt v pos]
> >> (min (- 1 paddle-height) (max 0 (+ pos (* dt v)))))
> >> (defn draw-paddle [x y]
> >> (push-matrix
> >> (translate x y)
> >> (draw-quads
> >> (vertex 0 0)
> >> (vertex paddle-width 0)
> >> (vertex paddle-width paddle-height)
> >> (vertex 0 paddle-height))))
> >> ;;;
> >> (defn reset-game [state]
> >> (assoc state
> >> :v [0.4 0.8]
> >> :p [0.5 0.5]
> >> :left 0.5, :v-left 0.0
> >> :right 0.5, :v-right 0.0))
> >> (defn init [state]
> >> (app/vsync! true)
> >> (app/title! "Pong")
> >> (app/periodic-update! 2 update-opponent-paddle)
> >> (reset-game state))
> >> (defn reshape [[x y w h] state]
> >> (ortho-view 0 1 1 0 -1 1)
> >> state)
> >> (defn update [[delta _] state]
> >> (-> state
> >> (update-player-paddle)
> >> (assoc :left (update-paddle delta (:v-left state) (:left state)))
> >> (assoc :right (update-paddle delta (:v-right state) (:right state)))
> >> (update-ball delta)))
> >> (defn display [[delta _] state]
> >> (draw-ball (:p state))
> >> (draw-paddle 0.01 (:left state))
> >> (draw-paddle (- 0.99 paddle-width) (:right state))
> >> (app/repaint!))
> >> (defn start []
> >> (app/start
> >> {:display display, :reshape reshape, :update update, :init init}
> >> {}))
> >>
> >>
> >> --
> >> You received this message because you are subscribed to the Google
> >> Groups "Clojure" group.
> >> To post to this group, send email to clojure@googlegroups.com
> >> Note that posts from new members are moderated - please be patient with
> >> your first post.
> >> To unsubscribe from this group, send email to
> >> clojure+unsubscr...@googlegroups.com
> >> For more options, visit this group at
> >> http://groups.google.com/group/clojure?hl=en
> >
> >
> >
>
> --
> You received this message because you are subscribed to the Google
> Groups "Clojure" group.
> To post to this group, send email to clojure@googlegroups.com
> Note that posts from new members are moderated - please be patient with your
> first post.
> To unsubscribe from this group, send email to
> clojure+unsubscr...@googlegroups.com
> For more options, visit this group at
> http://groups.google.com/group/clojure?hl=en
--
Softaddicts<lprefonta...@softaddicts.ca> sent by ibisMail from my ipad!
--
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to clojure@googlegroups.com
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
clojure+unsubscr...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
