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

windows: Fix bootstrap.

db4
Doug Coleman 2012-10-25 08:33:05 -07:00
parent 2ce0db5681
commit 99db5b68d7
3 changed files with 12 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/windows/kernel32/kernel32.factor
View File

@ -1,9 +1,14 @@
! Copyright (C) 2005, 2006 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: alien alien.c-types alien.syntax kernel windows.types
math multiline classes.struct ;
math multiline classes.struct alien.data arrays ;
QUALIFIED-WITH: alien.c-types c
IN: windows.kernel32
: lo-word ( wparam -- lo ) c:short <ref> c:short deref ; inline
: hi-word ( wparam -- hi ) -16 shift lo-word ; inline
: >lo-hi ( WORD -- array ) [ lo-word ] [ hi-word ] bi 2array ; inline
CONSTANT: MAX_PATH 260
CONSTANT: GHND 0x40

11
basis/windows/shell32/shell32.factor
View File

@ -1,12 +1,11 @@
! Copyright (C) 2006, 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: alien alien.c-types alien.data alien.strings
alien.syntax classes.struct combinators io.backend io.files
io.pathnames kernel math sequences specialized-arrays
ui.backend.windows windows windows.com windows.com.syntax
windows.errors windows.kernel32 windows.ole32 windows.types
windows.user32 ;
SPECIALIZED-ARRAY: ushort
alien.syntax classes.struct io.backend kernel
specialized-arrays
specialized-arrays.instances.alien.c-types.ushort windows
windows.com windows.com.syntax windows.kernel32 windows.ole32
windows.types ;
IN: windows.shell32
CONSTANT: CSIDL_DESKTOP 0x00

8
basis/windows/windows.factor
View File

@ -1,8 +1,6 @@
! Copyright (C) 2005, 2006 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: alien alien.data alien.libraries arrays kernel math
sequences ;
QUALIFIED-WITH: alien.c-types c
USING: alien alien.libraries sequences ;
IN: windows
CONSTANT: MAX_UNICODE_PATH 32768
@ -25,7 +23,3 @@ CONSTANT: MAX_UNICODE_PATH 32768
{ "usp10" "usp10.dll" stdcall }
{ "psapi" "psapi.dll" stdcall }
} [ first3 add-library ] each
: lo-word ( wparam -- lo ) c:short <ref> c:short deref ; inline
: hi-word ( wparam -- hi ) -16 shift lo-word ; inline
: >lo-hi ( WORD -- array ) [ lo-word ] [ hi-word ] bi 2array ; inline