https://github.com/divs1210/cljos

Pronounced: chaos
https://github.com/divs1210/cljos

Last synced: about 5 hours ago
JSON representation

Pronounced: chaos

• Host: GitHub
• URL: https://github.com/divs1210/cljos
• Owner: divs1210
• License: epl-1.0
• Created: 2014-10-19T13:17:23.000Z (about 10 years ago)
• Default Branch: master
• Last Pushed: 2019-10-22T08:24:11.000Z (about 5 years ago)
• Last Synced: 2023-05-12T03:05:16.147Z (over 1 year ago)
• Language: Clojure
• Homepage: http://pizzaforthought.blogspot.in/2014/12/cljos-objectifying-clojure.html
• Size: 31.3 KB
• Stars: 17
• Watchers: 2
• Forks: 1
• Open Issues: 0
• Metadata Files:
  • Readme: Readme.md
  • License: LICENSE

Awesome Lists containing this project

README

        
## Clojure Object System

------------------------

### A simple, thread-safe, single-inheritance OOP system in Clojure

Leiningen - `[cljos "1.3.0-SNAPSHOT"]`

#### Why this heresy?

Clojure is a brilliant functional language, and it would be best to use it as such, but when you just *have* to write OO code and don't want to give up other benefits that Clojure provides, CljOS might prove to be pretty useful. To read a more detailed write-up, go [here](http://pizzaforthought.blogspot.in/2014/12/cljos-objectifying-clojure.html). 

#### Usage

Here's a Stack implemented in CljOS:

```clojure

(defclass  

  {:seq '(), :size 0}

          

  {:init (fn [this size]

           (this :set :size size))

   

   :push (fn [this x]

           (if (< (this :seq count) (this :size))

             (this :setf :seq conj x)

             (throw (Exception. "Stack full!"))))

   

   :pop  (fn [this]

           (if (> (this :seq count) 0)

             (let [x (this :seq first)]

               (this :setf :seq pop)

               x)

             (throw (Exception. "Stack empty!"))))})

```

which can be used in the following manner:

```clojure

(def s (new+  3))

(s :state)  ;=> {:seq (), :size 3}

(s :push 1) ;=> {:seq (1), :size 3}

(s :push 2) ;=> {:seq (2 1), :size 3}

(s :push 3) ;=> {:seq (3 2 1), :size 3}

(s :pop)    ;=> 3

(s :state)  ;=> {:seq (2 1), :size 3}

```

though it would be better to use the `doto+` macro:

```clojure

(doto+ (new+  3)

  (:push 1)

  (:push 2)

  (:push 3)

  :pop :state)  ;=> {:seq (2 1), :size 3}

```

##### Note

* `:setf` stands for 'set with fn' and updates the given var.

* `:state` can be used to get the object in the form of a Clojure data structure. No serialization required!

* `:swap` works like `swap!`, and updates the `:state`.

* `:type` gets the name of the class of the object.

* `:super` can be used to access the super-class's methods, including `:init`.

* All objects are automatically thread-safe!

#### License

(C) Divyansh Prakash. CljOS is released under the EPL 1.0 license.