-- FILE:     DOSLFN.EU
-- PURPOSE:  DOS Long File Name (LFN) "fake" routines for Euphoria 3.1.1.
-- AUTHOR:   Shian Lee
-- VERSION:  1.00  February/13/2022
-- LANGUAGE: Euphoria version 3.1.1 (http://www.RapidEuphoria.com)
-- PLATFORM: Any
-- LICENCE:  Free. Use at your own risk.
-- NOTE:     * Optional: bind this file instead of doslfn.e to reduce the
--             stand-alone executable file size by about 2,400 bytes.
--             (doslfn.e is included in file2.e).
--           * See the attached reference manual FILE2.DOC for details.
--           * Created using EDU 3.07 (www.RapidEuphoria311.com).
-- HISTORY:  v1.00 - initial version (February/13/2022).
-----------------------------------------------------------------------------


--bookmark: include Euphoria 3.1.1 library files;
include file.e


global function lfn_short_path(sequence pn, integer verify)
    if verify then
	return -1 -- fail, lfn not supported
    end if
    return pn -- don't verify   
end function


global function lfn_long_path(sequence pn, integer verify)
    if verify then
	return -1 -- fail, lfn not supported
    end if
    return pn -- don't verify   
end function


global procedure allow_lfn(integer allow)
    -- do nothing, lfn not allowed
end procedure


global function check_lfn()
    return 0 -- lfn not allowed
end function


global function lfn_current_dir()
    return current_dir() -- use standard function
end function


global function lfn_chdir(sequence pn)
    return chdir(pn) -- use standard function
end function


global function lfn_dir(sequence pn)
    return dir(pn) -- use standard function
end function


global function lfn_open(sequence pn, sequence mode)
    return open(pn, mode) -- use standard function
end function


-- End of file.

