[mew-dist 29271] Re: System.EasyFile

m(__)m

> Windows 
> 
> 1) cmew/smew  Windows 

okMew



"smew 0" 
    smew: getFullPathName: invalid argument (......)
  
    smew: getFullPathName: invalid argument (The operation completed successfully.)
  
  ()
  getFullPathNameHaskwell

id.dbcmew
  cmew: <>\id.db: copyFile: does not exist (No such file or directory)
  (Ruby)cmew-fok
  Index.hswithNewDB

> 2) System.EasyFile 
>    
>    URL  System.EasyFile 
>    
>     xxx 


# Haskwell

isSymlink :: FilePath -> IO Bool
  getLinkCount :: FilePath -> IO (Maybe Int)
  hasSubDirectories :: FilePath -> IO (Maybe Bool)
  WindowsNothing?

Directory.hsfixPath
  | c == '\\' = '/' : fixPath cs
  '/'pathSeparator?

splitExtension/splitDrive
  MS-DOS_splitpath()drive
    dirfnameext4
      [c:/dir/file.ext]
      =>drive=[c:], dir=[/dir/], fname[file], ext=[.ext]
    
    "\\\\shared\\test"?Posix?
    //
    
      [\\shared\test]
      =>drive=[], dir=[\\shared\], fname[test], ext=[]
      [/d]
      =>drive=[], dir=[/], fname[d], ext=[]
     http://msdn.microsoft.com/en-us/library/e737s6tf(VS.80).aspx

joinDrive
  Windows: joinDrive "\\\\share" "foo" == "\\\\share/foo" -- xxx
  Windows: joinDrive "/:" "foo" == "/:/foo" -- xxx
  "\\share\"/:"
    ?

takeDirectory
  Windows:  takeDirectory "foo\\bar\\\\" == "foo\\bar" -- xxx
  
     "foo\bar\\"  "foo\bar\"  "foo\bar" 
  Windows:  takeDirectory "C:/" == "C:/"
  "/"

normalize
  Windows: normalise "\\\\server\\test" == "\\\\server\\test" -- xxx
  "//server/test"?

>     \\ 
>    



  http://msdn.microsoft.com/en-us/library/aa365247(VS.85).aspx

"\\?\D:\<very long path>""\\.\COM56"

# Haskwell


--
Shuichi KITAGUCHI // [email protected] / [email protected]