OpenEuphoria

2. Re: EuDesk Gone

• Posted by Andy <videogamefreak101 at h?tmail.co?> Oct 04, 2007
• 564 views
• Last edited Oct 05, 2007

That's too bad, I was hoping this project would make it. Did you get anything
on it? Do you have any source left or something?

4. Re: EuDesk Gone

• Posted by Tristen Wilson <wood_dip_kill at yaho?.co?> Oct 05, 2007
• 545 views

> Whither EUFF?  How am I going to find ALL my files now?
Well EUFF is a decent project, but finding a way to make it search through every
nook and cranny on your hard Disk is just a real pain, heres the source code (I
think)

include misc.e
include get.e
include machine.e
include graphics.e
include file.e

atom garbage

--This is our opening screen
text_color(GREEN)
puts(2, "Euphoria File Finder\n (EUFF) Pronounced Yufe")

--This is the Long and UnOptimized Directory Finder
procedure get_dir()
sequence data, ndir, finfo
atom attrib
ndir = {}
data = {}
finfo = {}
data = dir("C:\\")
for i = 1 to length(data) do
    printf(1,"Filename: %s Attributes: %s\n" ,{data[i][1], data[i][2]})
    --Sleep(1)
end for
sleep(3)


for i = 1 to length(data) do
    attrib = data[i][2][1]
    if attrib = 100 then
        ndir = append(ndir, data[i][1])
    end if
end for
clear_screen()
puts(2, "\nDirectory Output (DEBUG ONLY)\n This List should Comprise of
Directories")
sleep(1)


for i = 1 to length(ndir) do
    printf(1,"\nDirectory: %s",{ndir[i]})
end for
puts(2, "\nDone")
sleep(4) 
end procedure

get_dir()

And Another Chunk

include misc.e
include get.e
include file.e
include machine.e
tick_rate(100)
puts(2, "Welcome to EUFF!\nThe (EU)phoria (F)ile (F)inder or yufe")


sequence dirs, root, ndir, finfo, dynamic_dir
dirs = {}
root = {}
ndir = {}
finfo = {}
dynamic_dir = {{}, {}, {}, {}}
procedure get_dir()
root = dir("C:\\")
for i = 1 to length(root) do
    if root[i][2][1] = 100 then
        ndir = append(ndir, root[i][1])
        else
            finfo = append(finfo, root[i][1])
    end if
    end for
for i = 1 to length(ndir) do
    dirs= dir(finfo[i])
    if dirs[i][2][1]= 100 then
        dynamic_dir[2] = append(dynamic_dir[2], dirs[i][1])
        else
            finfo = append(finfo, dirs[1][i])
    end if
end for     
end procedure

get_dir()

6. Re: EuDesk Gone

• Posted by Tristen Wilson <wood_dip_kill at yahoo.?om> Oct 06, 2007
• 551 views

don cole wrote:
>   Part two (after chunk) I get type_check failure, dirs is -1 . I didn't try
> to figure it out though.
> 
> Don Cole

I made the mistake of typing dirs instead of root. It might turn out to be very
useful if I can get it to scan the directories within a directory and so on.