vitasdk-odin/Compat/Compat.odin

package compat

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

foreign import compat "system:SceCompat_stub"

SceCompatCacheMode :: enum c.int {
	NONE           = 0,
	INVALIDATE     = 1,
	WRITEBACK      = 2
}

SceCompatPeripheralMode :: enum c.int {
	POWER_IS_SUSPEND_REQUIRED   = 1,
	POWER_GET_BATTERY_LIFETIME  = 2,
	POWER_GET_BATTERY_PERCENT   = 3,
	HPREMOTE_IS_HEADPHONE_EXIST = 4
}

SceCompatCdram :: struct {
  cached_cdram: rawptr,
	uncached_cdram: rawptr,
}
when size_of(rawptr) == 4 {
  #assert(size_of(SceCompatCdram) == 8)
}

SceCtrlDataPsp :: struct {
  TimeStamp: c.uint,
	Buttons: c.uint,
	Lx: c.uchar,
	Ly: c.uchar,
	Rx: c.uchar,
	Ry: c.uchar,
	Rsrv: [4]c.uchar,
}
#assert(size_of(SceCtrlDataPsp) == 0x10)


@(link_prefix = "sceCompat")
foreign compat {
  /**
  * Init compat
  *
  * @param[in] unk - Unknown, pass 0
  *
  * @return 0 on success, < 0 on error.
  */
  InitEx :: proc(unk: c.int) -> c.int ---

  /**
  * Uninit compat
  *
  * @return 0 on success, < 0 on error.
  */
  Uninit :: proc() -> c.int ---

  /**
  * Start compat
  *
  * @return 0 on success, < 0 on error.
  */
  Start :: proc() -> c.int ---

  /**
  * Stop compat
  *
  * @return 0 on success, < 0 on error.
  */
  Stop :: proc() -> c.int ---

  /**
  * Allocate cdram with hole
  *
  * @param[out] cdram - A pointer to a ::SceCompatCdram structure.
  *
  * @return 0 on success, < 0 on error.
  */
  AllocCdramWithHole :: proc(cdram: ^SceCompatCdram) -> c.int ---

  /**
  * Framebuffer init
  *
  * @param[in] framebuffer - Pointer to framebuffer
  *
  * @return 0 on success, < 0 on error.
  */
  FrameBufferInit :: proc(framebuffer: rawptr) -> c.int ---

  /**
  * Set suspend semaphores
  *
  * @param[in] semaid1 - Semaphore id 1
  * @param[in] semaid2 - Semaphore id 2
  *
  * @return 0 on success, < 0 on error.
  */
  SetSuspendSema :: proc(semaid1: sce.UID, semaid2: sce.UID) -> c.int ---

  /**
  * Suspend/resume compat
  *
  * @param[in] unk - Unknown, pass 1
  *
  * @return 0 on success, < 0 on error.
  */
  SuspendResume :: proc(unk: c.int) -> c.int ---

  /**
  * Cache operation
  *
  * @param[in] mode - One of ::SceCompatCacheMode
  * @param[in] addr - Address
  * @param[in] size - Size
  *
  * @return 0 on success, < 0 on error.
  */
  Cache :: proc(mode: SceCompatCacheMode, addr: rawptr, size: sce.Size) -> c.int ---

  /**
  * Wait for special request
  *
  * @param[in] unk - Unknown, pass 1
  *
  * @return 0 on success, < 0 on error.
  */
  WaitSpecialRequest :: proc(unk: c.int) -> c.int ---

  /**
  * Interrupt code
  *
  * @param[in] intr_code - Interrupt code
  *
  * @return 0 on success, < 0 on error.
  */
  Interrupt :: proc(intr_code: c.int) -> c.int ---

  /**
  * LCDC sync
  *
  * @return 0 on success, < 0 on error.
  */
  LCDCSync :: proc() -> c.int ---

  /**
  * Get primary head
  *
  * @return 0 on success, < 0 on error.
  */
  GetPrimaryHead :: proc() -> c.int ---

  /**
  * Get peripheral state
  *
  * @param[in] mode - One of ::SceCompatPeripheralMode
  *
  * @return state on success, < 0 on error.
  */
  GetPeripheralState :: proc(mode: SceCompatPeripheralMode) -> c.int ---

  /**
  * Get compat status
  *
  * @return status on success, < 0 on error.
  */
  GetStatus :: proc() -> c.int ---

  /**
  * Get update state
  *
  * @return state on success, < 0 on error.
  */
  GetUpdateState :: proc() -> c.int ---

  /**
  * Set update state
  *
  * @param[in] state - State
  *
  * @return 0 on success, < 0 on error.
  */
  SetUpdateState :: proc(state: c.int) -> c.int ---

  /**
  * Set display config
  *
  * @param[in] unk0 - Unknown
  * @param[in] unk1 - Unknown
  *
  * @return 0 on success, < 0 on error.
  */
  SetDisplayConfig :: proc(unk0: c.int, unk1: c.int) -> c.int ---

  /**
  * Set RIF name
  *
  * @param[in] rif - RIF name (max. 36 chars)
  *
  * @return 0 on success, < 0 on error.
  */
  SetRif :: proc(rif: cstring) -> c.int ---

  /**
  * Get PSP system software version
  *
  * @return version on success, < 0 on error.
  */
  GetPspSystemSoftwareVersion :: proc() -> c.int ---

  /**
  * Get color space setting availability
  *
  * @return 1 if true, 0 if false, < 0 on error.
  */
  AvailableColorSpaceSetting :: proc() -> c.int ---

  /**
  * Check if pocket station application is available
  *
  * @return 1 if true, 0 if false, < 0 on error.
  */
  CheckPocketStation :: proc() -> c.int ---

  /**
  * Check if current title is a pocket station game
  *
  * @return 1 if true, 0 if false, < 0 on error.
  */
  IsPocketStationTitle :: proc() -> c.int ---

  /**
  * Wait for command and get request
  *
  * @param[in] mode - Mode
  * @param[in] id - ID
  *
  * @return pointer to request in PspEmu RAM on success, < 0 on error.
  */
  WaitAndGetRequest :: proc(mode: c.int, id: c.int) -> c.int ---

  /**
  * Read from shared sram
  *
  * @param[in] location - Location
  * @param[out] value - Pointer to a int buffer to hold the value
  *
  * @return 0 on success, < 0 on error.
  */
  ReadShared32 :: proc(location: c.int, value: ^c.int) -> c.int ---

  /**
  * Write to shared sram
  *
  * @param[in] location - Location
  * @param[in] value - Value
  *
  * @return 0 on success, < 0 on error.
  */
  WriteShared32 :: proc(location: c.int, value: c.int) -> c.int ---

  /**
  * Write shared control
  *
  * @param[in] info - A pointer to a ::SceCtrlDataPsp structure.
  *
  * @return 0 on success, < 0 on error.
  */
  WriteSharedCtrl :: proc(pad_data: ^SceCtrlDataPsp) -> c.int ---

  /**
  * Get title list
  *
  * @param[out] buf - A 100 bytes buffer for the title list
  * @param[in] length - Must be 100
  *
  * @return 0 on success, < 0 on error.
  */
  GetTitleList :: proc(buf: rawptr, length: sce.Size) -> c.int ---

  /**
  * Get Memory Card device information
  *
  * @param[out] info - A pointer to a ::SceIoDevInfo structure.
  *
  * @return 0 on success, < 0 on error.
  */
  GetDevInf :: proc(info: ^sceIo.SceIoDevInfo) -> c.int ---

  /**
  * Get current secure tick
  *
  * @param[out] tick - A pointer to a ::SceRtcTick structure.
  *
  * @return 0 on success, < 0 on error.
  */
  GetCurrentSecureTick :: proc(tick: ^sce.RtcTick) -> c.int ---
}