The mnas-string Reference Manual

4.1.1 mnas-string/mnas-string.asd

Source

mnas-string.asd.

Parent Component

mnas-string (system).

ASDF Systems

• mnas-string.
• mnas-string/core.
• mnas-string/print.
• mnas-string/translit.
• mnas-string/db.
• mnas-string/parse.

---

4.1.2 mnas-string/core/src/core/core.lisp

Source

mnas-string.asd.

Parent Component

src/core (module).

Packages

mnas-string.

Public Interface

• getenv (function).
• make-populated-hash-table (function).
• map-to-list (function).
• mpattern-to-spattern (function).
• pre-post (function).
• replace-all (function).
• replace-all-words (function).
• split (function).
• trd-rename (function).

Internals

split-bak (function).

---

4.1.3 mnas-string/core/src/app-numbering/app-numbering.lisp

Source

mnas-string.asd.

Parent Component

src/app-numbering (module).

Public Interface

application-name (function).

Internals

• *abc-app* (special variable).
• *abc-en* (special variable).
• *abc-en-depricated* (special variable).
• *abc-ru* (special variable).
• *abc-ru-depricated* (special variable).

---

4.1.4 mnas-string/print/src/print/print.lisp

Source

mnas-string.asd.

Parent Component

src/print (module).

Packages

mnas-string/print.

Public Interface

• *default-month-language* (special variable).
• *mon-en* (special variable).
• *mon-ru* (special variable).
• *mon-ua* (special variable).
• date (function).
• date-time (function).
• date-time-fname (function).
• day-time (function).
• number-to-string (function).

Internals

• init-month-ht (function).
• number-to-string-1 (function).

---

4.1.5 mnas-string/translit/src/translit/translit.lisp

Source

mnas-string.asd.

Parent Component

src/translit (module).

Packages

mnas-string/translit.

Public Interface

• *cfx->en* (special variable).
• *cir-gr->en* (special variable).
• *empty* (special variable).
• *space-cir-gr->en* (special variable).
• add-transliter (function).
• make-transliter (function).
• print-transliter (function).
• translit (function).

Internals

• *allowed-characters* (special variable).
• *cyrillic->english-capital-letter* (special variable).
• *cyrillic->english-small-letter* (special variable).
• *cyrillic-capital-letter* (special variable).
• *cyrillic-small-letter* (special variable).
• *forbidden-cfx->english-letter* (special variable).
• *forbidden-cfx-letter* (special variable).
• *forbidden-characters* (special variable).
• *greek->english-capital-letter* (special variable).
• *greek->english-small-letter* (special variable).
• *greek-capital-letter* (special variable).
• *greek-small-letter* (special variable).
• init-cfx (function).
• init-cir-gr->en (function).
• init-space-cir-gr->en (function).

---

4.1.6 mnas-string/db/src/db/db.lisp

Source

mnas-string.asd.

Parent Component

src/db (module).

Packages

mnas-string/db.

Public Interface

prepare-to-query (function).

---

4.1.7 mnas-string/parse/src/parse/parse.lisp

Source

mnas-string.asd.

Parent Component

src/parse (module).

Packages

mnas-string/parse.

Public Interface

• parse-number (function).
• read-number (function).

---

6.1.1 Special variables

Special Variable: *cfx->en* ¶

@b(Описание:) хеш-таблица @b(*cfx->en*) служит для преобразования кириллических, греческих и символов запрещенных в пакете ANSYS CFX в английские символы.

При преобразовании с использованием функции @b(translit) пробельные и специальные символы заменяются такими, что преобразованная строка может использоваться в качестве имени (символа).

Package

mnas-string/translit.

Source

translit.lisp.

Special Variable: *cir-gr->en* ¶

@b(Описание:) хеш-таблица @b(*cir-gr->en*) служит для преобразования кириллических и греческих символов в английские символы.

Package

mnas-string/translit.

Source

translit.lisp.

Special Variable: *default-month-language* ¶

@b(Описание:) *default-month-language* язык по-умолчанию для наименования месяца.

