Annotation of parser3/operators.ru.txt, revision 1.263
1.249 moko 1: операторы
1.250 moko 2: ^eval(выражение)[формат] выражение, кроме обычных функций:
3: допустимы #комментарии
1.249 moko 4: работают до конца строки или закрывающейся круглой скобки
5: внутри комментария допустимы вложенные круглые скобки
1.250 moko 6: из неочевидных операторов:
7: | побитный xor
8: || логический xor
1.249 moko 9: ~ побитное отрицание
10: \ целочисленное деление 10\3=3
1.250 moko 11: def для проверки defined,
1.249 moko 12: пустая строка не defined
13: пустая таблица не defined
14: пустой hash не defined
1.250 moko 15: eq ne lt gt le ge для сравнения строк,
16: in "/dir/" для проверки, находится ли текущий документ в каталоге
1.259 moko 17: ["внутри не допустимы выражения, если надо сравнить со сложным, пусть это будет переменная]
1.250 moko 18: is 'type' для проверки типа левого операнда,
19: можно проверить, "не hash ли параметр метода?"
20: -f для проверки существования файла на диске,
21: -d для проверки существования каталога на диске,
1.259 moko 22: строка в кавычках или апострофах - строка, без кавычек или апострофов строка до ближайшего whitespace
1.250 moko 23: числовой литерал бывает 0xABC
24: приоритеты:
25: /* logical */
26: %left "!||"
27: %left "||"
28: %left "&&"
29: %left '<' '>' "<=" ">=" "lt" "gt" "le" "ge"
30: %left "==" "!=" "eq" "ne"
31: %left "is" "def" "in" "-f" "-d"
32: %left '!'
1.1 paf 33:
1.259 moko 34: /* bitwise */
1.250 moko 35: %left '!|'
36: %left '|'
37: %left '&'
38: %left '~'
1.1 paf 39:
1.259 moko 40: /* numerical */
1.250 moko 41: %left '-' '+'
42: %left '*' '/' '%' '\\'
43: %left '~' /* negation: unary */
1.259 moko 44:
45: литералы:
1.250 moko 46: true
47: false
48:
49: ^if(условие){когда да}{когда нет}
1.259 moko 50: ^if(условие1){да}[(условие2){да}[(условие2){да}[...]]]{нет}
51: количество доп. условий не ограничено (в общем elseif это :)
1.250 moko 52:
53: ^switch[значение]{^case[вариант1[;вариант2...]]{действие}^case[DEFAULT]{действие по умолчанию}}
54:
55: ^while(условие){тело}[[разделитель]|{разделитель который выполняется перед непустым очередным не первым телом}]
56:
57: ^for[i](0;4){тело}[[разделитель]|{разделитель который выполняется перед непустым очередным не первым телом}]
58:
59: ^try{
1.21 paf 60: ...
1.259 moko 61: ^throw[sql.connect[;вася[;ошибся]]] // был ^error[текст]
1.250 moko 62: ^throw[
63: $.type[sql.connect]
64: $.source[вася]
1.259 moko 65: $.comment[ошибся]
1.207 misha 66: ]
1.20 paf 67: ...
68: }{
1.207 misha 69: ^if($exception.type eq "sql"){
1.249 moko 70: $exception.handled(1|true) ^rem{флаг, что exception обработан}
1.21 paf 71: ....
72: }
1.207 misha 73: ^switch[$exception.type]{
1.21 paf 74: ^case[sql;mail]{
75: $exception.handled(1)
1.249 moko 76: код, обрабатывающий sql ошибку
1.21 paf 77: $exception.type = sql.connect
1.249 moko 78: $exception.file $exception.lineno $exception.colno [если не запрещены при компиляции]
79: $exception.source = вася
1.259 moko 80: $exception.comment = ошибся
1.21 paf 81: }
1.194 misha 82: ^case[DEFAULT]{
1.249 moko 83: код, обрабатывающий другую ошибку
1.207 misha 84: ^throw[$exception] << re-throw // DON'T! It's default behaviour!
1.21 paf 85: }
86: }
1.20 paf 87: }
1.250 moko 88:
1.259 moko 89: ^break[]
90: обрывает цикл
91: ^break(true|false)
92: обрывает цикл, если true
93:
94: ^continue[]
95: обрывает итерацию цикла
96: ^continue(true|false)
97: обрывает итерацию цикла, если true
98:
99: ^return[]
100: обрывает выполнение метода
101: ^return[value]
102: присваивает $result значение value и обрывает выполнение метода
1.250 moko 103:
104: ^untaint[[as-is|file-spec|uri|http-header|mail-header|sql|js|json|parser-code|regex|xml|html|optimized-[as-is|xml|html]]]{код}
1.1 paf 105: default as-is
1.250 moko 106:
107: ^taint[[lang]][код]
1.1 paf 108: default "just tainted, language unknown"
1.250 moko 109:
110: ^apply-taint[[lang;]текст]
111: выполняет заданные в строке преобразования, неопределенно грязное как lang, на выходе чистая строка
112:
113: ^process[[$caller.CLASS|$object|$КЛАСС:CLASS]]{строка, которая будет process-ed, как код}[
1.249 moko 114: $.main[во что переименовать @main]
115: $.file[имя файла из которого, якобы, данный текст]
1.259 moko 116: $.lineno(номер строки в файле, откуда данный текст, можно отрицательный)
1.151 paf 117: ]
1.250 moko 118: ^process..[путь][во что переименовать @main]
119: по умолчанию, методы компилируются в $self [в случае оператора, $self=$MAIN:CLASS]
120:
121: ^connect[protocol://строка соединения]]{код с ^sql[...]-ями}
1.254 moko 122: mysql://user:pass@{host[:port][, host[:port]]|[/unix/socket]}/database?
1.161 paf 123: ClientCharset=parser-charset << charset in which parser thinks client works
1.248 moko 124: charset=UTF-8&
1.1 paf 125: timeout=3&
1.210 misha 126: compress=0&
1.136 paf 127: named_pipe=1&
1.254 moko 128: multi_statements=1& allow execute more then one query in one parser :sql{} request
129: config_file=.my.cnf&
130: config_group=parser3& use group name from .my.cnf
1.136 paf 131: autocommit=1
1.249 moko 132: autocommit если выставить в 0, будет делать commit/rollback
1.1 paf 133:
1.250 moko 134: pgsql://user:pass@{host[:port]|[local]}/database?
1.163 paf 135: client_encoding=win,[to-find-out]
136: &datestyle=ISO,SQL,Postgres,European,NonEuropean=US,German,DEFAULT=ISO
137: &ClientCharset=parser-charset << charset in which parser thinks client works
1.250 moko 138:
139: odbc://DSN=dsn^;UID=user^;PWD=password^;ClientCharset=parser-charset
1.162 paf 140: ClientCharset << charset in which parser thinks client works
1.250 moko 141:
142: sqlite://DBfile?
1.230 misha 143: ClientCharset=parser-charset& << charset in which parser thinks client works
144: autocommit=1
1.1 paf 145:
1.259 moko 146: для работы connect нужно, чтобы заранее (рекомендуется в системном конфигурационном auto.p) была определена таблица
1.1 paf 147: #sql drivers
148: $SQL[
1.207 misha 149: $.drivers[^table::create{protocol driver client
1.259 moko 150: mysql $prefix/libparser3mysql.so libmysqlclient.so
151: pgsql $prefix/libparser3pgsql.so libpq.so
152: sqlite $prefix/libparser3sqlite.so sqlite3.so
1.257 moko 153: odbc parser3odbc.dll
1.1 paf 154: }]
155: ]
1.250 moko 156: ^rem{}
157: комментарий, удаляется при компиляции
158:
159: ^cache[файл](секунд){код}[{catch код}]
160: относительное задание времени
161: скешировать строку, которая получается при выполнении кода на 'секунд' секунд
162: если 0 секунд, значит не кешировать, а старый такой стереть
163: в catch коде $exception.handled[cache] ^rem{флаг, что exception обработан}
164: ^cache[файл][expires date]{код}[{catch код}]
165: абсолютное задание времени
1.259 moko 166: ^cache[файл]
167: удалить файл [не ругает, если его нет]
1.250 moko 168: ^cache(секунд)
169: ^cache[expires date]
170: сигнализирует вышестоящему ^cache "уменьши до стольких-то 'секунд'/'expires'"
171: в пределе: ^cache(0) отменить кеширование
1.259 moko 172: ^cache[]
173: выдаёт текущую expires date
1.250 moko 174:
175: у всех методов есть локальная переменная $result, если в неё что положить,
176: то это будет результатом метода, а не его тело
177:
178: у всех методов есть локальная переменная $caller, в ней лежит родительский stack frame,
179: можно записать в его локальную переменную
180:
181: use(^use или @USE) ищет и подключает файл:
182: 1. если путь начинается с /, то считается, что это путь от корня веб пространства
1.259 moko 183: 2. относительно текущей директории
184: 3. относительно строк из table $MAIN:CLASS_PATH, снизу вверх
1.250 moko 185: $MAIN:CLASS_PATH - глобальная строка или таблица с путём или путями к каталогу
186: с классами (от корня веб пространства), задавайте её в конфигурационном auto.p
187:
188: глобальная табличка $CHARSETS[$.название[имя файла]]
1.259 moko 189: задаёт какие буквы считаются какими (whitespace, letter, etc), а также их unicode
1.250 moko 190: формат: tab delimited файл, с заголовком:
191: char white-space digit hex-digit letter word lowercase unicode1 unicode2
192: A x x x a 0x0041 0xFF21
193: где char и lowercase могут быть буквами, а могут быть и 0xКОДАМИ
194: если символ имеет единственное unicode представление, равное самому символу, можно не указывать unicode
195: всегда есть кодировка UTF-8, она является кодировкой по-умолчанию для request и response
196: ВНИМАНИЕ: имя кодировки case insensitive
1.249 moko 197:
1.255 moko 198:
1.249 moko 199: синтаксис
1.250 moko 200: $имя[новое значение]
201: $имя(математическое выражение нового значения)
202: $имя{код нового значения}
1.259 moko 203: $имя whitespace или ${имя}неважно - вывод значения переменой
204: ^имя параметры - вызов
205: $имя.CLASS - класс значения
206: $имя.CLASS_NAME - имя класса
207: $имя[$.key[] () {}] - конструктор переменной-хеша с элементом $имя.key
208: ^method[$.key[] () {}] - конструктор параметра-хеша с элементом $parameter.key
1.249 moko 209: $CLASS.имя обращение к переменной класса
210:
1.259 moko 211: имя заканчивается перед: пробел tab linefeed ; ] } ) " < > + * / % & | = ! ' , ?
1.250 moko 212: т.е. можно $имя,aaaa
1.259 moko 213: но если нужно после имени символ, скажем -, то ${имя}-
1.250 moko 214:
1.249 moko 215: в выражениях + и - являются дополнительными концами имени
1.250 moko 216:
217: можно обращаться к составным объектам так: $name.subname где subname бывает:
218: строка
219: $переменная
220: строка$переменная
221: [код, вычисляющий строку]
1.255 moko 222: например: $хеш[$.возраст(88)] $достать[$.поле[возраст]] ^хеш.[$достать.поле].format{%05d}
1.249 moko 223:
1.250 moko 224: параметры := один или много параметров
1.251 moko 225: параметр :=
1.250 moko 226: (математическое выражение) вычисляется много раз внутри вызова,
227: | [код] вычисляется один раз перед вызовом,
228: | {код} вычисляется 0 или много раз внутри вызова,
1.259 moko 229: допустимы ';' чтобы сделать много параметров в одних скобках
1.250 moko 230:
231: void
232: доступны все методы, присутствующие у объекта класса string, результат как у пустой строки
233: ^void:sql{запрос без результата}{$.bind[см. table::sql]}
234:
235: int,double
1.259 moko 236: ^имя.int[]
237: целочисленное значение
238: ^имя.double[]
239: double значение
240: ^имя.bool[] ^name.bool(true|false)
241: bool значение
1.250 moko 242: ^имя.inc(на сколько +)
243: ^имя.dec(на сколько -)
244: ^имя.mul(на сколько *)
245: ^имя.div(на сколько /)
246: ^имя.mod(на сколько %)
247: ^имя.format[формат]
248: ^int/double:sql{query}[[$.limit(2) $.offset(4) $.default{0} $.bind[см. table::sql]]]
1.249 moko 249: запрос, результат которого должен быть один столбец/одна строка
1.1 paf 250:
1.250 moko 251: string
252: в выражении
253: def значение равно "не пуста?"
254: логическое/числовое значение равно попытке преобразовывания к double,
255: пустая строка тихо преобразуется к 0
1.249 moko 256: пример:
257: ^if(def $form:name) не пуста?
258: ^if($user.isAlive) истина? [автопреобразование к числу, не ноль?]
1.250 moko 259: ^string:sql{query}[[$.limit(1) $.offset(4) $.default{n/a} $.bind[см. table::sql]]]
1.249 moko 260: результат запроса должен быть один столбец/одна строка
1.257 moko 261: ^строка.int[] ^строка.int(default)
262: целочисленное значение строки, если ломается преобразование, берётся default
263: ^строка.double[] ^строка.double(default)
264: double значение строки, если ломается преобразование, берётся default
265: ^строка.bool[] ^строка.bool(default)
266: bool значение строки, если ломается преобразование, берётся default
1.250 moko 267: ^строка.format[формат] %d %.2f %02d...
268: ^строка.match[шаблон-строка|шаблон-regex][[опции поиска]] $prematch $match $postmatch $1 $2...
1.249 moko 269: опции поиска=
1.21 paf 270: i CASELESS
271: x whitespace in regex ignored
1.249 moko 272: s singleline = $ считается концом всего текста
273: m multiline = $ считается концом строки[\n], не концом всего текста
274: g найти все вхождения, а не одно
275: ' создавать столбцы prematch, match, postmatch
276: n вернуть цисло с количеством найденных совпадений, а не таблицу с результатами
277: U инвертировать смысл модификатора '?'
1.250 moko 278: ^строка.match[шаблон-строка|шаблон-regex][опции поиска]{замена}
1.249 moko 279: опции поиска+=
280: g заменить все вхождения, а не одно
1.256 moko 281: ^строка.split[разделитель|regex][[lrhva]][[название столбца для вертикального разбиения]]
1.249 moko 282: l слева направо [default]
283: r справа налево
284: h nameless таблица с ключами 0, 1, 2, ...
285: v таблица из 1 столбца 'piece' или как передадут [default]
1.256 moko 286: a массив
1.250 moko 287: ^строка.{l|r}split[разделитель] таблица из столбца $piece
1.249 moko 288: оставлен для совместимости
1.250 moko 289: ^строка.upper|lower[]
290: ^строка.length[]
291: ^строка.mid(P[;N])
1.249 moko 292: без N - "до конца строки"
1.250 moko 293: ^строка.left(N), -1 выдает всю строку
294: ^строка.right(N)
295: ^строка.pos[подстрока]
296: ^строка.pos[подстрока](позиция, с которой ищем)
1.249 moko 297: <0 = не найдено
1.250 moko 298: ^строка.replace[$таблица_подстановок_строка_на_строку]
299: ^строка.replace[$что;$на-что]
300: ^строка.save[[append;]путь]
301: ^строка.save[путь[;$.charset[в какой кодировке сохраняем] $.append(true)]]
1.257 moko 302: сохраняет строку в файл
303: ^строка.trim[start|both|end|left|right[;chars]]
304: выкидывает chars из начала/конца/и начала и конца
1.259 moko 305: default 'chars' = whitespace chars
1.257 moko 306: ^строка.trim[chars]
307: выкидывает chars из начала и конца
1.254 moko 308: ^строка.base64[ $.pad(bool) $.wrap(bool) $.url-safe(bool) ] encode
1.259 moko 309: ^string:base64[encoded[; $.pad(bool) $.strict(bool) $.url-safe(bool) ]] decode
1.250 moko 310: ^строка.idna[]
311: IDNA кодирование, поддержка кириллических доменов
312: ^string:idna[encoded]
313: IDNA декодирование, поддержка кириллических доменов
1.257 moko 314: ^строка.js-escape[]
315: кодирование для передачи в JS (%uXXXX)
316: ^string:js-unescape[escaped]
317: декодирование переданного из js
318: ^string:unescape[js|uri;escaped; $.charset[] ]
319: декодирование переданного из js или uri
320: ^строка.contains[ключ]
321: для совместимости с hash
1.255 moko 322:
1.251 moko 323: table
324: в выражении
1.249 moko 325: логическое значение равно "не пуста?"
326: числовое значение равно count[]
1.257 moko 327: $таблица.поле
328: $таблица.поле[новое значение]
329: $таблица.fields
330: из named таблицы выдаёт текущую запись как Hash
1.251 moko 331: ^table::create[[nameless]]{данные}[[$.separator[^#09] $.encloser[]]]
332: ^table::create[table][[$.limit(1) $.offset(5) $.offset[cur] $.reverse(1)]]
333: клонирует таблицу
334: reverse - в обратном порядке
335: ^table::load[[nameless;]путь[;опции]]
336: если не nameless, названия колонок берутся из первой строки
337: пустые строки, и строки в первой колонке содержащие '#', игнорируются
338: $.separator[^#09]
1.259 moko 339: $.encloser["] по-умолчанию, нет
1.251 moko 340: ^table::sql{query}[[$.limit(2) $.offset(4) $.bind[hash]]]
1.249 moko 341: bind привязывает переменные в запросе к их значениям
342: пока реализован только для oracle
343: в запросе надо написать ":имя"
1.251 moko 344: в параметре bind передать hash, из которого возьмётся (или куда запишется) значение
345: ^таблица.save[[nameless|append;]путь[;опции, см. load]]
1.257 moko 346: сохраняет таблицу в файл
1.251 moko 347: ^таблица.menu{тело}[[разделитель]]
1.257 moko 348: выполняет код тела для каждой строки таблицы
1.251 moko 349: ^таблица.foreach[позиция;значение]{тело}[[разделитель]]
1.257 moko 350: ^таблица.line[]
351: текущий ряд таблицы, начинается с 1
352: ^таблица.offset[]
353: смещение текущего ряда таблицы от начала, начинается с 0
354: ^таблица.offset[[whence]](5)
355: сдвигает whence=cur|set, без whence - это cur
356: ^таблица.count[], ^таблица.count[rows]
357: количество строк в таблице
358: ^таблица.count[columns]
359: количество столбцов таблицы
360: ^таблица.count[cells]
361: количество ячеек в текущей строке таблицы
1.251 moko 362: ^таблица.sort{{ключеделатель строка}|(ключеделатель число)}[{desc|asc}] default=asc
363: ^таблица.append{данные}
364: ^таблица.append[ $.имя столбца[значение столбца] ]
365: ^таблица.insert{данные} добавить запись на текущую позицию
366: ^таблица.insert[ $.имя столбца[значение столбца] ]
1.259 moko 367: ^таблица.delete[]
368: стирает запись с текущей позиции
1.257 moko 369: ^таблица.join[таблица][$.limit(1) $.offset(5) $.offset[cur]]
370: добавляет записи из таблицы, таблицы должны иметь одинаковую структуру
371: ^таблица.flip[]
372: выдаёт транспонированную
1.251 moko 373: ^таблица.locate[поле;значение][[$.limit(1) $.offset(5) $.offset[cur] $.reverse(1)]]
1.249 moko 374: передвигает текущую строку, если найдёт. выдаёт bool
1.251 moko 375: ^таблица.locate(логическое выражение)[[$.limit(1) $.offset(5) $.offset[cur] $.reverse(1)]]
1.249 moko 376: передвигает текущую строку, если найдёт. выдаёт bool
1.251 moko 377: ^таблица.hash{[поле]|{код}|(выражение)}[[поле значений|table поля значений]{код значения}][[$.distinct(1) $.distinct[tables] $.type[hash]]]
378: по умолчанию значением $hash.ключ будет hash в котором поля значений будут ключами
1.249 moko 379: поля значений могут быть не указаны, тогда ими будут все столбцы, включая ключевой
380: если distinct содержит true, то не будет ошибки при повторяющихся ключах
381: если distinct содержит tables, то будет создан hash из таблиц, содержащих строки с ключом
1.251 moko 382: $.type[string/table] поменять значение элемента на строку (указать одну колонку) или таблицу
1.257 moko 383: ^таблица.columns[[название столбца]]
384: таблица из одного столбца 'column' или как передадут
385: ^таблица.cells[], ^таблица.cells(лимит)
386: выдает массив ячеек текущей строки
387: ^таблица.array[]
388: возвращает массив, элементами которого являются хеши, отображающие данные каждой строки
389: ^таблица.array[колонка]
390: возвращает массив значений указанной колонки
391: ^таблица.array{код}
392: возвращает массив результатов выполнения переданного кода для каждой строки таблицы
393: ^таблица.rename[название столбца;новое навание столбца] ^таблица.rename[ $.название столбца[новое навание столбца] ]
394: переименовывает столбец или столбцы
395: $отобранное[^таблица.select(выражение)]
396: таблица из тех столбцов и строк, у которых условие совпало
1.86 paf 397: $adults[^man.select($man.age>=18)]
1.249 moko 398: ^таблица.color[цвет1;цвет2]
1.257 moko 399: чередует цвет1 и цвет2 последовательно для каждого ряда
1.1 paf 400:
1.251 moko 401: hash
402: в выражении
403: логическое значение равно "не пуст?", хеш с _default уже не пуст
404: числовое значение равно count[]
405: $хеш.ключ
1.253 moko 406: _default - специальный ключ, если задан,
1.251 moko 407: то при обращении по ключу, которому нет соответствия, выдаётся _default значение
1.259 moko 408: $хеш.fields
409: выдает $hash, чтобы класс hash был чуть больше похож на класс table
1.251 moko 410: ^hash::create[[|copy_from_hash|copy_from_hashfile]]
1.249 moko 411: создаёт новый hash, копию старого
1.251 moko 412: ^хеш.add[слагаемое]
1.249 moko 413: перезаписывает одноимённые
1.251 moko 414: ^хеш.sub[вычитаемое]
1.257 moko 415: ^хеш.union[b]
416: объединение, одноимённые остаются
417: ^хеш.intersection[b][[$.order[self|arg]]]
418: пересечение, новый хеш, order задает порядок элементов (как в исходном хеше или хеше-параметре)
1.251 moko 419: ^хеш.intersects[b] = bool
420: ^hash::sql{запрос}[[$.distinct(1) $.limit(2) $.offset(4) $.type[hash|string|table]]]
421: получается hash(ключи=значения первая колонка ответа) of hash(ключи=названия остальных колонкок ответа) или
1.255 moko 422: string=значение каждого элемента - строка, при этом надо указать ровно два столбца или
1.251 moko 423: table=значение каждого элемента - таблица
1.259 moko 424: ^хеш.keys[[название колонки с ключами]]
425: таблица из одного столбца key или как передадут
1.251 moko 426: ^хеш.count[]
427: ^хеш.foreach[key;value]{тело}[[разделитель]|{разделитель который выполняется перед непустым очередным не первым телом}]
1.257 moko 428: ^хеш.delete[ключ]
429: удалить ключ
1.263 ! moko 430: ^хеш.contains[ключ]
1.257 moko 431: существует ли в хеше ключ (bool)
1.255 moko 432: ^хеш.at[first|last][[key|value|hash]]
433: ^хеш.at([-]N)[[key|value|hash]]
1.249 moko 434: доступ к заданным элементам упорядоченного хеша
1.256 moko 435: ^хеш.set[first|last;значение]
436: ^хеш.set([-+]N)[значение]
1.257 moko 437: устанавливает значение заданного элемента упорядоченного хеша
1.256 moko 438: ^хеш.rename[старый_ключ;новый_ключ]
439: ^хеш.rename[ $.старый_ключ[новый_ключ] ... ]
1.257 moko 440: переименовывает заданные ключи хеша
1.255 moko 441: ^хеш.sort[key;value]{{ключеделатель строка}|(ключеделатель число)}[[desc|asc]] default=asc
1.254 moko 442: $обратный_хеш[^хеш.reverse[]]
1.257 moko 443: $отобранное[^хеш.select[key;value](выражение)[ $.limit(N) $.reverse(bool) $.default(bool) ]]
444: хеш из ключей и значений, для которых условие истинно
1.255 moko 445:
1.252 moko 446: hashfile
447: ^hashfile::open[filename]
1.259 moko 448: ^хешфайл.clear[]
449: забыть всё
450: $хешфайл.ключ[значение]
451: положить значение
1.252 moko 452: $хешфайл.ключ[$.value[значение] $.expires[ЗНАЧЕНИЕ]}
1.259 moko 453: положить значение до expires
454: значение поля expires может быть date, или число дней(0дней=на вечно)
1.252 moko 455: $хешфайл.ключ достать
456: ^хешфайл.delete[ключ] удалить ключ
457: ^хешфайл.delete[] удалить файлы, содержащие данные
458: ^хешфайл.hash[]
1.249 moko 459: преобразовать в обычный hash
460: попутно стирает устаревшие пары
1.252 moko 461: ^хешфайл.foreach[key;value]{тело}[[разделитель]|{разделитель который выполняется перед непустым очередным не первым телом}]
462: ^хешфайл.release[]
1.259 moko 463: записать данные и снять блокировки
464: при повторном обращении к элементам откроется автоматически
465: ^хешфайл.cleanup[]
466: пробежаться по всем элементам и удалить устаревшие.
1.132 paf 467:
1.249 moko 468: пример:
1.170 paf 469: $sessions[^hashfile::open[/db/sessions]]
470: $sid[^math:uuid[]]
471: $sessions.$sid[$.value[$uid] $.expires(1)]
472: $uid[$sessions.$sid]
1.132 paf 473:
1.255 moko 474: array
475: в выражении
476: логическое значение равно "не пуст?"
477: числовое значение равно count[]
478: $массив.индекс, $массив.(выражение)
479: возврат значения по заданному индексу
480: $массив.индекс[значение], $массив.(выражение)[значение]
481: присваивание значения по индексу
482: $массив[значение;значение;...]
483: создание массива с заданными значениями
484: ^array::create[]
485: ^array::create[значение;значение;...]
486: создание массива с заданными значениями или пустого массива
487: ^array::copy[копируемый массив или хеш с цифровыми ключами]
488: копирование массива или хеша с цифровыми ключами
489: ^массив.add[добавляемый массив или хеш с цифровыми ключами]
490: добавление элементов из другого массива или хеша с перезаписью значений у совпадающих индексов
491: ^массив.join[добавляемый массив или произвольный хеш]
492: добавление элементов другого массива или хеша в конец массива
493: ^массив.append[значение;значение;...]
494: добавление элементов в конец массива
495: ^массив.insert(индекс)[значение;значение;...]
496: вставка элементов в указанную позицию массива
497: ^массив.left(n)
498: возвращает новый массив из n первых элементов массива
499: ^массив.right(n)
500: возвращает новый массив из n последних элементов массива
501: ^массив.mid(m;n)
502: возвращает новый массив, содержащий n инициализированных элементов массива, начиная с позиции m
503: ^массив.delete(index)
504: удаление элемента массива с оставлением пустого места
505: ^массив.remove(index)
506: удаление элемента со сдвигом последующих элементов на его место
507: ^массив.push[значение]
508: добавление элемента в конец массив
509: ^массив.pop[]
510: возвращает последний элемент и удаляет его из массива
1.263 ! moko 511: ^массив.contains(индекс)
1.255 moko 512: существует ли в массиве элемент по переданому индексу (bool)
513: ^array::sql{запрос}[[ $.sparse(false) $.distinct(false) $.limit(2) $.offset(4) $.type[hash|string|table]]]
514: создание массива на основе выборки из базы данных
515: $.sparse(false), по умолчанию - создать обычный массив. Значения строк выборки последовательно добавляются в массив
516: $.sparse(true) - создать разреженный массив. Первая колонка данных должна содержать индексы,
517: по которым будут размещены значения (аналогично ^hash::sql{})
518: получается array of hash (ключи=названия остальных колонкок ответа) или
1.259 moko 519: string = значение каждого элемента - строка, при этом надо указать ровно два столбца или
520: table = значение каждого элемента - таблица
1.255 moko 521: ^массив.keys[[название колонки с ключами]]
522: таблица из одного столбца key или переданного названия с индексами инициализированных элементов массива
523: ^массив.count[]
524: количество инициализированных элементов массива
525: ^массив.count[all]
526: общее количество элементов массива, включая неинициализированные
527: ^массив.foreach[index;value]{тело}[[разделитель]|{разделитель который выполняется перед непустым очередным не первым телом}]
528: перебирает все инициализированные элементы массива
529: ^массив.for[index;value]{тело}[[разделитель]|{разделитель который выполняется перед непустым очередным не первым телом}]
530: перебирает все элементы массива
531: ^массив.at[first|last][[key|value|hash]]
532: ^массив.at([-]число)[[key|value|hash]]
533: доступ к элементу массива по порядковому номеру
534: ^массив.set[first|last][значение]
535: ^массив.set([-]число)[значение]
536: установка значения элемента массива по порядковому номеру
537: ^массив.compact[]
538: удаление неинициализированных элементов массива
539: ^массив.compact[undef]
540: удаление неинициализированных и пустых элементов массива
541: ^массив.sort[key;value]{{ключеделатель строка}|(ключеделатель число)}[[desc|asc]] default=asc
542: сортировка массива
543: $обратный_массив[^массив.reverse[]]
544: возвращает новый массив из элементов исходного в обратном порядке
545: $отобранное[^массив.select[key;value](выражение)[ $.limit(N) $.reverse(bool) ]]
546: отбор элементов массива, для которых условие истинно
547:
1.261 moko 548: date
549: время типа date можно использовать в выражениях, подставляет количество дней с epoch [1 января 1970 (UTC)], дробное
550: строковое значение в местном времени, численное в UTC, диапазон от 0000-00-00 00:00:00 до 9999-12-31 23:59:59
551: по умолчанию используется установленная средствами OS временная зона
552:
553: ^date::now[]
554: ^date::now(смещение в днях)
555: выдаёт сейчас+смещение
556: ^date::today[]
557: дата на 00:00:00 текущего дня
558: ^date::today(целочисленное смещение в днях)
559: дата на 00:00:00 текущего дня+смещение
560: ^date::create(дней с epoch)
561: ^date::create(year;month[;day[;hour[;minute[;second[;TZ]]]]])
562: ^date::create[дата в формате %Y-%m-%d %H:%M:%S]
563: для удобного создания по значению из базы
564: формат1: %Y[-%m[-%d[ %H[:%M[:%S]]]]]
565: формат2: %H:%M[:%S]
566: ^date::create[дата в формате %Y-%m-%dT%H:%M[:%S]TZ]
567: для создания по значению в формате ISO 8601
568: формат TZ: Z(UTC) или +-hour[:minute] (смещение от UTC)
569: ^date::unix-timestamp()
570: ^дата.unix-timestamp[]
571: $дата.year month day hour minute second weekday yearday(0...) daylightsaving TZ weekyear
572: TZ="" << локальная зона
573: $дата.year month day hour minute second можно задать новое значение, остальные read only
574: ^дата.double[] ^дата.int[]
575: количество дней с epoch [1 января 1970 (UTC)], дробное или целое
576: ^дата.roll[year|month|day](+-смещение)
577: сдвигает дату
578: ^дата.roll[TZ;Новая зона]
579: говорит, что дата в таком-то часовом поясе: влияет на .hour & Co
580: ^date:roll[TZ;Новая зона]
581: говорит, что по умолчанию все даты в таком-то часовом поясе
582: ^дата.sql-string[[datetime|date|time]]
583: datetime или без параметра - %Y-%m-%d %H:%M:%S
584: date - %Y-%m-%d
585: time - %H:%M:%S
586: where published='^дата.sql-string[]'
587: ^date:calendar[rus|eng](год;месяц)
588: выдаёт неименованную таблицу, столбцы: 0..6, week, year
589: ^date:calendar[rus|eng](год;месяц;день)
590: выдаёт именнованную таблицу, столбцы: year, month, day, weekday
591: ^date:last-day(год;месяц)
592: вернёт последний день месяца
593: ^дата.last-day[]
594: вернёт последний день месяца $дата
595: ^дата.gmt-string[]
596: Fri, 23 Mar 2001 09:32:23 GMT
597: ^дата.iso-string[]
598: 2001-03-23T12:32:23+03
599:
600: file
601: $файл_из_post.name
602: $файл_из_post.size
603: $файлt_из_post.text
604: ^файл.save[text|binary;имя файла[;$.charset[в какой кодировке сохраняем]]]
605: ^file:delete[имя файла]
606: ^file:find[имя файла][{когда не нашли}]
607: ^file:list[путь[;шаблон-строка|шаблон-regex]]
608: table с колонками name dir
609: ^file:list[путь;$.filter[шаблон-строка|шаблон-regex] $.stat(true)]
610: table с колонками name dir size [mca]date
611: ^file::load[text|binary;big.zip[;domain_press_release_2001_03_01.zip][;опции]]
612: ^file::create[text|binary;имя;data]
613: ^file::create[text|binary;имя;data[;$.charset[кодировка букв в создаваемом файле] $.content-type[...]]]
614: ^file::create[string-or-file-content[;$.name[имя] $.mode[text|binary] $.content-type[...] $.charset[...]]]
615: $файл_который_был_loaded.size
616: $файл_который_был_loaded_или_created.mode = text/binary
617: ^file::stat[имя файла]
618: $файл_который_был_stated_или_loaded.size .adate .mdate .cdate
619: ^file::cgi[[text|binary;]имя файла[;env hash +options[;1cmd[;2line[;3ar[;4g[;5s]]]]]]]
620: любой аргумент может быть строкой или массивом строк
621: возвращённый заголовок рассыпается на $поля
622: $status
623: $stderr
624: ^file::exec[[text|binary;]имя файла[;env hash[;1cmd[;2line[;3ar[;4g[;5s;...under unix max 50 args]]]]]]]
625: любой аргумент может быть строкой или массивом строк
626: options:
627: $.stdin[текст|файл] если пусто, отключается автоматическое пересовывание данных HTTP-POST
628: ^file:move[старое имя файла;новое имя файла]
629: можно переименовывать и двигать каталоги[win32: но не через границу дисков]
630: каталоги для dest создаются с правами 775
631: каталог старого файла стирается, если после move он остаётся пуст
632: ^file:copy[имя файла;имя копии файла[; $.append(1) ]]
633: можно копировать только файлы
634: ^file:lock[имя файла]{код}
635: файл при необходимости создаётся
636: блокируется
637: выполняется код
638: разблокируется
639: ^file:dirname[/a/some.tar.gz|file]=/a (работает аналогично комманде *nix)
640: ^file:dirname[/a/b/|file]=/a (работает аналогично комманде *nix)
641: ^file:basename[/a/some.tar.gz|file]=some.tar.gz (работает аналогично комманде *nix)
642: ^file:basename[/a/b/|file]=b (работает аналогично комманде *nix)
643: ^file:justname[/a/some.tar.gz|file]=some.tar
644: ^file:justext[/a/some.tar.gz|file]=gz
645: /some/page.html: ^file:fullpath[a.gif] => /some/a.gif
646: ^файл.sql-string[]
647: внутри ^connect даст правильно escaped строку, которую можно в запрос отдать
648: ^file::sql{query}[[ $.name[имя_файла_для_download] $.content-type[пользовательский content-type] ]]
649: результат запроса должен быть "одна строка".
650: колонки:
651: первая колонка - данные
652: если есть вторая - это имя файла
653: если есть третья - это content-type
654: ^файл.base64[ $.pad(bool) $.wrap(bool) $.url-safe(bool) ]
655: encode
656: ^file:base64[имя файла[; $.pad(bool) $.wrap(bool) $.url-safe(bool) ]]
657: encode
658: ^file::base64[encoded string[; $.pad(bool) $.strict(bool) url-safe(bool) ]]
659: decode
660: ^file::base64[mode;имя файла;encoded string[; $.content-type[...] $.pad(bool) $.strict(bool) url-safe(bool) ]]
661: decode
662: ^file:crc32[имя файла]
663: вычисляет crc32 файла с указанным именем
664: ^файл.crc32[]
665: вычисляет crc32 объекта
666: ^файл.md5[], ^file:md5[имя файла]
667: выдает digest файла, длиной 16 байт в виде строки,
668: где байты digest выданы в hex виде, впритык, в нижнем регистре
669:
670: image
671: $картинка[^image::measure[DATA[; $.exif(bool) $.xmp(bool) $.xmp-charset[] $.video(bool) ]]]
672: смотрит на .ext case insensitive,
673: умеет мерить gif, jpg, tiff, bmp, webp и mp4 (mov)
674: $картинка.exif << hash после measure jpeg с exif информацией и $.exif(true)
675: $image.exif.DateTime & co
676: [полный список см. https://exiftool.org/TagNames/EXIF.html]
677: числа типа int/double,
678: даты типа dateб
679: перечисления в виде hash с ключами 0..count-1
680: $картинка.src .width .height
681: $картинка.line-width число=ширина линий
682: $картинка.line-style строка=стиль линий '*** * '='*** * *** * *** * '
683: ^картинка.html[[hash]]
684: <img ...>
685: ^image::load[фон.gif]
686: только gif пока
687: ^image::create(размер X;размер Y[;цвет фона default белый]])
688: ^картинка.line(x0;y0;x1;y1;0xffFFff)
689: ^картинка.fill(x;y;0xffFFff)
690: ^картинка.rectangle(x0;y0;x1;y1;0xffFFff)
691: ^картинка.bar(x0;y0;x1;y1;0xffFFff)
692: ^картинка.replace(hex-цвет1;hex-цвет2)[table x:y вершины_многоугольника]
693: ^картинка.polyline(цвет)[table x:y точки]
694: ^картинка.polygon(цвет)[table x:y вершины_многоугольника]
695: ^картинка.polybar(цвет)[table x;y вершины_многоугольника]
696: ^картинка.font[набор_букв;имя_файла_шрифта.gif][(ширина_пробела[;ширина_символа])]
697: высота символа = высота картинки/количество букв в наборе
698: если указана ширина_символа, то monospaced, если 0, то ширина_символа = ширине gif
699: ^картинка.font[набор_букв;имя_файла_шрифта.gif;
700: $.space(ширина_пробела) // по умолчанию = ширине gif
701: $.width(ширина_символа) // см. выше, по умолчанию proportional
702: $.spacing(расстояние между буквами) // по умолчанию = 1
703: ]
704: ^картинка.text(x;y)[текст_надписи] AS_IS
705: ^картинка.length[текст_надписи] AS_IS
706: ^картинка.gif[возможно, имя файла]
707: кодирует в FILE с content-type=image/gif имя файла будет использовано при $response:download
708: ^картинка.arc(center x;center y;width;height;start in degrees;end in degrees;color)
709: ^картинка.sector(center x;center y;width;height;start in degrees;end in degrees;color)
710: ^картинка.circle(center x;center y;r;color)
711: ^картинка.copy[source](src x;src y;src w;src h;dst x;dst y[;dest w[;dest h[;tolerance]]])
712: при заданных dest_w/dest_h делает изменение размера кусочка
713: при уменьшении делает resample
714: годится только для уменьшения простой[малоцветной] дребедени вроде графиков/pie,
715: для thumbnais не годится
716: при не указанном dest_h сохраняет aspect ratio
717: tolerance - некое число[квадрат расстояния в RGB пространстве до искомого цвета],
718: определяющее прожорливость выделялки цветов из палитры [default=150]
719: меньше - точнее приближает цвета, но они быстро кончаются
720: больше - неточно приближает цвет, но большей части хватит
721: ^картинка.pixel(x;y)[(color)]
722: узнать или задать цвет пиксела
723:
724: regex
725: в выражении
726: логическое значение всегда равно true
727: числовое значение равно количеству байт скомпилированного шаблона
728: ^regex::create[шаблон-строка|regex][[опции поиска]]
729: ^шаблон.size[]
730: количество байт скомпилированного шаблона
731: если значение очень большое - стоит почитать документацию по pcre и, возможно, переписать шаблон
732: ^шаблон.study_size[]
733: размер study-структуры. если==0 - шаблон не может быть "изучен"
734: $шаблон.pattern
735: текст шаблона
736: $шаблон.options
737: строка с исходным текстом опций
738:
739: console
740: $console:timeout
741: $console:line
742: read/write строку
743:
744: cookie
745: $cookie:имя считать старое или свежезаданное
746: $cookie:имя[значение] на 90 дней
747: $cookie:имя[$.value[значение] $.expires[ЗНАЧЕНИЕ] $.secure(true) $.domain[имя домена] $.httponly(true)]
748: значение поля expires может быть 'session', date, или число дней (0дней=session)
749: если дата, она будет преобразована к формату "Sun, 25-Aug-2002 12:03:45 GMT"
750: $cookie:fields
751: hash со всеми cookies
752:
1.262 moko 753: curl
754: ^curl:load[[
755: $.url[http://URL]
756: $.timeout(N)
757: $.ssl_verifypeer(0)
758: $.mode[text|binary] тип создаваемого файла
759: ]]
760: загружает файл с удалённого сервера, можно вызывать многократно в одной сессии,
761: можно указать любую опцию libcurl, имена опций строчными буквами без префикса CURLOPT_
762: ^curl:options[[
763: $.library[libcurl.so.4]
764: $.charset[UTF-8]
765: ...
766: ]]
767: последующие вызовы ^curl:load наследуют заданные опции, путь к libcurl задаётся до начала использования curl
768: ^curl:session{код}
769: создаёт cURL-сессию, можно задать общие опции, сделать несколько загрузок
770: ^curl:info[название], ^curl:info[]
771: информация о последнем запросе (значение или хеш)
772: ^curl:version[]
773: версия используемой библиотеки cURL
774:
1.261 moko 775: env
776: $env:переменная
777: $env:fields хеш с переменными окружения
778: $env:PARSER_VERSION версия парсера
779:
1.252 moko 780: form
1.249 moko 781: [берётся первый элемент из одноимённых из GET, потом первый из POST]
1.257 moko 782: $form:поле
783: string/file
784: $form:nameless
785: поле со значением поля без имени "?value&...", "...&value&...", "...&value"
786: $form:qtail
787: строка со значением текста после второго "?xxxxx", если там не было ',' [imap]
788: $form:fields
789: hash со всеми полями формы
790: $form:elements.поле
791: array со всеми значениями поля - как строковыми, так и файловыми
792: $form:tables.поле
793: table с одним столбцом "field" со значениями "поля", для множественных значений
794: $form:files.поле
795: hash со значениями полей типа файл, ключи - 0, 1, ..., значение - файл
796: $form:imap
797: хеш с ключами 'x' и 'y' со значением ?1,2 приписки при использовании server-site image map
1.1 paf 798:
1.261 moko 799: inet
800: ^inet:ntoa(long)
801: ^inet:aton[IP]
802: ^inet:name2ip[name][[ $.ipv[4|6|any] $.table(true) ]]
803: прямое преобразование имени в IP адрес
804: ^inet:ip2name[ip][ $.ipv[4|6|any] ]]
805: обратное преобразование из IP адреса в имя
806: ^inet:hostname[]
807: имя хоста
1.252 moko 808:
1.261 moko 809: json
810: ^json:parse[-json-строка-[;
811: $.depth(максимальная глубина, default == 19)
812: $.double(false) отключить встроенный парсинг чисел с плавающей точкой (по умолчанию включен)
813: в этом случае они попадут в результирующий объект как строки
814: $.int(false) отключить встроенный парсинг целых чисел (по умолчанию включен)
815: в этом случае они попадут в результирующий объект как строки
816: $.distinct[first|last|all] как будет происходить разбор дублирующихся ключей у объектов
817: first - будет оставлен первый встретившийся элемент
818: last - будет оставлен последний встретившийся элемент
819: all - будут оставлены все элементы. при этом элементы, начиная со 2
820: получат числовые суффиксы (key_2 итд)
821: по умолчанию дублирующиеся ключи приведут к exception
822: $.object[method-junction] пользовательский метод[ключ;объект], которому будут передаваться все разобранные
823: объекты и ключи объекта, метод возвращает новый объект
824: $.array[method-junction] пользовательский метод, которому будут передаваться массивы
825: $.taint[язык преобразования] задаёт язык преобразования для всех строк результата
826: ]]
827: парсит json-строку в хеш
1.252 moko 828:
1.261 moko 829: ^json:string[system or user object[;
830: $.skip-unknown(false) отключить exception и выдавать 'null' при сериализации объектов с типами
831: отличных от void, bool, string, int, double, date, table, hash и file
832: $.indent(true) форматировать результирующую строку табуляциями по глубине вложенности
833: $.date[sql-string|gmt-string|iso-string|unix-timestamp]
834: формат вывода даты, по умолчанию -- sql-string
835: $.table[object|array|compact]
836: формат вывода таблицы, по умолчанию -- object
837: object: [{"c1":"v11","c2":"v12",...},{"c1":"v21","c2":"v22",...},...]
838: array: [["c1","c2",...] || null (for nameless),["v11","v12",...],...]
839: compact: ["v11" || ["v11","v12",...],...]
840: $.file[text|base64|stat] вывести тело файла в указанном виде (по умолчание тело файла
841: не попадает в output)
842: $.xdoc[hash] параметры преобразования xdoc в строку (как в ^xdoc.string[])
843: $.тип[method-junction] любой тип можно вывести с помощью пользовательского метода, который
844: должен принимать 3 параметра: ключ, объект данного типа и опции
845: вызова ^json:string[]
846: $._default[метод] пользовательский метод, будет вызываться для вывода всех объектов пользовательских
847: классов. Метод должен принимать 3 параметра: ключ, объект и опции вызова.
848: $._default[имя метода] имя пользователького метода, при его наличии он будет вызван для сериализации
849: $.void[null|string] неопределенное значение будет выдано в виде null (по умолчанию)
850: или пустой строки
851: ]]
852: сериализует системный или пользовательский объект в json-строку
1.220 misha 853:
1.252 moko 854: mail
855: $mail.received=MESSAGE:
1.51 paf 856: .from
857: .reply-to
858: .subject
1.249 moko 859: .date класса date
1.51 paf 860: .message-id
861: .raw[
1.249 moko 862: .СЫРОЕ_ПОЛЬЗОВАТЕЛЬСКОЕ-ПОЛЕ-ЗАГОЛОВКА
1.51 paf 863: ]
1.249 moko 864: $.{text|html|file#}[ << нумеруется как и в mail:send (text, text2, ...) (file, file2, ...)
1.51 paf 865: $.content-type[
866: $.value[{text|...|x-unknown}/{plain|html|...|x-unknown}]
1.249 moko 867: [$.charset[windows-1251]] << в каком пришло, сейчас уже перекодировано
868: $.ПОЛЬЗОВАТЕЛЬСКИЙ-ПАРАМЕТР-ЗАГОЛОВКА
1.51 paf 869: ]
870: $.description
871: $.content-id
872: $.content-md5
873: $.content-location
874: .raw[
1.249 moko 875: .СЫРОЕ_ПОЛЬЗОВАТЕЛЬСКОЕ-ПОЛЕ-ЗАГОЛОВКА
1.51 paf 876: ]
1.249 moko 877: $.value[строка|FILE]
1.51 paf 878: ]
1.52 paf 879: $.message#[MESSAGE] (message, message2, ...)
1.51 paf 880:
1.252 moko 881: ^mail:send[
1.230 misha 882: $.options[-odd]
1.249 moko 883: unix: строка, которая будет добавлена к команде запуска sendmail
884: -odd означает "быстро поставь в очередь без проверки email"
885: win32: игнорируется
1.252 moko 886: $.charset[кодировка заголовка и текстовых блоков]
887: $.any-header-field
1.51 paf 888: $.text[string]
889: $.text[
1.252 moko 890: $.any-header-field
1.51 paf 891: $.value[string]
892: ]
893: $.html{string}
894: $.html[
1.252 moko 895: $.any-header-field
1.51 paf 896: $.value{string}
897: ]
898: $.file#[FILE]
899: $.file#[
1.252 moko 900: $.any-header-field
1.51 paf 901: $value[FILE]
902: ]
903: ]
1.262 moko 904: если charset указан, письмо перекодируется в этот charset
905: content-type.charset не влияет на перекодирование
906: после имени части может идти # число
1.252 moko 907:
908: ^mail:send[
909: # по-умолчанию, совпадает с source encoding.
910: # задаёт кодировку body
911: $.charset[windows-1251]
912: # нет умолчания
913: $.content-type[$.value[text/plain] $.charset[windows-1251]]
914: $.from["вася" <vasya@design.ru>]
915: $.to["петя" <petya@design.ru>]
1.259 moko 916: $.subject[тема]
1.252 moko 917: $.body[
918: слова
1.51 paf 919: ]
1.252 moko 920: ]
921:
922: ^mail:send[$.header-field[] $.charset[кодировка письма] $.body[когда body не строка, а hash, отсылается multipart письмо]]
923: если charset указан, письмо перекодируется в этот charset
924: content-type.charset не влияет на перекодирование
925: после имени части может идти целое число, части пойдут в порядке чисел.
926: если body указан строкой, то это текст письма, никаких вложений.
927: если body указан hash, то это части, будут собраны текстовые блоки, затем вложения
928: это старый формат, поддерживается для обратной совместимости
929: если имя части начинается со слова text, то это текстовый блок.
1.259 moko 930: если имя части начинается со слова file, то это вложение, формат задания:
1.253 moko 931: $file[$.format[uue|base64] $.value[DATA] $.name[user-file-name]]
1.252 moko 932: важно: при multipart не указывать content-type
933:
1.1 paf 934: ^mail:send[
1.259 moko 935: # по-умолчанию, совпадает с source encoding
1.249 moko 936: # задаёт кодировку body
1.252 moko 937: $.charset[windows-1251]
1.249 moko 938: # нет умолчания
1.1 paf 939: $.content-type[$.value[text/plain] $.charset[windows-1251]]
1.249 moko 940: $.from["вася" <vasya@design.ru>]
941: $.to["петя" <petya@design.ru>]
1.259 moko 942: $.subject[тема]
1.1 paf 943: $.body[
1.249 moko 944: слова
1.1 paf 945: ]
946: ]
1.252 moko 947:
1.1 paf 948: ^mail:send[
1.249 moko 949: $.from["вася" <vasya@design.ru>]
950: $.to["петя" <petya@design.ru>]
1.259 moko 951: $.subject[тема]
1.1 paf 952: $.body[
953: $.text[
1.249 moko 954: # задаёт кодировку body
1.1 paf 955: $.charset[windows-1251]
1.249 moko 956: # нет умолчания
1.1 paf 957: $.content-type[$.value[text/plain] $.charset[windows-1251]]
1.249 moko 958: $.body[слова]
1.1 paf 959: ]
1.252 moko 960: # для удобства можно указать только одну часть, при этом не будет multipart
1.189 misha 961: $.file[
1.259 moko 962: $.value[^file::load[my beloved.doc]]
963: $.name[my beloved.doc]
964: $.format[base64]
1.1 paf 965: ]
1.189 misha 966: $.file2[
1.259 moko 967: $.value[^file::load[my beloved.doc]]
968: $.name[my beloved.doc]
969: ]
1.1 paf 970: ]
971: ]
1.252 moko 972: для отправки под unix используется программа с параметрами, задаваемая
1.249 moko 973: $MAIL.sendmail[команда]
1.252 moko 974: если не будет задана, проверяется, доступна ли /usr/sbin/sendmail или
975: /usr/lib/sendmail и, если доступна, то запускается с параметром "-t".
976:
1.259 moko 977: под Windows используется SMTP протокол, сервер задаётся
1.21 paf 978: $MAIL.SMTP[smtp.domain.ru]
1.1 paf 979:
1.253 moko 980: math
981: $math:PI
982: ^math:round floor ceiling
983: ^math:trunc frac
984: ^math:abs sign
1.256 moko 985: ^math:exp log log10
986: ^math:sin asin cos acos tan atan atan2
1.253 moko 987: ^math:degrees radians
988: ^math:pow sqrt
989: ^math:random(ширина диапазона)
1.257 moko 990: ^math:convert[number|файл](base-from;base-to)[[ $.format[string|file] ]]
991: ^math:convert[number|файл][алфавит](base-to)[[ $.format[string|file] ]]
992: ^math:convert[number|файл](base-from)[алфавит][[ $.format[string|file] ]]
993: преобразует строку или файл с числом из одной системы исчисления в другую
994: система счисления может быть задана алфавитом, числом от 2 до 16 (эквивалентно алфавиту 0123456789ABCDEF), числом 256 (все ASCII символы)
1.254 moko 995: ^math:uuid[ $.lower(bool) $.solid(bool) ]
1.113 paf 996: 22C0983C-E26E-4169-BD07-77ECE9405BA5
1.249 moko 997: win32: пользуется cryptapi
1.253 moko 998: unix: пользуется /dev/urandom,
999: если нет, /dev/random,
1000: если нет, rand
1.256 moko 1001: ^math:uuid7[ $.lower(bool) $.solid(bool) ]
1.261 moko 1002: 0193CBF0-7898-7000-A391-AC513CC15658
1003: https://www.rfc-editor.org/rfc/rfc9562.html#name-uuid-version-7
1004: ^math:uid64[ $.lower(bool) ]
1005: BA39BAB6340BE370
1006: ^math:md5[string]
1007: выдает digest строки, длиной 16 байт в виде строки,
1008: где байты digest выданы в hex виде, впритык, в нижнем регистре
1009: ^math:crypt[password;salt]
1010: salt prefix $apr1$ вызывает встроенный MD5 алгоритм,
1011: если нет тела salt, оно создаётся случайным
1012: $1$ вызывает MD5 алгоритм функции OS 'crypt', если поддерживается.
1013: другие salt читайте документацию по функции OS 'crypt'.
1014: ^math:crc32[string]
1015: вычисляет crc32 строки
1016: ^math:sha1[string]
1017: ^math:digest[[md5|sha1|sha256|sha512];строка или файл][[ $.format[hex|base64|file] $.hmac[ключ строка|ключ файл] ]]
1018: объединяет в себе возможность работы с разными алгоритмами криптографического хеширования.
1019: $.hmac[ключ] для проверки целостности переданных данных
1020:
1021: memory
1022: ^memory:compact[]
1023: собрать мусор, освободив место под новые данные (предупреждение: память процесса никогда не освобождается)
1024: полезно делать перед XSL transform
1025: ^memory:auto-compact(частота сборки)
1026: задает режим автоматической сборки мусора, от 0 (выключена) до 5 (максимальная)
1027:
1028: reflection
1029: ^reflection:create[класс;конструктор[;пара[;мет[;ры]]]]
1030: вызывает указанный конструктор класса (не более 100 параметров)
1031: ^reflection:create[ $.class[name] $.constructor[name] $.arguments[ $.1[па] $.2[рам] $.3[етры] ] ]
1032: вызывает указанный конструктор класса
1033: ^reflection:classes[]
1034: хеш со всеми классами. ключ = имя класса, значение бывает methoded (класс с методами) или void
1035: ^reflection:class[объект]
1036: класс переданного объекта
1037: ^reflection:class_name[объект]
1038: имя класса переданного объекта
1039: ^reflection:base[объект]
1040: родительский класс переданного объекта
1041: ^reflection:base_name[объект]
1042: имя родительского класса переданного объекта
1043: ^reflection:class_by_name[имя класса]
1044: получение класса по имени
1045: ^reflection:class_alias[имя класса;новое имя класса]
1046: задает псевдоним для указанного класса
1047: ^reflection:def[class;имя класса]
1048: проверка класса на существование
1049: ^reflection:methods[класс]
1050: хеш со списком методов указанного класса, значения - строки 'native' или 'parser'
1051: ^reflection:method[класс или объект;имя метода]
1052: возвращает junction-method класса или объекта
1053: ^reflection:filename[объект или класс или метод]
1054: возвращает имя файла, где определен объект, класс или метод
1055: ^reflection:fields[класс или объект]
1056: хеш со списком статических полей указанного класса или динамических полей указанного объекта
1057: ^reflection:fields_reference[объект]
1058: редактируемый хеш динамических полей указанного объекта
1059: ^reflection:field[класс или объект;имя поля]
1060: возвращает значение указанного поля класса или объекта. getter-ы игнорируются.
1061: ^reflection:copy[источник;назначение]
1062: копирует поля из одного объекта или класса в другой
1063: ^reflection:uid[класс или объект]
1064: возвращает идентификатор объекта или класса
1065: ^reflection:method_info[класс;метод]
1066: хеш с параметрами указанного метода класса
1067: $.inherited[класс] имя класса, где метод был определён (возвращается только если метод был определён в предке)
1068: $.overridden[класс] имя класса, где метод был определён (возвращается только если метод был определён в предке)
1069: для native классов возвращается хеш:
1070: .min_params(минимально необходимое число параметров)
1071: .max_params(максимально возможное число параметров)
1072: .call_type[dynamic|static|any]
1073: для parser классов возвращается хеш:
1074: ключ - номер параметра (0, 1, ...), значение - имя параметра
1075: ^reflection:dynamical[[object or class, caller if absent]]
1076: возвращает true, если метод был вызван из динамического контекста при передаче
1077: параметра возвращает true, если передан динамический объект, false если класс
1078: ^reflection:delete[класс или объект;имя переменной]
1079: удаляет переменную с указанным именем в указанном классе или объекте
1080: ^reflection:is[имя элемента;имя класса][[контекст]]
1081: аналог оператора 'is', позволяющий определить, является ли элемент кодом.
1082: ^reflection:tainting[[язык|tainted|optimized];строка]
1083: строка, в которой каждому символу исходной строки соотвествует символ с кодом преобразования
1084: ^reflection:stack[ $.args(false/true) $.locals(false/true) $.limit(n) $.offset(o)]
1085: текущее состояние стека вызовов методов на парсере
1086: ^reflection:mixin[источник; $.to[получатель] $.name[имя] $.methods(true/false) $.fields(true/false) $.overwrite(false/true) ]
1087: копирует в класс методы и поля другого класса
1.253 moko 1088:
1.261 moko 1089: request
1090: $request:query
1091: $request:uri
1092: $request:document-root
1093: каталог, относительно которого считаются пути в parser, по-умолчанию = $env:DOCUMENT_ROOT
1094: $request:argv
1095: hash с параметрами коммандной строки. ключи 0, 1, ... [0 -- имя обрабатываемого файла]
1096: $request:charset
1097: кодировка исходного документа
1098: используется при upper/lower и match[][i]
1099: ПРЕДУПРЕЖДЕНИЕ: необходимо задать $request/response:charset до использования полей класса form
1100: $request:method
1101: метод запроса (GET|POST|PUT)
1102: $request:body
1103: тело POST-запроса в виде текста
1104: $request:body-file
1105: тело POST-запроса в виде файла
1106: $request:body-charset
1107: кодировка POST-запроса
1108: $request:headers
1109: хеш с заголовками запроса (без префикса HTTP_)
1.1 paf 1110:
1.261 moko 1111: response
1112: $response:поле[значение] и можно считать старое - $response:поле
1113: значение может быть string а может быть hash:
1114: $value[abc] field: {abc}<<часть
1115: $attribute[zzz] field: abc; {attribute=zzz}<<часть
1116: значение поля или атрибута может быть string или date
1117: если дата, она будет преобразована к формату "Sun, 25-Aug-2002 12:03:45 GMT"
1118: $response:headers
1119: накопленные поля
1120: $response:body[DATA]
1121: замещает стандартный ответ
1122: $response:download[DATA]
1123: замещает стандартный ответ, выставляет флаг, заставляющий browser предложить download
1124: $response:status
1125: ^response:clear[] забыть все заданные response поля
1126: $response:charset
1127: кодировка клиента т.е. та,
1128: 1) из которой будут перекодированы $form:поля после забирания из browser'а
1129: 2) в которую документ будет перекодирован перед отдаванием в browser
1130: 3) в которую будет перекодирован текст языка uri
1131: не добавляет к content-type ничего, если хочется, это надо сделать вручную
1132: ПРЕДУПРЕЖДЕНИЕ: необходимо задать $request/response:charset до использования полей класса form
1.252 moko 1133:
1.261 moko 1134: status
1135: $status:sql
1136: cache table
1137: url time
1138: url time
1139: url time
1140: $status:stylesheet
1141: cache table
1142: file time
1143: file time
1144: file time
1145: $status:rusage hash
1146: utime user time used
1147: stime system time used
1148: maxrss max resident set size
1149: ixrss integral shared text memory size
1150: idrss integral unshared data size
1151: isrss integral unshared stack size
1152: tv_sec
1153: tv_usec
1154: $s[$status:rusage]
1155: ^s.tv_sec.format[%.0f].^s.tv_usec.format[%06.0f]
1156: $status:memory hash
1157: used
1158: includes some pages that were allocated but never written
1159: free
1160: ever_allocated_since_compact
1161: return the number of bytes allocated since the last collection
1162: ever_allocated_since_start
1163: return the total number of bytes [EVER(c)PAF] allocated in this process,
1164: never decreases
1165: $status:pid
1166: process id
1167: $status:tid
1168: thread id
1169: $status:mode
1170: режим работы, cgi|console|mail|httpd|apache|isapi
1171: $status:log-filename
1172: путь к журналу ошибок parser3.log
1.205 misha 1173:
1.1 paf 1174: xdoc(xnode)
1.253 moko 1175: $xdoc.search-namespaces hash, where keys=prefixes, values=urls
1176:
1.1 paf 1177: DOM1 attributes:
1.253 moko 1178: readonly attribute DocumentType doctype
1179: readonly attribute Element documentElement
1.1 paf 1180:
1181: DOM1 methods:
1.253 moko 1182: Element createElement(in DOMString tagName)
1183: DocumentFragment createDocumentFragment()
1184: Text createTextNode(in DOMString data)
1185: Comment createComment(in DOMString data)
1186: CDATASection createCDATASection(in DOMString data)
1187: ProcessingInstruction createProcessingInstruction(in DOMString target,in DOMString data)
1188: Attr createAttribute(in DOMString name)
1189: EntityReference createEntityReference(in DOMString name)
1190: NodeList getElementsByTagName(in DOMString tagname)
1.1 paf 1191:
1192: DOM2 some methods:
1.253 moko 1193: ^.getElementById[elementId] = xnode
1194: The DOM implementation must have information that says which attributes are of type ID.
1195: Attributes with the name "ID" are not of type ID unless so defined.
1196: Implementations that do not know whether attributes are of type ID or not
1.1 paf 1197: are expected to return null.
1198:
1.259 moko 1199: кодировка строк и умолчание для $.encoding равно текущей кодировке выходной страницы, $response:charset
1200:
1.1 paf 1201: ::sql{...}
1.253 moko 1202: ::create[[URI]]{<?xml?><string/>} старое имя 'set'
1203: ::create[[URI]][qualifiedName]
1.56 paf 1204: URI default = disk path to requested document
1.249 moko 1205: для каталогов конечный / обязателен
1.253 moko 1206: ::create[file] can be usable:
1207: $f[^file::load[binary;http://;some HTTP options here...]]
1208: $x[^xdoc::create[$f]]
1209: ::load[file.xml[;опции]]
1210: .transform[rules.xsl|xdoc][[params hash]] выдаёт dom
1.250 moko 1211: шаблон кешируется, кеш обновляется при изменении даты файла шаблона,
1.249 moko 1212: или изменении даты файла "имя шаблона.stamp"[проверка даты stamp приоритетнее]
1.1 paf 1213: <xsl:output
1.253 moko 1214: method = "xml" | "html" | "text"
1.259 moko 1215: version = nmtoken
1216: encoding = string
1.253 moko 1217: omit-xml-declaration = "yes" | "no"
1218: standalone = "yes" | "no"
1.259 moko 1219: cdata-section-elements = qnames
1.253 moko 1220: indent = "yes" | "no"
1.259 moko 1221: media-type = string />
1.253 moko 1222: параметры передаются как есть, не xpath выражения
1223:
1224: .string[[output options]]
1225: .save[file.xml[;output options]] с шапкой
1226: .file[[output options]] = file
1227: output options идентичны атрибутам xsl:output
1.249 moko 1228: [исключение: игнорируется cdata-section-elements, нужно будет, сделаю]
1229: выдаёт media-type при подстановке $response:body[сюда]
1.1 paf 1230:
1.253 moko 1231: если на документ ссылаются так:
1232: parser://method/param/to/that/method
1233: то в качестве документа используется ^MAIN:method[/param/to/that/method]
1234: [примечание: в параметр всегда приходит лидирующая /, даже, если параметров вообще не было]
1.144 paf 1235:
1.253 moko 1236: xnode
1.1 paf 1237: DOM1 attributes:
1.253 moko 1238: $node.nodeName
1239: $node.nodeValue
1240: read
1241: write
1242: $node.nodeType = int
1243: ELEMENT_NODE = 1
1244: ATTRIBUTE_NODE = 2
1245: TEXT_NODE = 3
1246: CDATA_SECTION_NODE = 4
1247: ENTITY_REFERENCE_NODE = 5
1248: ENTITY_NODE = 6
1249: PROCESSING_INSTRUCTION_NODE = 7
1250: COMMENT_NODE = 8
1251: DOCUMENT_NODE = 9
1252: DOCUMENT_TYPE_NODE = 10
1253: DOCUMENT_FRAGMENT_NODE = 11
1254: NOTATION_NODE = 12
1.1 paf 1255: $vasyaNode.type==$xnode:ELEMENT_NODE
1.253 moko 1256: $node.parentNode
1257: $node.childNodes = array of nodes
1258: $node.firstChild
1259: $node.lastChild
1260: $node.previousSibling
1261: $node.nextSibling
1262: $node.ownerDocument = xdoc
1263: $node.prefix
1264: $node.namespaceURI
1265: $element_node.attributes = hash of xnodes
1266: $element_node.tagName
1267: $attribute_node.specified = boolean
1268: true if the attribute received its value explicitly in the XML document,
1.259 moko 1269: or if a value was assigned programmatically with the setValue function.
1.253 moko 1270: false if the attribute value came from the default value declared in the document's DTD.
1271: $attribute_node.name
1272: $attribute_node.value
1.1 paf 1273: $text_node/cdata_node/comment_node.substringData
1.253 moko 1274: $pi_node.target = target of this processing instruction
1.259 moko 1275: XML defines this as the first token following the markup
1.1 paf 1276: that begins the processing instruction.
1.253 moko 1277: $pi_node.data = The content of this processing instruction
1.259 moko 1278: From the first non-whitespace character after the target
1.253 moko 1279: to the character immediately preceding the ?>.
1.1 paf 1280: document_node.
1281: readonly attribute DocumentType doctype
1.253 moko 1282: readonly attribute DOMImplementation implementation
1.1 paf 1283: readonly attribute Element documentElement
1284: document_type_node.
1.253 moko 1285: readonly attribute DOMString name
1.1 paf 1286: readonly attribute NamedNodeMap entities
1287: readonly attribute NamedNodeMap notations
1.253 moko 1288: notation_node.
1289: readonly attribute DOMString publicId
1290: readonly attribute DOMString systemId
1291:
1292: DOM1 node methods:
1293: Node insertBefore(in Node newChild,in Node refChild)
1294: Node replaceChild(in Node newChild,in Node oldChild)
1295: Node removeChild(in Node oldChild)
1296: Node appendChild(in Node newChild)
1297: boolean hasChildNodes()
1298: Node cloneNode(in boolean deep)
1299:
1300: DOM1 element methods:
1301: DOMString getAttribute(in DOMString name)
1302: void setAttribute(in DOMString name, in DOMString value) raises(DOMException)
1303: void removeAttribute(in DOMString name) raises(DOMException)
1304: Attr getAttributeNode(in DOMString name)
1305: Attr setAttributeNode(in Attr newAttr) raises(DOMException)
1306: Attr removeAttributeNode(in Attr oldAttr) raises(DOMException)
1307: NodeList getElementsByTagName(in DOMString name)
1308: void normalize()
1309:
1310: Introduced in DOM Level 2:
1311: Node importNode(in Node importedNode, in boolean deep) raises(DOMException)
1312: NodeList getElementsByTagNameNS(in DOMString namespaceURI, in DOMString localName)
1313: boolean hasAttributes()
1.1 paf 1314:
1.253 moko 1315: XPath:
1316: ^node.select[xpath/query/expression] = array of nodes,
1.21 paf 1317: empty array if nothing found
1.253 moko 1318: ^node.selectSingle[xpath/query/expression] = first node if any
1319: ^node.selectBool[xpath/query/expression] = bool if any or die
1320: ^node.selectNumber[xpath/query/expression] = double if any or die
1321: ^node.selectString[xpath/query/expression] = string if any or die
1.1 paf 1322:
1.176 paf 1323: DATA::=string | file | hash
1.253 moko 1324: hash вида
1325: [
1326: $.file[имя файла на диске]
1327: $.name[имя файла для пользователя]
1328: $.mdate[date]
1329: ]
1330:
1331: MAIN
1332: это класс, загружаемый на автомате из конфигурационного auto.p, кучи auto.p и запрашиваемого документа:
1333: конфигурационный auto.p
1334: cgi:
1335: 1. или полный путь из переменной окружения CGI_PARSER_SITE_CONFIG или рядом с бинарником parser'а
1.1 paf 1336: isapi: windows directory
1.253 moko 1337: apache module:
1.43 paf 1338: 1) ParserConfig [can be in .htaccess]
1.253 moko 1339: auto.p вниз от DOCUMENT_ROOT/ по дереву до каталога с обрабатываемым файлом включительно
1.249 moko 1340: класс собирается из всех этих файлов, последующие становятся родителями предыдущих
1341: имя последнего загруженного MAIN, имён у предыдущих нет
1.253 moko 1342:
1343: после загрузки MAIN класса вызывается его @main[]
1344: результат которого передаётся в его @postprocess[data] if($data is string) ...
1345: результат которого отдаётся пользователю
1346:
1347: если встречается ошибка и try не задан, её можно красиво сообщить пользователю, определив
1348: @unhandled_exception[exception;stack]
1349: $exception.type строка "тип проблемы"
1350: $exception.file $exception.lineno $exception.colno файл, строка и позиция, где случилась проблема [если не запрещены при компиляции]
1351: $exception.source строка, из-за которой случилась проблема
1352: $exception.comment комментарий english
1353: stack табличка из колонок file line name,
1.259 moko 1354: там лежат в обратном порядке имена[name] и места вызовов[file line] операторов/методов, приведших к ошибке.
1.253 moko 1355:
1356: при загрузке файла (file::load, table::load, xdoc::load) можно указать такое имя файла:
1357: http://domain/document[?params<<deprecated, use $.form[...]]
1358: а также, возможно, указать опции:
1359: $.method[GET|POST|HEAD]
1360: $.timeout(3) << в секундах, по-умолчанию =2
1361: $.cookies[
1362: $.имя[значение]
1363: ]
1364: $.headers[
1365: $.поле[значение] << значение имеет формат, как $response:ЗАГОЛОВОК
1366: ]
1.166 paf 1367: $.enctype[multipart/form-data]
1368: $.form[
1.253 moko 1369: $.field1[string]
1370: $.field2[^table::create{one_column_only^#0Avalue1^#0Avalue2}]
1.166 paf 1371: $.field3[file]
1372: ]
1.253 moko 1373: $.body[string|file]
1374: по-умолчанию, user-agent=parser3
1375: по-умолчанию, получение http status != 200 >> создает http.status ошибку, это можно отключить, передав $.any-status(1)
1.259 moko 1376: $.charset[кодировка удалённых документов по-умолчанию], если сервер вернёт content-type:charset - ОНА ПЕРЕБИВАЕТ
1.253 moko 1377: $.response-charset[кодировка удалённых документов], не перебиваеся content-type:charset
1378: $.user[пользователь]
1379: $.password[пароль]
1380: file::load в дополнительные поля записывает
1381: ПОЛЕ:значение (имена полей ответа заглавными буквами)
1.259 moko 1382: tables << хеш их ПОЛЕ->table с единственным столбцом "value"
1.249 moko 1383: в таких таблицах можно брать повторяющиеся заголовки. например, несколько set-cookies
1384: todo:сделать отдельный cookies
1385:
1.253 moko 1386: системные типы ошибок:
1387: parser.compile ^test[} компиляция (непарная скобка, ...)
1388: parser.runtime ^if(0). параметры (больше/меньше, чем нужно, не тех типов, ...)
1389: number.zerodivision ^eval(1/0) ^eval(1%0)
1390: number.format ^eval(abc*5)
1391: file.lock shared/exclusive lock error
1392: file.missing ^file:delete[delme] not found
1393: file.access ^table::load[.] no rights
1394: file.read ^file::load[...] error while reading file
1395: file.seek seek failed
1396: file.execute ^file::cgi[...] incorrect cgi header/can't execute
1397: image.format ^image::measure[index.html] not gif/jpg
1398: sql.connect ^connect[mysql://baduser:pass@host/db]{} not found/timeout
1399: sql.execute ^void:sql{select bad} syntax error
1.57 paf 1400: sql.duplicate
1401: sql.access
1402: sql.missing
1.253 moko 1403: xml ^xdoc::create{<forgot?>} any error in xml/xslt libs
1404: smtp.connect not found/timeout
1405: smtp.execute communication error
1.259 moko 1406: email.format hren tam@null.ru wrong email format (bad chars/empty)
1.253 moko 1407: email.send $MAIL.sendmail[/shit] sendmail not executable
1408: http.host ^file::load[http://notfound/there] host not found
1.259 moko 1409: http.connect ^file::load[http://not_accepting/there] host found, but does not accept connections
1410: http.timeout ^file::load[http://host/doc] load operation failed to complete in # seconds
1.253 moko 1411: http.response ^file::load[http://ok/there] host found, connection accepted, bad answer
1412: http.status ^file::load[http://ok/there] host found, connection accepted, status!=200
1413: date.range ^date::create(10000;1;1) date out of valid range
1.213 misha 1414:
1.250 moko 1415: если в MAIN определён $SIGPIPE(1) то в случае, если обработка была прервана пользователем, сообщение
1.253 moko 1416: об этом будет записано в parser3.log
1.197 misha 1417:
1.253 moko 1418: если описание метода содержит локальную переменную result в явном виде (есть и неявная переменная)
1.258 moko 1419: то код вывода пробельных литералов не попадает в конечный байт-код
1.260 moko 1420:
1.263 ! moko 1421: $Id: operators.ru.txt,v 1.262 2024/12/20 19:20:02 moko Exp $
E-mail: