Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Update docs and make project runnable

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

0 notes on commit 57c9078

Please sign in to comment.
Something went wrong with that request. Please try again.