package io

import "core:c"
import sce "../common"

foreign import libkernel "system:SceLibKernel_stub"
foreign import iofilemgr "system:SceIofilemgr_stub"

@(link_prefix = "sceIo")
foreign libkernel {
  /**
  * Send a devctl command to a device.
  *
  * @par Example: Sending a simple command to a device
  * @code
  * SceIoDevInfo info
  * sceIoDevctl :: proc("ux00x3001: :",, NULL, 0, &info, sizeof(SceIoDevInfo))
  * @endcode
  *
  * @ :: procparam dev- String:  for the device to send the devctl to (e.g. "ux0:")
  * @param cmd - The command to send to the device
  * @param indata - A data block to send to the device, if NULL sends no data
  * @param inlen - Length of indata, if 0 sends no data
  * @param outdata - A data block to receive the result of a command, if NULL receives no  -> c.int ---
  * @param outlen - Length of outdata, if 0 receives no data
  * @return 0 on success, < 0 on error
  */
  Devctl :: proc(dev: cstring, cmd: c.uint, indata: rawptr, inlen: c.int, outdata: rawptr, outlen: c.int) -> c.int ---

  /**
  * Perform an ioctl on a device.
  *
  * @param fd - Opened file descriptor to ioctl to
  * @param cmd - The command to send to the device
  * @param indata - A data block to send to the device, if NULL :: procno: ^sends data
  * @param - Length of indata, if 0 sends no data -> c.int ---
  * @param outdata - A data block to receive the result of a command, if NULL receives no data
  * @param outlen - Length of outdata, if 0 receives no data
  * @return 0 on success, < 0 on error
  */
  Ioctl :: proc(fd: sce.UID, cmd: c.uint, indata: rawptr, inlen: c.int, outdata: rawptr, outlen: c.int) -> c.int ---

  /**
  * Perform an ioctl :: proc a device: c.in. asynchronous: ^)
  -> c.int ---
  * @param fd - Opened file descriptor to ioctl to
  * @param cmd - The command to send to the device
  * @param indata - A data block to send to the device, if NULL sends no data
  * @param inlen - Length of indata, if 0 sends no data
  * @param outdata - A data block to receive the result of a command, if NULL receives no data
  * @param outlen - Length of outdata, if 0 receives no data
  * @return 0 on success, < 0 on error
  */
  IoctlAsync :: proc(fd: sce.UID, cmd: c.uint, indata: rawptr, inlen: c.int, outdata: rawptr, outlen: c.int) -> c.int ---

  /**
  * Open a directory
  *
  * @par Example:
  * @code
  * int dfd
  * dfd = sceIoDopen("device:/")
  * if(dfd >= 0)
  * { Do something with the file descriptor }
  * @endcode
  * @param dirname - The directory to open for reading.
  * @return If >= 0 then a valid file descriptor, otherwise a Sony error code.
  */
  Dopen :: proc(dirname: cstring) -> sce.UID ---

  /**
  * Reads an entry from an opened file descriptor.
  *
  * @param fd - Already opened file descriptor (using ::sceIoDopen)
  * @param dir - Pointer to a ::SceIoDirent structure to hold the file information
  *
  * @return Read status
  * -   0 - No more directory entries left
  * - > 0 - More directory entries to go
  * - < 0 - Error
  */
  Dread :: proc(fd: sce.UID, dir: ^SceIoDirent) -> c.int ---

  /**
  * Close an opened directory file descriptor
  *
  * @param fd - Already opened file descriptor (using ::sceIoDopen)
  * @return < 0 on error
  */
  Dclose :: proc(fd: sce.UID) -> c.int ---

  /**
  * Make a directory file
  *
  * @param dir - The path to the directory
  * @param mode - Access mode (One or more ::SceIoAccessMode).
  * @return Returns the value 0 if it's successful, otherwise -1
  */
  Mkdir :: proc(dir: cstring, mode: SceIoAccessMode) -> c.int ---

  /**
  * Remove a directory file
  *
  * @param path - Removes a directory file pointed by the string path
  * @return Returns the value 0 if it's successful, otherwise -1
  */
  Rmdir :: proc(path: cstring) -> c.int ---

  /**
  * Get the status of a file.
  *
  * @param file - The path to the file.
  * @param stat - A pointer to a ::SceIoStat structure.
  *
  * @return < 0 on error.
  */
  Getstat :: proc(file: cstring, stat: ^SceIoStat) -> c.int ---

  /**
  * Get the status of a file descriptor.
  *
  * @param fd - The file descriptor.
  * @param stat - A pointer to a ::SceIoStat structure.
  *
  * @return < 0 on error.
  */
  GetstatByFd :: proc(fd: sce.UID, stat: ^SceIoStat) -> c.int ---

  /**
  * Change the status of a file.
  *
  * @param file - The path to the file.
  * @param stat - A pointer to a ::SceIoStat structure.
  * @param bits - Bitmask defining which bits to change.
  *
  * @return < 0 on error.
  */
  Chstat :: proc(file: cstring, stat: ^SceIoStat, bits: c.int) -> c.int ---

  /**
  * Change the status of a file descriptor.
  *
  * @param fd - The file descriptor.
  * @param stat - A pointer to an io_stat_t structure.
  * @param bits - Bitmask defining which bits to change.
  *
  * @return < 0 on error.
  */
  ChstatByFd :: proc(fd: sce.UID, buf: ^SceIoStat, cbit: c.uint) -> c.int ---
}

