OpenEuphoria

2. Re: difficulty with dir()

• Posted by CoJaBo Oct 18, 2009
• 1055 views

Theres a Windows API version of DIR in the archives: http://www.rapideuphoria.com/cgi-bin/asearch.exu?win=on&keywords=win_dir

Euphoria is one of the few remaining languages with no native support for charsets other than ASCII.

4. Re: difficulty with dir()

• Posted by DerekParnell (admin) Oct 18, 2009
• 1024 views

I'm not quite understanding something here. The Unicode value for '«' is 0xAB (171) so I've not sure what the 0xC2 value is doing in the string. That's the unicode value for 'Â'

6. Re: difficulty with dir()

• Posted by DerekParnell (admin) Oct 18, 2009
• 1031 views

I just tried to do the same thing and its working fine.

I created a folder called "some « folder" and then a text file inside that called "test.data". I then wrote the following program and it works exactly as I expected it to.

include std/filesys.e 
object d 
sequence n = "c:\\temp\\some « folder" 
 
d = dir(n) 
 
for i = 1 to length(d) do 
	printf(1, "%-40s %s\n", {d[i][D_NAME], d[i][D_ATTRIBUTES]}) 
	if find('d',  d[i][D_ATTRIBUTES]) then 
		continue 
	end if 
	integer fh = open(n & '\\' & d[i][D_NAME], "r") 
	object l 
	integer cnt = 0 
	while sequence(l) with entry do 
		cnt += 1 
		if l[$] = '\n' then 
			l = l[1..$-1] 
		end if 
		printf(1, "%04d '%s'\n", {cnt, l}) 
	entry 
		l = gets(fh) 
	end while 
	close(fh) 
	puts(1, "\n") 
end for 

Output...

c:\temp>dir 
 Volume in drive C has no label. 
 Volume Serial Number is B872-CDD3 
 
 Directory of c:\temp 
 
19/10/2009  09:54 AM    <DIR>          . 
19/10/2009  09:54 AM    <DIR>          .. 
19/10/2009  09:54 AM    <DIR>          Some « folder 
19/10/2009  09:49 AM               527 test.ex 
               1 File(s)            527 bytes 
               3 Dir(s)  23,578,501,120 bytes free 
 
c:\temp>type test.ex 
include std/filesys.e 
object d 
sequence n = "c:\\temp\\some ½ folder" 
 
d = dir(n) 
 
for i = 1 to length(d) do 
        printf(1, "%-40s %s\n", {d[i][D_NAME], d[i][D_ATTRIBUTES]}) 
        if find('d',  d[i][D_ATTRIBUTES]) then 
                continue 
        end if 
        integer fh = open(n & '\\' & d[i][D_NAME], "r") 
        object l 
        integer cnt = 0 
        while sequence(l) with entry do 
                cnt += 1 
                if l[$] = '\n' then 
                        l = l[1..$-1] 
                end if 
                printf(1, "%04d '%s'\n", {cnt, l}) 
        entry 
                l = gets(fh) 
        end while 
        close(fh) 
        puts(1, "\n") 
end for 
 
c:\temp>eui test 
.                                        d 
..                                       d 
test.data                                a 
0001 'Line one in test data' 
0002 '  another line' 
0003 '  ' 
0004 '  and yet another line.' 
0005 '' 
0006 'last line' 
 
 
c:\temp> 

8. Re: difficulty with dir()

• Posted by useless Oct 18, 2009
• 983 views

include std/filesys.e 
object d 
sequence n = "c:\\temp\\some « folder" 
 

So you admit you didn't use the double-byte combo.

useless