|
|
| version 1.423, 2001/10/23 12:41:05 | version 1.432, 2001/10/25 13:17:54 |
|---|---|
| Line 1 | Line 1 |
| @main[] | @main[] |
| #^безнадёжна_попытка_поправить_непоправимое[] | |
| #^tcache[] | |
| #^thashfileexp[] | |
| ^tcounter[] | ^tcounter[] |
| #^tablehash[] | #^tablehash[] |
| #^hashfile[] | #^hashfile[] |
| #^hashfile[] | |
| #^formclass[] | #^formclass[] |
| #^hren[] | #^hren[] |
| #^domedit[] | #^domedit[] |
| Line 43 | Line 45 |
| #^header[] | #^header[] |
| OK | OK |
| @безнадёжна_попытка_поправить_непоправимое[] | |
| $dom_from_disk[^xdoc::load[input.xml]] | |
| $dom_created_in_air[^xdoc::create[doc]] | |
| ^dom_created_in_air.documentElement.appendChild[^dom_from_disk.documentElement.cloneNode(1)] | |
| ^show-xdoc2[$dom_created_in_air] | |
| @tcache[] | |
| #^hashfile:clear[cache] | |
| $code[^hashfile::open[cache]] | |
| ^code.cache[key](2){ | |
| ^math:random(100) | |
| # ^code.delete[] | |
| } | |
| @thashfileexp[] | |
| $hf[^hashfile::open[hashfile]] | |
| $hf.paf[$.value[крут] $.expires(3)] | |
| paf=$hf.paf | |
| <hr> | |
| $hash[^hf.hash[]] | |
| =$hash.paf= | |
| <hr> | |
| @tcounter[] | @tcounter[] |
| #^hashfile:clear[counter] | ^tcounterone[$DB_HOME] |
| $counter[^hashfile::open[counter]] | other root: |
| ^tcounterone[${DB_HOME}2] | |
| again, first: | |
| ^tcounterone[$DB_HOME] | |
| @tcounterone[DB_HOME] | |
| #^hashfile:clear[$DB_HOME;counter] | |
| $counter[^hashfile::open[$DB_HOME;counter]] | |
| ^counter.transaction{ | ^counter.transaction{ |
| # $counter.value(10) | # $counter.value(10) |
| $counter.value($counter.value+1) | $counter.value($counter.value+1) |
| # ^counter.delete[value] | # ^counter.delete[value] |
| $counter.value | $counter.value |
| } | } |
| <hr> | |
| ^rem{ | |
| $hash[^counter.hash[]] | |
| =$hash.value= | |
| <hr> | |
| } | |
| @tablehash[] | @tablehash[] |
| $productList[^table::set{id name | $productList[^table::set{id name |