@(link_prefix = "sceIo")
foreign iofilemgr {
  /**
   * Open or create a file for reading or writing
   *
   * @par Example1: Open a file for reading
   * @code
   * if((fd = sceIoOpen("device:/path/to/file", SCE_O_RDONLY, 0777) < 0) {
   * // error code in fd, for example no open filehandle left (0x80010018)
   * }
   * @endcode
   * @par Example2: Open a file for writing, creating it if it doesn't exist
   * @code
   * if((fd = sceIoOpen("device:/path/to/file", SCE_O_WRONLY|SCE_O_CREAT, 0777) < 0) {
   * // error code in fd, for example no open filehandle left (0x80010018)
   * }
   * @endcode
   *
   * @param file - Pointer to a string holding the name of the file to open.
   * @param flags - Libc styled flags that are or'ed together (One or more ::SceIoMode).
   * @param mode - One or more ::SceIoAccessMode flags or'ed together. Can also use Unix absolute permissions.
   * @return > 0 is a valid file handle, < 0 on error.
   */
   Open :: proc(file: cstring, flags: SceIoMode, mode: sce.Mode) -> sce.UID ---

  /**
   * Delete a descriptor
   *
   * @code
   * sceIoClose(fd)
   * @endcode
   *
   * @param fd - File descriptor to close
   * @return < 0 on error
   */
  Close :: proc(fd: sce.UID) -> c.int ---

  /**
   * Read input
   *
   * @par Example:
   * @code
   * bytes_read = sceIoRead(fd, data, 100)
   * @endcode
   *
   * @param fd    - Opened file descriptor to read from
   * @param buf   - Pointer to the buffer where the read data will be placed
   * @param nbyte - Size of the read in bytes
   *
   * @return The number of bytes read
   */
  Read :: proc(fd: sce.UID, buf: rawptr, nbyte: sce.Size) -> sce.SSize ---

  /**
   * Read input at offset
   *
   * @par Example:
   * @code
   * bytes_read = sceIoPread(fd, data, 100, 0x1000)
   * @endcode
   *
   * @param fd - Opened file descriptor to read from
   * @param data - Pointer to the buffer where the read data will be placed
   * @param size - Size of the read in bytes
   * @param offset - Offset to read
   *
   * @return < 0 on error.
   */
  Pread :: proc(fd: sce.UID, data: rawptr, size: sce.Size, offset: sce.Off) -> c.int ---

  /**
   * Write output
   *
   * @par Example:
   * @code
   * bytes_written = sceIoWrite(fd, data, 100)
   * @endcode
   *
   * @param fd    - Opened file descriptor to write to
   * @param buf   - Pointer to the data to write
   * @param nbyte - Size of data to write
   *
   * @return The number of bytes written
   */
  Write :: proc(fd: sce.UID, buf: rawptr, nbyte: sce.Size) -> sce.SSize ---

  /**
   * Write output at offset
   *
   * @par Example:
   * @code
   * bytes_written = sceIoPwrite(fd, data, 100, 0x1000)
   * @endcode
   *
   * @param fd - Opened file descriptor to write to
   * @param data - Pointer to the data to write
   * @param size - Size of data to write
   * @param offset - Offset to write
   *
   * @return The number of bytes written
   */
  Pwrite :: proc(fd: sce.UID, data: rawptr, size: sce.Size, offset: sce.Off) -> c.int ---

  /**
   * Reposition read/write file descriptor offset
   *
   * @par Example:
   * @code
   * pos = sceIoLseek(fd, -10, SCE_SEEK_END)
   * @endcode
   *
   * @param fd - Opened file descriptor with which to seek
   * @param offset - Relative offset from the start position given by whence
   * @param whence - One of ::SceIoSeekMode.
   *
   * @return The position in the file after the seek.
   */
  Lseek :: proc(fd: sce.UID, offset: sce.Off, whence: SceIoSeekMode) -> sce.Off ---

  /**
   * Reposition read/write file descriptor offset (32bit mode)
   *
   * @par Example:
   * @code
   * pos = sceIoLseek32(fd, -10, SCE_SEEK_END)
   * @endcode
   *
   * @param fd - Opened file descriptor with which to seek
   * @param offset - Relative offset from the start position given by whence
   * @param whence - One of ::SceIoSeekMode.
   *
   * @return The position in the file after the seek.
   */
  Lseek32 :: proc(fd: sce.UID, offset: c.long, whence: SceIoSeekMode) -> c.long ---

  /**
   * Remove directory entry
   *
   * @param file - Path to the file to remove
   * @return < 0 on error
   */
  Remove :: proc(file: cstring) -> c.int ---

  /**
   * Change the name of a file
   *
   * @param oldname - The old filename
   * @param newname - The new filename
   * @return < 0 on error.
   */
  Rename :: proc(oldname: cstring, newname: cstring) -> c.int ---

  /**
    * Synchronize the file data on the device.
    *
    * @param device - The device to synchronize (e.g. msfat0:)
    * @param unk - Unknown
    */
  Sync :: proc(device: cstring, flag: c.int) -> c.int ---

  /**
   * Synchronize the file data for one file
   *
   * @param fd   - Opened file descriptor to sync
   * @param flag - unknown
   *
   * @return < 0 on error.
   */
  SyncByFd :: proc(fd: sce.UID, flag: c.int) -> c.int ---

  /**
    * Cancel an asynchronous operation on a file descriptor.
    *
    * @param fd - The file descriptor to perform cancel on.
    *
    * @return < 0 on error.
    */
  Cancel :: proc(fd: sce.UID) -> c.int ---

  GetPriority :: proc(fd: sce.UID) -> c.int ---
  GetProcessDefaultPriority :: proc() -> c.int ---
  GetThreadDefaultPriority :: proc() -> c.int ---
  SetPriority :: proc(fd: sce.UID, priority: c.int) -> c.int ---
  SetProcessDefaultPriority :: proc(priority: c.int) -> c.int ---
  SetThreadDefaultPriority :: proc(priority: c.int) -> c.int ---
}