// this package serves as a buffer between VDFQuery packages and
// the Win32 file handling of Wil v. Antwherpen.

use wvasymb.pkg

#IFDEF wva_default
#ELSE
 // define wva_default for WVA$FILE_HANDLING_1999
    define wva_default for WVA$FILE_HANDLING_2002
#ENDIF

#IF wva_default=WVA$FILE_HANDLING_1999
  use vsWin32fh.pkg
  Function wvaSelect_File Global String sSupportedFileTypes String sCaptionText String sInitial_Folder Returns String
    function_return (vsSelect_File(sSupportedFileTypes,sCaptionText,sInitial_Folder))
  End_Function
  Function wvaFolderExists Global String sFolderName returns Integer
    function_return (vsFolderExists(sFolderName))
  End_Function
  Function wvaWin32_SHBrowseForFolder Global String sDialogTitle returns String
    function_return (vsWin32_SHBrowseForFolder(sDialogTitle))
  End_Function
  Function wvaWin32_CreateDirectory Global String sNewFolder Returns Integer
    function_return (vsWin32_CreateDirectory(sNewFolder))
  End_Function
  Function wvaVerifyNewFolder Global String sFolderName Returns Integer
    function_return (vsVerifyNewFolder(sFolderName))
  End_Function
  Function wvaWin32_ShDeleteFile Global String sFileName Returns Integer
    function_return (vsWin32_ShDeleteFile(sFileName))
  End_Function
  Function wvaWin32_ShCopyFile Global String sSource String sDestination returns Integer
    function_return (vsWin32_ShCopyFile(sSource,sDestination))
  End_Function
  Function wvaWin32_ShMoveFile Global String sSource String sDestination returns Integer
    function_return (vsWin32_ShMoveFile(sSource,sDestination))
  End_Function
  Function wvaWin32_ShRenameFile Global String sSource String sDestination returns Integer
    function_return (vsWin32_ShRenameFile(sSource,sDestination))
  End_Function
  Procedure wvaWin32_ShellExecute global String sOperation String sDocument String sParameters String sPath
    send vsWin32_ShellExecute sOperation sDocument sParameters sPath
  end_procedure
#ENDIF
#IF wva_default=WVA$FILE_HANDLING_2002
  Use vWin32fh/vWin32fh.pkg
  Function wvaSelect_File Global String sSupportedFileTypes String sCaptionText String sInitial_Folder Returns String
    function_return (vSelect_File(sSupportedFileTypes,sCaptionText,sInitial_Folder))
  End_Function
  Function wvaFolderExists Global String sFolderName returns Integer
    function_return (vFolderExists(sFolderName))
  End_Function
  Function wvaWin32_SHBrowseForFolder Global String sDialogTitle returns String
    function_return (vSHBrowseForFolder(sDialogTitle))
  End_Function
  Function wvaWin32_CreateDirectory Global String sNewFolder Returns Integer
    function_return (vCreateDirectory(sNewFolder))
  End_Function
  Function wvaVerifyNewFolder Global String sFolderName Returns Integer
    function_return (vVerifyNewFolder(sFolderName))
  End_Function
  Function wvaWin32_ShDeleteFile Global String sFileName Returns Integer
    function_return (vDeleteFile(sFileName))
  End_Function
  Function wvaWin32_ShCopyFile Global String sSource String sDestination returns Integer
    function_return (vCopyFile(sSource,sDestination))
  End_Function
  Function wvaWin32_ShMoveFile Global String sSource String sDestination returns Integer
    function_return (vMoveFile(sSource,sDestination))
  End_Function
  Function wvaWin32_ShRenameFile Global String sSource String sDestination returns Integer
    function_return (vRenameFile(sSource,sDestination))
  End_Function
  Procedure wvaWin32_ShellExecute global String sOperation String sDocument String sParameters String sPath
    send vShellExecute sOperation sDocument sParameters sPath
  end_procedure
#ENDIF