Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
8beada74
Commit
8beada74
authored
May 22, 2013
by
unknown
Browse files
LW startup banner working now
parent
4086643b
Changes
1
Hide whitespace changes
Inline
Side-by-side
base/source/start.lisp
View file @
8beada74
...
...
@@ -9,24 +9,24 @@
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;;
;;
;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Affero General Public License for more details.
;;
;;
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>.
;;
;;
(
in-package
:gdl
)
(
defparameter
*features-to-initialize*
(
list
:base
:glisp
:geom-base
:gwl
(
defparameter
*features-to-initialize*
(
list
:base
:glisp
:geom-base
:gwl
:gwl-graphics
:tasty
:yadd
:robot
:cl-lite
))
(
defun
start-gendl!
(
&key
(
features
*features-to-initialize*
)
(
defun
start-gendl!
(
&key
(
features
*features-to-initialize*
)
(
banner?
t
)
(
init-files?
t
))
(
dolist
(
feature
features
)
;;
...
...
@@ -37,12 +37,12 @@
(
let
((
package
feature
))
(
if
(
and
(
find-package
package
)
(
glisp:featurep
feature
))
(
let
((
function-sym
(
read-from-string
(
format
nil
"~a::initialize"
package
))))
(
when
(
fboundp
function-sym
)
(
when
(
fboundp
function-sym
)
(
let
((
description
(
glisp:package-documentation
package
)))
(
format
t
"~&Initializing ~a subsystem...~%"
description
)
(
let
((
anything-changed?
(
funcall
function-sym
)))
(
format
t
"~&...Done~a~%"
(
if
anything-changed?
"."
(
if
anything-changed?
"."
(
format
nil
" (no new global settings)."
)))))))
(
format
t
"~&Note: Feature ~s does not appear to be loaded at this time.~%"
feature
))))
(
when
banner?
(
startup-banner
))
...
...
@@ -68,34 +68,30 @@
(
defun
startup-banner
()
#+
lispworks
(
format
t
"Welcome to Gendl on LispWorks where we can't print wide chars at the moment."
)
#-
lispworks
(
format
t
"
Welcome to Gendl™
Copyright© 2002-2013, Genworks International, Birmingham MI, USA.
Copyright© 2002-2013, Genworks International, Birmingham MI, USA.
All Rights Reserved.
This program contains free software: you can redistribute it and/or
modify it under the terms of the GNU Affero General Public License as
published by the Free Software Foundation, either version 3 of the
License, or (at your option) any later version.
This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Affero General Public License for more details.
You should have received a copy of the GNU Affero General Public
License along with the source code for this program. If not, see:
http://www.gnu.org/licenses/
"
))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment