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

Update Windows-specific code for stricter stack checking

db4
U-SLAVA-DFB8FF805\Slava 2009-01-28 02:46:29 -06:00
parent 6ea93a6355
commit b8ed7d20de
2 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
basis/ui/windows/windows.factor
View File

@ -104,7 +104,7 @@ SYMBOLS: msg-obj class-name-ptr mouse-captured ;
[ lo-word ] keep hi-word 2array [ lo-word ] keep hi-word 2array
swap window (>>window-loc) ; swap window (>>window-loc) ;
: wm-keydown-codes ( -- key ) CONSTANT: wm-keydown-codes
H{ H{
{ 8 "BACKSPACE" } { 8 "BACKSPACE" }
{ 9 "TAB" } { 9 "TAB" }
@ -132,7 +132,7 @@ SYMBOLS: msg-obj class-name-ptr mouse-captured ;
{ 121 "F10" } { 121 "F10" }
{ 122 "F11" } { 122 "F11" }
{ 123 "F12" } { 123 "F12" }
} ; }
: key-state-down? ( key -- ? ) : key-state-down? ( key -- ? )
GetKeyState 16 bit? ; GetKeyState 16 bit? ;
@ -155,22 +155,22 @@ SYMBOLS: msg-obj class-name-ptr mouse-captured ;
alt? [ A+ , ] when alt? [ A+ , ] when
] { } make [ empty? not ] keep f ? ; ] { } make [ empty? not ] keep f ? ;
: exclude-keys-wm-keydown CONSTANT: exclude-keys-wm-keydown
H{ H{
{ 16 "SHIFT" } { 16 "SHIFT" }
{ 17 "CTRL" } { 17 "CTRL" }
{ 18 "ALT" } { 18 "ALT" }
{ 20 "CAPS-LOCK" } { 20 "CAPS-LOCK" }
} ; }
: exclude-keys-wm-char ! Values are ignored
! Values are ignored CONSTANT: exclude-keys-wm-char
H{ H{
{ 8 "BACKSPACE" } { 8 "BACKSPACE" }
{ 9 "TAB" } { 9 "TAB" }
{ 13 "RET" } { 13 "RET" }
{ 27 "ESC" } { 27 "ESC" }
} ; }
: exclude-key-wm-keydown? ( n -- ? ) : exclude-key-wm-keydown? ( n -- ? )
exclude-keys-wm-keydown key? ; exclude-keys-wm-keydown key? ;

5
basis/windows/winsock/winsock.factor Normal file → Executable file
View File

@ -257,12 +257,11 @@ TYPEDEF: WSANAMESPACE_INFOW WSANAMESPACE_INFO
TYPEDEF: WSANAMESPACE_INFO* PWSANAMESPACE_INFO TYPEDEF: WSANAMESPACE_INFO* PWSANAMESPACE_INFO
TYPEDEF: WSANAMESPACE_INFO* LPWSANAMESPACE_INFO TYPEDEF: WSANAMESPACE_INFO* LPWSANAMESPACE_INFO
: FD_MAX_EVENTS 10 ; CONSTANT: FD_MAX_EVENTS 10
C-STRUCT: WSANETWORKEVENTS C-STRUCT: WSANETWORKEVENTS
{ "long" "lNetworkEvents" } { "long" "lNetworkEvents" }
! { { "int" "FD_MAX_EVENTS" } "iErrorCode" } ; { { "int" FD_MAX_EVENTS } "iErrorCode" } ;
{ { "int" 10 } "iErrorCode" } ;
TYPEDEF: WSANETWORKEVENTS* PWSANETWORKEVENTS TYPEDEF: WSANETWORKEVENTS* PWSANETWORKEVENTS
TYPEDEF: WSANETWORKEVENTS* LPWSANETWORKEVENTS TYPEDEF: WSANETWORKEVENTS* LPWSANETWORKEVENTS