Author: lgiessmann Date: Mon Sep 5 03:07:53 2011 New Revision: 830
Log: gdl-frontend: started to implement the backend-functionality for the communication with the gdl-frontend
Added: branches/gdl-frontend/src/rest_interface/set-up-gdl-interface.lisp Modified: branches/gdl-frontend/src/isidorus.asd branches/gdl-frontend/src/rest_interface/rest-interface.lisp
Modified: branches/gdl-frontend/src/isidorus.asd ============================================================================== --- branches/gdl-frontend/src/isidorus.asd Mon Sep 5 02:48:18 2011 (r829) +++ branches/gdl-frontend/src/isidorus.asd Mon Sep 5 03:07:53 2011 (r830) @@ -111,6 +111,8 @@ :depends-on ("rest-interface")) (:file "set-up-json-interface" :depends-on ("rest-interface")) + (:file "set-up-gdl-interface" + :depends-on ("rest-interface")) (:file "read" :depends-on ("rest-interface"))) :depends-on ("model" "atom" "xml" "TM-SPARQL"
Modified: branches/gdl-frontend/src/rest_interface/rest-interface.lisp ============================================================================== --- branches/gdl-frontend/src/rest_interface/rest-interface.lisp Mon Sep 5 02:48:18 2011 (r829) +++ branches/gdl-frontend/src/rest_interface/rest-interface.lisp Mon Sep 5 03:07:53 2011 (r830) @@ -68,9 +68,29 @@
(defvar *json-server-acceptor* nil) +(defvar *gdl-server-acceptor* nil) (defvar *atom-server-acceptor* nil)
+(defun start-gdl-engine (repository-path &key + (host-name "localhost") (port 8018)) + "Starts the Topic Maps engine with a given port and address, + so the engine can serve and consume gdl-fragments for the + gdl-frontend anaToMia." + (when *gdl-server-acceptor* + (error "The gdl-server is already running")) + (setf hunchentoot:*show-lisp-errors-p* t) ;for now + (setf hunchentoot:*hunchentoot-default-external-format* + (flex:make-external-format :utf-8 :eol-style :lf)) + (open-tm-store repository-path) + (set-up-gdl-interface) + (setf *gdl-server-acceptor* + (make-instance 'hunchentoot:acceptor :address host-name :port port)) + (setf hunchentoot:*lisp-errors-log-level* :info) + (setf hunchentoot:*message-log-pathname* "./gdl-hunchentoot-errors.log") + (hunchentoot:start *gdl-server-acceptor*)) + + (defun start-json-engine (repository-path &key (host-name "localhost") (port 8000)) "Start the Topic Maps Engine on a given port, assuming a given
Added: branches/gdl-frontend/src/rest_interface/set-up-gdl-interface.lisp ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ branches/gdl-frontend/src/rest_interface/set-up-gdl-interface.lisp Mon Sep 5 03:07:53 2011 (r830) @@ -0,0 +1,11 @@ +;;+----------------------------------------------------------------------------- +;;+ Isidorus +;;+ (c) 2008-2010 Marc Kuester, Christoph Ludwig, Lukas Georgieff +;;+ +;;+ Isidorus is freely distributable under the LLGPL license. +;;+ You can find a detailed description in trunk/docs/LLGPL-LICENSE.txt and +;;+ trunk/docs/LGPL-LICENSE.txt. +;;+----------------------------------------------------------------------------- + +(in-package :rest-interface) +