!эти есть в таблице по умолчанию
-\n
!но т.к. заменяем, надо повторить.
-< <^; !можно этим воспользоваться,
-> >^; !и что-то сделать ДО обычных замен
-" "^; !например из << и >>
-& &^; !сделать ёлочки-кавычки.
-_ ^;
-^#AB «^; windows коды ёлочек
-^#BB »^; windows коды ёлочек
-(c) ©^;
-^#A9 ©^; windows (c)
+$DEFAULTS[
+ $.content-type[
+ $.value[text/html]
+ $.charset[windows-1251]
+ ]
+]
+
+$SQL[
+ $.drivers[^table::set{protocol driver client
+mysql c:\drives/y\parser3project\mysql\debug\parser3mysql.dll c:\drives/y\parser3project\win32mysql\lib\debug\libmySQL.dll
+odbc c:\drives/y\parser3project\odbc\Debug\parser3odbc.dll
+pgsql c:\drives/y\parser3project\pgsql\Debug\parser3pgsql.dll c:\drives/y\parser3project\win32pgsql\lib\release\libpq.dll
+oracle c:\drives/y\parser3project\oracle\Debug\parser3oracle.dll C:\Oracle\Ora81\BIN\oci.dll?PATH+=^;C:\Oracle\Ora81\bin
+?ORACLE_HOME=C:\Oracle\Ora81&ORA_NLS33=C:\Oracle\Ora81\ocommon\nls\ADMIN\DATA
}]
+]
#for ^file:load[name;user-name;mime-type << autodetection]
$MIME-TYPES[^table::set{ext mime-type
@@ -58,17 +63,6 @@ swf application/x-shockwave-flash
$LIMITS[
$.post_max_size(10*0x400*0x400)
]
-$DEFAULTS[
- $.content-type0[text/html]
- $.content-type[
- $.value[text/html]
- $.charset[windows-1251]
- ]
-]
-#for ^match{}[i]
-$CHARSETS[
- $.windows-1251[d:\Y\parser3project\parser3\src\www\windows-1251.cfg]
-]
$MAIL[
$.SMTP[mail.office.design.ru]
@@ -76,11 +70,20 @@ $MAIL[
# $.prog2[/usr/lib/sendmail -t]
]
-@exception[origin;source;comment;type;code][i;j]
-
^untaint[html]{$origin}
+}
^if(def $type){type=$type}
^if(def $code){code=$code}
+^if($stack){
+