@b(Пример использования:)
@begin[lang=lisp](code)
(gethash 1 *default-month-language*)
@end(code)

Package

mnas-string/print.

Source

print.lisp.

Special Variable: *empty* ¶

@b(Описание:) хеш-таблица @b(*empty*) является пустой и каждый символ поступающий на преобразоваие с ее помощью представляется самим собой.

Package

mnas-string/translit.

Source

translit.lisp.

Special Variable: *mon-en* ¶

@b(Описание:) хеш-таблица @b(*mon-en*) содержит названия месяцев на английском языке.

Ключами являются порядковые номера месяцев от 1 до 12.

@b(Пример использования:)
@begin[lang=lisp](code)
(gethash 1 *mon-en*) => "January" ,T
(gethash 12 *mon-en*) => "December" ,T
@end(code)

Package

mnas-string/print.

Source

print.lisp.

Special Variable: *mon-ru* ¶

@b(Описание:) хеш-таблица @b(*mon-ru*) содержит названия месяцев на русском языке.

Ключами являются порядковые номера месяцев от 1 до 12.

@b(Пример использования:)
@begin[lang=lisp](code)
(gethash 1 *mon-ru*) => "Январь", T
(gethash 12 *mon-ru*) => "Декабрь", T
@end(code)

Package

mnas-string/print.

Source

print.lisp.

Special Variable: *mon-ua* ¶

@b(Описание:) хеш-таблица @b(*mon-ua*) содержит названия месяцев на украинском языке.

Ключами являются порядковые номера месяцев от 1 до 12.

@b(Пример использования:)
@begin[lang=lisp](code)
(gethash 1 *mon-ua*) => "Січень", T
(gethash 12 *mon-ua*) => "Грудень", T
@end(code)

Package

mnas-string/print.

Source

print.lisp.

Special Variable: *space-cir-gr->en* ¶

@b(Описание:) хеш-таблица @b(*space-cir-gr->en*) служит для преобразования кириллических и греческих символов в английские символы.

При преобразовании с использованием функции @b(translit) пробельные и специальные символы заменяются такими, что преобразованная строка может использоваться в качестве имени (символа).

Package

mnas-string/translit.

Source

translit.lisp.

---

6.1.2 Ordinary functions

Function: add-transliter (string-from list-string-to ht) ¶

Package

mnas-string/translit.

Source

translit.lisp.

Function: application-name (index &key start-index abc) ¶

@b(Описание:) функция @b(app-name) возвращает строку, представляющую номер приложения (см. п.4.3.8 ГОСТ 2.105-95).

@b(Переменые:)
@begin(list)
@item(index - целое (0 соответствует А);)
@item(start-index - смещение начального индекса.)
@end(list)

Package

mnas-string.

Source

app-numbering.lisp.

Function: date (u-time &key stream year day month-language) ¶

@b(Описание:) функция @b(date) выводит в поток @b(stream) строковое представление даты.

@b(Пример использования:)
@begin[lang=lisp](code)
(date (get-universal-time) :stream nil) => "2019-12-04"
(date (get-universal-time) :stream nil :year nil :day nil) => "Январь" @end(code)

Package

mnas-string/print.

Source

print.lisp.

Function: date-time (u-time &key stream year ss) ¶

@b(Описание:) date-time выводит в поток @b(stream)
строковое представление даты и времени.

@b(Пример использования:)
@begin[lang=lisp](code)
(date-time (get-universal-time)) ;-> 2021-03-06_21:17:11 => NIL (date-time (get-universal-time) :year nil ) ;->03-06_21:18:57 => NIL (date-time (get-universal-time) :year nil :ss nil) ;-> 03-06_21:19 => NIL (date-time (get-universal-time) :ss nil) ;-> 2021-03-06_21:20 => NIL @end(code)

Package

mnas-string/print.

Source

print.lisp.

Function: date-time-fname (u-time &key stream year ss) ¶

@b(Описание:) функция @b(date-time-fname) выводит дату и время в пригодном для формирования имени файла формате.

