Lotus Script: взгляд изнутри

@Yokov · Регистрация: 08.02.2007

Студворк — интернет-сервис помощи студентам

Здравствуйте, уважаемые разработчики.

Краткая заметка о виртуальной машине LS и системе ее команд находится во вложении.
А здесь мы рассмотрим некоторые примеры.

Преобразования типов и встроенные функции
Встроенные функции, возвращающие строки, (Chr, Ucase, Lcase и другие) в зависимости от написания (Chr или Chr$) возвращают либо Variant of DataType 8 (String), либо String.
Посмотрим, как это выглядит "внутри".

Code
1
2
3
Dim s As String
s = Chr(13)
s = Chr$(13)

После трансляции:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Dim S As String
line #
lvalue_l S
push_long 13
Chr
Cvar
Cstr
Let
line #
lvalue_l S
push_long 13
Chr
Cstr
Let

В первом присвоении выполняется лишнее преобразование типов, чего можно избежать, используя "$" в имени функции.

Select Case
Код

Code
1
2
3
4
5
6
7
Public Sub printNumber(x As Integer)
Select Case x
Case 0: Print "zero"
Case 1: Print "one"
Case Else: Print "somethyng else"
End Select
End Sub

транслируется в

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Public Sub PRINTNUMBER(X As Integer)
line # 13
line #
goto label_3
label_0:
line # 14
stack_copy
push_int_0
=
if_false_goto label_1
pop
line #
push_str_const {zero}
Print
line #
goto label_4
label_1:
line # 15
stack_copy
push_int_1
=
if_false_goto label_2
pop
line #
push_str_const {one}
Print
line #
goto label_4
label_2:
pop
line # 16
push_str_const {somethyng else}
Print
line #
goto label_4
label_3:
line #
rvalue_pi X
goto label_0
label_4:
line # 18
end_routine
End Sub

Что здесь происходит. Переменная x сравнивается с каждым из значений в операторе Select Case последовательно. Если есть совпадение, выполянется соответствующий код и происходит переход на следующую за End Select строчку. Таким образом, если в вашем коде одна из веток Case ... встречается чаще других, ее следует поставить на первое место.

Вычисление булевых значений (операторы And, Or)
Некоторые компиляторы языков высокого уровня допускают частичное вычисление булевых значений: вычисление прекращается, как только будет известно его значение. К примеру, значение выражения False And x = 0 известро еще до вычисления значения x = 0, оно равно False. Компилятор языка Lotus Script всегда выполняет полное вычисление булевых значений, поэтому в LS невозможна проверка вида

Code
1
2
3
If Not document Is Nothyng And document.Created > cutOff Then
...
End If

Код (Text):
rvalue_p DOCUMENT
push_Nothyng
Is
Not
rvalue_object DOCUMENT
push_property CREATED
call_routine
rvalue_p CUTOFF
>=
And
if_false_goto label_0
...
label_0:
Если все таки document Is Nothyng, то вычисление document.Created вызовет ошибку.

Переменного числа аргументов не существует
Компилятор подставляет пропущенные значения.

Код (Text):
Print Instr(x, "a")
транслируется в

Код (Text):
push_1
rvalue_l X
push_str_const {b}
push_int 0
Instr
Print

Код (Text):
Dim uiWorkspace As New NotesUIWorkspace()
Call uiWorkspace.Prompt(PROMPT_OK, "Test", "OK")
транслируется в

Код (Text):
line #
lvalue_l UIWORKSPACE
push_constructor NOTESUIWORKSPACE
сall_constructor
Set
line #
rvalue_object UIWORKSPACE
push_routine PROMPT
push_num_const PROMPT_OK = 1
push_str_const {Test}
push_str_const {OK}
push_int 0
push_int 0
call_routine
pop
Расширенный синтаксис
Пришло время поставить все точки над ё в вопросе о расширенном синтаксисе. Сравним:

Код (Text):
Print document.GetItemValue("Form")(0)
Print document.Form(0)

Call document.ReplaceItemValue("Form", "test")
document.Form = "test"
и

Код (Text):
line #
rvalue_object DOCUMENT
push_lsx_routine GETITEMVALUE
push_str_const {Form}
call_routine
push_int_0
rvalue_arr
Print

line #
rvalue_object DOCUMENT
push_notes_function FORM
push_int_0
call_notes_function
Print

line #
rvalue_object DOCUMENT
push_lsx_routine REPLACEITEMVALUE
push_str_const {Form}
push_str_const {test}
call_routine
pop

line #
rvalue_object DOCUMENT
lvalue_document_field FORM
push_str_const {test}
Let

А теперь переходим к части, обозначенной подзаголовком. Ваши вопросы, господа и дамы.

@korrysk · 10.03.2015, 14:23

Сообщение от lmike

перенос кода из др. ИДЕ в БД домины

Ну, это-то понятно. А в чём конкретно проблема? Там же всего пару строк поменять...

@tmyky · 10.03.2015, 14:38

бесшовно - это когда существует некий интерфейс и ничего менять не надо ;)

Новые блоги и статьи Все статьи Все блоги /
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .

@tmyky 0 / 0 / 0 Регистрация: 23.08.2008 Сообщений: 6,252
	10.03.2015, 14:38
	бесшовно - это когда существует некий интерфейс и ничего менять не надо ;) 0