steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

win32 ffi updates

erg 2006-10-22 07:33:18 +00:00
parent b71697db41
commit ea3e48130b
3 changed files with 60 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
library/windows/kernel32-constants.factor
View File

@ -58,3 +58,4 @@ USING: alien kernel errors ;
: CREATE_DEFAULT_ERROR_MODE HEX: 4000000 ; inline
: DETACHED_PROCESS 8 ; inline
: PF_XMMI64_INSTRUCTIONS_AVAILABLE 10 ; inline

51
library/windows/kernel32-structs.factor
View File

@ -100,3 +100,54 @@ BEGIN-STRUCT: PROCESS_INFORMATION
FIELD: DWORD dwThreadId
END-STRUCT
BEGIN-STRUCT: SYSTEM_INFO
FIELD: DWORD dwOemId
! FIELD: WORD wProcessorArchitecture
! FIELD: WORD wReserved
FIELD: DWORD dwPageSize
FIELD: LPVOID lpMinimumApplicationAddress
FIELD: LPVOID lpMaximumApplicationAddress
FIELD: DWORD_PTR dwActiveProcessorMask
FIELD: DWORD dwNumberOfProcessors
FIELD: DWORD dwProcessorType
FIELD: DWORD dwAllocationGranularity
FIELD: WORD wProcessorLevel
FIELD: WORD wProcessorRevision
END-STRUCT
TYPEDEF: void* LPSYSTEM_INFO
BEGIN-STRUCT: MEMORYSTATUS
FIELD: DWORD dwLength
FIELD: DWORD dwMemoryLoad
FIELD: SIZE_T dwTotalPhys
FIELD: SIZE_T dwAvailPhys
FIELD: SIZE_T dwTotalPageFile
FIELD: SIZE_T dwAvailPageFile
FIELD: SIZE_T dwTotalVirtual
FIELD: SIZE_T dwAvailVirtual
END-STRUCT
TYPEDEF: void* LPMEMORYSTATUS
BEGIN-STRUCT: MEMORYSTATUSEX
FIELD: DWORD dwLength
FIELD: DWORD dwMemoryLoad
FIELD: DWORDLONG ullTotalPhys
FIELD: DWORDLONG ullAvailPhys
FIELD: DWORDLONG ullTotalPageFile
FIELD: DWORDLONG ullAvailPageFile
FIELD: DWORDLONG ullTotalVirtual
FIELD: DWORDLONG ullAvailVirtual
FIELD: DWORDLONG ullAvailExtendedVirtual
END-STRUCT
TYPEDEF: void* LPMEMORYSTATUSEX
BEGIN-STRUCT: OSVERSIONINFO
FIELD: DWORD dwOSVersionInfoSize
FIELD: DWORD dwMajorVersion
FIELD: DWORD dwMinorVersion
FIELD: DWORD dwBuildNumber
FIELD: DWORD dwPlatformId
FIELD: char[128] szCSDVersion
END-STRUCT
TYPEDEF: void* LPOSVERSIONINFO

15
library/windows/kernel32.factor
View File

@ -471,7 +471,7 @@ FUNCTION: HANDLE GetStdHandle ( DWORD nStdHandle ) ;
! FUNCTION: GetSystemDefaultUILanguage
! FUNCTION: GetSystemDirectoryA
! FUNCTION: GetSystemDirectoryW
! FUNCTION: GetSystemInfo
FUNCTION: void GetSystemInfo ( LPSYSTEM_INFO lpSystemInfo ) ;
! FUNCTION: GetSystemPowerStatus
! FUNCTION: GetSystemRegistryQuota
FUNCTION: void GetSystemTime ( LPSYSTEMTIME lpSystemTime ) ;
@ -505,9 +505,10 @@ FUNCTION: DWORD GetTimeZoneInformation ( LPTIME_ZONE_INFORMATION lpTimeZoneInfor
! FUNCTION: GetUserDefaultUILanguage
! FUNCTION: GetUserGeoID
! FUNCTION: GetVDMCurrentDirectories
! FUNCTION: GetVersion
! FUNCTION: GetVersionExA
! FUNCTION: GetVersionExW
FUNCTION: DWORD GetVersion ( ) ;
FUNCTION: BOOL GetVersionExA ( LPOSVERSIONINFO lpVersionInfo ) ;
FUNCTION: BOOL GetVersionExW ( LPOSVERSIONINFO lpVersionInfo ) ;
: GetVersionEx GetVersionExA ;
! FUNCTION: GetVolumeInformationA
! FUNCTION: GetVolumeInformationW
! FUNCTION: GetVolumeNameForVolumeMountPointA
@ -533,8 +534,8 @@ FUNCTION: HGLOBAL GlobalAlloc ( UINT uFlags, SIZE_T dwBytes ) ;
! FUNCTION: GlobalGetAtomNameW
! FUNCTION: GlobalHandle
FUNCTION: LPVOID GlobalLock ( HGLOBAL hMem ) ;
! FUNCTION: GlobalMemoryStatus
! FUNCTION: GlobalMemoryStatusEx
FUNCTION: void GlobalMemoryStatus ( LPMEMORYSTATUS lpBuffer ) ;
FUNCTION: BOOL GlobalMemoryStatusEx ( LPMEMORYSTATUSEX lpBuffer ) ;
! FUNCTION: GlobalReAlloc
! FUNCTION: GlobalSize
! FUNCTION: GlobalUnfix
@ -587,7 +588,7 @@ FUNCTION: BOOL GlobalUnlock ( HGLOBAL hMem ) ;
! FUNCTION: IsDBCSLeadByteEx
! FUNCTION: IsDebuggerPresent
! FUNCTION: IsProcessInJob
! FUNCTION: IsProcessorFeaturePresent
FUNCTION: BOOL IsProcessorFeaturePresent ( DWORD ProcessorFeature ) ;
! FUNCTION: IsSystemResumeAutomatic
! FUNCTION: IsValidCodePage
! FUNCTION: IsValidLanguageGroup