@b(Пример использования:)
@begin[lang=lisp](code)
(let ((ut (get-universal-time)))
(date-time-fname ut :year t :ss t) ;-> 2021-03-06_23-03-11 (date-time-fname ut :year nil :ss t) ;-> 03-06_23-03-11 (date-time-fname ut :year t :ss nil) ;-> 2021-03-06_23-03 (date-time-fname ut :year nil :ss nil)) ;-> 03-06_23-03
=> NIL
@end(code)

Package

mnas-string/print.

Source

print.lisp.

Function: day-time (u-time &key stream ss) ¶

@b(Описание:) day-time выводит в поток @b(stream) строковое представление времени.

@b(Пример использования:)
@begin[lang=lisp](code)
(day-time (get-universal-time)) ;-> 23:06:15 =>NIL (day-time (get-universal-time) :ss nil) ;-> 23:07 =>NIL @end(code)

Package

mnas-string/print.

Source

print.lisp.

Function: getenv (sys-var &optional default) ¶

@b(Описание:) функция @b(getenv) возвращает строку, представляющую значение системной переменной, заданное аргументом @b(sys-var).

@b(Пример использования:)
@begin[lang=lisp](code)
(getenv "SBCL_HOME")
(getenv "PATH")
@end(code)

Package

mnas-string.

Source

core.lisp.

Function: make-populated-hash-table (sequence &key key-function value-function test) ¶

@b(Описание:) функция @b(make-populated-hash-table) возвращает
наполненную элементами хеш-таблицу. Хеш-таблица формируется на
основании содержимого последовательности @b(sequence).

Для каждого элемента последовательности при добавлении в хеш-таблицу:
@begin(list)
@item(ключи вычисляются при помощи функции, заданной аргументом @b(key-function);) @item(значения вычисляются при помощи функции, заданной аргументом @b(value-function).) @end(list)

Package

mnas-string.

Source

core.lisp.

Function: make-transliter (string-from list-string-to) ¶

Package

mnas-string/translit.

Source

translit.lisp.

Function: map-to-list (sequence &key key) ¶

@b(Описание:) map-to-list выполняет преобразование последовательности @b(sequence) в список.

