1
1
; ;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; -*-
2
2
; ;;
3
- ; ;; This is Shtookovina API to define new user functions and the REPL
3
+ ; ;; This is Шτookωвiнα API to define new user functions and the REPL
4
4
; ;; itself.
5
5
; ;;
6
6
; ;; Copyright (c) 2015 Mark Karpov
7
7
; ;;
8
- ; ;; Shtookovina is free software: you can redistribute it and/or modify it
8
+ ; ;; Шτookωвiнα is free software: you can redistribute it and/or modify it
9
9
; ;; under the terms of the GNU General Public License as published by the
10
10
; ;; Free Software Foundation, either version 3 of the License, or (at your
11
11
; ;; option) any later version.
12
12
; ;;
13
- ; ;; Shtookovina is distributed in the hope that it will be useful, but
13
+ ; ;; Шτookωвiнα is distributed in the hope that it will be useful, but
14
14
; ;; WITHOUT ANY WARRANTY; without even the implied warranty of
15
15
; ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
16
16
; ;; Public License for more details.
@@ -30,18 +30,18 @@ autocompletion.")
30
30
31
31
(defparameter *arg-parsers* (make-hash-table )
32
32
" Parsers that are used to parse various types of command arguments in
33
- Shtookovina REPL." )
33
+ Шτookωвiнα REPL." )
34
34
35
35
(defparameter *command-counter* 0
36
- " Command counter. It's part of Shtookovina prompt. It's incremented every
36
+ " Command counter. It's part of Шτookωвiнα prompt. It's incremented every
37
37
time READ-COMMAND gets some input successfully." )
38
38
39
39
(defparameter +session-prompt+ " [~a ]> "
40
40
" This is a control string that's passed to FORMAT function along with the
41
- value of *COMMAND-COUNTER* to produce Shtookovina session prompt." )
41
+ value of *COMMAND-COUNTER* to produce Шτookωвiнα session prompt." )
42
42
43
43
(defparameter *session-terminated* nil
44
- " If this variable is bound to non-NIL value, Shtookovina REPL will be
44
+ " If this variable is bound to non-NIL value, Шτookωвiнα REPL will be
45
45
terminated." )
46
46
47
47
(defparameter *command-recognition-threshold* 1
@@ -80,7 +80,7 @@ oldest).")
80
80
(make-load-form-saving-slots self :environment env))
81
81
82
82
(defmacro define-command (name args (short-desc-id long-desc-id) &body body)
83
- " Define new user command. It will available in Shtookovina REPL. NAME must
83
+ " Define new user command. It will available in Шτookωвiнα REPL. NAME must
84
84
be a string designator. It's the name that user will be able to use to
85
85
execute the command. ARGS must be a list describing arguments of the
86
86
function where every element is of form (SYMBOL TYPE), where SYMBOL is the
@@ -108,7 +108,7 @@ has the same meaning as in usual lambda list. BODY is an implicit PROGN."
108
108
' ,name))))
109
109
110
110
(defun session-std-complete (text start end)
111
- " Custom completion for Shtookovina REPL. First word is completed to a word
111
+ " Custom completion for Шτookωвiнα REPL. First word is completed to a word
112
112
from *COMMAND-LIST*, other words are currently not completed."
113
113
(declare (ignore start end))
114
114
(labels ((common-prefix (items)
@@ -252,7 +252,7 @@ will perform any necessary processing."
252
252
:args command)))))
253
253
254
254
(defun session ()
255
- " This is Shtookovina REPL."
255
+ " This is Шτookωвiнα REPL."
256
256
(setf *session-terminated* nil )
257
257
(perform-hook :session-start )
258
258
(do (input)
0 commit comments