Mired in code
Check-in [c0bfb3546d]
Not logged in
Public Repositories
mwm's Repositories

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Update -destroy method to have correct parameters.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:c0bfb3546d9dd8bfa557483cedb47dc0adf52e5e
User & Date: mwm@mired.org 2011-04-06 00:09:29
Context
2011-12-31
02:13
Published version of the plus 1 analysis code. check-in: ca484881b2 user: mwm@mired.org tags: trunk
2011-04-06
00:09
Update -destroy method to have correct parameters. check-in: c0bfb3546d user: mwm@mired.org tags: trunk
2011-04-04
18:55
Update to the latest code, using a database for config, and a reload option. check-in: cbf17190cb user: mwm@mired.org tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to x10/src/x10/war.clj.

11
12
13
14
15
16
17
18
19
20
21
22
23
  ([this config]
     (. this initSuper config)
     (let [db (.getInitParameter this "device-db")]
       (load-devices db)
       (.log this (str "Setting up *devices* from " db))))
  ([this]))	; because the super config will eventually try and call this.

(defn -destroy []
  (close-ports)
  (shutdown-agents))

(def app (wrap-stacktrace #'handler))
(defservice app)







|





11
12
13
14
15
16
17
18
19
20
21
22
23
  ([this config]
     (. this initSuper config)
     (let [db (.getInitParameter this "device-db")]
       (load-devices db)
       (.log this (str "Setting up *devices* from " db))))
  ([this]))	; because the super config will eventually try and call this.

(defn -destroy [this]
  (close-ports)
  (shutdown-agents))

(def app (wrap-stacktrace #'handler))
(defservice app)