;; Copyright (c) Daniel Borchmann. All rights reserved.
;; The use and distribution terms for this software are covered by the
;; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
;; which can be found in the file LICENSE at the root of this distribution.
;; By using this software in any fashion, you are agreeing to be bound by
;; the terms of this license.
;; You must not remove this notice, or any other, from this software.

(use 'clojure.contrib.command-line)

;;

(defn- run-repl []
  (clojure.main/repl :init #(use 'conexp.main)))

(with-command-line *command-line-args*
  "conexp-clj -- a general purpose tool for Formal Concept Analysis\n"
  [[gui? "Start the graphical user interface"]
   [load "Load script and run"]]
  (when gui?
    (clojure.main/repl :init #(do
                                (use 'conexp.main)
                                (use 'conexp.contrib.gui)
                                (@(ns-resolve 'conexp.contrib.gui 'gui)
                                 :default-close-operation javax.swing.JFrame/EXIT_ON_CLOSE))))
  (when load
    (load-file load))
  (when-not (or load gui?)
    (clojure.main/repl :init #(use 'conexp.main))))

;;

nil

;; Copyright (c) Daniel Borchmann. All rights reserved.
;; The use and distribution terms for this software are covered by the
;; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
;; which can be found in the file LICENSE at the root of this distribution.
;; By using this software in any fashion, you are agreeing to be bound by
;; the terms of this license.
;; You must not remove this notice, or any other, from this software.

(use 'clojure.contrib.command-line)

;;

(defn- run-repl []
  (clojure.main/repl :init #(use 'conexp.main)))

(with-command-line *command-line-args*
  "conexp-clj -- a general purpose tool for Formal Concept Analysis\n"
  [[gui? "Start the graphical user interface"]
   [load "Load script and run"]]
  (when gui?
    (clojure.main/repl :init #(do
                                (use 'conexp.main)
                                (use 'conexp.contrib.gui)
                                (@(ns-resolve 'conexp.contrib.gui 'gui)
                                 :default-close-operation javax.swing.JFrame/EXIT_ON_CLOSE))))
  (when load
    (use 'conexp.main)
    (load-file load))
  (when-not (or load gui?)
    (clojure.main/repl :init #(use 'conexp.main))))

;;

nil

Use conexp.main when --load-ing files
Use conexp.main when --load-ing files

Signed-off-by: Daniel Borchmann <25857343a15bf1edafebc2912e82ecf775c585c1@mailbox.tu-dresden.de>

exot/conexp-clj,Lobage/conexp-clj,exot/conexp-clj,fcatools/conexp-clj,exot/conexp-clj,Lobage/conexp-clj,fcatools/conexp-clj,fcatools/conexp-clj,Lobage/conexp-clj,exot/conexp-clj,exot/conexp-clj,fcatools/conexp-clj,Lobage/conexp-clj,fcatools/conexp-clj