Click above to get retro games delivered to your door ever month!

 splitpath()         Split a full path name to its components
------------------------------------------------------------------------------
 Declaration
   file.hdr

 Syntax
   proc splitpath extern
   param const char    cPath, ;
               char(2) cDrive, ;
               char    cDirectory, ;
               char(8) cFileName, ;
               char(4) cFileExt

 Arguments
   cPath is the path name string to split.

   cDrive is the drive letter (":" character appended).

   cDirectory is the directory string (prepended and followed by a
      "\" character).

   cFileName is the file name without extension.

   cFileExt is the file name extension (prepended by a dot).

 Return
   None.

 Description
   The splitpath() function separates the components of a fully
   qualified path name.

   See the Arguments section above and the example for correct use of
   parameters.

 Example
   #define EXAMPLE_FILE
   #include example.hdr

   proc Test_splitpath
   vardef
      char cPath, cDrive, cDirectory, cFileName, cFileExt, cOptions
   enddef
   makepath( cPath, "c", "\force\bin", "force", "exe" )
   ? cPath
   splitpath( cPath, cDrive, cDirectory, cFileName, cFileExt )
   ? cDrive, cDirectory, cFileName, cFileExt
   splitcommand( cPath + " test.prg", cDrive, cDirectory, ;
      cFileName, cFileExt, cOptions )
   ? cDrive, cDirectory, cFileName, cFileExt, cOptions
   endproc

   proc main
   Test_splitpath()
   endproc