--- parser3/operators.txt 2007/10/23 14:18:22 1.202 +++ parser3/operators.txt 2009/08/14 10:40:33 1.224 @@ -62,26 +62,31 @@ Xне сделано, видимо, не будет сделано !^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]{ код, обрабатывающий другую ошибку - ^throw[$exception] << re-throw + ^throw[$exception] << re-throw // DON'T! It's default behaviour! } } } @@ -91,7 +96,7 @@ Xне сделано, видимо, не будет сделано выдавая нестандартный результат !^break[] + - обрывает цикл !^continue[] + - обрывает итерацию цикла - !^untaint[[as-is|file-spec|http-header|mail-header|uri|sql|js|xml|html|optimized-html|regex]]{код} + !^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" @@ -107,8 +112,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 @@ -133,18 +139,20 @@ Xне сделано, видимо, не будет сделано !odbc://DSN=dsn^;UID=user^;PWD=password^;ClientCharset=parser-charset ClientCharset << charset in which parser thinks client works - !sqlite://database + !sqlite://DBfile? + ClientCharset=parser-charset& << charset in which parser thinks client works + autocommit=1 для работы connect нужно, чтобы заранее(рекомендуется в системном конфигурационном auto.p) была определена таблица #sql drivers $SQL[ - $.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 + $.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 в столбце клиентской библиотеки @@ -296,7 +304,7 @@ odbc c:\drives\y\parser3project\odbc\ !^строка.bool[] + .bool(default) bool значение строки если ломается преобразование, берётся default !^строка.format[формат] %d %.2f %02d... - !^строка.match[шаблон][[опции поиска]] $prematch $match $postmatch $1 $2... + !^строка.match[шаблон-строка|шаблон-regex][[опции поиска]] $prematch $match $postmatch $1 $2... опции поиска= i CASELESS x whitespace in regex ignored @@ -305,7 +313,8 @@ odbc c:\drives\y\parser3project\odbc\ g найти все вхождения, а не одно ' создавать столбцы prematch, match, postmatch n вернуть цисло с количеством найденных совпадений, а не таблицу с результатами - !^строка.match[шаблон][опции поиска]{замена} + U инвертировать смысл модификатора '?' + !^строка.match[шаблон-строка|шаблон-regex][опции поиска]{замена} опции поиска+= g заменить все вхождения, а не одно !^строка.split[разделитель][[lrhv]][[название столбца для вертикального разбиения]] @@ -323,13 +332,14 @@ odbc c:\drives\y\parser3project\odbc\ !^строка.left(N) !^строка.right(N) !^строка.pos[подстрока] + !^строка.pos[подстрока](позиция, с которой ищем) <0 = не найдено !^строка.replace[$таблица_подстановок_строка_на_строку] !^строка.save[[append;]путь] !^строка.normalize[] выдает другую строку, в которой фрагменты на одном языке объединены полезно делать перед сложными match операциями, если вы знаете, что входная строка состоит из большого числа фрагментов - !^строка.trim[start|both|end[;chars]] выкидывает chars из начала/конца/и начала и конца + !^строка.trim[start|both|end|left|right[;chars]] выкидывает chars из начала/конца/и начала и конца default 'chars' -- whitespace chars !^строка.append[string] !^строка.base64[] encode @@ -441,6 +451,7 @@ odbc c:\drives\y\parser3project\odbc\ $sessions.$sid[$.value[$uid] $.expires(1)] $uid[$sessions.$sid] + !form [берётся первый элемент из одноимённых из GET, потом первый из POST] !$form:поле = string/file @@ -452,10 +463,12 @@ odbc c:\drives\y\parser3project\odbc\ !$form:imap = хэш с ключами 'x' и 'y' со значением ?1,2 приписки при использовании server-site image map + !env !$env:переменная !$env:PARSER то же самое, что показывается при запуске parser.cgi + !cookie !$cookie:имя считать старое или свежезаданное !$cookie:имя[значение] на 90 дней @@ -473,6 +486,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 @@ -483,6 +497,7 @@ odbc c:\drives\y\parser3project\odbc\ ПРЕДУПРЕЖДЕНИЕ: класс form получает свои поля после обработки всех auto класса MAIN поэтому необходимо задать $request/response:charset в одном из них. не после. + !response !$response:поле[значение] и можно считать старое -- $response:поле !значение может быть string а может быть hash: @@ -505,6 +520,38 @@ 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_info[класс;метод] хеш с параметрами указанного метода класса + $.inherited[класс] имя класса, где метод был определён (возвращается только если метод был определён в предке) + для native классов возвращается хеш: + .min_params(минимально необходимое число параметров) + .max_params(максимально возможное число параметров) + .call_type[dynamic|static|any] + для parser классов возвращается хеш: + ключ -- номер параметра (0, 1, ...), значение - имя параметра + !^reflection:dynamical[[object or class, caller if absent]] возвращает true, если метод был вызван динамически + + !mail !$mail.received=MESSAGE: .from @@ -655,9 +702,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 @@ -678,6 +730,7 @@ odbc c:\drives\y\parser3project\odbc\ !^картинка.pixel(x;y)[(color)] узнать или задать цвет пиксела + !file !$файл_из_post.name !$файл_из_post.size @@ -685,17 +738,18 @@ odbc c:\drives\y\parser3project\odbc\ !^файл.save[text|binary;имя файла] !^file:delete[имя файла] !^file:find[имя файла][{когда не нашли}] - !^file:list[путь[;шаблон]] = table с колонкой name + !^file:list[путь[;шаблон-строка|шаблон-regex]] = table с колонкой name !^file::load[text|binary;!big.zip[;!domain_press_release_2001_03_01.zip][;опции]] !^file::create[text;имя;^untaint[xml]{data}] !$файл_который_был_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[старое имя файла;новое имя файла] @@ -739,6 +793,7 @@ odbc c:\drives\y\parser3project\odbc\ выдает digest файла, длиной 16 байт в виде строки, где байты digest выданы в hex виде, впритык, в нижнем регистре + !math !$math:PI !^math:round floor ceiling @@ -769,7 +824,12 @@ odbc c:\drives\y\parser3project\odbc\ !^math:crc32[string] вычисляет crc32 строки !^math:sha1[string] - !^math:long2ip(long) + + +!inet + !^inet:ntoa(long) + !^inet:aton[IP] + !date !время типа time можно использовать в выражениях, подставляет @@ -794,12 +854,16 @@ odbc c:\drives\y\parser3project\odbc\ !^дата.roll[year|month|day](+-смещение) сдвигает дату !^дата.roll[TZ;Новая зона] говорит, что дата в таком-то часовом поясе: влияет на .hour & Co !^дата.sql-string[] %Y-%m-%d %H:%M:%S - where published='$дата.sql-string[]' - !^date:calendar[rus|eng;год;месяц] выдаёт неименованную таблицу + 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 @@ -832,9 +896,11 @@ xdoc(xnode) ::sql{...} !::create[[URI]]{} старое имя 'set' !::create[[URI]][qualifiedName] - !::create[file] can be usable: $f[^file::load[binary;http://;some http options here...]]$x[^xdoc::create[$f]] 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 шаблон кэшируется, кэш обновляется при изменении даты файла шаблона, @@ -1079,7 +1145,7 @@ DATA::=string | file | hash !определив !@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, @@ -1091,8 +1157,11 @@ DATA::=string | file | hash !а также, возможно, указать опции: !$.method[GET|POST|HEAD] !$.timeout(3) << в секундах, по-умолчанию =2 + !$.cookies[ + $.имя[значение] + ] !$.headers[ - ! $поле[значение] << значение имеет формат, как $response:ЗАГОЛОВОК + ! $.поле[значение] << значение имеет формат, как $response:ЗАГОЛОВОК !] $.enctype[multipart/form-data] $.form[ @@ -1123,7 +1192,9 @@ DATA::=string | file | hash !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 @@ -1141,7 +1212,8 @@ DATA::=string | file | hash !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) то вместо обычного вывода страницы будет