World: r4wp

It just repeats what i've entered

forever [do ask "? "]  will work on some rebol commands like HELP 
or PRINT "HI" but not "Q" or "QUIT"

which is why I tried to state the condition to break out of the loop

So if you type "quit" (no quotes) after running that, it doesn't 
quit REBOL?

right

it is like the word is not being evaluated

What version of REBOL, and what OS? It works as expected here on 
Win7.

r3 111 vista

Was just askin about R3 vs R2 :/ I fear you hit a known bug in R3.

Ah, R3. Let me try.

Indeed. I now see your behavior.

thanks Andreas,  that explains it

(http://issue.cc/r3/851-- that's the bug, just in case.)

Just FYI: workaround the bug:

forever	[
	do script: ask	[~ " REBOL COMMAND? "]	; do the entered command
	if script = "q"		[break]
	if script = "quit"	[break]	
	]

So, coming back to the original question... :-) Rather than doing 
"script =" for every command, you could say "if find ["quit" "q"] 
cmd [break]", so it's easier to check multiple commands, aliases, 
etc. e.g., what about HALT?

So I would still hold the result of ASK in a temp var, rather than 
DOing it directly and relying on the bug's behavior.

i.e., get the command, check if it's special and, if not, DO it.

Yes, that would work better

May be we should create a "R3 School" and rename this group to "R2 
School"?

So we do not have to ask for version for every question asked in 
this group. What do you think?

I think this group is fine. Otherwise we may have fragmentation about 
general questions.

In R3, I want to be able to request a specific directory quickly 
and easily.  The easiest way I've found is to use REQUEST-FILE since 
it allows the user to quickly "navigate to" the desired directory. 
 Thing is, it requires the user to pick an existing file , even though 
I don't care about the file itself.  In most cases, this is fine 
since the user can pick any one of the files, but in cases where 
a directory is empty of a file, I have a problem.  

example code:

request-file/file to-file join "/" second parse what-dir "/"   <-- 
I use this to default the directory at the highest level is   ie 
 %/c  

Is there a better way to do this in R3?

There is also request-dir I think.

I'm using 2.100.111 and no REQUEST-DIR, unless it was added in a 
later version

In Saphirion's build we have REQUEST-DIR already added.

I tried request-file in the android build, it didn't crash but nothing 
showed up. Not that I needed it - I was just curious.

The android version doesn't have thesee calls implemented yet (AFAIK 
android doesn't have any "default OS" requesters for that so we need 
to do it ourself or reuse custom code)

But in Windows version this works.

It's even in the lates public source release here: http://development.saphirion.com/downloads/
so if anyone have time to make pull-request?

(check the OS_Request_Dir() function in src\os\win32\host-lib.c as 
a base for the feature)

Thanks Cyphre, I've just downloaded from Saphirion -- Looks exciting!

I am trying to troubleshoot a peculiarity in   R3    2.101.0 from 
Saphirion

>> print type? what-dir

file!				<-- Ok, it's a file, even if has an end slash instead of 
a specific file path
>> print type? request-dir	; select any directory
file!				<-- Ok, Same thing


So it stands to reason that passing the value returned by WHAT-DIR 
and by REQUEST-DIR  will be FILE!

So here is my code that is giving me some trouble:

file-list:	[]

read-dir:	func	[
	dir	[file!	]
	] [
	foreach file read dir [
		file: either dir = %./ [file] [dir/:file]
		append file-list file
		if dir? file [
			read-dir file
	]	]	]

inp-dir: request-dir/path	what-dir 

unless inp-dir [ask	">>> No directory selected, cannot proceed  (Enter)" 
 quit ]
cd :inp-dir


read-dir inp-dir		; <-- does not work as expected, must use cd and 
what-dir instead
;read-dir what-dir
new-line/all file-list on
print mold file-list

If you comment out the READ-DIR INP-DIR and uncomment the next line, 
it works fine!

What am I missing?  Another bug?

I'ts getting late, see you tomorrow!

what happens when you probe inp-dir after the request?

have you done 'load-gui before you run the script?

Patrick, simple fix: if you expect INP-DIR do be a file refering 
to a directory, sanitise it through DIRIZE: `read-dir dirize inp-dir`.

The underlying problem indeed is related to a bug in R3. Both directories 
and files are represented by file! in R3. R3 uses a heuristic that 
a trailing slash discernes file file!s from directory file!s. Now 
when you pass a file! without a trailing slash but which actually 
refers to a directory to READ, READ crashes. (Bug#1675)

The simplest demonstration of that bug: read %.

Now if REQUEST-DIR returns a file! without a trailing slash, passing 
that returned value directly to READ will trigger this bug.

Back again.  Thank you Andreas,


I had realized that FILE! was used for both directory and files, 
but I didn't realize that REQUEST-DIR was NOT sending it back as 
a directory, but as a file (without trailing slash).  I was able 
to confirm by adding a print of WHAT-DIR and INP-DIR and compare, 
as per your comments.

I did not know about DIRIZE


Using READ DIRIZE INP-DIR does fix the problem -- though I wonder 
if REQUEST-DIR should return it with a trailing slash?

Thanks again to all!

Yep, I think REQUEST-DIR should return a dirized file!.

Hey all, I'm having such a good time learning again!


I've got some code to generate a print ruler, but I think it could 
be cleaned up a lot more.   

If some of you have a quick moment, could you take a quick look and 
advise me on how to shorten this code.

ruler1: copy ruler2: ""
idx: 0
loop 110 [
	idx: idx + 1
	append ruler1 "_"
	append ruler2 last-digit: last to-string idx
	if last-digit = #"5" [
		clear back tail ruler1
		append ruler1 "+"
		]	
	if last-digit = #"0" [
		either idx < 99 [clear back back tail ruler1]
			[clear back back back tail ruler1]
		append ruler1 to-string idx
		]
	]
replace/all ruler2 "0" "_"
print ruler1
print ruler2



____+___10____+___20____+___30____+___40____+___50____+___60____+___70____+___80____+___90____+__100____+__110

123456789_123456789_123456789_123456789_123456789_ 123456789_123456789_ 
123456789_123456789_ 123456789_123456789_

Try ++ idx instead of idx: idx + 1

I don't like the BACK BACK ... etc, depening upon the length of IDX 
which is what I want to print out 

Can I do something like LENGTH? IDX and use that number to "back 
up the series"?

I'll give ++ idx a try

copy/part tail form idx -1 will give you the last number

shouldn't use mutually exclusive serial if statements

You mean instead of LAST-DIGIT: LAST TO-STRING IDX

yes

Should I use FIND instead?