Permalink
Browse files

Update docs and make project runnable

  • Loading branch information...
1 parent 796c555 commit 57c907885f645b2d6d2e0c2b4706bbee4ac532e9 @palfrey committed Jul 5, 2012
Showing with 16 additions and 12 deletions.
  1. +4 −2 README.md
  2. +6 −5 project.clj
  3. +6 −5 src/clostridium/core.clj
View
@@ -1,10 +1,12 @@
-# Befunge
+# Clostridium
+
+A Befunge-98 interpreter written in Clojure
## Usage
+lein run <befunge file>
## License
Copyright © 2012 Tom Parker
-
Distributed under the AGPLv3
View
@@ -1,6 +1,7 @@
-(defproject clostridium "0.1.0-SNAPSHOT"
+(defproject clostridium "0.1"
:description "Befunge interpreter in Clojure"
- :url "http://example.com/FIXME"
- :license {:name "Eclipse Public License"
- :url "http://www.eclipse.org/legal/epl-v10.html"}
- :dependencies [[org.clojure/clojure "1.3.0"]])
+ :url "https://github.com/palfrey/Clostridium"
+ :license {:name "GNU Affero General Public License v3"
+ :url "http://www.gnu.org/licenses/agpl-3.0.html"}
+ :dependencies [[org.clojure/clojure "1.3.0"]]
+ :main clostridium.core)
View
@@ -1,5 +1,7 @@
(ns clostridium.core
- (:use [clojure.string :only [split-lines]]))
+ (:use [clojure.string :only [split-lines]])
+ (:gen-class)
+)
(defn toss [b] (first (:stack b)))
(defn ross [b] (rest (:stack b)))
@@ -451,12 +453,11 @@
(loop [b (makeInitial fname)]
(if (:running b)
(recur (doAndPrint b))
- nil
)
)
)
(defn -main
- "I don't do a whole lot."
- [& args]
- (println "Hello, World!"))
+ [fname]
+ (runBefunge fname)
+)

0 comments on commit 57c9078

Please sign in to comment.