diff options
Diffstat (limited to 'tests/lexers/factor')
| -rw-r--r-- | tests/lexers/factor/example.txt | 2654 |
1 files changed, 2654 insertions, 0 deletions
diff --git a/tests/lexers/factor/example.txt b/tests/lexers/factor/example.txt new file mode 100644 index 00000000..d4f82586 --- /dev/null +++ b/tests/lexers/factor/example.txt @@ -0,0 +1,2654 @@ +---input--- +! Copyright (C) 2008 Slava Pestov +! See http://factorcode.org/license.txt for BSD license. +USING: accessors kernel hashtables calendar random assocs +namespaces make splitting sequences sorting math.order present +io.files io.directories io.encodings.ascii +syndication farkup +html.components html.forms +http.server +http.server.dispatchers +furnace.actions +furnace.utilities +furnace.redirection +furnace.auth +furnace.auth.login +furnace.boilerplate +furnace.syndication +validators +db.types db.tuples lcs urls ; +IN: webapps.wiki + +: wiki-url ( rest path -- url ) + [ "$wiki/" % % "/" % present % ] "" make + <url> swap >>path ; + +: view-url ( title -- url ) "view" wiki-url ; + +: edit-url ( title -- url ) "edit" wiki-url ; + +: revisions-url ( title -- url ) "revisions" wiki-url ; + +: revision-url ( id -- url ) "revision" wiki-url ; + +: user-edits-url ( author -- url ) "user-edits" wiki-url ; + +TUPLE: wiki < dispatcher ; + +SYMBOL: can-delete-wiki-articles? + +can-delete-wiki-articles? define-capability + +TUPLE: article title revision ; + +article "ARTICLES" { + { "title" "TITLE" { VARCHAR 256 } +not-null+ +user-assigned-id+ } + { "revision" "REVISION" INTEGER +not-null+ } ! revision id +} define-persistent + +: <article> ( title -- article ) article new swap >>title ; + +TUPLE: revision id title author date content description ; + +revision "REVISIONS" { + { "id" "ID" INTEGER +db-assigned-id+ } + { "title" "TITLE" { VARCHAR 256 } +not-null+ } ! article id + { "author" "AUTHOR" { VARCHAR 256 } +not-null+ } ! uid + { "date" "DATE" TIMESTAMP +not-null+ } + { "content" "CONTENT" TEXT +not-null+ } + { "description" "DESCRIPTION" TEXT } +} define-persistent + +M: revision feed-entry-title + [ title>> ] [ drop " by " ] [ author>> ] tri 3append ; + +M: revision feed-entry-date date>> ; + +M: revision feed-entry-url id>> revision-url ; + +: reverse-chronological-order ( seq -- sorted ) + [ date>> ] inv-sort-with ; + +: <revision> ( id -- revision ) + revision new swap >>id ; + +: validate-title ( -- ) + { { "title" [ v-one-line ] } } validate-params ; + +: validate-author ( -- ) + { { "author" [ v-username ] } } validate-params ; + +: <article-boilerplate> ( responder -- responder' ) + <boilerplate> + { wiki "page-common" } >>template ; + +: <main-article-action> ( -- action ) + <action> + [ "Front Page" view-url <redirect> ] >>display ; + +: latest-revision ( title -- revision/f ) + <article> select-tuple + dup [ revision>> <revision> select-tuple ] when ; + +: <view-article-action> ( -- action ) + <action> + + "title" >>rest + + [ validate-title ] >>init + + [ + "title" value dup latest-revision [ + from-object + { wiki "view" } <chloe-content> + ] [ + edit-url <redirect> + ] ?if + ] >>display + + <article-boilerplate> ; + +: <view-revision-action> ( -- action ) + <page-action> + + "id" >>rest + + [ + validate-integer-id + "id" value <revision> + select-tuple from-object + ] >>init + + { wiki "view" } >>template + + <article-boilerplate> ; + +: <random-article-action> ( -- action ) + <action> + [ + article new select-tuples random + [ title>> ] [ "Front Page" ] if* + view-url <redirect> + ] >>display ; + +: amend-article ( revision article -- ) + swap id>> >>revision update-tuple ; + +: add-article ( revision -- ) + [ title>> ] [ id>> ] bi article boa insert-tuple ; + +: add-revision ( revision -- ) + [ insert-tuple ] + [ + dup title>> <article> select-tuple + [ amend-article ] [ add-article ] if* + ] + bi ; + +: <edit-article-action> ( -- action ) + <page-action> + + "title" >>rest + + [ + validate-title + + "title" value <article> select-tuple + [ revision>> <revision> select-tuple ] + [ f <revision> "title" value >>title ] + if* + + [ title>> "title" set-value ] + [ content>> "content" set-value ] + bi + ] >>init + + { wiki "edit" } >>template + + <article-boilerplate> ; + +: <submit-article-action> ( -- action ) + <action> + [ + validate-title + + { + { "content" [ v-required ] } + { "description" [ [ v-one-line ] v-optional ] } + } validate-params + + f <revision> + "title" value >>title + now >>date + username >>author + "content" value >>content + "description" value >>description + [ add-revision ] [ title>> view-url <redirect> ] bi + ] >>submit + + <protected> + "edit wiki articles" >>description ; + +: <revisions-boilerplate> ( responder -- responder ) + <boilerplate> + { wiki "revisions-common" } >>template ; + +: list-revisions ( -- seq ) + f <revision> "title" value >>title select-tuples + reverse-chronological-order ; + +: <list-revisions-action> ( -- action ) + <page-action> + + "title" >>rest + + [ + validate-title + list-revisions "revisions" set-value + ] >>init + + { wiki "revisions" } >>template + + <revisions-boilerplate> + <article-boilerplate> ; + +: <list-revisions-feed-action> ( -- action ) + <feed-action> + + "title" >>rest + + [ validate-title ] >>init + + [ "Revisions of " "title" value append ] >>title + + [ "title" value revisions-url ] >>url + + [ list-revisions ] >>entries ; + +: rollback-description ( description -- description' ) + [ "Rollback of '" "'" surround ] [ "Rollback" ] if* ; + +: <rollback-action> ( -- action ) + <action> + + [ validate-integer-id ] >>validate + + [ + "id" value <revision> select-tuple + f >>id + now >>date + username >>author + [ rollback-description ] change-description + [ add-revision ] + [ title>> revisions-url <redirect> ] bi + ] >>submit + + <protected> + "rollback wiki articles" >>description ; + +: list-changes ( -- seq ) + f <revision> select-tuples + reverse-chronological-order ; + +: <list-changes-action> ( -- action ) + <page-action> + [ list-changes "revisions" set-value ] >>init + { wiki "changes" } >>template + + <revisions-boilerplate> ; + +: <list-changes-feed-action> ( -- action ) + <feed-action> + [ URL" $wiki/changes" ] >>url + [ "All changes" ] >>title + [ list-changes ] >>entries ; + +: <delete-action> ( -- action ) + <action> + + [ validate-title ] >>validate + + [ + "title" value <article> delete-tuples + f <revision> "title" value >>title delete-tuples + URL" $wiki" <redirect> + ] >>submit + + <protected> + "delete wiki articles" >>description + { can-delete-wiki-articles? } >>capabilities ; + +: <diff-action> ( -- action ) + <page-action> + + [ + { + { "old-id" [ v-integer ] } + { "new-id" [ v-integer ] } + } validate-params + + "old-id" "new-id" + [ value <revision> select-tuple ] bi@ + [ + over title>> "title" set-value + [ "old" [ from-object ] nest-form ] + [ "new" [ from-object ] nest-form ] + bi* + ] + [ [ content>> string-lines ] bi@ diff "diff" set-value ] + 2bi + ] >>init + + { wiki "diff" } >>template + + <article-boilerplate> ; + +: <list-articles-action> ( -- action ) + <page-action> + + [ + f <article> select-tuples + [ title>> ] sort-with + "articles" set-value + ] >>init + + { wiki "articles" } >>template ; + +: list-user-edits ( -- seq ) + f <revision> "author" value >>author select-tuples + reverse-chronological-order ; + +: <user-edits-action> ( -- action ) + <page-action> + + "author" >>rest + + [ + validate-author + list-user-edits "revisions" set-value + ] >>init + + { wiki "user-edits" } >>template + + <revisions-boilerplate> ; + +: <user-edits-feed-action> ( -- action ) + <feed-action> + "author" >>rest + [ validate-author ] >>init + [ "Edits by " "author" value append ] >>title + [ "author" value user-edits-url ] >>url + [ list-user-edits ] >>entries ; + +: init-sidebars ( -- ) + "Contents" latest-revision [ "contents" [ from-object ] nest-form ] when* + "Footer" latest-revision [ "footer" [ from-object ] nest-form ] when* ; + +: init-relative-link-prefix ( -- ) + URL" $wiki/view/" adjust-url present relative-link-prefix set ; + +: <wiki> ( -- dispatcher ) + wiki new-dispatcher + <main-article-action> "" add-responder + <view-article-action> "view" add-responder + <view-revision-action> "revision" add-responder + <random-article-action> "random" add-responder + <list-revisions-action> "revisions" add-responder + <list-revisions-feed-action> "revisions.atom" add-responder + <diff-action> "diff" add-responder + <edit-article-action> "edit" add-responder + <submit-article-action> "submit" add-responder + <rollback-action> "rollback" add-responder + <user-edits-action> "user-edits" add-responder + <list-articles-action> "articles" add-responder + <list-changes-action> "changes" add-responder + <user-edits-feed-action> "user-edits.atom" add-responder + <list-changes-feed-action> "changes.atom" add-responder + <delete-action> "delete" add-responder + <boilerplate> + [ init-sidebars init-relative-link-prefix ] >>init + { wiki "wiki-common" } >>template ; + +: init-wiki ( -- ) + "resource:extra/webapps/wiki/initial-content" [ + [ + dup ".txt" ?tail [ + swap ascii file-contents + f <revision> + swap >>content + swap >>title + "slava" >>author + now >>date + add-revision + ] [ 2drop ] if + ] each + ] with-directory-files ; + +---tokens--- +'! Copyright (C) 2008 Slava Pestov' Comment +'\n' Text + +'! See http://factorcode.org/license.txt for BSD license.' Comment +'\n' Text + +'USING:' Keyword.Namespace +' ' Text +'accessors' Name.Namespace +' ' Text +'kernel' Name.Namespace +' ' Text +'hashtables' Name.Namespace +' ' Text +'calendar' Name.Namespace +' ' Text +'random' Name.Namespace +' ' Text +'assocs' Name.Namespace +'\n' Text + +'namespaces' Name.Namespace +' ' Text +'make' Name.Namespace +' ' Text +'splitting' Name.Namespace +' ' Text +'sequences' Name.Namespace +' ' Text +'sorting' Name.Namespace +' ' Text +'math.order' Name.Namespace +' ' Text +'present' Name.Namespace +'\n' Text + +'io.files' Name.Namespace +' ' Text +'io.directories' Name.Namespace +' ' Text +'io.encodings.ascii' Name.Namespace +'\n' Text + +'syndication' Name.Namespace +' ' Text +'farkup' Name.Namespace +'\n' Text + +'html.components' Name.Namespace +' ' Text +'html.forms' Name.Namespace +'\n' Text + +'http.server' Name.Namespace +'\n' Text + +'http.server.dispatchers' Name.Namespace +'\n' Text + +'furnace.actions' Name.Namespace +'\n' Text + +'furnace.utilities' Name.Namespace +'\n' Text + +'furnace.redirection' Name.Namespace +'\n' Text + +'furnace.auth' Name.Namespace +'\n' Text + +'furnace.auth.login' Name.Namespace +'\n' Text + +'furnace.boilerplate' Name.Namespace +'\n' Text + +'furnace.syndication' Name.Namespace +'\n' Text + +'validators' Name.Namespace +'\n' Text + +'db.types' Name.Namespace +' ' Text +'db.tuples' Name.Namespace +' ' Text +'lcs' Name.Namespace +' ' Text +'urls' Name.Namespace +' ' Text +';\n' Keyword + +'IN:' Keyword.Namespace +' ' Text +'webapps.wiki' Name.Namespace +'\n\n' Text + +':' Keyword +' ' Text +'wiki-url' Name.Function +' ' Text +'( ' Name.Function +'rest' Name.Variable +' ' Text +'path' Name.Variable +' ' Text +'-- ' Name.Function +'url' Name.Variable +' ' Text +')\n' Name.Function + +' ' Text +'[' Text +' ' Text +'"$wiki/"' Literal.String +' ' Text +'%' Text +' ' Text +'%' Text +' ' Text +'"/"' Literal.String +' ' Text +'%' Text +' ' Text +'present' Text +' ' Text +'%' Text +' ' Text +']' Text +' ' Text +'""' Literal.String +' ' Text +'make' Text +'\n ' Text +'<url>' Text +' ' Text +'swap ' Name.Builtin +'>>path' Text +' ' Text +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'view-url' Name.Function +' ' Text +'( ' Name.Function +'title' Name.Variable +' ' Text +'-- ' Name.Function +'url' Name.Variable +' ' Text +') ' Name.Function +'"view"' Literal.String +' ' Text +'wiki-url' Text +' ' Text +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'edit-url' Name.Function +' ' Text +'( ' Name.Function +'title' Name.Variable +' ' Text +'-- ' Name.Function +'url' Name.Variable +' ' Text +') ' Name.Function +'"edit"' Literal.String +' ' Text +'wiki-url' Text +' ' Text +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'revisions-url' Name.Function +' ' Text +'( ' Name.Function +'title' Name.Variable +' ' Text +'-- ' Name.Function +'url' Name.Variable +' ' Text +') ' Name.Function +'"revisions"' Literal.String +' ' Text +'wiki-url' Text +' ' Text +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'revision-url' Name.Function +' ' Text +'( ' Name.Function +'id' Name.Variable +' ' Text +'-- ' Name.Function +'url' Name.Variable +' ' Text +') ' Name.Function +'"revision"' Literal.String +' ' Text +'wiki-url' Text +' ' Text +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'user-edits-url' Name.Function +' ' Text +'( ' Name.Function +'author' Name.Variable +' ' Text +'-- ' Name.Function +'url' Name.Variable +' ' Text +') ' Name.Function +'"user-edits"' Literal.String +' ' Text +'wiki-url' Text +' ' Text +';\n' Keyword + +'\n' Text + +'TUPLE:' Keyword +' ' Text +'wiki' Name.Class +' < ' Text +'dispatcher' Name.Class +' ' Text +';\n' Keyword + +'\n' Text + +'SYMBOL:' Keyword +' ' Text +'can-delete-wiki-articles?' Name.Function +'\n\n' Text + +'can-delete-wiki-articles?' Text +' ' Text +'define-capability' Text +'\n\n' Text + +'TUPLE:' Keyword +' ' Text +'article' Name.Class +' ' Text +'title' Name.Variable +' ' Text +'revision' Name.Variable +' ' Text +';\n' Keyword + +'\n' Text + +'article' Text +' ' Text +'"ARTICLES"' Literal.String +' ' Text +'{' Text +'\n ' Text +'{' Text +' ' Text +'"title"' Literal.String +' ' Text +'"TITLE"' Literal.String +' ' Text +'{' Text +' ' Text +'VARCHAR' Text +' ' Text +'256 ' Literal.Number +'}' Text +' ' Text +'+not-null+' Text +' ' Text +'+user-assigned-id+' Text +' ' Text +'}' Text +'\n ' Text +'{' Text +' ' Text +'"revision"' Literal.String +' ' Text +'"REVISION"' Literal.String +' ' Text +'INTEGER' Text +' ' Text +'+not-null+' Text +' ' Text +'}' Text +' ' Text +'! revision id' Comment +'\n' Text + +'}' Text +' ' Text +'define-persistent' Text +'\n\n' Text + +':' Keyword +' ' Text +'<article>' Name.Function +' ' Text +'( ' Name.Function +'title' Name.Variable +' ' Text +'-- ' Name.Function +'article' Name.Variable +' ' Text +') ' Name.Function +'article' Text +' ' Text +'new ' Name.Builtin +'swap ' Name.Builtin +'>>title' Text +' ' Text +';\n' Keyword + +'\n' Text + +'TUPLE:' Keyword +' ' Text +'revision' Name.Class +' ' Text +'id' Name.Variable +' ' Text +'title' Name.Variable +' ' Text +'author' Name.Variable +' ' Text +'date' Name.Variable +' ' Text +'content' Name.Variable +' ' Text +'description' Name.Variable +' ' Text +';\n' Keyword + +'\n' Text + +'revision' Text +' ' Text +'"REVISIONS"' Literal.String +' ' Text +'{' Text +'\n ' Text +'{' Text +' ' Text +'"id"' Literal.String +' ' Text +'"ID"' Literal.String +' ' Text +'INTEGER' Text +' ' Text +'+db-assigned-id+' Text +' ' Text +'}' Text +'\n ' Text +'{' Text +' ' Text +'"title"' Literal.String +' ' Text +'"TITLE"' Literal.String +' ' Text +'{' Text +' ' Text +'VARCHAR' Text +' ' Text +'256 ' Literal.Number +'}' Text +' ' Text +'+not-null+' Text +' ' Text +'}' Text +' ' Text +'! article id' Comment +'\n ' Text +'{' Text +' ' Text +'"author"' Literal.String +' ' Text +'"AUTHOR"' Literal.String +' ' Text +'{' Text +' ' Text +'VARCHAR' Text +' ' Text +'256 ' Literal.Number +'}' Text +' ' Text +'+not-null+' Text +' ' Text +'}' Text +' ' Text +'! uid' Comment +'\n ' Text +'{' Text +' ' Text +'"date"' Literal.String +' ' Text +'"DATE"' Literal.String +' ' Text +'TIMESTAMP' Text +' ' Text +'+not-null+' Text +' ' Text +'}' Text +'\n ' Text +'{' Text +' ' Text +'"content"' Literal.String +' ' Text +'"CONTENT"' Literal.String +' ' Text +'TEXT' Text +' ' Text +'+not-null+' Text +' ' Text +'}' Text +'\n ' Text +'{' Text +' ' Text +'"description"' Literal.String +' ' Text +'"DESCRIPTION"' Literal.String +' ' Text +'TEXT' Text +' ' Text +'}' Text +'\n' Text + +'}' Text +' ' Text +'define-persistent' Text +'\n\n' Text + +'M:' Keyword +' ' Text +'revision' Name.Class +' ' Text +'feed-entry-title' Name.Function +'\n ' Text +'[' Text +' ' Text +'title>>' Text +' ' Text +']' Text +' ' Text +'[' Text +' ' Text +'drop ' Name.Builtin +'" by "' Literal.String +' ' Text +']' Text +' ' Text +'[' Text +' ' Text +'author>>' Text +' ' Text +']' Text +' ' Text +'tri ' Name.Builtin +'3append ' Name.Builtin +';\n' Keyword + +'\n' Text + +'M:' Keyword +' ' Text +'revision' Name.Class +' ' Text +'feed-entry-date' Name.Function +' ' Text +'date>>' Text +' ' Text +';\n' Keyword + +'\n' Text + +'M:' Keyword +' ' Text +'revision' Name.Class +' ' Text +'feed-entry-url' Name.Function +' ' Text +'id>>' Text +' ' Text +'revision-url' Text +' ' Text +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'reverse-chronological-order' Name.Function +' ' Text +'( ' Name.Function +'seq' Name.Variable +' ' Text +'-- ' Name.Function +'sorted' Name.Variable +' ' Text +')\n' Name.Function + +' ' Text +'[' Text +' ' Text +'date>>' Text +' ' Text +']' Text +' ' Text +'inv-sort-with' Text +' ' Text +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'<revision>' Name.Function +' ' Text +'( ' Name.Function +'id' Name.Variable +' ' Text +'-- ' Name.Function +'revision' Name.Variable +' ' Text +')\n' Name.Function + +' ' Text +'revision' Text +' ' Text +'new ' Name.Builtin +'swap ' Name.Builtin +'>>id' Text +' ' Text +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'validate-title' Name.Function +' ' Text +'( ' Name.Function +'-- ' Name.Function +')\n' Name.Function + +' ' Text +'{' Text +' ' Text +'{' Text +' ' Text +'"title"' Literal.String +' ' Text +'[' Text +' ' Text +'v-one-line' Text +' ' Text +']' Text +' ' Text +'}' Text +' ' Text +'}' Text +' ' Text +'validate-params' Text +' ' Text +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'validate-author' Name.Function +' ' Text +'( ' Name.Function +'-- ' Name.Function +')\n' Name.Function + +' ' Text +'{' Text +' ' Text +'{' Text +' ' Text +'"author"' Literal.String +' ' Text +'[' Text +' ' Text +'v-username' Text +' ' Text +']' Text +' ' Text +'}' Text +' ' Text +'}' Text +' ' Text +'validate-params' Text +' ' Text +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'<article-boilerplate>' Name.Function +' ' Text +'( ' Name.Function +'responder' Name.Variable +' ' Text +'-- ' Name.Function +"responder'" Name.Variable +' ' Text +')\n' Name.Function + +' ' Text +'<boilerplate>' Text +'\n ' Text +'{' Text +' ' Text +'wiki' Text +' ' Text +'"page-common"' Literal.String +' ' Text +'}' Text +' ' Text +'>>template' Text +' ' Text +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'<main-article-action>' Name.Function +' ' Text +'( ' Name.Function +'-- ' Name.Function +'action' Name.Variable +' ' Text +')\n' Name.Function + +' ' Text +'<action>' Text +'\n ' Text +'[' Text +' ' Text +'"Front Page"' Literal.String +' ' Text +'view-url' Text +' ' Text +'<redirect>' Text +' ' Text +']' Text +' ' Text +'>>display' Text +' ' Text +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'latest-revision' Name.Function +' ' Text +'( ' Name.Function +'title' Name.Variable +' ' Text +'-- ' Name.Function +'revision/f' Name.Variable +' ' Text +')\n' Name.Function + +' ' Text +'<article>' Text +' ' Text +'select-tuple' Text +'\n ' Text +'dup ' Name.Builtin +'[' Text +' ' Text +'revision>>' Text +' ' Text +'<revision>' Text +' ' Text +'select-tuple' Text +' ' Text +']' Text +' ' Text +'when ' Name.Builtin +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'<view-article-action>' Name.Function +' ' Text +'( ' Name.Function +'-- ' Name.Function +'action' Name.Variable +' ' Text +')\n' Name.Function + +' ' Text +'<action>' Text +'\n\n ' Text +'"title"' Literal.String +' ' Text +'>>rest' Text +'\n\n ' Text +'[' Text +' ' Text +'validate-title' Text +' ' Text +']' Text +' ' Text +'>>init' Text +'\n\n ' Text +'[' Text +'\n ' Text +'"title"' Literal.String +' ' Text +'value' Text +' ' Text +'dup ' Name.Builtin +'latest-revision' Text +' ' Text +'[' Text +'\n ' Text +'from-object' Text +'\n ' Text +'{' Text +' ' Text +'wiki' Text +' ' Text +'"view"' Literal.String +' ' Text +'}' Text +' ' Text +'<chloe-content>' Text +'\n ' Text +']' Text +' ' Text +'[' Text +'\n ' Text +'edit-url' Text +' ' Text +'<redirect>' Text +'\n ' Text +']' Text +' ' Text +'?if\n' Name.Builtin + +' ' Text +']' Text +' ' Text +'>>display' Text +'\n\n ' Text +'<article-boilerplate>' Text +' ' Text +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'<view-revision-action>' Name.Function +' ' Text +'( ' Name.Function +'-- ' Name.Function +'action' Name.Variable +' ' Text +')\n' Name.Function + +' ' Text +'<page-action>' Text +'\n\n ' Text +'"id"' Literal.String +' ' Text +'>>rest' Text +'\n\n ' Text +'[' Text +'\n ' Text +'validate-integer-id' Text +'\n ' Text +'"id"' Literal.String +' ' Text +'value' Text +' ' Text +'<revision>' Text +'\n ' Text +'select-tuple' Text +' ' Text +'from-object' Text +'\n ' Text +']' Text +' ' Text +'>>init' Text +'\n\n ' Text +'{' Text +' ' Text +'wiki' Text +' ' Text +'"view"' Literal.String +' ' Text +'}' Text +' ' Text +'>>template' Text +'\n \n ' Text +'<article-boilerplate>' Text +' ' Text +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'<random-article-action>' Name.Function +' ' Text +'( ' Name.Function +'-- ' Name.Function +'action' Name.Variable +' ' Text +')\n' Name.Function + +' ' Text +'<action>' Text +'\n ' Text +'[' Text +'\n ' Text +'article' Text +' ' Text +'new ' Name.Builtin +'select-tuples' Text +' ' Text +'random' Text +'\n ' Text +'[' Text +' ' Text +'title>>' Text +' ' Text +']' Text +' ' Text +'[' Text +' ' Text +'"Front Page"' Literal.String +' ' Text +']' Text +' ' Text +'if*\n' Name.Builtin + +' ' Text +'view-url' Text +' ' Text +'<redirect>' Text +'\n ' Text +']' Text +' ' Text +'>>display' Text +' ' Text +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'amend-article' Name.Function +' ' Text +'( ' Name.Function +'revision' Name.Variable +' ' Text +'article' Name.Variable +' ' Text +'-- ' Name.Function +')\n' Name.Function + +' ' Text +'swap ' Name.Builtin +'id>>' Text +' ' Text +'>>revision' Text +' ' Text +'update-tuple' Text +' ' Text +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'add-article' Name.Function +' ' Text +'( ' Name.Function +'revision' Name.Variable +' ' Text +'-- ' Name.Function +')\n' Name.Function + +' ' Text +'[' Text +' ' Text +'title>>' Text +' ' Text +']' Text +' ' Text +'[' Text +' ' Text +'id>>' Text +' ' Text +']' Text +' ' Text +'bi ' Name.Builtin +'article' Text +' ' Text +'boa ' Name.Builtin +'insert-tuple' Text +' ' Text +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'add-revision' Name.Function +' ' Text +'( ' Name.Function +'revision' Name.Variable +' ' Text +'-- ' Name.Function +')\n' Name.Function + +' ' Text +'[' Text +' ' Text +'insert-tuple' Text +' ' Text +']' Text +'\n ' Text +'[' Text +'\n ' Text +'dup ' Name.Builtin +'title>>' Text +' ' Text +'<article>' Text +' ' Text +'select-tuple' Text +'\n ' Text +'[' Text +' ' Text +'amend-article' Text +' ' Text +']' Text +' ' Text +'[' Text +' ' Text +'add-article' Text +' ' Text +']' Text +' ' Text +'if*\n' Name.Builtin + +' ' Text +']' Text +'\n ' Text +'bi ' Name.Builtin +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'<edit-article-action>' Name.Function +' ' Text +'( ' Name.Function +'-- ' Name.Function +'action' Name.Variable +' ' Text +')\n' Name.Function + +' ' Text +'<page-action>' Text +'\n\n ' Text +'"title"' Literal.String +' ' Text +'>>rest' Text +'\n\n ' Text +'[' Text +'\n ' Text +'validate-title' Text +'\n\n ' Text +'"title"' Literal.String +' ' Text +'value' Text +' ' Text +'<article>' Text +' ' Text +'select-tuple' Text +'\n ' Text +'[' Text +' ' Text +'revision>>' Text +' ' Text +'<revision>' Text +' ' Text +'select-tuple' Text +' ' Text +']' Text +'\n ' Text +'[' Text +' ' Text +'f ' Name.Constant +'<revision>' Text +' ' Text +'"title"' Literal.String +' ' Text +'value' Text +' ' Text +'>>title' Text +' ' Text +']' Text +'\n ' Text +'if*\n' Name.Builtin + +'\n ' Text +'[' Text +' ' Text +'title>>' Text +' ' Text +'"title"' Literal.String +' ' Text +'set-value' Text +' ' Text +']' Text +'\n ' Text +'[' Text +' ' Text +'content>>' Text +' ' Text +'"content"' Literal.String +' ' Text +'set-value' Text +' ' Text +']' Text +'\n ' Text +'bi\n' Name.Builtin + +' ' Text +']' Text +' ' Text +'>>init' Text +'\n\n ' Text +'{' Text +' ' Text +'wiki' Text +' ' Text +'"edit"' Literal.String +' ' Text +'}' Text +' ' Text +'>>template' Text +'\n\n ' Text +'<article-boilerplate>' Text +' ' Text +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'<submit-article-action>' Name.Function +' ' Text +'( ' Name.Function +'-- ' Name.Function +'action' Name.Variable +' ' Text +')\n' Name.Function + +' ' Text +'<action>' Text +'\n ' Text +'[' Text +'\n ' Text +'validate-title' Text +'\n\n ' Text +'{' Text +'\n ' Text +'{' Text +' ' Text +'"content"' Literal.String +' ' Text +'[' Text +' ' Text +'v-required' Text +' ' Text +']' Text +' ' Text +'}' Text +'\n ' Text +'{' Text +' ' Text +'"description"' Literal.String +' ' Text +'[' Text +' ' Text +'[' Text +' ' Text +'v-one-line' Text +' ' Text +']' Text +' ' Text +'v-optional' Text +' ' Text +']' Text +' ' Text +'}' Text +'\n ' Text +'}' Text +' ' Text +'validate-params' Text +'\n\n ' Text +'f ' Name.Constant +'<revision>' Text +'\n ' Text +'"title"' Literal.String +' ' Text +'value' Text +' ' Text +'>>title' Text +'\n ' Text +'now' Text +' ' Text +'>>date' Text +'\n ' Text +'username' Text +' ' Text +'>>author' Text +'\n ' Text +'"content"' Literal.String +' ' Text +'value' Text +' ' Text +'>>content' Text +'\n ' Text +'"description"' Literal.String +' ' Text +'value' Text +' ' Text +'>>description' Text +'\n ' Text +'[' Text +' ' Text +'add-revision' Text +' ' Text +']' Text +' ' Text +'[' Text +' ' Text +'title>>' Text +' ' Text +'view-url' Text +' ' Text +'<redirect>' Text +' ' Text +']' Text +' ' Text +'bi\n' Name.Builtin + +' ' Text +']' Text +' ' Text +'>>submit' Text +'\n\n ' Text +'<protected>' Text +'\n ' Text +'"edit wiki articles"' Literal.String +' ' Text +'>>description' Text +' ' Text +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'<revisions-boilerplate>' Name.Function +' ' Text +'( ' Name.Function +'responder' Name.Variable +' ' Text +'-- ' Name.Function +'responder' Name.Variable +' ' Text +')\n' Name.Function + +' ' Text +'<boilerplate>' Text +'\n ' Text +'{' Text +' ' Text +'wiki' Text +' ' Text +'"revisions-common"' Literal.String +' ' Text +'}' Text +' ' Text +'>>template' Text +' ' Text +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'list-revisions' Name.Function +' ' Text +'( ' Name.Function +'-- ' Name.Function +'seq' Name.Variable +' ' Text +')\n' Name.Function + +' ' Text +'f ' Name.Constant +'<revision>' Text +' ' Text +'"title"' Literal.String +' ' Text +'value' Text +' ' Text +'>>title' Text +' ' Text +'select-tuples' Text +'\n ' Text +'reverse-chronological-order' Text +' ' Text +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'<list-revisions-action>' Name.Function +' ' Text +'( ' Name.Function +'-- ' Name.Function +'action' Name.Variable +' ' Text +')\n' Name.Function + +' ' Text +'<page-action>' Text +'\n\n ' Text +'"title"' Literal.String +' ' Text +'>>rest' Text +'\n\n ' Text +'[' Text +'\n ' Text +'validate-title' Text +'\n ' Text +'list-revisions' Text +' ' Text +'"revisions"' Literal.String +' ' Text +'set-value' Text +'\n ' Text +']' Text +' ' Text +'>>init' Text +'\n\n ' Text +'{' Text +' ' Text +'wiki' Text +' ' Text +'"revisions"' Literal.String +' ' Text +'}' Text +' ' Text +'>>template' Text +'\n\n ' Text +'<revisions-boilerplate>' Text +'\n ' Text +'<article-boilerplate>' Text +' ' Text +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'<list-revisions-feed-action>' Name.Function +' ' Text +'( ' Name.Function +'-- ' Name.Function +'action' Name.Variable +' ' Text +')\n' Name.Function + +' ' Text +'<feed-action>' Text +'\n\n ' Text +'"title"' Literal.String +' ' Text +'>>rest' Text +'\n\n ' Text +'[' Text +' ' Text +'validate-title' Text +' ' Text +']' Text +' ' Text +'>>init' Text +'\n\n ' Text +'[' Text +' ' Text +'"Revisions of "' Literal.String +' ' Text +'"title"' Literal.String +' ' Text +'value' Text +' ' Text +'append ' Name.Builtin +']' Text +' ' Text +'>>title' Text +'\n\n ' Text +'[' Text +' ' Text +'"title"' Literal.String +' ' Text +'value' Text +' ' Text +'revisions-url' Text +' ' Text +']' Text +' ' Text +'>>url' Text +'\n\n ' Text +'[' Text +' ' Text +'list-revisions' Text +' ' Text +']' Text +' ' Text +'>>entries' Text +' ' Text +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'rollback-description' Name.Function +' ' Text +'( ' Name.Function +'description' Name.Variable +' ' Text +'-- ' Name.Function +"description'" Name.Variable +' ' Text +')\n' Name.Function + +' ' Text +'[' Text +' ' Text +'"Rollback of \'"' Literal.String +' ' Text +'"\'"' Literal.String +' ' Text +'surround ' Name.Builtin +']' Text +' ' Text +'[' Text +' ' Text +'"Rollback"' Literal.String +' ' Text +']' Text +' ' Text +'if* ' Name.Builtin +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'<rollback-action>' Name.Function +' ' Text +'( ' Name.Function +'-- ' Name.Function +'action' Name.Variable +' ' Text +')\n' Name.Function + +' ' Text +'<action>' Text +'\n\n ' Text +'[' Text +' ' Text +'validate-integer-id' Text +' ' Text +']' Text +' ' Text +'>>validate' Text +'\n\n ' Text +'[' Text +'\n ' Text +'"id"' Literal.String +' ' Text +'value' Text +' ' Text +'<revision>' Text +' ' Text +'select-tuple' Text +'\n ' Text +'f ' Name.Constant +'>>id' Text +'\n ' Text +'now' Text +' ' Text +'>>date' Text +'\n ' Text +'username' Text +' ' Text +'>>author' Text +'\n ' Text +'[' Text +' ' Text +'rollback-description' Text +' ' Text +']' Text +' ' Text +'change-description' Text +'\n ' Text +'[' Text +' ' Text +'add-revision' Text +' ' Text +']' Text +'\n ' Text +'[' Text +' ' Text +'title>>' Text +' ' Text +'revisions-url' Text +' ' Text +'<redirect>' Text +' ' Text +']' Text +' ' Text +'bi\n' Name.Builtin + +' ' Text +']' Text +' ' Text +'>>submit' Text +'\n \n ' Text +'<protected>' Text +'\n ' Text +'"rollback wiki articles"' Literal.String +' ' Text +'>>description' Text +' ' Text +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'list-changes' Name.Function +' ' Text +'( ' Name.Function +'-- ' Name.Function +'seq' Name.Variable +' ' Text +')\n' Name.Function + +' ' Text +'f ' Name.Constant +'<revision>' Text +' ' Text +'select-tuples' Text +'\n ' Text +'reverse-chronological-order' Text +' ' Text +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'<list-changes-action>' Name.Function +' ' Text +'( ' Name.Function +'-- ' Name.Function +'action' Name.Variable +' ' Text +')\n' Name.Function + +' ' Text +'<page-action>' Text +'\n ' Text +'[' Text +' ' Text +'list-changes' Text +' ' Text +'"revisions"' Literal.String +' ' Text +'set-value' Text +' ' Text +']' Text +' ' Text +'>>init' Text +'\n ' Text +'{' Text +' ' Text +'wiki' Text +' ' Text +'"changes"' Literal.String +' ' Text +'}' Text +' ' Text +'>>template' Text +'\n\n ' Text +'<revisions-boilerplate>' Text +' ' Text +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'<list-changes-feed-action>' Name.Function +' ' Text +'( ' Name.Function +'-- ' Name.Function +'action' Name.Variable +' ' Text +')\n' Name.Function + +' ' Text +'<feed-action>' Text +'\n ' Text +'[' Text +' ' Text +'URL" $wiki/changes"' Literal.String +' ' Text +']' Text +' ' Text +'>>url' Text +'\n ' Text +'[' Text +' ' Text +'"All changes"' Literal.String +' ' Text +']' Text +' ' Text +'>>title' Text +'\n ' Text +'[' Text +' ' Text +'list-changes' Text +' ' Text +']' Text +' ' Text +'>>entries' Text +' ' Text +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'<delete-action>' Name.Function +' ' Text +'( ' Name.Function +'-- ' Name.Function +'action' Name.Variable +' ' Text +')\n' Name.Function + +' ' Text +'<action>' Text +'\n\n ' Text +'[' Text +' ' Text +'validate-title' Text +' ' Text +']' Text +' ' Text +'>>validate' Text +'\n\n ' Text +'[' Text +'\n ' Text +'"title"' Literal.String +' ' Text +'value' Text +' ' Text +'<article>' Text +' ' Text +'delete-tuples' Text +'\n ' Text +'f ' Name.Constant +'<revision>' Text +' ' Text +'"title"' Literal.String +' ' Text +'value' Text +' ' Text +'>>title' Text +' ' Text +'delete-tuples' Text +'\n ' Text +'URL" $wiki"' Literal.String +' ' Text +'<redirect>' Text +'\n ' Text +']' Text +' ' Text +'>>submit' Text +'\n\n ' Text +'<protected>' Text +'\n ' Text +'"delete wiki articles"' Literal.String +' ' Text +'>>description' Text +'\n ' Text +'{' Text +' ' Text +'can-delete-wiki-articles?' Text +' ' Text +'}' Text +' ' Text +'>>capabilities' Text +' ' Text +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'<diff-action>' Name.Function +' ' Text +'( ' Name.Function +'-- ' Name.Function +'action' Name.Variable +' ' Text +')\n' Name.Function + +' ' Text +'<page-action>' Text +'\n\n ' Text +'[' Text +'\n ' Text +'{' Text +'\n ' Text +'{' Text +' ' Text +'"old-id"' Literal.String +' ' Text +'[' Text +' ' Text +'v-integer' Text +' ' Text +']' Text +' ' Text +'}' Text +'\n ' Text +'{' Text +' ' Text +'"new-id"' Literal.String +' ' Text +'[' Text +' ' Text +'v-integer' Text +' ' Text +']' Text +' ' Text +'}' Text +'\n ' Text +'}' Text +' ' Text +'validate-params' Text +'\n\n ' Text +'"old-id"' Literal.String +' ' Text +'"new-id"' Literal.String +'\n ' Text +'[' Text +' ' Text +'value' Text +' ' Text +'<revision>' Text +' ' Text +'select-tuple' Text +' ' Text +']' Text +' ' Text +'bi@\n' Name.Builtin + +' ' Text +'[' Text +'\n ' Text +'over ' Name.Builtin +'title>>' Text +' ' Text +'"title"' Literal.String +' ' Text +'set-value' Text +'\n ' Text +'[' Text +' ' Text +'"old"' Literal.String +' ' Text +'[' Text +' ' Text +'from-object' Text +' ' Text +']' Text +' ' Text +'nest-form' Text +' ' Text +']' Text +'\n ' Text +'[' Text +' ' Text +'"new"' Literal.String +' ' Text +'[' Text +' ' Text +'from-object' Text +' ' Text +']' Text +' ' Text +'nest-form' Text +' ' Text +']' Text +'\n ' Text +'bi*\n' Name.Builtin + +' ' Text +']' Text +'\n ' Text +'[' Text +' ' Text +'[' Text +' ' Text +'content>>' Text +' ' Text +'string-lines' Text +' ' Text +']' Text +' ' Text +'bi@ ' Name.Builtin +'diff' Text +' ' Text +'"diff"' Literal.String +' ' Text +'set-value' Text +' ' Text +']' Text +'\n ' Text +'2bi\n' Name.Builtin + +' ' Text +']' Text +' ' Text +'>>init' Text +'\n\n ' Text +'{' Text +' ' Text +'wiki' Text +' ' Text +'"diff"' Literal.String +' ' Text +'}' Text +' ' Text +'>>template' Text +'\n\n ' Text +'<article-boilerplate>' Text +' ' Text +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'<list-articles-action>' Name.Function +' ' Text +'( ' Name.Function +'-- ' Name.Function +'action' Name.Variable +' ' Text +')\n' Name.Function + +' ' Text +'<page-action>' Text +'\n\n ' Text +'[' Text +'\n ' Text +'f ' Name.Constant +'<article>' Text +' ' Text +'select-tuples' Text +'\n ' Text +'[' Text +' ' Text +'title>>' Text +' ' Text +']' Text +' ' Text +'sort-with' Text +'\n ' Text +'"articles"' Literal.String +' ' Text +'set-value' Text +'\n ' Text +']' Text +' ' Text +'>>init' Text +'\n\n ' Text +'{' Text +' ' Text +'wiki' Text +' ' Text +'"articles"' Literal.String +' ' Text +'}' Text +' ' Text +'>>template' Text +' ' Text +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'list-user-edits' Name.Function +' ' Text +'( ' Name.Function +'-- ' Name.Function +'seq' Name.Variable +' ' Text +')\n' Name.Function + +' ' Text +'f ' Name.Constant +'<revision>' Text +' ' Text +'"author"' Literal.String +' ' Text +'value' Text +' ' Text +'>>author' Text +' ' Text +'select-tuples' Text +'\n ' Text +'reverse-chronological-order' Text +' ' Text +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'<user-edits-action>' Name.Function +' ' Text +'( ' Name.Function +'-- ' Name.Function +'action' Name.Variable +' ' Text +')\n' Name.Function + +' ' Text +'<page-action>' Text +'\n\n ' Text +'"author"' Literal.String +' ' Text +'>>rest' Text +'\n\n ' Text +'[' Text +'\n ' Text +'validate-author' Text +'\n ' Text +'list-user-edits' Text +' ' Text +'"revisions"' Literal.String +' ' Text +'set-value' Text +'\n ' Text +']' Text +' ' Text +'>>init' Text +'\n\n ' Text +'{' Text +' ' Text +'wiki' Text +' ' Text +'"user-edits"' Literal.String +' ' Text +'}' Text +' ' Text +'>>template' Text +'\n\n ' Text +'<revisions-boilerplate>' Text +' ' Text +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'<user-edits-feed-action>' Name.Function +' ' Text +'( ' Name.Function +'-- ' Name.Function +'action' Name.Variable +' ' Text +')\n' Name.Function + +' ' Text +'<feed-action>' Text +'\n ' Text +'"author"' Literal.String +' ' Text +'>>rest' Text +'\n ' Text +'[' Text +' ' Text +'validate-author' Text +' ' Text +']' Text +' ' Text +'>>init' Text +'\n ' Text +'[' Text +' ' Text +'"Edits by "' Literal.String +' ' Text +'"author"' Literal.String +' ' Text +'value' Text +' ' Text +'append ' Name.Builtin +']' Text +' ' Text +'>>title' Text +'\n ' Text +'[' Text +' ' Text +'"author"' Literal.String +' ' Text +'value' Text +' ' Text +'user-edits-url' Text +' ' Text +']' Text +' ' Text +'>>url' Text +'\n ' Text +'[' Text +' ' Text +'list-user-edits' Text +' ' Text +']' Text +' ' Text +'>>entries' Text +' ' Text +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'init-sidebars' Name.Function +' ' Text +'( ' Name.Function +'-- ' Name.Function +')\n' Name.Function + +' ' Text +'"Contents"' Literal.String +' ' Text +'latest-revision' Text +' ' Text +'[' Text +' ' Text +'"contents"' Literal.String +' ' Text +'[' Text +' ' Text +'from-object' Text +' ' Text +']' Text +' ' Text +'nest-form' Text +' ' Text +']' Text +' ' Text +'when*\n' Name.Builtin + +' ' Text +'"Footer"' Literal.String +' ' Text +'latest-revision' Text +' ' Text +'[' Text +' ' Text +'"footer"' Literal.String +' ' Text +'[' Text +' ' Text +'from-object' Text +' ' Text +']' Text +' ' Text +'nest-form' Text +' ' Text +']' Text +' ' Text +'when* ' Name.Builtin +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'init-relative-link-prefix' Name.Function +' ' Text +'( ' Name.Function +'-- ' Name.Function +')\n' Name.Function + +' ' Text +'URL" $wiki/view/"' Literal.String +' ' Text +'adjust-url' Text +' ' Text +'present' Text +' ' Text +'relative-link-prefix' Text +' ' Text +'set ' Name.Builtin +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'<wiki>' Name.Function +' ' Text +'( ' Name.Function +'-- ' Name.Function +'dispatcher' Name.Variable +' ' Text +')\n' Name.Function + +' ' Text +'wiki' Text +' ' Text +'new-dispatcher' Text +'\n ' Text +'<main-article-action>' Text +' ' Text +'""' Literal.String +' ' Text +'add-responder' Text +'\n ' Text +'<view-article-action>' Text +' ' Text +'"view"' Literal.String +' ' Text +'add-responder' Text +'\n ' Text +'<view-revision-action>' Text +' ' Text +'"revision"' Literal.String +' ' Text +'add-responder' Text +'\n ' Text +'<random-article-action>' Text +' ' Text +'"random"' Literal.String +' ' Text +'add-responder' Text +'\n ' Text +'<list-revisions-action>' Text +' ' Text +'"revisions"' Literal.String +' ' Text +'add-responder' Text +'\n ' Text +'<list-revisions-feed-action>' Text +' ' Text +'"revisions.atom"' Literal.String +' ' Text +'add-responder' Text +'\n ' Text +'<diff-action>' Text +' ' Text +'"diff"' Literal.String +' ' Text +'add-responder' Text +'\n ' Text +'<edit-article-action>' Text +' ' Text +'"edit"' Literal.String +' ' Text +'add-responder' Text +'\n ' Text +'<submit-article-action>' Text +' ' Text +'"submit"' Literal.String +' ' Text +'add-responder' Text +'\n ' Text +'<rollback-action>' Text +' ' Text +'"rollback"' Literal.String +' ' Text +'add-responder' Text +'\n ' Text +'<user-edits-action>' Text +' ' Text +'"user-edits"' Literal.String +' ' Text +'add-responder' Text +'\n ' Text +'<list-articles-action>' Text +' ' Text +'"articles"' Literal.String +' ' Text +'add-responder' Text +'\n ' Text +'<list-changes-action>' Text +' ' Text +'"changes"' Literal.String +' ' Text +'add-responder' Text +'\n ' Text +'<user-edits-feed-action>' Text +' ' Text +'"user-edits.atom"' Literal.String +' ' Text +'add-responder' Text +'\n ' Text +'<list-changes-feed-action>' Text +' ' Text +'"changes.atom"' Literal.String +' ' Text +'add-responder' Text +'\n ' Text +'<delete-action>' Text +' ' Text +'"delete"' Literal.String +' ' Text +'add-responder' Text +'\n ' Text +'<boilerplate>' Text +'\n ' Text +'[' Text +' ' Text +'init-sidebars' Text +' ' Text +'init-relative-link-prefix' Text +' ' Text +']' Text +' ' Text +'>>init' Text +'\n ' Text +'{' Text +' ' Text +'wiki' Text +' ' Text +'"wiki-common"' Literal.String +' ' Text +'}' Text +' ' Text +'>>template' Text +' ' Text +';\n' Keyword + +'\n' Text + +':' Keyword +' ' Text +'init-wiki' Name.Function +' ' Text +'( ' Name.Function +'-- ' Name.Function +')\n' Name.Function + +' ' Text +'"resource:extra/webapps/wiki/initial-content"' Literal.String +' ' Text +'[' Text +'\n ' Text +'[' Text +'\n ' Text +'dup ' Name.Builtin +'".txt"' Literal.String +' ' Text +'?tail' Text +' ' Text +'[' Text +'\n ' Text +'swap ' Name.Builtin +'ascii' Text +' ' Text +'file-contents' Text +'\n ' Text +'f ' Name.Constant +'<revision>' Text +'\n ' Text +'swap ' Name.Builtin +'>>content' Text +'\n ' Text +'swap ' Name.Builtin +'>>title' Text +'\n ' Text +'"slava"' Literal.String +' ' Text +'>>author' Text +'\n ' Text +'now' Text +' ' Text +'>>date' Text +'\n ' Text +'add-revision' Text +'\n ' Text +']' Text +' ' Text +'[' Text +' ' Text +'2drop ' Name.Builtin +']' Text +' ' Text +'if\n' Name.Builtin + +' ' Text +']' Text +' ' Text +'each\n' Name.Builtin + +' ' Text +']' Text +' ' Text +'with-directory-files' Text +' ' Text +';\n' Keyword |