--- parser3/operators.ru.txt 2004/04/06 07:50:33 1.171 +++ parser3/operators.ru.txt 2015/09/04 23:06:03 1.244 @@ -50,35 +50,44 @@ Xне сделано, видимо, не будет сделано %left '-' '+' %left '*' '/' '%' '\\' %left NEG /* negation: unary - */ + !литералы + true + false !^if(условие){когда да}{когда нет} + !^if(условие1){да}[(условие2){да}[(условие2){да}[...]]]{нет} -- количество доп. условий не ограничено (в общем elseif это :) !^switch[значение]{^case[вариант1[;вариант2...]]{действие}^case[DEFAULT]{действие по умолчанию}} - !^while(условие){тело} + !^while(условие){тело}[[разделитель]|{разделитель который выполняется перед непустым очередным не первым телом}] !^for[i](0;4){тело}[[разделитель]|{разделитель который выполняется перед непустым очередным не первым телом}] !^use[модуль] !^try{ ... - !^throw[sql.connect;вася;болван] // был ^error[текст] + !^throw[sql.connect[;вася[;болван]]] // был ^error[текст] + !^throw[ + $.type[sql.connect] + $.source[вася] + $.comment[болван] + ] ... }{ - ^if($exception.type eq sql){ - $exception.handled(1) ^rem{флаг, что exception обработан} + ^if($exception.type eq "sql"){ + $exception.handled(1|true) ^rem{флаг, что exception обработан} .... } - ^switch($exception.type){ + ^switch[$exception.type]{ ^case[sql;mail]{ $exception.handled(1) код, обрабатывающий sql ошибку $exception.type = sql.connect - $exception.file $exception.lineno [если не запрещены при компиляции] + $exception.file $exception.lineno $exception.colno [если не запрещены при компиляции] $exception.source = вася $exception.comment = болван } - ^case[_default]{ + ^case[DEFAULT]{ код, обрабатывающий другую ошибку - ^throw[$exception] << re-throw + ^throw[$exception] << re-throw // DON'T! It's default behaviour! } } } @@ -86,9 +95,9 @@ Xне сделано, видимо, не будет сделано удобно сделать после выставления 401 ошибки ^return[результат] + - отваливает из выполнения метода, выдавая нестандартный результат - X^break[] + - обрывает цикл - X^continue[] + - обрывает итерацию цикла - !^untaint[[as-is|file-spec|http-header|mail-header|uri|table|sql|js|xml|html|optimized-html]]{код} + !^break[] + - обрывает цикл + !^continue[] + - обрывает итерацию цикла + !^untaint[[as-is|file-spec|http-header|mail-header|uri|sql|js|xml|html|optimized-html|regex|parser-code]]{код} default as-is !^taint[[lang]][код] default "just tainted, language unknown" @@ -104,8 +113,9 @@ Xне сделано, видимо, не будет сделано ClientCharset=parser-charset << charset in which parser thinks client works charset=cp1251_koi8& timeout=3& - compress=1& + compress=0& named_pipe=1& + multi_statements=1& allow execute more then one query in one parser :sql{} request autocommit=1 autocommit если выставить в 0, будет делать commit/rollback @@ -129,16 +139,21 @@ Xне сделано, видимо, не будет сделано !odbc://DSN=dsn^;UID=user^;PWD=password^;ClientCharset=parser-charset ClientCharset << charset in which parser thinks client works + + !sqlite://DBfile? + ClientCharset=parser-charset& << charset in which parser thinks client works + autocommit=1 - для работы connect нужно, чтобы заранее(рекомендуется в системном parser3) + для работы connect нужно, чтобы заранее(рекомендуется в системном конфигурационном auto.p) была определена таблица #sql drivers $SQL[ - $.drivers[^table::set{protocol driver client -mysql /www/parser3/libparser3mysql.so /usr/local/lib/mysql/libmysqlclient.so -pgsql /www/parser3/libparser3pgsql.so /usr/local/pgsql/lib/libpq.so -oracle /www/parser3/libparser3oracle.so /u01/app/oracle/product/8.1.5/lib/libclntsh.so?ORACLE_HOME=/u01/app/oracle/product/8.1.5&ORA_NLS33=/u01/app/oracle/product/8.1.5/ocommon/nls/admin/data -odbc c:\drives\y\parser3project\odbc\debug\parser3odbc.dll + $.drivers[^table::create{protocol driver client +mysql /www/parser3/libparser3mysql.so /usr/local/lib/mysql/libmysqlclient.so +pgsql /www/parser3/libparser3pgsql.so /usr/local/pgsql/lib/libpq.so +oracle /www/parser3/libparser3oracle.so /u01/app/oracle/product/8.1.5/lib/libclntsh.so?ORACLE_HOME=/u01/app/oracle/product/8.1.5&ORA_NLS33=/u01/app/oracle/product/8.1.5/ocommon/nls/admin/data +sqlite /www/parser3/libparser3sqlite.so /usr/local/sqlite/lib/sqlite3.so +odbc c:\drives\y\parser3project\odbc\debug\parser3odbc.dll }] ] !в таблице у oracle в столбце клиентской библиотеки @@ -164,16 +179,18 @@ odbc c:\drives\y\parser3project\odbc\ !скэшировать строку, которая получается при выполнении кода на 'секунд' секунд !если 0секунд, значит не кэшировать, а старый такой стереть !в catch коде $exception.handled[cache] ^rem{флаг, что exception обработан} - !^cache[файл][expires date]{код} + !^cache[файл][expires date]{код}[{catch код}] !абсолютное задание времени - X^cache[файл] удалить файл [не ругает, если его нет] // такое было, больше не будет, делать ^cache(0) + !^cache[файл] удалить файл [не ругает, если его нет] !^cache(секунд) !^cache[expires date] !сигнализирует вышестоящему ^cache "уменьши до стольких-то 'секунд'/'expires'" !в пределе: ^cache(0) отменить кэширование + !^cache[] выдаёт текущую expires date X^cache[read] - сигнализирует вышестоящему ^cache "взять скэшированное насильно, игнорируя expires",
+ сигнализирует вышестоящему ^cache "взять скэшированное насильно, игнорируя expires", выдаёт bool "получилось/нет" + !^sleep(seconds) Xесть глобальный флажок в свойствах/командной строке "не оптимизировать" @@ -190,7 +207,7 @@ odbc c:\drives\y\parser3project\odbc\ !есть глобальная строка/таблица $MAIN:CLASS_PATH с путём/путями к каталогу с классами. !корень путя/путей считается от корня веб пространства. !2. ...относительно строчки из table $MAIN:CLASS_PATH, снизу вверх - задавайте её в parser3.conf вашего сайта + задавайте её в конфигурационном auto.p вашего сайта !глобальная табличка $CHARSETS[$.название[имя файла]] !задаёт какие буквы считаются какими(whitespace, letter, etc), а также их unicode @@ -211,6 +228,7 @@ odbc c:\drives\y\parser3project\odbc\ !$имя whitespace или ${имя}неважно подстановка значения !^имя параметры вызов !$имя.CLASS класс значения + !$имя.CLASS_NAME имя класса !$имя[$.key[] () {}] конструктор элемента переменной-хэша $имя.key !^method[$.key[] () {}] конструктор элемента параметра-хеша $parameter.key $CLASS.имя обращение к переменной класса @@ -242,29 +260,32 @@ odbc c:\drives\y\parser3project\odbc\ 0 !^имя.pos[...] -1 - !^void.left(n) + !^имя.left(n) ничего не выдаёт - !^void.right(n) + !^имя.right(n) ничего не выдаёт - !^void.mid(p[;n]) + !^имя.mid(p[;n]) ничего не выдаёт !^имя.int[] (default) 0 или default !^имя.double[] (default) 0 или default - !^void:sql{запрос без результата} + !^имя.bool[] (default) + false или default + !^void:sql{запрос без результата}{$.bind[см. table::sql]} !int,double !^имя.int[] целочисленное значение !^имя.double[]+ double значение + !^имя.bool[] + .bool(true|false) bool значение !^имя.inc(на сколько +) !^имя.dec(на сколько -) !^имя.mul(на сколько *) !^имя.div(на сколько /) !^имя.mod(на сколько %) !^имя.format[формат] - !^int/double:sql{query}[[$.limit(2) $.offset(4) $.default{0}]] + !^int/double:sql{query}[[$.limit(2) $.offset(4) $.default{0} $.bind[см. table::sql]]] запрос, результат которого должен быть один столбец/одна строка !string @@ -276,14 +297,15 @@ odbc c:\drives\y\parser3project\odbc\ пример: ^if(def $form:name) не пуста? ^if($user.isAlive) истина? [автопреобразование к числу, не ноль?] - !^string::sql{query}[[$.limit(1) $.offset(4) $.default{n/a}]] + !^string:sql{query}[[$.limit(1) $.offset(4) $.default{n/a} $.bind[см. table::sql]]] результат запроса должен быть один столбец/одна строка - !^имя.int[] .int(default) целочисленное значение строки. + !^строка.int[] .int(default) целочисленное значение строки. если ломается преобразование, берётся default - !^имя.double[]+ .double(default) double значение строки + !^строка.double[]+ .double(default) double значение строки + !^строка.bool[] + .bool(default) bool значение строки если ломается преобразование, берётся default - !^имя.format[формат] %d %.2f %02d... - !^строка.match[шаблон][[опции поиска]] $prematch $match $postmatch $1 $2... + !^строка.format[формат] %d %.2f %02d... + !^строка.match[шаблон-строка|шаблон-regex][[опции поиска]] $prematch $match $postmatch $1 $2... опции поиска= i CASELESS x whitespace in regex ignored @@ -291,14 +313,16 @@ odbc c:\drives\y\parser3project\odbc\ m multiline = $ считается концом строки[\n], не концом всего текста g найти все вхождения, а не одно ' создавать столбцы prematch, match, postmatch - !^строка.match[шаблон][опции поиска]{замена} + n вернуть цисло с количеством найденных совпадений, а не таблицу с результатами + U инвертировать смысл модификатора '?' + !^строка.match[шаблон-строка|шаблон-regex][опции поиска]{замена} опции поиска+= g заменить все вхождения, а не одно - !^строка.split[разделитель][[lrhv]] + !^строка.split[разделитель][[lrhv]][[название столбца для вертикального разбиения]] l слева направо [default] r справа налево - h nameless таблица - v таблица из столбца piece [default] + h nameless таблица с ключами 0, 1, 2, ... + v таблица из 1 столбца 'piece' или как передадут [default] !^строка.{l|r}split[разделитель] таблица из столбца $piece оставлен для совместимости !^строка.upper|lower[] @@ -309,20 +333,26 @@ odbc c:\drives\y\parser3project\odbc\ !^строка.left(N) !^строка.right(N) !^строка.pos[подстрока] + !^строка.pos[подстрока](позиция, с которой ищем) <0 = не найдено !^строка.replace[$таблица_подстановок_строка_на_строку] + !^строка.replace[$что;$на-что] !^строка.save[[append;]путь] + !^строка.save[путь[;$.charset[в какой кодировке сохраняем] $.append(true)]] !^строка.normalize[] выдает другую строку, в которой фрагменты на одном языке объединены полезно делать перед сложными match операциями, если вы знаете, что входная строка состоит из большого числа фрагментов - !^string.trim[start|both|end[;chars]] выкидывает charset из начала/конца/и начала и конца + !^строка.trim[start|both|end|left|right[;chars]] выкидывает chars из начала/конца/и начала и конца default 'chars' -- whitespace chars + !^строка.append[string] + !^строка.base64[] encode + !^string:base64[encoded[;$.strict(true)]] decode !table в выражении логическое значение равно "не пуста?" числовое значение равно count[] - !^table::create[[nameless]]{данные} старое имя "set" + !^table::create[[nameless]]{данные}[[$.separator[^#09]]] старое имя "set" !^table::create[table][[$.limit(1) $.offset(5) $.offset[cur] $.reverse(1)]] клонирует таблицу reverse << сзаду на перёд (работает пока только в locate, в table::create НЕ работает) @@ -331,15 +361,22 @@ odbc c:\drives\y\parser3project\odbc\ !пустые строки, и строки в первой колонке содержащие '#', игнорируются !$.separator[^#09] !$.encloser["] по-умолчанию, нет. - !^table::sql{query}[[$.limit(2) $.offset(4) todo:$.default{ ^table::create[...] }]] + !^table::sql{query}[[$.limit(2) $.offset(4) $.bind[hash] todo:$.default{ ^table::create[...] }]] + bind привязывает переменные в запросе к их значениям + пока реализован только для oracle + в запросе надо написать ":имя" + в параметре bind передать hash, из которого возьмётся(или куда запишется) значение !^таблица.save[[nameless|append;]путь[;опции, см. load]] !$таблица.поле !$таблица.fields из named таблицы выдаёт текущую запись как Hash - !^таблица.menu{тело}[разделитель] - !^таблица.offset[[whence]](5) сдвигает; без параметра - печатает offset + !^таблица.menu{тело}[[разделитель]] + !^таблица.offset[] печатает offset + !^таблица.offset[[whence]](5) сдвигает !whence=cur|set !без whence - это cur - !^таблица.count[] + !^таблица.count[], ^таблица.count[rows] - количество строк в таблице + !^таблица.count[columns] - для named таблицы количество столбцов (сокращение от $c[^таблица.columns[]]^c.count[]) + !^таблица.count[cells] - количество ячеек в текущей строке таблицы !^таблица.line[] 1-based offset !^таблица.sort{{ключеделатель строка}|(ключеделатель число)}[{desc|asc}] default=asc !^таблица.append{данные} @@ -348,7 +385,7 @@ odbc c:\drives\y\parser3project\odbc\ X^таблица.remove(position[;count]) - стирает запись из текущей позиции [стирает запись из конкретной позиции] [стирает count записей] - !^таблица.join[таблица][$.limit(1) $.offset(5) $.offset[cur]] - добавляет записи из таблицы. + !^таблица.join[таблица][$.limit(1) $.offset(5) $.offset[cur]] - добавляет записи из таблицы. таблицы должны иметь одинаковую структуру. !^таблица.flip[] выдаёт транспонированную, надо куда-то сложить, потом пользовать !^таблица.locate[поле;значение][[$.limit(1) $.offset(5) $.offset[cur] $.reverse(1)]] @@ -360,7 +397,7 @@ odbc c:\drives\y\parser3project\odbc\ поля значений могут быть не указаны, тогда ими будут все столбцы, включая ключевой если distinct содержит true, то не будет ошибки при повторяющихся ключах если distinct содержит tables, то будет создан hash из таблиц, содержащих строки с ключом - !^таблица.columns[]+ таблица из одного столбца $column + !^таблица.columns[[название столбца]]+ таблица из одного столбца 'column' или как передадут !$отобранное[^таблица.select(выражение)] = таблица из тех же столбцов и строк, у которых условие совпало $adults[^man.select($man.age>=18)] ^таблица.color[цвет1;цвет2] @@ -370,42 +407,50 @@ odbc c:\drives\y\parser3project\odbc\ !в выражении !логическое значение равно "не пуста?" !числовое значение равно _count[] - !$hash.ключ + !$хеш.ключ !_default - специальный ключ, если задан, то при обращении по ключу, которому нет соответствия, выдаётся _default значение - !$hash.fields выдает $hash. чтобы класс hash был чуть больше похож на класс table + !$хеш.fields выдает $hash. чтобы класс hash был чуть больше похож на класс table !^hash::create[[!copy_from_hash|copy_from_hashfile]] создаёт новый hash, копию старого - !^hash.add[слагаемое] + !^хеш.add[слагаемое] перезаписывает одноимённые - !^hash.sub[вычитаемое] - !^a.union[b] = объединение + !^хеш.sub[вычитаемое] + !^хеш.union[b] = объединение одноимённые остаются - !^a.intersection[b] = пересечение - значения a - !^a.intersects[b] = bool + !^хеш.intersection[b] = пересечение + значения хеш + !^хеш.intersects[b] = bool !^hash::sql{запрос}[[$.distinct(1) $.limit(2) $.offset(4) todo:$.default{$.field[]...}]] получается hash(ключи=значения первая колонка ответа) of hash(ключи=названия остальных колонкок ответа) - !^hash._keys[[название колонки с ключами]]+ таблица из одного столбца $key или как передадут - !^hash._count[] - !^foreach[key;value]{тело}[[разделитель]|{разделитель который выполняется перед непустым очередным не первым телом}] - !^delete[ключ] удалить ключ + !^хеш._keys[[название колонки с ключами]]+ таблица из одного столбца $key или как передадут + !^хеш._count[] + !^хеш.foreach[key;value]{тело}[[разделитель]|{разделитель который выполняется перед непустым очередным не первым телом}] + !^хеш.delete[ключ] удалить ключ + !^хеш.contain[ключ] - существует ли в хеше ключ (bool) + !^хэш._at[first|last] + !^хэш._at([-]N) + доступ к заданным элементам упорядоченного хеша !hashfile !^hashfile::open[filename] - !^hashfile.clear[] забыть всё - !.ключ[значение] положить значение - !.ключ[$.value[значение] $.expires ЗНАЧЕНИЕ} + !^хешфайл.clear[] забыть всё + !$хешфайл.ключ[значение] положить значение + !$хешфайл.ключ[$.value[значение] $.expires[ЗНАЧЕНИЕ]} положить значение до expires значение поля expires может быть date, или число дней(0дней=на вечно) - !.ключ достать - !^delete[ключ] удалить ключ - !^delete[] удалить файлы, содержащие данные - !^hash[] + !$хешфайл.ключ достать + !^хешфайл.delete[ключ] удалить ключ + !^хешфайл.delete[] удалить файлы, содержащие данные + !^хешфайл.hash[] преобразовать в обычный hash попутно стирает устаревшие пары - !^foreach[key|value]{тело}[[разделитель]|{разделитель который выполняется перед непустым очередным не первым телом}] + !^хешфайл.foreach[key;value]{тело}[[разделитель]|{разделитель который выполняется перед непустым очередным не первым телом}] + !^хешфайл.release[] + записать данные и снять блокировки. + при повторном обращении к элементам откроется автоматически. + !^хешфайл.cleanup[] пробежаться по всем элементам и удалить устаревшие. пример: $sessions[^hashfile::open[/db/sessions]] @@ -414,6 +459,7 @@ odbc c:\drives\y\parser3project\odbc\ $sessions.$sid[$.value[$uid] $.expires(1)] $uid[$sessions.$sid] + !form [берётся первый элемент из одноимённых из GET, потом первый из POST] !$form:поле = string/file @@ -421,18 +467,25 @@ odbc c:\drives\y\parser3project\odbc\ !$form:qtail = строка со значением текста после второго "?xxxxx", если там не было ',' [imap] !$form:fields = hash со всеми полями формы !$form:tables.поле = table с одним столбцом "field" со значениями "поля" + !$form:files.поле = hash со значениями полей типа файл, ключи - 0, 1, ..., значение - файл !$form:imap = хэш с ключами 'x' и 'y' со значением ?1,2 приписки при использовании server-site image map + !env !$env:переменная + !$env:PARSER то же самое, что показывается при запуске parser.cgi + !cookie !$cookie:имя считать старое или свежезаданное !$cookie:имя[значение] на 90 дней - !$cookie:имя[$.value[значение] $.expires ЗНАЧЕНИЕ ] + !$cookie:имя[$.value[значение] $.expires[ЗНАЧЕНИЕ] $.secure(true)] !значение поля expires может быть 'session', date, или число дней(0дней=session) ! если дата, она будет преобразована к формату "Sun, 25-Aug-2002 12:03:45 GMT" + ! можно устанавливать bool свойства, например $.secure(true), $.httponly(true) + !$cookie:fields = hash со всеми cookies + !request !$request:query @@ -441,6 +494,7 @@ odbc c:\drives\y\parser3project\odbc\ !$request:document-root каталог, относительно которого считаются пути в parser, по-умолчанию = $env:DOCUMENT_ROOT можно изменить, если на hosting что-то неудобно настроено + !$request:argv = hash с параметрами коммандной строки. ключи 0, 1, ... [0 -- имя обрабатываемого файла]. X!$request:browser это hash, поля: !$type = ie/nn и !$version = номер, скажем 5.5 X$request:user @@ -451,6 +505,7 @@ odbc c:\drives\y\parser3project\odbc\ ПРЕДУПРЕЖДЕНИЕ: класс form получает свои поля после обработки всех auto класса MAIN поэтому необходимо задать $request/response:charset в одном из них. не после. + !response !$response:поле[значение] и можно считать старое -- $response:поле !значение может быть string а может быть hash: @@ -458,9 +513,10 @@ odbc c:\drives\y\parser3project\odbc\ ! $attribute[zzz] field: abc; {attribute=zzz}<<часть !значение поля или атрибута может быть string или date ! если дата, она будет преобразована к формату "Sun, 25-Aug-2002 12:03:45 GMT" + !$response:headers накопленные поля !$response:body[DATA] замещает стандартный ответ !$response:download[DATA] замещает стандартный ответ, - выставляет флаг, заставляющий browser предложить download + выставляет флаг, заставляющий browser предложить download !$response:status !^response:clear[] забыть все заданные response поля !$response:charset @@ -472,6 +528,46 @@ odbc c:\drives\y\parser3project\odbc\ ПРЕДУПРЕЖДЕНИЕ: класс form получает свои поля после обработки всех auto класса MAIN поэтому необходимо задать $request/response:charset в одном из них. не после. + +!regex + !в выражении + !логическое значение всегда равно true + !числовое значение равно количеству байт скомпилированного шаблона. + !^regex::create[шаблон-строка][[опции поиска]] + !^шаблон.size[] количество байт скомпилированного шаблона + если значение очень большое -- стоит почитать документацию по pcre и, возможно, переписать шаблон. + !^шаблон.study_size[] размер study-структуры. если==0 -- шаблон не может быть "изучен" + ^шаблон.save[filespec] + ^шаблон.load[filespec] + + +!reflection + !^reflection:create[класс;конструктор[;пара;[мет[;ры]]]] вызывает указанный конструктор класса (не более 100 параметров) + !^reflection:classes[] хеш со всеми классами. ключ -- имя класса, значение бывает methoded (класс с методами) или void + !^reflection:class[объект] класс переданного объекта + !^reflection:class_name[объект] имя класса переданного объекта + !^reflection:base[объект] родительский класс переданного объекта + !^reflection:base_name[объект] имя родительского класса переданного объекта + !^reflection:methods[класс] хеш со списком методов указанного класса, значения -- строки 'native' или 'parser' + !^reflection:method[класс или объект;имя метода] возвращает junction-method класса или объекта + !^reflection:fields[класс или объект] хеш со списком статических полей указанного класса или динамических полей указанного объекта + !^reflection:field[класс или объект;имя поля] возвращает значение указанного поля класса или объекта. getter-ы игнорируются. + !^reflection:uid[класс или объект] возвращает идентификатор объекта или класса + !^reflection:method_info[класс;метод] хеш с параметрами указанного метода класса + $.inherited[класс] имя класса, где метод был определён (возвращается только если метод был определён в предке) + $.overridden[класс] имя класса, где метод был определён (возвращается только если метод был определён в предке) + для native классов возвращается хеш: + .min_params(минимально необходимое число параметров) + .max_params(максимально возможное число параметров) + .call_type[dynamic|static|any] + для parser классов возвращается хеш: + ключ -- номер параметра (0, 1, ...), значение - имя параметра + !^reflection:dynamical[[object or class, caller if absent]] возвращает true, если метод был вызван из динамического контекста + при передаче параметра возвращает true, если передан динамический объект, + false если класс + !^reflection:delete[класс или объект;имя переменной] удаляет переменную с указанным именем в указанном классе или объекте + + !mail !$mail.received=MESSAGE: .from @@ -500,10 +596,10 @@ odbc c:\drives\y\parser3project\odbc\ $.message#[MESSAGE] (message, message2, ...) !^mail:send[ - $.options[-odd] - unix: строка, которая будет добавлена к команде запуска sendmail - -odd означает "быстро поставь в очередь без проверки email" - win32: игнорируется + $.options[-odd] + unix: строка, которая будет добавлена к команде запуска sendmail + -odd означает "быстро поставь в очередь без проверки email" + win32: игнорируется $.charset[кодировка заголовка и текстовых блоков] $.any-header-field $.text[string] @@ -547,8 +643,8 @@ odbc c:\drives\y\parser3project\odbc\ !если body указан hash, то это части, будут собраны текстовые блоки, затем вложения !это старый формат, поддерживается для обратной совместимости !если имя части начинается со слова text, то это текстовый блок. - !если имя части начинается со слова attach, то это вложение, формат задания:: - !$attach[$.format[!uue|Xbase64] $.value[DATA] $.file-name[user-file-name]] + !если имя части начинается со слова file, то это вложение, формат задания:: + !$file[$.format[!uue|!base64] $.value[DATA] $.name[user-file-name]] !важно: при multipart не указывать content-type ^mail:send[ # по-умолчанию, совпадает с source encoding. @@ -576,13 +672,14 @@ odbc c:\drives\y\parser3project\odbc\ $.body[слова] ] #для удобства скриптования можно указать только одну часть, при этом не будет multipart - $.attach[ + $.file[ $.value[^file::load[my beloved.doc]] - $.file-name[мой любимый.doc] + $.name[мой любимый.doc] + $.format[base64] ] - $.attach2[ + $.file2[ $.value[^file::load[my beloved.doc]] - $.file-name[мой любимый.doc] + $.name[мой любимый.doc] ] ] ] @@ -600,7 +697,7 @@ odbc c:\drives\y\parser3project\odbc\ !$картинка[^image::measure[DATA]] смотрит на .ext case insensitive, умеет мерить пока только .gif и .jpg .jpeg - !$image.exif << hash после measure jpeg с exif информацией + !$картинка.exif << hash после measure jpeg с exif информацией !$image.exif.DateTime & co [полный список см. http://www.ba.wakwak.com/~tsuruzoh/Computer/Digicams/exif-e.html] !числа типа int/double, @@ -621,9 +718,14 @@ odbc c:\drives\y\parser3project\odbc\ !^картинка.polyline+(цвет)[table x:y точки] !^картинка.polygon(цвет)[table x:y вершины_многоугольника] !^картинка.polybar(цвет)[table x;y вершины_многоугольника] - !^картинка.font[набор_букв;имя_файла_шрифта.gif](ширина_пробела[;ширина_символа]) + !^картинка.font[набор_букв;имя_файла_шрифта.gif][(ширина_пробела[;ширина_символа])] высота символа = высота картинки/количество букв в наборе если указана ширина_символа, то monospaced, если 0, то ширина_символа = ширине gif + !^картинка.font[набор_букв;имя_файла_шрифта.gif; + $.space(ширина_пробела) // по умолчанию = ширине gif + $.width(ширина_символа) // см. выше, по умолчанию proportional + $.spacing(расстояние между буквами) // по умолчанию = 1 + ] !^картинка.text(x;y)[текст_надписи] AS_IS !^картинка.length[текст_надписи] AS_IS !^картинка.gif[возможно, имя файла] -- кодирует в FILE с content-type=image/gif @@ -644,48 +746,75 @@ odbc c:\drives\y\parser3project\odbc\ !^картинка.pixel(x;y)[(color)] узнать или задать цвет пиксела + !file !$файл_из_post.name !$файл_из_post.size !$файлtиз_post.text - !^файл.save[text|binary;имя файла] + !^файл.save[text|binary;имя файла[;$.charset[в какой кодировке сохраняем]]] !^file:delete[имя файла] !^file:find[имя файла][{когда не нашли}] - !^file:list[путь[;шаблон]] = table с колонкой name + !^file:list[путь[;шаблон-строка|шаблон-regex]] = table с колонками name dir + !^file:list[путь;$.filter[шаблон-строка|шаблон-regex] $.stat(true)] = table с колонками name dir size [mca]date !^file::load[text|binary;!big.zip[;!domain_press_release_2001_03_01.zip][;опции]] + !^file::create[text|binary;имя;data] + !^file::create[text|binary;имя;data[;$.charset[кодировка букв в создаваемом файле] $.content-type[...]]] + !^file::create[string-or-file-content[;$.name[имя] $.mode[text|binary] $.content-type[...] $.charset[...]]] !$файл_который_был_loaded.size + !$файл_который_был_loaded_или_created.mode = text/binary !^file::stat[имя файла] - !$файл_который_был_stated.size !.adate !.mdate !.cdate - !^file::cgi[имя файла[;env hash +options[;1cmd[;2line[;3ar[;4g[;5s]]]]]]] + !$файл_который_был_stated_или_loaded.size !.adate !.mdate !.cdate + !^file::cgi[[text|binary;]имя файла[;env hash +options[;1cmd[;2line[;3ar[;4g[;5s]]]]]]] возвращённый заголовок рассыпается на $поля $status $stderr - !^file::exec[имя файла[;env hash[;1cmd[;2line[;3ar[;4g[;5s;...under win32 max 10 args]]]]]]] + !^file::exec[[text|binary;]имя файла[;env hash[;1cmd[;2line[;3ar[;4g[;5s;...under unix max 50 args]]]]]]] options: $.stdin[текст] если текст пуст, отключается автоматическое пересовывание данных HTTP-POST !^file:move[старое имя файла;новое имя файла] можно переименовывать и двигать каталоги[win32: но не через границу дисков] каталоги для dest создаются с правами 775 каталог старого файла стирается, если после move он остаётся пуст + !^file:copy[имя файла;имя копии файла] + можно копировать только файлы !^file:lock[имя файла]{код} файл при необходимости создаётся блокируется выполняется код разблокируется Xchmod[...] НЕТ И НЕ БУДЕТ, ЧТОБЫ НЕ МОГЛИ СДЕЛАТЬ executable и запустить, даже если ftp запрещает chmod. - !^file:dirname[/a/some.tar.gz]=/a - !^file:dirname[/a/b/]=/a - !^file:basename[/a/some.tar.gz]=some.tar.gz + !^file:dirname[/a/some.tar.gz]=/a (работает аналогично комманде *nix) + !^file:dirname[/a/b/]=/a (работает аналогично комманде *nix) + !^file:basename[/a/some.tar.gz]=some.tar.gz (работает аналогично комманде *nix) + !^file:basename[/a/b/]=b (работает аналогично комманде *nix) !^file:justname[/a/some.tar.gz]=some.tar !^file:justext[/a/some.tar.gz]=gz !/some/page.html: ^file:fullpath[a.gif] => /some/a.gif - !^file.sql-string[] внутри ^connect даст правильно escaped строку, которую можно в запрос отдать - !^file::sql[[имя_файла_для_download]]{} - результат запроса должен быть "одна строка". - колонки: - первая колонка - данные - если есть вторая - это имя файла - если есть третья - это content-type + !^файл.sql-string[] внутри ^connect даст правильно escaped строку, которую можно в запрос отдать + X^file::sql[[имя_файла_для_download]]{query} + !^file::sql{query}[[ + $.name[имя_файла_для_download] + $.content-type[пользовательский content-type] + ]] + результат запроса должен быть "одна строка". + колонки: + первая колонка - данные + если есть вторая - это имя файла + если есть третья - это content-type + !^файл.base64[] encode + !^file:base64[имя файла] + encode + !^file::base64[encoded string] + !^file::base64[mode;имя файла;encoded string[;$.content-type[...]]] + decode + !^file:crc32[имя файла] + вычисляет crc32 файла с указанным именем + !^файл.crc32[] + вычисляет crc32 объекта + !^файл.md5[] + !^file:md5[имя файла] + выдает digest файла, длиной 16 байт в виде строки, + где байты digest выданы в hex виде, впритык, в нижнем регистре !math @@ -715,36 +844,87 @@ odbc c:\drives\y\parser3project\odbc\ если нет тела salt, оно создаётся случайным $1$ вызывает MD5 алгоритм функции OS 'crypt', если поддерживается [заведомо нет на solaris]. другие salt читайте документацию по функции OS 'crypt'. + !^math:crc32[string] + вычисляет crc32 строки + !^math:sha1[string] + !^math:convert[number](base-from;base-to) преобразует строку с числом из одной системы исчисления в другую + + +!inet + !^inet:ntoa(long) + !^inet:aton[IP] + +!json + !^json:parse[-json-строка-[; + $.depth(максимальная глубина, default == 19) + $.double(false) отключить встроенный парсинг чисел с плавающей точкой (по умолчанию включен) + в этом случае они попадут в результирующий объект как строки + $.distinct[first|last|all] как будет происходить разбор дублирующихся ключей у объектов + first -- будет оставлен первый встретившийся элемент + last -- будет оставлен последний встретившийся элемент + all -- будут оставлены все элементы. при этом элементы, начиная со 2 + получат числовые суффиксы (key_2 итд) + по умолчанию дублирующиеся ключи приведут к exception + $.object[method-junction] пользовательский метод[ключ;объект], которому будут передаваться все разобранные + объекты и ключи объекта, метод возвращает новый объект + $.array[method-junction] пользовательский метод, которому будут передаваться массивы + ]] + парсит json-строку в хэш + !^json:string[system or user object[; + $.skip-unknown(false) отключить exception и выдавать 'null' при сериализации объектов с типами + отличных от void, bool, string, int, double, date, table, hash и file + $.indent(true) форматировать результирующую строку табуляциями по глубине вложенности + $.date[sql-string|gmt-string|unix-timestamp] формат вывода даты, по умолчанию -- sql-string + $.table[object|array|compact] формат вывода таблицы, по умолчанию -- object + object: [{"c1":"v11","c2":"v12",...},{"c1":"v21","c2":"v22",...},...] + array: [["c1","c2",...] || null (for nameless),["v11","v12",...],...] + compact: ["v11" || ["v11","v12",...],...] + $.file[text|base64|stat] вывести тело файла в указанном виде (по умолчание тело файла + не попадает в output) + $.xdoc[hash] параметры преобразования xdoc в строку (как в ^xdoc.string[]) + $.тип[method-junction] любой тип можно вывести с помощью пользовательского метода, который + должен принимать 3 параметра: ключ, объект данного типа и опции + вызова ^json:string[] + ]] + сериализует системный или пользовательский объект в json-строку + !date !время типа time можно использовать в выражениях, подставляет количество дней с epoch [1 января 1970 (UTC)], дробное - !всё происходит в localtime, - !временная зона задаётся вне parser средствами OS - $date:UTC-offset сколько дней надо прибавить,чтобы попасть в local время - $date:TZ наш часовой пояс, дробное, в часах (где-то есть с точностью до получаса) + !строковое значение в местном времени, численное в UTC + !по умолчанию используется установленная средствами OS временная зона !^date::now[] !^date::now(смещение в днях) выдаёт сейчас+смещение - !^date::create(дней с epoch) // старое имя set - !^date::create(year;month[;day[;hour[;minute[;second]]]]) // старое имя set + !^date::today[] дата на 00:00:00 текущего дня + !^date::create(дней с epoch) + !^date::create(year;month[;day[;hour[;minute[;second]]]]) !^date::create[дата в формате %Y-%m-%d %H:%M:%S] для удобного создания по значению из базы формат1: %Y[-%m[-%d[ %H[:%M[:%S]]]]] формат2: %H:%M[:%S] !^date::unix-timestamp() - !^date.unix-timestamp[] - !$date.year month day hour minute second weekday yearday(0...) daylightsaving TZ + !^дата.unix-timestamp[] + !$дата.year month day hour minute second weekday yearday(0...) daylightsaving TZ weekyear read-only TZ="" << локальная зона - !^date.roll[year|month|day](+-смещение) сдвигает дату - !^date.roll[TZ;Новая зона] говорит, что дата в таком-то часовом поясе: влияет на .hour&co - !^date.sql-string[] %Y-%m-%d %H:%M:%S - where published='$дата.sql-string[]' - !^date:calendar[rus|eng;год;месяц] выдаёт неименованную таблицу + !^дата.roll[year|month|day](+-смещение) сдвигает дату + !^дата.roll[TZ;Новая зона] говорит, что дата в таком-то часовом поясе: влияет на .hour & Co + !^date:roll[TZ;Новая зона] говорит, что по умолчанию все даты в таком-то часовом поясе + !^дата.sql-string[[datetime|date|time]] + datetime или без параметра -- %Y-%m-%d %H:%M:%S + date -- %Y-%m-%d + time -- %H:%M:%S + where published='^дата.sql-string[]' + !^date:calendar[rus|eng](год;месяц) выдаёт неименованную таблицу столбцы: 0..6, week, year - !^date:calendar[rus|eng;год;месяц;день] выдаёт именнованную таблицу + !^date:calendar[rus|eng](год;месяц;день) выдаёт именнованную таблицу столбцы: year, month, day, weekday - + !^date:last-day(год;месяц) вернёт последний день месяца + !^дата.last-day[] вернёт последний день месяца $дата + !^дата.gmt-string[] Fri, 23 Mar 2001 09:32:23 GMT + + xdoc(xnode) !$xdoc.search-namespaces hash, where keys=prefixes, values=urls @@ -779,6 +959,9 @@ xdoc(xnode) !::create[[URI]][qualifiedName] URI default = disk path to requested document для каталогов конечный / обязателен + !::create[file] can be usable: + $f[^file::load[binary;http://;some HTTP options here...]] + $x[^xdoc::create[$f]] !::load[file.xml[;опции]] !.transform[rules.xsl|xdoc][[params hash]] выдаёт dom шаблон кэшируется, кэш обновляется при изменении даты файла шаблона, @@ -838,6 +1021,8 @@ xdoc(xnode) !$node.previousSibling !$node.nextSibling !$node.ownerDocument = xdoc + !$node.prefix + !$node.namespaceURI !$element_node.attributes = hash of xnodes !$element_node.tagName !$attribute_node.specified = boolean @@ -886,7 +1071,8 @@ xdoc(xnode) !Introduced in DOM Level 2: !Node importNode(in Node importedNode, in boolean deep) raises(DOMException) - !NodeList getElementsByTagNameNS(in DOMString namespaceURI, in DOMString localName); + !NodeList getElementsByTagNameNS(in DOMString namespaceURI, in DOMString localName) + !boolean hasAttributes() !XPath: !^node.select[xpath/query/expression] = array of nodes, @@ -970,7 +1156,7 @@ xdoc(xnode) !$status:memory hash !used - Includes some pages that were allocated but never written. + Includes some pages that were allocated but never written. !free @@ -978,8 +1164,8 @@ xdoc(xnode) Return the number of bytes allocated since the last collection. !ever_allocated_since_start - Return the total number of bytes [EVER(c)PAF] allocated in this process. - Never decreases. + Return the total number of bytes [EVER(c)PAF] allocated in this process. + Never decreases. !$status:pid process id !$status:tid thread id @@ -989,12 +1175,19 @@ console !$console:line read/write строку -!DATA::=string | file +DATA::=string | file | hash + +!hash вида +[ + $.file[имя файла на диске] + $.name[имя файла для пользователя] + $.mdate[date] +] !MAIN - это класс, загружаемый на автомате из parser3.conf, + это класс, загружаемый на автомате из конфигурационного auto.p, кучи auto.p и запрашиваемого документа: - !parser3.conf + !конфигурационный auto.p cgi: 1. или полный путь из переменной окружения CGI_PARSER_SITE_CONFIG или рядом с бинарником parser'а @@ -1006,14 +1199,14 @@ console имя последнего загруженного MAIN, имён у предыдущих нет !после загрузки MAIN класса вызывается его @main[] - !результат которого передаётся в его @post-process[data] if($data is string) ... + !результат которого передаётся в его @postprocess[data] if($data is string) ... !результат которого отдаётся пользователю !если встречается ошибка и try не задан, её можно красиво сообщить пользователю, !определив !@unhandled_exception[exception;stack] !$exception.type строка "тип проблемы" - !$exception.file $exception.lineno файл и строка где случилась проблема [если не запрещены при компиляции] + !$exception.file $exception.lineno $exception.colno файл, строка и позиция, где случилась проблема [если не запрещены при компиляции] !$exception.source строка, из-за которой случилась проблема !$exception.comment комментарий english !stack табличка из колонок file line name, @@ -1025,8 +1218,11 @@ console !а также, возможно, указать опции: !$.method[GET|POST|HEAD] !$.timeout(3) << в секундах, по-умолчанию =2 + !$.cookies[ + $.имя[значение] + ] !$.headers[ - ! $поле[значение] << значение имеет формат, как $response:ЗАГОЛОВОК + ! $.поле[значение] << значение имеет формат, как $response:ЗАГОЛОВОК !] $.enctype[multipart/form-data] $.form[ @@ -1057,7 +1253,9 @@ console !file.lock shared/exclusive lock error !file.missing ^file:delete[delme] not found !file.access ^table::load[.] no rights + !file.read ^file::load[...] error while reading file !file.seek seek failed + !file.execute ^file::cgi[...] incorrect cgi header/can't execute !image.format ^image::measure[index.html] not gif/jpg !sql.connect ^connect[mysql://baduser:pass@host/db]{} not found/timeout !sql.execute ^void:sql{select bad} syntax error @@ -1075,8 +1273,19 @@ console !http.timeout ^file::load[http://host/doc] whole load operation failed to complete in # seconds !http.response ^file::load[http://ok/there] host found, connection accepted, bad answer !http.status ^file::load[http://ok/there] host found, connection accepted, status!=200 - + !date.range ^date::create(1950;1;1) date out of valid range + !нужно выключить русский apache: CharsetDisable on Xесли в MAIN будет определён флаг $ORIGINS(1) то вместо обычного вывода страницы будет выдан список фрагментов результата с указанием их происхождения + +!если в MAIN определён $SIGPIPE(1) то в случае, если обработка была прервана пользователем, сообщение + об этом будет записано в parser3.log (раньше оно всегда писалось) + +!если описание метода содержит локальную переменную result в явном виде + (есть и неявная переменная) + то код вывода строковых литералов не попадает в конечный байт-код, + а непробельные символы считаются синтаксической ошибкой + для вывода чего бы то ни было надо пользоваться этой переменной +