misc/art6_ideas.txt

   1 'navigator'
   2 ''
   3 {
   4 'or'
   5 %num
   6 cfg_index_num
   7 }
   8
   9
  10 [ {or %offset 0} {or %num cfg_index_num} '' 'navigator' $ &#
  11
  12 [ { [ 0 'offset' % 'or' $ &# } { [ 'cfg_index_num' $ 'num' % 'or' $ &# }
  13     '' 'navigator' $ &#
  14
  15 MARK
  16 MARK, CALL n
  17 MARK, CALL n, CALL m
  18 MARK, CALL n, CALL m, LITERAL
  19 MARK, CALL n, CALL m, LITERAL, LITERAL
  20 MARK, CALL n, CALL m, LITERAL, ADDRESS
  21
  22 {'navigator'
  23     { " '' }
  24     { 'or' { % 'num' & 'cfg_index_num' }}
  25     { 'or' { % 'num' " 0}}
  26 }
  27
  28 & 'navigator' 3 & 'or' 2
  29
  30 '<div class = navigator>' ?
  31 '0' 'offset' % or
  32 'cfg_index_num' & 'num' % or
  33 '' '3' 'navigator' &#
  34 '</div>' ?
  35
  36 navigator
  37 ---------
  38
  39 {
  40     '<span class = prev>' ?
  41
  42     'Newer posts' @
  43
  44     $1 $2 sub
  45     'offset'
  46     $0
  47     'topic'
  48     't' % 'INDEX' or
  49     5 'url' &#
  50
  51     2 'link' &#
  52
  53     '</span>' ?
  54 }
  55 {
  56     $2
  57 } if
  58
  59 {
  60     '<span class = next>' ?
  61
  62     'Older posts' @
  63
  64     $1 $2 add
  65     'offset'
  66     $0
  67     'topic'
  68     't' % 'INDEX' or
  69     5 'url' &#
  70
  71     2 'link' &#
  72
  73     '</span>' ?
  74 }
  75 {
  76     $1 $2 add
  77     $1
  78     $0 'cfg_index_topics' $ or
  79     3 'stories_by_date' &#
  80     size
  81 } if
  82
  83 {
  84     '<a href = "' ?
  85     $0 ?
  86     '">' ?
  87     $1 ?
  88 }
  89 'link' def
  90
  91 304 1 'set_http_status' &#
  92
  93 'sid' $ "sid=" . 1 'set_cookie' &#
  94
  95 {set_cookie {. "sid=" sid}}
  96
  97 {foreach
  98     {stories_by_date %topic 0 0}
  99     {
 100     }
 101 }
 102
 103 { 0 0 'topic' % 3 'stories_by_date' &# } foreach
 104
 105 {stories_by_date {or $0 cfg_index_topics} $1 {add $2 $1}
 106     {
 107         '<url><loc>' ?
 108         {aurl 'STORY' 'topic' $0 'id' $1} ?
 109         '</loc></url>' ?
 110     }
 111 }
 112
 113 {topics {
 114     '<url><loc>'
 115     {aurl 'TOPIC' 'topic' $0}
 116     '</loc></url>'
 117     }
 118 }
 119
 120 {
 121     '<url><loc>' ?
 122     $0 'topic' 'TOPIC' 3 'aurl' &# ?
 123     '</loc></url>' ?
 124 } 1 'topics' &#
 125
 126 [
 127 {
 128     [
 129     '</loc></url>'
 130     [ $1 'id' $0 'topic' 'TOPIC' 'aurl' &
 131     '<url><loc>'
 132     ?
 133 } 'stories_by_date' &
 134
 135 out(
 136     '<url><loc>',
 137     aurl('TOPIC', 'topic', $0),
 138     '</loc></url>'
 139 )
 140
 141 if($2,
 142     out(
 143         '<span class = prev>',
 144         link(
 145             url(
 146                 or(%t, 'INDEX'),
 147                 'topic',
 148                 $0,
 149                 'offset',
 150                 sub($2, $1)
 151             ),
 152             @("Newer posts")
 153         ),
 154         '</span>'
 155     )
 156 )
 157
 158 if(
 159     size(stories_by_date(or($0, cfg_index_topics), $1, add($2, $1))),
 160     out(
 161         '<span class = next',
 162         link(
 163             url(
 164                 or(%t, 'INDEX'),
 165                 'topic',
 166                 $0,
 167                 'offset'
 168                 add($2, $1)
 169             ),
 170             @("Older posts")
 171         ),
 172         '</span>'
 173     )
 174 )
 175
 176 if
 177 size
 178 stories_by_date
 179 or
 180 $0
 181 &
 182 cfg_index_topics
 183 [
 184 $1
 185 add
 186 $2
 187 $1
 188 [
 189 out
 190 '<span class = next>'
 191 link
 192 url
 193 or
 194 %
 195 't'
 196 'INDEX'
 197 'topic'
 198 $0
 199 'offset'
 200 add
 201 $2
 202 $1
 203 [
 204 @
 205 "Older posts"
 206 [
 207 '<span>'
 208 [
 209
 210 {
 211 [
 212     '</span>'
 213     [
 214         "Older posts" @
 215         [
 216             $1 $2 add 'offset' $0 'topic' 'INDEX' 't' % or
 217         'url' &
 218     'link' &
 219     '<span class = next>'
 220 out
 221 }
 222 [
 223     $1 $2 add
 224     $1
 225     [
 226     'cfg_index_topics' & $0 or
 227 'stories_by_date' &
 228 size
 229 if
 230
 231 stories_by_date(
 232     &out(
 233         '<url><loc>',
 234         aurl('STORY', 'topic', $0, 'id', $1),
 235         '</loc></url>'
 236     )
 237 );
 238
 239     &out(
 240         '<url><loc>',
 241         aurl('STORY', 'id', $0),
 242         '</loc></url>'
 243     )
 244
 245
 246 SITEMAP:
 247
 248 <{
 249     content_type("application/rss+xml")
 250
 251     transfer_encoding("chunked")
 252
 253     out(
 254         '<?xml version="1.0" encoding="UTF-8?>',
 255         '<urlset xmlns="http://www.sitemaps.org/schemas/sitemap/0.9">',
 256
 257         '<url><loc>',
 258         aurl,
 259         '</loc></url>',
 260
 261         stories_by_date(
 262             &out(
 263                 '<url><loc>',
 264                 aurl('STORY', 'id', $0),
 265                 '</loc></url>'
 266             )
 267         ),
 268
 269         topics(
 270             &out(
 271                 '<url><loc>',
 272                 aurl('TOPIC', 'id', $0),
 273                 '</loc></url>'
 274             )
 275         ),
 276
 277         '</urlset>'
 278     )
 279 }>
 280
 281
 282     let('count', 0)
 283
 284     channel(
 285         borodin,
 286         &out(
 287             '<url><loc>',
 288             aurl('STORY', 'id', $0),
 289             '</loc></url>'
 290         ),
 291         'cmd',      'stories_by_date'
 292     )
 293
 294 channel
 295 borodin
 296 [
 297 }
 298 out
 299     '<url><loc>',
 300     aurl
 301         'STORY'
 302         'id'
 303         $0
 304     [
 305     '</loc></url>'
 306 [
 307 {
 308 'cmd'
 309 'stories_by_date'
 310 [
 311
 312 [ 'stories_by_date' 'cmd'
 313     { [ '</loc></url>' [ $0 'id' 'STORY' 'aurl' & '<url><loc>' out }
 314 [ 'borodin' &
 315 channel
 316
 317 channel_send(borofd, 'cmd', 'topics')
 318
 319 channel_recv(borofd,
 320     &out(
 321         '<url><loc>',
 322         aurl('STORY', 'id', $0),
 323         '</loc></url>'
 324     )
 325 )
 326
 327 [ 'topics' 'cmd' 'borofd' & channel_send
 328
 329 { [ '</loc></url>' [ $0 'id' 'STORY' 'aurl' &] '<url><loc>' out }
 330 'borofd' & channel_recv
 331
 332 SEARCH_IMAGE
 333 ------------
 334
 335 <{
 336     assert_admin()
 337
 338     out(
 339         header,
 340         column1,
 341         column2,
 342         '<div class = main>'
 343         main_top,
 344         '<h1>',
 345         @("Search image by name"),
 346         '</h1>',
 347         search_image_form,
 348         add(1, 2)
 349     )
 350
 351     out
 352         'header' &
 353         'column1' &
 354         'column2' &
 355         '<div class = main>'
 356         'main_top' &
 357         '<h1>'
 358         'Search image by name' @
 359         '</h1>'
 360         'search_image_form' &
 361         2 1 add
 362     [
 363
 364     search_image(
 365         &out(
 366             '<p><b>',
 367             $0,
 368             '</b><br><img src = "http://',
 369             cfg_host_name,
 370             '/img/',
 371             $0,
 372             '" alt = "',
 373             $0,
 374             '" title = "',
 375             $0,
 376             '"></p>'
 377         ),
 378         %query
 379     )
 380
 381     out(
 382         search_hits,
 383         main_bottom,
 384         'div',
 385         footer
 386     );
 387 }>
 388
 389     channel_send(
 390         borodb,
 391         'cmd',          'search_image',
 392         'query',        %query
 393     )
 394
 395     [ 'query' % 'query' 'search_image' 'cmd' 'borodb' & channel_send
 396
 397     channel_recv(
 398         borodb,
 399         &out(
 400             '<p><b>',
 401             $0,
 402             '</b><br><img src = "http://',
 403             cfg_host_name,
 404             '/img/',
 405             $0,
 406             '" alt = "',
 407             $0,
 408             '" title = "',
 409             $0,
 410             '"></p>'
 411         )
 412     )
 413
 414     [ { [ '</b><br><img src = "http://' $0 '<p><b>' out } 'borodb' & channel_recv
 415
 416     if (eq(HTTP_REQUEST_METHOD, 'GET'),
 417         out(coco)
 418         foreach(array, out($0))
 419     )
 420
 421     { [ 'coco' & out { [ $0 out } 'array' & foreach}
 422         'HTTP_REQUEST_METHOD' & 'GET' eq if
 423
 424     set('link',
 425         &out(
 426             '<a href = "',
 427             $0,
 428             '">',
 429             $1,
 430             '</a>'
 431         )
 432     )
 433
 434     { [ '</a>' $1 '">' $0 '<a href = "' out } 'link' set
 435
 436     def('link',
 437         out($0)
 438         out($1)
 439         out("---")
 440     )
 441
 442     { [ $0 out [ $1 out [ "---" out } 'link' =
 443
 444     set('link',
 445         out($0)
 446         out($1)
 447         out("---")
 448     )
 449
 450     [ $0 out [ $1 out [ "---" out 'link' =
 451
 452     set('v', 10)
 453
 454     10 'v' =
 455
 456     local('v', 10)
 457
 458 init
 459 ----
 460
 461 <{ open('borodb', 'localhost', '1234') cgi_init() }>
 462
 463 header
 464 ------
 465
 466 <{init}><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
 467        "http://www.w3.org/TR/REC-html40/loose.dtd">
 468 <html>
 469
 470 ...
 471
 472
 473 INDEX
 474 -----
 475
 476 #!/usr/bin/env art6
 477 <{
 478     header
 479     column1
 480     column2
 481 }>
 482
 483 <div class = 'main'>
 484
 485     <{
 486         main_top
 487
 488         if (story_exists('info', 'index'),
 489             story_body('info', 'index'),
 490             index()
 491         )
 492
 493         main_bottom
 494     }>
 495
 496 </div>
 497
 498 <{footer}>
 499
 500 story_exists
 501 ------------
 502
 503 <{
 504
 505     chan_send('borodb',
 506         'cmd',              'story_exists',
 507         'topic',            $0,
 508         'id'                $1
 509     )
 510
 511     chan_recv('borodb',
 512         return($1)
 513     )
 514
 515 }>
 516
 517 story_body
 518 ----------
 519
 520 <{
 521     send('borodb',
 522         'cmd',          'story_body',
 523         'topic',        $0,
 524         'id',           $1
 525     )
 526
 527     recv('borodb', return($1))
 528 }>
 529
 530 def('story_body',
 531     send('borodb',
 532         'cmd',          'story_body',
 533         'topic',        $0,
 534         'id',           $1
 535     )
 536
 537     recv('borodb', return($1))
 538 )
 539
 540 send('borodb',
 541     'cmd',      'topics',
 542     'key',      'id',
 543     'key',      'title'
 544 )
 545
 546 out('<ul>')
 547
 548 recv('borodb',
 549     out(
 550         '<li>',
 551         link(
 552             url(
 553                 'TOPIC', 'topic', id
 554             ),
 555             title
 556         ),
 557         '</li>'
 558     )
 559 )
 560
 561 def('link',
 562     cat('<a href = "', $0, '">', $1, '</a>')
 563 )
 564
 565 <a href = "<{$0}>"><{$1}></a>
 566
 567 out('</ul>')
 568
 569 {
 570     [
 571         '</li>'
 572         [
 573             'title' $
 574             [
 575                 'id' $
 576                 'topic'
 577                 'TOPIC'
 578             'url' &
 579         'link' &
 580         '<li>'
 581     out
 582 } 'borodb' recv
 583
 584 set('n', 0)
 585
 586 while (lt(n, 100),
 587     out('value: ')
 588     out(n)
 589     set('n', add(n, 1))
 590 )
 591
 592 if (ne(HTTP_COOKIE, ''),
 593     send('db',
 594         'cmd',      'user_by_sid',
 595         'sid',      sid
 596     )
 597
 598     recv('db',
 599         set_logged_user(user)
 600     )
 601 )
 602
 603 set(etag, cat('"', out_crc16, '"'))
 604
 605 if (eq(HTTP_IF_NONE_MATCH, out_crc16),
 606     http_status(304)
 607     set('body', ''),
 608
 609     http_headers(
 610         'ETag',             etag,
 611         'Cache-Control',    'max-age=300'
 612     )
 613 )
 614
 615
 616 foreach (http_headers,
 617     out($0, ': ', $1, "\n")
 618 )
 619 out("\n")
 620
 621 if (use_gzip,
 622
 623 C API
 624 -----
 625
 626     struct a6_m a6m;
 627
 628     char *prg = "{[@0?[@1?['---\0?}'link\0=";
 629
 630     a6_prog(a6m, prg);
 631
 632     a6_run(a6m, 150);
 633
 634     char *prg2 = "['Triptico\0'http://triptico.com\0\0'link\0&?";
 635
 636     /* even variables are programs */
 637     char *prg3 = "{'angel\0}'user\0='user&?";
 638
 639     char *prg4 = "{['</a>\0$1'">\0$0'<a href = "\0?}'link\0=";
 640
 641     [ 'Triptico 'http://triptico.com [ '</a> $1 '"> $0 '<a href = "
 642
 643     ?('result is: ', /(10, 2), '!!!')
 644     def('link', ~('<a href = "', $0, '">', $1, '"</a>'))
 645     def('url', ~('http://', $0))
 646     link(url('triptico.com'), 'Triptico')
 647
 648     ['!!!\0['2\0'10\0/'Result is: \0?
 649
 650     ['Triptico\0['triptico.com\0'url\0&'link\0&
 651
 652     {['<a href =\0$0'">\0$1'"</a>\0~}'link\0=
 653     {[$0'http://\0~}'url\0=
 654
 655 ARCfour
 656 -------
 657
 658 =(
 659     arcfour_byte, {
 660         /* i = (i + 1) & 0xff; */
 661         =(i, &(+(i, 1), 0xff))
 662         /* j = (j + S[i]) & 0xff; */
 663         =(j, &(+(j, .(S, i)), 0xff))
 664         /* t = S[i]; S[i] = S[j]; S[j] = t; */
 665         =(t, .(S, i)) =(.(S, i), .(S, j)) =(.(S, j), t)
 666         /* t = (S[i] + S[j]) & 0xff; */
 667         =(t, &(+(.(S, i), .(S, j)), 0xff))
 668         /* K = S[t]; */
 669         =(K, .(S, t))
 670     }
 671 )
 672
 673 =(i, and(add(i, 1), 0xff))
 674 i = and(add(i, 1), 0xff)
 675
 676     ['i\000[['i\000$'1\000+'0xff\000&=Z
 677     ['K\000['S\000't\000$.=
 678
 679     ['arcfour_byte\000{['i\000[['i\000'1\000+'0xff\000&=Z'S\000't\000$.}=Z
 680
 681 =(c,^(get_char(f), arcfour_byte()))
 682
 683     ['c\000[['f\000$'get_char\000$&['arcfour_byte\000$&^=Z
 684
 685 =(.(S, j), t)
 686 =(S, j, t)