OpenEuphoria

2. Re: file access again

• Posted by useless_ Dec 30, 2012
• 1196 views

This error happens with eui and euiw of v4.1.0.Nov28 on winxp.

junk = dir(writefilename) -- also returns -1 

But the file IS there, visable and available in dosbox and in Explorer, accessable by dos and win32 text editors.

useless

4. Re: file access again

• Posted by fizzpopsoft Dec 30, 2012
• 1190 views

Hi Kat, can you do a print of the writefilename just before the open attempt?
Apologies if this is obvious, but its easy to have a typo of a slash intended to be a double slash etc.

Regards,
Alan

6. Re: file access again

• Posted by useless_ Dec 30, 2012
• 1231 views

Yes, and i copy/paste the printed filename to attempt access in dos and Textpad. I observe the name in Eu's debugger. This is the relavant code block:

        writefilename = "D:\\ngrams\\dbpedia\\prop3\\"&linetitle[1]&"\\"&linetitle&".txt" -- open a new one 
        writefile = open(writefilename,"ab") -- and open a new file 
trace(1)                 
        junk = dir(writefilename) -- see if it actually created the file 
	if equal(writefile,-1) then  
	  puts(1,"opening failed: \n") 
	  puts(1,"writefilename= "&writefilename&"\n") 
	  trace(1) 

This is the printout, copied out of the dosbox the app puts'd it to:

Running. 
opening failed: 
writefilename= D:\ngrams\dbpedia\prop3\A\Autism.txt 

writefilename={68D,58:,92\,110n,103g,114r,97a,109m,115s,92\,100d,98b,112p, 
101e,100d,105i,97a,92\,112p,114r,111o,112p,513,92\,65A,92\,65A,117u,116t, 
105i,115s,109m,46.,116t,120x,116t} 
 
* Press Enter to resume trace 

8. Re: file access again

• Posted by useless_ Dec 30, 2012
• 1193 views

This doesn't help

trace(1)                 
        junk = dir("\""&writefilename&"\"") 

junk is still -1. Eu cannot even see the file prior to the open attempt. Filesys.e and machine.e both get the filename intact, but naturally i cannot follow the filename into the builtin routines which machine.e calls.

useless

10. Re: file access again

• Posted by jimcbrown (admin) Dec 30, 2012
• 1196 views

Like I said, all it does is wrap fopen(). So someone would have to go check the next culprit, MinGW. (Or maybe the one after that, CRTDLL.)

There are some Euphoria-specific errors that can occur with open(), but these result in an ex.err-style crash with a very clear and human readable error message, not this C language "You had an error" nonsense.

12. Re: file access again

• Posted by useless_ Dec 30, 2012
• 1175 views

Perhaps it's a shell problem. If i use system() to get a dir of writefilename, it also fails:

Running. 
The system cannot find the path specified. 

14. Re: file access again

• Posted by andi49 Dec 30, 2012
• 1168 views

Running. 
The system cannot find the path specified. 

Hallo

As i remeber situations where Windows just don't like my filenames. I often use this as a solution.

Maybe you can try to get the Short Name of your file and pass this name to open.

Quick'n Dirty code follows ;)

include std/dll.e 
include std/machine.e 
 
constant MAX_PATH    = 260 
constant kernel32 = open_dll ("kernel32.dll") 
constant myGetShortPathName=define_c_func(kernel32,"GetShortPathNameA",{C_POINTER,C_POINTER,C_UINT},C_INT) 
 
function ShortFileName(sequence filename) 
atom inszpointer,outszpointer 
object result 
    outszpointer=allocate(MAX_PATH+1) 
    inszpointer=allocate_string(filename) 
    c_func(myGetShortPathName,{inszpointer,outszpointer,MAX_PATH+1}) 
    result = peek_string(outszpointer) 
    free(outszpointer) 
    free(inszpointer) 
    return result 
end function 
 
 
-- Just for testing... 
puts(1,getenv("HOMEPATH")&"\n") 
puts(1,ShortFileName(getenv("HOMEPATH"))&"\n") 
 

Andreas

16. Re: file access again

• Posted by useless_ Dec 30, 2012
• 1172 views

I see the problem, but cannot explain it, i have no records of the following changes.........

All last week i was running an app that originated these files, it did the create_dir() and initial open(writefilename,"ab") that created all these files. I even "documented" that code to a pastey dated 3 days ago. To use a different data source, i saved that same file under a slightly different name, and edited the source filename and the text munging section. All the code to save the munged text, i did not change. Yet the path was changed, and i cannot explain it, neither can i explain how copy/pasting the entire path\filename between the Eu dosbox print and other apps, did not fail when it should have, because the paths ARE different:

D:\ngrams\dbpedia\props3\A\Autism.txt 
D:\ngrams\dbpedia\prop3\A\Autism.txt 

What's more perplexing is i used an Eu app to copy all the files to a backup directory last night, and that file read from

object readdir = "D:\\ngrams\\dbpedia\\props3\\" 

I don't know what happened. I do not know how this app, reusing the same code as previously, became using \prop3\ instead of \props3\. I loaded and reused the same code precisely to avoid issues like this. I appologise.

useless

18. Re: file access again

• Posted by useless_ Dec 30, 2012
• 1168 views

Thanks, you are kinder about it than i am to myself, i keep looking at that hammer.....

I am too error prone and lazy to have typed out that filename so many time, i copy/pasted it from the Eu printout to Textpad, to other dosboxes. That should have failed because of the 's' in the path. Do you have any musings on that?

useless

20. Re: file access again

• Posted by coconut Dec 30, 2012
• 1190 views

writefile = open(writefilename,"ab") -- and open a new file 

Concerning windows there is 2 calls to get information about the last error. GetLastError() and FormatMessage() both are in kernel32.dll for an exemple refer to: http://msdn.microsoft.com/en-us/library/windows/desktop/ms680582(v=vs.85).aspx

Jacques

22. Re: file access again

• Posted by useless_ Dec 31, 2012
• 1096 views

... 
writedir="D:\\ngrams\\dbpedia\\prop3\\" & linetitle[1] 
writefilename = writedir & "\\" & linetitle & ".txt" 
if atom(dir(writedir)) then 
   if not create_directory(writedir,,1) then 
      crash("Filesystem error - could not create the folder") 
   end if 
end if 
writefile = open(writefilename,"ab") -- and open a new file  
... 

Except the goal was to append to the existing files, to merge data. The files and folders were already created by another Eu program, using the same code, and it ran fine. Writing new data to some other folders isn't appending them to the existing files.

useless