Browse Source
- You can now actually compile the whole thing into a standalone binary, which gets configured through command-line options. - If the thing encounters an unexpected error, it prints a nice backtrace and exits with an error code (instead of dropping t the debugger).master

7 changed files with 137 additions and 4 deletions
@ -1,2 +1,3 @@
@@ -1,2 +1,3 @@
|
||||
*.fasl |
||||
*.sqlite3 |
||||
*.sqlite3 |
||||
nea-ircd |
@ -0,0 +1,7 @@
@@ -0,0 +1,7 @@
|
||||
LISP ?= sbcl |
||||
|
||||
all: |
||||
$(LISP) \
|
||||
--eval '(ql:quickload :nea)' \
|
||||
--eval '(asdf:make :nea)' \
|
||||
--eval '(quit)' |
@ -0,0 +1,58 @@
@@ -0,0 +1,58 @@
|
||||
;;; Command line configuration |
||||
|
||||
(in-package :nea/ircd) |
||||
|
||||
(opts:define-opts |
||||
(:name :help |
||||
:description "Print this help text." |
||||
:short #\h |
||||
:long "help") |
||||
(:name :server-name |
||||
:description "Set the name of the local server." |
||||
:short #\n |
||||
:required t |
||||
:meta-var "NAME" |
||||
:arg-parser #'identity |
||||
:long "server-name") |
||||
(:name :listen-host |
||||
:description "The hostname to listen on. Default: localhost" |
||||
:short #\l |
||||
:meta-var "HOST" |
||||
:arg-parser #'identity |
||||
:long "listen-host") |
||||
(:name :listen-port |
||||
:description "The port to listen on. Default: 6667" |
||||
:short #\p |
||||
:meta-var "PORT" |
||||
:arg-parser #'parse-integer |
||||
:long "listen-port") |
||||
(:name :db-host |
||||
:description "The hostname of the PostgreSQL database server. Default: localhost" |
||||
:short #\H |
||||
:meta-var "HOST" |
||||
:arg-parser #'identity |
||||
:long "db-host") |
||||
(:name :db-port |
||||
:description "The port of the PostgreSQL database server. Default: 5432" |
||||
:short #\P |
||||
:meta-var "PORT" |
||||
:arg-parser #'parse-integer |
||||
:long "db-port") |
||||
(:name :db-username |
||||
:description "The username to use for the PostgreSQL database server. Default: nea" |
||||
:short #\U |
||||
:meta-var "USERNAME" |
||||
:arg-parser #'identity |
||||
:long "db-username") |
||||
(:name :db-password |
||||
:description "The password to use for the PostgreSQL database server. Default: none" |
||||
:short #\W |
||||
:meta-var "USERNAME" |
||||
:arg-parser #'identity |
||||
:long "db-password") |
||||
(:name :db-database |
||||
:description "The database to access on the PostgreSQL database server. Default: nea" |
||||
:short #\D |
||||
:meta-var "USERNAME" |
||||
:arg-parser #'identity |
||||
:long "db-database")) |
Loading…
Reference in new issue