--- parser3/operators.ru.txt 2007/08/20 14:07:15 1.198 +++ parser3/operators.ru.txt 2009/06/25 08:44:45 1.217 @@ -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! } } } @@ -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,14 +313,15 @@ odbc c:\drives\y\parser3project\odbc\ g найти все вхождения, а не одно ' создавать столбцы prematch, match, postmatch n вернуть цисло с количеством найденных совпадений, а не таблицу с результатами - !^строка.match[шаблон][опции поиска]{замена} + U инвертировать смысл модификатора '?' + !^строка.match[шаблон-строка|шаблон-regex][опции поиска]{замена} опции поиска+= g заменить все вхождения, а не одно - !^строка.split[разделитель][[lrhv]] + !^строка.split[разделитель][[lrhv]][[название столбца для вертикального разбиения]] l слева направо [default] r справа налево h nameless таблица с ключами 0, 1, 2, ... - v таблица из столбца piece [default] + v таблица из 1 столбца 'piece' или как передадут [default] !^строка.{l|r}split[разделитель] таблица из столбца $piece оставлен для совместимости !^строка.upper|lower[] @@ -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 @@ -339,7 +349,7 @@ odbc c:\drives\y\parser3project\odbc\ в выражении логическое значение равно "не пуста?" числовое значение равно 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 НЕ работает) @@ -382,7 +392,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] @@ -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 дней @@ -463,6 +476,7 @@ odbc c:\drives\y\parser3project\odbc\ !значение поля expires может быть 'session', date, или число дней(0дней=session) ! если дата, она будет преобразована к формату "Sun, 25-Aug-2002 12:03:45 GMT" ! можно устанавливать bool свойства, например $.secure(true), $.httponly(true) + !$cookie:fields = hash со всеми cookies !request @@ -472,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 @@ -482,6 +497,7 @@ odbc c:\drives\y\parser3project\odbc\ ПРЕДУПРЕЖДЕНИЕ: класс form получает свои поля после обработки всех auto класса MAIN поэтому необходимо задать $request/response:charset в одном из них. не после. + !response !$response:поле[значение] и можно считать старое -- $response:поле !значение может быть string а может быть hash: @@ -504,6 +520,19 @@ 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] + + !mail !$mail.received=MESSAGE: .from @@ -654,9 +683,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 @@ -677,6 +711,7 @@ odbc c:\drives\y\parser3project\odbc\ !^картинка.pixel(x;y)[(color)] узнать или задать цвет пиксела + !file !$файл_из_post.name !$файл_из_post.size @@ -684,17 +719,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[старое имя файла;новое имя файла] @@ -738,6 +774,7 @@ odbc c:\drives\y\parser3project\odbc\ выдает digest файла, длиной 16 байт в виде строки, где байты digest выданы в hex виде, впритык, в нижнем регистре + !math !$math:PI !^math:round floor ceiling @@ -768,7 +805,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 можно использовать в выражениях, подставляет @@ -793,12 +835,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 @@ -831,9 +877,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 шаблон кэшируется, кэш обновляется при изменении даты файла шаблона, @@ -893,6 +941,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 @@ -1076,7 +1126,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, @@ -1088,8 +1138,11 @@ DATA::=string | file | hash !а также, возможно, указать опции: !$.method[GET|POST|HEAD] !$.timeout(3) << в секундах, по-умолчанию =2 + !$.cookies[ + $.имя[значение] + ] !$.headers[ - ! $поле[значение] << значение имеет формат, как $response:ЗАГОЛОВОК + ! $.поле[значение] << значение имеет формат, как $response:ЗАГОЛОВОК !] $.enctype[multipart/form-data] $.form[ @@ -1120,7 +1173,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 @@ -1138,7 +1193,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) то вместо обычного вывода страницы будет