Return to index.html CVS log

Up to [parser3project] / parser3 / src / www / htdocs

Annotation of parser3/src/www/htdocs/index.html, revision 1.183

1.48      paf         1: @main[]
1.183   ! parser      2: $строка[васяЗдЕсЬ]
        !             3: ^^строка.upper[]=^строка.upper[]<br>
        !             4: ^^строка.lower[]=^строка.lower[]<br>
        !             5: <hr>
        !             6: 
        !             7: 
1.182     parser      8: $a[12]
                      9: ^a.int[]
                     10: <hr>
                     11: 
                     12: 
1.178     paf        13: $t[^table:set{key      value
                     14: 1      v1
                     15: 2      v2}]
                     16: $h[^t.hash[key]]
                     17: 
                     18: 
1.180     paf        19: #^rem{
1.178     paf        20: ^connect[$SQL.connect-string]{
                     21:        $shit[^taint[our's]]
                     22: #      $paf[^table:sql{insert into paf (name, age) values ('$shit', ^random:generate(10000))}]
                     23:        $paf[^table:sql{select * from paf order by id desc}(5)]
                     24:        $paf{
1.180     paf        25:        ^if(^empty[]){query result is empty}{
1.178     paf        26:        <table border=1>
                     27:                <tr><td>id</td><td>name</td><td>age</td></tr>
                     28:                ^menu{<tr><td>$id</td><td>$name</td><td>$age</td></tr>}
                     29:        </table>
                     30:        }}
                     31: }
1.180     paf        32: #}
1.178     paf        33: 
                     34: <HR>
                     35: $abc{}
                     36: $tn[^table:set[nameless]{a1    b1
                     37: a2     b2
                     38: }]
                     39: $x[^tn.locate[0;a2]]
                     40: ^$tn.1=$tn.1
                     41: <hr>
                     42: $t0[^table:set{key     a       b
                     43: 1      a1
                     44: 2      a2      b2
                     45: }]
                     46: ^if(^t0.locate[key;2] && "a" ne "b"){y;n}
                     47: <hr>
1.177     paf        48: $currentFolder[/a/b]
                     49: $path[^currentFolder.lsplit[/]]
                     50: ^path.flip[]
                     51: $path{
                     52: ^menu{$0}{,}
                     53: }
                     54: <hr>
1.175     paf        55: $t1[^table:set{key     value
                     56: 1      v1
                     57: 2      v2}]
                     58: $h1[^t1.hash[key]]
                     59: ^h1.default[$value[nothing]]
1.176     paf        60: ^$h1.2.value=$h1.2.value<br>
                     61: ^$h1.2x.value=$h1.2x.value<br>
1.175     paf        62: <hr>
1.172     paf        63: $t2[^table:set{key     a       b
1.173     paf        64: 1      a1
1.172     paf        65: 2      a2      b2
                     66: }]
1.175     paf        67: t2 ^if(^t2.empty[]){empty}{not empty}<br>
1.173     paf        68: ^t2.offset(1)
                     69: $t2.b
                     70: $r[^t2.record[]]
                     71: <hr>
                     72: $th[^t2.hash[b]]
                     73: ^$th.b2.a=$th.b2.a<br>
                     74: <hr>
                     75: $th[^t2.hash[key;a]]
1.174     paf        76: ^$th.2.a=$th.2.a<br>
1.172     paf        77: <hr>
1.171     paf        78: #^OP:eval(1<2)
1.169     paf        79: 
                     80: $filelist[^table:dir[.]]
1.168     paf        81: <hr>
                     82: $path[/news/tululu/]
1.169     paf        83: #^path.flip[]
1.168     paf        84: <hr>
1.167     paf        85: $branches[^table:set{name      val
                     86: index.cgihtml  123
                     87: }]
                     88: $splitURI[^request:uri.lsplit[/]]
1.171     paf        89: name ^if(^branches.locate[name;$splitURI.1]){found;not found}:
                     90: $branches.name
1.167     paf        91: <HR>
1.166     paf        92: $splitURI[^request:uri.lsplit[/]]
1.164     paf        93: $splitURI.0!$splitURI.1
                     94: <HR>
                     95: 
1.163     paf        96: $t2[^table:set{dir     title
                     97: /here  Here
                     98: }]
                     99: $t2{^menu{${dir}-$title}[,]}
                    100: <HR>
                    101: $dir[news]
                    102: $list[^table:dir[$dir]]
                    103: ^list.menu{
                    104:     $subdir[$dir/$list.name]
                    105:        $sublist[^table:dir[$subdir]]
                    106:        ${list.name}/ $sublist{^menu{$name}[,]}<br>
                    107: }
                    108: <HR>
1.161     paf       109: ^if(in "/otherdeeper"){y;n}
                    110: <HR>
1.160     paf       111: ^$form:проверка_имя=$form:проверка_имя<BR>
1.181     paf       112: <form method=post action=index.html>
1.160     paf       113: <input name=проверка_имя value=проверка_значение>
                    114: <input type=submit>
                    115: </form>
                    116: <HR>
                    117: 
1.116     paf       118: ^^table:dir[/]:<BR>
                    119: $d[^table:dir[/]]
1.158     paf       120: $d{^menu{$name &nbsp^;&nbsp^;&nbsp^;&nbsp^;^if(-f $name){-f} ^if(-d $name){-d};<BR>}}
1.115     paf       121: <HR>
                    122: 
1.158     paf       123: $files[^table:set{name}]
1.159     paf       124: $d{^menu{
                    125:     ^if(-d "$name"){
                    126:         ^:files.append{$name}
1.158     paf       127:     }
1.159     paf       128: }}
                    129: 
1.158     paf       130: $files{^menu{$name}[,]}
1.94      paf       131: <HR>
1.31      paf       132: 
1.159     paf       133: @exception[origin;source;comment;type;code][i;j]
1.35      paf       134: <body bgcolor=black>
                    135: <font color=white>
1.31      paf       136: ERROR:
1.67      paf       137: ^if(def $source){$origin '$source'}
1.31      paf       138: ${comment}.
                    139: ^if(def $type){type=$type}
                    140: ^if(def $code){code=$code}
1.42      paf       141: 
1.43      paf       142: @auto_test[]
                    143: ^BASE.auto_test[]
1.168     paf       144: <li>${request:uri}!
1.179     paf       145: @end
1.168     paf       146: 
                    147: 
1.179     paf       148: @a[]