Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[REBOL] String compose

From: d4marcus:dtek:chalmers:se at: 15-Mar-2001 22:54

As I was playing around with some webpage building scripts I'm currently doing, I came up with something that I though could be useful to others as well. Maybe something like this already exists - in any case feel free to come up with improvements. As I'm going to use this myself I would be grateful for any improvement. REBOL [ Title: "String compose" Date: 15-Mar-2001 Author: "Marcus Petersson" File: %stringcompose.r Version: 0.1 ] stringcompose!: make object! [ buffer: make block! 0 exec_start: "(" exec_end: ")" rule: [any [rule_exec | rule_text] copy string to end (append buffer string)] rule_text: [copy string to exec_start (append buffer string)] rule_exec: [exec_start copy string to exec_end exec_end (append buffer exec string)] exec: func [series [series!]] [ if error? try [return do series] [ join exec_start [series exec_end]]] set 'stringcompose func [ {Evaluates a string of expressions, only evaluating executable parens, and returns a block.} Text [String!]] [ clear buffer parse/all Text rule buffer] ] ; borrowed from Andrew Martin's HTML.r ReString: func [Block [block!]] [ join "" reduce Block] MailTo: func [eMail [email!] Link [string!] /Subject String [string!]] [ ReString [ join <a> [{ href=^"mailto:} eMail either Subject [ join "?subject=" String] [""] {^"}] Link </a>]] ; example Marcus: [adress [d4marcus--dtek--chalmers--se]] mail: func ['person string [any-type!]] [ mailto select get person 'adress either value? 'string [ string] [to-string person]] recipients: "Rebol users" text: { Dear (recipients), Now, this is nothing special at all, just a simple example (but a good one). If you don't get the idea maybe you should (mail Marcus "mail me") and I'll explain it to you.} print Restring stringcompose text Marcus ------------------------------------ If you find that life spits on you calm down and pretend it's raining