david-mcneil

(defrecord Car [year make model])

david-mcneil

public interface demo.api.Store{
    public abstract demo.api.Store buy();
    public abstract demo.api.Store buy(int);
    public abstract demo.api.Store sell();
    public abstract int getQty();
}

david-mcneil

public interface demo.impl.boat.Boat{
    public abstract java.lang.Object go(java.lang.Object);
}

david-mcneil

(gen-interface
 :name demo.api.SpeedBoat
 :methods [[zoom [int] int]
           [fuelLeft [] int]])

(deftype BoatImpl [state]
  demo.api.SpeedBoat
  (zoom [this distance]
        (dosync
         (alter state - (* 10 distance)))

david-mcneil

import demo.api.Store;
import demo.api.StoreFactory;

public class Main {
    public static void main(String[] args) {
        Store s = StoreFactory.makeStore();
        System.out.println("qty = " + s.getQty());

        s.buy().buy().buy().sell().buy();
        System.out.println("qty = " + s.getQty());

david-mcneil

(ns demo.impl.store)

(gen-interface
 :name demo.api.Store
 :methods [[buy [] demo.api.Store]
           [buy [int] demo.api.Store]
           [sell [] demo.api.Store]
           [getQty [] int]])

(gen-class

david-mcneil

(ns clojure.examples.instance
    (:gen-class
     :implements [java.util.Iterator]
     :init init
     :constructors {[String] []}
     :state state))

david-mcneil

(defprotocol Boat
  (go [boat ^int distance]))

(deftype BoatImpl [state]
  Boat
  (go [this distance]
      (dosync
       (alter state - distance))))