Hello Andrew, did you already managed for a complete Wiki setup I could test with my browser - with you permission of course?
I also planned to do one by myself when I began to learn REBOL a couple of months ago but you got me well before the finish line. In a tentative to accelerate things, I also began my study by looking at the Vanilla-SBX code from Christian Langreiter but I found it too much advanced for me - for the moment. In the same time as I want to be functional quickly, I am installing something that looks like the original Wiki but to which someone added a date and author ID stamping for each entry via the RCS package. As you are probably aware of, this feature is for making the management of the non desired entries an easier task, when necessary. In fact I plan to use it as a tool to support my students during my CS teaching. This is why I need the stamping process and I am sure you understand since I followed the last entries in your OSCAR forum on the Yahoogroups site !!! Do you also plan to include some date and author ID stamping too later if and when you will be ready to do so ? Well may be I could help you in some way - even if for now this is only for testing and commenting purposes ... Thank you for the code. This too will become another study matter in my REBOL quest ! Regards, Gerard ----- Original Message ----- From: "Andrew Martin" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Monday, June 03, 2002 3:42 AM Subject: [REBOL] Wiki in Rebol, CGI Xitami > > Here's my Wiki in Rebol. It runs as a CGI under Xitami's web server, and > uses text files to store each page. It uses my %eText.r and %ML.r dialects > to change plain text into HTML. Links are expressed like: > ?"Andrew Martin" > which links to the file %"Andrew Martin.txt". > > It's not bullet proof, though. > > Andrew Martin > ICQ: 26227169 http://valley.150m.com/ > -><- > > > > -- Attached file included as plaintext by Listar -- > -- File: Wiki.r > > #! C:\Rebol\View\rebol.exe -cs > [ > Rebol [ > Name: 'Wiki > Title: "Wiki" > File: %Wiki.r > Author: "Andrew Martin" > eMail: [EMAIL PROTECTED] > Date: 3/June/2002 > ] > > Directory: %../../Wiki/ > Host: %/cgi-bin/ > Action: join Host Rebol/script/header/File > > Forbidden: {\/:*?"<>|} ; A Wiki name cannot contain any of these characters. > Permitted: exclude Printable charset Forbidden > > content-type text/html > > Bug: function [String [string!]] [Title] [ > Title: "Wiki Bug!" > print ML compose/deep [ > html [ > head [ > title (Title) > ] > body [ > h1 (Title) > p (String) > p [ > "system/options/cgi/query-string: " > (mold system/options/cgi/query-string) > ] > p ["Time: " (now)] > ] > ] > ] > ] > > Index: has [Title Files Links] [ > Files: sort read Directory > Title: "Index" > print ML compose/deep [ > html [ > head [ > title (Title) > ] > body [ > h1 (Title) > p "Pages: " > ( > Links: make block! 4 * length? Files > foreach File Files [ > if %.txt = find/last File %. [ > File: filename File > append Links compose/deep [ > li [ > a/href ( > rejoin [Action #"?" replace/all copy File #" " "%20"] > ) (File) > ] > ] > ] > ] > compose/deep [ > ul [(Links)] > ] > ) > hr > p ["As of: " (now)] > ] > ] > ] > ] > > if none? Query_String: system/options/cgi/query-string [ ; Might be a POST instead? > Post: make string! 2 + Length: to-integer system/options/cgi/content-length > read-io system/ports/input Post Length > if empty? Post [ > Index > quit > ] > Post: decode-cgi Post > if all [ > parse Post [ > set-word! string! > set-word! string! > end > ] > Post: make object! Post > parse/all Post/File [some Permitted end] > ] [ > File: to-file Post/File > if exists? Backup: rejoin [Directory filename File %.bak] [ > delete Backup > ] > if exists? New_File: join Directory File [ > rename New_File Backup > ] > Text: Post/Text > write New_File Text > Title: filename File > print ML compose/deep [ > html [ > head [ > title (rejoin [{Thanks for editing: "} Title {"!}]) > ] > body [ > H1 "Thank you!" > p [ > "Thank you for editing " > a/href (rejoin [Action #"?" Title]) (Title) "." > ] > p "Your careful attention to detail is much appreciated." > p ["PS Be sure to " b "Refresh" " or " b "Reload" " your old pages."] > ] > ] > ] > quit > ] > Bug reform [mold Post] > quit > ] > > View: function [Title [string!] File [file!]] [Heading] [ > Heading: Title > print ML compose/deep [ > html [ > head [ > title (Heading) > ] > body [ > (eText/Wiki/Base read Directory/:File rejoin [Action #"?"]) > hr > (now) > form/method/action "GET" (Action) [ > input/type/name/value "hidden" (first Edit_Rule) (Title) > input/type/value "submit" "Edit" > ] > ] > ] > ] > ] > > Verb: :View > Edit_Rule: ["*Edit" #"=" (Verb: :Edit)] > Edit: function [Title [string!] File [file!] /New] [Heading] [ > Heading: rejoin [either New ["New: "] ["Edit: "] Title] > print ML compose/deep [ > html [ > head [ > title (Heading) > ] > body [ > h1 (Heading) > form/method/action "POST" (Action) [ > input/type/name/value "hidden" "File" (File) > textarea/name/rows/cols/wrap/style "Text" 20 80 "virtual" "width:100%;" ( > either New [ > rejoin [ > Title newline > head insert/dup copy "" #"*" length? Title newline > ] > ] [ > read Directory/:File > ] > ) > br > input/type/value "submit" "Save" > ] > ] > ] > ] > ] > > if parse/all Query_String [ > opt [Edit_Rule] > copy Title some Permitted > end > ] [ > Title: dehex replace/all Title #"+" #" " > File: join to-file Title %.txt > either exists? Directory/:File [ > Verb Title File > ] [ > Edit/New Title File > ] > quit > ] > > Index > > ] > > -- Attached file included as plaintext by Listar -- > -- File: ML.r > > [ > Rebol [ > Name: 'ML > Title: "ML" > File: %ML.r > Author: "Andrew Martin" > eMail: [EMAIL PROTECTED] > Date: 2/June/2002 > Comments: { > ML generates XML-like markup language from words, paths and blocks. > ML can generate HTML, XHTML, WML and SVG markup. > } > ] > > ML!: make object! [ > ; Note: Entity replacement should have all ready been done by caller. > set 'ML function [Dialect [block!]] [String Values_Rule Values Value Tag] [ > String: make string! 20000 > Values_Rule: [ > ; Caution! The none! value below is replaced in the 'parse rule below! > none [ > set Value any-type! ( > Tag: next next Tag > if word? Value [Value: form Value] > insert Tag Value > Value: none > ) > ] > ] > Values: make block! 10 > parse Dialect [ > any [ > set Value tag! (append String Value) > | set Tag [path! | word!] ( > Tag: to-block get 'Tag > Values_Rule/1: -1 + length? Tag ; Replace none! value above. > ) Values_Rule opt [ > set Value [ > block! | string! | url! | file! | integer! > | money! | time! | date! | issue! | tag! > | tuple! | tag! | email! | pair! | decimal! > | logic! | char! > ] > ] > ( > Tag: head Tag > repend String either none? Value [ > [join build-tag Tag " /"] > ] [ > [ > either block? Value [newline] [""] > build-tag Tag > either block? Value [ML Value] [Value] > to-tag join "/" first Tag > ] > ] > Values_Rule/1: none > ) > | set Value any-type! (append String Value) > ] > end > ] > String > ] > ] > > ] > > -- Attached file included as plaintext by Listar -- > -- File: eText.r > > [ > Rebol [ > Name: 'eText > Title: "eText" > File: %eText.r > Author: "Andrew Martin" > eMail: [EMAIL PROTECTED] > Date: 3/June/2002 > Needs: [%"Common Parse Values.r"] > ] > > make object! [ > Link_Base: none > Link_Wiki: false > Space: charset [#" " #"^-"] > Separator: charset [#"." #"!" #" " #"," #"?" #";" #":"] > Empty: [any Space newline] > Inline!: make object! [ > Text: Block: Before: After: none > Plain: function [Value [block! string! tag! none!]][String][ > String: copy/part Before After > if not empty? String [ > append Block String > ] > if not none? Value [ > repend Block Value > ] > ] > Pair: function [Mark [char!] HtmlDialect [block!]][NonMark Temporary][ > NonMark: exclude Graphic charset to string! Mark > compose/deep [ > Temporary: (Mark) copy Text [some (NonMark) any [opt #" " some (NonMark)]] > (Mark) > (to-paren reduce ['Plain HtmlDialect]) > (to-paren [After: Temporary]) > Before: > ] > ] > Link: make object! [ > Word: [Alpha any [AlphaDigit | #"-"] opt {'s} opt #"/"] > Text: Link: URL: none > URL_Mail: func [URL [string!]] [ > URL: first load/next URL > if email? URL [URL: join "mailto:"; URL] > URL > ] > ImageAnchor: func [Text [string!] URL [string!]][ > URL: URL_Mail URL > Plain either any [ > found? find/last URL %.jpg > found? find/last URL %.gif > found? find/last URL %.png > ][ > ['img/src URL Text] > ][ > ['a/href URL Text] > ] > ] > Rule: [ > [ > After: [ > #"^"" copy Text to #"^"" skip > #" " [ > #"%" #"^"" copy Link to #"^"" skip ( > insert replace/all Link " " "%20" #"%" > ) > | copy Link URI > ] > #" " copy URL URI > ]( > > Plain [ > 'a/href URL_Mail URL reduce [ > 'img/src first load/next Link Text > ] > ] > ) Before: > ] > | [ > After: [ > {"} copy Text to {" } {" } [ > #"%" #"^"" copy Link to #"^"" skip ( > insert replace/all Link " " "%20" #"%" > ) > | copy Link URI > ] > ] (ImageAnchor Text Link) Before: > ] > | After: copy Link URI (ImageAnchor copy Link Link) Before: > | [ > After: [ > {?"} copy Link to {"} skip > | "?" copy Link Word > ]( > Text: replace/all copy Link " " " " > Link: rejoin [ > Link_Base > to-file replace/all Link " " "%20" > either Link_Wiki [""] [ > either #"/" = last Link [%index.html][%.html] > ] > ] > Plain ['a/href Link Text] > ) Before: > ] > ] > ] > DoubleQuote: make object! [ > Mark: #"^"" > NonMark: exclude Graphic charset to-string Mark > Rule: [ > After: Mark copy Text [NonMark any [NonMark | #" "]] Mark ( > Plain [rejoin ["“" Text "”"]] > ) Before: > ] > ] > SingleQuote: make object! [ > Mark: #"'" > Div: none > NonMark: exclude Graphic charset to-string Mark > Rule: [ > After: #" " Mark copy Text [NonMark some [NonMark | #" "]] > Mark copy Div Separator( > Plain [rejoin [#" " "‘" Text "’" Div]] > ) Before: > ] > ] > Superscript: make object! [ > Rule: [ > After: #"^^" copy Text [some Alpha | Digits] ( > Plain ['sup reduce ['small Text]] > ) Before: > ] > ] > Single: func [Mark [string! char!] Replacement [string!]][ > compose [After: (Mark) (to-paren compose [Plain (Replacement)]) Before:] > ] > Rules: compose [ > (Link/Rule) > | (DoubleQuote/Rule) > | (SingleQuote/Rule) > | (Superscript/Rule) > | (Pair #"_" ['u Text]) > | (Pair #"~" ['i Text]) > ;| (Pair #"+" ['ins Text]) > ;| (Pair #"-" ['del Text]) ; Need a better choice for 'Del, not hyphen. > | (Pair #"*" ['b Text]) > | (Single newline "<br />") > | (Single {---} "—") > | (Single {--} "–") > | (Single {&} "&") > | (Single {<} "<") > | (Single {>} ">") > | (Single {(c)} "©") | (Single {(C)} "©") > | (Single {(r)} "®") | (Single {(R)} "®") > | (Single {(tm)} "™") | (Single {(TM)} "™") > | (Single {-tm} "™") | (Single {-TM} "™") > | (Single {A^^`} {À}) | (Single {a^^`} {à}) > | (Single {A^^'} {Á}) | (Single {a^^'} {Á}) > | (Single {A^^~} {Ã}) | (Single {a^^~} {ã}) > | (Single {A^^"} {Ä}) | (Single {a^^"} {ä}) > | (Single {A^^*} {Å}) | (Single {a^^*} {å}) > | (Single {A^^E} {Æ}) | (Single {a^^e} {æ}) > | (Single {,C} {Ç}) | (Single {,c} {&ccdel;}) > | (Single {E^^`} {È}) | (Single {e^^`} {è}) > | (Single {E^^'} {É}) | (Single {e^^'} {é}) > | (Single {E^^"} {Ë}) | (Single {e^^"} {ë}) > | (Single {I^^`} {Ì}) | (Single {i^^`} {ì}) > | (Single {I^^'} {Í}) | (Single {i^^'} {í}) > | (Single {I^^"} {Ï}) | (Single {i^^"} {ï}) > | (Single {D^^-} {Ð}) | (Single {d^^-} {ð}) > | (Single {N^^~} {Ñ}) | (Single {n^^~} {ñ}) > | (Single {O^^`} {Ò}) | (Single {o^^`} {ò}) > | (Single {O^^'} {Ó}) | (Single {o^^'} {ó}) > | (Single {O^^~} {Õ}) | (Single {o^^~} {õ}) > | (Single {O^^"} {Ö}) | (Single {o^^"} {ö}) > | (Single {O^^/} {Ø}) | (Single {o^^/} {ø}) > | (Single {O^^E} {Œ}) | (Single {o^^e} {œ}) > | (Single {U^^`} {Ù}) | (Single {u^^`} {ù}) > | (Single {U^^'} {Ú}) | (Single {u^^'} {ú}) > | (Single {U^^"} {Ü}) | (Single {u^^"} {ü}) > | (Single {Y^^'} {Ý}) | (Single {y^^'} {ý}) > | (Single {Y^^"} {Ÿ}) | (Single {y^^"} {ÿ}) > | (Single {S^^z} {ß}) > | (Single {P|} {Þ}) | (Single {p|} {þ}) > | (Single {~!} {¡}) | (Single {~?} {¿}) > | (Single {c^^/} {¢}) | (Single {L^^-} {£}) > | (Single {Y^^-} {&Yen;}) > | (Single {o^^$} {¤}) > | (Single {||} {¦}) > | (Single {<<} {«}) | (Single {>>} {»}) > | (Single {-,} {¬}) > | (Single {^^-} {¯}) | (Single {^^o} {°}) | (Single {^^o-} {º}) > ; { 1/4 } { ¼ } { 1/2 } { ½ } { 3/4 } { ¾ } > | (Single {''} {´}) > | (Single {^^/u} {µ}) > | (Single {P^^!} {¶}) > | (Single {sO} {§}) > | (Single {^^.} {·}) > | (Single {,,} {¸}) > | (Single {...} {…}) > | (Single { +- } { ± }) > | (Single { * } { × }) > | (Single {-:} {÷}) > ;| (Single { / } { ÷ }) ; Slash is often used as a divider or alternative. > | (Single {A^^} {Â}) | (Single {a^^} {â}) > | (Single {E^^} {Ê}) | (Single {e^^} {ê}) > | (Single {I^^} {Î}) | (Single {i^^} {î}) > | (Single {O^^} {Ô}) | (Single {o^^} {ô}) > | (Single {U^^} {Û}) | (Single {u^^} {û}) > ;{ pi } {π} > | (Single {sqrt} {√}) ; {<font face="symbol">Ö</font>} > | skip > ] > Dialect: func [String [string!]][ > Block: make block! 10 > Before: String > After: none > parse/case/all String [some Rules (Plain None) end] > either empty? Block [ > String > ][ > Block > ] > ] > Literal-Rules: compose [ > (Single {&} "&") > | (Single {<} "<") > | (Single {>} ">") > | skip > ] > Literal: func [String [string!]][ > Block: make block! 10 > Before: String > After: none > parse/case/all String [some Literal-Rules (Plain None) end] > either empty? Block [ > String > ][ > Block > ] > ] > ] > Inline: get in Inline! 'Dialect > Literal: get in Inline! 'Literal > Line: Heading: Block: Previous: none > Text-Line: [Graphic any Printable] > Text: [copy Line Text-Line empty] > H: [ > opt Empty > Text > [ > some "*" (Heading: 'h1) > | some "=" (Heading: 'h2) > | some "-" (Heading: 'h3) > | some "~" (Heading: 'h4) > | some "_" (Heading: 'h5) > | some "." (Heading: 'h6) > ] empty (repend Block [Heading Inline Line]) > ] > IP: [Text (repend Block ['p/class "Initial" Inline Line])] > P: [[Empty | tab] Text (repend Block ['p Inline Line])] > Align!: make object! [ > Type: 'left > Rule: [#" " (Type: 'center) | tab (Type: 'right) | none (Type: 'left)] > ] > Align: Align!/Rule > Center: make object! [ > Lines: make block! 10 > Rule: [ > some [ > #" " copy Line [Graphic any Printable] empty ( > if not empty? Lines [ > append Lines <br /> > ] > append Lines Inline Line > ) > ]( > repend Block ['div/align "center" Lines] > Lines: make block! 10 > ) > ] > ] > Table: make object! [ > Type: 'th > Mark: #"|" > NonBar: exclude Printable charset to-string Mark > Cells: make block! 10 > BarCell: [Align copy Line any NonBar any [#" " | tab]] > TabCell: [Align copy Line any Printable] > Append-Cell: does [ > repend Cells [ > make path! reduce [Type 'align] Align!/Type > either none? Line [""][Inline trim Line] > ] > ] > Row: [ > [ > opt [some [Mark some #"-"] opt Mark empty] > some [Mark BarCell (Append-Cell)] opt Mark empty > ] > | TabCell (Append-Cell) some [tab TabCell (Append-Cell)] empty > ] > Rows: make block! 10 > Rule: [ > opt Empty > ( > Type: 'th > Rows: make block! 10 > Cells: make block! 10 > ) > some [ > Row ( > repend Rows ['tr Cells] > Type: 'td > Cells: make block! 10 > ) > ] ( > repend Block ['table Rows] > ) > ] > ] > Quote: make object! [ > Quotes: make string! 100 > Rule: [ > opt Empty > some [ > 2 tab copy Line some [Printable | tab] empty ( > append Quotes rejoin [trim/tail Line newline] > ) > ] ( > repend Block ['blockquote reduce ['pre Literal detab Quotes]] > clear Quotes > ) > ] > ] > BlockQuote: make object! [ > Center: no > NonQuote: exclude Graphic charset {"} > Lines: make block! 10 > Common: function [L [string! block!]] [bq] [ > bq: [ > 'i reduce [ > 'blockquote either string? L [inline L] [L] > ] > ] > repend Block either Center [ > [ > 'div/align "center" reduce bq > ] > ] [ > bq > ] > Center: no > ] > Rule: [ > [ > opt [#" " (Center: true)] (Lines: make block! 10) > #"^"" copy Line [some [NonQuote | { "} | {" } | { }]] #"^"" empty ( > Common Line > ) > ] > | [ > opt [#" " (Center: true)] (Lines: make block! 10) > #"^"" copy Line [some [NonQuote | { "} | {" } | { }]] empty ( > repend Lines [Line <br />] > ) > any [ > opt #" " copy Line [some [NonQuote | { "} | {" } | { }]] empty ( > repend Lines [Line <br />] > ) > ] > opt #" " copy Line [some [NonQuote | { "} | {" } | { }]] #"^"" empty ( > append Lines Line > Common Lines > ) > ] > ] > ] > List: make object! [ > ULI: [#"*" tab Text] > OLI: [#"0" tab Text] > Break: Term: Definition: none > DT: [copy Term Text-Line empty] > DD: [tab copy Definition Text-Line empty] > Br: [opt [Empty (Break: yes)]] > Item: func [Block [block!] /DL][ > if Break [ > append Block <br /> > Break: none > ] > repend Block either DL [ > ['dt Inline Term 'dd Inline Definition] > ] [ > ['li Inline Line] > ] > ] > Nest: func [Outer [block!] 'Word [word!] Items [block!]][ > repend Outer [Word Items] > make block! length? Items > ] > LIs: make block! 1 > UL: [some [Br ULI (Item LIs) | UL1 | OL1 | DL1] (LIs: Nest Block ul LIs)] > OL: [some [Br OLI (Item LIs) | OL1 | UL1 | DL1] (LIs: Nest Block ol LIs)] > DL: [some [Br DT DD (Item/DL LIs) | DL1 | UL1 | OL1] (LIs: Nest Block dl LIs)] > Tab1: tab > LI1s: make block! 1 > UL1: [some [Br Tab1 ULI (Item LI1s) | UL2 | OL2 | DL2] (LI1s: Nest LIs ul LI1s)] > OL1: [some [Br Tab1 OLI (Item LI1s) | OL2 | UL2 | DL2] (LI1s: Nest LIs ol LI1s)] > DL1: [some [Br Tab1 DT Tab1 DD (Item/DL LI1s) | DL2 | UL2 | OL2] (LI1s: Nest LIs dl LI1s)] > Tab2: join tab Tab1 > LI2s: make block! 1 > UL2: [some [Br Tab2 ULI (Item LI2s) | UL3 | OL3 | DL3] (LI2s: Nest LI1s ul LI2s)] > OL2: [some [Br Tab2 OLI (Item LI2s) | OL3 | UL3 | DL3] (LI2s: Nest LI1s ol LI2s)] > DL2: [some [Br Tab2 DT Tab2 DD (Item/DL LI2s) | DL3 | UL3 | OL3] (LI2s: Nest LI1s dl LI2s)] > Tab3: join tab Tab2 > LI3s: make block! 1 > UL3: [some [Br Tab3 ULI (Item LI3s) | UL4 | OL4 | DL4] (LI3s: Nest LI2s ul LI3s)] > OL3: [some [Br Tab3 OLI (Item LI3s) | OL4 | UL4 | DL4] (LI3s: Nest LI2s ol LI3s)] > DL3: [some [Br Tab3 DT Tab3 DD (Item/DL LI3s) | DL4 | UL4 | OL4] (LI3s: Nest LI2s dl LI3s)] > Tab4: join tab Tab3 > LI4s: make block! 1 > UL4: [some [Br Tab4 ULI (Item LI4s) | UL5 | OL5 | DL5] (LI4s: Nest LI3s ul LI4s)] > OL4: [some [Br Tab4 OLI (Item LI4s) | OL5 | UL5 | DL5] (LI4s: Nest LI3s ol LI4s)] > DL4: [some [Br Tab4 DT Tab4 DD (Item/DL LI4s) | DL5 | UL5 | OL5] (LI4s: Nest LI3s dl LI4s)] > Tab5: join tab Tab4 > LI5s: make block! 1 > UL5: [some [Br Tab5 ULI (Item LI5s) | UL6 | OL6 | DL6] (LI5s: Nest LI4s ul LI5s)] > OL5: [some [Br Tab5 OLI (Item LI5s) | OL6 | UL6 | DL6] (LI5s: Nest LI4s ol LI5s)] > DL5: [some [Br Tab5 DT Tab5 DD (Item/DL LI5s) | DL6 | UL6 | OL6] (LI5s: Nest LI4s dl LI5s)] > Tab6: join tab Tab5 > LI6s: make block! 1 > UL6: [some [Br Tab6 ULI (Item LI6s) | UL7 | OL7 | DL7] (LI6s: Nest LI5s ul LI6s)] > OL6: [some [Br Tab6 OLI (Item LI6s) | OL7 | UL7 | DL7] (LI6s: Nest LI5s ol LI6s)] > DL6: [some [Br Tab6 DT Tab6 DD (Item/DL LI6s) | DL7 | UL7 | OL7] (LI6s: Nest LI5s dl LI6s)] > Tab7: join tab Tab6 > LI7s: make block! 1 > UL7: [some [Br Tab7 ULI (Item LI7s)] (LI7s: Nest LI6s ul LI7s)] > OL7: [some [Br Tab7 OLI (Item LI7s)] (LI7s: Nest LI6s ol LI7s)] > DL7: [some [Br Tab7 DT Tab7 DD (Item/DL LI7s)] (LI7s: Nest LI6s dl LI7s)] > Rule: [opt Empty [UL | OL | DL] (Break: none)] > ] > VerticalSpace: [some [empty (append Block <br />)]] > Statements: make object! [ > Lines: make block! 1 > Rule: [ > some [Text (append Lines append Inline Line <br />)]( > remove back tail Lines > repend Block ['p/class "Initial" Lines] > Lines: make block! 10 > ) > ] > ] > BulletDivider: [ > Empty " *" empty Empty (append Block [<br /> div/align "center" "•" <br />]) > ] > LineDivider: [ > Empty 3 #"-" any #"-" empty Empty (append Block <hr />) > ] > Rules: compose/deep [ > any [ > BulletDivider > | LineDivider > | H opt [(Quote/Rule) | (List/Rule)| (Table/Rule) | (BlockQuote/Rule) | IP] > | (Quote/Rule) > | (List/Rule) > | (Table/Rule) > | (BlockQuote/Rule) > | P > | (Center/Rule) > | VerticalSpace > | (Statements/Rule) > ] > end > ] > set 'eText func [eText [string!] /Wiki /Base Base_URL [url! file! string!]][ > Link_Wiki: Wiki > Link_Base: either Base [Base_URL] [""] > Block: make block! 1000 > if not empty? eText [ > if newline <> last eText [append eText newline] > parse/all eText Rules > ] > Block > ] > ] > > ] > > -- > To unsubscribe from this list, please send an email to > [EMAIL PROTECTED] with "unsubscribe" in the > subject, without the quotes. > -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
