From c09d2e20965eaadda394d4d204b7edfb094f2649 Mon Sep 17 00:00:00 2001 From: Legolas Date: Sat, 2 Aug 2014 15:34:58 +0000 Subject: [PATCH] * Fixed filesystem handling in libogc git-svn-id: trunk@28300 - --- packages/libogcfpc/src/fat.pp | 17 +++++++++++++++++ packages/libogcfpc/src/ogc/usbgecko.inc | 2 +- 2 files changed, 18 insertions(+), 1 deletion(-) diff --git a/packages/libogcfpc/src/fat.pp b/packages/libogcfpc/src/fat.pp index a316469b8f..2a90e7d06c 100644 --- a/packages/libogcfpc/src/fat.pp +++ b/packages/libogcfpc/src/fat.pp @@ -19,6 +19,23 @@ function fatMount(name_: pcchar; interface_: PDISC_INTERFACE; startSector: sec_t procedure fatUnmount(name_: pcchar); cdecl; external; procedure fatGetVolumeLabel(name_, label_: pcchar); cdecl; external; +// File attributes +const + ATTR_ARCHIVE = $20; // Archive + ATTR_DIRECTORY = $10; // Directory + ATTR_VOLUME = $08; // Volume + ATTR_SYSTEM = $04; // System + ATTR_HIDDEN = $02; // Hidden + ATTR_READONLY = $01; // Read only + +(* +Methods to modify DOS File Attributes +*) +function FAT_getAttr(const _file: pcchar): cint; cdecl; external; +function FAT_setAttr(const _file: pcchar; attr: cint): cint; cdecl; external; + + + implementation initialization diff --git a/packages/libogcfpc/src/ogc/usbgecko.inc b/packages/libogcfpc/src/ogc/usbgecko.inc index e610e12b89..49a4a43dbd 100644 --- a/packages/libogcfpc/src/ogc/usbgecko.inc +++ b/packages/libogcfpc/src/ogc/usbgecko.inc @@ -26,7 +26,7 @@ function usb_sendbuffer_safe_ex(chn: cint32; buffer: pointer; function usb_flashread(chn: cint32; offset: cuint32; buffer: pointer; length: cint): cint; cdecl; external; -function usb_flashwrite(chn: cint32; offset: cuint32; const buffer: pointer, length: cint): cint; cdecl; external; +function usb_flashwrite(chn: cint32; offset: cuint32; const buffer: pointer; length: cint): cint; cdecl; external; function usb_flashverify(chn: cint32): cint; cdecl; external; {$ENDIF OGC_INTERFACE}