Commit 63042730 authored by Bernd Paysan's avatar Bernd Paysan

Factor out greeting

parent e24d64ee
......@@ -1386,8 +1386,14 @@ Variable tries#
forward read-chatgroups
: n2o-greeting ( -- )
[: ." net2o " (c) ." 2010-2019 Bernd Paysan" cr
." net2o interactive shell, type 'bye' to quit" cr ;]
do-debug ;
: get-skc ( -- )
secret-keys# IF read-chatgroups EXIT THEN tries# off
secret-keys# IF read-chatgroups EXIT THEN
n2o-greeting tries# off
debug-vector @ op-vector !@ >r <default>
secret-keys#
BEGIN dup 0= tries# @ maxtries# u< and WHILE drop
......
......@@ -120,7 +120,7 @@ scope{ n2o
: help ( -- )
\U help [cmd1 .. cmdn]
\G help: print commands or details about specified command
." net2o " (c) ." 2010-2019 Bernd Paysan" cr
n2o-greeting
?cr ?nextarg IF
BEGIN
2dup over c@ '-' = IF
......@@ -561,8 +561,6 @@ warnings !
: cmd ( -- )
\U cmd
\G cmd: Offer a net2o command line for client stuff
." net2o " (c) ." 2010-2019 Bernd Paysan" cr
." net2o interactive shell, type 'bye' to quit" cr
get-me
0 to script? n2o-cmds ;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment