Please, please, please, please, please include in Core 2.3 the fix for Windows CE palm-sized PCs (e.g., the Cassiopeia E-105) so that the input panel doesn't cover up the Rebol console. I can't see the characters in the Rebol console as I enter them in the input panel and it makes life very difficult. (I sent mail to feedback about this along with some sample code. If you need it again or more of it, let me know.) /jonathan -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] Sent: Wednesday, May 31, 2000 12:46 AM To: [EMAIL PROTECTED] Subject: [REBOL] Script Cleaner Re:(2) Yes. We've been fixing core bugs as well in the View releases. Once, B5 of View is open for everyone to use, we'll put out Core 2.3 as we promised. And, we will also fix the REBOL header problem found in load/next, as you mention below. -Carl At 5/29/00 01:20 AM +0100, you wrote: > >with /core on linux ( REBOL 2.2.0.4.2 ) >this hangs, with view/beta4 it runs. ?! > > parse script blk-rule: [ >.. > str: (print copy/part str 10) >prints lots of >REBOL [ >Ti > >And, my script with rebol[] in it fails, of course. >will change to [join "RE" "BOL"] :-) > >i like this script :-) > >Volker > >> Here's a useful little script for those of you who are >> diligently working on REBOL this Memorial Day weekend. >> >> -Carl >> >> REBOL [ >> Title: "REBOL Script Cleaner" >> Author: "Carl Sassenrath" >> File: %clean-script.r >> Date: 27-May-2000 >> Email: [EMAIL PROTECTED] >> Purpose: { >> Cleans REBOL scripts by parsing the REBOL code >> and supplying standard indentation and spacing. >> } >> Note: { >> This script produces STANDARD script indentation and >> spacing. No doubt you will want to modify it to use >> your own rules. Send your enhancements and I will >> consider adding them to the distribution... but keep >> this header intact and keep the code clean. No hacks. >> } >> Category: [script util text 3] >> History: [ >> "Carl Sassenrath" 1.0.0 27-May-2000 "Original program." >> ] >> ] >> >> script-cleaner: make object! [ >> >> out: none ; output text >> spaced: off ; add extra bracket spacing >> indent: "" ; holds indentation tabs >> >> emit-line: func [] [append out newline] >> >> emit-space: func [pos] [ >> append out either newline = last out [indent][ >> pick [#" " ""] found? any [ >> spaced >> not any [find "[(" last out find ")]" first pos] >> ] >> ] >> ] >> >> emit: func [p1 p2] [emit-space p1 append out copy/part p1 p2] >> >> set 'clean-script func [ >> "Returns new script text with standard spacing." >> script "Original Script text" >> /spacey "Optional spaces near brackets and parens" >> /local str new >> ][ >> spaced: found? spacey >> out: append clear copy script newline >> parse script blk-rule: [ >> some [ >> str: >> newline (emit-line) | >> #";" thru newline new: (emit str new) | >> [#"[" | #"("] (emit str 1 append indent tab) blk-rule | >> [#"]" | #")"] (remove indent emit str 1) | >> skip (set [value new] load/next str emit str new) :new >> ] >> ] >> remove out ; remove first char >> ] >> ] >> >> ;Example: print clean-script read %clean-script.r >> >> >> >> >
