[isidorus-cvs] r830 - in branches/gdl-frontend/src: . rest_interface

[lgiessmann at common-lisp.net]

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)
+