[REBOL] REBOL/Media
Hi, I remember seeing REBOL/Media mentioned as one of the planned extentions to REBOL. Anyone have any information on it?
[REBOL] Dates Re:(3)
Version 2.2 has to-idate, but it results in a different format from what you apparently want? >> ? to-idate Returns a standard Internet date string. Arguments: date -- (date) >> to-idate now/date == "Thu, 11 Nov 1999 none +" >> to-idate now == "Thu, 11 Nov 1999 23:20:51 -0700" Russell [EMAIL PROTECTED] - Original Message - From: <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Thursday, November 11, 1999 7:28 PM Subject: [REBOL] Re: Dates Re: > Hello, still catching up on my mail... > > On 03-Nov-99, [EMAIL PROTECTED] wrote: > > > > >Howdy Allen: > > > >> Hi Rebols, > >> > >> Has anyone got an i-date to REBOL date formatter? Or is > >> there one built in I haven't found. I actually thought > >> that to-date might work...but alas no luck > > > >>> to-date skip to-idate now 5 > >== 3-Nov-1999/21:37:42-8:00 > > What? That's the same as what 'now gives. What was the point of to-date > skip to-idate now 5, besides alot more typing? What is idate anyway? I > missed that if it was explained in the previous mail. > > Elliott > >
[REBOL] Dates Re:(3)
[EMAIL PROTECTED] wrote: > Hello, still catching up on my mail... > > On 03-Nov-99, [EMAIL PROTECTED] wrote: > > > > >Howdy Allen: > > > >> Hi Rebols, > >> > >> Has anyone got an i-date to REBOL date formatter? Or is > >> there one built in I haven't found. I actually thought > >> that to-date might work...but alas no luck > > > >>> to-date skip to-idate now 5 > >== 3-Nov-1999/21:37:42-8:00 > > What? That's the same as what 'now gives. What was the point of to-date > skip to-idate now 5, besides alot more typing? What is idate anyway? I > missed that if it was explained in the previous mail. try to use 'source function from time to time ... ->> source to-idate to-idate: func [ "Returns a standard Internet date string." date [date!] /local str ][ str: form date/zone remove find str ":" if (first str) <> #"-" [insert str #"+"] if (length? str) <= 4 [insert next str #"0"] head insert str reform [ pick ["Mon," "Tue," "Wed," "Thu," "Fri," "Sat," "Sun,"] date/weekday date/day pick [ "Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec" ] date/month date/year date/time "" ] ] ->> Regards, -pekr- > > > Elliott
[REBOL] Pushover
I just posted the board game, Pushover, at www.rebol.org. It's a 5x5 board, empty at first, you play versus the computer. The object is to get a row, column, or major diagonal of your pieces. To place a piece on the board you push it onto an edge square from off-board. The direction you push it, right, left, up, down, determines the direction it moves onto the board and if your piece encounters other pieces, it pushes them along, possibly pushing a piece off the board at the opposite end of the row/col you move onto. As you can push off your enemy's pieces this way, it gives the game some challenge. Give it a try! With it in the active directory, type do %pushover.r and it will auto-start with instructions. It's heavily commented, for your "edification"?? Russell [EMAIL PROTECTED]
[REBOL] Re: Removing obsolete scripts from REBOL.ORG
Hello, On 08-Nov-99, [EMAIL PROTECTED] wrote: > How does one go about removing a obsolete script from > http://www.rebol.org ? I would like to remove my %Append.r script, as > the 'append word in REBOL 2.2 now comes with the needed enhancement > that this script provided. Otherwise, how about updating it to check Rebol's version first and exit if 2.2 or later? Elliott
[REBOL] [REBOL] Recursive data structures Re:(2)
Hello, On 04-Nov-99, [EMAIL PROTECTED] wrote: > Quoting [EMAIL PROTECTED] ([EMAIL PROTECTED]): --snip-- I already read this several minutes ago with only one [REBOL] in the subject line. Why is SELMA sending duplicates every so often? Elliott P.S. I see now there's even some with 3 [REBOL]s
[REBOL] Re: http server... Re:(9)
Hello, On 04-Nov-99, [EMAIL PROTECTED] wrote: > to continue experimenting with it. It sure would have saved some time had > someone who worked at Rebol jumped in and said what Rebol required. Or a > way to tell Rebol to not require the header, and to be compatable with IE5 > and etc.. Yeah, just what everyone needs to be, compatible with IE5 (follow the herd, driven by Bill) rather than HTML4. ;) Elliott
[REBOL] Re: Dates Re:
Hello, still catching up on my mail... On 03-Nov-99, [EMAIL PROTECTED] wrote: > >Howdy Allen: > >> Hi Rebols, >> >> Has anyone got an i-date to REBOL date formatter? Or is >> there one built in I haven't found. I actually thought >> that to-date might work...but alas no luck > >>> to-date skip to-idate now 5 >== 3-Nov-1999/21:37:42-8:00 What? That's the same as what 'now gives. What was the point of to-date skip to-idate now 5, besides alot more typing? What is idate anyway? I missed that if it was explained in the previous mail. Elliott
[REBOL] REBOL Incursion - addition to the article ...
Hi, for those interested, check out Czech Amiga News at http://www.realdreams.cz/amiga :-) -pekr-
[REBOL] NT usage Re:(2)
Under NT the registry cannot be accessed as a file. You must using the API calls to read and write stuff to it. We use it to setup information that in-house developed applications use. We seldom touch the microsoft areas unless we know what we are doing. (That doesn't happen often.) Right now we use Wise as an installer AND general purpose scripting language, with call-outs to a DLL of C functions for hard stuff, like doing interesting things with the registry or executing SQL scripts on an Oracle database. This all works but the result is we have some serious logic and investment tied up the WISE scripts. Ideally we'd like to dumb-down the WISE scripts and put the smart code up into a good, general purpose, human readable format like REBOL. As idea how much REBOL/Command will sell for? Steve -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] Sent: Friday, 12 November 1999 14:48 To: [EMAIL PROTECTED] Subject: [REBOL] NT usage Re: --- [EMAIL PROTECTED] wrote: 1. Can it read from and write to the NT registry? --- end of quote --- You could certainly use it to parse/read/write to the registry (assuming it's a text file like in 95/8). Whether that would be advisable... I've heard looking at the registry sorta mean can break things... -- Andrew Grossman
[REBOL] Fixing REBOL software
Jeff wrote: > Of course, I'm sure that if someone fixed IMPORT-EMAIL and sent it in, with a little due process on our part, we'd certainly include it in the core and give credit within the source of the code. Would the REBOL crew do that if we sent in fixes for other functions, etc in REBOL? Oh, I don't know, like a fix for 'build-tag and 'open (in the http scheme), etc? Andrew Martin [EMAIL PROTECTED] http://members.xoom.com/AndrewMartin/ Online @ 33,600 Baud! -><-
[REBOL] NT usage Re:
--- [EMAIL PROTECTED] wrote: 1. Can it read from and write to the NT registry? --- end of quote --- You could certainly use it to parse/read/write to the registry (assuming it's a text file like in 95/8). Whether that would be advisable... I've heard looking at the registry sorta mean can break things... -- Andrew Grossman
[REBOL] NT usage Re:
Steve Green wrote: > 1. Can it read from and write to the NT registry? Not yet. > 2. Can it execute a program (.EXE)? Not yet. REBOL/Command can execute programs. It's soon to be released (like only days away from what the REBOL crew have said). With that facility, a simple C/C++ program can then be run to alter the registry as REBOL requires. I hope that helps! Andrew Martin Who's waiting for REBOL/Command too! [EMAIL PROTECTED] http://members.xoom.com/AndrewMartin/ Online @ 33,600 Baud! -><-
[REBOL] NT usage
REBOL looks VERY interesting. We would like to use in on the Windows NT 4.0 platform. My questions to the list are: 1. Can it read from and write to the NT registry? 2. Can it execute a program (.EXE)? Steve Green Database Administrator "Have the courage to use your own understanding" Immanuel Kant
[REBOL] import-email Re:(3)
Howdy Elan: > I believe that these multiple lines in the Received field > threw header-rules/parse-head off as well. > > header-rules/parse-head expects to find a new field on each > line (I believe, after quickly browsing the code), doesn't > it? Good job! Would that everyone was as diligent as you at finding the source of bugs. Sometimes our bug database winds up with entries of gigantic run on scripts with the note "there is a bug in here". Boy--oh--boy! Those are the best. :-) > Probably the better solution would be to first check the > header for conformance with the parse rules, either remove > lines that do not conform or reformat them so that they do > and then parse the stuff. If modifications were made, this > could be reported in an additional Parse-Error-Report field > in the header. At some point we'll have to make IMPORT-EMAIL more robust. So many little dangling items to get worked out with core, though we're swamped on command. Of course, I'm sure that if someone fixed IMPORT-EMAIL and sent it in, with a little due process on our part, we'd certainly include it in the core and give credit within the source of the code. No one ever takes my threats seriously... )-: (-: Cheers-- -jeff
[REBOL] Re: import-email
Answering my own question,
its been the {From [EMAIL PROTECTED] Thu Nov 11 14:36:01 1999}
line, that caused my problems.
regards,
Ingo
-- _ ._
ingo@)|_ /| _| _ ingo@| |(_|o(_)| (_|
._| ._|
[REBOL] import-email Re:(2)
Hi Jeff, you wrote:
[snip]
> The first line there confuses IMPORT-EMAIL. Set-words are
> being looked for, (from: subject: etc..) and the 'from' on
> the first line in UNIX mail format and eudora format doesn't
> have a colon after it. The fix is to either skip a line, or
> skip forward to a field you want to have, that is:
>
>
> mail-obj: IMPORT-EMAIL FIND message "Received:"
>
I first thought so too. However, check this out:
message: {Return-Path: [EMAIL PROTECTED]
Received: from bigplanet.com (1Cust44.tnt1.providence.ri.da.uu.net
[63.21.181.44])
by patty.loop.com (8.9.3/8.9.3) with SMTP id XAA27885
for <[EMAIL PROTECTED]>; Sun, 26 Sep 1999 23:38:41 -0700 (PDT)
From: [EMAIL PROTECTED]
Message-Id: <[EMAIL PROTECTED]>
Date: Mon, 27 Sep 1999 02:39:11 -0400 EDT
Content-Type: text/plain; charset=us-ascii
X-Mailer: Mozilla 3.01 (Win95; I)
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
To: [EMAIL PROTECTED]
Subject: New Online Business Databases on CD-ROM
X-UIDL: a99d25d6bc54cd513a9e2a403cc65a41
Dear Elan,
I wanted to share with you the latest update to our cutting edge database
of online businesses.
}
>> msg: import-email message
>> probe msg
make object! [
To: none
CC: none
BCC: none
From: none
Reply-To: none
Date: none
Subject: none
Return-Path: "[EMAIL PROTECTED]"
Organization: none
Message-Id: none
Comment: none
X-REBOL: {2.2.0.3.1 "The Internet Messaging Language (TM) WWW.REBOL.COM"}
MIME-Version: none
Content-Type: none
Content: {Dear Elan,
I wanted to share with you the latest update to our cutting edge database
of online businesses.
}
Received: {from bigplanet.com (1Cust44.tnt1.providence.ri.da.uu.net
[63.21.181.44])}
]
Pretty much everying is set to none. The fields To and Subject, for
instance, are provided in the email. Here the problem is not due to the
first line.
The problem was that the message includes newlines here:
Received: from bigplanet.com (1Cust44.tnt1.providence.ri.da.uu.net
[63.21.181.44])
by patty.loop.com (8.9.3/8.9.3) with SMTP id XAA27885
for <[EMAIL PROTECTED]>; Sun, 26 Sep 1999 23:38:41 -0700 (PDT)
I believe that these multiple lines in the Received field threw
header-rules/parse-head off as well.
header-rules/parse-head expects to find a new field on each line (I
believe, after quickly browsing the code), doesn't it?
Probably the better solution would be to first check the header for
conformance with the parse rules, either remove lines that do not conform
or reformat them so that they do and then parse the stuff. If modifications
were made, this could be reported in an additional Parse-Error-Report field
in the header.
BTW, Ingo, if you want to check it out for yourself, look at:
source import-email
source parse-header
probe header-rules
that should tell you everything you could possible want to know. I don't
have the time right now to review the stuff in detail.
Hope this helps,
Elan
[REBOL] import-email Re:
Howdy Ingo:
> Hi Rebols,
>
> can someone enlighten me, on how import-email is supposed
> to work? I saved an email that I sent locally and try to
> import it, that's what I get.
>
> ;; START OF Rebol session
>
> >> m: read %mail
> == {From [EMAIL PROTECTED] Thu Nov 11 14:36:01 1999
The first line there confuses IMPORT-EMAIL. Set-words are
being looked for, (from: subject: etc..) and the 'from' on
the first line in UNIX mail format and eudora format doesn't
have a colon after it. The fix is to either skip a line, or
skip forward to a field you want to have, that is:
mail-obj: IMPORT-EMAIL FIND message "Received:"
-jeff
[REBOL] performance Re:(4)
Best wishes on your new web-site. Brent Meeker Camarillo CA USA Amiga A2060 On 11-Nov-99, [EMAIL PROTECTED] wrote: >Hello Thomas >I use Amiga and Rebol too. >I like Rebol and like Amiga. >Forgive me my bad English. >I live in Ukraine (exUSSR), so i got only A1200+fpu+4M. >But i can start Rebol and other programs together. >I must notice, that networking using rebol work wery well. >Very soon I am going to launch my web-site regarding to Amiga and >using of rebol for russian users. >I am looking for friends in amiga-field, so i would be very glad to >see your answer. >Best regards, > etfmailto:[EMAIL PROTECTED]
[REBOL] import-email
Hi Rebols,
can someone enlighten me, on how import-email is
supposed to work?
I saved an email that I sent locally and try to
import it, that's what I get.
;; START OF Rebol session
>> m: read %mail
== {From [EMAIL PROTECTED] Thu Nov 11 14:36:01 1999
Received: from localhost (fuchur) [127.0.0.1] (ingo)
^-by localhost with smtp (Exim 2...
>> print m
>From [EMAIL PROTECTED] Thu Nov 11 14:36:01 1999
Received: from localhost (fuchur) [127.0.0.1] (ingo)
by localhost with smtp (Exim 2.05 #1 (Debian))
id 11luOO-MY-00; Thu, 11 Nov 1999 14:36:00 +0100
To: "Ingo Hohmann" <[EMAIL PROTECTED]>,
"Root" <[EMAIL PROTECTED]>,
"Tester" <[EMAIL PROTECTED]>
From: "Ingo Hohmann" <[EMAIL PROTECTED]>
Date: Thu, 11 Nov 1999 14:36 +0100
Subject: test
X-REBOL: 2.2.0.4.2 "The Internet Messaging Language (TM) WWW.REBOL.COM"
Message-Id:
Status: RO
Content-Length: 93
Lines: 4
test
--
Und etwas mehr ...
>> im: import-email m
>> probe im
make object! [
To: none
CC: none
BCC: none
From: none
Reply-To: none
Date: none
Subject: none
Return-Path: none
Organization: none
Message-Id: none
Comment: none
X-REBOL: {2.2.0.4.2 "The Internet Messaging Language (TM) WWW.REBOL.COM"}
MIME-Version: none
Content-Type: none
Content: {test
--
Und etwas mehr ...
}
]
Do I do something wrong?
BTW, its 2.2.0.4.2, and I have not yet started to
patch import-email or its helpers ;-)
regards,
Ingo
-- _ ._
ingo@)|_ /| _| _ ingo@| |(_|o(_)| (_|
http://www.2b1.de/Rebol/ ._| ._|
[REBOL] Sending and receiving email with realnames
Hi Rebols,
I once again tried the send function ...
So, now it is possible to
send ["Ingo Hohmann" [EMAIL PROTECTED]] {message ...}
And Mail-List-Rules/parse-mail-list returns
a block of ["name" address ...].
(When there is no real-name, it is/may just be
omitted.)
Please email me any errors that may occur, or
ideas to make it better.
(btw, as it is, it doesn't work well with
messenger.r, it confuses the addressbook.)
regards,
Ingo
-- _ ._
ingo@)|_ /| _| _ ingo@| |(_|o(_)| (_|
http://www.2b1.de/Rebol/ ._| ._|
REBOL [
Title: "mail-patches"
Date: 1999-9-8
Purpose: {Patches for email system functions}
File: %mail-patches.r
Needs: 2.2
Author: "Ingo Hohmann"
email: [EMAIL PROTECTED]
site: http://www.2b1.de/Rebol/
Rights: "(c) Ingo Hohmann and others"
Comments: {Will be part of Patches.r}
Category: 'Utility
]
;
; email
;
History: [
[11-Nov-1999 "iho" {address block of the form [ [name] email ... ]
may now be used (name may be omitted).}]
[13-Sep-1999 "iho" {Added send "REALNAME " message
and Signature (to be set in system/user/signature)}]
[6-Sep-1999 "iho" {re-introduced my original version, you
may just move the comment mark, if you wish}]
[31-Aug-1999 "Allen Kamp" {Modified From output to include ""
as in "User Name" <[EMAIL PROTECTED]>}]
[8-Aug-1999 "iho" {Original Release} ]
]
send: func [
{Send a message to an address (or block of addresses)
patched by iho, to include your real name when sending,
this has to be set as system/user/name}
address [email! block!] "An address, block of addresses, or string"
message "Text of message. First line is subject."
/only "Send only one message to multiple addresses"
/header "Supply your own custom header"
header-obj [object!] "The header to use"
/local smtp-port content do-send addr-list
][
do-send: func [port data] [insert port reduce data]
smtp-port: open [scheme: 'smtp]
if not block? address [address: reduce [address]]
message: content: either string? message [copy message] [mold message]
if all [ found? find copy next first system/user 'signature
not none? system/user/signature
] [
insert tail message rejoin [ "^/" system/user/signature ]
]
if not header [
if none? system/user/email [
net-error "Can't set Email header: system/user/email not set"
]
header-obj: make system/standard/email [
either none? system/user/name [
From: system/user/email
][
; This is my original Version (Ingo Hohmann <[EMAIL PROTECTED]>)
;From: join system/user/name [" <" system/user/email ">"]
; This is from "Allen Kamp" <[EMAIL PROTECTED]>
; to get "" marks around the real name
From: rejoin [{"} system/user/name {" <} system/user/email ">"]
]
Subject: copy/part message any [find message newline 50]
]
]
if none? header-obj/from [net-error "Email header not set: no from address"]
if none? header-obj/to [header-obj/to: make string! 20]
if none? header-obj/date [header-obj/date: to-idate now]
either only [
addr-list: copy ""
do-send smtp-port ["MAIL FROM: " header-obj/from ]
until [
addr: pick address 1
if string? addr [
either email? pick address 2 [
addr: rejoin [ {"} addr {" <} pick address 2 ">" ]
do-send smtp-port [{RCPT TO: } addr ]
address: next address
] [
print "Error: name without address"
]
]
if email? addr [
addr: rejoin [ "<" addr ">" ]
do-send smtp-port ["RCPT TO: " addr ]
]
if string? addr [
either addr-list = "" [
append addr-list addr
] [
append addr-list rejoin [ ", ^/^-" addr ]
]
]
address: next address
tail? address
] ; until
header-obj/to: addr-list
insert insert message net-utils/export header-obj newline
do-send smtp-port ["DATA" message]
] [
until [
addr: pick address 1
catch [
if string? addr [
either email? pick address 2 [
addr: rejoin [ addr { <} pick address 2 {>} ]
address: next address
][
print [ "Error: Name without email (" addr ")" ]
throw
]
]
if email? addr [
addr: rejoin ["<" addr ">"]
]
either string? addr [
do-send smtp-port ["MAIL FROM: " header-obj/from ]
do-send smtp-port ["RCPT TO: " addr ]
header-obj/to: addr
message: rejoin [ net-utils/export header-obj newline content
[REBOL] [REBOL] Is today the day? Re:(2)
Hey Ralph, Allen, & others interested: Not yet...today (Nov. 9th) was the announcement, but we're still working out a f ew bugs and tightening up a few features. Working long hours to get it in your han ds a.s.a.pthen you can fire away with your feedback! Command won't talk directly to mySQL, but you'll be able to access it through ODBC. Native d-base implementations are slated for early Q1 (also including Oracle, Sybase, etc.). ---Dan At 10:51 PM 11/7/99 -0500, you wrote: >I, too, am EAGERLY awaiting it! If it talks to mySQL, I am gonna be one >happy camper! > >--Ralph > >> -Original Message- >> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] >> Sent: Sunday, November 07, 1999 9:47 PM >> To: [EMAIL PROTECTED] >> Subject: [REBOL] Is today the day? >> >> >> >> So, is today the day that we get our hands on the REBOL/Command beta, >> as the prophets foretold ?? >> >> Awaiting the coming of the computing messiah :-) >> >> Allen K >> >> jumping the gmt+10 gate.. >> >>
[REBOL] Other undocumented feature .... Re:(2)
[EMAIL PROTECTED] wrote: > [EMAIL PROTECTED] wrote: > > > some few days I pointed out some not all that easily visible > > refinements, as email/host, email/user, time/julian, and now I found: > > > > port/state > > Petr, you could have discovered all of them with: > > probe port I've never used probe. My favorite function is 'mold :-) -pekr- > > > Ciao, > /Gabriele./ > o) .-^-. (--o > | Gabriele Santilli / /_/_\_\ \ Amiga Group Italia --- L'Aquila | > | GIESSE on IRC \ \-\_/-/ / http://www.amyresource.it/AGI/ | > o) `-v-' (--o
[REBOL] Other undocumented feature .... Re:
[EMAIL PROTECTED] wrote: > some few days I pointed out some not all that easily visible > refinements, as email/host, email/user, time/julian, and now I found: > > port/state Petr, you could have discovered all of them with: probe port Ciao, /Gabriele./ o) .-^-. (--o | Gabriele Santilli / /_/_\_\ \ Amiga Group Italia --- L'Aquila | | GIESSE on IRC \ \-\_/-/ / http://www.amyresource.it/AGI/ | o) `-v-' (--o
[REBOL] How to update port info? Re:
[EMAIL PROTECTED] wrote: > Is there (is there going to be) any way to update port status, without > the need to reconnect to my mailbox? I think it would be difficult, since your mailbox would be locked while you are connected via POP3; this means that those mail would be placed in a queue waiting for the mailbox to be unlocked. Ciao, /Gabriele./ o) .-^-. (--o | Gabriele Santilli / /_/_\_\ \ Amiga Group Italia --- L'Aquila | | GIESSE on IRC \ \-\_/-/ / http://www.amyresource.it/AGI/ | o) `-v-' (--o
[REBOL] [REBOL] database testing
ops.. valentina is there: www.paradigmasoft.com 8))
[REBOL] [REBOL] [REBOL] dupes... Re:(3)
Okay, I just wanted to make sure they weren't coming from me. I'm running my own sendmail here on a Linux box and I'm still getting used to it. Jim > -Original Message- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] > Sent: Monday, November 08, 1999 2:22 PM > To: [EMAIL PROTECTED] > Subject: [REBOL] dupes... Re:(2) > > > I dunno, Jim.. SELMA, I guess. We saw this happen about a month > ago... then > it stopped. I've noticed a few dupes over the past few days... then today > it went bizerk! > > Must be someone playing with SELMA code or system config... as software > doesn't just "detiorate" on its own :) Unless it's detecting > some specific > condition in someone's email... hmmm. > > I seem to have noted a definite 3hr offset in the times they are sent.. > well, in some cases... haven't really taken time to investigate > thoroughly. > > R. >
[REBOL] Build-tag
I've been doing some experimenting (and rewriting my %HTML.r script...)
and came across this interesting behaviour for 'build-tag:
>> build-tag [BODY BGCOLOR #F0 TEXT #00 LINK #CC VLINK
#330099 ALINK #FF3300]
==
That looks OK, until I realised the "#" was missing. I could do it this
way:
>> build-tag [BODY BGCOLOR "#F0"]
==
But that offends me. I also tried this:
>> build-tag [/BODY]
== <="BODY">
For a closing tag, that's really strange. :-/
>> source build-tag
build-tag: func [
"Generates a tag from a composed block."
blk [block!] "Block of parens to evaluate and other data"
/local m out
][
blk: compose blk
out: copy ""
foreach item blk [
append out rejoin either not word? item [[{="} item {"}]
] [[" " item]
]
]
to-tag trim out
]
Then I noticed the extra uneeded local word 'm in the source for
build-tag. So I decided to rebuild 'Build-tag like this:
StartTag: function [
Name [string!] {Name of tag eg HTML BODY TABLE}
/Attributes
TagAttributes [block!] {Block of attributes for tag.}
][
TagContent
][
ToTagString either Attributes [
TagContent: copy Name
TagAttributes: compose TagAttributes
foreach TagAttribute TagAttributes [
append TagContent join {} either not word? TagAttribute [
[{="} either issue? TagAttribute [mold
TagAttribute][TagAttribute]
{"}]
][
[" " uppercase to-string :TagAttribute]
]
]
trim TagContent
][
Name
]
]
This seems to work well, except for end tags, but I have a special
function for that:
EndTag: func [Name [string!]][ToTagString join "/" Name]
Which works really well with:
Tag: function [
Name [string!] {Name of tag eg HTML BODY TABLE}
Content [block! string!] {What's between start and end tags.}
/Multi-Line {Separate tags by newlines.}
/Attributes
TagAttributes [block!] {Block of attributes for tag.}
][
Multi-Line?
][
Multi-Line?: func [][either Multi-Line [newline][""]]
rejoin [
Multi-Line?
either Attributes [StartTag/Attributes Name TagAttributes][StartTag
Name]
either any [string? Content empty? Content][Content][Rejoin Content]
Multi-Line?
EndTag Name
]
]
and
EndlessTag: func [
Name [string!] {Name of tag eg HTML BODY TABLE}
/Attributes
TagAttributes [block!] {Block of attributes for tag.}
][
rejoin ["^/" either Attributes [StartTag/Attributes Name
TagAttributes][StartTag Name]]
]
So, could:
either issue? TagAttribute [mold TagAttribute][TagAttribute]
or something similar, be inserted into build-tag and the extra local
word be removed?
And instead of this:
>> build-tag [/BODY]
== <="BODY">
Have this:
>> build-tag [/BODY]
==
Andrew Martin
Who's practising rambling bug reports...
[EMAIL PROTECTED]
http://members.xoom.com/AndrewMartin/
Online @ 33,600 Baud!
-><-
[REBOL] performance Re:(3)
Hello Thomas I use Amiga and Rebol too. I like Rebol and like Amiga. Forgive me my bad English. I live in Ukraine (exUSSR), so i got only A1200+fpu+4M. But i can start Rebol and other programs together. I must notice, that networking using rebol work wery well. Very soon I am going to launch my web-site regarding to Amiga and using of rebol for russian users. I am looking for friends in amiga-field, so i would be very glad to see your answer. Best regards, etfmailto:[EMAIL PROTECTED]
[REBOL] Fixed format/width field files in REBOL Re:(3)
Thanks Sterling and Ron! Andrew Martin Who's been seduced by the strawberries... [EMAIL PROTECTED] http://members.xoom.com/AndrewMartin/ Online @ 33,600 Baud! -><-
