OpenEuphoria

David Cuny's ee.ex

• Posted by Lucius Hilley III <lhilley at MAIL.CDC.NET> Jun 24, 1998
• 607 views

\\\|/////
    \\  - -  //
     (  @ @  )
-- Lucius L. Hilley III  --       lhilley at cdc.net       --
--          of           --                             --
-- Hollow Horse Software -- http://www.cdc.net/~lhilley --
----------------------------------------------------------

I have a couple of things to mention.
First thing is that I don't receive the Euphoria list.
I don't usually program in Euphoria anymore.  I do plan
to get back to the language but it doesn't fit into my
present work habits.

Second thing is that the problem I ran into was only
reported because I was attempting to use EE with Win95's
"Drag & Drop" feature.  I was only using it for that
purpose because I was showing Greg Harris, who presently
programs in Euphoria, How he can use the "Send To" and
"Drag & Drop" features of Win95 for his programming.
Obviously my attempts to show him the use of these
features failed misserably because of bad code in EE.
It took me about 2 hours to track down the problem.
Who is going to pay the $60.00 that is now due to me?

Before all of you go responding viciously to that last
statement remember my very First statement.  I don't
receive the Euphoria list.  Therefore I won't receive
your immature bickerings about the $30.00 I mentioned.

--------------------------------------------------------
original full_path_name().
Problem is this.
If the file that is passed is an absolute pathname.
the program will fail.

--------------------------------------------------------
--original
global function full_path_name( sequence file )

    -- appends file name to current directory

    -- append the path to the file name
    if last_char( currentDir ) = '\\' then
        return currentDir & file
    else
        return currentDir & "\\" & file
    end if

end function
--------------------------------------------------------
--new
-- unfortunately this still isn't enough.
--      David, we need your help.
--I have tracked the problem to the checking
--of previously loaded files.
--It matches the title as if it were previously loaded
--because you set the title before loading it from the
--command_line().  This prevents the program from loading
--absolute filenames.
--  I will fix the remaining problems within the next
--day or two.  Who's going to pay for that also? :)
--              Don't forget.  I'm Lucius L. Hilley III
--------------------------------------------------------
global function full_path_name( sequence file )

    -- appends file name to current directory

    -- append the path to the file name
    if file[2] = ':' then
        return file --full path given.
    elsif file[1] = '\\' then
          --full path lacked Drive letter.
        return currentDir[1..2] & file
    elsif last_char( currentDir ) = '\\' then
        --relative path given
        return currentDir & file
    else
        --relative path given but currentDir is missing
        --the ending backslash "\".
        return currentDir & "\\" & file
    end if

end function
--------------------------------------------------------


----------------------------------------------------------
-- Lucius L. Hilley III  --       lhilley at cdc.net       --
--          of           --                             --
-- Hollow Horse Software -- http://www.cdc.net/~lhilley --
--------------Oooo----------------------------------------
     oooO    (   )
     (  )     ) /
      \ (    (_/
       \_)