|
|
| version 1.10, 2004/02/25 13:40:23 | version 1.84.4.7, 2005/11/16 14:18:06 |
|---|---|
| Line 1 | Line 1 |
| @main[] | |
| $request:charset[UTF-8] | |
| #$response:charset[UTF-8] | |
| $response:charset[windows-1251] | |
| $response:content-type[$.value[text/html]$.charset[$response:charset]] | |
| $xdoc[^xdoc::create{<?xml version="1.0" encoding="$request:charset"?> | |
| <doc attribute="a | |
| b"> | |
| исходный | |
| </doc> | |
| }] | |
| $xdoc[^xdoc.transform[_bug.xsl]] | |
| ^xdoc.string[] | |
| #^xdoc.save[_bug-koi.xml;$.encoding[koi8-r]] | |
| #^xdoc.save[_bug-in-request-charset.xml] | |
| <hr> | |
| $request:charset/$response:charset | |
| @opt[] | |
| $result[ | |
| $.encloser["] | |
| # $.separator[^#09] | |
| ] | |
| @main[] | |
| $filename[/t.cfg] | |
| $options2[ | |
| $.encloser["] | |
| # $.separator[^#09] | |
| ] | |
| $t1[^table::create{a b | |
| 1 " | |
| 2 "" | |
| 3 """}] | |
| ^t1.save[$filename][$options2] | |
| # if we try load with $options - we receive error | |
| $t2[^table::load[$filename][$options2]] | |
| #$t2[^table::load[$filename][^opt[]]] | |
| #$t2[^table::load[$filename][$.encloser["]]] | |
| <table border="1"> | |
| <tr> | |
| <td>t1</td> | |
| <td>t2</td> | |
| <td>eq?</td> | |
| </tr> | |
| ^t1.menu{ | |
| <tr> | |
| <td>$t1.b</td> | |
| <td>$t2.b</td> | |
| <td>^if($t1.b eq $t2.b){YES}{NO}</td> | |
| </tr> | |
| ^t2.offset(1) | |
| } | |
| </table> |