core.clj

(ns giws-clj.core
  (:require [clojure.contrib.lazy-xml :as xml])
  (:use [clojure.contrib.trace :as trace]))
(defn emit-giws-xml [c]
  (let [package (.getPackage c)
        methods (map #(hash-map :name (.getName %)
                                :returnType (str (.getName (.getReturnType %)))
                                :params (map (fn [p] {:name (.getName %)})
                                             (.getParameterTypes %)))
                     (.getMethods c))]
    methods))
(definterface giws-clj.core.Ihello
  [(^String tailoff [])
   (tail1 [^String a ^Integer b])])

(gen-class giws-clj.core.Myhello)
(def s 10)
(defn prefix->postfix [expr]
  (if (coll? expr)
    (let [[op & rest] expr]
      (conj (vec (map prefix->postfix rest)) op))
    expr))