-
Notifications
You must be signed in to change notification settings - Fork 2
/
devel.lisp
75 lines (51 loc) · 1.84 KB
/
devel.lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
(in-package :cl-user)
(format t ";;; Loading CLORB~%")
;;; MCL 5.0 - needs the BSD package
#+digitool
(unless (find-package "BSD")
(cond ((find-package "NET.CDDR.PACKER")
(funcall (intern "REQUIRE-PACKAGE" "NET.CDDR.PACKER") "BSD"))
(t
(require "BSD"))))
;;; Load the CLORB system
(load (merge-pathnames "clorb-files.lisp" *load-pathname*))
(net.cddr.clorb.system:set-load-opts
:server t :idlcomp nil :my-idlparser t
:portable-interceptor t :support-test t
:hello-world t)
(net.cddr.clorb.system:reload)
#+digitool
(import '(@ @@ @@@) "CLORB")
;; To easy switch between CLORB and CL-USER from the listener
(define-symbol-macro inpc (in-package :clorb))
(define-symbol-macro clorb::inpu (in-package :cl-user))
;;; SBCL repl support, runs the server parts using add-fd-handler
#+sbcl
(clorb::make-repl-happy)
;;; IO Policy
(setq clorb:*io-system-default-class*
(or #+(or mcl openmcl sb-thread) 'clorb:io-system-mt-blocking-write
'clorb:io-system-select-blocking-write))
;;; Initiating the ORB
;; provide initial references to services on the system
(defvar *the-orb*
(CORBA:ORB_init
(list #+digitool "-ORBPort 4711"
;;#+cmu "-ORBPort 4713"
;;"-ORBInitRef NameService=corbaloc::/NameService"
"-ORBInitRef NameService=corbaloc:rir:/CLORB-PNS" )))
;;; Initiating the object adapter (the server part of the ORB)
(format t "~&;;; Activating the POA~%")
(op:activate (op:the_poamanager (clorb::root-poa)))
;;; Examples
;;
;;(load (merge-pathnames
;; (make-pathname :name "auto" :type "lisp"
;; :directory '(:relative "examples" "hello"))
;; clorb::*clorb-pathname-defaults*))
;;
;; run hello world with (hh)
;; or (hhn) using the name service
;;; Run test cases
#-clorb-no-test
(load (merge-pathnames "all-test.lisp" clorb::*clorb-pathname-defaults*))