@b(Пример использования:)
@begin[lang=lisp](code)
(map-to-list ’((1 2 )(2 3)(3 4)(4 5)(5 6)(6 7)))
; => ((1 2) (2 3) (3 4) (4 5) (5 6) (6 7))
(map-to-list ’((1 2 )(2 3)(3 4)(4 5)(5 6)(6 7)) :key #’first) ; => (1 2 3 4 5 6)
(map-to-list ’((1 2 )(2 3)(3 4)(4 5)(5 6)(6 7)) :key #’second) ; => (2 3 4 5 6 7)

@end(code)

Package

mnas-string.

Source

core.lisp.

Function: mpattern-to-spattern (pattern str) ¶

@b(Описание:) @b(mpattern-to-spattern) возвращает строку, у которой
повторяющиеся подряд подстроки @b(pattern) сведены до одного включения.

@b(Пример использования:)
@begin[lang=lisp](code)
(mpattern-to-spattern " " "Our plane will land in the city of BadenBaden.") => "Our plane will land in the city of BadenBaden."
@end(code)

Package

mnas-string.

Source

core.lisp.

Function: number-to-string (val &key fmt) ¶

@b(Описание:) функция @b(number-to-string) возвращает строку, которая представляет вещественое число в формате пригодном для вставки в CCL файл системы ANSYS CFX в качестве имени.

@b(Пример использования:)
@begin[lang=lisp](code)
(number-to-string 90.5645) => "p90i56"
(number-to-string -90.5645) => "m90i56"
@end(code)

Package

mnas-string/print.

Source

print.lisp.

Function: parse-number (str &optional default) ¶

@b(Описание:) parse-number выполняет чтение из строки @b(str) вещественного числа.

Если число не удалось считать - возвращается default.

@b(Пример использования:)
@begin[lang=lisp](code)
(parse-number "3.14") => 3.14, 4
(parse-number "3,14") => 3.14, 4
(parse-number "3,14e2") => 314.0, 6 (parse-number "-3,14e-2") => -0.0314, 8 (parse-number "3,14d+2") => 314.0d0, 7 (parse-number "-3,14d-2") => -0.0314d0, 8 @end(code)

Package

mnas-string/parse.

Source

parse.lisp.

Function: pre-post (string &optional prefix postfix) ¶

@b(Описание:) функция @b(pre-post) возвращает строку, основанную на @b(string) с добавлением перед и после нее префикса @b(prefix) и постфикса @b(postfix) pre-post-string

Package

mnas-string.

Source

core.lisp.

Function: prepare-to-query (str) ¶

@b(Описание:) функция @b(prepare-to-query) возвращает строку подготовленную для участия в запросе к базе данных, основанную на содержимом строки @b(str).

Подготовка заключется в исключении начальных и конечных пробелов и замене оставшихся пробелов на знаки %.

@b(Пример использования:)
@begin[lang=lisp](code)
(prepare-to-query " гайки с квадр гол ")
; => "%гайки%с%квадр%гол%"
@end(code)

Package

mnas-string/db.

Source

db.lisp.

Function: print-transliter (ht) ¶

Package

mnas-string/translit.

Source

translit.lisp.

Function: read-number (str &optional default) ¶

@b(Описание:) функция @b(read-number) возвращает число
класса @b(number) при чтении из строки @b(str).

При считывании используется стандартный считыватель Common Lisp.

Package

mnas-string/parse.

Source

parse.lisp.

Function: replace-all (string part replacement &key test) ¶

@b(Описание:) функция @b(replace-all) возвращает строку, в которой все вхождения @b(part) заменяется на @b(replacement).

@b(Пример использования:)
@begin[lang=lisp](code)
(replace-all "Paris, Paris? Paris!" "Pa" "Bo")
=> "Boris, Boris? Boris!"
(ppcre:regex-replace-all "Pa" "Paris, Paris? Paris!" "Bo") @end(code)

Package

mnas-string.

Source

core.lisp.

Function: replace-all-words (string part-replacement-list &key test) ¶

Package

mnas-string.

Source

core.lisp.

Function: split (char-bag string &key omit-nulls) ¶

@b(Описание:) функция: @b(split) разделяет строку @b(string) на подстроки.

@b(Возвращает:) список подстрок.

@b(Переменые:)
@begin(list)
@item(@b(char-bag) - символы из этой строки используются в качестве разделителей;) @item(@b(string) - строка, подлежащая разделению на подтсроки;)
@item(если omit-nulls не равно nil пустые подстроки из результирующего списока исключаются.) @end(list)

@b(Пример использования:)
@begin[lang=lisp](code)
(split "; " " 1111 ; +5550650456540; 55" ) => ("1111" "+5550650456540" "55")
@end(code)

Package

mnas-string.

Source

core.lisp.

Function: translit (str &key ht) ¶

@b(Описание:) функция @b(translit) возвращает транслитерированную
строку, символов находящихся в строке str. Для транслитерации
исползуется хеш-таблица ht.

В качестве таблиц перобразования (хеш-таблицы ht) рекомендуется использовать: @begin(list)
@item(*cir-gr->en* - с пробельными символами;)
@item(*space-cir-gr->en* - с исключением пробельных символов.)
@end(list)

@b(Пример использования:)
@begin[lang=lisp](code)
(translit "Что это?" :ht *cir-gr->en*) => "CHto eto?"
(translit "Что это?" :ht *space-cir-gr->en*) => "CHto-eto?"
(translit "Съешь же ещё этих мягких французских булочек да выпей чаю!")
; => "S_esh- zhe eshchio etih myagkih frantsuzskih bulochek da vypeiy chayu!" @end(code)

Package

mnas-string/translit.

Source

translit.lisp.

Function: trd-rename (f-name &optional ext) ¶

@b(Описание:) функция @b(trd-rename) возвращает строку, представляющую имя файла в формате "YYYY-MM-DD_hhmmss.ext".

Преобразуемая строка дожна удовлетворять формату "DDMMYY_hhmmss.ext".

Здесь:
@begin(list)
@item(YYYY - год;)
@item(YY - год;)
@item(MM - месяца;)
@item(DD - день;)
@item(hh - час;)
@item(mm - минута;)
@item(ss - секунда;)
@item(ext - расширение файла.)
@end(list)

@b(Пример использования:)
@begin[lang=lisp](code)
(trd-rename "150819_082056.trd") => "2019-08-15_082056.trd" @end(code)

Package

mnas-string.

Source

core.lisp.

---

6.2.1 Special variables

Special Variable: *abc-app* ¶

Package

mnas-string.

Source

app-numbering.lisp.

Special Variable: *abc-en* ¶

Package

mnas-string.

Source

app-numbering.lisp.

Special Variable: *abc-en-depricated* ¶

Package

mnas-string.

Source

app-numbering.lisp.

Special Variable: *abc-ru* ¶

Package

mnas-string.

Source

app-numbering.lisp.

Special Variable: *abc-ru-depricated* ¶

Package

mnas-string.

Source

app-numbering.lisp.

Special Variable: *allowed-characters* ¶

Символы, разрешенные для использования в имени символа Common Lisp. Знена для *forbidden-characters*.

Package

mnas-string/translit.

Source

translit.lisp.

Special Variable: *cyrillic->english-capital-letter* ¶

Package

mnas-string/translit.

Source

translit.lisp.

Special Variable: *cyrillic->english-small-letter* ¶

Package

mnas-string/translit.

Source

translit.lisp.

Special Variable: *cyrillic-capital-letter* ¶

Package

mnas-string/translit.

Source

translit.lisp.

Special Variable: *cyrillic-small-letter* ¶

Package

mnas-string/translit.

Source

translit.lisp.

Special Variable: *forbidden-cfx->english-letter* ¶

Package

mnas-string/translit.

Source

translit.lisp.

Special Variable: *forbidden-cfx-letter* ¶

Package

mnas-string/translit.

Source

translit.lisp.

Special Variable: *forbidden-characters* ¶

Символы, запрещенные для использования в имени символа Common Lisp.

Package

mnas-string/translit.

Source

translit.lisp.

Special Variable: *greek->english-capital-letter* ¶

Package

mnas-string/translit.

Source

translit.lisp.

Special Variable: *greek->english-small-letter* ¶

Package

mnas-string/translit.

Source

translit.lisp.

Special Variable: *greek-capital-letter* ¶

Package

mnas-string/translit.

Source

translit.lisp.

Special Variable: *greek-small-letter* ¶

Package

mnas-string/translit.

Source

translit.lisp.

---

6.2.2 Ordinary functions

Function: init-cfx () ¶

Package

mnas-string/translit.

Source

translit.lisp.

Function: init-cir-gr->en () ¶

Package

mnas-string/translit.

Source

translit.lisp.

Function: init-month-ht () ¶

@b(Описание:) функция @b(init-month-ht) выполняет инициализацию хеш-таблиц: @b(*mon-ru*); @b(*mon-ua*); @b(*mon-en*), содержащих наименования месяцев.

Package

mnas-string/print.

Source

print.lisp.

Function: init-space-cir-gr->en () ¶

Package

mnas-string/translit.

Source

translit.lisp.

Function: number-to-string-1 (val &key fmt) ¶

@b(Описание:) функция @b(number-to-string) возвращает строку, которая представляет вещественое число в формате пригодном для вставки в CCL файл системы ANSYS CFX в качестве имени.

@b(Пример использования:)
@begin[lang=lisp](code)
(number-to-string 90.5645) => "p90i56"
(number-to-string -90.5645) => "m90i56"
@end(code)

Package

mnas-string/print.

Source

print.lisp.

Function: split-bak (char-bag string &key omit-nulls) ¶

Package

mnas-string.

Source

core.lisp.

---