{-# LINE 1 "System\\Win32\\WindowsString\\Path.hsc" #-}-----------------------------------------------------------------------------
-- |
-- Module : System.Win32.Path
-- Copyright : (c) Tamar Christina, 1997-2003
-- License : BSD-style (see the file libraries/base/LICENSE)
--
-- Maintainer : Tamar Christina <tamar@zhox.com>
-- Stability : provisional
-- Portability : portable
--
-- A collection of FFI declarations for interfacing with Win32.
--
-----------------------------------------------------------------------------
moduleSystem.Win32.WindowsString.Path(filepathRelativePathTo,pathRelativePathTo)whereimportSystem.Win32.Path.InternalimportSystem.Win32.WindowsString.TypesimportSystem.Win32.WindowsString.FileimportSystem.OsPath.WindowsimportForeign
#include "windows_cconv.h"
filepathRelativePathTo::WindowsPath->WindowsPath->IOWindowsPathfilepathRelativePathTofromto=withTStringfrom$\p_from->withTStringto$\p_to->allocaArray((260)*((1)))$\p_AbsPath->do{-# LINE 36 "System\\Win32\\WindowsString\\Path.hsc" #-}_<-failIfZero"PathRelativePathTo"(c_pathRelativePathTop_AbsPathp_fromfILE_ATTRIBUTE_DIRECTORYp_tofILE_ATTRIBUTE_NORMAL)path<-peekTStringp_AbsPath_<-localFreep_AbsPathreturnpathpathRelativePathTo::WindowsPath->FileAttributeOrFlag->WindowsPath->FileAttributeOrFlag->IOWindowsPathpathRelativePathTofromfrom_attrtoto_attr=withTStringfrom$\p_from->withTStringto$\p_to->allocaArray((260)*((1)))$\p_AbsPath->do{-# LINE 47 "System\\Win32\\WindowsString\\Path.hsc" #-}_<-failIfZero"PathRelativePathTo"(c_pathRelativePathTop_AbsPathp_fromfrom_attrp_toto_attr)path<-peekTStringp_AbsPath_<-localFreep_AbsPathreturnpath