[REBOL] Re: Formatting a display line
From: andrew:martin:colenso:school at: 24-Dec-2003 22:44
Steve wrote:
> Am I losing my mind or what?
No, just suffering from an overuse of COBOL... :) :D
Try adding square brackets around the "integer!" function argument
data-type specifier in 'ADD-FILLER. For example:
ADD-FILLER: func [
"Add a specified number of blanks to FORMATTED-LINE"
SPACE-COUNT [integer!]
] [
PRINT ["NOW WE WILL ADD " SPACE-COUNT " SPACES"]
loop SPACE-COUNT [
append FORMATTED-LINE " " ;;
4444
PRINT ["FORMATTED LINE IS " LENGTH? FORMATTED-LINE
BYTES:
FORMATTED-LINE]
]
]
Here's how I'd do the job:
print map DATA-SELECTED func [Line [block!]] [
rejoin [
map Line func [Item] [
pad form Item 9
]
newline
]
]
Of course that does involve using my 'map and 'pad functions, and
assumes the same horizontal spacing per item in each line.
Andrew J Martin
Attendance Officer
Speaking in tongues and performing miracles.
Colenso High School
Arnold Street, Napier.
Tel: 64-6-8310180 ext 826
Fax: 64-6-8336759
http://colenso.net/scripts/Wiki.r?AJM
http://www.colenso.school.nz/
DISCLAIMER: Colenso High School and its Board of Trustees is not responsible (or legally
liable) for materials distributed to or acquired from user e-mail accounts. You can report
any
misuse of an e-mail account to our ICT Manager and the complaint will be investigated.
(Misuse can come in many forms, but can be viewed as any material sent/received that
indicate or suggest pornography, unethical or illegal solicitation, racism, sexism, inappropriate
language and/or other issues described in our Acceptable Use Policy.)
All outgoing messages are certified virus-free by McAfee GroupShield Exchange 5.10.285.0
Phone: +64 6 843 5095 or Fax: +64 6 833 6759 or E-mail: [postmaster--colenso--school--nz]