From 79458075b9fe713a5f11742a05ea25c0064a902e Mon Sep 17 00:00:00 2001 From: CrLF0710 Date: Mon, 19 Dec 2011 18:29:54 +0800 Subject: [PATCH] Import everything --- cl-w32api.asd | 5 +- modules/.win95.process-thread.lisp.swp | Bin 0 -> 16384 bytes modules/base.lisp | 25 +- modules/commdlg.lisp | 712 ++ modules/crt.lisp | 198 + modules/dde.lisp | 549 ++ modules/dlgs.lisp | 342 + modules/gdi.lisp | 9 - modules/i18n.lisp | 1074 +++ modules/ime.lisp | 900 ++ modules/lz.lisp | 72 + modules/netbios.lisp | 314 + modules/networking.lisp | 670 ++ modules/registry.lisp | 375 + modules/rpc.lisp | 1361 +++ modules/service.lisp | 623 ++ modules/shell.lisp | 397 + modules/shutdown.lisp | 27 + modules/uncatalogized.lisp | 15426 +++++++++++++++++++++++++++++++ modules/version.lisp | 252 + modules/win95.atom.lisp | 54 + modules/win95.bitmap.lisp | 221 + modules/win95.brush.lisp | 40 + modules/win95.caret.lisp | 35 + modules/win95.clipboard.lisp | 62 + modules/win95.clipping.lisp | 63 + modules/win95.color.lisp | 115 + modules/win95.comdlg.lisp | 67 + modules/win95.comm.lisp | 139 + modules/win95.console.lisp | 280 + modules/win95.coord-transform.lisp | 123 + modules/win95.cursor.lisp | 78 + modules/win95.dc.lisp | 103 + modules/win95.dde-manage.lisp | 161 + modules/win95.debugging.lisp | 67 + modules/win95.dialogbox.lisp | 183 + modules/win95.dll.lisp | 61 + modules/win95.error.lisp | 1844 +++- modules/win95.eventlog.lisp | 98 + modules/win95.file-mapping.lisp | 48 + modules/win95.file.lisp | 523 ++ modules/win95.filled-shape.lisp | 66 + modules/win95.font-text.lisp | 465 + modules/win95.handle-object.lisp | 21 + modules/win95.help.lisp | 34 + modules/win95.hook.lisp | 51 + modules/win95.icm.lisp | 91 + modules/win95.icon.lisp | 81 + modules/win95.keyboard-accel.lisp | 39 + modules/win95.keyboard-input.lisp | 112 + modules/win95.line-curve.lisp | 89 + modules/win95.mailslot.lisp | 24 + modules/win95.memmgmt.lisp | 230 + modules/win95.menu.lisp | 150 + modules/win95.message.lisp | 549 ++ modules/win95.metafile.lisp | 153 + modules/win95.mouse-input.lisp | 36 + modules/win95.painting-drawing.lisp | 224 + modules/win95.path.lisp | 45 + modules/win95.pen.lisp | 16 + modules/win95.pipe.lisp | 108 + modules/win95.power-mgmt.lisp | 8 + modules/win95.printer.lisp | 697 ++ modules/win95.process-thread.lisp | 300 + modules/win95.profile.lisp | 152 + modules/win95.region.lisp | 92 + modules/win95.resource.lisp | 136 + modules/win95.scrollbar.lisp | 79 + modules/win95.security.lisp | 549 ++ modules/win95.seh.lisp | 14 + modules/win95.shell-lib.lisp | 108 + modules/win95.strmanip.lisp | 434 + modules/win95.sync.lisp | 206 + modules/win95.sysinfo.lisp | 104 + modules/win95.tape-backup.lisp | 77 + modules/win95.time.lisp | 88 + modules/win95.timer.lisp | 16 + modules/win95.unicode-charset.lisp | 17 + modules/win95.window.lisp | 304 + modules/win95.winsta-desktop.lisp | 143 + modules/win95.wndclass.lisp | 162 + modules/win95.wndproc.lisp | 14 + modules/win95.wndprop.lisp | 51 + modules/win95.~.lisp | 83 + modules/winmm.lisp | 3760 ++++++++ modules/winperf.lisp | 219 + modules/winsock.lisp | 1743 ++++ modules/winspool.lisp | 1046 +++ w32api-aux.lisp | 16 + w32api-module.lisp | 35 +- w32api-types.lisp | 106 + w32api-utils.lisp | 50 +- w32api.lisp | 6 +- 93 files changed, 41032 insertions(+), 63 deletions(-) create mode 100644 modules/.win95.process-thread.lisp.swp create mode 100644 modules/commdlg.lisp create mode 100644 modules/crt.lisp create mode 100644 modules/dde.lisp create mode 100644 modules/dlgs.lisp delete mode 100644 modules/gdi.lisp create mode 100644 modules/i18n.lisp create mode 100644 modules/ime.lisp create mode 100644 modules/lz.lisp create mode 100644 modules/netbios.lisp create mode 100644 modules/networking.lisp create mode 100644 modules/registry.lisp create mode 100644 modules/rpc.lisp create mode 100644 modules/service.lisp create mode 100644 modules/shell.lisp create mode 100644 modules/shutdown.lisp create mode 100644 modules/uncatalogized.lisp create mode 100644 modules/version.lisp create mode 100644 modules/win95.atom.lisp create mode 100644 modules/win95.bitmap.lisp create mode 100644 modules/win95.brush.lisp create mode 100644 modules/win95.caret.lisp create mode 100644 modules/win95.clipboard.lisp create mode 100644 modules/win95.clipping.lisp create mode 100644 modules/win95.color.lisp create mode 100644 modules/win95.comdlg.lisp create mode 100644 modules/win95.comm.lisp create mode 100644 modules/win95.console.lisp create mode 100644 modules/win95.coord-transform.lisp create mode 100644 modules/win95.cursor.lisp create mode 100644 modules/win95.dc.lisp create mode 100644 modules/win95.dde-manage.lisp create mode 100644 modules/win95.debugging.lisp create mode 100644 modules/win95.dialogbox.lisp create mode 100644 modules/win95.dll.lisp create mode 100644 modules/win95.eventlog.lisp create mode 100644 modules/win95.file-mapping.lisp create mode 100644 modules/win95.file.lisp create mode 100644 modules/win95.filled-shape.lisp create mode 100644 modules/win95.font-text.lisp create mode 100644 modules/win95.handle-object.lisp create mode 100644 modules/win95.help.lisp create mode 100644 modules/win95.hook.lisp create mode 100644 modules/win95.icm.lisp create mode 100644 modules/win95.icon.lisp create mode 100644 modules/win95.keyboard-accel.lisp create mode 100644 modules/win95.keyboard-input.lisp create mode 100644 modules/win95.line-curve.lisp create mode 100644 modules/win95.mailslot.lisp create mode 100644 modules/win95.memmgmt.lisp create mode 100644 modules/win95.menu.lisp create mode 100644 modules/win95.message.lisp create mode 100644 modules/win95.metafile.lisp create mode 100644 modules/win95.mouse-input.lisp create mode 100644 modules/win95.painting-drawing.lisp create mode 100644 modules/win95.path.lisp create mode 100644 modules/win95.pen.lisp create mode 100644 modules/win95.pipe.lisp create mode 100644 modules/win95.power-mgmt.lisp create mode 100644 modules/win95.printer.lisp create mode 100644 modules/win95.process-thread.lisp create mode 100644 modules/win95.profile.lisp create mode 100644 modules/win95.region.lisp create mode 100644 modules/win95.resource.lisp create mode 100644 modules/win95.scrollbar.lisp create mode 100644 modules/win95.security.lisp create mode 100644 modules/win95.seh.lisp create mode 100644 modules/win95.shell-lib.lisp create mode 100644 modules/win95.strmanip.lisp create mode 100644 modules/win95.sync.lisp create mode 100644 modules/win95.sysinfo.lisp create mode 100644 modules/win95.tape-backup.lisp create mode 100644 modules/win95.time.lisp create mode 100644 modules/win95.timer.lisp create mode 100644 modules/win95.unicode-charset.lisp create mode 100644 modules/win95.window.lisp create mode 100644 modules/win95.winsta-desktop.lisp create mode 100644 modules/win95.wndclass.lisp create mode 100644 modules/win95.wndproc.lisp create mode 100644 modules/win95.wndprop.lisp create mode 100644 modules/win95.~.lisp create mode 100644 modules/winmm.lisp create mode 100644 modules/winperf.lisp create mode 100644 modules/winsock.lisp create mode 100644 modules/winspool.lisp create mode 100644 w32api-aux.lisp create mode 100644 w32api-types.lisp diff --git a/cl-w32api.asd b/cl-w32api.asd index 217a0ad..3efa9a5 100644 --- a/cl-w32api.asd +++ b/cl-w32api.asd @@ -11,5 +11,8 @@ :depends-on (:lucifer-luciffi) :components ((:file "w32api") (:file "w32api-utils") - (:file "w32api-module" :depends-on ("w32api" "w32api-utils")))) + (:file "w32api-types") + (:file "w32api-module" + :depends-on ("w32api" "w32api-utils" "w32api-types")) + (:file "w32api-aux" :depends-on ("w32api" "w32api-module")))) diff --git a/modules/.win95.process-thread.lisp.swp b/modules/.win95.process-thread.lisp.swp new file mode 100644 index 0000000000000000000000000000000000000000..e0a872b82a62da64d7ef706880188caf4d1199c2 GIT binary patch literal 16384 zcwX(ATWB0r7{^c3OVnOz1f?%dx3(q^d&#wC1L~4Hv?X-YhJu2V*^|w5XJ^)#*)&%B zU=?31l=@I50kyUuSSf-QeP}@x74b$z@dhGTtwk;Ps+RiSnc20dinJxE=hn4&Q;Vz?WbaOo24m4Vu88YYF)gdeGvGLQ z3K&2HyTDFxbqyiEfp5Ww;4F9r90i9!4(tO%U=UnhO~}{a18^3c1joRWAP4q=5zqr7 zU^96CHbUM2C%{o~2;{&+U=VbI&0szF8v*$Xya0}XgJ2Sjf&0KV&;mAscW)u&b?`iR z8kpcgFbYP%)n>#JTmn#9K3PG? z$6y*{!Ah_KytJH<7eNyAf=@A?=fG+3EI0s<%0o zgv-*Jp;OXSQKhp{I$O|mlV*h0$S^er)frjW)I3$qy`nCQlM0=P2q9kxNl8;@V39Rd zNE&8F5*4LQNETH?&Z;yMRWvnQZcvBE-qyCzQp40`SQZ*uHZ;=CR9HJxjO}D`mbMyZ z_+nDFhq#7T&c#k=S)>N>6)xBkpCnz8El*q8={*@xf55=OzP zXUzUfQg!ny#_QF7r@{aqOX-1@&x>kihpalcuG?^Z>P>m;tv@4u&!DiIdq}4=@P-Td zBFrheu=+urGW<#hNg?IG9Je>wFdDkd!l%3Z26r^`L*@%N-Vq%~c>b_ez?@Y=<^c8Z{oHRA7u)o?*TI5HZdhkEO#-Vz!Zg3bH zTr^it0q>Mx2tvC*2n?ZLSR;&UDLp$=3ct_B_+;y_!{mxV*t^7I4{lq^G(~CJS(B=T zq8Slo=bIr=-`444OVU<4$< zoq&KV$j!e8-+`mxaqt+p8*BkzAUD4N4g(FSKmwEC4zLPbX}06?dvoyK2^SX^7Z=yf zA^%Fqy+W$HD4dYh!C5Lr1m~dc#+J42>Fd)b4NajYZD3y~eLyy`w9)HX)6s_&3N@*#3T=piM(?*Y>e!a}W7@(!-Ic{79mK~Wc|2n*(-H9cwneD8> zYU|)^If-zJ?5lWh`va4@M%z=>8pgIT3{`)r9^KiMt4!Y@Yh9mxeN(0Lg6`U?UqtGs zRTH9Y4r#iTqKsw~iW}Htse328f13$T?U)8&Trtwr+$$i zwJai-<#$B6L)GOP6*lrHP8W>=RWlVI?jqCJxq|138Pg4vRwyl$o~6z~Lp}qh_P>}c B8fO3i literal 0 HcwPel00001 diff --git a/modules/base.lisp b/modules/base.lisp index 710e9f8..0235cc3 100644 --- a/modules/base.lisp +++ b/modules/base.lisp @@ -5,9 +5,30 @@ (in-package cl-w32api.module.base) -#| +(define-foreign-library kernel32 + (t (:default "kernel32"))) +(define-foreign-library user32 + (t (:default "user32"))) +(define-foreign-library gdi32 + (t (:default "gdi32"))) + (define-w32api-module-ctor () + (progn + (use-foreign-library kernel32) + (use-foreign-library user32) + (use-foreign-library gdi32) + + (require-and-inherit-module "win95.dialogbox") + (require-and-inherit-module "win95.wndclass") + (require-and-inherit-module "win95.window") + (require-and-inherit-module "win95.message") + (require-and-inherit-module "win95.color") + (require-and-inherit-module "win95.painting-drawing") + (require-and-inherit-module "win95.dll") + (require-and-inherit-module "win95.dc") + (require-and-inherit-module "win95.font-text") + (require-and-inherit-module "win95.cursor") + ) ) -|# diff --git a/modules/commdlg.lisp b/modules/commdlg.lisp new file mode 100644 index 0000000..12a2105 --- /dev/null +++ b/modules/commdlg.lisp @@ -0,0 +1,712 @@ +(cl:in-package w32apimod) + +(define-w32api-module commdlg :commdlg) + +(cl:in-package cl-w32api.module.commdlg) + + +(defconstant-exported CDERR_DIALOGFAILURE #xFFFF) + +(defconstant-exported CDERR_GENERALCODES #x0000) + +(defconstant-exported CDERR_STRUCTSIZE #x0001) + +(defconstant-exported CDERR_INITIALIZATION #x0002) + +(defconstant-exported CDERR_NOTEMPLATE #x0003) + +(defconstant-exported CDERR_NOHINSTANCE #x0004) + +(defconstant-exported CDERR_LOADSTRFAILURE #x0005) + +(defconstant-exported CDERR_FINDRESFAILURE #x0006) + +(defconstant-exported CDERR_LOADRESFAILURE #x0007) + +(defconstant-exported CDERR_LOCKRESFAILURE #x0008) + +(defconstant-exported CDERR_MEMALLOCFAILURE #x0009) + +(defconstant-exported CDERR_MEMLOCKFAILURE #x000A) + +(defconstant-exported CDERR_NOHOOK #x000B) + +(defconstant-exported CDERR_REGISTERMSGFAIL #x000C) + +(defconstant-exported PDERR_PRINTERCODES #x1000) + +(defconstant-exported PDERR_SETUPFAILURE #x1001) + +(defconstant-exported PDERR_PARSEFAILURE #x1002) + +(defconstant-exported PDERR_RETDEFFAILURE #x1003) + +(defconstant-exported PDERR_LOADDRVFAILURE #x1004) + +(defconstant-exported PDERR_GETDEVMODEFAIL #x1005) + +(defconstant-exported PDERR_INITFAILURE #x1006) + +(defconstant-exported PDERR_NODEVICES #x1007) + +(defconstant-exported PDERR_NODEFAULTPRN #x1008) + +(defconstant-exported PDERR_DNDMMISMATCH #x1009) + +(defconstant-exported PDERR_CREATEICFAILURE #x100A) + +(defconstant-exported PDERR_PRINTERNOTFOUND #x100B) + +(defconstant-exported PDERR_DEFAULTDIFFERENT #x100C) + +(defconstant-exported CFERR_CHOOSEFONTCODES #x2000) + +(defconstant-exported CFERR_NOFONTS #x2001) + +(defconstant-exported CFERR_MAXLESSTHANMIN #x2002) + +(defconstant-exported FNERR_FILENAMECODES #x3000) + +(defconstant-exported FNERR_SUBCLASSFAILURE #x3001) + +(defconstant-exported FNERR_INVALIDFILENAME #x3002) + +(defconstant-exported FNERR_BUFFERTOOSMALL #x3003) + +(defconstant-exported FRERR_FINDREPLACECODES #x4000) + +(defconstant-exported FRERR_BUFFERLENGTHZERO #x4001) + +(defconstant-exported CCERR_CHOOSECOLORCODES #x5000) + + +(defconstant-exported LBSELCHSTRINGA "commdlg_LBSelChangedNotify") + +(defconstant-exported SHAREVISTRINGA "commdlg_ShareViolation") + +(defconstant-exported FILEOKSTRINGA "commdlg_FileNameOK") + +(defconstant-exported COLOROKSTRINGA "commdlg_ColorOK") + +(defconstant-exported SETRGBSTRINGA "commdlg_SetRGBColor") + +(defconstant-exported HELPMSGSTRINGA "commdlg_help") + +(defconstant-exported FINDMSGSTRINGA "commdlg_FindReplace") + +(defconstant-exported CDM_FIRST (cl:+ 1024 100)) + +(defconstant-exported CDM_LAST (cl:+ 1024 200)) + +(defconstant-exported CDM_GETSPEC (cl:+ 1024 100)) + +(defconstant-exported CDM_GETFILEPATH (cl:+ 1024 100 1)) + +(defconstant-exported CDM_GETFOLDERPATH (cl:+ 1024 100 2)) + +(defconstant-exported CDM_GETFOLDERIDLIST (cl:+ 1024 100 3)) + +(defconstant-exported CDM_SETCONTROLTEXT (cl:+ 1024 100 4)) + +(defconstant-exported CDM_HIDECONTROL (cl:+ 1024 100 5)) + +(defconstant-exported CDM_SETDEFEXT (cl:+ 1024 100 6)) + +(defconstant-exported CC_RGBINIT 1) + +(defconstant-exported CC_FULLOPEN 2) + +(defconstant-exported CC_PREVENTFULLOPEN 4) + +(defconstant-exported CC_SHOWHELP 8) + +(defconstant-exported CC_ENABLEHOOK 16) + +(defconstant-exported CC_ENABLETEMPLATE 32) + +(defconstant-exported CC_ENABLETEMPLATEHANDLE 64) + +(defconstant-exported CC_SOLIDCOLOR 128) + +(defconstant-exported CC_ANYCOLOR 256) + +(defconstant-exported CF_SCREENFONTS 1) + +(defconstant-exported CF_PRINTERFONTS 2) + +(defconstant-exported CF_BOTH 3) + +(defconstant-exported CF_SHOWHELP 4) + +(defconstant-exported CF_ENABLEHOOK 8) + +(defconstant-exported CF_ENABLETEMPLATE 16) + +(defconstant-exported CF_ENABLETEMPLATEHANDLE 32) + +(defconstant-exported CF_INITTOLOGFONTSTRUCT 64) + +(defconstant-exported CF_USESTYLE 128) + +(defconstant-exported CF_EFFECTS 256) + +(defconstant-exported CF_APPLY 512) + +(defconstant-exported CF_ANSIONLY 1024) + +(defconstant-exported CF_SCRIPTSONLY 1024) + +(defconstant-exported CF_NOVECTORFONTS 2048) + +(defconstant-exported CF_NOOEMFONTS 2048) + +(defconstant-exported CF_NOSIMULATIONS 4096) + +(defconstant-exported CF_LIMITSIZE 8192) + +(defconstant-exported CF_FIXEDPITCHONLY 16384) + +(defconstant-exported CF_WYSIWYG 32768) + +(defconstant-exported CF_FORCEFONTEXIST 65536) + +(defconstant-exported CF_SCALABLEONLY 131072) + +(defconstant-exported CF_TTONLY 262144) + +(defconstant-exported CF_NOFACESEL 524288) + +(defconstant-exported CF_NOSTYLESEL 1048576) + +(defconstant-exported CF_NOSIZESEL 2097152) + +(defconstant-exported CF_SELECTSCRIPT 4194304) + +(defconstant-exported CF_NOSCRIPTSEL 8388608) + +(defconstant-exported CF_NOVERTFONTS #x1000000) + +(defconstant-exported SIMULATED_FONTTYPE #x8000) + +(defconstant-exported PRINTER_FONTTYPE #x4000) + +(defconstant-exported SCREEN_FONTTYPE #x2000) + +(defconstant-exported BOLD_FONTTYPE #x100) + +(defconstant-exported ITALIC_FONTTYPE #x0200) + +(defconstant-exported REGULAR_FONTTYPE #x0400) + +(defconstant-exported WM_CHOOSEFONT_GETLOGFONT (cl:+ 1024 1)) + +(defconstant-exported WM_CHOOSEFONT_SETLOGFONT (cl:+ 1024 101)) + +(defconstant-exported WM_CHOOSEFONT_SETFLAGS (cl:+ 1024 102)) + +(defconstant-exported OFN_ALLOWMULTISELECT 512) + +(defconstant-exported OFN_CREATEPROMPT #x2000) + +(defconstant-exported OFN_ENABLEHOOK 32) + +(defconstant-exported OFN_ENABLESIZING #x800000) + +(defconstant-exported OFN_ENABLETEMPLATE 64) + +(defconstant-exported OFN_ENABLETEMPLATEHANDLE 128) + +(defconstant-exported OFN_EXPLORER #x80000) + +(defconstant-exported OFN_EXTENSIONDIFFERENT #x400) + +(defconstant-exported OFN_FILEMUSTEXIST #x1000) + +(defconstant-exported OFN_HIDEREADONLY 4) + +(defconstant-exported OFN_LONGNAMES #x200000) + +(defconstant-exported OFN_NOCHANGEDIR 8) + +(defconstant-exported OFN_NODEREFERENCELINKS #x100000) + +(defconstant-exported OFN_NOLONGNAMES #x40000) + +(defconstant-exported OFN_NONETWORKBUTTON #x20000) + +(defconstant-exported OFN_NOREADONLYRETURN #x8000) + +(defconstant-exported OFN_NOTESTFILECREATE #x10000) + +(defconstant-exported OFN_NOVALIDATE 256) + +(defconstant-exported OFN_OVERWRITEPROMPT 2) + +(defconstant-exported OFN_PATHMUSTEXIST #x800) + +(defconstant-exported OFN_READONLY 1) + +(defconstant-exported OFN_SHAREAWARE #x4000) + +(defconstant-exported OFN_SHOWHELP 16) + +(defconstant-exported OFN_SHAREFALLTHROUGH 2) + +(defconstant-exported OFN_SHARENOWARN 1) + +(defconstant-exported OFN_SHAREWARN 0) + +(defconstant-exported FR_DIALOGTERM 64) + +(defconstant-exported FR_DOWN 1) + +(defconstant-exported FR_ENABLEHOOK 256) + +(defconstant-exported FR_ENABLETEMPLATE 512) + +(defconstant-exported FR_ENABLETEMPLATEHANDLE #x2000) + +(defconstant-exported FR_FINDNEXT 8) + +(defconstant-exported FR_HIDEUPDOWN #x4000) + +(defconstant-exported FR_HIDEMATCHCASE #x8000) + +(defconstant-exported FR_HIDEWHOLEWORD #x10000) + +(defconstant-exported FR_MATCHALEFHAMZA #x80000000) + +(defconstant-exported FR_MATCHCASE 4) + +(defconstant-exported FR_MATCHDIAC #x20000000) + +(defconstant-exported FR_MATCHKASHIDA #x40000000) + +(defconstant-exported FR_NOMATCHCASE #x800) + +(defconstant-exported FR_NOUPDOWN #x400) + +(defconstant-exported FR_NOWHOLEWORD 4096) + +(defconstant-exported FR_REPLACE 16) + +(defconstant-exported FR_REPLACEALL 32) + +(defconstant-exported FR_SHOWHELP 128) + +(defconstant-exported FR_WHOLEWORD 2) + +(defconstant-exported PD_ALLPAGES 0) + +(defconstant-exported PD_SELECTION 1) + +(defconstant-exported PD_PAGENUMS 2) + +(defconstant-exported PD_NOSELECTION 4) + +(defconstant-exported PD_NOPAGENUMS 8) + +(defconstant-exported PD_COLLATE 16) + +(defconstant-exported PD_PRINTTOFILE 32) + +(defconstant-exported PD_PRINTSETUP 64) + +(defconstant-exported PD_NOWARNING 128) + +(defconstant-exported PD_RETURNDC 256) + +(defconstant-exported PD_RETURNIC 512) + +(defconstant-exported PD_RETURNDEFAULT 1024) + +(defconstant-exported PD_SHOWHELP 2048) + +(defconstant-exported PD_ENABLEPRINTHOOK 4096) + +(defconstant-exported PD_ENABLESETUPHOOK 8192) + +(defconstant-exported PD_ENABLEPRINTTEMPLATE 16384) + +(defconstant-exported PD_ENABLESETUPTEMPLATE 32768) + +(defconstant-exported PD_ENABLEPRINTTEMPLATEHANDLE 65536) + +(defconstant-exported PD_ENABLESETUPTEMPLATEHANDLE #x20000) + +(defconstant-exported PD_USEDEVMODECOPIES #x40000) + +(defconstant-exported PD_USEDEVMODECOPIESANDCOLLATE #x40000) + +(defconstant-exported PD_DISABLEPRINTTOFILE #x80000) + +(defconstant-exported PD_HIDEPRINTTOFILE #x100000) + +(defconstant-exported PD_NONETWORKBUTTON #x200000) + +(defconstant-exported PSD_DEFAULTMINMARGINS 0) + +(defconstant-exported PSD_INWININIINTLMEASURE 0) + +(defconstant-exported PSD_MINMARGINS 1) + +(defconstant-exported PSD_MARGINS 2) + +(defconstant-exported PSD_INTHOUSANDTHSOFINCHES 4) + +(defconstant-exported PSD_INHUNDREDTHSOFMILLIMETERS 8) + +(defconstant-exported PSD_DISABLEMARGINS 16) + +(defconstant-exported PSD_DISABLEPRINTER 32) + +(defconstant-exported PSD_NOWARNING 128) + +(defconstant-exported PSD_DISABLEORIENTATION 256) + +(defconstant-exported PSD_DISABLEPAPER 512) + +(defconstant-exported PSD_RETURNDEFAULT 1024) + +(defconstant-exported PSD_SHOWHELP 2048) + +(defconstant-exported PSD_ENABLEPAGESETUPHOOK 8192) + +(defconstant-exported PSD_ENABLEPAGESETUPTEMPLATE #x8000) + +(defconstant-exported PSD_ENABLEPAGESETUPTEMPLATEHANDLE #x20000) + +(defconstant-exported PSD_ENABLEPAGEPAINTHOOK #x40000) + +(defconstant-exported PSD_DISABLEPAGEPAINTING #x80000) + +(defconstant-exported WM_PSD_PAGESETUPDLG 1024) + +(defconstant-exported WM_PSD_FULLPAGERECT (cl:+ 1024 1)) + +(defconstant-exported WM_PSD_MINMARGINRECT (cl:+ 1024 2)) + +(defconstant-exported WM_PSD_MARGINRECT (cl:+ 1024 3)) + +(defconstant-exported WM_PSD_GREEKTEXTRECT (cl:+ 1024 4)) + +(defconstant-exported WM_PSD_ENVSTAMPRECT (cl:+ 1024 5)) + +(defconstant-exported WM_PSD_YAFULLPAGERECT (cl:+ 1024 6)) + +(defconstant-exported CD_LBSELNOITEMS -1) + +(defconstant-exported CD_LBSELCHANGE 0) + +(defconstant-exported CD_LBSELSUB 1) + +(defconstant-exported CD_LBSELADD 2) + +(defconstant-exported DN_DEFAULTPRN 1) + + + + + + + + + + + + + + + + + + + +(defcstructex-exported CHOOSECOLORA + (lStructSize :unsigned-long) + (hwndOwner :pointer) + (hInstance :pointer) + (rgbResult :unsigned-long) + (lpCustColors :pointer) + (Flags :unsigned-long) + (lCustData :int32) + (lpfnHook :pointer) + (lpTemplateName :string)) + + + + + +(defcstructex-exported CHOOSECOLORW + (lStructSize :unsigned-long) + (hwndOwner :pointer) + (hInstance :pointer) + (rgbResult :unsigned-long) + (lpCustColors :pointer) + (Flags :unsigned-long) + (lCustData :int32) + (lpfnHook :pointer) + (lpTemplateName :pointer)) + + + + + +(defcstructex-exported CHOOSEFONTA + (lStructSize :unsigned-long) + (hwndOwner :pointer) + (hDC :pointer) + (lpLogFont :pointer) + (iPointSize :int) + (Flags :unsigned-long) + (rgbColors :unsigned-long) + (lCustData :int32) + (lpfnHook :pointer) + (lpTemplateName :string) + (hInstance :pointer) + (lpszStyle :string) + (nFontType :unsigned-short) + (___MISSING_ALIGNMENT__ :unsigned-short) + (nSizeMin :int) + (nSizeMax :int)) + + + + + +(defcstructex-exported CHOOSEFONTW + (lStructSize :unsigned-long) + (hwndOwner :pointer) + (hDC :pointer) + (lpLogFont :pointer) + (iPointSize :int) + (Flags :unsigned-long) + (rgbColors :unsigned-long) + (lCustData :int32) + (lpfnHook :pointer) + (lpTemplateName :pointer) + (hInstance :pointer) + (lpszStyle :pointer) + (nFontType :unsigned-short) + (___MISSING_ALIGNMENT__ :unsigned-short) + (nSizeMin :int) + (nSizeMax :int)) + + + + + +(defcstructex-exported DEVNAMES + (wDriverOffset :unsigned-short) + (wDeviceOffset :unsigned-short) + (wOutputOffset :unsigned-short) + (wDefault :unsigned-short)) + + + + + +(defcstructex-exported FINDREPLACEA + (lStructSize :unsigned-long) + (hwndOwner :pointer) + (hInstance :pointer) + (Flags :unsigned-long) + (lpstrFindWhat :string) + (lpstrReplaceWith :string) + (wFindWhatLen :unsigned-short) + (wReplaceWithLen :unsigned-short) + (lCustData :int32) + (lpfnHook :pointer) + (lpTemplateName :string)) + + + +(defcstructex-exported FINDREPLACEW + (lStructSize :unsigned-long) + (hwndOwner :pointer) + (hInstance :pointer) + (Flags :unsigned-long) + (lpstrFindWhat :pointer) + (lpstrReplaceWith :pointer) + (wFindWhatLen :unsigned-short) + (wReplaceWithLen :unsigned-short) + (lCustData :int32) + (lpfnHook :pointer) + (lpTemplateName :pointer)) + + + +(defcstructex-exported OPENFILENAMEA + (lStructSize :unsigned-long) + (hwndOwner :pointer) + (hInstance :pointer) + (lpstrFilter :string) + (lpstrCustomFilter :string) + (nMaxCustFilter :unsigned-long) + (nFilterIndex :unsigned-long) + (lpstrFile :string) + (nMaxFile :unsigned-long) + (lpstrFileTitle :string) + (nMaxFileTitle :unsigned-long) + (lpstrInitialDir :string) + (lpstrTitle :string) + (Flags :unsigned-long) + (nFileOffset :unsigned-short) + (nFileExtension :unsigned-short) + (lpstrDefExt :string) + (lCustData :unsigned-long) + (lpfnHook :pointer) + (lpTemplateName :string)) + + + + + +(defcstructex-exported OPENFILENAMEW + (lStructSize :unsigned-long) + (hwndOwner :pointer) + (hInstance :pointer) + (lpstrFilter :pointer) + (lpstrCustomFilter :pointer) + (nMaxCustFilter :unsigned-long) + (nFilterIndex :unsigned-long) + (lpstrFile :pointer) + (nMaxFile :unsigned-long) + (lpstrFileTitle :pointer) + (nMaxFileTitle :unsigned-long) + (lpstrInitialDir :pointer) + (lpstrTitle :pointer) + (Flags :unsigned-long) + (nFileOffset :unsigned-short) + (nFileExtension :unsigned-short) + (lpstrDefExt :pointer) + (lCustData :unsigned-long) + (lpfnHook :pointer) + (lpTemplateName :pointer)) + + + + + +(defcstructex-exported OFNOTIFYA + (hdr NMHDR) + (lpOFN :pointer) + (pszFile :string)) + + + + + +(defcstructex-exported OFNOTIFYW + (hdr NMHDR) + (lpOFN :pointer) + (pszFile :pointer)) + + + + + +(defcstructex-exported PAGESETUPDLGA + (lStructSize :unsigned-long) + (hwndOwner :pointer) + (hDevMode :pointer) + (hDevNames :pointer) + (Flags :unsigned-long) + (ptPaperSize POINT) + (rtMinMargin RECT) + (rtMargin RECT) + (hInstance :pointer) + (lCustData :int32) + (lpfnPageSetupHook :pointer) + (lpfnPagePaintHook :pointer) + (lpPageSetupTemplateName :string) + (hPageSetupTemplate :pointer)) + + + + + +(defcstructex-exported PAGESETUPDLGW + (lStructSize :unsigned-long) + (hwndOwner :pointer) + (hDevMode :pointer) + (hDevNames :pointer) + (Flags :unsigned-long) + (ptPaperSize POINT) + (rtMinMargin RECT) + (rtMargin RECT) + (hInstance :pointer) + (lCustData :int32) + (lpfnPageSetupHook :pointer) + (lpfnPagePaintHook :pointer) + (lpPageSetupTemplateName :pointer) + (hPageSetupTemplate :pointer)) + + + + + +(defcstructex-exported PRINTDLGA + (lStructSize :unsigned-long) + (hwndOwner :pointer) + (hDevMode :pointer) + (hDevNames :pointer) + (hDC :pointer) + (Flags :unsigned-long) + (nFromPage :unsigned-short) + (nToPage :unsigned-short) + (nMinPage :unsigned-short) + (nMaxPage :unsigned-short) + (nCopies :unsigned-short) + (hInstance :pointer) + (lCustData :unsigned-long) + (lpfnPrintHook :pointer) + (lpfnSetupHook :pointer) + (lpPrintTemplateName :string) + (lpSetupTemplateName :string) + (hPrintTemplate :pointer) + (hSetupTemplate :pointer)) + + + + + +(defcstructex-exported PRINTDLGW + (lStructSize :unsigned-long) + (hwndOwner :pointer) + (hDevMode :pointer) + (hDevNames :pointer) + (hDC :pointer) + (Flags :unsigned-long) + (nFromPage :unsigned-short) + (nToPage :unsigned-short) + (nMinPage :unsigned-short) + (nMaxPage :unsigned-short) + (nCopies :unsigned-short) + (hInstance :pointer) + (lCustData :unsigned-long) + (lpfnPrintHook :pointer) + (lpfnSetupHook :pointer) + (lpPrintTemplateName :pointer) + (lpSetupTemplateName :pointer) + (hPrintTemplate :pointer) + (hSetupTemplate :pointer)) + + + + + +(defconstant-exported LBSELCHSTRING "commdlg_LBSelChangedNotify") + +(defconstant-exported SHAREVISTRING "commdlg_ShareViolation") + +(defconstant-exported FILEOKSTRING "commdlg_FileNameOK") + +(defconstant-exported COLOROKSTRING "commdlg_ColorOK") + +(defconstant-exported SETRGBSTRING "commdlg_SetRGBColor") + +(defconstant-exported HELPMSGSTRING "commdlg_help") + +(defconstant-exported FINDMSGSTRING "commdlg_FindReplace") + diff --git a/modules/crt.lisp b/modules/crt.lisp new file mode 100644 index 0000000..03bcc59 --- /dev/null +++ b/modules/crt.lisp @@ -0,0 +1,198 @@ + +(cl:in-package w32apimod) + +(define-w32api-module crt :crt) + +(cl:in-package cl-w32api.module.crt) + + +(defcfunex-exported ("memchr" memchr :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :int) + (arg2 :unsigned-long)) + +(defcfunex-exported ("memcmp" memcmp :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("memcpy" memcpy :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("memmove" memmove :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("memset" memset :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :int) + (arg2 :unsigned-long)) + +(defcfunex-exported ("strcat" strcat :convention :stdcall) :string + (arg0 :string) + (arg1 :string)) + +(defcfunex-exported ("strchr" strchr :convention :stdcall) :string + (arg0 :string) + (arg1 :int)) + +(defcfunex-exported ("strcmp" strcmp :convention :stdcall) :int + (arg0 :string) + (arg1 :string)) + +(defcfunex-exported ("strcoll" strcoll :convention :stdcall) :int + (arg0 :string) + (arg1 :string)) + +(defcfunex-exported ("strcpy" strcpy :convention :stdcall) :string + (arg0 :string) + (arg1 :string)) + +(defcfunex-exported ("strcspn" strcspn :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :string)) + +(defcfunex-exported ("strerror" strerror :convention :stdcall) :string + (arg0 :int)) + +(defcfunex-exported ("strlen" strlen :convention :stdcall) :unsigned-long + (arg0 :string)) + +(defcfunex-exported ("strncat" strncat :convention :stdcall) :string + (arg0 :string) + (arg1 :string) + (arg2 :unsigned-long)) + +(defcfunex-exported ("strncmp" strncmp :convention :stdcall) :int + (arg0 :string) + (arg1 :string) + (arg2 :unsigned-long)) + +(defcfunex-exported ("strncpy" strncpy :convention :stdcall) :string + (arg0 :string) + (arg1 :string) + (arg2 :unsigned-long)) + +(defcfunex-exported ("strpbrk" strpbrk :convention :stdcall) :string + (arg0 :string) + (arg1 :string)) + +(defcfunex-exported ("strrchr" strrchr :convention :stdcall) :string + (arg0 :string) + (arg1 :int)) + +(defcfunex-exported ("strspn" strspn :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :string)) + +(defcfunex-exported ("strstr" strstr :convention :stdcall) :string + (arg0 :string) + (arg1 :string)) + +(defcfunex-exported ("strtok" strtok :convention :stdcall) :string + (arg0 :string) + (arg1 :string)) + +(defcfunex-exported ("strxfrm" strxfrm :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :string) + (arg2 :unsigned-long)) + +(defcfunex-exported ("strtok_r" strtok_r :convention :stdcall) :string + (arg0 :string) + (arg1 :string) + (arg2 :pointer)) + +(defcfunex-exported ("bcmp" bcmp :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("bcopy" bcopy :convention :stdcall) :void + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("bzero" bzero :convention :stdcall) :void + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("ffs" ffs :convention :stdcall) :int + (arg0 :int)) + +(defcfunex-exported ("index" index :convention :stdcall) :string + (arg0 :string) + (arg1 :int)) + +(defcfunex-exported ("memccpy" memccpy :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int) + (arg3 :unsigned-long)) + +(defcfunex-exported ("mempcpy" mempcpy :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("rindex" rindex :convention :stdcall) :string + (arg0 :string) + (arg1 :int)) + +(defcfunex-exported ("strcasecmp" strcasecmp :convention :stdcall) :int + (arg0 :string) + (arg1 :string)) + +(defcfunex-exported ("strdup" strdup :convention :stdcall) :string + (arg0 :string)) + +(defcfunex-exported ("_strdup_r" _strdup_r :convention :stdcall) :string + (arg0 :pointer) + (arg1 :string)) + +(defcfunex-exported ("strndup" strndup :convention :stdcall) :string + (arg0 :string) + (arg1 :unsigned-long)) + +(defcfunex-exported ("_strndup_r" _strndup_r :convention :stdcall) :string + (arg0 :pointer) + (arg1 :string) + (arg2 :unsigned-long)) + +(defcfunex-exported ("strerror_r" strerror_r :convention :stdcall) :string + (arg0 :int) + (arg1 :string) + (arg2 :unsigned-long)) + +(defcfunex-exported ("strlcat" strlcat :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :string) + (arg2 :unsigned-long)) + +(defcfunex-exported ("strlcpy" strlcpy :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :string) + (arg2 :unsigned-long)) + +(defcfunex-exported ("strncasecmp" strncasecmp :convention :stdcall) :int + (arg0 :string) + (arg1 :string) + (arg2 :unsigned-long)) + +(defcfunex-exported ("strnlen" strnlen :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :unsigned-long)) + +(defcfunex-exported ("strsep" strsep :convention :stdcall) :string + (arg0 :pointer) + (arg1 :string)) + +(defcfunex-exported ("strlwr" strlwr :convention :stdcall) :string + (arg0 :string)) + +(defcfunex-exported ("strupr" strupr :convention :stdcall) :string + (arg0 :string)) + diff --git a/modules/dde.lisp b/modules/dde.lisp new file mode 100644 index 0000000..fe032d8 --- /dev/null +++ b/modules/dde.lisp @@ -0,0 +1,549 @@ +(cl:in-package w32apimod) + +(define-w32api-module dde :dde) + +(cl:in-package cl-w32api.module.dde) + + +(defconstant-exported WM_DDE_FIRST #x03E0) + +(defconstant-exported WM_DDE_INITIATE #x03E0) + +(defconstant-exported WM_DDE_TERMINATE (cl:+ #x03E0 1)) + +(defconstant-exported WM_DDE_ADVISE (cl:+ #x03E0 2)) + +(defconstant-exported WM_DDE_UNADVISE (cl:+ #x03E0 3)) + +(defconstant-exported WM_DDE_ACK (cl:+ #x03E0 4)) + +(defconstant-exported WM_DDE_DATA (cl:+ #x03E0 5)) + +(defconstant-exported WM_DDE_REQUEST (cl:+ #x03E0 6)) + +(defconstant-exported WM_DDE_POKE (cl:+ #x03E0 7)) + +(defconstant-exported WM_DDE_EXECUTE (cl:+ #x03E0 8)) + +(defconstant-exported WM_DDE_LAST (cl:+ #x03E0 8)) + +(defcstructex-exported DDEACK + (bAppReturnCode :unsigned-short) + (reserved :unsigned-short) + (fBusy :unsigned-short) + (fAck :unsigned-short)) + +(defcstructex-exported DDEADVISE + (reserved :unsigned-short) + (fDeferUpd :unsigned-short) + (fAckReq :unsigned-short) + (cfFormat :short)) + +(defcstructex-exported DDEDATA + (unused :unsigned-short) + (fResponse :unsigned-short) + (fRelease :unsigned-short) + (reserved :unsigned-short) + (fAckReq :unsigned-short) + (cfFormat :short) + (Value :pointer)) + +(defcstructex-exported DDEPOKE + (unused :unsigned-short) + (fRelease :unsigned-short) + (fReserved :unsigned-short) + (cfFormat :short) + (Value :pointer)) + +(defcstructex-exported DDELN + (unused :unsigned-short) + (fRelease :unsigned-short) + (fDeferUpd :unsigned-short) + (fAckReq :unsigned-short) + (cfFormat :short)) + +(defcstructex-exported DDEUP + (unused :unsigned-short) + (fAck :unsigned-short) + (fRelease :unsigned-short) + (fReserved :unsigned-short) + (fAckReq :unsigned-short) + (cfFormat :short) + (rgb :pointer)) + +(defcfunex-exported ("DdeSetQualityOfService" DdeSetQualityOfService :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("ImpersonateDdeClientWindow" ImpersonateDdeClientWindow :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("PackDDElParam" PackDDElParam :convention :stdcall) :int32 + (arg0 :unsigned-int) + (arg1 :unsigned-int) + (arg2 :unsigned-int)) + +(defcfunex-exported ("UnpackDDElParam" UnpackDDElParam :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :int32) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("FreeDDElParam" FreeDDElParam :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :int32)) + +(defcfunex-exported ("ReuseDDElParam" ReuseDDElParam :convention :stdcall) :int32 + (arg0 :int32) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :unsigned-int) + (arg4 :unsigned-int)) + +(defconstant-exported CP_WINANSI 1004) + +(defconstant-exported CP_WINUNICODE 1200) + +(defconstant-exported XTYPF_NOBLOCK 2) + +(defconstant-exported XTYPF_NODATA 4) + +(defconstant-exported XTYPF_ACKREQ 8) + +(defconstant-exported XCLASS_MASK #xFC00) + +(defconstant-exported XCLASS_BOOL #x1000) + +(defconstant-exported XCLASS_DATA #x2000) + +(defconstant-exported XCLASS_FLAGS #x4000) + +(defconstant-exported XCLASS_NOTIFICATION #x8000) + +(defconstant-exported XST_NULL 0) + +(defconstant-exported XST_INCOMPLETE 1) + +(defconstant-exported XST_CONNECTED 2) + +(defconstant-exported XST_INIT1 3) + +(defconstant-exported XST_INIT2 4) + +(defconstant-exported XST_REQSENT 5) + +(defconstant-exported XST_DATARCVD 6) + +(defconstant-exported XST_POKESENT 7) + +(defconstant-exported XST_POKEACKRCVD 8) + +(defconstant-exported XST_EXECSENT 9) + +(defconstant-exported XST_EXECACKRCVD 10) + +(defconstant-exported XST_ADVSENT 11) + +(defconstant-exported XST_UNADVSENT 12) + +(defconstant-exported XST_ADVACKRCVD 13) + +(defconstant-exported XST_UNADVACKRCVD 14) + +(defconstant-exported XST_ADVDATASENT 15) + +(defconstant-exported XST_ADVDATAACKRCVD 16) + +(defconstant-exported XTYP_ERROR (cl:logior #x8000 2)) + +(defconstant-exported XTYP_ADVDATA (cl:logior 16 #x4000)) + +(defconstant-exported XTYP_ADVREQ (cl:logior 32 #x2000 2)) + +(defconstant-exported XTYP_ADVSTART (cl:logior #x30 #x1000)) + +(defconstant-exported XTYP_ADVSTOP (cl:logior #x0040 #x8000)) + +(defconstant-exported XTYP_EXECUTE (cl:logior #x0050 #x4000)) + +(defconstant-exported XTYP_CONNECT (cl:logior #x0060 #x1000 2)) + +(defconstant-exported XTYP_CONNECT_CONFIRM (cl:logior #x0070 #x8000 2)) + +(defconstant-exported XTYP_XACT_COMPLETE (cl:logior #x0080 #x8000)) + +(defconstant-exported XTYP_POKE (cl:logior #x0090 #x4000)) + +(defconstant-exported XTYP_REGISTER (cl:logior #x00A0 #x8000 2)) + +(defconstant-exported XTYP_REQUEST (cl:logior #x00B0 #x2000)) + +(defconstant-exported XTYP_DISCONNECT (cl:logior #x00C0 #x8000 2)) + +(defconstant-exported XTYP_UNREGISTER (cl:logior #x00D0 #x8000 2)) + +(defconstant-exported XTYP_WILDCONNECT (cl:logior #x00E0 #x2000 2)) + +(defconstant-exported XTYP_MASK #xF0) + +(defconstant-exported XTYP_SHIFT 4) + +(defconstant-exported TIMEOUT_ASYNC #xFFFFFFFF) + +(defconstant-exported QID_SYNC #xFFFFFFFF) + +(defconstant-exported ST_CONNECTED 1) + +(defconstant-exported ST_ADVISE 2) + +(defconstant-exported ST_ISLOCAL 4) + +(defconstant-exported ST_BLOCKED 8) + +(defconstant-exported ST_CLIENT 16) + +(defconstant-exported ST_TERMINATED 32) + +(defconstant-exported ST_INLIST 64) + +(defconstant-exported ST_BLOCKNEXT 128) + +(defconstant-exported ST_ISSELF 256) + +(defconstant-exported CADV_LATEACK #xFFFF) + +(defconstant-exported DMLERR_NO_ERROR 0) + +(defconstant-exported DMLERR_FIRST #x4000) + +(defconstant-exported DMLERR_ADVACKTIMEOUT #x4000) + +(defconstant-exported DMLERR_BUSY #x4001) + +(defconstant-exported DMLERR_DATAACKTIMEOUT #x4002) + +(defconstant-exported DMLERR_DLL_NOT_INITIALIZED #x4003) + +(defconstant-exported DMLERR_DLL_USAGE #x4004) + +(defconstant-exported DMLERR_EXECACKTIMEOUT #x4005) + +(defconstant-exported DMLERR_INVALIDPARAMETER #x4006) + +(defconstant-exported DMLERR_LOW_MEMORY #x4007) + +(defconstant-exported DMLERR_MEMORY_ERROR #x4008) + +(defconstant-exported DMLERR_NOTPROCESSED #x4009) + +(defconstant-exported DMLERR_NO_CONV_ESTABLISHED #x400a) + +(defconstant-exported DMLERR_POKEACKTIMEOUT #x400b) + +(defconstant-exported DMLERR_POSTMSG_FAILED #x400c) + +(defconstant-exported DMLERR_REENTRANCY #x400d) + +(defconstant-exported DMLERR_SERVER_DIED #x400e) + +(defconstant-exported DMLERR_SYS_ERROR #x400f) + +(defconstant-exported DMLERR_UNADVACKTIMEOUT #x4010) + +(defconstant-exported DMLERR_UNFOUND_QUEUE_ID #x4011) + +(defconstant-exported DMLERR_LAST #x4011) + +(defconstant-exported DDE_FACK #x8000) + +(defconstant-exported DDE_FBUSY #x4000) + +(defconstant-exported DDE_FDEFERUPD #x4000) + +(defconstant-exported DDE_FACKREQ #x8000) + +(defconstant-exported DDE_FRELEASE #x2000) + +(defconstant-exported DDE_FREQUESTED #x1000) + +(defconstant-exported DDE_FAPPSTATUS #x00ff) + +(defconstant-exported DDE_FNOTPROCESSED 0) + +; (defconstant-exported DDE_FACKRESERVED (cl:logior ~(0x8000 #x4000 #x00ff))) +(defconstant-exported DDE_FACKRESERVED (cl:lognot (cl:logior DDE_FACK DDE_FBUSY DDE_FAPPSTATUS))) + +; (defconstant-exported DDE_FADVRESERVED (cl:logior ~(0x8000 #x4000))) +(defconstant-exported DDE_FADVRESERVED (cl:lognot (cl:logior DDE_FACKREQ DDE_FDEFERUPD))) + +; (defconstant-exported DDE_FDATRESERVED (cl:logior ~(0x8000 #x2000 #x1000))) +(defconstant-exported DDE_FDATRESERVED (cl:lognot (cl:logior DDE_FACKREQ DDE_FRELEASE DDE_FREQUESTED))) + +; (defconstant-exported DDE_FPOKRESERVED ~0x2000) +(defconstant-exported DDE_FPOKRESERVED (cl:lognot DDE_FRELEASE)) + +(defconstant-exported MSGF_DDEMGR #x8001) + +(defconstant-exported CBF_FAIL_SELFCONNECTIONS #x1000) + +(defconstant-exported CBF_FAIL_CONNECTIONS #x2000) + +(defconstant-exported CBF_FAIL_ADVISES #x4000) + +(defconstant-exported CBF_FAIL_EXECUTES #x8000) + +(defconstant-exported CBF_FAIL_POKES #x10000) + +(defconstant-exported CBF_FAIL_REQUESTS #x20000) + +(defconstant-exported CBF_FAIL_ALLSVRXACTIONS #x3f000) + +(defconstant-exported CBF_SKIP_CONNECT_CONFIRMS #x40000) + +(defconstant-exported CBF_SKIP_REGISTRATIONS #x80000) + +(defconstant-exported CBF_SKIP_UNREGISTRATIONS #x100000) + +(defconstant-exported CBF_SKIP_DISCONNECTS #x200000) + +(defconstant-exported CBF_SKIP_ALLNOTIFICATIONS #x3c0000) + +(defconstant-exported APPCMD_CLIENTONLY #x10) + +(defconstant-exported APPCMD_FILTERINITS #x20) + +(defconstant-exported APPCMD_MASK #xFF0) + +(defconstant-exported APPCLASS_STANDARD 0) + +(defconstant-exported APPCLASS_MASK #xF) + +(defconstant-exported EC_ENABLEALL 0) + +(defconstant-exported EC_ENABLEONE 128) + +(defconstant-exported EC_DISABLE 8) + +(defconstant-exported EC_QUERYWAITING 2) + +(defconstant-exported DNS_REGISTER 1) + +(defconstant-exported DNS_UNREGISTER 2) + +(defconstant-exported DNS_FILTERON 4) + +(defconstant-exported DNS_FILTEROFF 8) + +(defconstant-exported HDATA_APPOWNED 1) + +(defconstant-exported MAX_MONITORS 4) + +(defconstant-exported APPCLASS_MONITOR 1) + +(defconstant-exported XTYP_MONITOR (cl:logior #x8000 2 #xF0)) + +(defconstant-exported MF_HSZ_INFO #x1000000) + +(defconstant-exported MF_SENDMSGS #x2000000) + +(defconstant-exported MF_POSTMSGS #x4000000) + +(defconstant-exported MF_CALLBACKS #x8000000) + +(defconstant-exported MF_ERRORS #x10000000) + +(defconstant-exported MF_LINKS #x20000000) + +(defconstant-exported MF_CONV #x40000000) + +(defconstant-exported MF_MASK #xFF000000) + +(defconstant-exported MH_CREATE 1) + +(defconstant-exported MH_KEEP 2) + +(defconstant-exported MH_DELETE 3) + +(defconstant-exported MH_CLEANUP 4) + +(defcstructex-exported HCONVLIST__ + (i :int)) + + + +(defcstructex-exported HCONV__ + (i :int)) + + + +(defcstructex-exported HSZ__ + (i :int)) + + + +(defcstructex-exported HDDEDATA__ + (i :int)) + + + + + + + +(defcstructex-exported HSZPAIR + (hszSvc :pointer) + (hszTopic :pointer)) + + + + + +(defcstructex-exported CONVCONTEXT + (cb :unsigned-int) + (wFlags :unsigned-int) + (wCountryID :unsigned-int) + (iCodePage :int) + (dwLangID :unsigned-long) + (dwSecurity :unsigned-long) + (qos SECURITY_QUALITY_OF_SERVICE)) + + + + + +(defcstructex-exported CONVINFO + (cb :unsigned-long) + (hUser :unsigned-long) + (hConvPartner :pointer) + (hszSvcPartner :pointer) + (hszServiceReq :pointer) + (hszTopic :pointer) + (hszItem :pointer) + (wFmt :unsigned-int) + (wType :unsigned-int) + (wStatus :unsigned-int) + (wConvst :unsigned-int) + (wLastError :unsigned-int) + (hConvList :pointer) + (ConvCtxt CONVCONTEXT) + (hwnd :pointer) + (hwndPartner :pointer)) + + + + + +(defcstructex-exported DDEML_MSG_HOOK_DATA + (uiLo :unsigned-int) + (uiHi :unsigned-int) + (cbData :unsigned-long) + (Data :pointer)) + + + +(defcstructex-exported MONHSZSTRUCT + (cb :unsigned-int) + (fsAction :int) + (dwTime :unsigned-long) + (hsz :pointer) + (hTask :pointer) + (str :pointer)) + + + + + +(defcstructex-exported MONLINKSTRUCT + (cb :unsigned-int) + (dwTime :unsigned-long) + (hTask :pointer) + (fEstablished :int) + (fNoData :int) + (hszSvc :pointer) + (hszTopic :pointer) + (hszItem :pointer) + (wFmt :unsigned-int) + (fServer :int) + (hConvServer :pointer) + (hConvClient :pointer)) + + + + + +(defcstructex-exported MONCONVSTRUCT + (cb :unsigned-int) + (fConnect :int) + (dwTime :unsigned-long) + (hTask :pointer) + (hszSvc :pointer) + (hszTopic :pointer) + (hConvClient :pointer) + (hConvServer :pointer)) + + + + + +(defcstructex-exported MONCBSTRUCT + (cb :unsigned-int) + (dwTime :unsigned-long) + (hTask :pointer) + (dwRet :unsigned-long) + (wType :unsigned-int) + (wFmt :unsigned-int) + (hConv :pointer) + (hsz1 :pointer) + (hsz2 :pointer) + (hData :pointer) + (dwData1 :unsigned-long) + (dwData2 :unsigned-long) + (cc CONVCONTEXT) + (cbData :unsigned-long) + (Data :pointer)) + + + + + +(defcstructex-exported MONERRSTRUCT + (cb :unsigned-int) + (wLastError :unsigned-int) + (dwTime :unsigned-long) + (hTask :pointer)) + + + + + +(defcstructex-exported MONMSGSTRUCT + (cb :unsigned-int) + (hwndTo :pointer) + (dwTime :unsigned-long) + (hTask :pointer) + (wMsg :unsigned-int) + (wParam :unsigned-int) + (lParam :int32) + (dmhd DDEML_MSG_HOOK_DATA)) + + + + + +(defconstant-exported SZDDESYS_TOPIC "System") + +(defconstant-exported SZDDESYS_ITEM_TOPICS "Topics") + +(defconstant-exported SZDDESYS_ITEM_SYSITEMS "SysItems") + +(defconstant-exported SZDDESYS_ITEM_RTNMSG "ReturnMessage") + +(defconstant-exported SZDDESYS_ITEM_STATUS "Status") + +(defconstant-exported SZDDESYS_ITEM_FORMATS "Formats") + +(defconstant-exported SZDDESYS_ITEM_HELP "Help") + +(defconstant-exported SZDDE_ITEM_ITEMLIST "TopicItemList") diff --git a/modules/dlgs.lisp b/modules/dlgs.lisp new file mode 100644 index 0000000..c415f8d --- /dev/null +++ b/modules/dlgs.lisp @@ -0,0 +1,342 @@ +(cl:in-package w32apimod) + +(define-w32api-module dlgs :dlgs) + +(cl:in-package cl-w32api.module.dlgs) + +(defconstant-exported FILEOPENORD 1536) + +(defconstant-exported MULTIFILEOPENORD 1537) + +(defconstant-exported PRINTDLGORD 1538) + +(defconstant-exported PRNSETUPDLGORD 1539) + +(defconstant-exported FINDDLGORD 1540) + +(defconstant-exported REPLACEDLGORD 1541) + +(defconstant-exported FONTDLGORD 1542) + +(defconstant-exported FORMATDLGORD31 1543) + +(defconstant-exported FORMATDLGORD30 1544) + +(defconstant-exported PAGESETUPDLGORD 1546) + +(defconstant-exported ctlFirst #x400) + +(defconstant-exported ctlLast #x4ff) + +(defconstant-exported chx1 #x410) + +(defconstant-exported chx2 #x411) + +(defconstant-exported chx3 #x412) + +(defconstant-exported chx4 #x413) + +(defconstant-exported chx5 #x414) + +(defconstant-exported chx6 #x415) + +(defconstant-exported chx7 #x416) + +(defconstant-exported chx8 #x417) + +(defconstant-exported chx9 #x418) + +(defconstant-exported chx10 #x419) + +(defconstant-exported chx11 #x41a) + +(defconstant-exported chx12 #x41b) + +(defconstant-exported chx13 #x41c) + +(defconstant-exported chx14 #x41d) + +(defconstant-exported chx15 #x41e) + +(defconstant-exported chx16 #x41f) + +(defconstant-exported cmb1 #x470) + +(defconstant-exported cmb2 #x471) + +(defconstant-exported cmb3 #x472) + +(defconstant-exported cmb4 #x473) + +(defconstant-exported cmb5 #x474) + +(defconstant-exported cmb6 #x475) + +(defconstant-exported cmb7 #x476) + +(defconstant-exported cmb8 #x477) + +(defconstant-exported cmb9 #x478) + +(defconstant-exported cmb10 #x479) + +(defconstant-exported cmb11 #x47a) + +(defconstant-exported cmb12 #x47b) + +(defconstant-exported cmb13 #x47c) + +(defconstant-exported cmb14 #x47d) + +(defconstant-exported cmb15 #x47e) + +(defconstant-exported cmb16 #x47f) + +(defconstant-exported edt1 #x480) + +(defconstant-exported edt2 #x481) + +(defconstant-exported edt3 #x482) + +(defconstant-exported edt4 #x483) + +(defconstant-exported edt5 #x484) + +(defconstant-exported edt6 #x485) + +(defconstant-exported edt7 #x486) + +(defconstant-exported edt8 #x487) + +(defconstant-exported edt9 #x488) + +(defconstant-exported edt10 #x489) + +(defconstant-exported edt11 #x48a) + +(defconstant-exported edt12 #x48b) + +(defconstant-exported edt13 #x48c) + +(defconstant-exported edt14 #x48d) + +(defconstant-exported edt15 #x48e) + +(defconstant-exported edt16 #x48f) + +(defconstant-exported frm1 #x434) + +(defconstant-exported frm2 #x435) + +(defconstant-exported frm3 #x436) + +(defconstant-exported frm4 #x437) + +(defconstant-exported grp1 #x430) + +(defconstant-exported grp2 #x431) + +(defconstant-exported grp3 #x432) + +(defconstant-exported grp4 #x433) + +(defconstant-exported ico1 #x43c) + +(defconstant-exported ico2 #x43d) + +(defconstant-exported ico3 #x43e) + +(defconstant-exported ico4 #x43f) + +(defconstant-exported lst1 #x460) + +(defconstant-exported lst2 #x461) + +(defconstant-exported lst3 #x462) + +(defconstant-exported lst4 #x463) + +(defconstant-exported lst5 #x464) + +(defconstant-exported lst6 #x465) + +(defconstant-exported lst7 #x466) + +(defconstant-exported lst8 #x467) + +(defconstant-exported lst9 #x468) + +(defconstant-exported lst10 #x469) + +(defconstant-exported lst11 #x46a) + +(defconstant-exported lst12 #x46b) + +(defconstant-exported lst13 #x46c) + +(defconstant-exported lst14 #x46d) + +(defconstant-exported lst15 #x46e) + +(defconstant-exported lst16 #x46f) + +(defconstant-exported psh1 #x400) + +(defconstant-exported psh2 #x401) + +(defconstant-exported psh3 #x402) + +(defconstant-exported psh4 #x403) + +(defconstant-exported psh5 #x404) + +(defconstant-exported psh6 #x405) + +(defconstant-exported psh7 #x406) + +(defconstant-exported psh8 #x407) + +(defconstant-exported psh9 #x408) + +(defconstant-exported psh10 #x409) + +(defconstant-exported psh11 #x40a) + +(defconstant-exported psh12 #x40b) + +(defconstant-exported psh13 #x40c) + +(defconstant-exported psh14 #x40d) + +(defconstant-exported psh15 #x40e) + +(defconstant-exported pshHelp #x40e) + +(defconstant-exported psh16 #x40f) + +(defconstant-exported rad1 #x420) + +(defconstant-exported rad2 #x421) + +(defconstant-exported rad3 #x422) + +(defconstant-exported rad4 #x423) + +(defconstant-exported rad5 #x424) + +(defconstant-exported rad6 #x425) + +(defconstant-exported rad7 #x426) + +(defconstant-exported rad8 #x427) + +(defconstant-exported rad9 #x428) + +(defconstant-exported rad10 #x429) + +(defconstant-exported rad11 #x42a) + +(defconstant-exported rad12 #x42b) + +(defconstant-exported rad13 #x42c) + +(defconstant-exported rad14 #x42d) + +(defconstant-exported rad15 #x42e) + +(defconstant-exported rad16 #x42f) + +(defconstant-exported rct1 #x438) + +(defconstant-exported rct2 #x439) + +(defconstant-exported rct3 #x43a) + +(defconstant-exported rct4 #x43b) + +(defconstant-exported scr1 #x490) + +(defconstant-exported scr2 #x491) + +(defconstant-exported scr3 #x492) + +(defconstant-exported scr4 #x493) + +(defconstant-exported scr5 #x494) + +(defconstant-exported scr6 #x495) + +(defconstant-exported scr7 #x496) + +(defconstant-exported scr8 #x497) + +(defconstant-exported stc1 #x440) + +(defconstant-exported stc2 #x441) + +(defconstant-exported stc3 #x442) + +(defconstant-exported stc4 #x443) + +(defconstant-exported stc5 #x444) + +(defconstant-exported stc6 #x445) + +(defconstant-exported stc7 #x446) + +(defconstant-exported stc8 #x447) + +(defconstant-exported stc9 #x448) + +(defconstant-exported stc10 #x449) + +(defconstant-exported stc11 #x44a) + +(defconstant-exported stc12 #x44b) + +(defconstant-exported stc13 #x44c) + +(defconstant-exported stc14 #x44d) + +(defconstant-exported stc15 #x44e) + +(defconstant-exported stc16 #x44f) + +(defconstant-exported stc17 #x450) + +(defconstant-exported stc18 #x451) + +(defconstant-exported stc19 #x452) + +(defconstant-exported stc20 #x453) + +(defconstant-exported stc21 #x454) + +(defconstant-exported stc22 #x455) + +(defconstant-exported stc23 #x456) + +(defconstant-exported stc24 #x457) + +(defconstant-exported stc25 #x458) + +(defconstant-exported stc26 #x459) + +(defconstant-exported stc27 #x45a) + +(defconstant-exported stc28 #x45b) + +(defconstant-exported stc29 #x45c) + +(defconstant-exported stc30 #x45d) + +(defconstant-exported stc31 #x45e) + +(defconstant-exported stc32 #x45f) + +(defcstructex-exported CRGB + (bRed :unsigned-char) + (bGreen :unsigned-char) + (bBlue :unsigned-char) + (bExtra :unsigned-char)) + diff --git a/modules/gdi.lisp b/modules/gdi.lisp deleted file mode 100644 index 77218c1..0000000 --- a/modules/gdi.lisp +++ /dev/null @@ -1,9 +0,0 @@ - -(in-package w32apimod) - -(define-w32api-module gdi :gdi :graphics.gdi) - -(in-package cl-w32api.module.gdi) - -(define-w32api-module-ctor () - ) diff --git a/modules/i18n.lisp b/modules/i18n.lisp new file mode 100644 index 0000000..d26554b --- /dev/null +++ b/modules/i18n.lisp @@ -0,0 +1,1074 @@ + +(cl:in-package w32apimod) + +(define-w32api-module i18n :i18n) + +(cl:in-package cl-w32api.module.i18n) + + +(defconstant-exported MAX_LEADBYTES 12) + +(defconstant-exported MAX_DEFAULTCHAR 2) + +(defconstant-exported LOCALE_NOUSEROVERRIDE #x80000000) + +(defconstant-exported LOCALE_USE_CP_ACP #x40000000) + +(defconstant-exported LOCALE_RETURN_NUMBER #x20000000) + +(defconstant-exported LOCALE_ILANGUAGE 1) + +(defconstant-exported LOCALE_SLANGUAGE 2) + +(defconstant-exported LOCALE_SENGLANGUAGE #x1001) + +(defconstant-exported LOCALE_SABBREVLANGNAME 3) + +(defconstant-exported LOCALE_SNATIVELANGNAME 4) + +(defconstant-exported LOCALE_ICOUNTRY 5) + +(defconstant-exported LOCALE_SCOUNTRY 6) + +(defconstant-exported LOCALE_SENGCOUNTRY #x1002) + +(defconstant-exported LOCALE_SABBREVCTRYNAME 7) + +(defconstant-exported LOCALE_SNATIVECTRYNAME 8) + +(defconstant-exported LOCALE_IDEFAULTLANGUAGE 9) + +(defconstant-exported LOCALE_IDEFAULTCOUNTRY 10) + +(defconstant-exported LOCALE_IDEFAULTCODEPAGE 11) + +(defconstant-exported LOCALE_IDEFAULTANSICODEPAGE #x1004) + +(defconstant-exported LOCALE_SLIST 12) + +(defconstant-exported LOCALE_IMEASURE 13) + +(defconstant-exported LOCALE_SDECIMAL 14) + +(defconstant-exported LOCALE_STHOUSAND 15) + +(defconstant-exported LOCALE_SGROUPING 16) + +(defconstant-exported LOCALE_IDIGITS 17) + +(defconstant-exported LOCALE_ILZERO 18) + +(defconstant-exported LOCALE_INEGNUMBER #x1010) + +(defconstant-exported LOCALE_SNATIVEDIGITS 19) + +(defconstant-exported LOCALE_SCURRENCY 20) + +(defconstant-exported LOCALE_SINTLSYMBOL 21) + +(defconstant-exported LOCALE_SMONDECIMALSEP 22) + +(defconstant-exported LOCALE_SMONTHOUSANDSEP 23) + +(defconstant-exported LOCALE_SMONGROUPING 24) + +(defconstant-exported LOCALE_ICURRDIGITS 25) + +(defconstant-exported LOCALE_IINTLCURRDIGITS 26) + +(defconstant-exported LOCALE_ICURRENCY 27) + +(defconstant-exported LOCALE_INEGCURR 28) + +(defconstant-exported LOCALE_SDATE 29) + +(defconstant-exported LOCALE_STIME 30) + +(defconstant-exported LOCALE_SSHORTDATE 31) + +(defconstant-exported LOCALE_SLONGDATE 32) + +(defconstant-exported LOCALE_STIMEFORMAT #x1003) + +(defconstant-exported LOCALE_IDATE 33) + +(defconstant-exported LOCALE_ILDATE 34) + +(defconstant-exported LOCALE_ITIME 35) + +(defconstant-exported LOCALE_ITIMEMARKPOSN #x1005) + +(defconstant-exported LOCALE_ICENTURY 36) + +(defconstant-exported LOCALE_ITLZERO 37) + +(defconstant-exported LOCALE_IDAYLZERO 38) + +(defconstant-exported LOCALE_IMONLZERO 39) + +(defconstant-exported LOCALE_S1159 40) + +(defconstant-exported LOCALE_S2359 41) + +(defconstant-exported LOCALE_ICALENDARTYPE #x1009) + +(defconstant-exported LOCALE_IOPTIONALCALENDAR #x100B) + +(defconstant-exported LOCALE_IFIRSTDAYOFWEEK #x100C) + +(defconstant-exported LOCALE_IFIRSTWEEKOFYEAR #x100D) + +(defconstant-exported LOCALE_SDAYNAME1 42) + +(defconstant-exported LOCALE_SDAYNAME2 43) + +(defconstant-exported LOCALE_SDAYNAME3 44) + +(defconstant-exported LOCALE_SDAYNAME4 45) + +(defconstant-exported LOCALE_SDAYNAME5 46) + +(defconstant-exported LOCALE_SDAYNAME6 47) + +(defconstant-exported LOCALE_SDAYNAME7 48) + +(defconstant-exported LOCALE_SABBREVDAYNAME1 49) + +(defconstant-exported LOCALE_SABBREVDAYNAME2 50) + +(defconstant-exported LOCALE_SABBREVDAYNAME3 51) + +(defconstant-exported LOCALE_SABBREVDAYNAME4 52) + +(defconstant-exported LOCALE_SABBREVDAYNAME5 53) + +(defconstant-exported LOCALE_SABBREVDAYNAME6 54) + +(defconstant-exported LOCALE_SABBREVDAYNAME7 55) + +(defconstant-exported LOCALE_SMONTHNAME1 56) + +(defconstant-exported LOCALE_SMONTHNAME2 57) + +(defconstant-exported LOCALE_SMONTHNAME3 58) + +(defconstant-exported LOCALE_SMONTHNAME4 59) + +(defconstant-exported LOCALE_SMONTHNAME5 60) + +(defconstant-exported LOCALE_SMONTHNAME6 61) + +(defconstant-exported LOCALE_SMONTHNAME7 62) + +(defconstant-exported LOCALE_SMONTHNAME8 63) + +(defconstant-exported LOCALE_SMONTHNAME9 64) + +(defconstant-exported LOCALE_SMONTHNAME10 65) + +(defconstant-exported LOCALE_SMONTHNAME11 66) + +(defconstant-exported LOCALE_SMONTHNAME12 67) + +(defconstant-exported LOCALE_SMONTHNAME13 #x100E) + +(defconstant-exported LOCALE_SABBREVMONTHNAME1 68) + +(defconstant-exported LOCALE_SABBREVMONTHNAME2 69) + +(defconstant-exported LOCALE_SABBREVMONTHNAME3 70) + +(defconstant-exported LOCALE_SABBREVMONTHNAME4 71) + +(defconstant-exported LOCALE_SABBREVMONTHNAME5 72) + +(defconstant-exported LOCALE_SABBREVMONTHNAME6 73) + +(defconstant-exported LOCALE_SABBREVMONTHNAME7 74) + +(defconstant-exported LOCALE_SABBREVMONTHNAME8 75) + +(defconstant-exported LOCALE_SABBREVMONTHNAME9 76) + +(defconstant-exported LOCALE_SABBREVMONTHNAME10 77) + +(defconstant-exported LOCALE_SABBREVMONTHNAME11 78) + +(defconstant-exported LOCALE_SABBREVMONTHNAME12 79) + +(defconstant-exported LOCALE_SABBREVMONTHNAME13 #x100F) + +(defconstant-exported LOCALE_SPOSITIVESIGN 80) + +(defconstant-exported LOCALE_SNEGATIVESIGN 81) + +(defconstant-exported LOCALE_IPOSSIGNPOSN 82) + +(defconstant-exported LOCALE_INEGSIGNPOSN 83) + +(defconstant-exported LOCALE_IPOSSYMPRECEDES 84) + +(defconstant-exported LOCALE_IPOSSEPBYSPACE 85) + +(defconstant-exported LOCALE_INEGSYMPRECEDES 86) + +(defconstant-exported LOCALE_INEGSEPBYSPACE 87) + +(defconstant-exported LOCALE_FONTSIGNATURE 88) + +(defconstant-exported LOCALE_SISO639LANGNAME 89) + +(defconstant-exported LOCALE_SISO3166CTRYNAME 90) + +(defconstant-exported LOCALE_SYSTEM_DEFAULT #x800) + +(defconstant-exported LOCALE_USER_DEFAULT #x400) + +(defconstant-exported NORM_IGNORECASE 1) + +(defconstant-exported NORM_IGNOREKANATYPE 65536) + +(defconstant-exported NORM_IGNORENONSPACE 2) + +(defconstant-exported NORM_IGNORESYMBOLS 4) + +(defconstant-exported NORM_IGNOREWIDTH 131072) + +(defconstant-exported SORT_STRINGSORT 4096) + +(defconstant-exported LCMAP_LOWERCASE #x00000100) + +(defconstant-exported LCMAP_UPPERCASE #x00000200) + +(defconstant-exported LCMAP_SORTKEY #x00000400) + +(defconstant-exported LCMAP_BYTEREV #x00000800) + +(defconstant-exported LCMAP_HIRAGANA #x00100000) + +(defconstant-exported LCMAP_KATAKANA #x00200000) + +(defconstant-exported LCMAP_HALFWIDTH #x00400000) + +(defconstant-exported LCMAP_FULLWIDTH #x00800000) + +(defconstant-exported LCMAP_LINGUISTIC_CASING #x01000000) + +(defconstant-exported LCMAP_SIMPLIFIED_CHINESE #x02000000) + +(defconstant-exported LCMAP_TRADITIONAL_CHINESE #x04000000) + +(defconstant-exported ENUM_ALL_CALENDARS -1) + +(defconstant-exported DATE_SHORTDATE 1) + +(defconstant-exported DATE_LONGDATE 2) + +(defconstant-exported DATE_USE_ALT_CALENDAR 4) + +(defconstant-exported CP_INSTALLED 1) + +(defconstant-exported CP_SUPPORTED 2) + +(defconstant-exported LCID_INSTALLED 1) + +(defconstant-exported LCID_SUPPORTED 2) + +(defconstant-exported LCID_ALTERNATE_SORTS 4) + +(defconstant-exported MAP_FOLDCZONE 16) + +(defconstant-exported MAP_FOLDDIGITS 128) + +(defconstant-exported MAP_PRECOMPOSED 32) + +(defconstant-exported MAP_COMPOSITE 64) + +(defconstant-exported CP_ACP 0) + +(defconstant-exported CP_OEMCP 1) + +(defconstant-exported CP_MACCP 2) + +(defconstant-exported CP_THREAD_ACP 3) + +(defconstant-exported CP_SYMBOL 42) + +(defconstant-exported CP_UTF7 65000) + +(defconstant-exported CP_UTF8 65001) + +(defconstant-exported CT_CTYPE1 1) + +(defconstant-exported CT_CTYPE2 2) + +(defconstant-exported CT_CTYPE3 4) + +(defconstant-exported C1_UPPER 1) + +(defconstant-exported C1_LOWER 2) + +(defconstant-exported C1_DIGIT 4) + +(defconstant-exported C1_SPACE 8) + +(defconstant-exported C1_PUNCT 16) + +(defconstant-exported C1_CNTRL 32) + +(defconstant-exported C1_BLANK 64) + +(defconstant-exported C1_XDIGIT 128) + +(defconstant-exported C1_ALPHA 256) + +(defconstant-exported C2_LEFTTORIGHT 1) + +(defconstant-exported C2_RIGHTTOLEFT 2) + +(defconstant-exported C2_EUROPENUMBER 3) + +(defconstant-exported C2_EUROPESEPARATOR 4) + +(defconstant-exported C2_EUROPETERMINATOR 5) + +(defconstant-exported C2_ARABICNUMBER 6) + +(defconstant-exported C2_COMMONSEPARATOR 7) + +(defconstant-exported C2_BLOCKSEPARATOR 8) + +(defconstant-exported C2_SEGMENTSEPARATOR 9) + +(defconstant-exported C2_WHITESPACE 10) + +(defconstant-exported C2_OTHERNEUTRAL 11) + +(defconstant-exported C2_NOTAPPLICABLE 0) + +(defconstant-exported C3_NONSPACING 1) + +(defconstant-exported C3_DIACRITIC 2) + +(defconstant-exported C3_VOWELMARK 4) + +(defconstant-exported C3_SYMBOL 8) + +(defconstant-exported C3_KATAKANA 16) + +(defconstant-exported C3_HIRAGANA 32) + +(defconstant-exported C3_HALFWIDTH 64) + +(defconstant-exported C3_FULLWIDTH 128) + +(defconstant-exported C3_IDEOGRAPH 256) + +(defconstant-exported C3_KASHIDA 512) + +(defconstant-exported C3_LEXICAL 1024) + +(defconstant-exported C3_ALPHA 32768) + +(defconstant-exported C3_NOTAPPLICABLE 0) + +(defconstant-exported TIME_NOMINUTESORSECONDS 1) + +(defconstant-exported TIME_NOSECONDS 2) + +(defconstant-exported TIME_NOTIMEMARKER 4) + +(defconstant-exported TIME_FORCE24HOURFORMAT 8) + +(defconstant-exported MB_PRECOMPOSED 1) + +(defconstant-exported MB_COMPOSITE 2) + +(defconstant-exported MB_ERR_INVALID_CHARS 8) + +(defconstant-exported MB_USEGLYPHCHARS 4) + +(defconstant-exported WC_COMPOSITECHECK 512) + +(defconstant-exported WC_DISCARDNS 16) + +(defconstant-exported WC_SEPCHARS 32) + +(defconstant-exported WC_DEFAULTCHAR 64) + +(defconstant-exported CTRY_DEFAULT 0) + +(defconstant-exported CTRY_ALBANIA 355) + +(defconstant-exported CTRY_ALGERIA 213) + +(defconstant-exported CTRY_ARGENTINA 54) + +(defconstant-exported CTRY_ARMENIA 374) + +(defconstant-exported CTRY_AUSTRALIA 61) + +(defconstant-exported CTRY_AUSTRIA 43) + +(defconstant-exported CTRY_AZERBAIJAN 994) + +(defconstant-exported CTRY_BAHRAIN 973) + +(defconstant-exported CTRY_BELARUS 375) + +(defconstant-exported CTRY_BELGIUM 32) + +(defconstant-exported CTRY_BELIZE 501) + +(defconstant-exported CTRY_BOLIVIA 591) + +(defconstant-exported CTRY_BRAZIL 55) + +(defconstant-exported CTRY_BRUNEI_DARUSSALAM 673) + +(defconstant-exported CTRY_BULGARIA 359) + +(defconstant-exported CTRY_CANADA 2) + +(defconstant-exported CTRY_CARIBBEAN 1) + +(defconstant-exported CTRY_CHILE 56) + +(defconstant-exported CTRY_COLOMBIA 57) + +(defconstant-exported CTRY_COSTA_RICA 506) + +(defconstant-exported CTRY_CROATIA 385) + +(defconstant-exported CTRY_CZECH 420) + +(defconstant-exported CTRY_DENMARK 45) + +(defconstant-exported CTRY_DOMINICAN_REPUBLIC 1) + +(defconstant-exported CTRY_ECUADOR 593) + +(defconstant-exported CTRY_EGYPT 20) + +(defconstant-exported CTRY_EL_SALVADOR 503) + +(defconstant-exported CTRY_ESTONIA 372) + +(defconstant-exported CTRY_FAEROE_ISLANDS 298) + +(defconstant-exported CTRY_FINLAND 358) + +(defconstant-exported CTRY_FRANCE 33) + +(defconstant-exported CTRY_GEORGIA 995) + +(defconstant-exported CTRY_GERMANY 49) + +(defconstant-exported CTRY_GREECE 30) + +(defconstant-exported CTRY_GUATEMALA 502) + +(defconstant-exported CTRY_HONDURAS 504) + +(defconstant-exported CTRY_HONG_KONG 852) + +(defconstant-exported CTRY_HUNGARY 36) + +(defconstant-exported CTRY_ICELAND 354) + +(defconstant-exported CTRY_INDIA 91) + +(defconstant-exported CTRY_INDONESIA 62) + +(defconstant-exported CTRY_IRAN 981) + +(defconstant-exported CTRY_IRAQ 964) + +(defconstant-exported CTRY_IRELAND 353) + +(defconstant-exported CTRY_ISRAEL 972) + +(defconstant-exported CTRY_ITALY 39) + +(defconstant-exported CTRY_JAMAICA 1) + +(defconstant-exported CTRY_JAPAN 81) + +(defconstant-exported CTRY_JORDAN 962) + +(defconstant-exported CTRY_KAZAKSTAN 7) + +(defconstant-exported CTRY_KENYA 254) + +(defconstant-exported CTRY_KUWAIT 965) + +(defconstant-exported CTRY_KYRGYZSTAN 996) + +(defconstant-exported CTRY_LATVIA 371) + +(defconstant-exported CTRY_LEBANON 961) + +(defconstant-exported CTRY_LIBYA 218) + +(defconstant-exported CTRY_LIECHTENSTEIN 41) + +(defconstant-exported CTRY_LITHUANIA 370) + +(defconstant-exported CTRY_LUXEMBOURG 352) + +(defconstant-exported CTRY_MACAU 853) + +(defconstant-exported CTRY_MACEDONIA 389) + +(defconstant-exported CTRY_MALAYSIA 60) + +(defconstant-exported CTRY_MALDIVES 960) + +(defconstant-exported CTRY_MEXICO 52) + +(defconstant-exported CTRY_MONACO 33) + +(defconstant-exported CTRY_MONGOLIA 976) + +(defconstant-exported CTRY_MOROCCO 212) + +(defconstant-exported CTRY_NETHERLANDS 31) + +(defconstant-exported CTRY_NEW_ZEALAND 64) + +(defconstant-exported CTRY_NICARAGUA 505) + +(defconstant-exported CTRY_NORWAY 47) + +(defconstant-exported CTRY_OMAN 968) + +(defconstant-exported CTRY_PAKISTAN 92) + +(defconstant-exported CTRY_PANAMA 507) + +(defconstant-exported CTRY_PARAGUAY 595) + +(defconstant-exported CTRY_PERU 51) + +(defconstant-exported CTRY_PHILIPPINES 63) + +(defconstant-exported CTRY_POLAND 48) + +(defconstant-exported CTRY_PORTUGAL 351) + +(defconstant-exported CTRY_PRCHINA 86) + +(defconstant-exported CTRY_PUERTO_RICO 1) + +(defconstant-exported CTRY_QATAR 974) + +(defconstant-exported CTRY_ROMANIA 40) + +(defconstant-exported CTRY_RUSSIA 7) + +(defconstant-exported CTRY_SAUDI_ARABIA 966) + +(defconstant-exported CTRY_SERBIA 381) + +(defconstant-exported CTRY_SINGAPORE 65) + +(defconstant-exported CTRY_SLOVAK 421) + +(defconstant-exported CTRY_SLOVENIA 386) + +(defconstant-exported CTRY_SOUTH_AFRICA 27) + +(defconstant-exported CTRY_SOUTH_KOREA 82) + +(defconstant-exported CTRY_SPAIN 34) + +(defconstant-exported CTRY_SWEDEN 46) + +(defconstant-exported CTRY_SWITZERLAND 41) + +(defconstant-exported CTRY_SYRIA 963) + +(defconstant-exported CTRY_TAIWAN 886) + +(defconstant-exported CTRY_TATARSTAN 7) + +(defconstant-exported CTRY_THAILAND 66) + +(defconstant-exported CTRY_TRINIDAD_Y_TOBAGO 1) + +(defconstant-exported CTRY_TUNISIA 216) + +(defconstant-exported CTRY_TURKEY 90) + +(defconstant-exported CTRY_UAE 971) + +(defconstant-exported CTRY_UKRAINE 380) + +(defconstant-exported CTRY_UNITED_KINGDOM 44) + +(defconstant-exported CTRY_UNITED_STATES 1) + +(defconstant-exported CTRY_URUGUAY 598) + +(defconstant-exported CTRY_UZBEKISTAN 7) + +(defconstant-exported CTRY_VENEZUELA 58) + +(defconstant-exported CTRY_VIET_NAM 84) + +(defconstant-exported CTRY_YEMEN 967) + +(defconstant-exported CTRY_ZIMBABWE 263) + +(defconstant-exported CAL_ICALINTVALUE 1) + +(defconstant-exported CAL_SCALNAME 2) + +(defconstant-exported CAL_IYEAROFFSETRANGE 3) + +(defconstant-exported CAL_SERASTRING 4) + +(defconstant-exported CAL_SSHORTDATE 5) + +(defconstant-exported CAL_SLONGDATE 6) + +(defconstant-exported CAL_SDAYNAME1 7) + +(defconstant-exported CAL_SDAYNAME2 8) + +(defconstant-exported CAL_SDAYNAME3 9) + +(defconstant-exported CAL_SDAYNAME4 10) + +(defconstant-exported CAL_SDAYNAME5 11) + +(defconstant-exported CAL_SDAYNAME6 12) + +(defconstant-exported CAL_SDAYNAME7 13) + +(defconstant-exported CAL_SABBREVDAYNAME1 14) + +(defconstant-exported CAL_SABBREVDAYNAME2 15) + +(defconstant-exported CAL_SABBREVDAYNAME3 16) + +(defconstant-exported CAL_SABBREVDAYNAME4 17) + +(defconstant-exported CAL_SABBREVDAYNAME5 18) + +(defconstant-exported CAL_SABBREVDAYNAME6 19) + +(defconstant-exported CAL_SABBREVDAYNAME7 20) + +(defconstant-exported CAL_SMONTHNAME1 21) + +(defconstant-exported CAL_SMONTHNAME2 22) + +(defconstant-exported CAL_SMONTHNAME3 23) + +(defconstant-exported CAL_SMONTHNAME4 24) + +(defconstant-exported CAL_SMONTHNAME5 25) + +(defconstant-exported CAL_SMONTHNAME6 26) + +(defconstant-exported CAL_SMONTHNAME7 27) + +(defconstant-exported CAL_SMONTHNAME8 28) + +(defconstant-exported CAL_SMONTHNAME9 29) + +(defconstant-exported CAL_SMONTHNAME10 30) + +(defconstant-exported CAL_SMONTHNAME11 31) + +(defconstant-exported CAL_SMONTHNAME12 32) + +(defconstant-exported CAL_SMONTHNAME13 33) + +(defconstant-exported CAL_SABBREVMONTHNAME1 34) + +(defconstant-exported CAL_SABBREVMONTHNAME2 35) + +(defconstant-exported CAL_SABBREVMONTHNAME3 36) + +(defconstant-exported CAL_SABBREVMONTHNAME4 37) + +(defconstant-exported CAL_SABBREVMONTHNAME5 38) + +(defconstant-exported CAL_SABBREVMONTHNAME6 39) + +(defconstant-exported CAL_SABBREVMONTHNAME7 40) + +(defconstant-exported CAL_SABBREVMONTHNAME8 41) + +(defconstant-exported CAL_SABBREVMONTHNAME9 42) + +(defconstant-exported CAL_SABBREVMONTHNAME10 43) + +(defconstant-exported CAL_SABBREVMONTHNAME11 44) + +(defconstant-exported CAL_SABBREVMONTHNAME12 45) + +(defconstant-exported CAL_SABBREVMONTHNAME13 46) + +(defconstant-exported CAL_GREGORIAN 1) + +(defconstant-exported CAL_GREGORIAN_US 2) + +(defconstant-exported CAL_JAPAN 3) + +(defconstant-exported CAL_TAIWAN 4) + +(defconstant-exported CAL_KOREA 5) + +(defconstant-exported CAL_HIJRI 6) + +(defconstant-exported CAL_THAI 7) + +(defconstant-exported CAL_HEBREW 8) + +(defconstant-exported CAL_GREGORIAN_ME_FRENCH 9) + +(defconstant-exported CAL_GREGORIAN_ARABIC 10) + +(defconstant-exported CAL_GREGORIAN_XLIT_ENGLISH 11) + +(defconstant-exported CAL_GREGORIAN_XLIT_FRENCH 12) + +(defconstant-exported CSTR_LESS_THAN 1) + +(defconstant-exported CSTR_EQUAL 2) + +(defconstant-exported CSTR_GREATER_THAN 3) + +(defconstant-exported LGRPID_INSTALLED 1) + +(defconstant-exported LGRPID_SUPPORTED 2) + +(defconstant-exported LGRPID_WESTERN_EUROPE 1) + +(defconstant-exported LGRPID_CENTRAL_EUROPE 2) + +(defconstant-exported LGRPID_BALTIC 3) + +(defconstant-exported LGRPID_GREEK 4) + +(defconstant-exported LGRPID_CYRILLIC 5) + +(defconstant-exported LGRPID_TURKISH 6) + +(defconstant-exported LGRPID_JAPANESE 7) + +(defconstant-exported LGRPID_KOREAN 8) + +(defconstant-exported LGRPID_TRADITIONAL_CHINESE 9) + +(defconstant-exported LGRPID_SIMPLIFIED_CHINESE 10) + +(defconstant-exported LGRPID_THAI 11) + +(defconstant-exported LGRPID_HEBREW 12) + +(defconstant-exported LGRPID_ARABIC 13) + +(defconstant-exported LGRPID_VIETNAMESE 14) + +(defconstant-exported LGRPID_INDIC 15) + +(defconstant-exported LGRPID_GEORGIAN 16) + +(defconstant-exported LGRPID_ARMENIAN 17) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +(cffi:defcenum NLS_FUNCTION + (:COMPARE_STRING #.#x0001)) + +(cffi:defcenum SYSGEOCLASS + (:GEOCLASS_NATION #.16) + (:GEOCLASS_REGION #.14)) + +(cffi:defcenum SYSGEOTYPE + (:GEO_NATION #.#x0001) + (:GEO_LATITUDE #.#x0002) + (:GEO_LONGITUDE #.#x0003) + (:GEO_ISO2 #.#x0004) + (:GEO_ISO3 #.#x0005) + (:GEO_RFC1766 #.#x0006) + (:GEO_LCID #.#x0007) + (:GEO_FRIENDLYNAME #.#x0008) + (:GEO_OFFICIALNAME #.#x0009) + (:GEO_TIMEZONES #.#x000a) + (:GEO_OFFICIALLANGUAGES #.#x000a)) + +(defcstructex-exported CPINFO + (MaxCharSize :unsigned-int) + (DefaultChar :pointer) + (LeadByte :pointer)) + + + + + +(defcstructex-exported CPINFOEXA + (MaxCharSize :unsigned-int) + (DefaultChar :pointer) + (LeadByte :pointer) + (UnicodeDefaultChar :pointer) + (CodePage :unsigned-int) + (CodePageName :pointer)) + + + + + +(defcstructex-exported CPINFOEXW + (MaxCharSize :unsigned-int) + (DefaultChar :pointer) + (LeadByte :pointer) + (UnicodeDefaultChar :pointer) + (CodePage :unsigned-int) + (CodePageName :pointer)) + + + + + +(defcstructex-exported CURRENCYFMTA + (NumDigits :unsigned-int) + (LeadingZero :unsigned-int) + (Grouping :unsigned-int) + (lpDecimalSep :string) + (lpThousandSep :string) + (NegativeOrder :unsigned-int) + (PositiveOrder :unsigned-int) + (lpCurrencySymbol :string)) + + + + + +(defcstructex-exported CURRENCYFMTW + (NumDigits :unsigned-int) + (LeadingZero :unsigned-int) + (Grouping :unsigned-int) + (lpDecimalSep :pointer) + (lpThousandSep :pointer) + (NegativeOrder :unsigned-int) + (PositiveOrder :unsigned-int) + (lpCurrencySymbol :pointer)) + + + + + +(defcstructex-exported NLSVERSIONINFO + (dwNLSVersionInfoSize :unsigned-long) + (dwNLSVersion :unsigned-long) + (dwDefinedVersion :unsigned-long)) + + + + + +(defcstructex-exported NUMBERFMTA + (NumDigits :unsigned-int) + (LeadingZero :unsigned-int) + (Grouping :unsigned-int) + (lpDecimalSep :string) + (lpThousandSep :string) + (NegativeOrder :unsigned-int)) + + + + + +(defcstructex-exported NUMBERFMTW + (NumDigits :unsigned-int) + (LeadingZero :unsigned-int) + (Grouping :unsigned-int) + (lpDecimalSep :pointer) + (lpThousandSep :pointer) + (NegativeOrder :unsigned-int)) + + + + + +(defcfunex-exported ("EnumSystemGeoID" EnumSystemGeoID :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("GetCalendarInfoA" GetCalendarInfoA :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :string) + (arg4 :int) + (arg5 :pointer)) + +(defcfunex-exported ("GetCalendarInfoW" GetCalendarInfoW :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :int) + (arg5 :pointer)) + +(defcfunex-exported ("GetGeoInfoA" GetGeoInfoA :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :string) + (arg3 :int) + (arg4 :unsigned-short)) + +(defcfunex-exported ("GetGeoInfoW" GetGeoInfoW :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :int) + (arg4 :unsigned-short)) + +(defcfunex-exported ("GetLocaleInfoA" GetLocaleInfoA :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :string) + (arg3 :int)) + +(defcfunex-exported ("GetLocaleInfoW" GetLocaleInfoW :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :int)) + +(defcfunex-exported ("GetNLSVersion" GetNLSVersion :convention :stdcall) :int + (arg0 NLS_FUNCTION) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("GetSystemDefaultLangID" GetSystemDefaultLangID :convention :stdcall) :unsigned-short) + +(defcfunex-exported ("GetSystemDefaultLCID" GetSystemDefaultLCID :convention :stdcall) :unsigned-long) + +(defcfunex-exported ("GetThreadLocale" GetThreadLocale :convention :stdcall) :unsigned-long) + +(defcfunex-exported ("GetTimeFormatA" GetTimeFormatA :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :string) + (arg4 :string) + (arg5 :int)) + +(defcfunex-exported ("GetTimeFormatW" GetTimeFormatW :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :int)) + +(defcfunex-exported ("GetUserDefaultLangID" GetUserDefaultLangID :convention :stdcall) :unsigned-short) + +(defcfunex-exported ("GetUserDefaultLCID" GetUserDefaultLCID :convention :stdcall) :unsigned-long) + +(defcfunex-exported ("GetUserGeoID" GetUserGeoID :convention :stdcall) :unsigned-long + (arg0 :unsigned-long)) + +(defcfunex-exported ("IsDBCSLeadByte" IsDBCSLeadByte :convention :stdcall) :int + (arg0 :unsigned-char)) + +(defcfunex-exported ("IsNLSDefinedString" IsNLSDefinedString :convention :stdcall) :int + (arg0 NLS_FUNCTION) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :int)) + +(defcfunex-exported ("SetCalendarInfoA" SetCalendarInfoA :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :string)) + +(defcfunex-exported ("SetCalendarInfoW" SetCalendarInfoW :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("SetLocaleInfoA" SetLocaleInfoA :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :string)) + +(defcfunex-exported ("SetLocaleInfoW" SetLocaleInfoW :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("SetThreadLocale" SetThreadLocale :convention :stdcall) :int + (arg0 :unsigned-long)) + +(defcfunex-exported ("SetUserGeoID" SetUserGeoID :convention :stdcall) :int + (arg0 :unsigned-long)) + + + + diff --git a/modules/ime.lisp b/modules/ime.lisp new file mode 100644 index 0000000..a8cd463 --- /dev/null +++ b/modules/ime.lisp @@ -0,0 +1,900 @@ + +(cl:in-package w32apimod) + +(define-w32api-module ime :ime) + +(cl:in-package cl-w32api.module.ime) + + +(defconstant-exported WM_CONVERTREQUESTEX #x108) + +(defconstant-exported WM_IME_STARTCOMPOSITION #x10D) + +(defconstant-exported WM_IME_ENDCOMPOSITION #x10E) + +(defconstant-exported WM_IME_COMPOSITION #x10F) + +(defconstant-exported WM_IME_KEYLAST #x10F) + +(defconstant-exported WM_IME_SETCONTEXT #x281) + +(defconstant-exported WM_IME_NOTIFY #x282) + +(defconstant-exported WM_IME_CONTROL #x283) + +(defconstant-exported WM_IME_COMPOSITIONFULL #x284) + +(defconstant-exported WM_IME_SELECT #x285) + +(defconstant-exported WM_IME_CHAR #x286) + +(defconstant-exported WM_IME_KEYDOWN #x290) + +(defconstant-exported WM_IME_KEYUP #x291) + +(defconstant-exported IMC_GETCANDIDATEPOS 7) + +(defconstant-exported IMC_SETCANDIDATEPOS 8) + +(defconstant-exported IMC_GETCOMPOSITIONFONT 9) + +(defconstant-exported IMC_SETCOMPOSITIONFONT 10) + +(defconstant-exported IMC_GETCOMPOSITIONWINDOW 11) + +(defconstant-exported IMC_SETCOMPOSITIONWINDOW 12) + +(defconstant-exported IMC_GETSTATUSWINDOWPOS 15) + +(defconstant-exported IMC_SETSTATUSWINDOWPOS 16) + +(defconstant-exported IMC_CLOSESTATUSWINDOW #x21) + +(defconstant-exported IMC_OPENSTATUSWINDOW #x22) + +(defconstant-exported IMN_CLOSESTATUSWINDOW 1) + +(defconstant-exported IMN_OPENSTATUSWINDOW 2) + +(defconstant-exported IMN_CHANGECANDIDATE 3) + +(defconstant-exported IMN_CLOSECANDIDATE 4) + +(defconstant-exported IMN_OPENCANDIDATE 5) + +(defconstant-exported IMN_SETCONVERSIONMODE 6) + +(defconstant-exported IMN_SETSENTENCEMODE 7) + +(defconstant-exported IMN_SETOPENSTATUS 8) + +(defconstant-exported IMN_SETCANDIDATEPOS 9) + +(defconstant-exported IMN_SETCOMPOSITIONFONT 10) + +(defconstant-exported IMN_SETCOMPOSITIONWINDOW 11) + +(defconstant-exported IMN_SETSTATUSWINDOWPOS 12) + +(defconstant-exported IMN_GUIDELINE 13) + +(defconstant-exported IMN_PRIVATE 14) + +(defconstant-exported NI_OPENCANDIDATE 16) + +(defconstant-exported NI_CLOSECANDIDATE 17) + +(defconstant-exported NI_SELECTCANDIDATESTR 18) + +(defconstant-exported NI_CHANGECANDIDATELIST 19) + +(defconstant-exported NI_FINALIZECONVERSIONRESULT 20) + +(defconstant-exported NI_COMPOSITIONSTR 21) + +(defconstant-exported NI_SETCANDIDATE_PAGESTART 22) + +(defconstant-exported NI_SETCANDIDATE_PAGESIZE 23) + +(defconstant-exported NI_IMEMENUSELECTED 24) + +(defconstant-exported ISC_SHOWUICANDIDATEWINDOW 1) + +(defconstant-exported ISC_SHOWUICOMPOSITIONWINDOW #x80000000) + +(defconstant-exported ISC_SHOWUIGUIDELINE #x40000000) + +(defconstant-exported ISC_SHOWUIALLCANDIDATEWINDOW 15) + +(defconstant-exported ISC_SHOWUIALL #xC000000F) + +(defconstant-exported CPS_COMPLETE 1) + +(defconstant-exported CPS_CONVERT 2) + +(defconstant-exported CPS_REVERT 3) + +(defconstant-exported CPS_CANCEL 4) + +(defconstant-exported IME_CHOTKEY_IME_NONIME_TOGGLE 16) + +(defconstant-exported IME_CHOTKEY_SHAPE_TOGGLE 17) + +(defconstant-exported IME_CHOTKEY_SYMBOL_TOGGLE 18) + +(defconstant-exported IME_JHOTKEY_CLOSE_OPEN #x30) + +(defconstant-exported IME_KHOTKEY_SHAPE_TOGGLE #x50) + +(defconstant-exported IME_KHOTKEY_HANJACONVERT #x51) + +(defconstant-exported IME_KHOTKEY_ENGLISH #x52) + +(defconstant-exported IME_THOTKEY_IME_NONIME_TOGGLE #x70) + +(defconstant-exported IME_THOTKEY_SHAPE_TOGGLE #x71) + +(defconstant-exported IME_THOTKEY_SYMBOL_TOGGLE #x72) + +(defconstant-exported IME_HOTKEY_DSWITCH_FIRST 256) + +(defconstant-exported IME_HOTKEY_DSWITCH_LAST #x11F) + +(defconstant-exported IME_ITHOTKEY_RESEND_RESULTSTR 512) + +(defconstant-exported IME_ITHOTKEY_PREVIOUS_COMPOSITION 513) + +(defconstant-exported IME_ITHOTKEY_UISTYLE_TOGGLE 514) + +(defconstant-exported GCS_COMPREADSTR 1) + +(defconstant-exported GCS_COMPREADATTR 2) + +(defconstant-exported GCS_COMPREADCLAUSE 4) + +(defconstant-exported GCS_COMPSTR 8) + +(defconstant-exported GCS_COMPATTR 16) + +(defconstant-exported GCS_COMPCLAUSE 32) + +(defconstant-exported GCS_CURSORPOS 128) + +(defconstant-exported GCS_DELTASTART 256) + +(defconstant-exported GCS_RESULTREADSTR 512) + +(defconstant-exported GCS_RESULTREADCLAUSE 1024) + +(defconstant-exported GCS_RESULTSTR 2048) + +(defconstant-exported GCS_RESULTCLAUSE 4096) + +(defconstant-exported CS_INSERTCHAR #x2000) + +(defconstant-exported CS_NOMOVECARET #x4000) + +(defconstant-exported IMEVER_0310 #x3000A) + +(defconstant-exported IMEVER_0400 #x40000) + +(defconstant-exported IME_PROP_AT_CARET #x10000) + +(defconstant-exported IME_PROP_SPECIAL_UI #x20000) + +(defconstant-exported IME_PROP_CANDLIST_START_FROM_1 #x40000) + +(defconstant-exported IME_PROP_UNICODE #x80000) + +(defconstant-exported UI_CAP_2700 1) + +(defconstant-exported UI_CAP_ROT90 2) + +(defconstant-exported UI_CAP_ROTANY 4) + +(defconstant-exported SCS_CAP_COMPSTR 1) + +(defconstant-exported SCS_CAP_MAKEREAD 2) + +(defconstant-exported SELECT_CAP_CONVERSION 1) + +(defconstant-exported SELECT_CAP_SENTENCE 2) + +(defconstant-exported GGL_LEVEL 1) + +(defconstant-exported GGL_INDEX 2) + +(defconstant-exported GGL_STRING 3) + +(defconstant-exported GGL_PRIVATE 4) + +(defconstant-exported GL_LEVEL_NOGUIDELINE 0) + +(defconstant-exported GL_LEVEL_FATAL 1) + +(defconstant-exported GL_LEVEL_ERROR 2) + +(defconstant-exported GL_LEVEL_WARNING 3) + +(defconstant-exported GL_LEVEL_INFORMATION 4) + +(defconstant-exported GL_ID_UNKNOWN 0) + +(defconstant-exported GL_ID_NOMODULE 1) + +(defconstant-exported GL_ID_NODICTIONARY 16) + +(defconstant-exported GL_ID_CANNOTSAVE 17) + +(defconstant-exported GL_ID_NOCONVERT 32) + +(defconstant-exported GL_ID_TYPINGERROR 33) + +(defconstant-exported GL_ID_TOOMANYSTROKE 34) + +(defconstant-exported GL_ID_READINGCONFLICT 35) + +(defconstant-exported GL_ID_INPUTREADING 36) + +(defconstant-exported GL_ID_INPUTRADICAL 37) + +(defconstant-exported GL_ID_INPUTCODE 38) + +(defconstant-exported GL_ID_INPUTSYMBOL 39) + +(defconstant-exported GL_ID_CHOOSECANDIDATE 40) + +(defconstant-exported GL_ID_REVERSECONVERSION 41) + +(defconstant-exported GL_ID_PRIVATE_FIRST #x8000) + +(defconstant-exported GL_ID_PRIVATE_LAST #xFFFF) + +(defconstant-exported IGP_PROPERTY 4) + +(defconstant-exported IGP_CONVERSION 8) + +(defconstant-exported IGP_SENTENCE 12) + +(defconstant-exported IGP_UI 16) + +(defconstant-exported IGP_SETCOMPSTR #x14) + +(defconstant-exported IGP_SELECT #x18) + +(defconstant-exported SCS_SETSTR (cl:logior 1 8)) + +(defconstant-exported SCS_CHANGEATTR (cl:logior 2 16)) + +(defconstant-exported SCS_CHANGECLAUSE (cl:logior 4 32)) + +(defconstant-exported ATTR_INPUT 0) + +(defconstant-exported ATTR_TARGET_CONVERTED 1) + +(defconstant-exported ATTR_CONVERTED 2) + +(defconstant-exported ATTR_TARGET_NOTCONVERTED 3) + +(defconstant-exported ATTR_INPUT_ERROR 4) + +(defconstant-exported ATTR_FIXEDCONVERTED 5) + +(defconstant-exported CFS_DEFAULT 0) + +(defconstant-exported CFS_RECT 1) + +(defconstant-exported CFS_POINT 2) + +(defconstant-exported CFS_SCREEN 4) + +(defconstant-exported CFS_FORCE_POSITION 32) + +(defconstant-exported CFS_CANDIDATEPOS 64) + +(defconstant-exported CFS_EXCLUDE 128) + +(defconstant-exported GCL_CONVERSION 1) + +(defconstant-exported GCL_REVERSECONVERSION 2) + +(defconstant-exported GCL_REVERSE_LENGTH 3) + +(defconstant-exported IME_CMODE_ALPHANUMERIC 0) + +(defconstant-exported IME_CMODE_NATIVE 1) + +(defconstant-exported IME_CMODE_CHINESE 1) + +(defconstant-exported IME_CMODE_HANGEUL 1) + +(defconstant-exported IME_CMODE_HANGUL 1) + +(defconstant-exported IME_CMODE_JAPANESE 1) + +(defconstant-exported IME_CMODE_KATAKANA 2) + +(defconstant-exported IME_CMODE_LANGUAGE 3) + +(defconstant-exported IME_CMODE_FULLSHAPE 8) + +(defconstant-exported IME_CMODE_ROMAN 16) + +(defconstant-exported IME_CMODE_CHARCODE 32) + +(defconstant-exported IME_CMODE_HANJACONVERT 64) + +(defconstant-exported IME_CMODE_SOFTKBD 128) + +(defconstant-exported IME_CMODE_NOCONVERSION 256) + +(defconstant-exported IME_CMODE_EUDC 512) + +(defconstant-exported IME_CMODE_SYMBOL 1024) + +(defconstant-exported IME_CMODE_FIXED 2048) + +(defconstant-exported IME_SMODE_NONE 0) + +(defconstant-exported IME_SMODE_PLAURALCLAUSE 1) + +(defconstant-exported IME_SMODE_SINGLECONVERT 2) + +(defconstant-exported IME_SMODE_AUTOMATIC 4) + +(defconstant-exported IME_SMODE_PHRASEPREDICT 8) + +(defconstant-exported IME_CAND_UNKNOWN 0) + +(defconstant-exported IME_CAND_READ 1) + +(defconstant-exported IME_CAND_CODE 2) + +(defconstant-exported IME_CAND_MEANING 3) + +(defconstant-exported IME_CAND_RADICAL 4) + +(defconstant-exported IME_CAND_STROKE 5) + +(defconstant-exported IMM_ERROR_NODATA -1) + +(defconstant-exported IMM_ERROR_GENERAL -2) + +(defconstant-exported IME_CONFIG_GENERAL 1) + +(defconstant-exported IME_CONFIG_REGISTERWORD 2) + +(defconstant-exported IME_CONFIG_SELECTDICTIONARY 3) + +(defconstant-exported IME_ESC_QUERY_SUPPORT 3) + +(defconstant-exported IME_ESC_RESERVED_FIRST 4) + +(defconstant-exported IME_ESC_RESERVED_LAST #x7FF) + +(defconstant-exported IME_ESC_PRIVATE_FIRST #x800) + +(defconstant-exported IME_ESC_PRIVATE_LAST #xFFF) + +(defconstant-exported IME_ESC_SEQUENCE_TO_INTERNAL #x1001) + +(defconstant-exported IME_ESC_GET_EUDC_DICTIONARY #x1003) + +(defconstant-exported IME_ESC_SET_EUDC_DICTIONARY #x1004) + +(defconstant-exported IME_ESC_MAX_KEY #x1005) + +(defconstant-exported IME_ESC_IME_NAME #x1006) + +(defconstant-exported IME_ESC_SYNC_HOTKEY #x1007) + +(defconstant-exported IME_ESC_HANJA_MODE #x1008) + +(defconstant-exported IME_ESC_AUTOMATA #x1009) + +(defconstant-exported IME_REGWORD_STYLE_EUDC 1) + +(defconstant-exported IME_REGWORD_STYLE_USER_FIRST #x80000000) + +(defconstant-exported IME_REGWORD_STYLE_USER_LAST #xFFFFFFFF) + +(defconstant-exported SOFTKEYBOARD_TYPE_T1 1) + +(defconstant-exported SOFTKEYBOARD_TYPE_C1 2) + +(defconstant-exported IMEMENUITEM_STRING_SIZE 80) + +(defconstant-exported IACE_CHILDREN 1) + +(defconstant-exported IACE_DEFAULT 16) + +(defconstant-exported IACE_IGNORENOCONTEXT 32) + +(defconstant-exported IGIMIF_RIGHTMENU 1) + +(defconstant-exported IGIMII_CMODE 1) + +(defconstant-exported IGIMII_SMODE 2) + +(defconstant-exported IGIMII_CONFIGURE 4) + +(defconstant-exported IGIMII_TOOLS 8) + +(defconstant-exported IGIMII_HELP 16) + +(defconstant-exported IGIMII_OTHER 32) + +(defconstant-exported IGIMII_INPUTTOOLS 64) + +(defconstant-exported IMFT_RADIOCHECK 1) + +(defconstant-exported IMFT_SEPARATOR 2) + +(defconstant-exported IMFT_SUBMENU 4) + +(defconstant-exported IMFS_GRAYED 3) + +(defconstant-exported IMFS_DISABLED 3) + +(defconstant-exported IMFS_CHECKED 8) + +(defconstant-exported IMFS_HILITE 128) + +(defconstant-exported IMFS_ENABLED 0) + +(defconstant-exported IMFS_UNCHECKED 0) + +(defconstant-exported IMFS_UNHILITE 0) + +(defconstant-exported IMFS_DEFAULT 4096) + +(defconstant-exported STYLE_DESCRIPTION_SIZE 32) + + + + + + + +(defcstructex-exported COMPOSITIONFORM + (dwStyle :unsigned-long) + (ptCurrentPos (:inline POINT)) + (rcArea (:inline RECT))) + + + + + + + +(defcstructex-exported CANDIDATEFORM + (dwIndex :unsigned-long) + (dwStyle :unsigned-long) + (ptCurrentPos (:inline POINT)) + (rcArea (:inline RECT))) + + + + + + + +(defcstructex-exported CANDIDATELIST + (dwSize :unsigned-long) + (dwStyle :unsigned-long) + (dwCount :unsigned-long) + (dwSelection :unsigned-long) + (dwPageStart :unsigned-long) + (dwPageSize :unsigned-long) + (dwOffset :pointer)) + + + + + + + +(defcstructex-exported REGISTERWORDA + (lpReading :string) + (lpWord :string)) + + + + + + + +(defcstructex-exported REGISTERWORDW + (lpReading :pointer) + (lpWord :pointer)) + + + + + + + +(defcstructex-exported STYLEBUFA + (dwStyle :unsigned-long) + (szDescription :pointer)) + + + + + + + +(defcstructex-exported STYLEBUFW + (dwStyle :unsigned-long) + (szDescription :pointer)) + + + + + + + +(defcstructex-exported IMEMENUITEMINFOA + (cbSize :unsigned-int) + (fType :unsigned-int) + (fState :unsigned-int) + (wID :unsigned-int) + (hbmpChecked :pointer) + (hbmpUnchecked :pointer) + (dwItemData :unsigned-long) + (szString :pointer) + (hbmpItem :pointer)) + + + + + + + +(defcstructex-exported IMEMENUITEMINFOW + (cbSize :unsigned-int) + (fType :unsigned-int) + (fState :unsigned-int) + (wID :unsigned-int) + (hbmpChecked :pointer) + (hbmpUnchecked :pointer) + (dwItemData :unsigned-long) + (szString :pointer) + (hbmpItem :pointer)) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +(defcfunex-exported ("ImmInstallIMEA" ImmInstallIMEA :convention :stdcall) :pointer + (arg0 :string) + (arg1 :string)) + +(defcfunex-exported ("ImmInstallIMEW" ImmInstallIMEW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("ImmGetDefaultIMEWnd" ImmGetDefaultIMEWnd :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("ImmGetDescriptionA" ImmGetDescriptionA :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :string) + (arg2 :unsigned-int)) + +(defcfunex-exported ("ImmGetDescriptionW" ImmGetDescriptionW :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("ImmGetIMEFileNameA" ImmGetIMEFileNameA :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :string) + (arg2 :unsigned-int)) + +(defcfunex-exported ("ImmGetIMEFileNameW" ImmGetIMEFileNameW :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("ImmGetProperty" ImmGetProperty :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("ImmIsIME" ImmIsIME :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("ImmSimulateHotKey" ImmSimulateHotKey :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("ImmCreateContext" ImmCreateContext :convention :stdcall) :unsigned-long) + +(defcfunex-exported ("ImmDestroyContext" ImmDestroyContext :convention :stdcall) :int + (arg0 :unsigned-long)) + +(defcfunex-exported ("ImmGetContext" ImmGetContext :convention :stdcall) :unsigned-long + (arg0 :pointer)) + +(defcfunex-exported ("ImmReleaseContext" ImmReleaseContext :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("ImmAssociateContext" ImmAssociateContext :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("ImmGetCompositionStringA" ImmGetCompositionStringA :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long)) + +(defcfunex-exported ("ImmGetCompositionStringW" ImmGetCompositionStringW :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long)) + +(defcfunex-exported ("ImmSetCompositionStringA" ImmSetCompositionStringA :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :unsigned-long)) + +(defcfunex-exported ("ImmSetCompositionStringW" ImmSetCompositionStringW :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :unsigned-long)) + +(defcfunex-exported ("ImmGetCandidateListCountA" ImmGetCandidateListCountA :convention :stdcall) :unsigned-long + (arg0 :unsigned-long) + (arg1 :pointer)) + +(defcfunex-exported ("ImmGetCandidateListCountW" ImmGetCandidateListCountW :convention :stdcall) :unsigned-long + (arg0 :unsigned-long) + (arg1 :pointer)) + +(defcfunex-exported ("ImmGetCandidateListA" ImmGetCandidateListA :convention :stdcall) :unsigned-long + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long)) + +(defcfunex-exported ("ImmGetCandidateListW" ImmGetCandidateListW :convention :stdcall) :unsigned-long + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long)) + +(defcfunex-exported ("ImmGetGuideLineA" ImmGetGuideLineA :convention :stdcall) :unsigned-long + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :string) + (arg3 :unsigned-long)) + +(defcfunex-exported ("ImmGetGuideLineW" ImmGetGuideLineW :convention :stdcall) :unsigned-long + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long)) + +(defcfunex-exported ("ImmGetConversionStatus" ImmGetConversionStatus :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("ImmSetConversionStatus" ImmSetConversionStatus :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :unsigned-long)) + +(defcfunex-exported ("ImmGetOpenStatus" ImmGetOpenStatus :convention :stdcall) :int + (arg0 :unsigned-long)) + +(defcfunex-exported ("ImmSetOpenStatus" ImmSetOpenStatus :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :int)) + +(defcfunex-exported ("ImmGetCompositionFontA" ImmGetCompositionFontA :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :pointer)) + +(defcfunex-exported ("ImmGetCompositionFontW" ImmGetCompositionFontW :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :pointer)) + +(defcfunex-exported ("ImmSetCompositionFontA" ImmSetCompositionFontA :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :pointer)) + +(defcfunex-exported ("ImmSetCompositionFontW" ImmSetCompositionFontW :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :pointer)) + +(defcfunex-exported ("ImmConfigureIMEA" ImmConfigureIMEA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("ImmConfigureIMEW" ImmConfigureIMEW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("ImmEscapeA" ImmEscapeA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-int) + (arg3 :pointer)) + +(defcfunex-exported ("ImmEscapeW" ImmEscapeW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-int) + (arg3 :pointer)) + +(defcfunex-exported ("ImmGetConversionListA" ImmGetConversionListA :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :string) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :unsigned-int)) + +(defcfunex-exported ("ImmGetConversionListW" ImmGetConversionListW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :unsigned-int)) + +(defcfunex-exported ("ImmNotifyIME" ImmNotifyIME :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :unsigned-long)) + +(defcfunex-exported ("ImmGetStatusWindowPos" ImmGetStatusWindowPos :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :pointer)) + +(defcfunex-exported ("ImmSetStatusWindowPos" ImmSetStatusWindowPos :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :pointer)) + +(defcfunex-exported ("ImmGetCompositionWindow" ImmGetCompositionWindow :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :pointer)) + +(defcfunex-exported ("ImmSetCompositionWindow" ImmSetCompositionWindow :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :pointer)) + +(defcfunex-exported ("ImmGetCandidateWindow" ImmGetCandidateWindow :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("ImmSetCandidateWindow" ImmSetCandidateWindow :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :pointer)) + +(defcfunex-exported ("ImmIsUIMessageA" ImmIsUIMessageA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :int32)) + +(defcfunex-exported ("ImmIsUIMessageW" ImmIsUIMessageW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :int32)) + +(defcfunex-exported ("ImmGetVirtualKey" ImmGetVirtualKey :convention :stdcall) :unsigned-int + (arg0 :pointer)) + +(defcfunex-exported ("ImmRegisterWordA" ImmRegisterWordA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string) + (arg2 :unsigned-long) + (arg3 :string)) + +(defcfunex-exported ("ImmRegisterWordW" ImmRegisterWordW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("ImmUnregisterWordA" ImmUnregisterWordA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string) + (arg2 :unsigned-long) + (arg3 :string)) + +(defcfunex-exported ("ImmUnregisterWordW" ImmUnregisterWordW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("ImmGetRegisterWordStyleA" ImmGetRegisterWordStyleA :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :pointer)) + +(defcfunex-exported ("ImmGetRegisterWordStyleW" ImmGetRegisterWordStyleW :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :pointer)) + +(defcfunex-exported ("ImmEnumRegisterWordA" ImmEnumRegisterWordA :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :string) + (arg3 :unsigned-long) + (arg4 :string) + (arg5 :pointer)) + +(defcfunex-exported ("ImmEnumRegisterWordW" ImmEnumRegisterWordW :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :pointer)) + +(defcfunex-exported ("EnableEUDC" EnableEUDC :convention :stdcall) :int + (arg0 :int)) + +(defcfunex-exported ("ImmDisableIME" ImmDisableIME :convention :stdcall) :int + (arg0 :unsigned-long)) + +(defcfunex-exported ("ImmGetImeMenuItemsA" ImmGetImeMenuItemsA :convention :stdcall) :unsigned-long + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :unsigned-long)) + +(defcfunex-exported ("ImmGetImeMenuItemsW" ImmGetImeMenuItemsW :convention :stdcall) :unsigned-long + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :unsigned-long)) diff --git a/modules/lz.lisp b/modules/lz.lisp new file mode 100644 index 0000000..dd4de63 --- /dev/null +++ b/modules/lz.lisp @@ -0,0 +1,72 @@ + +(cl:in-package w32apimod) + +(define-w32api-module lz :lz) + +(cl:in-package cl-w32api.module.lz) + + + +(defconstant-exported LZERROR_BADINHANDLE -1) + +(defconstant-exported LZERROR_BADOUTHANDLE -2) + +(defconstant-exported LZERROR_READ -3) + +(defconstant-exported LZERROR_WRITE -4) + +(defconstant-exported LZERROR_GLOBALLOC -5) + +(defconstant-exported LZERROR_GLOBLOCK -6) + +(defconstant-exported LZERROR_BADVALUE -7) + +(defconstant-exported LZERROR_UNKNOWNALG -8) + +(defcfunex-exported ("CopyLZFile" CopyLZFile :convention :stdcall) :int32 + (arg0 :int) + (arg1 :int)) + +(defcfunex-exported ("GetExpandedNameA" GetExpandedNameA :convention :stdcall) :int + (arg0 :string) + (arg1 :string)) + +(defcfunex-exported ("GetExpandedNameW" GetExpandedNameW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("LZClose" LZClose :convention :stdcall) :void + (arg0 :int)) + +(defcfunex-exported ("LZCopy" LZCopy :convention :stdcall) :int32 + (arg0 :int) + (arg1 :int)) + +(defcfunex-exported ("LZDone" LZDone :convention :stdcall) :void) + +(defcfunex-exported ("LZInit" LZInit :convention :stdcall) :int + (arg0 :int)) + +(defcfunex-exported ("LZOpenFileA" LZOpenFileA :convention :stdcall) :int + (arg0 :string) + (arg1 :pointer) + (arg2 :unsigned-short)) + +(defcfunex-exported ("LZOpenFileW" LZOpenFileW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-short)) + +(defcfunex-exported ("LZRead" LZRead :convention :stdcall) :int + (arg0 :int) + (arg1 :string) + (arg2 :int)) + +(defcfunex-exported ("LZSeek" LZSeek :convention :stdcall) :int32 + (arg0 :int) + (arg1 :int32) + (arg2 :int)) + +(defcfunex-exported ("LZStart" LZStart :convention :stdcall) :int) + + diff --git a/modules/netbios.lisp b/modules/netbios.lisp new file mode 100644 index 0000000..81a63e8 --- /dev/null +++ b/modules/netbios.lisp @@ -0,0 +1,314 @@ + +(cl:in-package w32apimod) + +(define-w32api-module netbios :netbios) + +(cl:in-package cl-w32api.module.netbios) + + + + + + + + + + + + + + +(defconstant-exported NCBNAMSZ 16) + +(defconstant-exported MAX_LANA 254) + +(defconstant-exported NAME_FLAGS_MASK #x87) + +(defconstant-exported GROUP_NAME #x80) + +(defconstant-exported UNIQUE_NAME #x00) + +(defconstant-exported REGISTERING #x00) + +(defconstant-exported REGISTERED #x04) + +(defconstant-exported DEREGISTERED #x05) + +(defconstant-exported DUPLICATE #x06) + +(defconstant-exported DUPLICATE_DEREG #x07) + +(defconstant-exported LISTEN_OUTSTANDING #x01) + +(defconstant-exported CALL_PENDING #x02) + +(defconstant-exported SESSION_ESTABLISHED #x03) + +(defconstant-exported HANGUP_PENDING #x04) + +(defconstant-exported HANGUP_COMPLETE #x05) + +(defconstant-exported SESSION_ABORTED #x06) + +(defconstant-exported ALL_TRANSPORTS "M") + +(defconstant-exported MS_NBF "MNBF") + +(defconstant-exported NCBCALL #x10) + +(defconstant-exported NCBLISTEN #x11) + +(defconstant-exported NCBHANGUP #x12) + +(defconstant-exported NCBSEND #x14) + +(defconstant-exported NCBRECV #x15) + +(defconstant-exported NCBRECVANY #x16) + +(defconstant-exported NCBCHAINSEND #x17) + +(defconstant-exported NCBDGSEND #x20) + +(defconstant-exported NCBDGRECV #x21) + +(defconstant-exported NCBDGSENDBC #x22) + +(defconstant-exported NCBDGRECVBC #x23) + +(defconstant-exported NCBADDNAME #x30) + +(defconstant-exported NCBDELNAME #x31) + +(defconstant-exported NCBRESET #x32) + +(defconstant-exported NCBASTAT #x33) + +(defconstant-exported NCBSSTAT #x34) + +(defconstant-exported NCBCANCEL #x35) + +(defconstant-exported NCBADDGRNAME #x36) + +(defconstant-exported NCBENUM #x37) + +(defconstant-exported NCBUNLINK #x70) + +(defconstant-exported NCBSENDNA #x71) + +(defconstant-exported NCBCHAINSENDNA #x72) + +(defconstant-exported NCBLANSTALERT #x73) + +(defconstant-exported NCBACTION #x77) + +(defconstant-exported NCBFINDNAME #x78) + +(defconstant-exported NCBTRACE #x79) + +(defconstant-exported ASYNCH #x80) + +(defconstant-exported NRC_GOODRET #x00) + +(defconstant-exported NRC_BUFLEN #x01) + +(defconstant-exported NRC_ILLCMD #x03) + +(defconstant-exported NRC_CMDTMO #x05) + +(defconstant-exported NRC_INCOMP #x06) + +(defconstant-exported NRC_BADDR #x07) + +(defconstant-exported NRC_SNUMOUT #x08) + +(defconstant-exported NRC_NORES #x09) + +(defconstant-exported NRC_SCLOSED #x0a) + +(defconstant-exported NRC_CMDCAN #x0b) + +(defconstant-exported NRC_DUPNAME #x0d) + +(defconstant-exported NRC_NAMTFUL #x0e) + +(defconstant-exported NRC_ACTSES #x0f) + +(defconstant-exported NRC_LOCTFUL #x11) + +(defconstant-exported NRC_REMTFUL #x12) + +(defconstant-exported NRC_ILLNN #x13) + +(defconstant-exported NRC_NOCALL #x14) + +(defconstant-exported NRC_NOWILD #x15) + +(defconstant-exported NRC_INUSE #x16) + +(defconstant-exported NRC_NAMERR #x17) + +(defconstant-exported NRC_SABORT #x18) + +(defconstant-exported NRC_NAMCONF #x19) + +(defconstant-exported NRC_IFBUSY #x21) + +(defconstant-exported NRC_TOOMANY #x22) + +(defconstant-exported NRC_BRIDGE #x23) + +(defconstant-exported NRC_CANOCCR #x24) + +(defconstant-exported NRC_CANCEL #x26) + +(defconstant-exported NRC_DUPENV #x30) + +(defconstant-exported NRC_ENVNOTDEF #x34) + +(defconstant-exported NRC_OSRESNOTAV #x35) + +(defconstant-exported NRC_MAXAPPS #x36) + +(defconstant-exported NRC_NOSAPS #x37) + +(defconstant-exported NRC_NORESOURCES #x38) + +(defconstant-exported NRC_INVADDRESS #x39) + +(defconstant-exported NRC_INVDDID #x3B) + +(defconstant-exported NRC_LOCKFAIL #x3C) + +(defconstant-exported NRC_OPENERR #x3f) + +(defconstant-exported NRC_SYSTEM #x40) + +(defconstant-exported NRC_PENDING #xff) + +(defcstructex-exported ACTION_HEADER + (transport_id :unsigned-long) + (action_code :unsigned-short) + (reserved :unsigned-short)) + + + + + +(defcstructex-exported ADAPTER_STATUS + (adapter_address :pointer) + (rev_major :unsigned-char) + (reserved0 :unsigned-char) + (adapter_type :unsigned-char) + (rev_minor :unsigned-char) + (duration :unsigned-short) + (frmr_recv :unsigned-short) + (frmr_xmit :unsigned-short) + (iframe_recv_err :unsigned-short) + (xmit_aborts :unsigned-short) + (xmit_success :unsigned-long) + (recv_success :unsigned-long) + (iframe_xmit_err :unsigned-short) + (recv_buff_unavail :unsigned-short) + (t1_timeouts :unsigned-short) + (ti_timeouts :unsigned-short) + (reserved1 :unsigned-long) + (free_ncbs :unsigned-short) + (max_cfg_ncbs :unsigned-short) + (max_ncbs :unsigned-short) + (xmit_buf_unavail :unsigned-short) + (max_dgram_size :unsigned-short) + (pending_sess :unsigned-short) + (max_cfg_sess :unsigned-short) + (max_sess :unsigned-short) + (max_sess_pkt_size :unsigned-short) + (name_count :unsigned-short)) + + + + + +(defcstructex-exported FIND_NAME_BUFFER + (length :unsigned-char) + (access_control :unsigned-char) + (frame_control :unsigned-char) + (destination_addr :pointer) + (source_addr :pointer) + (routing_info :pointer)) + + + + + +(defcstructex-exported FIND_NAME_HEADER + (node_count :unsigned-short) + (reserved :unsigned-char) + (unique_group :unsigned-char)) + + + + + +(defcstructex-exported LANA_ENUM + (length :unsigned-char) + (lana :pointer)) + + + + + +(defcstructex-exported NAME_BUFFER + (name :pointer) + (name_num :unsigned-char) + (name_flags :unsigned-char)) + + + + + +(defcstructex-exported NCB + (ncb_command :unsigned-char) + (ncb_retcode :unsigned-char) + (ncb_lsn :unsigned-char) + (ncb_num :unsigned-char) + (ncb_buffer :pointer) + (ncb_length :unsigned-short) + (ncb_callname :pointer) + (ncb_name :pointer) + (ncb_rto :unsigned-char) + (ncb_sto :unsigned-char) + (ncb_post :pointer) + (ncb_lana_num :unsigned-char) + (ncb_cmd_cplt :unsigned-char) + (ncb_reserve :pointer) + (ncb_event :pointer)) + + + + + +(defcstructex-exported SESSION_BUFFER + (lsn :unsigned-char) + (state :unsigned-char) + (local_name :pointer) + (remote_name :pointer) + (rcvs_outstanding :unsigned-char) + (sends_outstanding :unsigned-char)) + + + + + +(defcstructex-exported SESSION_HEADER + (sess_name :unsigned-char) + (num_sess :unsigned-char) + (rcv_dg_outstanding :unsigned-char) + (rcv_any_outstanding :unsigned-char)) + + + + + +(defcfunex-exported ("Netbios" Netbios :convention :stdcall) :unsigned-char + (arg0 :pointer)) + diff --git a/modules/networking.lisp b/modules/networking.lisp new file mode 100644 index 0000000..538e476 --- /dev/null +++ b/modules/networking.lisp @@ -0,0 +1,670 @@ + +(cl:in-package w32apimod) + +(define-w32api-module networking :networking) + +(cl:in-package cl-w32api.module.networking) + + +(defconstant-exported WNNC_NET_MSNET #x00010000) + +(defconstant-exported WNNC_NET_LANMAN #x00020000) + +(defconstant-exported WNNC_NET_NETWARE #x00030000) + +(defconstant-exported WNNC_NET_VINES #x00040000) + +(defconstant-exported WNNC_NET_10NET #x00050000) + +(defconstant-exported WNNC_NET_LOCUS #x00060000) + +(defconstant-exported WNNC_NET_SUN_PC_NFS #x00070000) + +(defconstant-exported WNNC_NET_LANSTEP #x00080000) + +(defconstant-exported WNNC_NET_9TILES #x00090000) + +(defconstant-exported WNNC_NET_LANTASTIC #x000A0000) + +(defconstant-exported WNNC_NET_AS400 #x000B0000) + +(defconstant-exported WNNC_NET_FTP_NFS #x000C0000) + +(defconstant-exported WNNC_NET_PATHWORKS #x000D0000) + +(defconstant-exported WNNC_NET_LIFENET #x000E0000) + +(defconstant-exported WNNC_NET_POWERLAN #x000F0000) + +(defconstant-exported WNNC_NET_BWNFS #x00100000) + +(defconstant-exported WNNC_NET_COGENT #x00110000) + +(defconstant-exported WNNC_NET_FARALLON #x00120000) + +(defconstant-exported WNNC_NET_APPLETALK #x00130000) + +(defconstant-exported WNNC_NET_INTERGRAPH #x00140000) + +(defconstant-exported WNNC_NET_SYMFONET #x00150000) + +(defconstant-exported WNNC_NET_CLEARCASE #x00160000) + +(defconstant-exported WNNC_NET_FRONTIER #x00170000) + +(defconstant-exported WNNC_NET_BMC #x00180000) + +(defconstant-exported WNNC_NET_DCE #x00190000) + +(defconstant-exported WNNC_NET_AVID #x001A0000) + +(defconstant-exported WNNC_NET_DOCUSPACE #x001B0000) + +(defconstant-exported WNNC_NET_MANGOSOFT #x001C0000) + +(defconstant-exported WNNC_NET_SERNET #x001D0000) + +(defconstant-exported WNNC_NET_DECORB #x00200000) + +(defconstant-exported WNNC_NET_PROTSTOR #x00210000) + +(defconstant-exported WNNC_NET_FJ_REDIR #x00220000) + +(defconstant-exported WNNC_NET_DISTINCT #x00230000) + +(defconstant-exported WNNC_NET_TWINS #x00240000) + +(defconstant-exported WNNC_NET_RDR2SAMPLE #x00250000) + +(defconstant-exported WNNC_NET_CSC #x00260000) + +(defconstant-exported WNNC_NET_3IN1 #x00270000) + +(defconstant-exported WNNC_NET_EXTENDNET #x00290000) + +(defconstant-exported WNNC_NET_OBJECT_DIRE #x00300000) + +(defconstant-exported WNNC_NET_MASFAX #x00310000) + +(defconstant-exported WNNC_NET_HOB_NFS #x00320000) + +(defconstant-exported WNNC_NET_SHIVA #x00330000) + +(defconstant-exported WNNC_NET_IBMAL #x00340000) + +(defconstant-exported WNNC_CRED_MANAGER #xFFFF0000) + +(defconstant-exported RESOURCE_CONNECTED 1) + +(defconstant-exported RESOURCE_GLOBALNET 2) + +(defconstant-exported RESOURCE_REMEMBERED 3) + +(defconstant-exported RESOURCE_RECENT 4) + +(defconstant-exported RESOURCE_CONTEXT 5) + +(defconstant-exported RESOURCETYPE_ANY 0) + +(defconstant-exported RESOURCETYPE_DISK 1) + +(defconstant-exported RESOURCETYPE_PRINT 2) + +(defconstant-exported RESOURCETYPE_RESERVED 8) + +(defconstant-exported RESOURCETYPE_UNKNOWN #xFFFFFFFF) + +(defconstant-exported RESOURCEUSAGE_CONNECTABLE #x00000001) + +(defconstant-exported RESOURCEUSAGE_CONTAINER #x00000002) + +(defconstant-exported RESOURCEUSAGE_NOLOCALDEVICE #x00000004) + +(defconstant-exported RESOURCEUSAGE_SIBLING #x00000008) + +(defconstant-exported RESOURCEUSAGE_ATTACHED #x00000010) + +(defconstant-exported RESOURCEUSAGE_ALL (cl:logior #x00000001 #x00000002 #x00000010)) + +(defconstant-exported RESOURCEUSAGE_RESERVED #x80000000) + +(defconstant-exported RESOURCEDISPLAYTYPE_GENERIC 0) + +(defconstant-exported RESOURCEDISPLAYTYPE_DOMAIN 1) + +(defconstant-exported RESOURCEDISPLAYTYPE_SERVER 2) + +(defconstant-exported RESOURCEDISPLAYTYPE_SHARE 3) + +(defconstant-exported RESOURCEDISPLAYTYPE_FILE 4) + +(defconstant-exported RESOURCEDISPLAYTYPE_GROUP 5) + +(defconstant-exported RESOURCEDISPLAYTYPE_NETWORK 6) + +(defconstant-exported RESOURCEDISPLAYTYPE_ROOT 7) + +(defconstant-exported RESOURCEDISPLAYTYPE_SHAREADMIN 8) + +(defconstant-exported RESOURCEDISPLAYTYPE_DIRECTORY 9) + +(defconstant-exported RESOURCEDISPLAYTYPE_TREE 10) + +(defconstant-exported NETPROPERTY_PERSISTENT 1) + +(defconstant-exported CONNECT_UPDATE_PROFILE 1) + +(defconstant-exported CONNECT_UPDATE_RECENT 2) + +(defconstant-exported CONNECT_TEMPORARY 4) + +(defconstant-exported CONNECT_INTERACTIVE 8) + +(defconstant-exported CONNECT_PROMPT 16) + +(defconstant-exported CONNECT_NEED_DRIVE 32) + +(defconstant-exported CONNECT_REFCOUNT 64) + +(defconstant-exported CONNECT_REDIRECT 128) + +(defconstant-exported CONNECT_LOCALDRIVE 256) + +(defconstant-exported CONNECT_CURRENT_MEDIA 512) + +(defconstant-exported CONNDLG_RO_PATH 1) + +(defconstant-exported CONNDLG_CONN_POINT 2) + +(defconstant-exported CONNDLG_USE_MRU 4) + +(defconstant-exported CONNDLG_HIDE_BOX 8) + +(defconstant-exported CONNDLG_PERSIST 16) + +(defconstant-exported CONNDLG_NOT_PERSIST 32) + +(defconstant-exported DISC_UPDATE_PROFILE 1) + +(defconstant-exported DISC_NO_FORCE 64) + +(defconstant-exported WNFMT_MULTILINE 1) + +(defconstant-exported WNFMT_ABBREVIATED 2) + +(defconstant-exported WNFMT_INENUM 16) + +(defconstant-exported WNFMT_CONNECTION 32) + +(defconstant-exported WN_SUCCESS 0) + +(defconstant-exported WN_NO_ERROR 0) + +(defconstant-exported WN_NOT_SUPPORTED 50) + +(defconstant-exported WN_CANCEL 1223) + +(defconstant-exported WN_RETRY 1237) + +(defconstant-exported WN_NET_ERROR 59) + +(defconstant-exported WN_MORE_DATA 234) + +(defconstant-exported WN_BAD_POINTER 487) + +(defconstant-exported WN_BAD_VALUE 87) + +(defconstant-exported WN_BAD_USER 2202) + +(defconstant-exported WN_BAD_PASSWORD 86) + +(defconstant-exported WN_ACCESS_DENIED 5) + +(defconstant-exported WN_FUNCTION_BUSY 170) + +(defconstant-exported WN_WINDOWS_ERROR 59) + +(defconstant-exported WN_OUT_OF_MEMORY 8) + +(defconstant-exported WN_NO_NETWORK 1222) + +(defconstant-exported WN_EXTENDED_ERROR 1208) + +(defconstant-exported WN_BAD_LEVEL 124) + +(defconstant-exported WN_BAD_HANDLE 6) + +(defconstant-exported WN_NOT_INITIALIZING 1247) + +(defconstant-exported WN_NO_MORE_DEVICES 1248) + +(defconstant-exported WN_NOT_CONNECTED 2250) + +(defconstant-exported WN_OPEN_FILES 2401) + +(defconstant-exported WN_DEVICE_IN_USE 2404) + +(defconstant-exported WN_BAD_NETNAME 67) + +(defconstant-exported WN_BAD_LOCALNAME 1200) + +(defconstant-exported WN_ALREADY_CONNECTED 85) + +(defconstant-exported WN_DEVICE_ERROR 31) + +(defconstant-exported WN_CONNECTION_CLOSED 1201) + +(defconstant-exported WN_NO_NET_OR_BAD_PATH 1203) + +(defconstant-exported WN_BAD_PROVIDER 1204) + +(defconstant-exported WN_CANNOT_OPEN_PROFILE 1205) + +(defconstant-exported WN_BAD_PROFILE 1206) + +(defconstant-exported WN_BAD_DEV_TYPE 66) + +(defconstant-exported WN_DEVICE_ALREADY_REMEMBERED 1202) + +(defconstant-exported WN_NO_MORE_ENTRIES 259) + +(defconstant-exported WN_NOT_CONTAINER 1207) + +(defconstant-exported WN_NOT_AUTHENTICATED 1244) + +(defconstant-exported WN_NOT_LOGGED_ON 1245) + +(defconstant-exported WN_NOT_VALIDATED 1311) + +(defconstant-exported UNIVERSAL_NAME_INFO_LEVEL 1) + +(defconstant-exported REMOTE_NAME_INFO_LEVEL 2) + +(defconstant-exported NETINFO_DLL16 1) + +(defconstant-exported NETINFO_DISKRED 4) + +(defconstant-exported NETINFO_PRINTERRED 8) + +(defconstant-exported RP_LOGON 1) + +(defconstant-exported RP_INIFILE 2) + +(defconstant-exported PP_DISPLAYERRORS 1) + +(defconstant-exported WNCON_FORNETCARD 1) + +(defconstant-exported WNCON_NOTROUTED 2) + +(defconstant-exported WNCON_SLOWLINK 4) + +(defconstant-exported WNCON_DYNAMIC 8) + +(defcstructex-exported NETRESOURCEA + (dwScope :unsigned-long) + (dwType :unsigned-long) + (dwDisplayType :unsigned-long) + (dwUsage :unsigned-long) + (lpLocalName :string) + (lpRemoteName :string) + (lpComment :string) + (lpProvider :string)) + + + + + +(defcstructex-exported NETRESOURCEW + (dwScope :unsigned-long) + (dwType :unsigned-long) + (dwDisplayType :unsigned-long) + (dwUsage :unsigned-long) + (lpLocalName :pointer) + (lpRemoteName :pointer) + (lpComment :pointer) + (lpProvider :pointer)) + + + + + +(defcstructex-exported CONNECTDLGSTRUCTA + (cbStructure :unsigned-long) + (hwndOwner :pointer) + (lpConnRes :pointer) + (dwFlags :unsigned-long) + (dwDevNum :unsigned-long)) + + + + + +(defcstructex-exported CONNECTDLGSTRUCTW + (cbStructure :unsigned-long) + (hwndOwner :pointer) + (lpConnRes :pointer) + (dwFlags :unsigned-long) + (dwDevNum :unsigned-long)) + + + + + +(defcstructex-exported DISCDLGSTRUCTA + (cbStructure :unsigned-long) + (hwndOwner :pointer) + (lpLocalName :string) + (lpRemoteName :string) + (dwFlags :unsigned-long)) + + + + + +(defcstructex-exported DISCDLGSTRUCTW + (cbStructure :unsigned-long) + (hwndOwner :pointer) + (lpLocalName :pointer) + (lpRemoteName :pointer) + (dwFlags :unsigned-long)) + + + + + +(defcstructex-exported UNIVERSAL_NAME_INFOA + (lpUniversalName :string)) + + + + + +(defcstructex-exported UNIVERSAL_NAME_INFOW + (lpUniversalName :pointer)) + + + + + +(defcstructex-exported REMOTE_NAME_INFOA + (lpUniversalName :string) + (lpConnectionName :string) + (lpRemainingPath :string)) + + + + + +(defcstructex-exported REMOTE_NAME_INFOW + (lpUniversalName :pointer) + (lpConnectionName :pointer) + (lpRemainingPath :pointer)) + + + + + +(defcstructex-exported NETINFOSTRUCT + (cbStructure :unsigned-long) + (dwProviderVersion :unsigned-long) + (dwStatus :unsigned-long) + (dwCharacteristics :unsigned-long) + (dwHandle :unsigned-long) + (wNetType :unsigned-short) + (dwPrinters :unsigned-long) + (dwDrives :unsigned-long)) + + + + + + + + + + + + + + + + + +(defcstructex-exported NETCONNECTINFOSTRUCT + (cbStructure :unsigned-long) + (dwFlags :unsigned-long) + (dwSpeed :unsigned-long) + (dwDelay :unsigned-long) + (dwOptDataSize :unsigned-long)) + + + + + +(defcfunex-exported ("WNetAddConnectionA" WNetAddConnectionA :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :string) + (arg2 :string)) + +(defcfunex-exported ("WNetAddConnectionW" WNetAddConnectionW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("WNetAddConnection2A" WNetAddConnection2A :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :string) + (arg2 :string) + (arg3 :unsigned-long)) + +(defcfunex-exported ("WNetAddConnection2W" WNetAddConnection2W :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-long)) + +(defcfunex-exported ("WNetAddConnection3A" WNetAddConnection3A :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :string) + (arg3 :string) + (arg4 :unsigned-long)) + +(defcfunex-exported ("WNetAddConnection3W" WNetAddConnection3W :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :unsigned-long)) + +(defcfunex-exported ("WNetCancelConnectionA" WNetCancelConnectionA :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :int)) + +(defcfunex-exported ("WNetCancelConnectionW" WNetCancelConnectionW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("WNetCancelConnection2A" WNetCancelConnection2A :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :unsigned-long) + (arg2 :int)) + +(defcfunex-exported ("WNetCancelConnection2W" WNetCancelConnection2W :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :int)) + +(defcfunex-exported ("WNetGetConnectionA" WNetGetConnectionA :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :string) + (arg2 :pointer)) + +(defcfunex-exported ("WNetGetConnectionW" WNetGetConnectionW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("WNetUseConnectionA" WNetUseConnectionA :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :string) + (arg3 :string) + (arg4 :unsigned-long) + (arg5 :string) + (arg6 :pointer) + (arg7 :pointer)) + +(defcfunex-exported ("WNetUseConnectionW" WNetUseConnectionW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer) + (arg6 :pointer) + (arg7 :pointer)) + +(defcfunex-exported ("WNetSetConnectionA" WNetSetConnectionA :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("WNetSetConnectionW" WNetSetConnectionW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("WNetConnectionDialog" WNetConnectionDialog :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("WNetDisconnectDialog" WNetDisconnectDialog :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("WNetConnectionDialog1A" WNetConnectionDialog1A :convention :stdcall) :unsigned-long + (arg0 :pointer)) + +(defcfunex-exported ("WNetConnectionDialog1W" WNetConnectionDialog1W :convention :stdcall) :unsigned-long + (arg0 :pointer)) + +(defcfunex-exported ("WNetDisconnectDialog1A" WNetDisconnectDialog1A :convention :stdcall) :unsigned-long + (arg0 :pointer)) + +(defcfunex-exported ("WNetDisconnectDialog1W" WNetDisconnectDialog1W :convention :stdcall) :unsigned-long + (arg0 :pointer)) + +(defcfunex-exported ("WNetOpenEnumA" WNetOpenEnumA :convention :stdcall) :unsigned-long + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("WNetOpenEnumW" WNetOpenEnumW :convention :stdcall) :unsigned-long + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("WNetEnumResourceA" WNetEnumResourceA :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("WNetEnumResourceW" WNetEnumResourceW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("WNetCloseEnum" WNetCloseEnum :convention :stdcall) :unsigned-long + (arg0 :pointer)) + +(defcfunex-exported ("WNetGetUniversalNameA" WNetGetUniversalNameA :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("WNetGetUniversalNameW" WNetGetUniversalNameW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("WNetGetUserA" WNetGetUserA :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :string) + (arg2 :pointer)) + +(defcfunex-exported ("WNetGetUserW" WNetGetUserW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("WNetGetProviderNameA" WNetGetProviderNameA :convention :stdcall) :unsigned-long + (arg0 :unsigned-long) + (arg1 :string) + (arg2 :pointer)) + +(defcfunex-exported ("WNetGetProviderNameW" WNetGetProviderNameW :convention :stdcall) :unsigned-long + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("WNetGetNetworkInformationA" WNetGetNetworkInformationA :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :pointer)) + +(defcfunex-exported ("WNetGetNetworkInformationW" WNetGetNetworkInformationW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("WNetGetResourceInformationA" WNetGetResourceInformationA :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("WNetGetResourceInformationW" WNetGetResourceInformationW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("WNetGetResourceParentA" WNetGetResourceParentA :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("WNetGetResourceParentW" WNetGetResourceParentW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("WNetGetLastErrorA" WNetGetLastErrorA :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :string) + (arg2 :unsigned-long) + (arg3 :string) + (arg4 :unsigned-long)) + +(defcfunex-exported ("WNetGetLastErrorW" WNetGetLastErrorW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long)) + +(defcfunex-exported ("MultinetGetConnectionPerformanceA" MultinetGetConnectionPerformanceA :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("MultinetGetConnectionPerformanceW" MultinetGetConnectionPerformanceW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer)) + diff --git a/modules/registry.lisp b/modules/registry.lisp new file mode 100644 index 0000000..2744cc8 --- /dev/null +++ b/modules/registry.lisp @@ -0,0 +1,375 @@ +(cl:in-package w32apimod) + +(define-w32api-module shutdown :shutdown) + +(cl:in-package cl-w32api.module.shutdown) + +(defconstant-exported REG_CREATED_NEW_KEY 1) + +(defconstant-exported REG_OPENED_EXISTING_KEY 2) + +(defconstant-exported REG_NONE 0) + +(defconstant-exported REG_SZ 1) + +(defconstant-exported REG_EXPAND_SZ 2) + +(defconstant-exported REG_BINARY 3) + +(defconstant-exported REG_DWORD_LITTLE_ENDIAN 4) + +(defconstant-exported REG_DWORD 4) + +(defconstant-exported REG_DWORD_BIG_ENDIAN 5) + +(defconstant-exported REG_LINK 6) + +(defconstant-exported REG_MULTI_SZ 7) + +(defconstant-exported REG_RESOURCE_LIST 8) + +(defconstant-exported REG_FULL_RESOURCE_DESCRIPTOR 9) + +(defconstant-exported REG_RESOURCE_REQUIREMENTS_LIST 10) + +(defconstant-exported REG_QWORD_LITTLE_ENDIAN 11) + +(defconstant-exported REG_QWORD 11) + +(defconstant-exported REG_NOTIFY_CHANGE_NAME 1) + +(defconstant-exported REG_NOTIFY_CHANGE_ATTRIBUTES 2) + +(defconstant-exported REG_NOTIFY_CHANGE_LAST_SET 4) + +(defconstant-exported REG_NOTIFY_CHANGE_SECURITY 8) + + + +(defcstructex-exported VALENTA + (ve_valuename :string) + (ve_valuelen :unsigned-long) + (ve_valueptr :unsigned-long) + (ve_type :unsigned-long)) + + + + + +(defcstructex-exported VALENTW + (ve_valuename :pointer) + (ve_valuelen :unsigned-long) + (ve_valueptr :unsigned-long) + (ve_type :unsigned-long)) + + + +(defcfunex-exported ("RegCloseKey" RegCloseKey :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("RegConnectRegistryA" RegConnectRegistryA :convention :stdcall) :int32 + (arg0 :string) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("RegConnectRegistryW" RegConnectRegistryW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("RegCreateKeyA" RegCreateKeyA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :string) + (arg2 :pointer)) + +(defcfunex-exported ("RegCreateKeyExA" RegCreateKeyExA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :string) + (arg2 :unsigned-long) + (arg3 :string) + (arg4 :unsigned-long) + (arg5 :unsigned-long) + (arg6 :pointer) + (arg7 :pointer) + (arg8 :pointer)) + +(defcfunex-exported ("RegCreateKeyExW" RegCreateKeyExW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :unsigned-long) + (arg6 :pointer) + (arg7 :pointer) + (arg8 :pointer)) + +(defcfunex-exported ("RegCreateKeyW" RegCreateKeyW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("RegDeleteKeyA" RegDeleteKeyA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :string)) + +(defcfunex-exported ("RegDeleteKeyW" RegDeleteKeyW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("RegDeleteValueA" RegDeleteValueA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :string)) + +(defcfunex-exported ("RegDeleteValueW" RegDeleteValueW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("RegEnumKeyA" RegEnumKeyA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :string) + (arg3 :unsigned-long)) + +(defcfunex-exported ("RegEnumKeyW" RegEnumKeyW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long)) + +(defcfunex-exported ("RegEnumKeyExA" RegEnumKeyExA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :string) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :string) + (arg6 :pointer) + (arg7 :pointer)) + +(defcfunex-exported ("RegEnumKeyExW" RegEnumKeyExW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer) + (arg6 :pointer) + (arg7 :pointer)) + +(defcfunex-exported ("RegEnumValueA" RegEnumValueA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :string) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer) + (arg6 :pointer) + (arg7 :pointer)) + +(defcfunex-exported ("RegEnumValueW" RegEnumValueW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer) + (arg6 :pointer) + (arg7 :pointer)) + +(defcfunex-exported ("RegFlushKey" RegFlushKey :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("RegGetKeySecurity" RegGetKeySecurity :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("RegLoadKeyA" RegLoadKeyA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :string) + (arg2 :string)) + +(defcfunex-exported ("RegLoadKeyW" RegLoadKeyW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("RegNotifyChangeKeyValue" RegNotifyChangeKeyValue :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :int) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :int)) + +(defcfunex-exported ("RegOpenKeyA" RegOpenKeyA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :string) + (arg2 :pointer)) + +(defcfunex-exported ("RegOpenKeyExA" RegOpenKeyExA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :string) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :pointer)) + +(defcfunex-exported ("RegOpenKeyExW" RegOpenKeyExW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :pointer)) + +(defcfunex-exported ("RegOpenKeyW" RegOpenKeyW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("RegQueryInfoKeyA" RegQueryInfoKeyA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :string) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer) + (arg6 :pointer) + (arg7 :pointer) + (arg8 :pointer) + (arg9 :pointer) + (arg10 :pointer) + (arg11 :pointer)) + +(defcfunex-exported ("RegQueryInfoKeyW" RegQueryInfoKeyW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer) + (arg6 :pointer) + (arg7 :pointer) + (arg8 :pointer) + (arg9 :pointer) + (arg10 :pointer) + (arg11 :pointer)) + +(defcfunex-exported ("RegQueryMultipleValuesA" RegQueryMultipleValuesA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :string) + (arg4 :pointer)) + +(defcfunex-exported ("RegQueryMultipleValuesW" RegQueryMultipleValuesW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("RegQueryValueA" RegQueryValueA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :string) + (arg2 :string) + (arg3 :pointer)) + +(defcfunex-exported ("RegQueryValueExA" RegQueryValueExA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :string) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer)) + +(defcfunex-exported ("RegQueryValueExW" RegQueryValueExW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer)) + +(defcfunex-exported ("RegQueryValueW" RegQueryValueW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("RegReplaceKeyA" RegReplaceKeyA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :string) + (arg2 :string) + (arg3 :string)) + +(defcfunex-exported ("RegReplaceKeyW" RegReplaceKeyW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("RegRestoreKeyA" RegRestoreKeyA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :string) + (arg2 :unsigned-long)) + +(defcfunex-exported ("RegRestoreKeyW" RegRestoreKeyW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("RegSaveKeyA" RegSaveKeyA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :string) + (arg2 :pointer)) + +(defcfunex-exported ("RegSaveKeyW" RegSaveKeyW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("RegSetKeySecurity" RegSetKeySecurity :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("RegSetValueA" RegSetValueA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :string) + (arg2 :unsigned-long) + (arg3 :string) + (arg4 :unsigned-long)) + +(defcfunex-exported ("RegSetValueExA" RegSetValueExA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :string) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :unsigned-long)) + +(defcfunex-exported ("RegSetValueExW" RegSetValueExW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :unsigned-long)) + +(defcfunex-exported ("RegSetValueW" RegSetValueW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long)) + +(defcfunex-exported ("RegUnLoadKeyA" RegUnLoadKeyA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :string)) + +(defcfunex-exported ("RegUnLoadKeyW" RegUnLoadKeyW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + + diff --git a/modules/rpc.lisp b/modules/rpc.lisp new file mode 100644 index 0000000..816b70f --- /dev/null +++ b/modules/rpc.lisp @@ -0,0 +1,1361 @@ + +(cl:in-package w32apimod) + +(define-w32api-module rpc :rpc) + +(cl:in-package cl-w32api.module.rpc) + + +(defconstant-exported GUID_SECTION ".text") + +(defconstant-exported RPC_C_BINDING_INFINITE_TIMEOUT 10) + +(defconstant-exported RPC_C_BINDING_MIN_TIMEOUT 0) + +(defconstant-exported RPC_C_BINDING_DEFAULT_TIMEOUT 5) + +(defconstant-exported RPC_C_BINDING_MAX_TIMEOUT 9) + +(defconstant-exported RPC_C_CANCEL_INFINITE_TIMEOUT -1) + +(defconstant-exported RPC_C_LISTEN_MAX_CALLS_DEFAULT 1234) + +(defconstant-exported RPC_C_PROTSEQ_MAX_REQS_DEFAULT 10) + +(defconstant-exported RPC_C_BIND_TO_ALL_NICS 1) + +(defconstant-exported RPC_C_USE_INTERNET_PORT 1) + +(defconstant-exported RPC_C_USE_INTRANET_PORT 2) + +(defconstant-exported RPC_C_STATS_CALLS_IN 0) + +(defconstant-exported RPC_C_STATS_CALLS_OUT 1) + +(defconstant-exported RPC_C_STATS_PKTS_IN 2) + +(defconstant-exported RPC_C_STATS_PKTS_OUT 3) + +(defconstant-exported RPC_IF_AUTOLISTEN #x0001) + +(defconstant-exported RPC_IF_OLE 2) + +(defconstant-exported RPC_C_MGMT_INQ_IF_IDS 0) + +(defconstant-exported RPC_C_MGMT_INQ_PRINC_NAME 1) + +(defconstant-exported RPC_C_MGMT_INQ_STATS 2) + +(defconstant-exported RPC_C_MGMT_IS_SERVER_LISTEN 3) + +(defconstant-exported RPC_C_MGMT_STOP_SERVER_LISTEN 4) + +(defconstant-exported RPC_C_EP_ALL_ELTS 0) + +(defconstant-exported RPC_C_EP_MATCH_BY_IF 1) + +(defconstant-exported RPC_C_EP_MATCH_BY_OBJ 2) + +(defconstant-exported RPC_C_EP_MATCH_BY_BOTH 3) + +(defconstant-exported RPC_C_VERS_ALL 1) + +(defconstant-exported RPC_C_VERS_COMPATIBLE 2) + +(defconstant-exported RPC_C_VERS_EXACT 3) + +(defconstant-exported RPC_C_VERS_MAJOR_ONLY 4) + +(defconstant-exported RPC_C_VERS_UPTO 5) + +(defconstant-exported DCE_C_ERROR_STRING_LEN 256) + +(defconstant-exported RPC_C_PARM_MAX_PACKET_LENGTH 1) + +(defconstant-exported RPC_C_PARM_BUFFER_LENGTH 2) + +(defconstant-exported RPC_C_AUTHN_LEVEL_DEFAULT 0) + +(defconstant-exported RPC_C_AUTHN_LEVEL_NONE 1) + +(defconstant-exported RPC_C_AUTHN_LEVEL_CONNECT 2) + +(defconstant-exported RPC_C_AUTHN_LEVEL_CALL 3) + +(defconstant-exported RPC_C_AUTHN_LEVEL_PKT 4) + +(defconstant-exported RPC_C_AUTHN_LEVEL_PKT_INTEGRITY 5) + +(defconstant-exported RPC_C_AUTHN_LEVEL_PKT_PRIVACY 6) + +(defconstant-exported RPC_C_IMP_LEVEL_ANONYMOUS 1) + +(defconstant-exported RPC_C_IMP_LEVEL_IDENTIFY 2) + +(defconstant-exported RPC_C_IMP_LEVEL_IMPERSONATE 3) + +(defconstant-exported RPC_C_IMP_LEVEL_DELEGATE 4) + +(defconstant-exported RPC_C_QOS_IDENTITY_STATIC 0) + +(defconstant-exported RPC_C_QOS_IDENTITY_DYNAMIC 1) + +(defconstant-exported RPC_C_QOS_CAPABILITIES_DEFAULT 0) + +(defconstant-exported RPC_C_QOS_CAPABILITIES_MUTUAL_AUTH 1) + +(defconstant-exported RPC_C_AUTHN_NONE 0) + +(defconstant-exported RPC_C_AUTHN_DCE_PRIVATE 1) + +(defconstant-exported RPC_C_AUTHN_DCE_PUBLIC 2) + +(defconstant-exported RPC_C_AUTHN_DEC_PUBLIC 4) + +(defconstant-exported RPC_C_AUTHN_WINNT 10) + +(defconstant-exported RPC_C_AUTHN_DEFAULT #xFFFFFFFF) + +(defconstant-exported SEC_WINNT_AUTH_IDENTITY_ANSI #x1) + +(defconstant-exported SEC_WINNT_AUTH_IDENTITY_UNICODE #x2) + +(defconstant-exported RPC_C_AUTHZ_NONE 0) + +(defconstant-exported RPC_C_AUTHZ_NAME 1) + +(defconstant-exported RPC_C_AUTHZ_DCE 2) + +(defconstant-exported RPC_C_AUTHZ_DEFAULT #xFFFFFFFF) + + + + + +(defcstructex-exported RPC_BINDING_VECTOR + (Count :unsigned-long) + (BindingH :pointer)) + + + +(defcstructex-exported UUID_VECTOR + (Count :unsigned-long) + (Uuid :pointer)) + + + + + +(defcstructex-exported RPC_IF_ID + (Uuid GUID) + (VersMajor :unsigned-short) + (VersMinor :unsigned-short)) + + + +(defcstructex-exported RPC_POLICY + (Length :unsigned-int) + (EndpointFlags :unsigned-long) + (NICFlags :unsigned-long)) + + + + + + + + + +(defcstructex-exported RPC_STATS_VECTOR + (Count :unsigned-int) + (Stats :pointer)) + +(defcstructex-exported RPC_IF_ID_VECTOR + (Count :unsigned-long) + (IfId :pointer)) + + + + + +(defcstructex-exported RPC_SECURITY_QOS + (Version :unsigned-long) + (Capabilities :unsigned-long) + (IdentityTracking :unsigned-long) + (ImpersonationType :unsigned-long)) + + + + + +(defcstructex-exported SEC_WINNT_AUTH_IDENTITY_W + (User :pointer) + (UserLength :unsigned-long) + (Domain :pointer) + (DomainLength :unsigned-long) + (Password :pointer) + (PasswordLength :unsigned-long) + (Flags :unsigned-long)) + + + + + +(defcstructex-exported SEC_WINNT_AUTH_IDENTITY_A + (User :pointer) + (UserLength :unsigned-long) + (Domain :pointer) + (DomainLength :unsigned-long) + (Password :pointer) + (PasswordLength :unsigned-long) + (Flags :unsigned-long)) + + + + + +(defcstructex-exported RPC_CLIENT_INFORMATION1 + (UserName :pointer) + (ComputerName :pointer) + (Privilege :unsigned-short) + (AuthFlags :unsigned-long)) + + + + + + + +(defcstructex-exported RPC_PROTSEQ_VECTORA + (Count :unsigned-int) + (Protseq :pointer)) + + + +(defcstructex-exported RPC_PROTSEQ_VECTORW + (Count :unsigned-int) + (Protseq :pointer)) + + + +(defcfunex-exported ("RpcBindingFromStringBindingA" RpcBindingFromStringBindingA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("RpcBindingFromStringBindingW" RpcBindingFromStringBindingW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("RpcBindingToStringBindingA" RpcBindingToStringBindingA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("RpcBindingToStringBindingW" RpcBindingToStringBindingW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("RpcStringBindingComposeA" RpcStringBindingComposeA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer)) + +(defcfunex-exported ("RpcStringBindingComposeW" RpcStringBindingComposeW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer)) + +(defcfunex-exported ("RpcStringBindingParseA" RpcStringBindingParseA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer)) + +(defcfunex-exported ("RpcStringBindingParseW" RpcStringBindingParseW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer)) + +(defcfunex-exported ("RpcStringFreeA" RpcStringFreeA :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("RpcStringFreeW" RpcStringFreeW :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("RpcNetworkIsProtseqValidA" RpcNetworkIsProtseqValidA :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("RpcNetworkIsProtseqValidW" RpcNetworkIsProtseqValidW :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("RpcNetworkInqProtseqsA" RpcNetworkInqProtseqsA :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("RpcNetworkInqProtseqsW" RpcNetworkInqProtseqsW :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("RpcProtseqVectorFreeA" RpcProtseqVectorFreeA :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("RpcProtseqVectorFreeW" RpcProtseqVectorFreeW :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("RpcServerUseProtseqA" RpcServerUseProtseqA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :pointer)) + +(defcfunex-exported ("RpcServerUseProtseqW" RpcServerUseProtseqW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :pointer)) + +(defcfunex-exported ("RpcServerUseProtseqExA" RpcServerUseProtseqExA :convention :stdcall) :int32 + (arg0 :pointer) + (MaxCalls :unsigned-int) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("RpcServerUseProtseqExW" RpcServerUseProtseqExW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("RpcServerUseProtseqEpA" RpcServerUseProtseqEpA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("RpcServerUseProtseqEpExA" RpcServerUseProtseqEpExA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("RpcServerUseProtseqEpW" RpcServerUseProtseqEpW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("RpcServerUseProtseqEpExW" RpcServerUseProtseqEpExW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("RpcServerUseProtseqIfA" RpcServerUseProtseqIfA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("RpcServerUseProtseqIfExA" RpcServerUseProtseqIfExA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("RpcServerUseProtseqIfW" RpcServerUseProtseqIfW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("RpcServerUseProtseqIfExW" RpcServerUseProtseqIfExW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("RpcMgmtInqServerPrincNameA" RpcMgmtInqServerPrincNameA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("RpcMgmtInqServerPrincNameW" RpcMgmtInqServerPrincNameW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("RpcServerInqDefaultPrincNameA" RpcServerInqDefaultPrincNameA :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer)) + +(defcfunex-exported ("RpcServerInqDefaultPrincNameW" RpcServerInqDefaultPrincNameW :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer)) + +(defcfunex-exported ("RpcNsBindingInqEntryNameA" RpcNsBindingInqEntryNameA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("RpcNsBindingInqEntryNameW" RpcNsBindingInqEntryNameW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("RpcBindingInqAuthClientA" RpcBindingInqAuthClientA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer)) + +(defcfunex-exported ("RpcBindingInqAuthClientW" RpcBindingInqAuthClientW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer)) + +(defcfunex-exported ("RpcBindingInqAuthInfoA" RpcBindingInqAuthInfoA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer)) + +(defcfunex-exported ("RpcBindingInqAuthInfoW" RpcBindingInqAuthInfoW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer)) + +(defcfunex-exported ("RpcBindingSetAuthInfoA" RpcBindingSetAuthInfoA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :unsigned-long)) + +(defcfunex-exported ("RpcBindingSetAuthInfoExA" RpcBindingSetAuthInfoExA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :unsigned-long) + (arg6 :pointer)) + +(defcfunex-exported ("RpcBindingSetAuthInfoW" RpcBindingSetAuthInfoW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :unsigned-long)) + +(defcfunex-exported ("RpcBindingSetAuthInfoExW" RpcBindingSetAuthInfoExW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :unsigned-long) + (arg6 :pointer)) + +(defcfunex-exported ("RpcBindingInqAuthInfoExA" RpcBindingInqAuthInfoExA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer) + (arg6 :unsigned-long) + (arg7 :pointer)) + +(defcfunex-exported ("RpcBindingInqAuthInfoExW" RpcBindingInqAuthInfoExW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer) + (arg6 :unsigned-long) + (arg7 :pointer)) + + + +(defcfunex-exported ("RpcServerRegisterAuthInfoA" RpcServerRegisterAuthInfoA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("RpcServerRegisterAuthInfoW" RpcServerRegisterAuthInfoW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("UuidToStringA" UuidToStringA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("UuidFromStringA" UuidFromStringA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("UuidToStringW" UuidToStringW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("UuidFromStringW" UuidFromStringW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("RpcEpRegisterNoReplaceA" RpcEpRegisterNoReplaceA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("RpcEpRegisterNoReplaceW" RpcEpRegisterNoReplaceW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("RpcEpRegisterA" RpcEpRegisterA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("RpcEpRegisterW" RpcEpRegisterW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("DceErrorInqTextA" DceErrorInqTextA :convention :stdcall) :int32 + (arg0 :int32) + (arg1 :pointer)) + +(defcfunex-exported ("DceErrorInqTextW" DceErrorInqTextW :convention :stdcall) :int32 + (arg0 :int32) + (arg1 :pointer)) + +(defcfunex-exported ("RpcMgmtEpEltInqNextA" RpcMgmtEpEltInqNextA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("RpcMgmtEpEltInqNextW" RpcMgmtEpEltInqNextW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("RpcBindingCopy" RpcBindingCopy :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("RpcBindingFree" RpcBindingFree :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("RpcBindingInqObject" RpcBindingInqObject :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("RpcBindingReset" RpcBindingReset :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("RpcBindingSetObject" RpcBindingSetObject :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("RpcMgmtInqDefaultProtectLevel" RpcMgmtInqDefaultProtectLevel :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer)) + +(defcfunex-exported ("RpcBindingVectorFree" RpcBindingVectorFree :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("RpcIfInqId" RpcIfInqId :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("RpcMgmtInqComTimeout" RpcMgmtInqComTimeout :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("RpcMgmtSetComTimeout" RpcMgmtSetComTimeout :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-int)) + +(defcfunex-exported ("RpcMgmtSetCancelTimeout" RpcMgmtSetCancelTimeout :convention :stdcall) :int32 + (Timeout :int32)) + +(defcfunex-exported ("RpcObjectInqType" RpcObjectInqType :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("RpcObjectSetInqFn" RpcObjectSetInqFn :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("RpcObjectSetType" RpcObjectSetType :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("RpcServerInqIf" RpcServerInqIf :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("RpcServerListen" RpcServerListen :convention :stdcall) :int32 + (arg0 :unsigned-int) + (arg1 :unsigned-int) + (arg2 :unsigned-int)) + +(defcfunex-exported ("RpcServerRegisterIf" RpcServerRegisterIf :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("RpcServerRegisterIfEx" RpcServerRegisterIfEx :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-int) + (arg4 :unsigned-int) + (arg5 :pointer)) + +(defcfunex-exported ("RpcServerRegisterIf2" RpcServerRegisterIf2 :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-int) + (arg4 :unsigned-int) + (arg5 :unsigned-int) + (arg6 :pointer)) + +(defcfunex-exported ("RpcServerUnregisterIf" RpcServerUnregisterIf :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("RpcServerUseAllProtseqs" RpcServerUseAllProtseqs :convention :stdcall) :int32 + (arg0 :unsigned-int) + (arg1 :pointer)) + +(defcfunex-exported ("RpcServerUseAllProtseqsEx" RpcServerUseAllProtseqsEx :convention :stdcall) :int32 + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("RpcServerUseAllProtseqsIf" RpcServerUseAllProtseqsIf :convention :stdcall) :int32 + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("RpcServerUseAllProtseqsIfEx" RpcServerUseAllProtseqsIfEx :convention :stdcall) :int32 + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("RpcMgmtStatsVectorFree" RpcMgmtStatsVectorFree :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("RpcMgmtInqStats" RpcMgmtInqStats :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("RpcMgmtIsServerListening" RpcMgmtIsServerListening :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("RpcMgmtStopServerListening" RpcMgmtStopServerListening :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("RpcMgmtWaitServerListen" RpcMgmtWaitServerListen :convention :stdcall) :int32) + +(defcfunex-exported ("RpcMgmtSetServerStackSize" RpcMgmtSetServerStackSize :convention :stdcall) :int32 + (arg0 :unsigned-long)) + +(defcfunex-exported ("RpcSsDontSerializeContext" RpcSsDontSerializeContext :convention :stdcall) :void) + +(defcfunex-exported ("RpcMgmtEnableIdleCleanup" RpcMgmtEnableIdleCleanup :convention :stdcall) :int32) + +(defcfunex-exported ("RpcMgmtInqIfIds" RpcMgmtInqIfIds :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("RpcIfIdVectorFree" RpcIfIdVectorFree :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("RpcEpResolveBinding" RpcEpResolveBinding :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("RpcBindingServerFromClient" RpcBindingServerFromClient :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("RpcRaiseException" RpcRaiseException :convention :stdcall) :void + (arg0 :int32)) + +(defcfunex-exported ("RpcTestCancel" RpcTestCancel :convention :stdcall) :int32) + +(defcfunex-exported ("RpcCancelThread" RpcCancelThread :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("UuidCreate" UuidCreate :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("UuidCompare" UuidCompare :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("UuidCreateNil" UuidCreateNil :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("UuidEqual" UuidEqual :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("UuidHash" UuidHash :convention :stdcall) :unsigned-short + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("UuidIsNil" UuidIsNil :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("RpcEpUnregister" RpcEpUnregister :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("RpcMgmtEpEltInqBegin" RpcMgmtEpEltInqBegin :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :pointer)) + +(defcfunex-exported ("RpcMgmtEpEltInqDone" RpcMgmtEpEltInqDone :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("RpcMgmtEpUnregister" RpcMgmtEpUnregister :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("RpcMgmtSetAuthorizationFn" RpcMgmtSetAuthorizationFn :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("RpcMgmtInqParameter" RpcMgmtInqParameter :convention :stdcall) :int32 + (arg0 :unsigned-int) + (arg1 :pointer)) + +(defcfunex-exported ("RpcMgmtSetParameter" RpcMgmtSetParameter :convention :stdcall) :int32 + (arg0 :unsigned-int) + (arg1 :unsigned-long)) + +(defcfunex-exported ("RpcMgmtBindingInqParameter" RpcMgmtBindingInqParameter :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :pointer)) + +(defcfunex-exported ("RpcMgmtBindingSetParameter" RpcMgmtBindingSetParameter :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-long)) + +(defconstant-exported RPC_NCA_FLAGS_DEFAULT 0) + +(defconstant-exported RPC_NCA_FLAGS_IDEMPOTENT 1) + +(defconstant-exported RPC_NCA_FLAGS_BROADCAST 2) + +(defconstant-exported RPC_NCA_FLAGS_MAYBE 4) + +(defconstant-exported RPCFLG_ASYNCHRONOUS #x40000000) + +(defconstant-exported RPCFLG_INPUT_SYNCHRONOUS #x20000000) + +(defconstant-exported RPC_FLAGS_VALID_BIT #x8000) + +(defconstant-exported TRANSPORT_TYPE_CN 1) + +(defconstant-exported TRANSPORT_TYPE_DG 2) + +(defconstant-exported TRANSPORT_TYPE_LPC 4) + +(defconstant-exported TRANSPORT_TYPE_WMSG 8) + +(defcstructex-exported RPC_VERSION + (MajorVersion :unsigned-short) + (MinorVersion :unsigned-short)) + + + +(defcstructex-exported RPC_SYNTAX_IDENTIFIER + (SyntaxGUID GUID) + (SyntaxVersion RPC_VERSION)) + + + + + +(defcstructex-exported RPC_MESSAGE + (Handle :pointer) + (DataRepresentation :unsigned-long) + (Buffer :pointer) + (BufferLength :unsigned-int) + (ProcNum :unsigned-int) + (TransferSyntax :pointer) + (RpcInterfaceInformation :pointer) + (ReservedForRuntime :pointer) + (ManagerEpv :pointer) + (ImportContext :pointer) + (RpcFlags :unsigned-long)) + + + + + + + + + +(defcstructex-exported RPC_DISPATCH_TABLE + (DispatchTableCount :unsigned-int) + (DispatchTable :pointer) + (Reserved :int)) + + + +(defcstructex-exported RPC_PROTSEQ_ENDPOINT + (RpcProtocolSequence :pointer) + (Endpoint :pointer)) + + + + + +(defcstructex-exported RPC_SERVER_INTERFACE + (Length :unsigned-int) + (InterfaceId RPC_SYNTAX_IDENTIFIER) + (TransferSyntax RPC_SYNTAX_IDENTIFIER) + (DispatchTable :pointer) + (RpcProtseqEndpointCount :unsigned-int) + (RpcProtseqEndpoint :pointer) + (DefaultManagerEpv :pointer) + (InterpreterInfo :pointer)) + + + + + +(defcstructex-exported RPC_CLIENT_INTERFACE + (Length :unsigned-int) + (InterfaceId RPC_SYNTAX_IDENTIFIER) + (TransferSyntax RPC_SYNTAX_IDENTIFIER) + (DispatchTable :pointer) + (RpcProtseqEndpointCount :unsigned-int) + (RpcProtseqEndpoint :pointer) + (Reserved :unsigned-long) + (InterpreterInfo :pointer)) + + + + + + + +(defcstructex-exported RPC_TRANSFER_SYNTAX + (Uuid GUID) + (VersMajor :unsigned-short) + (VersMinor :unsigned-short)) + + + + + +(defcfunex-exported ("I_RpcGetBuffer" I_RpcGetBuffer :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("I_RpcSendReceive" I_RpcSendReceive :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("I_RpcSend" I_RpcSend :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("I_RpcFreeBuffer" I_RpcFreeBuffer :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("I_RpcRequestMutex" I_RpcRequestMutex :convention :stdcall) :void + (arg0 :pointer)) + +(defcfunex-exported ("I_RpcClearMutex" I_RpcClearMutex :convention :stdcall) :void + (arg0 :pointer)) + +(defcfunex-exported ("I_RpcDeleteMutex" I_RpcDeleteMutex :convention :stdcall) :void + (arg0 :pointer)) + +(defcfunex-exported ("I_RpcAllocate" I_RpcAllocate :convention :stdcall) :pointer + (arg0 :unsigned-int)) + +(defcfunex-exported ("I_RpcFree" I_RpcFree :convention :stdcall) :void + (arg0 :pointer)) + +(defcfunex-exported ("I_RpcPauseExecution" I_RpcPauseExecution :convention :stdcall) :void + (arg0 :unsigned-long)) + + + +(defcfunex-exported ("I_RpcMonitorAssociation" I_RpcMonitorAssociation :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("I_RpcStopMonitorAssociation" I_RpcStopMonitorAssociation :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("I_RpcGetCurrentCallHandle" I_RpcGetCurrentCallHandle :convention :stdcall) :pointer) + +(defcfunex-exported ("I_RpcGetAssociationContext" I_RpcGetAssociationContext :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("I_RpcSetAssociationContext" I_RpcSetAssociationContext :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("I_RpcNsBindingSetEntryName" I_RpcNsBindingSetEntryName :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("I_RpcBindingInqDynamicEndpoint" I_RpcBindingInqDynamicEndpoint :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("I_RpcBindingInqTransportType" I_RpcBindingInqTransportType :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("I_RpcIfInqTransferSyntaxes" I_RpcIfInqTransferSyntaxes :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int) + (arg3 :pointer)) + +(defcfunex-exported ("I_UuidCreate" I_UuidCreate :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("I_RpcBindingCopy" I_RpcBindingCopy :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("I_RpcBindingIsClientLocal" I_RpcBindingIsClientLocal :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("I_RpcSsDontSerializeContext" I_RpcSsDontSerializeContext :convention :stdcall) :void) + +(defcfunex-exported ("I_RpcServerRegisterForwardFunction" I_RpcServerRegisterForwardFunction :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("I_RpcConnectionInqSockBuffSize" I_RpcConnectionInqSockBuffSize :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("I_RpcConnectionSetSockBuffSize" I_RpcConnectionSetSockBuffSize :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :unsigned-long)) + +(defcfunex-exported ("I_RpcBindingSetAsync" I_RpcBindingSetAsync :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("I_RpcAsyncSendReceive" I_RpcAsyncSendReceive :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("I_RpcGetThreadWindowHandle" I_RpcGetThreadWindowHandle :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("I_RpcServerThreadPauseListening" I_RpcServerThreadPauseListening :convention :stdcall) :int32) + +(defcfunex-exported ("I_RpcServerThreadContinueListening" I_RpcServerThreadContinueListening :convention :stdcall) :int32) + +(defcfunex-exported ("I_RpcServerUnregisterEndpointA" I_RpcServerUnregisterEndpointA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("I_RpcServerUnregisterEndpointW" I_RpcServerUnregisterEndpointW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + + + +(defconstant-exported RPC_C_NS_SYNTAX_DEFAULT 0) + +(defconstant-exported RPC_C_NS_SYNTAX_DCE 3) + +(defconstant-exported RPC_C_PROFILE_DEFAULT_ELT 0) + +(defconstant-exported RPC_C_PROFILE_ALL_ELT 1) + +(defconstant-exported RPC_C_PROFILE_MATCH_BY_IF 2) + +(defconstant-exported RPC_C_PROFILE_MATCH_BY_MBR 3) + +(defconstant-exported RPC_C_PROFILE_MATCH_BY_BOTH 4) + +(defconstant-exported RPC_C_NS_DEFAULT_EXP_AGE -1) + +(defcfunex-exported ("RpcNsBindingExportA" RpcNsBindingExportA :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("RpcNsBindingUnexportA" RpcNsBindingUnexportA :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("RpcNsBindingLookupBeginA" RpcNsBindingLookupBeginA :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer)) + +(defcfunex-exported ("RpcNsBindingLookupNext" RpcNsBindingLookupNext :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("RpcNsBindingLookupDone" RpcNsBindingLookupDone :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("RpcNsGroupDeleteA" RpcNsGroupDeleteA :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer)) + +(defcfunex-exported ("RpcNsGroupMbrAddA" RpcNsGroupMbrAddA :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("RpcNsGroupMbrRemoveA" RpcNsGroupMbrRemoveA :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("RpcNsGroupMbrInqBeginA" RpcNsGroupMbrInqBeginA :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("RpcNsGroupMbrInqNextA" RpcNsGroupMbrInqNextA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("RpcNsGroupMbrInqDone" RpcNsGroupMbrInqDone :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("RpcNsProfileDeleteA" RpcNsProfileDeleteA :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer)) + +(defcfunex-exported ("RpcNsProfileEltAddA" RpcNsProfileEltAddA :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :unsigned-long) + (arg6 :pointer)) + +(defcfunex-exported ("RpcNsProfileEltRemoveA" RpcNsProfileEltRemoveA :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer)) + +(defcfunex-exported ("RpcNsProfileEltInqBeginA" RpcNsProfileEltInqBeginA :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :unsigned-long) + (arg6 :pointer) + (arg7 :pointer)) + +(defcfunex-exported ("RpcNsProfileEltInqNextA" RpcNsProfileEltInqNextA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("RpcNsProfileEltInqDone" RpcNsProfileEltInqDone :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("RpcNsEntryObjectInqNext" RpcNsEntryObjectInqNext :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("RpcNsEntryObjectInqDone" RpcNsEntryObjectInqDone :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("RpcNsEntryExpandNameA" RpcNsEntryExpandNameA :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("RpcNsMgmtBindingUnexportA" RpcNsMgmtBindingUnexportA :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer)) + +(defcfunex-exported ("RpcNsMgmtEntryCreateA" RpcNsMgmtEntryCreateA :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer)) + +(defcfunex-exported ("RpcNsMgmtEntryDeleteA" RpcNsMgmtEntryDeleteA :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer)) + +(defcfunex-exported ("RpcNsMgmtEntryInqIfIdsA" RpcNsMgmtEntryInqIfIdsA :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("RpcNsMgmtHandleSetExpAge" RpcNsMgmtHandleSetExpAge :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("RpcNsMgmtInqExpAge" RpcNsMgmtInqExpAge :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("RpcNsMgmtSetExpAge" RpcNsMgmtSetExpAge :convention :stdcall) :int32 + (arg0 :unsigned-long)) + +(defcfunex-exported ("RpcNsBindingImportNext" RpcNsBindingImportNext :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("RpcNsBindingImportDone" RpcNsBindingImportDone :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("RpcNsBindingSelect" RpcNsBindingSelect :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("RpcNsEntryObjectInqBeginA" RpcNsEntryObjectInqBeginA :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("RpcNsBindingImportBeginA" RpcNsBindingImportBeginA :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("RpcNsBindingExportW" RpcNsBindingExportW :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("RpcNsBindingUnexportW" RpcNsBindingUnexportW :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("RpcNsBindingLookupBeginW" RpcNsBindingLookupBeginW :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer)) + +(defcfunex-exported ("RpcNsGroupDeleteW" RpcNsGroupDeleteW :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer)) + +(defcfunex-exported ("RpcNsGroupMbrAddW" RpcNsGroupMbrAddW :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("RpcNsGroupMbrRemoveW" RpcNsGroupMbrRemoveW :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("RpcNsGroupMbrInqBeginW" RpcNsGroupMbrInqBeginW :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("RpcNsGroupMbrInqNextW" RpcNsGroupMbrInqNextW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("RpcNsProfileDeleteW" RpcNsProfileDeleteW :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer)) + +(defcfunex-exported ("RpcNsProfileEltAddW" RpcNsProfileEltAddW :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :unsigned-long) + (arg6 :pointer)) + +(defcfunex-exported ("RpcNsProfileEltRemoveW" RpcNsProfileEltRemoveW :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer)) + +(defcfunex-exported ("RpcNsProfileEltInqBeginW" RpcNsProfileEltInqBeginW :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :unsigned-long) + (arg6 :pointer) + (arg7 :pointer)) + +(defcfunex-exported ("RpcNsProfileEltInqNextW" RpcNsProfileEltInqNextW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("RpcNsEntryObjectInqBeginW" RpcNsEntryObjectInqBeginW :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("RpcNsEntryExpandNameW" RpcNsEntryExpandNameW :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("RpcNsMgmtBindingUnexportW" RpcNsMgmtBindingUnexportW :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer)) + +(defcfunex-exported ("RpcNsMgmtEntryCreateW" RpcNsMgmtEntryCreateW :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer)) + +(defcfunex-exported ("RpcNsMgmtEntryDeleteW" RpcNsMgmtEntryDeleteW :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer)) + +(defcfunex-exported ("RpcNsMgmtEntryInqIfIdsW" RpcNsMgmtEntryInqIfIdsW :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :unsigned-short) + (arg2 :pointer)) + +(defcfunex-exported ("RpcNsBindingImportBeginW" RpcNsBindingImportBeginW :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer)) + +(defconstant-exported RPC_S_OK 0) + +(defconstant-exported RPC_S_INVALID_ARG 87) + +(defconstant-exported RPC_S_OUT_OF_MEMORY 14) + +(defconstant-exported RPC_S_OUT_OF_THREADS 164) + +(defconstant-exported RPC_S_INVALID_LEVEL 87) + +(defconstant-exported RPC_S_BUFFER_TOO_SMALL 122) + +(defconstant-exported RPC_S_INVALID_SECURITY_DESC 1338) + +(defconstant-exported RPC_S_ACCESS_DENIED 5) + +(defconstant-exported RPC_S_SERVER_OUT_OF_MEMORY 1130) + +(defconstant-exported RPC_X_NO_MEMORY 14) + +(defconstant-exported RPC_X_INVALID_BOUND 1734) + +(defconstant-exported RPC_X_INVALID_TAG 1733) + +(defconstant-exported RPC_X_ENUM_VALUE_TOO_LARGE 1781) + +(defconstant-exported RPC_X_SS_CONTEXT_MISMATCH 6) + +(defconstant-exported RPC_X_INVALID_BUFFER 1784) + +(defconstant-exported RPC_X_INVALID_PIPE_OPERATION 1831) + +(defcfunex-exported ("RpcImpersonateClient" RpcImpersonateClient :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("RpcRevertToSelf" RpcRevertToSelf :convention :stdcall) :int32) + +(defcfunex-exported ("I_RpcMapWin32Status" I_RpcMapWin32Status :convention :stdcall) :int32 + (arg0 :int32)) diff --git a/modules/service.lisp b/modules/service.lisp new file mode 100644 index 0000000..5cddd5b --- /dev/null +++ b/modules/service.lisp @@ -0,0 +1,623 @@ + +(cl:in-package w32apimod) + +(define-w32api-module service :service) + +(cl:in-package cl-w32api.module.service) + + + +(defconstant-exported SERVICES_ACTIVE_DATABASEA "ServicesActive") + +(defconstant-exported SERVICES_FAILED_DATABASEA "ServicesFailed") + +(defconstant-exported SC_GROUP_IDENTIFIERA #\+) + +(defconstant-exported SC_MANAGER_ALL_ACCESS #xf003f) + +(defconstant-exported SC_MANAGER_CONNECT 1) + +(defconstant-exported SC_MANAGER_CREATE_SERVICE 2) + +(defconstant-exported SC_MANAGER_ENUMERATE_SERVICE 4) + +(defconstant-exported SC_MANAGER_LOCK 8) + +(defconstant-exported SC_MANAGER_QUERY_LOCK_STATUS 16) + +(defconstant-exported SC_MANAGER_MODIFY_BOOT_CONFIG 32) + +(defconstant-exported SERVICE_NO_CHANGE #xffffffff) + +(defconstant-exported SERVICE_STOPPED 1) + +(defconstant-exported SERVICE_START_PENDING 2) + +(defconstant-exported SERVICE_STOP_PENDING 3) + +(defconstant-exported SERVICE_RUNNING 4) + +(defconstant-exported SERVICE_CONTINUE_PENDING 5) + +(defconstant-exported SERVICE_PAUSE_PENDING 6) + +(defconstant-exported SERVICE_PAUSED 7) + +(defconstant-exported SERVICE_ACCEPT_STOP 1) + +(defconstant-exported SERVICE_ACCEPT_PAUSE_CONTINUE 2) + +(defconstant-exported SERVICE_ACCEPT_SHUTDOWN 4) + +(defconstant-exported SERVICE_ACCEPT_PARAMCHANGE 8) + +(defconstant-exported SERVICE_ACCEPT_NETBINDCHANGE 16) + +(defconstant-exported SERVICE_ACCEPT_HARDWAREPROFILECHANGE 32) + +(defconstant-exported SERVICE_ACCEPT_POWEREVENT 64) + +(defconstant-exported SERVICE_ACCEPT_SESSIONCHANGE 128) + +(defconstant-exported SERVICE_CONTROL_STOP 1) + +(defconstant-exported SERVICE_CONTROL_PAUSE 2) + +(defconstant-exported SERVICE_CONTROL_CONTINUE 3) + +(defconstant-exported SERVICE_CONTROL_INTERROGATE 4) + +(defconstant-exported SERVICE_CONTROL_SHUTDOWN 5) + +(defconstant-exported SERVICE_CONTROL_PARAMCHANGE 6) + +(defconstant-exported SERVICE_CONTROL_NETBINDADD 7) + +(defconstant-exported SERVICE_CONTROL_NETBINDREMOVE 8) + +(defconstant-exported SERVICE_CONTROL_NETBINDENABLE 9) + +(defconstant-exported SERVICE_CONTROL_NETBINDDISABLE 10) + +(defconstant-exported SERVICE_CONTROL_DEVICEEVENT 11) + +(defconstant-exported SERVICE_CONTROL_HARDWAREPROFILECHANGE 12) + +(defconstant-exported SERVICE_CONTROL_POWEREVENT 13) + +(defconstant-exported SERVICE_CONTROL_SESSIONCHANGE 14) + +(defconstant-exported SERVICE_ACTIVE 1) + +(defconstant-exported SERVICE_INACTIVE 2) + +(defconstant-exported SERVICE_STATE_ALL 3) + +(defconstant-exported SERVICE_QUERY_CONFIG 1) + +(defconstant-exported SERVICE_CHANGE_CONFIG 2) + +(defconstant-exported SERVICE_QUERY_STATUS 4) + +(defconstant-exported SERVICE_ENUMERATE_DEPENDENTS 8) + +(defconstant-exported SERVICE_START 16) + +(defconstant-exported SERVICE_STOP 32) + +(defconstant-exported SERVICE_PAUSE_CONTINUE 64) + +(defconstant-exported SERVICE_INTERROGATE 128) + +(defconstant-exported SERVICE_USER_DEFINED_CONTROL 256) + +(defconstant-exported SERVICE_ALL_ACCESS (cl:logior #xF0000 1 2 4 8 16 32 64 128 256)) + +(defconstant-exported SERVICE_RUNS_IN_SYSTEM_PROCESS 1) + +(defconstant-exported SERVICE_CONFIG_DESCRIPTION 1) + +(defconstant-exported SERVICE_CONFIG_FAILURE_ACTIONS 2) + +(defcstructex-exported SERVICE_STATUS + (dwServiceType :unsigned-long) + (dwCurrentState :unsigned-long) + (dwControlsAccepted :unsigned-long) + (dwWin32ExitCode :unsigned-long) + (dwServiceSpecificExitCode :unsigned-long) + (dwCheckPoint :unsigned-long) + (dwWaitHint :unsigned-long)) + + + + + +(defcstructex-exported SERVICE_STATUS_PROCESS + (dwServiceType :unsigned-long) + (dwCurrentState :unsigned-long) + (dwControlsAccepted :unsigned-long) + (dwWin32ExitCode :unsigned-long) + (dwServiceSpecificExitCode :unsigned-long) + (dwCheckPoint :unsigned-long) + (dwWaitHint :unsigned-long) + (dwProcessId :unsigned-long) + (dwServiceFlags :unsigned-long)) + + + + + +(cffi:defcenum SC_STATUS_TYPE + (:SC_STATUS_PROCESS_INFO #.0)) + +(cffi:defcenum SC_ENUM_TYPE + (:SC_ENUM_PROCESS_INFO #.0)) + +(defcstructex-exported ENUM_SERVICE_STATUSA + (lpServiceName :string) + (lpDisplayName :string) + (ServiceStatus SERVICE_STATUS)) + + + + + +(defcstructex-exported ENUM_SERVICE_STATUSW + (lpServiceName :pointer) + (lpDisplayName :pointer) + (ServiceStatus SERVICE_STATUS)) + + + + + +(defcstructex-exported ENUM_SERVICE_STATUS_PROCESSA + (lpServiceName :string) + (lpDisplayName :string) + (ServiceStatusProcess SERVICE_STATUS_PROCESS)) + + + + + +(defcstructex-exported ENUM_SERVICE_STATUS_PROCESSW + (lpServiceName :pointer) + (lpDisplayName :pointer) + (ServiceStatusProcess SERVICE_STATUS_PROCESS)) + + + + + +(defcstructex-exported QUERY_SERVICE_CONFIGA + (dwServiceType :unsigned-long) + (dwStartType :unsigned-long) + (dwErrorControl :unsigned-long) + (lpBinaryPathName :string) + (lpLoadOrderGroup :string) + (dwTagId :unsigned-long) + (lpDependencies :string) + (lpServiceStartName :string) + (lpDisplayName :string)) + + + + + +(defcstructex-exported QUERY_SERVICE_CONFIGW + (dwServiceType :unsigned-long) + (dwStartType :unsigned-long) + (dwErrorControl :unsigned-long) + (lpBinaryPathName :pointer) + (lpLoadOrderGroup :pointer) + (dwTagId :unsigned-long) + (lpDependencies :pointer) + (lpServiceStartName :pointer) + (lpDisplayName :pointer)) + + + + + +(defcstructex-exported QUERY_SERVICE_LOCK_STATUSA + (fIsLocked :unsigned-long) + (lpLockOwner :string) + (dwLockDuration :unsigned-long)) + + + + + +(defcstructex-exported QUERY_SERVICE_LOCK_STATUSW + (fIsLocked :unsigned-long) + (lpLockOwner :pointer) + (dwLockDuration :unsigned-long)) + + + + + + + + + +(defcstructex-exported SERVICE_TABLE_ENTRYA + (lpServiceName :string) + (lpServiceProc :pointer)) + + + + + +(defcstructex-exported SERVICE_TABLE_ENTRYW + (lpServiceName :pointer) + (lpServiceProc :pointer)) + + + + + +(defcstructex-exported SC_HANDLE__ + (i :int)) + + + + + + + + + + + + + +(defcstructex-exported SERVICE_DESCRIPTIONA + (lpDescription :string)) + + + + + +(defcstructex-exported SERVICE_DESCRIPTIONW + (lpDescription :pointer)) + + + + + +(cffi:defcenum SC_ACTION_TYPE + (:SC_ACTION_NONE #.0) + (:SC_ACTION_RESTART #.1) + (:SC_ACTION_REBOOT #.2) + (:SC_ACTION_RUN_COMMAND #.3)) + +(defcstructex-exported SC_ACTION + (Type SC_ACTION_TYPE) + (Delay :unsigned-long)) + + + + + +(defcstructex-exported SERVICE_FAILURE_ACTIONSA + (dwResetPeriod :unsigned-long) + (lpRebootMsg :string) + (lpCommand :string) + (cActions :unsigned-long) + (lpsaActions :pointer)) + + + + + +(defcstructex-exported SERVICE_FAILURE_ACTIONSW + (dwResetPeriod :unsigned-long) + (lpRebootMsg :pointer) + (lpCommand :pointer) + (cActions :unsigned-long) + (lpsaActions :pointer)) + + + + + +(defcfunex-exported ("ChangeServiceConfigA" ChangeServiceConfigA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :string) + (arg5 :string) + (arg6 :pointer) + (arg7 :string) + (arg8 :string) + (arg9 :string) + (arg10 :string)) + +(defcfunex-exported ("ChangeServiceConfigW" ChangeServiceConfigW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :pointer) + (arg6 :pointer) + (arg7 :pointer) + (arg8 :pointer) + (arg9 :pointer) + (arg10 :pointer)) + +(defcfunex-exported ("ChangeServiceConfig2A" ChangeServiceConfig2A :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("ChangeServiceConfig2W" ChangeServiceConfig2W :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("CloseServiceHandle" CloseServiceHandle :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("ControlService" ControlService :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("CreateServiceA" CreateServiceA :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :string) + (arg2 :string) + (arg3 :unsigned-long) + (arg4 :unsigned-long) + (arg5 :unsigned-long) + (arg6 :unsigned-long) + (arg7 :string) + (arg8 :string) + (arg9 :pointer) + (arg10 :string) + (arg11 :string) + (arg12 :string)) + +(defcfunex-exported ("CreateServiceW" CreateServiceW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :unsigned-long) + (arg5 :unsigned-long) + (arg6 :unsigned-long) + (arg7 :pointer) + (arg8 :pointer) + (arg9 :pointer) + (arg10 :pointer) + (arg11 :pointer) + (arg12 :pointer)) + +(defcfunex-exported ("DeleteService" DeleteService :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("EnumDependentServicesA" EnumDependentServicesA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :pointer)) + +(defcfunex-exported ("EnumDependentServicesW" EnumDependentServicesW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :pointer)) + +(defcfunex-exported ("EnumServicesStatusA" EnumServicesStatusA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer) + (arg6 :pointer) + (arg7 :pointer)) + +(defcfunex-exported ("EnumServicesStatusW" EnumServicesStatusW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer) + (arg6 :pointer) + (arg7 :pointer)) + +(defcfunex-exported ("EnumServicesStatusExA" EnumServicesStatusExA :convention :stdcall) :int + (arg0 :pointer) + (arg1 SC_ENUM_TYPE) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :unsigned-long) + (arg6 :pointer) + (arg7 :pointer) + (arg8 :pointer) + (arg9 :string)) + +(defcfunex-exported ("EnumServicesStatusExW" EnumServicesStatusExW :convention :stdcall) :int + (arg0 :pointer) + (arg1 SC_ENUM_TYPE) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :unsigned-long) + (arg6 :pointer) + (arg7 :pointer) + (arg8 :pointer) + (arg9 :pointer)) + +(defcfunex-exported ("GetServiceDisplayNameA" GetServiceDisplayNameA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string) + (arg2 :string) + (arg3 :pointer)) + +(defcfunex-exported ("GetServiceDisplayNameW" GetServiceDisplayNameW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("GetServiceKeyNameA" GetServiceKeyNameA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string) + (arg2 :string) + (arg3 :pointer)) + +(defcfunex-exported ("GetServiceKeyNameW" GetServiceKeyNameW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("LockServiceDatabase" LockServiceDatabase :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("NotifyBootConfigStatus" NotifyBootConfigStatus :convention :stdcall) :int + (arg0 :int)) + +(defcfunex-exported ("OpenSCManagerA" OpenSCManagerA :convention :stdcall) :pointer + (arg0 :string) + (arg1 :string) + (arg2 :unsigned-long)) + +(defcfunex-exported ("OpenSCManagerW" OpenSCManagerW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("OpenServiceA" OpenServiceA :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :string) + (arg2 :unsigned-long)) + +(defcfunex-exported ("OpenServiceW" OpenServiceW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("QueryServiceConfigA" QueryServiceConfigA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("QueryServiceConfigW" QueryServiceConfigW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("QueryServiceConfig2A" QueryServiceConfig2A :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer)) + +(defcfunex-exported ("QueryServiceConfig2W" QueryServiceConfig2W :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer)) + +(defcfunex-exported ("QueryServiceLockStatusA" QueryServiceLockStatusA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("QueryServiceLockStatusW" QueryServiceLockStatusW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("QueryServiceObjectSecurity" QueryServiceObjectSecurity :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer)) + +(defcfunex-exported ("QueryServiceStatus" QueryServiceStatus :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("QueryServiceStatusEx" QueryServiceStatusEx :convention :stdcall) :int + (arg0 :pointer) + (arg1 SC_STATUS_TYPE) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer)) + +(defcfunex-exported ("RegisterServiceCtrlHandlerA" RegisterServiceCtrlHandlerA :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :pointer)) + +(defcfunex-exported ("RegisterServiceCtrlHandlerW" RegisterServiceCtrlHandlerW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("RegisterServiceCtrlHandlerExA" RegisterServiceCtrlHandlerExA :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("RegisterServiceCtrlHandlerExW" RegisterServiceCtrlHandlerExW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("SetServiceObjectSecurity" SetServiceObjectSecurity :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("SetServiceStatus" SetServiceStatus :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :pointer)) + +(defcfunex-exported ("StartServiceA" StartServiceA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("StartServiceCtrlDispatcherA" StartServiceCtrlDispatcherA :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("StartServiceCtrlDispatcherW" StartServiceCtrlDispatcherW :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("StartServiceW" StartServiceW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("UnlockServiceDatabase" UnlockServiceDatabase :convention :stdcall) :int + (arg0 :pointer)) + + + + +(defconstant-exported SERVICES_ACTIVE_DATABASE "ServicesActive") + +(defconstant-exported SERVICES_FAILED_DATABASE "ServicesFailed") + +(defconstant-exported SC_GROUP_IDENTIFIER SC_GROUP_IDENTIFIERA) + + diff --git a/modules/shell.lisp b/modules/shell.lisp new file mode 100644 index 0000000..59b7185 --- /dev/null +++ b/modules/shell.lisp @@ -0,0 +1,397 @@ +(cl:in-package w32apimod) + +(define-w32api-module shell :shell) + +(cl:in-package cl-w32api.module.shell) + + + + +(defconstant-exported ABE_LEFT 0) + +(defconstant-exported ABE_TOP 1) + +(defconstant-exported ABE_RIGHT 2) + +(defconstant-exported ABE_BOTTOM 3) + +(defconstant-exported ABS_AUTOHIDE 1) + +(defconstant-exported ABS_ALWAYSONTOP 2) + +(defconstant-exported SEE_MASK_CLASSNAME 1) + +(defconstant-exported SEE_MASK_CLASSKEY 3) + +(defconstant-exported SEE_MASK_IDLIST 4) + +(defconstant-exported SEE_MASK_INVOKEIDLIST 12) + +(defconstant-exported SEE_MASK_ICON #x10) + +(defconstant-exported SEE_MASK_HOTKEY #x20) + +(defconstant-exported SEE_MASK_NOCLOSEPROCESS #x40) + +(defconstant-exported SEE_MASK_CONNECTNETDRV #x80) + +(defconstant-exported SEE_MASK_FLAG_DDEWAIT #x100) + +(defconstant-exported SEE_MASK_DOENVSUBST #x200) + +(defconstant-exported SEE_MASK_FLAG_NO_UI #x400) + +(defconstant-exported SEE_MASK_NO_CONSOLE #x8000) + +(defconstant-exported SEE_MASK_UNICODE #x10000) + +(defconstant-exported SEE_MASK_ASYNCOK #x100000) + +(defconstant-exported SEE_MASK_HMONITOR #x200000) + +(defconstant-exported ABM_NEW 0) + +(defconstant-exported ABM_REMOVE 1) + +(defconstant-exported ABM_QUERYPOS 2) + +(defconstant-exported ABM_SETPOS 3) + +(defconstant-exported ABM_GETSTATE 4) + +(defconstant-exported ABM_GETTASKBARPOS 5) + +(defconstant-exported ABM_ACTIVATE 6) + +(defconstant-exported ABM_GETAUTOHIDEBAR 7) + +(defconstant-exported ABM_SETAUTOHIDEBAR 8) + +(defconstant-exported ABM_WINDOWPOSCHANGED 9) + +(defconstant-exported ABN_STATECHANGE 0) + +(defconstant-exported ABN_POSCHANGED 1) + +(defconstant-exported ABN_FULLSCREENAPP 2) + +(defconstant-exported ABN_WINDOWARRANGE 3) + +(defconstant-exported NIM_ADD 0) + +(defconstant-exported NIM_MODIFY 1) + +(defconstant-exported NIM_DELETE 2) + +(defconstant-exported NIF_MESSAGE #x00000001) + +(defconstant-exported NIF_ICON #x00000002) + +(defconstant-exported NIF_TIP #x00000004) + +(defconstant-exported NIF_STATE #x00000008) + +(defconstant-exported NIS_HIDDEN 1) + +(defconstant-exported NIS_SHAREDICON 2) + +(defconstant-exported SE_ERR_FNF 2) + +(defconstant-exported SE_ERR_PNF 3) + +(defconstant-exported SE_ERR_ACCESSDENIED 5) + +(defconstant-exported SE_ERR_OOM 8) + +(defconstant-exported SE_ERR_DLLNOTFOUND 32) + +(defconstant-exported SE_ERR_SHARE 26) + +(defconstant-exported SE_ERR_ASSOCINCOMPLETE 27) + +(defconstant-exported SE_ERR_DDETIMEOUT 28) + +(defconstant-exported SE_ERR_DDEFAIL 29) + +(defconstant-exported SE_ERR_DDEBUSY 30) + +(defconstant-exported SE_ERR_NOASSOC 31) + +(defconstant-exported FO_MOVE 1) + +(defconstant-exported FO_COPY 2) + +(defconstant-exported FO_DELETE 3) + +(defconstant-exported FO_RENAME 4) + +(defconstant-exported FOF_MULTIDESTFILES 1) + +(defconstant-exported FOF_CONFIRMMOUSE 2) + +(defconstant-exported FOF_SILENT 4) + +(defconstant-exported FOF_RENAMEONCOLLISION 8) + +(defconstant-exported FOF_NOCONFIRMATION 16) + +(defconstant-exported FOF_WANTMAPPINGHANDLE 32) + +(defconstant-exported FOF_ALLOWUNDO 64) + +(defconstant-exported FOF_FILESONLY 128) + +(defconstant-exported FOF_SIMPLEPROGRESS 256) + +(defconstant-exported FOF_NOCONFIRMMKDIR 512) + +(defconstant-exported FOF_NOERRORUI 1024) + +(defconstant-exported FOF_NOCOPYSECURITYATTRIBS 2048) + +(defconstant-exported PO_DELETE 19) + +(defconstant-exported PO_RENAME 20) + +(defconstant-exported PO_PORTCHANGE 32) + +(defconstant-exported PO_REN_PORT 52) + +(defconstant-exported SHGFI_ICON 256) + +(defconstant-exported SHGFI_DISPLAYNAME 512) + +(defconstant-exported SHGFI_TYPENAME 1024) + +(defconstant-exported SHGFI_ATTRIBUTES 2048) + +(defconstant-exported SHGFI_ICONLOCATION 4096) + +(defconstant-exported SHGFI_EXETYPE 8192) + +(defconstant-exported SHGFI_SYSICONINDEX 16384) + +(defconstant-exported SHGFI_LINKOVERLAY 32768) + +(defconstant-exported SHGFI_SELECTED 65536) + +(defconstant-exported SHGFI_ATTR_SPECIFIED 131072) + +(defconstant-exported SHGFI_LARGEICON 0) + +(defconstant-exported SHGFI_SMALLICON 1) + +(defconstant-exported SHGFI_OPENICON 2) + +(defconstant-exported SHGFI_SHELLICONSIZE 4) + +(defconstant-exported SHGFI_PIDL 8) + +(defconstant-exported SHGFI_USEFILEATTRIBUTES 16) + +(defconstant-exported SHERB_NOCONFIRMATION 1) + +(defconstant-exported SHERB_NOPROGRESSUI 2) + +(defconstant-exported SHERB_NOSOUND 4) + + + + + +(defcstructex-exported APPBARDATA + (cbSize :unsigned-long) + (hWnd :pointer) + (uCallbackMessage :unsigned-int) + (uEdge :unsigned-int) + (rc RECT) + (lParam :int32)) + + + + + +(defcstructex-exported HDROP__ + (i :int)) + + + +(defcstructex-exported NOTIFYICONDATAA + (cbSize :unsigned-long) + (hWnd :pointer) + (uID :unsigned-int) + (uFlags :unsigned-int) + (uCallbackMessage :unsigned-int) + (hIcon :pointer) + (szTip :pointer)) + + + + + +(defcstructex-exported NOTIFYICONDATAW + (cbSize :unsigned-long) + (hWnd :pointer) + (uID :unsigned-int) + (uFlags :unsigned-int) + (uCallbackMessage :unsigned-int) + (hIcon :pointer) + (szTip :pointer)) + + + + + +(defcstructex-exported SHELLEXECUTEINFOA + (cbSize :unsigned-long) + (fMask :unsigned-long) + (hwnd :pointer) + (lpVerb :string) + (lpFile :string) + (lpParameters :string) + (lpDirectory :string) + (nShow :int) + (hInstApp :pointer) + (lpIDList :pointer) + (lpClass :string) + (hkeyClass :pointer) + (dwHotKey :unsigned-long) + (hIcon :pointer) + (hProcess :pointer)) + + + + + +(defcstructex-exported SHELLEXECUTEINFOW + (cbSize :unsigned-long) + (fMask :unsigned-long) + (hwnd :pointer) + (lpVerb :pointer) + (lpFile :pointer) + (lpParameters :pointer) + (lpDirectory :pointer) + (nShow :int) + (hInstApp :pointer) + (lpIDList :pointer) + (lpClass :pointer) + (hkeyClass :pointer) + (dwHotKey :unsigned-long) + (hIcon :pointer) + (hProcess :pointer)) + + + + + +(defcstructex-exported SHFILEOPSTRUCTA + (hwnd :pointer) + (wFunc :unsigned-int) + (pFrom :string) + (pTo :string) + (fFlags :unsigned-short) + (fAnyOperationsAborted :int) + (hNameMappings :pointer) + (lpszProgressTitle :string)) + + + + + +(defcstructex-exported SHFILEOPSTRUCTW + (hwnd :pointer) + (wFunc :unsigned-int) + (pFrom :pointer) + (pTo :pointer) + (fFlags :unsigned-short) + (fAnyOperationsAborted :int) + (hNameMappings :pointer) + (lpszProgressTitle :pointer)) + + + + + +(defcstructex-exported SHFILEINFOA + (hIcon :pointer) + (iIcon :int) + (dwAttributes :unsigned-long) + (szDisplayName :pointer) + (szTypeName :pointer)) + + + +(defcstructex-exported SHFILEINFOW + (hIcon :pointer) + (iIcon :int) + (dwAttributes :unsigned-long) + (szDisplayName :pointer) + (szTypeName :pointer)) + + + +(defcstructex-exported SHQUERYRBINFO + (cbSize :unsigned-long) + (i64Size :long-long) + (i64NumItems :long-long)) + + + + + +(defcfunex-exported ("DuplicateIcon" DuplicateIcon :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("SHAppBarMessage" SHAppBarMessage :convention :stdcall) :unsigned-int + (arg0 :unsigned-long) + (arg1 :pointer)) + +(defcfunex-exported ("Shell_NotifyIconA" Shell_NotifyIconA :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :pointer)) + +(defcfunex-exported ("Shell_NotifyIconW" Shell_NotifyIconW :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :pointer)) + +(defcfunex-exported ("SHFileOperationA" SHFileOperationA :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("SHFileOperationW" SHFileOperationW :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("SHFreeNameMappings" SHFreeNameMappings :convention :stdcall) :void + (arg0 :pointer)) + +(defcfunex-exported ("SHGetFileInfoA" SHGetFileInfoA :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-int) + (arg4 :unsigned-int)) + +(defcfunex-exported ("SHGetFileInfoW" SHGetFileInfoW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-int) + (arg4 :unsigned-int)) + +(defcfunex-exported ("SHQueryRecycleBinA" SHQueryRecycleBinA :convention :stdcall) :int32 + (arg0 :string) + (arg1 :pointer)) + +(defcfunex-exported ("SHQueryRecycleBinW" SHQueryRecycleBinW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("SHEmptyRecycleBinA" SHEmptyRecycleBinA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :string) + (arg2 :unsigned-long)) + +(defcfunex-exported ("SHEmptyRecycleBinW" SHEmptyRecycleBinW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) diff --git a/modules/shutdown.lisp b/modules/shutdown.lisp new file mode 100644 index 0000000..6d97e33 --- /dev/null +++ b/modules/shutdown.lisp @@ -0,0 +1,27 @@ +(cl:in-package w32apimod) + +(define-w32api-module shutdown :shutdown) + +(cl:in-package cl-w32api.module.shutdown) + + +(defcfunex-exported ("AbortSystemShutdownA" AbortSystemShutdownA :convention :stdcall) :int + (arg0 :string)) + +(defcfunex-exported ("AbortSystemShutdownW" AbortSystemShutdownW :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("InitiateSystemShutdownA" InitiateSystemShutdownA :convention :stdcall) :int + (arg0 :string) + (arg1 :string) + (arg2 :unsigned-long) + (arg3 :int) + (arg4 :int)) + +(defcfunex-exported ("InitiateSystemShutdownW" InitiateSystemShutdownW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :int) + (arg4 :int)) + diff --git a/modules/uncatalogized.lisp b/modules/uncatalogized.lisp new file mode 100644 index 0000000..b143a66 --- /dev/null +++ b/modules/uncatalogized.lisp @@ -0,0 +1,15426 @@ + +(cl:in-package w32apimod) + +(define-w32api-module uncatalogized :uncatalogized) + +(cl:in-package cl-w32api.module.uncatalogized) + +(defconstant-exported WINVER #x0400) + +(defconstant-exported _WIN32_WINNT #x0400) + +(defconstant-exported MAX_PATH 260) + +(defconstant-exported STRICT 1) + +(defconstant-exported SEVERITY_SUCCESS 0) + +(defconstant-exported SEVERITY_ERROR 1) + +(defconstant-exported FACILITY_WINDOWS 8) + +(defconstant-exported FACILITY_STORAGE 3) + +(defconstant-exported FACILITY_RPC 1) + +(defconstant-exported FACILITY_WIN32 7) + +(defconstant-exported FACILITY_CONTROL 10) + +(defconstant-exported FACILITY_NULL 0) + +(defconstant-exported FACILITY_ITF 4) + +(defconstant-exported FACILITY_DISPATCH 2) + +(defconstant-exported FACILITY_NT_BIT #x10000000) + +(defconstant-exported __NEWLIB_H__ 1) + +(defconstant-exported _NEWLIB_VERSION "1.13.0") + +(defconstant-exported _WANT_IO_LONG_LONG 1) + +(defconstant-exported _WANT_IO_LONG_DOUBLE 1) + +(defconstant-exported _WANT_IO_POS_ARGS 1) + +(defconstant-exported _MB_CAPABLE 1) + +(defconstant-exported _MB_LEN_MAX 8) + +(defconstant-exported _HAVE_ARRAY_ALIASING 1) + +(defconstant-exported __INT_MAX__ 2147483647) + +(defconstant-exported __LONG_MAX__ 2147483647) + +(defconstant-exported __RAND_MAX #x7fffffff) + +(defconstant-exported __WCHAR_MAX__ #xffff) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +(defconstant-exported ANSI_NULL 0) + +(defconstant-exported ADDRESS_TAG_BIT #x80000000) + +(defconstant-exported ACE_OBJECT_TYPE_PRESENT #x00000001) + +(defconstant-exported ACE_INHERITED_OBJECT_TYPE_PRESENT #x00000002) + +(defconstant-exported APPLICATION_ERROR_MASK #x20000000) + +(defconstant-exported ERROR_SEVERITY_SUCCESS #x00000000) + +(defconstant-exported ERROR_SEVERITY_INFORMATIONAL #x40000000) + +(defconstant-exported ERROR_SEVERITY_WARNING #x80000000) + +(defconstant-exported ERROR_SEVERITY_ERROR #xC0000000) + +(defconstant-exported COMPRESSION_FORMAT_NONE #x0000) + +(defconstant-exported COMPRESSION_FORMAT_DEFAULT #x0001) + +(defconstant-exported COMPRESSION_FORMAT_LZNT1 #x0002) + +(defconstant-exported COMPRESSION_ENGINE_STANDARD #x0000) + +(defconstant-exported COMPRESSION_ENGINE_MAXIMUM #x0100) + +(defconstant-exported COMPRESSION_ENGINE_HIBER #x0200) + +(defconstant-exported ACCESS_ALLOWED_ACE_TYPE #x0) + +(defconstant-exported ACCESS_DENIED_ACE_TYPE #x1) + +(defconstant-exported SYSTEM_AUDIT_ACE_TYPE #x2) + +(defconstant-exported SYSTEM_ALARM_ACE_TYPE #x3) + +(defconstant-exported ANYSIZE_ARRAY 1) + +(defconstant-exported OBJECT_INHERIT_ACE 1) + +(defconstant-exported CONTAINER_INHERIT_ACE 2) + +(defconstant-exported NO_PROPAGATE_INHERIT_ACE 4) + +(defconstant-exported INHERIT_ONLY_ACE 8) + +(defconstant-exported VALID_INHERIT_FLAGS 16) + +(defconstant-exported SUCCESSFUL_ACCESS_ACE_FLAG 64) + +(defconstant-exported FAILED_ACCESS_ACE_FLAG 128) + +(defconstant-exported DELETE #x00010000) + +(defconstant-exported READ_CONTROL #x20000) + +(defconstant-exported WRITE_DAC #x40000) + +(defconstant-exported WRITE_OWNER #x80000) + +(defconstant-exported SYNCHRONIZE #x100000) + +(defconstant-exported STANDARD_RIGHTS_REQUIRED #xF0000) + +(defconstant-exported STANDARD_RIGHTS_READ #x20000) + +(defconstant-exported STANDARD_RIGHTS_WRITE #x20000) + +(defconstant-exported STANDARD_RIGHTS_EXECUTE #x20000) + +(defconstant-exported STANDARD_RIGHTS_ALL #x1F0000) + +(defconstant-exported SPECIFIC_RIGHTS_ALL #xFFFF) + +(defconstant-exported ACCESS_SYSTEM_SECURITY #x1000000) + +(defconstant-exported MAXIMUM_ALLOWED #x2000000) + +(defconstant-exported GENERIC_READ #x80000000) + +(defconstant-exported GENERIC_WRITE #x40000000) + +(defconstant-exported GENERIC_EXECUTE #x20000000) + +(defconstant-exported GENERIC_ALL #x10000000) + +(defconstant-exported FILE_LIST_DIRECTORY #x00000001) + +(defconstant-exported FILE_READ_DATA #x00000001) + +(defconstant-exported FILE_ADD_FILE #x00000002) + +(defconstant-exported FILE_WRITE_DATA #x00000002) + +(defconstant-exported FILE_ADD_SUBDIRECTORY #x00000004) + +(defconstant-exported FILE_APPEND_DATA #x00000004) + +(defconstant-exported FILE_CREATE_PIPE_INSTANCE #x00000004) + +(defconstant-exported FILE_READ_EA #x00000008) + +(defconstant-exported FILE_READ_PROPERTIES #x00000008) + +(defconstant-exported FILE_WRITE_EA #x00000010) + +(defconstant-exported FILE_WRITE_PROPERTIES #x00000010) + +(defconstant-exported FILE_EXECUTE #x00000020) + +(defconstant-exported FILE_TRAVERSE #x00000020) + +(defconstant-exported FILE_DELETE_CHILD #x00000040) + +(defconstant-exported FILE_READ_ATTRIBUTES #x00000080) + +(defconstant-exported FILE_WRITE_ATTRIBUTES #x00000100) + +(defconstant-exported FILE_SHARE_READ #x00000001) + +(defconstant-exported FILE_SHARE_WRITE #x00000002) + +(defconstant-exported FILE_SHARE_DELETE #x00000004) + +(defconstant-exported FILE_SHARE_VALID_FLAGS #x00000007) + +(defconstant-exported FILE_ATTRIBUTE_READONLY #x00000001) + +(defconstant-exported FILE_ATTRIBUTE_HIDDEN #x00000002) + +(defconstant-exported FILE_ATTRIBUTE_SYSTEM #x00000004) + +(defconstant-exported FILE_ATTRIBUTE_DIRECTORY #x00000010) + +(defconstant-exported FILE_ATTRIBUTE_ARCHIVE #x00000020) + +(defconstant-exported FILE_ATTRIBUTE_DEVICE #x00000040) + +(defconstant-exported FILE_ATTRIBUTE_NORMAL #x00000080) + +(defconstant-exported FILE_ATTRIBUTE_TEMPORARY #x00000100) + +(defconstant-exported FILE_ATTRIBUTE_SPARSE_FILE #x00000200) + +(defconstant-exported FILE_ATTRIBUTE_REPARSE_POINT #x00000400) + +(defconstant-exported FILE_ATTRIBUTE_COMPRESSED #x00000800) + +(defconstant-exported FILE_ATTRIBUTE_OFFLINE #x00001000) + +(defconstant-exported FILE_ATTRIBUTE_NOT_CONTENT_INDEXED #x00002000) + +(defconstant-exported FILE_ATTRIBUTE_ENCRYPTED #x00004000) + +(defconstant-exported FILE_ATTRIBUTE_VALID_FLAGS #x00007fb7) + +(defconstant-exported FILE_ATTRIBUTE_VALID_SET_FLAGS #x000031a7) + +(defconstant-exported FILE_COPY_STRUCTURED_STORAGE #x00000041) + +(defconstant-exported FILE_STRUCTURED_STORAGE #x00000441) + +(defconstant-exported FILE_VALID_OPTION_FLAGS #x00ffffff) + +(defconstant-exported FILE_VALID_PIPE_OPTION_FLAGS #x00000032) + +(defconstant-exported FILE_VALID_MAILSLOT_OPTION_FLAGS #x00000032) + +(defconstant-exported FILE_VALID_SET_FLAGS #x00000036) + +(defconstant-exported FILE_SUPERSEDE #x00000000) + +(defconstant-exported FILE_OPEN #x00000001) + +(defconstant-exported FILE_CREATE #x00000002) + +(defconstant-exported FILE_OPEN_IF #x00000003) + +(defconstant-exported FILE_OVERWRITE #x00000004) + +(defconstant-exported FILE_OVERWRITE_IF #x00000005) + +(defconstant-exported FILE_MAXIMUM_DISPOSITION #x00000005) + +(defconstant-exported FILE_DIRECTORY_FILE #x00000001) + +(defconstant-exported FILE_WRITE_THROUGH #x00000002) + +(defconstant-exported FILE_SEQUENTIAL_ONLY #x00000004) + +(defconstant-exported FILE_NO_INTERMEDIATE_BUFFERING #x00000008) + +(defconstant-exported FILE_SYNCHRONOUS_IO_ALERT #x00000010) + +(defconstant-exported FILE_SYNCHRONOUS_IO_NONALERT #x00000020) + +(defconstant-exported FILE_NON_DIRECTORY_FILE #x00000040) + +(defconstant-exported FILE_CREATE_TREE_CONNECTION #x00000080) + +(defconstant-exported FILE_COMPLETE_IF_OPLOCKED #x00000100) + +(defconstant-exported FILE_NO_EA_KNOWLEDGE #x00000200) + +(defconstant-exported FILE_OPEN_FOR_RECOVERY #x00000400) + +(defconstant-exported FILE_RANDOM_ACCESS #x00000800) + +(defconstant-exported FILE_DELETE_ON_CLOSE #x00001000) + +(defconstant-exported FILE_OPEN_BY_FILE_ID #x00002000) + +(defconstant-exported FILE_OPEN_FOR_BACKUP_INTENT #x00004000) + +(defconstant-exported FILE_NO_COMPRESSION #x00008000) + +(defconstant-exported FILE_RESERVE_OPFILTER #x00100000) + +(defconstant-exported FILE_OPEN_REPARSE_POINT #x00200000) + +(defconstant-exported FILE_OPEN_NO_RECALL #x00400000) + +(defconstant-exported FILE_OPEN_FOR_FREE_SPACE_QUERY #x00800000) + +(defconstant-exported FILE_ALL_ACCESS (cl:logior #xF0000 #x100000 #x1FF)) + +(defconstant-exported FILE_GENERIC_EXECUTE (cl:logior #x20000 #x00000080 #x00000020 #x100000)) + +(defconstant-exported FILE_GENERIC_READ (cl:logior #x20000 #x00000001 #x00000080 #x00000008 #x100000)) + +(defconstant-exported FILE_GENERIC_WRITE (cl:logior #x20000 #x00000002 #x00000100 #x00000010 #x00000004 #x100000)) + +(defconstant-exported FILE_NOTIFY_CHANGE_FILE_NAME #x00000001) + +(defconstant-exported FILE_NOTIFY_CHANGE_DIR_NAME #x00000002) + +(defconstant-exported FILE_NOTIFY_CHANGE_NAME #x00000003) + +(defconstant-exported FILE_NOTIFY_CHANGE_ATTRIBUTES #x00000004) + +(defconstant-exported FILE_NOTIFY_CHANGE_SIZE #x00000008) + +(defconstant-exported FILE_NOTIFY_CHANGE_LAST_WRITE #x00000010) + +(defconstant-exported FILE_NOTIFY_CHANGE_LAST_ACCESS #x00000020) + +(defconstant-exported FILE_NOTIFY_CHANGE_CREATION #x00000040) + +(defconstant-exported FILE_NOTIFY_CHANGE_EA #x00000080) + +(defconstant-exported FILE_NOTIFY_CHANGE_SECURITY #x00000100) + +(defconstant-exported FILE_NOTIFY_CHANGE_STREAM_NAME #x00000200) + +(defconstant-exported FILE_NOTIFY_CHANGE_STREAM_SIZE #x00000400) + +(defconstant-exported FILE_NOTIFY_CHANGE_STREAM_WRITE #x00000800) + +(defconstant-exported FILE_NOTIFY_VALID_MASK #x00000fff) + +(defconstant-exported FILE_CASE_SENSITIVE_SEARCH #x00000001) + +(defconstant-exported FILE_CASE_PRESERVED_NAMES #x00000002) + +(defconstant-exported FILE_UNICODE_ON_DISK #x00000004) + +(defconstant-exported FILE_PERSISTENT_ACLS #x00000008) + +(defconstant-exported FILE_FILE_COMPRESSION #x00000010) + +(defconstant-exported FILE_VOLUME_QUOTAS #x00000020) + +(defconstant-exported FILE_SUPPORTS_SPARSE_FILES #x00000040) + +(defconstant-exported FILE_SUPPORTS_REPARSE_POINTS #x00000080) + +(defconstant-exported FILE_SUPPORTS_REMOTE_STORAGE #x00000100) + +(defconstant-exported FS_LFN_APIS #x00004000) + +(defconstant-exported FILE_VOLUME_IS_COMPRESSED #x00008000) + +(defconstant-exported FILE_SUPPORTS_OBJECT_IDS #x00010000) + +(defconstant-exported FILE_SUPPORTS_ENCRYPTION #x00020000) + +(defconstant-exported FILE_NAMED_STREAMS #x00040000) + +(defconstant-exported IO_COMPLETION_QUERY_STATE #x0001) + +(defconstant-exported IO_COMPLETION_MODIFY_STATE #x0002) + +(defconstant-exported IO_COMPLETION_ALL_ACCESS (cl:logior #xF0000 #x100000 #x3)) + +(defconstant-exported DUPLICATE_CLOSE_SOURCE #x00000001) + +(defconstant-exported DUPLICATE_SAME_ACCESS #x00000002) + +(defconstant-exported DUPLICATE_SAME_ATTRIBUTES #x00000004) + +(defconstant-exported PROCESS_TERMINATE 1) + +(defconstant-exported PROCESS_CREATE_THREAD 2) + +(defconstant-exported PROCESS_SET_SESSIONID 4) + +(defconstant-exported PROCESS_VM_OPERATION 8) + +(defconstant-exported PROCESS_VM_READ 16) + +(defconstant-exported PROCESS_VM_WRITE 32) + +(defconstant-exported PROCESS_DUP_HANDLE 64) + +(defconstant-exported PROCESS_CREATE_PROCESS 128) + +(defconstant-exported PROCESS_SET_QUOTA 256) + +(defconstant-exported PROCESS_SET_INFORMATION 512) + +(defconstant-exported PROCESS_QUERY_INFORMATION 1024) + +(defconstant-exported PROCESS_ALL_ACCESS (cl:logior #xF0000 #x100000 #xFFF)) + +(defconstant-exported THREAD_TERMINATE 1) + +(defconstant-exported THREAD_SUSPEND_RESUME 2) + +(defconstant-exported THREAD_GET_CONTEXT 8) + +(defconstant-exported THREAD_SET_CONTEXT 16) + +(defconstant-exported THREAD_SET_INFORMATION 32) + +(defconstant-exported THREAD_QUERY_INFORMATION 64) + +(defconstant-exported THREAD_SET_THREAD_TOKEN 128) + +(defconstant-exported THREAD_IMPERSONATE 256) + +(defconstant-exported THREAD_DIRECT_IMPERSONATION #x200) + +(defconstant-exported THREAD_ALL_ACCESS (cl:logior #xF0000 #x100000 #x3FF)) + +(defconstant-exported THREAD_BASE_PRIORITY_LOWRT 15) + +(defconstant-exported THREAD_BASE_PRIORITY_MAX 2) + +(defconstant-exported THREAD_BASE_PRIORITY_MIN -2) + +(defconstant-exported THREAD_BASE_PRIORITY_IDLE -15) + +(defconstant-exported EXCEPTION_NONCONTINUABLE 1) + +(defconstant-exported EXCEPTION_MAXIMUM_PARAMETERS 15) + +(defconstant-exported MUTANT_QUERY_STATE #x0001) + +(defconstant-exported MUTANT_ALL_ACCESS (cl:logior #xF0000 #x100000 #x0001)) + +(defconstant-exported TIMER_QUERY_STATE #x0001) + +(defconstant-exported TIMER_MODIFY_STATE #x0002) + +(defconstant-exported TIMER_ALL_ACCESS (cl:logior #xF0000 #x100000 #x0001 #x0002)) + +(defconstant-exported SECURITY_NULL_RID 0) + +(defconstant-exported SECURITY_WORLD_RID #x00000000) + +(defconstant-exported SECURITY_LOCAL_RID 0) + +(defconstant-exported SECURITY_CREATOR_OWNER_RID 0) + +(defconstant-exported SECURITY_CREATOR_GROUP_RID 1) + +(defconstant-exported SECURITY_DIALUP_RID 1) + +(defconstant-exported SECURITY_NETWORK_RID 2) + +(defconstant-exported SECURITY_BATCH_RID 3) + +(defconstant-exported SECURITY_INTERACTIVE_RID 4) + +(defconstant-exported SECURITY_LOGON_IDS_RID 5) + +(defconstant-exported SECURITY_SERVICE_RID 6) + +(defconstant-exported SECURITY_LOCAL_SYSTEM_RID 18) + +(defconstant-exported SECURITY_BUILTIN_DOMAIN_RID 32) + +(defconstant-exported SECURITY_PRINCIPAL_SELF_RID 10) + +(defconstant-exported SECURITY_CREATOR_OWNER_SERVER_RID #x2) + +(defconstant-exported SECURITY_CREATOR_GROUP_SERVER_RID #x3) + +(defconstant-exported SECURITY_LOGON_IDS_RID_COUNT #x3) + +(defconstant-exported SECURITY_ANONYMOUS_LOGON_RID #x7) + +(defconstant-exported SECURITY_PROXY_RID #x8) + +(defconstant-exported SECURITY_ENTERPRISE_CONTROLLERS_RID #x9) + +(defconstant-exported SECURITY_SERVER_LOGON_RID #x9) + +(defconstant-exported SECURITY_AUTHENTICATED_USER_RID #xB) + +(defconstant-exported SECURITY_RESTRICTED_CODE_RID #xC) + +(defconstant-exported SECURITY_NT_NON_UNIQUE_RID #x15) + +(defconstant-exported SID_REVISION 1) + +(defconstant-exported DOMAIN_USER_RID_ADMIN #x1F4) + +(defconstant-exported DOMAIN_USER_RID_GUEST #x1F5) + +(defconstant-exported DOMAIN_GROUP_RID_ADMINS #x200) + +(defconstant-exported DOMAIN_GROUP_RID_USERS #x201) + +(defconstant-exported DOMAIN_ALIAS_RID_ADMINS #x220) + +(defconstant-exported DOMAIN_ALIAS_RID_USERS #x221) + +(defconstant-exported DOMAIN_ALIAS_RID_GUESTS #x222) + +(defconstant-exported DOMAIN_ALIAS_RID_POWER_USERS #x223) + +(defconstant-exported DOMAIN_ALIAS_RID_ACCOUNT_OPS #x224) + +(defconstant-exported DOMAIN_ALIAS_RID_SYSTEM_OPS #x225) + +(defconstant-exported DOMAIN_ALIAS_RID_PRINT_OPS #x226) + +(defconstant-exported DOMAIN_ALIAS_RID_BACKUP_OPS #x227) + +(defconstant-exported DOMAIN_ALIAS_RID_REPLICATOR #x228) + +(defconstant-exported SE_CREATE_TOKEN_NAME "SeCreateTokenPrivilege") + +(defconstant-exported SE_ASSIGNPRIMARYTOKEN_NAME "SeAssignPrimaryTokenPrivilege") + +(defconstant-exported SE_LOCK_MEMORY_NAME "SeLockMemoryPrivilege") + +(defconstant-exported SE_INCREASE_QUOTA_NAME "SeIncreaseQuotaPrivilege") + +(defconstant-exported SE_UNSOLICITED_INPUT_NAME "SeUnsolicitedInputPrivilege") + +(defconstant-exported SE_MACHINE_ACCOUNT_NAME "SeMachineAccountPrivilege") + +(defconstant-exported SE_TCB_NAME "SeTcbPrivilege") + +(defconstant-exported SE_SECURITY_NAME "SeSecurityPrivilege") + +(defconstant-exported SE_TAKE_OWNERSHIP_NAME "SeTakeOwnershipPrivilege") + +(defconstant-exported SE_LOAD_DRIVER_NAME "SeLoadDriverPrivilege") + +(defconstant-exported SE_SYSTEM_PROFILE_NAME "SeSystemProfilePrivilege") + +(defconstant-exported SE_SYSTEMTIME_NAME "SeSystemtimePrivilege") + +(defconstant-exported SE_PROF_SINGLE_PROCESS_NAME "SeProfileSingleProcessPrivilege") + +(defconstant-exported SE_INC_BASE_PRIORITY_NAME "SeIncreaseBasePriorityPrivilege") + +(defconstant-exported SE_CREATE_PAGEFILE_NAME "SeCreatePagefilePrivilege") + +(defconstant-exported SE_CREATE_PERMANENT_NAME "SeCreatePermanentPrivilege") + +(defconstant-exported SE_BACKUP_NAME "SeBackupPrivilege") + +(defconstant-exported SE_RESTORE_NAME "SeRestorePrivilege") + +(defconstant-exported SE_SHUTDOWN_NAME "SeShutdownPrivilege") + +(defconstant-exported SE_DEBUG_NAME "SeDebugPrivilege") + +(defconstant-exported SE_AUDIT_NAME "SeAuditPrivilege") + +(defconstant-exported SE_SYSTEM_ENVIRONMENT_NAME "SeSystemEnvironmentPrivilege") + +(defconstant-exported SE_CHANGE_NOTIFY_NAME "SeChangeNotifyPrivilege") + +(defconstant-exported SE_REMOTE_SHUTDOWN_NAME "SeRemoteShutdownPrivilege") + +(defconstant-exported SE_CREATE_GLOBAL_NAME "SeCreateGlobalPrivilege") + +(defconstant-exported SE_UNDOCK_NAME "SeUndockPrivilege") + +(defconstant-exported SE_MANAGE_VOLUME_NAME "SeManageVolumePrivilege") + +(defconstant-exported SE_IMPERSONATE_NAME "SeImpersonatePrivilege") + +(defconstant-exported SE_ENABLE_DELEGATION_NAME "SeEnableDelegationPrivilege") + +(defconstant-exported SE_SYNC_AGENT_NAME "SeSyncAgentPrivilege") + +(defconstant-exported SE_GROUP_MANDATORY 1) + +(defconstant-exported SE_GROUP_ENABLED_BY_DEFAULT 2) + +(defconstant-exported SE_GROUP_ENABLED 4) + +(defconstant-exported SE_GROUP_OWNER 8) + +(defconstant-exported SE_GROUP_USE_FOR_DENY_ONLY 16) + +(defconstant-exported SE_GROUP_LOGON_ID 3221225472) + +(defconstant-exported SE_GROUP_RESOURCE 536870912) + +(defconstant-exported LANG_NEUTRAL #x00) + +(defconstant-exported LANG_ARABIC #x01) + +(defconstant-exported LANG_BULGARIAN #x02) + +(defconstant-exported LANG_CATALAN #x03) + +(defconstant-exported LANG_CHINESE #x04) + +(defconstant-exported LANG_CZECH #x05) + +(defconstant-exported LANG_DANISH #x06) + +(defconstant-exported LANG_GERMAN #x07) + +(defconstant-exported LANG_GREEK #x08) + +(defconstant-exported LANG_ENGLISH #x09) + +(defconstant-exported LANG_SPANISH #x0a) + +(defconstant-exported LANG_FINNISH #x0b) + +(defconstant-exported LANG_FRENCH #x0c) + +(defconstant-exported LANG_HEBREW #x0d) + +(defconstant-exported LANG_HUNGARIAN #x0e) + +(defconstant-exported LANG_ICELANDIC #x0f) + +(defconstant-exported LANG_ITALIAN #x10) + +(defconstant-exported LANG_JAPANESE #x11) + +(defconstant-exported LANG_KOREAN #x12) + +(defconstant-exported LANG_DUTCH #x13) + +(defconstant-exported LANG_NORWEGIAN #x14) + +(defconstant-exported LANG_POLISH #x15) + +(defconstant-exported LANG_PORTUGUESE #x16) + +(defconstant-exported LANG_ROMANIAN #x18) + +(defconstant-exported LANG_RUSSIAN #x19) + +(defconstant-exported LANG_CROATIAN #x1a) + +(defconstant-exported LANG_SERBIAN #x1a) + +(defconstant-exported LANG_SLOVAK #x1b) + +(defconstant-exported LANG_ALBANIAN #x1c) + +(defconstant-exported LANG_SWEDISH #x1d) + +(defconstant-exported LANG_THAI #x1e) + +(defconstant-exported LANG_TURKISH #x1f) + +(defconstant-exported LANG_URDU #x20) + +(defconstant-exported LANG_INDONESIAN #x21) + +(defconstant-exported LANG_UKRAINIAN #x22) + +(defconstant-exported LANG_BELARUSIAN #x23) + +(defconstant-exported LANG_SLOVENIAN #x24) + +(defconstant-exported LANG_ESTONIAN #x25) + +(defconstant-exported LANG_LATVIAN #x26) + +(defconstant-exported LANG_LITHUANIAN #x27) + +(defconstant-exported LANG_FARSI #x29) + +(defconstant-exported LANG_VIETNAMESE #x2a) + +(defconstant-exported LANG_ARMENIAN #x2b) + +(defconstant-exported LANG_AZERI #x2c) + +(defconstant-exported LANG_BASQUE #x2d) + +(defconstant-exported LANG_MACEDONIAN #x2f) + +(defconstant-exported LANG_AFRIKAANS #x36) + +(defconstant-exported LANG_GEORGIAN #x37) + +(defconstant-exported LANG_FAEROESE #x38) + +(defconstant-exported LANG_HINDI #x39) + +(defconstant-exported LANG_MALAY #x3e) + +(defconstant-exported LANG_KAZAK #x3f) + +(defconstant-exported LANG_KYRGYZ #x40) + +(defconstant-exported LANG_SWAHILI #x41) + +(defconstant-exported LANG_UZBEK #x43) + +(defconstant-exported LANG_TATAR #x44) + +(defconstant-exported LANG_BENGALI #x45) + +(defconstant-exported LANG_PUNJABI #x46) + +(defconstant-exported LANG_GUJARATI #x47) + +(defconstant-exported LANG_ORIYA #x48) + +(defconstant-exported LANG_TAMIL #x49) + +(defconstant-exported LANG_TELUGU #x4a) + +(defconstant-exported LANG_KANNADA #x4b) + +(defconstant-exported LANG_MALAYALAM #x4c) + +(defconstant-exported LANG_ASSAMESE #x4d) + +(defconstant-exported LANG_MARATHI #x4e) + +(defconstant-exported LANG_SANSKRIT #x4f) + +(defconstant-exported LANG_MONGOLIAN #x50) + +(defconstant-exported LANG_GALICIAN #x56) + +(defconstant-exported LANG_KONKANI #x57) + +(defconstant-exported LANG_MANIPURI #x58) + +(defconstant-exported LANG_SINDHI #x59) + +(defconstant-exported LANG_SYRIAC #x5a) + +(defconstant-exported LANG_KASHMIRI #x60) + +(defconstant-exported LANG_NEPALI #x61) + +(defconstant-exported LANG_DIVEHI #x65) + +(defconstant-exported LANG_INVARIANT #x7f) + +(defconstant-exported SUBLANG_NEUTRAL #x00) + +(defconstant-exported SUBLANG_DEFAULT #x01) + +(defconstant-exported SUBLANG_SYS_DEFAULT #x02) + +(defconstant-exported SUBLANG_ARABIC_SAUDI_ARABIA #x01) + +(defconstant-exported SUBLANG_ARABIC_IRAQ #x02) + +(defconstant-exported SUBLANG_ARABIC_EGYPT #x03) + +(defconstant-exported SUBLANG_ARABIC_LIBYA #x04) + +(defconstant-exported SUBLANG_ARABIC_ALGERIA #x05) + +(defconstant-exported SUBLANG_ARABIC_MOROCCO #x06) + +(defconstant-exported SUBLANG_ARABIC_TUNISIA #x07) + +(defconstant-exported SUBLANG_ARABIC_OMAN #x08) + +(defconstant-exported SUBLANG_ARABIC_YEMEN #x09) + +(defconstant-exported SUBLANG_ARABIC_SYRIA #x0a) + +(defconstant-exported SUBLANG_ARABIC_JORDAN #x0b) + +(defconstant-exported SUBLANG_ARABIC_LEBANON #x0c) + +(defconstant-exported SUBLANG_ARABIC_KUWAIT #x0d) + +(defconstant-exported SUBLANG_ARABIC_UAE #x0e) + +(defconstant-exported SUBLANG_ARABIC_BAHRAIN #x0f) + +(defconstant-exported SUBLANG_ARABIC_QATAR #x10) + +(defconstant-exported SUBLANG_AZERI_LATIN #x01) + +(defconstant-exported SUBLANG_AZERI_CYRILLIC #x02) + +(defconstant-exported SUBLANG_CHINESE_TRADITIONAL #x01) + +(defconstant-exported SUBLANG_CHINESE_SIMPLIFIED #x02) + +(defconstant-exported SUBLANG_CHINESE_HONGKONG #x03) + +(defconstant-exported SUBLANG_CHINESE_SINGAPORE #x04) + +(defconstant-exported SUBLANG_CHINESE_MACAU #x05) + +(defconstant-exported SUBLANG_DUTCH #x01) + +(defconstant-exported SUBLANG_DUTCH_BELGIAN #x02) + +(defconstant-exported SUBLANG_ENGLISH_US #x01) + +(defconstant-exported SUBLANG_ENGLISH_UK #x02) + +(defconstant-exported SUBLANG_ENGLISH_AUS #x03) + +(defconstant-exported SUBLANG_ENGLISH_CAN #x04) + +(defconstant-exported SUBLANG_ENGLISH_NZ #x05) + +(defconstant-exported SUBLANG_ENGLISH_EIRE #x06) + +(defconstant-exported SUBLANG_ENGLISH_SOUTH_AFRICA #x07) + +(defconstant-exported SUBLANG_ENGLISH_JAMAICA #x08) + +(defconstant-exported SUBLANG_ENGLISH_CARIBBEAN #x09) + +(defconstant-exported SUBLANG_ENGLISH_BELIZE #x0a) + +(defconstant-exported SUBLANG_ENGLISH_TRINIDAD #x0b) + +(defconstant-exported SUBLANG_ENGLISH_ZIMBABWE #x0c) + +(defconstant-exported SUBLANG_ENGLISH_PHILIPPINES #x0d) + +(defconstant-exported SUBLANG_FRENCH #x01) + +(defconstant-exported SUBLANG_FRENCH_BELGIAN #x02) + +(defconstant-exported SUBLANG_FRENCH_CANADIAN #x03) + +(defconstant-exported SUBLANG_FRENCH_SWISS #x04) + +(defconstant-exported SUBLANG_FRENCH_LUXEMBOURG #x05) + +(defconstant-exported SUBLANG_FRENCH_MONACO #x06) + +(defconstant-exported SUBLANG_GERMAN #x01) + +(defconstant-exported SUBLANG_GERMAN_SWISS #x02) + +(defconstant-exported SUBLANG_GERMAN_AUSTRIAN #x03) + +(defconstant-exported SUBLANG_GERMAN_LUXEMBOURG #x04) + +(defconstant-exported SUBLANG_GERMAN_LIECHTENSTEIN #x05) + +(defconstant-exported SUBLANG_ITALIAN #x01) + +(defconstant-exported SUBLANG_ITALIAN_SWISS #x02) + +(defconstant-exported SUBLANG_KASHMIRI_INDIA #x02) + +(defconstant-exported SUBLANG_KASHMIRI_SASIA #x02) + +(defconstant-exported SUBLANG_KOREAN #x01) + +(defconstant-exported SUBLANG_LITHUANIAN #x01) + +(defconstant-exported SUBLANG_MALAY_MALAYSIA #x01) + +(defconstant-exported SUBLANG_MALAY_BRUNEI_DARUSSALAM #x02) + +(defconstant-exported SUBLANG_NEPALI_INDIA #x02) + +(defconstant-exported SUBLANG_NORWEGIAN_BOKMAL #x01) + +(defconstant-exported SUBLANG_NORWEGIAN_NYNORSK #x02) + +(defconstant-exported SUBLANG_PORTUGUESE_BRAZILIAN #x01) + +(defconstant-exported SUBLANG_PORTUGUESE #x02) + +(defconstant-exported SUBLANG_SERBIAN_LATIN #x02) + +(defconstant-exported SUBLANG_SERBIAN_CYRILLIC #x03) + +(defconstant-exported SUBLANG_SPANISH #x01) + +(defconstant-exported SUBLANG_SPANISH_MEXICAN #x02) + +(defconstant-exported SUBLANG_SPANISH_MODERN #x03) + +(defconstant-exported SUBLANG_SPANISH_GUATEMALA #x04) + +(defconstant-exported SUBLANG_SPANISH_COSTA_RICA #x05) + +(defconstant-exported SUBLANG_SPANISH_PANAMA #x06) + +(defconstant-exported SUBLANG_SPANISH_DOMINICAN_REPUBLIC #x07) + +(defconstant-exported SUBLANG_SPANISH_VENEZUELA #x08) + +(defconstant-exported SUBLANG_SPANISH_COLOMBIA #x09) + +(defconstant-exported SUBLANG_SPANISH_PERU #x0a) + +(defconstant-exported SUBLANG_SPANISH_ARGENTINA #x0b) + +(defconstant-exported SUBLANG_SPANISH_ECUADOR #x0c) + +(defconstant-exported SUBLANG_SPANISH_CHILE #x0d) + +(defconstant-exported SUBLANG_SPANISH_URUGUAY #x0e) + +(defconstant-exported SUBLANG_SPANISH_PARAGUAY #x0f) + +(defconstant-exported SUBLANG_SPANISH_BOLIVIA #x10) + +(defconstant-exported SUBLANG_SPANISH_EL_SALVADOR #x11) + +(defconstant-exported SUBLANG_SPANISH_HONDURAS #x12) + +(defconstant-exported SUBLANG_SPANISH_NICARAGUA #x13) + +(defconstant-exported SUBLANG_SPANISH_PUERTO_RICO #x14) + +(defconstant-exported SUBLANG_SWEDISH #x01) + +(defconstant-exported SUBLANG_SWEDISH_FINLAND #x02) + +(defconstant-exported SUBLANG_URDU_PAKISTAN #x01) + +(defconstant-exported SUBLANG_URDU_INDIA #x02) + +(defconstant-exported SUBLANG_UZBEK_LATIN #x01) + +(defconstant-exported SUBLANG_UZBEK_CYRILLIC #x02) + +(defconstant-exported NLS_VALID_LOCALE_MASK 1048575) + +(defconstant-exported SORT_DEFAULT 0) + +(defconstant-exported SORT_JAPANESE_XJIS 0) + +(defconstant-exported SORT_JAPANESE_UNICODE 1) + +(defconstant-exported SORT_CHINESE_BIG5 0) + +(defconstant-exported SORT_CHINESE_PRCP 0) + +(defconstant-exported SORT_CHINESE_UNICODE 1) + +(defconstant-exported SORT_CHINESE_PRC 2) + +(defconstant-exported SORT_CHINESE_BOPOMOFO 3) + +(defconstant-exported SORT_KOREAN_KSC 0) + +(defconstant-exported SORT_KOREAN_UNICODE 1) + +(defconstant-exported SORT_GERMAN_PHONE_BOOK 1) + +(defconstant-exported SORT_HUNGARIAN_DEFAULT 0) + +(defconstant-exported SORT_HUNGARIAN_TECHNICAL 1) + +(defconstant-exported SORT_GEORGIAN_TRADITIONAL 0) + +(defconstant-exported SORT_GEORGIAN_MODERN 1) + +(defconstant-exported ACL_REVISION 2) + +(defconstant-exported ACL_REVISION_DS 4) + +(defconstant-exported ACL_REVISION1 1) + +(defconstant-exported ACL_REVISION2 2) + +(defconstant-exported ACL_REVISION3 3) + +(defconstant-exported ACL_REVISION4 4) + +(defconstant-exported MIN_ACL_REVISION 2) + +(defconstant-exported MAX_ACL_REVISION 4) + +(defconstant-exported MINCHAR #x80) + +(defconstant-exported MAXCHAR #x7f) + +(defconstant-exported MINSHORT #x8000) + +(defconstant-exported MAXSHORT #x7fff) + +(defconstant-exported MINLONG #x80000000) + +(defconstant-exported MAXLONG #x7fffffff) + +(defconstant-exported MAXBYTE #xff) + +(defconstant-exported MAXWORD #xffff) + +(defconstant-exported MAXDWORD #xffffffff) + +(defconstant-exported PROCESSOR_INTEL_386 386) + +(defconstant-exported PROCESSOR_INTEL_486 486) + +(defconstant-exported PROCESSOR_INTEL_PENTIUM 586) + +(defconstant-exported PROCESSOR_MIPS_R4000 4000) + +(defconstant-exported PROCESSOR_ALPHA_21064 21064) + +(defconstant-exported PROCESSOR_INTEL_IA64 2200) + +(defconstant-exported PROCESSOR_ARCHITECTURE_INTEL 0) + +(defconstant-exported PROCESSOR_ARCHITECTURE_MIPS 1) + +(defconstant-exported PROCESSOR_ARCHITECTURE_ALPHA 2) + +(defconstant-exported PROCESSOR_ARCHITECTURE_PPC 3) + +(defconstant-exported PROCESSOR_ARCHITECTURE_SHX 4) + +(defconstant-exported PROCESSOR_ARCHITECTURE_ARM 5) + +(defconstant-exported PROCESSOR_ARCHITECTURE_IA64 6) + +(defconstant-exported PROCESSOR_ARCHITECTURE_ALPHA64 7) + +(defconstant-exported PROCESSOR_ARCHITECTURE_MSIL 8) + +(defconstant-exported PROCESSOR_ARCHITECTURE_AMD64 9) + +(defconstant-exported PROCESSOR_ARCHITECTURE_IA32_ON_WIN64 10) + +(defconstant-exported PROCESSOR_ARCHITECTURE_UNKNOWN #xFFFF) + +(defconstant-exported PF_FLOATING_POINT_PRECISION_ERRATA 0) + +(defconstant-exported PF_FLOATING_POINT_EMULATED 1) + +(defconstant-exported PF_COMPARE_EXCHANGE_DOUBLE 2) + +(defconstant-exported PF_MMX_INSTRUCTIONS_AVAILABLE 3) + +(defconstant-exported PF_PPC_MOVEMEM_64BIT_OK 4) + +(defconstant-exported PF_ALPHA_BYTE_INSTRUCTIONS 5) + +(defconstant-exported PF_XMMI_INSTRUCTIONS_AVAILABLE 6) + +(defconstant-exported PF_3DNOW_INSTRUCTIONS_AVAILABLE 7) + +(defconstant-exported PF_RDTSC_INSTRUCTION_AVAILABLE 8) + +(defconstant-exported PF_PAE_ENABLED 9) + +(defconstant-exported PF_XMMI64_INSTRUCTIONS_AVAILABLE 10) + +(defconstant-exported FILE_ACTION_ADDED #x00000001) + +(defconstant-exported FILE_ACTION_REMOVED #x00000002) + +(defconstant-exported FILE_ACTION_MODIFIED #x00000003) + +(defconstant-exported FILE_ACTION_RENAMED_OLD_NAME #x00000004) + +(defconstant-exported FILE_ACTION_RENAMED_NEW_NAME #x00000005) + +(defconstant-exported FILE_ACTION_ADDED_STREAM #x00000006) + +(defconstant-exported FILE_ACTION_REMOVED_STREAM #x00000007) + +(defconstant-exported FILE_ACTION_MODIFIED_STREAM #x00000008) + +(defconstant-exported FILE_ACTION_REMOVED_BY_DELETE #x00000009) + +(defconstant-exported FILE_ACTION_ID_NOT_TUNNELLED #x0000000A) + +(defconstant-exported FILE_ACTION_TUNNELLED_ID_COLLISION #x0000000B) + +(defconstant-exported HEAP_NO_SERIALIZE 1) + +(defconstant-exported HEAP_GROWABLE 2) + +(defconstant-exported HEAP_GENERATE_EXCEPTIONS 4) + +(defconstant-exported HEAP_ZERO_MEMORY 8) + +(defconstant-exported HEAP_REALLOC_IN_PLACE_ONLY 16) + +(defconstant-exported HEAP_TAIL_CHECKING_ENABLED 32) + +(defconstant-exported HEAP_FREE_CHECKING_ENABLED 64) + +(defconstant-exported HEAP_DISABLE_COALESCE_ON_FREE 128) + +(defconstant-exported HEAP_CREATE_ALIGN_16 #x0000) + +(defconstant-exported HEAP_CREATE_ENABLE_TRACING #x20000) + +(defconstant-exported HEAP_MAXIMUM_TAG #xFFF) + +(defconstant-exported HEAP_PSEUDO_TAG_FLAG #x8000) + +(defconstant-exported HEAP_TAG_SHIFT 16) + +(defconstant-exported KEY_QUERY_VALUE 1) + +(defconstant-exported KEY_SET_VALUE 2) + +(defconstant-exported KEY_CREATE_SUB_KEY 4) + +(defconstant-exported KEY_ENUMERATE_SUB_KEYS 8) + +(defconstant-exported KEY_NOTIFY 16) + +(defconstant-exported KEY_CREATE_LINK 32) + +(defconstant-exported KEY_WRITE #x20006) + +(defconstant-exported KEY_EXECUTE #x20019) + +(defconstant-exported KEY_READ #x20019) + +(defconstant-exported KEY_ALL_ACCESS #xf003f) + +(defconstant-exported REG_WHOLE_HIVE_VOLATILE 1) + +(defconstant-exported REG_REFRESH_HIVE 2) + +(defconstant-exported REG_NO_LAZY_FLUSH 4) + +(defconstant-exported REG_OPTION_RESERVED 0) + +(defconstant-exported REG_OPTION_NON_VOLATILE 0) + +(defconstant-exported REG_OPTION_VOLATILE 1) + +(defconstant-exported REG_OPTION_CREATE_LINK 2) + +(defconstant-exported REG_OPTION_BACKUP_RESTORE 4) + +(defconstant-exported REG_OPTION_OPEN_LINK 8) + +(defconstant-exported REG_LEGAL_OPTION 15) + +(defconstant-exported OWNER_SECURITY_INFORMATION 1) + +(defconstant-exported GROUP_SECURITY_INFORMATION 2) + +(defconstant-exported DACL_SECURITY_INFORMATION 4) + +(defconstant-exported SACL_SECURITY_INFORMATION 8) + +(defconstant-exported MAXIMUM_PROCESSORS 32) + +(defconstant-exported PAGE_NOACCESS #x0001) + +(defconstant-exported PAGE_READONLY #x0002) + +(defconstant-exported PAGE_READWRITE #x0004) + +(defconstant-exported PAGE_WRITECOPY #x0008) + +(defconstant-exported PAGE_EXECUTE #x0010) + +(defconstant-exported PAGE_EXECUTE_READ #x0020) + +(defconstant-exported PAGE_EXECUTE_READWRITE #x0040) + +(defconstant-exported PAGE_EXECUTE_WRITECOPY #x0080) + +(defconstant-exported PAGE_GUARD #x0100) + +(defconstant-exported PAGE_NOCACHE #x0200) + +(defconstant-exported MEM_COMMIT #x1000) + +(defconstant-exported MEM_RESERVE #x2000) + +(defconstant-exported MEM_DECOMMIT #x4000) + +(defconstant-exported MEM_RELEASE #x8000) + +(defconstant-exported MEM_FREE #x10000) + +(defconstant-exported MEM_PRIVATE #x20000) + +(defconstant-exported MEM_MAPPED #x40000) + +(defconstant-exported MEM_RESET #x80000) + +(defconstant-exported MEM_TOP_DOWN #x100000) + +(defconstant-exported MEM_WRITE_WATCH #x200000) + +(defconstant-exported MEM_PHYSICAL #x400000) + +(defconstant-exported MEM_4MB_PAGES #x80000000) + +(defconstant-exported SEC_BASED #x00200000) + +(defconstant-exported SEC_NO_CHANGE #x00400000) + +(defconstant-exported SEC_FILE #x00800000) + +(defconstant-exported SEC_IMAGE #x01000000) + +(defconstant-exported SEC_VLM #x02000000) + +(defconstant-exported SEC_RESERVE #x04000000) + +(defconstant-exported SEC_COMMIT #x08000000) + +(defconstant-exported SEC_NOCACHE #x10000000) + +(defconstant-exported SECTION_EXTEND_SIZE 16) + +(defconstant-exported SECTION_MAP_READ 4) + +(defconstant-exported SECTION_MAP_WRITE 2) + +(defconstant-exported SECTION_QUERY 1) + +(defconstant-exported SECTION_MAP_EXECUTE 8) + +(defconstant-exported SECTION_ALL_ACCESS #xf001f) + +(defconstant-exported MESSAGE_RESOURCE_UNICODE 1) + +(defconstant-exported RTL_CRITSECT_TYPE 0) + +(defconstant-exported RTL_RESOURCE_TYPE 1) + +(defconstant-exported IMAGE_SIZEOF_FILE_HEADER 20) + +(defconstant-exported IMAGE_FILE_RELOCS_STRIPPED 1) + +(defconstant-exported IMAGE_FILE_EXECUTABLE_IMAGE 2) + +(defconstant-exported IMAGE_FILE_LINE_NUMS_STRIPPED 4) + +(defconstant-exported IMAGE_FILE_LOCAL_SYMS_STRIPPED 8) + +(defconstant-exported IMAGE_FILE_AGGRESIVE_WS_TRIM 16) + +(defconstant-exported IMAGE_FILE_LARGE_ADDRESS_AWARE 32) + +(defconstant-exported IMAGE_FILE_BYTES_REVERSED_LO 128) + +(defconstant-exported IMAGE_FILE_32BIT_MACHINE 256) + +(defconstant-exported IMAGE_FILE_DEBUG_STRIPPED 512) + +(defconstant-exported IMAGE_FILE_REMOVABLE_RUN_FROM_SWAP 1024) + +(defconstant-exported IMAGE_FILE_NET_RUN_FROM_SWAP 2048) + +(defconstant-exported IMAGE_FILE_SYSTEM 4096) + +(defconstant-exported IMAGE_FILE_DLL 8192) + +(defconstant-exported IMAGE_FILE_UP_SYSTEM_ONLY 16384) + +(defconstant-exported IMAGE_FILE_BYTES_REVERSED_HI 32768) + +(defconstant-exported IMAGE_FILE_MACHINE_UNKNOWN 0) + +(defconstant-exported IMAGE_FILE_MACHINE_I386 332) + +(defconstant-exported IMAGE_FILE_MACHINE_R3000 354) + +(defconstant-exported IMAGE_FILE_MACHINE_R4000 358) + +(defconstant-exported IMAGE_FILE_MACHINE_R10000 360) + +(defconstant-exported IMAGE_FILE_MACHINE_ALPHA 388) + +(defconstant-exported IMAGE_FILE_MACHINE_POWERPC 496) + +(defconstant-exported IMAGE_DOS_SIGNATURE #x5A4D) + +(defconstant-exported IMAGE_OS2_SIGNATURE #x454E) + +(defconstant-exported IMAGE_OS2_SIGNATURE_LE #x454C) + +(defconstant-exported IMAGE_VXD_SIGNATURE #x454C) + +(defconstant-exported IMAGE_NT_SIGNATURE #x00004550) + +(defconstant-exported IMAGE_NT_OPTIONAL_HDR_MAGIC #x10b) + +(defconstant-exported IMAGE_ROM_OPTIONAL_HDR_MAGIC #x107) + +(defconstant-exported IMAGE_SEPARATE_DEBUG_SIGNATURE #x4944) + +(defconstant-exported IMAGE_NUMBEROF_DIRECTORY_ENTRIES 16) + +(defconstant-exported IMAGE_SIZEOF_ROM_OPTIONAL_HEADER 56) + +(defconstant-exported IMAGE_SIZEOF_STD_OPTIONAL_HEADER 28) + +(defconstant-exported IMAGE_SIZEOF_NT_OPTIONAL_HEADER 224) + +(defconstant-exported IMAGE_SIZEOF_SHORT_NAME 8) + +(defconstant-exported IMAGE_SIZEOF_SECTION_HEADER 40) + +(defconstant-exported IMAGE_SIZEOF_SYMBOL 18) + +(defconstant-exported IMAGE_SIZEOF_AUX_SYMBOL 18) + +(defconstant-exported IMAGE_SIZEOF_RELOCATION 10) + +(defconstant-exported IMAGE_SIZEOF_BASE_RELOCATION 8) + +(defconstant-exported IMAGE_SIZEOF_LINENUMBER 6) + +(defconstant-exported IMAGE_SIZEOF_ARCHIVE_MEMBER_HDR 60) + +(defconstant-exported SIZEOF_RFPO_DATA 16) + +(defconstant-exported IMAGE_SUBSYSTEM_UNKNOWN 0) + +(defconstant-exported IMAGE_SUBSYSTEM_NATIVE 1) + +(defconstant-exported IMAGE_SUBSYSTEM_WINDOWS_GUI 2) + +(defconstant-exported IMAGE_SUBSYSTEM_WINDOWS_CUI 3) + +(defconstant-exported IMAGE_SUBSYSTEM_OS2_CUI 5) + +(defconstant-exported IMAGE_SUBSYSTEM_POSIX_CUI 7) + +(defconstant-exported IMAGE_SUBSYSTEM_XBOX 14) + +(defconstant-exported IMAGE_DIRECTORY_ENTRY_EXPORT 0) + +(defconstant-exported IMAGE_DIRECTORY_ENTRY_IMPORT 1) + +(defconstant-exported IMAGE_DIRECTORY_ENTRY_RESOURCE 2) + +(defconstant-exported IMAGE_DIRECTORY_ENTRY_EXCEPTION 3) + +(defconstant-exported IMAGE_DIRECTORY_ENTRY_SECURITY 4) + +(defconstant-exported IMAGE_DIRECTORY_ENTRY_BASERELOC 5) + +(defconstant-exported IMAGE_DIRECTORY_ENTRY_DEBUG 6) + +(defconstant-exported IMAGE_DIRECTORY_ENTRY_COPYRIGHT 7) + +(defconstant-exported IMAGE_DIRECTORY_ENTRY_GLOBALPTR 8) + +(defconstant-exported IMAGE_DIRECTORY_ENTRY_TLS 9) + +(defconstant-exported IMAGE_DIRECTORY_ENTRY_LOAD_CONFIG 10) + +(defconstant-exported IMAGE_DIRECTORY_ENTRY_BOUND_IMPORT 11) + +(defconstant-exported IMAGE_DIRECTORY_ENTRY_IAT 12) + +(defconstant-exported IMAGE_SCN_TYPE_NO_PAD 8) + +(defconstant-exported IMAGE_SCN_CNT_CODE 32) + +(defconstant-exported IMAGE_SCN_CNT_INITIALIZED_DATA 64) + +(defconstant-exported IMAGE_SCN_CNT_UNINITIALIZED_DATA 128) + +(defconstant-exported IMAGE_SCN_LNK_OTHER 256) + +(defconstant-exported IMAGE_SCN_LNK_INFO 512) + +(defconstant-exported IMAGE_SCN_LNK_REMOVE 2048) + +(defconstant-exported IMAGE_SCN_LNK_COMDAT 4096) + +(defconstant-exported IMAGE_SCN_MEM_FARDATA #x8000) + +(defconstant-exported IMAGE_SCN_MEM_PURGEABLE #x20000) + +(defconstant-exported IMAGE_SCN_MEM_16BIT #x20000) + +(defconstant-exported IMAGE_SCN_MEM_LOCKED #x40000) + +(defconstant-exported IMAGE_SCN_MEM_PRELOAD #x80000) + +(defconstant-exported IMAGE_SCN_ALIGN_1BYTES #x100000) + +(defconstant-exported IMAGE_SCN_ALIGN_2BYTES #x200000) + +(defconstant-exported IMAGE_SCN_ALIGN_4BYTES #x300000) + +(defconstant-exported IMAGE_SCN_ALIGN_8BYTES #x400000) + +(defconstant-exported IMAGE_SCN_ALIGN_16BYTES #x500000) + +(defconstant-exported IMAGE_SCN_ALIGN_32BYTES #x600000) + +(defconstant-exported IMAGE_SCN_ALIGN_64BYTES #x700000) + +(defconstant-exported IMAGE_SCN_LNK_NRELOC_OVFL #x1000000) + +(defconstant-exported IMAGE_SCN_MEM_DISCARDABLE #x2000000) + +(defconstant-exported IMAGE_SCN_MEM_NOT_CACHED #x4000000) + +(defconstant-exported IMAGE_SCN_MEM_NOT_PAGED #x8000000) + +(defconstant-exported IMAGE_SCN_MEM_SHARED #x10000000) + +(defconstant-exported IMAGE_SCN_MEM_EXECUTE #x20000000) + +(defconstant-exported IMAGE_SCN_MEM_READ #x40000000) + +(defconstant-exported IMAGE_SCN_MEM_WRITE #x80000000) + +(defconstant-exported IMAGE_SYM_UNDEFINED 0) + +(defconstant-exported IMAGE_SYM_ABSOLUTE -1) + +(defconstant-exported IMAGE_SYM_DEBUG -2) + +(defconstant-exported IMAGE_SYM_TYPE_NULL 0) + +(defconstant-exported IMAGE_SYM_TYPE_VOID 1) + +(defconstant-exported IMAGE_SYM_TYPE_CHAR 2) + +(defconstant-exported IMAGE_SYM_TYPE_SHORT 3) + +(defconstant-exported IMAGE_SYM_TYPE_INT 4) + +(defconstant-exported IMAGE_SYM_TYPE_LONG 5) + +(defconstant-exported IMAGE_SYM_TYPE_FLOAT 6) + +(defconstant-exported IMAGE_SYM_TYPE_DOUBLE 7) + +(defconstant-exported IMAGE_SYM_TYPE_STRUCT 8) + +(defconstant-exported IMAGE_SYM_TYPE_UNION 9) + +(defconstant-exported IMAGE_SYM_TYPE_ENUM 10) + +(defconstant-exported IMAGE_SYM_TYPE_MOE 11) + +(defconstant-exported IMAGE_SYM_TYPE_BYTE 12) + +(defconstant-exported IMAGE_SYM_TYPE_WORD 13) + +(defconstant-exported IMAGE_SYM_TYPE_UINT 14) + +(defconstant-exported IMAGE_SYM_TYPE_DWORD 15) + +(defconstant-exported IMAGE_SYM_TYPE_PCODE 32768) + +(defconstant-exported IMAGE_SYM_DTYPE_NULL 0) + +(defconstant-exported IMAGE_SYM_DTYPE_POINTER 1) + +(defconstant-exported IMAGE_SYM_DTYPE_FUNCTION 2) + +(defconstant-exported IMAGE_SYM_DTYPE_ARRAY 3) + +(defconstant-exported IMAGE_SYM_CLASS_END_OF_FUNCTION -1) + +(defconstant-exported IMAGE_SYM_CLASS_NULL 0) + +(defconstant-exported IMAGE_SYM_CLASS_AUTOMATIC 1) + +(defconstant-exported IMAGE_SYM_CLASS_EXTERNAL 2) + +(defconstant-exported IMAGE_SYM_CLASS_STATIC 3) + +(defconstant-exported IMAGE_SYM_CLASS_REGISTER 4) + +(defconstant-exported IMAGE_SYM_CLASS_EXTERNAL_DEF 5) + +(defconstant-exported IMAGE_SYM_CLASS_LABEL 6) + +(defconstant-exported IMAGE_SYM_CLASS_UNDEFINED_LABEL 7) + +(defconstant-exported IMAGE_SYM_CLASS_MEMBER_OF_STRUCT 8) + +(defconstant-exported IMAGE_SYM_CLASS_ARGUMENT 9) + +(defconstant-exported IMAGE_SYM_CLASS_STRUCT_TAG 10) + +(defconstant-exported IMAGE_SYM_CLASS_MEMBER_OF_UNION 11) + +(defconstant-exported IMAGE_SYM_CLASS_UNION_TAG 12) + +(defconstant-exported IMAGE_SYM_CLASS_TYPE_DEFINITION 13) + +(defconstant-exported IMAGE_SYM_CLASS_UNDEFINED_STATIC 14) + +(defconstant-exported IMAGE_SYM_CLASS_ENUM_TAG 15) + +(defconstant-exported IMAGE_SYM_CLASS_MEMBER_OF_ENUM 16) + +(defconstant-exported IMAGE_SYM_CLASS_REGISTER_PARAM 17) + +(defconstant-exported IMAGE_SYM_CLASS_BIT_FIELD 18) + +(defconstant-exported IMAGE_SYM_CLASS_FAR_EXTERNAL 68) + +(defconstant-exported IMAGE_SYM_CLASS_BLOCK 100) + +(defconstant-exported IMAGE_SYM_CLASS_FUNCTION 101) + +(defconstant-exported IMAGE_SYM_CLASS_END_OF_STRUCT 102) + +(defconstant-exported IMAGE_SYM_CLASS_FILE 103) + +(defconstant-exported IMAGE_SYM_CLASS_SECTION 104) + +(defconstant-exported IMAGE_SYM_CLASS_WEAK_EXTERNAL 105) + +(defconstant-exported IMAGE_COMDAT_SELECT_NODUPLICATES 1) + +(defconstant-exported IMAGE_COMDAT_SELECT_ANY 2) + +(defconstant-exported IMAGE_COMDAT_SELECT_SAME_SIZE 3) + +(defconstant-exported IMAGE_COMDAT_SELECT_EXACT_MATCH 4) + +(defconstant-exported IMAGE_COMDAT_SELECT_ASSOCIATIVE 5) + +(defconstant-exported IMAGE_COMDAT_SELECT_LARGEST 6) + +(defconstant-exported IMAGE_COMDAT_SELECT_NEWEST 7) + +(defconstant-exported IMAGE_WEAK_EXTERN_SEARCH_NOLIBRARY 1) + +(defconstant-exported IMAGE_WEAK_EXTERN_SEARCH_LIBRARY 2) + +(defconstant-exported IMAGE_WEAK_EXTERN_SEARCH_ALIAS 3) + +(defconstant-exported IMAGE_REL_I386_ABSOLUTE 0) + +(defconstant-exported IMAGE_REL_I386_DIR16 1) + +(defconstant-exported IMAGE_REL_I386_REL16 2) + +(defconstant-exported IMAGE_REL_I386_DIR32 6) + +(defconstant-exported IMAGE_REL_I386_DIR32NB 7) + +(defconstant-exported IMAGE_REL_I386_SEG12 9) + +(defconstant-exported IMAGE_REL_I386_SECTION 10) + +(defconstant-exported IMAGE_REL_I386_SECREL 11) + +(defconstant-exported IMAGE_REL_I386_REL32 20) + +(defconstant-exported IMAGE_REL_MIPS_ABSOLUTE 0) + +(defconstant-exported IMAGE_REL_MIPS_REFHALF 1) + +(defconstant-exported IMAGE_REL_MIPS_REFWORD 2) + +(defconstant-exported IMAGE_REL_MIPS_JMPADDR 3) + +(defconstant-exported IMAGE_REL_MIPS_REFHI 4) + +(defconstant-exported IMAGE_REL_MIPS_REFLO 5) + +(defconstant-exported IMAGE_REL_MIPS_GPREL 6) + +(defconstant-exported IMAGE_REL_MIPS_LITERAL 7) + +(defconstant-exported IMAGE_REL_MIPS_SECTION 10) + +(defconstant-exported IMAGE_REL_MIPS_SECREL 11) + +(defconstant-exported IMAGE_REL_MIPS_SECRELLO 12) + +(defconstant-exported IMAGE_REL_MIPS_SECRELHI 13) + +(defconstant-exported IMAGE_REL_MIPS_REFWORDNB 34) + +(defconstant-exported IMAGE_REL_MIPS_PAIR 35) + +(defconstant-exported IMAGE_REL_ALPHA_ABSOLUTE 0) + +(defconstant-exported IMAGE_REL_ALPHA_REFLONG 1) + +(defconstant-exported IMAGE_REL_ALPHA_REFQUAD 2) + +(defconstant-exported IMAGE_REL_ALPHA_GPREL32 3) + +(defconstant-exported IMAGE_REL_ALPHA_LITERAL 4) + +(defconstant-exported IMAGE_REL_ALPHA_LITUSE 5) + +(defconstant-exported IMAGE_REL_ALPHA_GPDISP 6) + +(defconstant-exported IMAGE_REL_ALPHA_BRADDR 7) + +(defconstant-exported IMAGE_REL_ALPHA_HINT 8) + +(defconstant-exported IMAGE_REL_ALPHA_INLINE_REFLONG 9) + +(defconstant-exported IMAGE_REL_ALPHA_REFHI 10) + +(defconstant-exported IMAGE_REL_ALPHA_REFLO 11) + +(defconstant-exported IMAGE_REL_ALPHA_PAIR 12) + +(defconstant-exported IMAGE_REL_ALPHA_MATCH 13) + +(defconstant-exported IMAGE_REL_ALPHA_SECTION 14) + +(defconstant-exported IMAGE_REL_ALPHA_SECREL 15) + +(defconstant-exported IMAGE_REL_ALPHA_REFLONGNB 16) + +(defconstant-exported IMAGE_REL_ALPHA_SECRELLO 17) + +(defconstant-exported IMAGE_REL_ALPHA_SECRELHI 18) + +(defconstant-exported IMAGE_REL_PPC_ABSOLUTE 0) + +(defconstant-exported IMAGE_REL_PPC_ADDR64 1) + +(defconstant-exported IMAGE_REL_PPC_ADDR32 2) + +(defconstant-exported IMAGE_REL_PPC_ADDR24 3) + +(defconstant-exported IMAGE_REL_PPC_ADDR16 4) + +(defconstant-exported IMAGE_REL_PPC_ADDR14 5) + +(defconstant-exported IMAGE_REL_PPC_REL24 6) + +(defconstant-exported IMAGE_REL_PPC_REL14 7) + +(defconstant-exported IMAGE_REL_PPC_TOCREL16 8) + +(defconstant-exported IMAGE_REL_PPC_TOCREL14 9) + +(defconstant-exported IMAGE_REL_PPC_ADDR32NB 10) + +(defconstant-exported IMAGE_REL_PPC_SECREL 11) + +(defconstant-exported IMAGE_REL_PPC_SECTION 12) + +(defconstant-exported IMAGE_REL_PPC_IFGLUE 13) + +(defconstant-exported IMAGE_REL_PPC_IMGLUE 14) + +(defconstant-exported IMAGE_REL_PPC_SECREL16 15) + +(defconstant-exported IMAGE_REL_PPC_REFHI 16) + +(defconstant-exported IMAGE_REL_PPC_REFLO 17) + +(defconstant-exported IMAGE_REL_PPC_PAIR 18) + +(defconstant-exported IMAGE_REL_PPC_TYPEMASK 255) + +(defconstant-exported IMAGE_REL_PPC_NEG 256) + +(defconstant-exported IMAGE_REL_PPC_BRTAKEN 512) + +(defconstant-exported IMAGE_REL_PPC_BRNTAKEN 1024) + +(defconstant-exported IMAGE_REL_PPC_TOCDEFN 2048) + +(defconstant-exported IMAGE_REL_BASED_ABSOLUTE 0) + +(defconstant-exported IMAGE_REL_BASED_HIGH 1) + +(defconstant-exported IMAGE_REL_BASED_LOW 2) + +(defconstant-exported IMAGE_REL_BASED_HIGHLOW 3) + +(defconstant-exported IMAGE_REL_BASED_HIGHADJ 4) + +(defconstant-exported IMAGE_REL_BASED_MIPS_JMPADDR 5) + +(defconstant-exported IMAGE_ARCHIVE_START_SIZE 8) + +(defconstant-exported IMAGE_ARCHIVE_START "!\n") + +(defconstant-exported IMAGE_ARCHIVE_END "`\n") + +(defconstant-exported IMAGE_ARCHIVE_PAD "\n") + +(defconstant-exported IMAGE_ARCHIVE_LINKER_MEMBER "/ ") + +(defconstant-exported IMAGE_ARCHIVE_LONGNAMES_MEMBER "// ") + +(defconstant-exported IMAGE_ORDINAL_FLAG32 #x80000000) + +(defconstant-exported IMAGE_ORDINAL_FLAG64 #x8000000000000000) + +(defconstant-exported IMAGE_ORDINAL_FLAG #x80000000) + +(defconstant-exported IMAGE_RESOURCE_NAME_IS_STRING #x80000000) + +(defconstant-exported IMAGE_RESOURCE_DATA_IS_DIRECTORY #x80000000) + +(defconstant-exported IMAGE_DEBUG_TYPE_UNKNOWN 0) + +(defconstant-exported IMAGE_DEBUG_TYPE_COFF 1) + +(defconstant-exported IMAGE_DEBUG_TYPE_CODEVIEW 2) + +(defconstant-exported IMAGE_DEBUG_TYPE_FPO 3) + +(defconstant-exported IMAGE_DEBUG_TYPE_MISC 4) + +(defconstant-exported IMAGE_DEBUG_TYPE_EXCEPTION 5) + +(defconstant-exported IMAGE_DEBUG_TYPE_FIXUP 6) + +(defconstant-exported IMAGE_DEBUG_TYPE_OMAP_TO_SRC 7) + +(defconstant-exported IMAGE_DEBUG_TYPE_OMAP_FROM_SRC 8) + +(defconstant-exported FRAME_FPO 0) + +(defconstant-exported FRAME_TRAP 1) + +(defconstant-exported FRAME_TSS 2) + +(defconstant-exported FRAME_NONFPO 3) + +(defconstant-exported IMAGE_DEBUG_MISC_EXENAME 1) + +(defconstant-exported N_BTMASK #x000F) + +(defconstant-exported N_TMASK #x0030) + +(defconstant-exported N_TMASK1 #x00C0) + +(defconstant-exported N_TMASK2 #x00F0) + +(defconstant-exported N_BTSHFT 4) + +(defconstant-exported N_TSHIFT 2) + +(defconstant-exported IS_TEXT_UNICODE_ASCII16 1) + +(defconstant-exported IS_TEXT_UNICODE_REVERSE_ASCII16 16) + +(defconstant-exported IS_TEXT_UNICODE_STATISTICS 2) + +(defconstant-exported IS_TEXT_UNICODE_REVERSE_STATISTICS 32) + +(defconstant-exported IS_TEXT_UNICODE_CONTROLS 4) + +(defconstant-exported IS_TEXT_UNICODE_REVERSE_CONTROLS 64) + +(defconstant-exported IS_TEXT_UNICODE_SIGNATURE 8) + +(defconstant-exported IS_TEXT_UNICODE_REVERSE_SIGNATURE 128) + +(defconstant-exported IS_TEXT_UNICODE_ILLEGAL_CHARS 256) + +(defconstant-exported IS_TEXT_UNICODE_ODD_LENGTH 512) + +(defconstant-exported IS_TEXT_UNICODE_NULL_BYTES 4096) + +(defconstant-exported IS_TEXT_UNICODE_UNICODE_MASK 15) + +(defconstant-exported IS_TEXT_UNICODE_REVERSE_MASK 240) + +(defconstant-exported IS_TEXT_UNICODE_NOT_UNICODE_MASK 3840) + +(defconstant-exported IS_TEXT_UNICODE_NOT_ASCII_MASK 61440) + +(defconstant-exported SERVICE_KERNEL_DRIVER 1) + +(defconstant-exported SERVICE_FILE_SYSTEM_DRIVER 2) + +(defconstant-exported SERVICE_ADAPTER 4) + +(defconstant-exported SERVICE_RECOGNIZER_DRIVER 8) + +(defconstant-exported SERVICE_DRIVER (cl:logior 1 2 8)) + +(defconstant-exported SERVICE_WIN32_OWN_PROCESS 16) + +(defconstant-exported SERVICE_WIN32_SHARE_PROCESS 32) + +(defconstant-exported SERVICE_WIN32 (cl:logior 16 32)) + +(defconstant-exported SERVICE_INTERACTIVE_PROCESS 256) + +(defconstant-exported SERVICE_TYPE_ALL (cl:logior SERVICE_WIN32 SERVICE_ADAPTER SERVICE_DRIVER SERVICE_INTERACTIVE_PROCESS)) + +(defconstant-exported SERVICE_BOOT_START 0) + +(defconstant-exported SERVICE_SYSTEM_START 1) + +(defconstant-exported SERVICE_AUTO_START 2) + +(defconstant-exported SERVICE_DEMAND_START 3) + +(defconstant-exported SERVICE_DISABLED 4) + +(defconstant-exported SERVICE_ERROR_IGNORE 0) + +(defconstant-exported SERVICE_ERROR_NORMAL 1) + +(defconstant-exported SERVICE_ERROR_SEVERE 2) + +(defconstant-exported SERVICE_ERROR_CRITICAL 3) + +(defconstant-exported SE_OWNER_DEFAULTED 1) + +(defconstant-exported SE_GROUP_DEFAULTED 2) + +(defconstant-exported SE_DACL_PRESENT 4) + +(defconstant-exported SE_DACL_DEFAULTED 8) + +(defconstant-exported SE_SACL_PRESENT 16) + +(defconstant-exported SE_SACL_DEFAULTED 32) + +(defconstant-exported SE_DACL_AUTO_INHERIT_REQ 256) + +(defconstant-exported SE_SACL_AUTO_INHERIT_REQ 512) + +(defconstant-exported SE_DACL_AUTO_INHERITED 1024) + +(defconstant-exported SE_SACL_AUTO_INHERITED 2048) + +(defconstant-exported SE_DACL_PROTECTED 4096) + +(defconstant-exported SE_SACL_PROTECTED 8192) + +(defconstant-exported SE_SELF_RELATIVE #x8000) + +(defconstant-exported SECURITY_DESCRIPTOR_MIN_LENGTH 20) + +(defconstant-exported SECURITY_DESCRIPTOR_REVISION 1) + +(defconstant-exported SECURITY_DESCRIPTOR_REVISION1 1) + +(defconstant-exported SE_PRIVILEGE_ENABLED_BY_DEFAULT 1) + +(defconstant-exported SE_PRIVILEGE_ENABLED 2) + +(defconstant-exported SE_PRIVILEGE_USED_FOR_ACCESS #x80000000) + +(defconstant-exported PRIVILEGE_SET_ALL_NECESSARY 1) + +(defconstant-exported SECURITY_DYNAMIC_TRACKING 1) + +(defconstant-exported SECURITY_STATIC_TRACKING 0) + +(defconstant-exported TOKEN_ASSIGN_PRIMARY #x0001) + +(defconstant-exported TOKEN_DUPLICATE #x0002) + +(defconstant-exported TOKEN_IMPERSONATE #x0004) + +(defconstant-exported TOKEN_QUERY #x0008) + +(defconstant-exported TOKEN_QUERY_SOURCE #x0010) + +(defconstant-exported TOKEN_ADJUST_PRIVILEGES #x0020) + +(defconstant-exported TOKEN_ADJUST_GROUPS #x0040) + +(defconstant-exported TOKEN_ADJUST_DEFAULT #x0080) + +(defconstant-exported TOKEN_ALL_ACCESS (cl:logior #xF0000 #x0001 #x0002 #x0004 #x0008 #x0010 #x0020 #x0040 #x0080)) + +(defconstant-exported TOKEN_READ (cl:logior #x20000 #x0008)) + +(defconstant-exported TOKEN_WRITE (cl:logior #x20000 #x0020 #x0040 #x0080)) + +(defconstant-exported TOKEN_EXECUTE #x20000) + +(defconstant-exported TOKEN_SOURCE_LENGTH 8) + +(defconstant-exported DLL_PROCESS_DETACH 0) + +(defconstant-exported DLL_PROCESS_ATTACH 1) + +(defconstant-exported DLL_THREAD_ATTACH 2) + +(defconstant-exported DLL_THREAD_DETACH 3) + +(defconstant-exported DBG_CONTINUE #x10002) + +(defconstant-exported DBG_TERMINATE_THREAD #x40010003) + +(defconstant-exported DBG_TERMINATE_PROCESS #x40010004) + +(defconstant-exported DBG_CONTROL_C #x40010005) + +(defconstant-exported DBG_CONTROL_BREAK #x40010008) + +(defconstant-exported DBG_EXCEPTION_NOT_HANDLED #x80010001) + +(defconstant-exported TAPE_ABSOLUTE_POSITION 0) + +(defconstant-exported TAPE_LOGICAL_POSITION 1) + +(defconstant-exported TAPE_PSEUDO_LOGICAL_POSITION 2) + +(defconstant-exported TAPE_REWIND 0) + +(defconstant-exported TAPE_ABSOLUTE_BLOCK 1) + +(defconstant-exported TAPE_LOGICAL_BLOCK 2) + +(defconstant-exported TAPE_PSEUDO_LOGICAL_BLOCK 3) + +(defconstant-exported TAPE_SPACE_END_OF_DATA 4) + +(defconstant-exported TAPE_SPACE_RELATIVE_BLOCKS 5) + +(defconstant-exported TAPE_SPACE_FILEMARKS 6) + +(defconstant-exported TAPE_SPACE_SEQUENTIAL_FMKS 7) + +(defconstant-exported TAPE_SPACE_SETMARKS 8) + +(defconstant-exported TAPE_SPACE_SEQUENTIAL_SMKS 9) + +(defconstant-exported TAPE_DRIVE_FIXED 1) + +(defconstant-exported TAPE_DRIVE_SELECT 2) + +(defconstant-exported TAPE_DRIVE_INITIATOR 4) + +(defconstant-exported TAPE_DRIVE_ERASE_SHORT 16) + +(defconstant-exported TAPE_DRIVE_ERASE_LONG 32) + +(defconstant-exported TAPE_DRIVE_ERASE_BOP_ONLY 64) + +(defconstant-exported TAPE_DRIVE_ERASE_IMMEDIATE 128) + +(defconstant-exported TAPE_DRIVE_TAPE_CAPACITY 256) + +(defconstant-exported TAPE_DRIVE_TAPE_REMAINING 512) + +(defconstant-exported TAPE_DRIVE_FIXED_BLOCK 1024) + +(defconstant-exported TAPE_DRIVE_VARIABLE_BLOCK 2048) + +(defconstant-exported TAPE_DRIVE_WRITE_PROTECT 4096) + +(defconstant-exported TAPE_DRIVE_EOT_WZ_SIZE 8192) + +(defconstant-exported TAPE_DRIVE_ECC #x10000) + +(defconstant-exported TAPE_DRIVE_COMPRESSION #x20000) + +(defconstant-exported TAPE_DRIVE_PADDING #x40000) + +(defconstant-exported TAPE_DRIVE_REPORT_SMKS #x80000) + +(defconstant-exported TAPE_DRIVE_GET_ABSOLUTE_BLK #x100000) + +(defconstant-exported TAPE_DRIVE_GET_LOGICAL_BLK #x200000) + +(defconstant-exported TAPE_DRIVE_SET_EOT_WZ_SIZE #x400000) + +(defconstant-exported TAPE_DRIVE_EJECT_MEDIA #x1000000) + +(defconstant-exported TAPE_DRIVE_CLEAN_REQUESTS #x2000000) + +(defconstant-exported TAPE_DRIVE_SET_CMP_BOP_ONLY #x4000000) + +(defconstant-exported TAPE_DRIVE_RESERVED_BIT #x80000000) + +(defconstant-exported TAPE_DRIVE_LOAD_UNLOAD #x80000001) + +(defconstant-exported TAPE_DRIVE_TENSION #x80000002) + +(defconstant-exported TAPE_DRIVE_LOCK_UNLOCK #x80000004) + +(defconstant-exported TAPE_DRIVE_REWIND_IMMEDIATE #x80000008) + +(defconstant-exported TAPE_DRIVE_SET_BLOCK_SIZE #x80000010) + +(defconstant-exported TAPE_DRIVE_LOAD_UNLD_IMMED #x80000020) + +(defconstant-exported TAPE_DRIVE_TENSION_IMMED #x80000040) + +(defconstant-exported TAPE_DRIVE_LOCK_UNLK_IMMED #x80000080) + +(defconstant-exported TAPE_DRIVE_SET_ECC #x80000100) + +(defconstant-exported TAPE_DRIVE_SET_COMPRESSION #x80000200) + +(defconstant-exported TAPE_DRIVE_SET_PADDING #x80000400) + +(defconstant-exported TAPE_DRIVE_SET_REPORT_SMKS #x80000800) + +(defconstant-exported TAPE_DRIVE_ABSOLUTE_BLK #x80001000) + +(defconstant-exported TAPE_DRIVE_ABS_BLK_IMMED #x80002000) + +(defconstant-exported TAPE_DRIVE_LOGICAL_BLK #x80004000) + +(defconstant-exported TAPE_DRIVE_LOG_BLK_IMMED #x80008000) + +(defconstant-exported TAPE_DRIVE_END_OF_DATA #x80010000) + +(defconstant-exported TAPE_DRIVE_RELATIVE_BLKS #x80020000) + +(defconstant-exported TAPE_DRIVE_FILEMARKS #x80040000) + +(defconstant-exported TAPE_DRIVE_SEQUENTIAL_FMKS #x80080000) + +(defconstant-exported TAPE_DRIVE_SETMARKS #x80100000) + +(defconstant-exported TAPE_DRIVE_SEQUENTIAL_SMKS #x80200000) + +(defconstant-exported TAPE_DRIVE_REVERSE_POSITION #x80400000) + +(defconstant-exported TAPE_DRIVE_SPACE_IMMEDIATE #x80800000) + +(defconstant-exported TAPE_DRIVE_WRITE_SETMARKS #x81000000) + +(defconstant-exported TAPE_DRIVE_WRITE_FILEMARKS #x82000000) + +(defconstant-exported TAPE_DRIVE_WRITE_SHORT_FMKS #x84000000) + +(defconstant-exported TAPE_DRIVE_WRITE_LONG_FMKS #x88000000) + +(defconstant-exported TAPE_DRIVE_WRITE_MARK_IMMED #x90000000) + +(defconstant-exported TAPE_DRIVE_FORMAT #xA0000000) + +(defconstant-exported TAPE_DRIVE_FORMAT_IMMEDIATE #xC0000000) + +(defconstant-exported TAPE_DRIVE_HIGH_FEATURES #x80000000) + +(defconstant-exported TAPE_FIXED_PARTITIONS 0) + +(defconstant-exported TAPE_INITIATOR_PARTITIONS 2) + +(defconstant-exported TAPE_SELECT_PARTITIONS 1) + +(defconstant-exported TAPE_FILEMARKS 1) + +(defconstant-exported TAPE_LONG_FILEMARKS 3) + +(defconstant-exported TAPE_SETMARKS 0) + +(defconstant-exported TAPE_SHORT_FILEMARKS 2) + +(defconstant-exported TAPE_ERASE_LONG 1) + +(defconstant-exported TAPE_ERASE_SHORT 0) + +(defconstant-exported TAPE_LOAD 0) + +(defconstant-exported TAPE_UNLOAD 1) + +(defconstant-exported TAPE_TENSION 2) + +(defconstant-exported TAPE_LOCK 3) + +(defconstant-exported TAPE_UNLOCK 4) + +(defconstant-exported TAPE_FORMAT 5) + +(defconstant-exported VER_PLATFORM_WIN32s 0) + +(defconstant-exported VER_PLATFORM_WIN32_WINDOWS 1) + +(defconstant-exported VER_PLATFORM_WIN32_NT 2) + +(defconstant-exported VER_NT_WORKSTATION 1) + +(defconstant-exported VER_NT_DOMAIN_CONTROLLER 2) + +(defconstant-exported VER_NT_SERVER 3) + +(defconstant-exported VER_SUITE_SMALLBUSINESS 1) + +(defconstant-exported VER_SUITE_ENTERPRISE 2) + +(defconstant-exported VER_SUITE_BACKOFFICE 4) + +(defconstant-exported VER_SUITE_TERMINAL 16) + +(defconstant-exported VER_SUITE_SMALLBUSINESS_RESTRICTED 32) + +(defconstant-exported VER_SUITE_DATACENTER 128) + +(defconstant-exported VER_SUITE_PERSONAL 512) + +(defconstant-exported VER_SUITE_BLADE 1024) + +(defconstant-exported WT_EXECUTEDEFAULT #x00000000) + +(defconstant-exported WT_EXECUTEINIOTHREAD #x00000001) + +(defconstant-exported WT_EXECUTEINWAITTHREAD #x00000004) + +(defconstant-exported WT_EXECUTEONLYONCE #x00000008) + +(defconstant-exported WT_EXECUTELONGFUNCTION #x00000010) + +(defconstant-exported WT_EXECUTEINTIMERTHREAD #x00000020) + +(defconstant-exported WT_EXECUTEINPERSISTENTTHREAD #x00000080) + +(defconstant-exported WT_TRANSFER_IMPERSONATION #x00000100) + +(defconstant-exported TLS_MINIMUM_AVAILABLE 64) + +(defconstant-exported MAXIMUM_REPARSE_DATA_BUFFER_SIZE 16384) + +(defconstant-exported IO_REPARSE_TAG_RESERVED_ZERO 0) + +(defconstant-exported IO_REPARSE_TAG_RESERVED_ONE 1) + +(defconstant-exported IO_REPARSE_TAG_RESERVED_RANGE 1) + +(defconstant-exported IO_REPARSE_TAG_VALID_VALUES #xE000FFFF) + +(defconstant-exported IO_REPARSE_TAG_SYMBOLIC_LINK 0) + +(defconstant-exported IO_REPARSE_TAG_MOUNT_POINT #xA0000003) + + + + + +(defcstructex-exported GUID + (Data1 :unsigned-long) + (Data2 :unsigned-short) + (Data3 :unsigned-short) + (Data4 :pointer)) + + + + + + + +(defcstructex-exported GENERIC_MAPPING + (GenericRead :unsigned-long) + (GenericWrite :unsigned-long) + (GenericExecute :unsigned-long) + (GenericAll :unsigned-long)) + + + + + +(defcstructex-exported ACE_HEADER + (AceType :unsigned-char) + (AceFlags :unsigned-char) + (AceSize :unsigned-short)) + + + + + +(defcstructex-exported ACCESS_ALLOWED_ACE + (Header ACE_HEADER) + (Mask :unsigned-long) + (SidStart :unsigned-long)) + + + + + +(defcstructex-exported ACCESS_DENIED_ACE + (Header ACE_HEADER) + (Mask :unsigned-long) + (SidStart :unsigned-long)) + + + + + +(defcstructex-exported SYSTEM_AUDIT_ACE + (Header ACE_HEADER) + (Mask :unsigned-long) + (SidStart :unsigned-long)) + + + + + +(defcstructex-exported SYSTEM_ALARM_ACE + (Header ACE_HEADER) + (Mask :unsigned-long) + (SidStart :unsigned-long)) + + + + + +(defcstructex-exported ACCESS_ALLOWED_OBJECT_ACE + (Header ACE_HEADER) + (Mask :unsigned-long) + (Flags :unsigned-long) + (ObjectType GUID) + (InheritedObjectType GUID) + (SidStart :unsigned-long)) + + + + + +(defcstructex-exported ACCESS_DENIED_OBJECT_ACE + (Header ACE_HEADER) + (Mask :unsigned-long) + (Flags :unsigned-long) + (ObjectType GUID) + (InheritedObjectType GUID) + (SidStart :unsigned-long)) + + + + + +(defcstructex-exported SYSTEM_AUDIT_OBJECT_ACE + (Header ACE_HEADER) + (Mask :unsigned-long) + (Flags :unsigned-long) + (ObjectType GUID) + (InheritedObjectType GUID) + (SidStart :unsigned-long)) + + + + + +(defcstructex-exported SYSTEM_ALARM_OBJECT_ACE + (Header ACE_HEADER) + (Mask :unsigned-long) + (Flags :unsigned-long) + (ObjectType GUID) + (InheritedObjectType GUID) + (SidStart :unsigned-long)) + + + + + +(defcstructex-exported ACL + (AclRevision :unsigned-char) + (Sbz1 :unsigned-char) + (AclSize :unsigned-short) + (AceCount :unsigned-short) + (Sbz2 :unsigned-short)) + + + + + +(defcstructex-exported ACL_REVISION_INFORMATION + (AclRevision :unsigned-long)) + + + +(defcstructex-exported ACL_SIZE_INFORMATION + (AceCount :unsigned-long) + (AclBytesInUse :unsigned-long) + (AclBytesFree :unsigned-long)) + + + +(defconstant-exported SIZE_OF_80387_REGISTERS 80) + +(defconstant-exported CONTEXT_i386 #x10000) + +(defconstant-exported CONTEXT_i486 #x10000) + +(defconstant-exported CONTEXT_CONTROL (cl:logior #x10000 #x00000001)) + +(defconstant-exported CONTEXT_INTEGER (cl:logior #x10000 #x00000002)) + +(defconstant-exported CONTEXT_SEGMENTS (cl:logior #x10000 #x00000004)) + +(defconstant-exported CONTEXT_FLOATING_POINT (cl:logior #x10000 #x00000008)) + +(defconstant-exported CONTEXT_DEBUG_REGISTERS (cl:logior #x10000 #x00000010)) + +(defconstant-exported CONTEXT_EXTENDED_REGISTERS (cl:logior #x10000 #x00000020)) + +(defconstant-exported CONTEXT_FULL (cl:logior #x10000 #x00000001 #x10000 #x00000002 #x10000 #x00000004)) + +(defconstant-exported MAXIMUM_SUPPORTED_EXTENSION 512) + +(defcstructex-exported FLOATING_SAVE_AREA + (ControlWord :unsigned-long) + (StatusWord :unsigned-long) + (TagWord :unsigned-long) + (ErrorOffset :unsigned-long) + (ErrorSelector :unsigned-long) + (DataOffset :unsigned-long) + (DataSelector :unsigned-long) + (RegisterArea :pointer) + (Cr0NpxState :unsigned-long)) + + + +(defcstructex-exported CONTEXT + (ContextFlags :unsigned-long) + (Dr0 :unsigned-long) + (Dr1 :unsigned-long) + (Dr2 :unsigned-long) + (Dr3 :unsigned-long) + (Dr6 :unsigned-long) + (Dr7 :unsigned-long) + (FloatSave FLOATING_SAVE_AREA) + (SegGs :unsigned-long) + (SegFs :unsigned-long) + (SegEs :unsigned-long) + (SegDs :unsigned-long) + (Edi :unsigned-long) + (Esi :unsigned-long) + (Ebx :unsigned-long) + (Edx :unsigned-long) + (Ecx :unsigned-long) + (Eax :unsigned-long) + (Ebp :unsigned-long) + (Eip :unsigned-long) + (SegCs :unsigned-long) + (EFlags :unsigned-long) + (Esp :unsigned-long) + (SegSs :unsigned-long) + (ExtendedRegisters :pointer)) + + + + + + + +(defcstructex-exported EXCEPTION_RECORD + (ExceptionCode :unsigned-long) + (ExceptionFlags :unsigned-long) + (ExceptionRecord :pointer) + (ExceptionAddress :pointer) + (NumberParameters :unsigned-long) + (ExceptionInformation :pointer)) + + + + + + + +(defcstructex-exported EXCEPTION_POINTERS + (ExceptionRecord :pointer) + (ContextRecord :pointer)) + + + + + + + +(cffi:defcunion LARGE_INTEGER + (QuadPart :long-long) + (u :pointer)) + + + + + +(defcstructex-exported LARGE_INTEGER_u + (LowPart :unsigned-long) + (HighPart :int32)) + +(cffi:defcunion ULARGE_INTEGER + (QuadPart :unsigned-long-long) + (u :pointer)) + + + + + +(defcstructex-exported ULARGE_INTEGER_u + (LowPart :unsigned-long) + (HighPart :unsigned-long)) + +(defcstructex-exported LUID + (LowPart :unsigned-long) + (HighPart :int32)) + + + + + +(defcstructex-exported LUID_AND_ATTRIBUTES + (Luid LUID) + (Attributes :unsigned-long)) + + + + + + + + + +(defcstructex-exported PRIVILEGE_SET + (PrivilegeCount :unsigned-long) + (Control :unsigned-long) + (Privilege :pointer)) + + + + + +(defcstructex-exported SECURITY_ATTRIBUTES + (nLength :unsigned-long) + (lpSecurityDescriptor :pointer) + (bInheritHandle :int)) + + + + + + + +(cffi:defcenum SECURITY_IMPERSONATION_LEVEL + :SecurityAnonymous + :SecurityIdentification + :SecurityImpersonation + :SecurityDelegation) + + + + + + + +(defcstructex-exported SECURITY_QUALITY_OF_SERVICE + (Length :unsigned-long) + (ImpersonationLevel SECURITY_IMPERSONATION_LEVEL) + (ContextTrackingMode :unsigned-char) + (EffectiveOnly :unsigned-char)) + + + + + + + +(defcstructex-exported SE_IMPERSONATION_STATE + (Token :pointer) + (CopyOnOpen :unsigned-char) + (EffectiveOnly :unsigned-char) + (Level SECURITY_IMPERSONATION_LEVEL)) + + + + + +(defcstructex-exported SID_IDENTIFIER_AUTHORITY + (Value :pointer)) + + + + + + + + + +(defcstructex-exported SID + (Revision :unsigned-char) + (SubAuthorityCount :unsigned-char) + (IdentifierAuthority SID_IDENTIFIER_AUTHORITY) + (SubAuthority :pointer)) + + + + + +(defcstructex-exported SID_AND_ATTRIBUTES + (Sid :pointer) + (Attributes :unsigned-long)) + + + + + + + + + +(defcstructex-exported TOKEN_SOURCE + (SourceName :pointer) + (SourceIdentifier LUID)) + + + + + +(defcstructex-exported TOKEN_CONTROL + (TokenId LUID) + (AuthenticationId LUID) + (ModifiedId LUID) + (TokenSource TOKEN_SOURCE)) + + + + + +(defcstructex-exported TOKEN_DEFAULT_DACL + (DefaultDacl :pointer)) + + + + + +(defcstructex-exported TOKEN_GROUPS + (GroupCount :unsigned-long) + (Groups :pointer)) + + + + + + + +(defcstructex-exported TOKEN_OWNER + (Owner :pointer)) + + + + + +(defcstructex-exported TOKEN_PRIMARY_GROUP + (PrimaryGroup :pointer)) + + + + + +(defcstructex-exported TOKEN_PRIVILEGES + (PrivilegeCount :unsigned-long) + (Privileges :pointer)) + + + + + + + +(cffi:defcenum TOKEN_TYPE + (:TokenPrimary #.1) + :TokenImpersonation) + + + +(defcstructex-exported TOKEN_STATISTICS + (TokenId LUID) + (AuthenticationId LUID) + (ExpirationTime LARGE_INTEGER) + (TokenType TOKEN_TYPE) + (ImpersonationLevel SECURITY_IMPERSONATION_LEVEL) + (DynamicCharged :unsigned-long) + (DynamicAvailable :unsigned-long) + (GroupCount :unsigned-long) + (PrivilegeCount :unsigned-long) + (ModifiedId LUID)) + + + + + +(defcstructex-exported TOKEN_USER + (User SID_AND_ATTRIBUTES)) + + + + + + + + + + + + + +(defcstructex-exported SECURITY_DESCRIPTOR + (Revision :unsigned-char) + (Sbz1 :unsigned-char) + (Control :unsigned-short) + (Owner :pointer) + (Group :pointer) + (Sacl :pointer) + (Dacl :pointer)) + + + + + + + +(cffi:defcenum TOKEN_INFORMATION_CLASS + (:TokenUser #.1) + :TokenGroups + :TokenPrivileges + :TokenOwner + :TokenPrimaryGroup + :TokenDefaultDacl + :TokenSource + :TokenType + :TokenImpersonationLevel + :TokenStatistics + :TokenRestrictedSids + :TokenSessionId + :TokenGroupsAndPrivileges + :TokenSessionReference + :TokenSandBoxInert + :TokenAuditPolicy + :TokenOrigin) + +(cffi:defcenum SID_NAME_USE + (:SidTypeUser #.1) + :SidTypeGroup + :SidTypeDomain + :SidTypeAlias + :SidTypeWellKnownGroup + :SidTypeDeletedAccount + :SidTypeInvalid + :SidTypeUnknown + :SidTypeComputer) + + + +(defcstructex-exported QUOTA_LIMITS + (PagedPoolLimit :unsigned-long) + (NonPagedPoolLimit :unsigned-long) + (MinimumWorkingSetSize :unsigned-long) + (MaximumWorkingSetSize :unsigned-long) + (PagefileLimit :unsigned-long) + (TimeLimit LARGE_INTEGER)) + + + + + +(defcstructex-exported IO_COUNTERS + (ReadOperationCount :unsigned-long-long) + (WriteOperationCount :unsigned-long-long) + (OtherOperationCount :unsigned-long-long) + (ReadTransferCount :unsigned-long-long) + (WriteTransferCount :unsigned-long-long) + (OtherTransferCount :unsigned-long-long)) + + + + + +(defcstructex-exported FILE_NOTIFY_INFORMATION + (NextEntryOffset :unsigned-long) + (Action :unsigned-long) + (FileNameLength :unsigned-long) + (FileName :pointer)) + + + + + +(defcstructex-exported TAPE_ERASE + (Type :unsigned-long) + (Immediate :unsigned-char)) + + + + + +(defcstructex-exported TAPE_GET_DRIVE_PARAMETERS + (ECC :unsigned-char) + (Compression :unsigned-char) + (DataPadding :unsigned-char) + (ReportSetmarks :unsigned-char) + (DefaultBlockSize :unsigned-long) + (MaximumBlockSize :unsigned-long) + (MinimumBlockSize :unsigned-long) + (MaximumPartitionCount :unsigned-long) + (FeaturesLow :unsigned-long) + (FeaturesHigh :unsigned-long) + (EOTWarningZoneSize :unsigned-long)) + + + + + +(defcstructex-exported TAPE_GET_MEDIA_PARAMETERS + (Capacity LARGE_INTEGER) + (Remaining LARGE_INTEGER) + (BlockSize :unsigned-long) + (PartitionCount :unsigned-long) + (WriteProtected :unsigned-char)) + + + + + +(defcstructex-exported TAPE_GET_POSITION + (Type :unsigned-long) + (Partition :unsigned-long) + (OffsetLow :unsigned-long) + (OffsetHigh :unsigned-long)) + + + + + +(defcstructex-exported TAPE_PREPARE + (Operation :unsigned-long) + (Immediate :unsigned-char)) + + + + + +(defcstructex-exported TAPE_SET_DRIVE_PARAMETERS + (ECC :unsigned-char) + (Compression :unsigned-char) + (DataPadding :unsigned-char) + (ReportSetmarks :unsigned-char) + (EOTWarningZoneSize :unsigned-long)) + + + + + +(defcstructex-exported TAPE_SET_MEDIA_PARAMETERS + (BlockSize :unsigned-long)) + + + + + +(defcstructex-exported TAPE_SET_POSITION + (Method :unsigned-long) + (Partition :unsigned-long) + (Offset LARGE_INTEGER) + (Immediate :unsigned-char)) + + + + + +(defcstructex-exported TAPE_WRITE_MARKS + (Type :unsigned-long) + (Count :unsigned-long) + (Immediate :unsigned-char)) + + + + + +(defcstructex-exported TAPE_CREATE_PARTITION + (Method :unsigned-long) + (Count :unsigned-long) + (Size :unsigned-long)) + + + + + +(defcstructex-exported MEMORY_BASIC_INFORMATION + (BaseAddress :pointer) + (AllocationBase :pointer) + (AllocationProtect :unsigned-long) + (RegionSize :unsigned-long) + (State :unsigned-long) + (Protect :unsigned-long) + (Type :unsigned-long)) + + + + + +(defcstructex-exported MESSAGE_RESOURCE_ENTRY + (Length :unsigned-short) + (Flags :unsigned-short) + (Text :pointer)) + + + + + +(defcstructex-exported MESSAGE_RESOURCE_BLOCK + (LowId :unsigned-long) + (HighId :unsigned-long) + (OffsetToEntries :unsigned-long)) + + + + + +(defcstructex-exported MESSAGE_RESOURCE_DATA + (NumberOfBlocks :unsigned-long) + (Blocks :pointer)) + + + + + +(defcstructex-exported LIST_ENTRY + (Flink :pointer) + (Blink :pointer)) + + + + + +(defcstructex-exported SINGLE_LIST_ENTRY + (Next :pointer)) + + + + + +(cffi:defcunion SLIST_HEADER + (Alignment :unsigned-long-long) + (s :pointer)) + + + + + +(defcstructex-exported SLIST_HEADER_s + (Next SINGLE_LIST_ENTRY) + (Depth :unsigned-short) + (Sequence :unsigned-short)) + +(defcstructex-exported RTL_CRITICAL_SECTION_DEBUG + (Type :unsigned-short) + (CreatorBackTraceIndex :unsigned-short) + (CriticalSection :pointer) + (ProcessLocksList LIST_ENTRY) + (EntryCount :unsigned-long) + (ContentionCount :unsigned-long) + (Spare :pointer)) + + + + + +(defcstructex-exported RTL_CRITICAL_SECTION + (DebugInfo :pointer) + (LockCount :int32) + (RecursionCount :int32) + (OwningThread :pointer) + (LockSemaphore :pointer) + (Reserved :unsigned-long)) + + + + + +(defcstructex-exported EVENTLOGRECORD + (Length :unsigned-long) + (Reserved :unsigned-long) + (RecordNumber :unsigned-long) + (TimeGenerated :unsigned-long) + (TimeWritten :unsigned-long) + (EventID :unsigned-long) + (EventType :unsigned-short) + (NumStrings :unsigned-short) + (EventCategory :unsigned-short) + (ReservedFlags :unsigned-short) + (ClosingRecordNumber :unsigned-long) + (StringOffset :unsigned-long) + (UserSidLength :unsigned-long) + (UserSidOffset :unsigned-long) + (DataLength :unsigned-long) + (DataOffset :unsigned-long)) + + + + + +(defcstructex-exported OSVERSIONINFOA + (dwOSVersionInfoSize :unsigned-long) + (dwMajorVersion :unsigned-long) + (dwMinorVersion :unsigned-long) + (dwBuildNumber :unsigned-long) + (dwPlatformId :unsigned-long) + (szCSDVersion :pointer)) + + + + + + + +(defcstructex-exported OSVERSIONINFOW + (dwOSVersionInfoSize :unsigned-long) + (dwMajorVersion :unsigned-long) + (dwMinorVersion :unsigned-long) + (dwBuildNumber :unsigned-long) + (dwPlatformId :unsigned-long) + (szCSDVersion :pointer)) + + + + + + + +(defcstructex-exported OSVERSIONINFOEXA + (dwOSVersionInfoSize :unsigned-long) + (dwMajorVersion :unsigned-long) + (dwMinorVersion :unsigned-long) + (dwBuildNumber :unsigned-long) + (dwPlatformId :unsigned-long) + (szCSDVersion :pointer) + (wServicePackMajor :unsigned-short) + (wServicePackMinor :unsigned-short) + (wSuiteMask :unsigned-short) + (wProductType :unsigned-char) + (wReserved :unsigned-char)) + + + + + + + +(defcstructex-exported OSVERSIONINFOEXW + (dwOSVersionInfoSize :unsigned-long) + (dwMajorVersion :unsigned-long) + (dwMinorVersion :unsigned-long) + (dwBuildNumber :unsigned-long) + (dwPlatformId :unsigned-long) + (szCSDVersion :pointer) + (wServicePackMajor :unsigned-short) + (wServicePackMinor :unsigned-short) + (wSuiteMask :unsigned-short) + (wProductType :unsigned-char) + (wReserved :unsigned-char)) + + + + + + + +(defcstructex-exported IMAGE_VXD_HEADER + (e32_magic :unsigned-short) + (e32_border :unsigned-char) + (e32_worder :unsigned-char) + (e32_level :unsigned-long) + (e32_cpu :unsigned-short) + (e32_os :unsigned-short) + (e32_ver :unsigned-long) + (e32_mflags :unsigned-long) + (e32_mpages :unsigned-long) + (e32_startobj :unsigned-long) + (e32_eip :unsigned-long) + (e32_stackobj :unsigned-long) + (e32_esp :unsigned-long) + (e32_pagesize :unsigned-long) + (e32_lastpagesize :unsigned-long) + (e32_fixupsize :unsigned-long) + (e32_fixupsum :unsigned-long) + (e32_ldrsize :unsigned-long) + (e32_ldrsum :unsigned-long) + (e32_objtab :unsigned-long) + (e32_objcnt :unsigned-long) + (e32_objmap :unsigned-long) + (e32_itermap :unsigned-long) + (e32_rsrctab :unsigned-long) + (e32_rsrccnt :unsigned-long) + (e32_restab :unsigned-long) + (e32_enttab :unsigned-long) + (e32_dirtab :unsigned-long) + (e32_dircnt :unsigned-long) + (e32_fpagetab :unsigned-long) + (e32_frectab :unsigned-long) + (e32_impmod :unsigned-long) + (e32_impmodcnt :unsigned-long) + (e32_impproc :unsigned-long) + (e32_pagesum :unsigned-long) + (e32_datapage :unsigned-long) + (e32_preload :unsigned-long) + (e32_nrestab :unsigned-long) + (e32_cbnrestab :unsigned-long) + (e32_nressum :unsigned-long) + (e32_autodata :unsigned-long) + (e32_debuginfo :unsigned-long) + (e32_debuglen :unsigned-long) + (e32_instpreload :unsigned-long) + (e32_instdemand :unsigned-long) + (e32_heapsize :unsigned-long) + (e32_res3 :pointer) + (e32_winresoff :unsigned-long) + (e32_winreslen :unsigned-long) + (e32_devid :unsigned-short) + (e32_ddkver :unsigned-short)) + + + + + +(defcstructex-exported IMAGE_FILE_HEADER + (Machine :unsigned-short) + (NumberOfSections :unsigned-short) + (TimeDateStamp :unsigned-long) + (PointerToSymbolTable :unsigned-long) + (NumberOfSymbols :unsigned-long) + (SizeOfOptionalHeader :unsigned-short) + (Characteristics :unsigned-short)) + + + + + +(defcstructex-exported IMAGE_DATA_DIRECTORY + (VirtualAddress :unsigned-long) + (Size :unsigned-long)) + + + + + +(defcstructex-exported IMAGE_OPTIONAL_HEADER + (Magic :unsigned-short) + (MajorLinkerVersion :unsigned-char) + (MinorLinkerVersion :unsigned-char) + (SizeOfCode :unsigned-long) + (SizeOfInitializedData :unsigned-long) + (SizeOfUninitializedData :unsigned-long) + (AddressOfEntryPoint :unsigned-long) + (BaseOfCode :unsigned-long) + (BaseOfData :unsigned-long) + (ImageBase :unsigned-long) + (SectionAlignment :unsigned-long) + (FileAlignment :unsigned-long) + (MajorOperatingSystemVersion :unsigned-short) + (MinorOperatingSystemVersion :unsigned-short) + (MajorImageVersion :unsigned-short) + (MinorImageVersion :unsigned-short) + (MajorSubsystemVersion :unsigned-short) + (MinorSubsystemVersion :unsigned-short) + (Reserved1 :unsigned-long) + (SizeOfImage :unsigned-long) + (SizeOfHeaders :unsigned-long) + (CheckSum :unsigned-long) + (Subsystem :unsigned-short) + (DllCharacteristics :unsigned-short) + (SizeOfStackReserve :unsigned-long) + (SizeOfStackCommit :unsigned-long) + (SizeOfHeapReserve :unsigned-long) + (SizeOfHeapCommit :unsigned-long) + (LoaderFlags :unsigned-long) + (NumberOfRvaAndSizes :unsigned-long) + (DataDirectory :pointer)) + + + + + +(defcstructex-exported IMAGE_ROM_OPTIONAL_HEADER + (Magic :unsigned-short) + (MajorLinkerVersion :unsigned-char) + (MinorLinkerVersion :unsigned-char) + (SizeOfCode :unsigned-long) + (SizeOfInitializedData :unsigned-long) + (SizeOfUninitializedData :unsigned-long) + (AddressOfEntryPoint :unsigned-long) + (BaseOfCode :unsigned-long) + (BaseOfData :unsigned-long) + (BaseOfBss :unsigned-long) + (GprMask :unsigned-long) + (CprMask :pointer) + (GpValue :unsigned-long)) + + + + + +(defcstructex-exported IMAGE_DOS_HEADER + (e_magic :unsigned-short) + (e_cblp :unsigned-short) + (e_cp :unsigned-short) + (e_crlc :unsigned-short) + (e_cparhdr :unsigned-short) + (e_minalloc :unsigned-short) + (e_maxalloc :unsigned-short) + (e_ss :unsigned-short) + (e_sp :unsigned-short) + (e_csum :unsigned-short) + (e_ip :unsigned-short) + (e_cs :unsigned-short) + (e_lfarlc :unsigned-short) + (e_ovno :unsigned-short) + (e_res :pointer) + (e_oemid :unsigned-short) + (e_oeminfo :unsigned-short) + (e_res2 :pointer) + (e_lfanew :int32)) + + + + + +(defcstructex-exported IMAGE_OS2_HEADER + (ne_magic :unsigned-short) + (ne_ver :char) + (ne_rev :char) + (ne_enttab :unsigned-short) + (ne_cbenttab :unsigned-short) + (ne_crc :int32) + (ne_flags :unsigned-short) + (ne_autodata :unsigned-short) + (ne_heap :unsigned-short) + (ne_stack :unsigned-short) + (ne_csip :int32) + (ne_sssp :int32) + (ne_cseg :unsigned-short) + (ne_cmod :unsigned-short) + (ne_cbnrestab :unsigned-short) + (ne_segtab :unsigned-short) + (ne_rsrctab :unsigned-short) + (ne_restab :unsigned-short) + (ne_modtab :unsigned-short) + (ne_imptab :unsigned-short) + (ne_nrestab :int32) + (ne_cmovent :unsigned-short) + (ne_align :unsigned-short) + (ne_cres :unsigned-short) + (ne_exetyp :unsigned-char) + (ne_flagsothers :unsigned-char) + (ne_pretthunks :unsigned-short) + (ne_psegrefbytes :unsigned-short) + (ne_swaparea :unsigned-short) + (ne_expver :unsigned-short)) + + + + + +(defcstructex-exported IMAGE_NT_HEADERS + (Signature :unsigned-long) + (FileHeader IMAGE_FILE_HEADER) + (OptionalHeader IMAGE_OPTIONAL_HEADER)) + + + + + +(defcstructex-exported IMAGE_ROM_HEADERS + (FileHeader IMAGE_FILE_HEADER) + (OptionalHeader IMAGE_ROM_OPTIONAL_HEADER)) + + + + + +(defcstructex-exported IMAGE_SECTION_HEADER + (Name :pointer) + (VirtualAddress :unsigned-long) + (SizeOfRawData :unsigned-long) + (PointerToRawData :unsigned-long) + (PointerToRelocations :unsigned-long) + (PointerToLinenumbers :unsigned-long) + (NumberOfRelocations :unsigned-short) + (NumberOfLinenumbers :unsigned-short) + (Characteristics :unsigned-long) + (Misc :pointer)) + + + + + +(cffi:defcunion IMAGE_SECTION_HEADER_Misc + (PhysicalAddress :unsigned-long) + (VirtualSize :unsigned-long)) + +(defcstructex-exported IMAGE_SYMBOL + (Value :unsigned-long) + (SectionNumber :short) + (Type :unsigned-short) + (StorageClass :unsigned-char) + (NumberOfAuxSymbols :unsigned-char) + (N :pointer)) + + + + + +(cffi:defcunion IMAGE_SYMBOL_N + (ShortName :pointer) + (LongName :pointer) + (Name :pointer)) + +(defcstructex-exported IMAGE_SYMBOL_N_Name + (Short :unsigned-long) + (Long :unsigned-long)) + +(cffi:defcunion IMAGE_AUX_SYMBOL + (Sym :pointer) + (File :pointer) + (Section :pointer)) + + + + + +(defcstructex-exported IMAGE_AUX_SYMBOL_Section + (Length :unsigned-long) + (NumberOfRelocations :unsigned-short) + (NumberOfLinenumbers :unsigned-short) + (CheckSum :unsigned-long) + (Number :short) + (Selection :unsigned-char)) + +(defcstructex-exported IMAGE_AUX_SYMBOL_File + (Name :pointer)) + +(defcstructex-exported IMAGE_AUX_SYMBOL_Sym + (TagIndex :unsigned-long) + (TvIndex :unsigned-short) + (Misc :pointer) + (FcnAry :pointer)) + +(cffi:defcunion IMAGE_AUX_SYMBOL_Sym_FcnAry + (Function :pointer) + (Array :pointer)) + +(defcstructex-exported IMAGE_AUX_SYMBOL_Sym_FcnAry_Array + (Dimension :pointer)) + +(defcstructex-exported IMAGE_AUX_SYMBOL_Sym_FcnAry_Function + (PointerToLinenumber :unsigned-long) + (PointerToNextFunction :unsigned-long)) + +(cffi:defcunion IMAGE_AUX_SYMBOL_Sym_Misc + (TotalSize :unsigned-long) + (LnSz :pointer)) + +(defcstructex-exported IMAGE_AUX_SYMBOL_Sym_Misc_LnSz + (Linenumber :unsigned-short) + (Size :unsigned-short)) + +(defcstructex-exported IMAGE_COFF_SYMBOLS_HEADER + (NumberOfSymbols :unsigned-long) + (LvaToFirstSymbol :unsigned-long) + (NumberOfLinenumbers :unsigned-long) + (LvaToFirstLinenumber :unsigned-long) + (RvaToFirstByteOfCode :unsigned-long) + (RvaToLastByteOfCode :unsigned-long) + (RvaToFirstByteOfData :unsigned-long) + (RvaToLastByteOfData :unsigned-long)) + + + + + +(defcstructex-exported IMAGE_RELOCATION + (SymbolTableIndex :unsigned-long) + (Type :unsigned-short) + (u :pointer)) + + + + + +(cffi:defcunion IMAGE_RELOCATION_u + (VirtualAddress :unsigned-long) + (RelocCount :unsigned-long)) + +(defcstructex-exported IMAGE_BASE_RELOCATION + (VirtualAddress :unsigned-long) + (SizeOfBlock :unsigned-long)) + + + + + +(defcstructex-exported IMAGE_LINENUMBER + (Linenumber :unsigned-short) + (Type :pointer)) + + + + + +(cffi:defcunion IMAGE_LINENUMBER_Type + (SymbolTableIndex :unsigned-long) + (VirtualAddress :unsigned-long)) + +(defcstructex-exported IMAGE_ARCHIVE_MEMBER_HEADER + (Name :pointer) + (Date :pointer) + (UserID :pointer) + (GroupID :pointer) + (Mode :pointer) + (Size :pointer) + (EndHeader :pointer)) + + + + + +(defcstructex-exported IMAGE_EXPORT_DIRECTORY + (Characteristics :unsigned-long) + (TimeDateStamp :unsigned-long) + (MajorVersion :unsigned-short) + (MinorVersion :unsigned-short) + (Name :unsigned-long) + (Base :unsigned-long) + (NumberOfFunctions :unsigned-long) + (NumberOfNames :unsigned-long) + (AddressOfFunctions :unsigned-long) + (AddressOfNames :unsigned-long) + (AddressOfNameOrdinals :unsigned-long)) + + + + + +(defcstructex-exported IMAGE_IMPORT_BY_NAME + (Hint :unsigned-short) + (Name :pointer)) + + + + + +(defcstructex-exported IMAGE_THUNK_DATA32 + (u1 :pointer)) + + + + + +(cffi:defcunion IMAGE_THUNK_DATA32_u1 + (ForwarderString :unsigned-long) + (Function :unsigned-long) + (Ordinal :unsigned-long) + (AddressOfData :unsigned-long)) + +(defcstructex-exported IMAGE_THUNK_DATA64 + (u1 :pointer)) + + + + + +(cffi:defcunion IMAGE_THUNK_DATA64_u1 + (ForwarderString :unsigned-long-long) + (Function :unsigned-long-long) + (Ordinal :unsigned-long-long) + (AddressOfData :unsigned-long-long)) + + + + + +(defcstructex-exported IMAGE_IMPORT_DESCRIPTOR + (TimeDateStamp :unsigned-long) + (ForwarderChain :unsigned-long) + (Name :unsigned-long) + (FirstThunk :unsigned-long) + (u :pointer)) + + + + + +(cffi:defcunion IMAGE_IMPORT_DESCRIPTOR_u + (Characteristics :unsigned-long) + (OriginalFirstThunk :unsigned-long)) + +(defcstructex-exported IMAGE_BOUND_IMPORT_DESCRIPTOR + (TimeDateStamp :unsigned-long) + (OffsetModuleName :unsigned-short) + (NumberOfModuleForwarderRefs :unsigned-short)) + + + + + +(defcstructex-exported IMAGE_BOUND_FORWARDER_REF + (TimeDateStamp :unsigned-long) + (OffsetModuleName :unsigned-short) + (Reserved :unsigned-short)) + + + + + + + +(defcstructex-exported IMAGE_TLS_DIRECTORY32 + (StartAddressOfRawData :unsigned-long) + (EndAddressOfRawData :unsigned-long) + (AddressOfIndex :unsigned-long) + (AddressOfCallBacks :unsigned-long) + (SizeOfZeroFill :unsigned-long) + (Characteristics :unsigned-long)) + + + + + +(defcstructex-exported IMAGE_TLS_DIRECTORY64 + (StartAddressOfRawData :unsigned-long-long) + (EndAddressOfRawData :unsigned-long-long) + (AddressOfIndex :unsigned-long-long) + (AddressOfCallBacks :unsigned-long-long) + (SizeOfZeroFill :unsigned-long) + (Characteristics :unsigned-long)) + + + + + + + + + +(defcstructex-exported IMAGE_RESOURCE_DIRECTORY + (Characteristics :unsigned-long) + (TimeDateStamp :unsigned-long) + (MajorVersion :unsigned-short) + (MinorVersion :unsigned-short) + (NumberOfNamedEntries :unsigned-short) + (NumberOfIdEntries :unsigned-short)) + + + + + +(defcstructex-exported IMAGE_RESOURCE_DIRECTORY_ENTRY + (u :pointer) + (u2 :pointer)) + + + + + +(cffi:defcunion IMAGE_RESOURCE_DIRECTORY_ENTRY_u2 + (OffsetToData :unsigned-long) + (s2 :pointer)) + +(defcstructex-exported IMAGE_RESOURCE_DIRECTORY_ENTRY_u2_s2 + (OffsetToDirectory :unsigned-long) + (DataIsDirectory :unsigned-long)) + +(cffi:defcunion IMAGE_RESOURCE_DIRECTORY_ENTRY_u + (Name :unsigned-long) + (Id :unsigned-short) + (s :pointer)) + +(defcstructex-exported IMAGE_RESOURCE_DIRECTORY_ENTRY_u_s + (NameOffset :unsigned-long) + (NameIsString :unsigned-long)) + +(defcstructex-exported IMAGE_RESOURCE_DIRECTORY_STRING + (Length :unsigned-short) + (NameString :pointer)) + + + + + +(defcstructex-exported IMAGE_RESOURCE_DIR_STRING_U + (Length :unsigned-short) + (NameString :pointer)) + + + + + +(defcstructex-exported IMAGE_RESOURCE_DATA_ENTRY + (OffsetToData :unsigned-long) + (Size :unsigned-long) + (CodePage :unsigned-long) + (Reserved :unsigned-long)) + + + + + +(defcstructex-exported IMAGE_LOAD_CONFIG_DIRECTORY + (Characteristics :unsigned-long) + (TimeDateStamp :unsigned-long) + (MajorVersion :unsigned-short) + (MinorVersion :unsigned-short) + (GlobalFlagsClear :unsigned-long) + (GlobalFlagsSet :unsigned-long) + (CriticalSectionDefaultTimeout :unsigned-long) + (DeCommitFreeBlockThreshold :unsigned-long) + (DeCommitTotalFreeThreshold :unsigned-long) + (LockPrefixTable :pointer) + (MaximumAllocationSize :unsigned-long) + (VirtualMemoryThreshold :unsigned-long) + (ProcessHeapFlags :unsigned-long) + (Reserved :pointer)) + + + + + +(defcstructex-exported IMAGE_RUNTIME_FUNCTION_ENTRY + (BeginAddress :unsigned-long) + (EndAddress :unsigned-long) + (ExceptionHandler :pointer) + (HandlerData :pointer) + (PrologEndAddress :unsigned-long)) + + + + + +(defcstructex-exported IMAGE_DEBUG_DIRECTORY + (Characteristics :unsigned-long) + (TimeDateStamp :unsigned-long) + (MajorVersion :unsigned-short) + (MinorVersion :unsigned-short) + (Type :unsigned-long) + (SizeOfData :unsigned-long) + (AddressOfRawData :unsigned-long) + (PointerToRawData :unsigned-long)) + + + + + +(defcstructex-exported FPO_DATA + (ulOffStart :unsigned-long) + (cbProcSize :unsigned-long) + (cdwLocals :unsigned-long) + (cdwParams :unsigned-short) + (cbProlog :unsigned-short) + (cbRegs :unsigned-short) + (fHasSEH :unsigned-short) + (fUseBP :unsigned-short) + (reserved :unsigned-short) + (cbFrame :unsigned-short)) + + + + + +(defcstructex-exported IMAGE_DEBUG_MISC + (DataType :unsigned-long) + (Length :unsigned-long) + (Unicode :unsigned-char) + (Reserved :pointer) + (Data :pointer)) + + + + + +(defcstructex-exported IMAGE_FUNCTION_ENTRY + (StartingAddress :unsigned-long) + (EndingAddress :unsigned-long) + (EndOfPrologue :unsigned-long)) + + + + + +(defcstructex-exported IMAGE_SEPARATE_DEBUG_HEADER + (Signature :unsigned-short) + (Flags :unsigned-short) + (Machine :unsigned-short) + (Characteristics :unsigned-short) + (TimeDateStamp :unsigned-long) + (CheckSum :unsigned-long) + (ImageBase :unsigned-long) + (SizeOfImage :unsigned-long) + (NumberOfSections :unsigned-long) + (ExportedNamesSize :unsigned-long) + (DebugDirectorySize :unsigned-long) + (SectionAlignment :unsigned-long) + (Reserved :pointer)) + + + + + +(cffi:defcenum SERVICE_NODE_TYPE + (:DriverType #.1) + (:FileSystemType #.2) + (:Win32ServiceOwnProcess #.16) + (:Win32ServiceShareProcess #.32) + (:AdapterType #.4) + (:RecognizerType #.8)) + +(cffi:defcenum SERVICE_LOAD_TYPE + (:BootLoad #.0) + (:SystemLoad #.1) + (:AutoLoad #.2) + (:DemandLoad #.3) + (:DisableLoad #.4)) + +(cffi:defcenum SERVICE_ERROR_TYPE + (:IgnoreError #.0) + (:NormalError #.1) + (:SevereError #.2) + (:CriticalError #.3)) + +(defcstructex-exported NT_TIB + (ExceptionList :pointer) + (StackBase :pointer) + (StackLimit :pointer) + (SubSystemTib :pointer) + (ArbitraryUserPointer :pointer) + (Self :pointer) + (u :pointer)) + + + + + +(cffi:defcunion NT_TIB_u + (FiberData :pointer) + (Version :unsigned-long)) + +(defcstructex-exported REPARSE_DATA_BUFFER + (ReparseTag :unsigned-long) + (ReparseDataLength :unsigned-short) + (Reserved :unsigned-short) + (u :pointer)) + + + + + +(cffi:defcunion REPARSE_DATA_BUFFER_u + (SymbolicLinkReparseBuffer :pointer) + (MountPointReparseBuffer :pointer) + (GenericReparseBuffer :pointer)) + +(defcstructex-exported REPARSE_DATA_BUFFER_u_GenericReparseBuffer + (DataBuffer :pointer)) + +(defcstructex-exported REPARSE_DATA_BUFFER_u_MountPointReparseBuffer + (SubstituteNameOffset :unsigned-short) + (SubstituteNameLength :unsigned-short) + (PrintNameOffset :unsigned-short) + (PrintNameLength :unsigned-short) + (PathBuffer :pointer)) + +(defcstructex-exported REPARSE_DATA_BUFFER_u_SymbolicLinkReparseBuffer + (SubstituteNameOffset :unsigned-short) + (SubstituteNameLength :unsigned-short) + (PrintNameOffset :unsigned-short) + (PrintNameLength :unsigned-short) + (PathBuffer :pointer)) + +(defcstructex-exported REPARSE_GUID_DATA_BUFFER + (ReparseTag :unsigned-long) + (ReparseDataLength :unsigned-short) + (Reserved :unsigned-short) + (ReparseGuid GUID) + (GenericReparseBuffer :pointer)) + + + + + +(defcstructex-exported REPARSE_GUID_DATA_BUFFER_GenericReparseBuffer + (DataBuffer :pointer)) + +(defcstructex-exported REPARSE_POINT_INFORMATION + (ReparseDataLength :unsigned-short) + (UnparsedNameLength :unsigned-short)) + + + + + +(cffi:defcunion FILE_SEGMENT_ELEMENT + (Buffer :pointer) + (Alignment :unsigned-long-long)) + + + + + +(defconstant-exported JOB_OBJECT_LIMIT_WORKINGSET #x0001) + +(defconstant-exported JOB_OBJECT_LIMIT_PROCESS_TIME #x0002) + +(defconstant-exported JOB_OBJECT_LIMIT_JOB_TIME #x0004) + +(defconstant-exported JOB_OBJECT_LIMIT_ACTIVE_PROCESS #x0008) + +(defconstant-exported JOB_OBJECT_LIMIT_AFFINITY #x0010) + +(defconstant-exported JOB_OBJECT_LIMIT_PRIORITY_CLASS #x0020) + +(defconstant-exported JOB_OBJECT_LIMIT_PRESERVE_JOB_TIME #x0040) + +(defconstant-exported JOB_OBJECT_LIMIT_SCHEDULING_CLASS #x0080) + +(defconstant-exported JOB_OBJECT_LIMIT_PROCESS_MEMORY #x0100) + +(defconstant-exported JOB_OBJECT_LIMIT_JOB_MEMORY #x0200) + +(defconstant-exported JOB_OBJECT_LIMIT_DIE_ON_UNHANDLED_EXCEPTION #x0400) + +(defconstant-exported JOB_OBJECT_BREAKAWAY_OK #x0800) + +(defconstant-exported JOB_OBJECT_SILENT_BREAKAWAY #x1000) + +(defconstant-exported JOB_OBJECT_UILIMIT_HANDLES #x0001) + +(defconstant-exported JOB_OBJECT_UILIMIT_READCLIPBOARD #x0002) + +(defconstant-exported JOB_OBJECT_UILIMIT_WRITECLIPBOARD #x0004) + +(defconstant-exported JOB_OBJECT_UILIMIT_SYSTEMPARAMETERS #x0008) + +(defconstant-exported JOB_OBJECT_UILIMIT_DISPLAYSETTINGS #x0010) + +(defconstant-exported JOB_OBJECT_UILIMIT_GLOBALATOMS #x0020) + +(defconstant-exported JOB_OBJECT_UILIMIT_DESKTOP #x0040) + +(defconstant-exported JOB_OBJECT_UILIMIT_EXITWINDOWS #x0080) + +(defconstant-exported JOB_OBJECT_SECURITY_NO_ADMIN #x0001) + +(defconstant-exported JOB_OBJECT_SECURITY_RESTRICTED_TOKEN #x0002) + +(defconstant-exported JOB_OBJECT_SECURITY_ONLY_TOKEN #x0004) + +(defconstant-exported JOB_OBJECT_SECURITY_FILTER_TOKENS #x0008) + +(defconstant-exported JOB_OBJECT_TERMINATE_AT_END_OF_JOB 0) + +(defconstant-exported JOB_OBJECT_POST_AT_END_OF_JOB 1) + +(defconstant-exported JOB_OBJECT_MSG_END_OF_JOB_TIME 1) + +(defconstant-exported JOB_OBJECT_MSG_END_OF_PROCESS_TIME 2) + +(defconstant-exported JOB_OBJECT_MSG_ACTIVE_PROCESS_LIMIT 3) + +(defconstant-exported JOB_OBJECT_MSG_ACTIVE_PROCESS_ZERO 4) + +(defconstant-exported JOB_OBJECT_MSG_NEW_PROCESS 6) + +(defconstant-exported JOB_OBJECT_MSG_EXIT_PROCESS 7) + +(defconstant-exported JOB_OBJECT_MSG_ABNORMAL_EXIT_PROCESS 8) + +(defconstant-exported JOB_OBJECT_MSG_PROCESS_MEMORY_LIMIT 9) + +(defconstant-exported JOB_OBJECT_MSG_JOB_MEMORY_LIMIT 10) + +(cffi:defcenum JOBOBJECTINFOCLASS + (:JobObjectBasicAccountingInformation #.1) + :JobObjectBasicLimitInformation + :JobObjectBasicProcessIdList + :JobObjectBasicUIRestrictions + :JobObjectSecurityLimitInformation + :JobObjectEndOfJobTimeInformation + :JobObjectAssociateCompletionPortInformation + :JobObjectBasicAndIoAccountingInformation + :JobObjectExtendedLimitInformation + :JobObjectJobSetInformation + :MaxJobObjectInfoClass) + +(defcstructex-exported JOBOBJECT_BASIC_ACCOUNTING_INFORMATION + (TotalUserTime LARGE_INTEGER) + (TotalKernelTime LARGE_INTEGER) + (ThisPeriodTotalUserTime LARGE_INTEGER) + (ThisPeriodTotalKernelTime LARGE_INTEGER) + (TotalPageFaultCount :unsigned-long) + (TotalProcesses :unsigned-long) + (ActiveProcesses :unsigned-long) + (TotalTerminatedProcesses :unsigned-long)) + + + + + +(defcstructex-exported JOBOBJECT_BASIC_LIMIT_INFORMATION + (PerProcessUserTimeLimit LARGE_INTEGER) + (PerJobUserTimeLimit LARGE_INTEGER) + (LimitFlags :unsigned-long) + (MinimumWorkingSetSize :unsigned-long) + (MaximumWorkingSetSize :unsigned-long) + (ActiveProcessLimit :unsigned-long) + (Affinity :unsigned-long) + (PriorityClass :unsigned-long) + (SchedulingClass :unsigned-long)) + + + + + +(defcstructex-exported JOBOBJECT_BASIC_PROCESS_ID_LIST + (NumberOfAssignedProcesses :unsigned-long) + (NumberOfProcessIdsInList :unsigned-long) + (ProcessIdList :pointer)) + + + + + +(defcstructex-exported JOBOBJECT_BASIC_UI_RESTRICTIONS + (UIRestrictionsClass :unsigned-long)) + + + + + +(defcstructex-exported JOBOBJECT_SECURITY_LIMIT_INFORMATION + (SecurityLimitFlags :unsigned-long) + (JobToken :pointer) + (SidsToDisable :pointer) + (PrivilegesToDelete :pointer) + (RestrictedSids :pointer)) + + + + + +(defcstructex-exported JOBOBJECT_END_OF_JOB_TIME_INFORMATION + (EndOfJobTimeAction :unsigned-long)) + + + + + +(defcstructex-exported JOBOBJECT_ASSOCIATE_COMPLETION_PORT + (CompletionKey :pointer) + (CompletionPort :pointer)) + + + + + +(defcstructex-exported JOBOBJECT_BASIC_AND_IO_ACCOUNTING_INFORMATION + (BasicInfo JOBOBJECT_BASIC_ACCOUNTING_INFORMATION) + (IoInfo IO_COUNTERS)) + + + + + +(defcstructex-exported JOBOBJECT_EXTENDED_LIMIT_INFORMATION + (BasicLimitInformation JOBOBJECT_BASIC_LIMIT_INFORMATION) + (IoInfo IO_COUNTERS) + (ProcessMemoryLimit :unsigned-long) + (JobMemoryLimit :unsigned-long) + (PeakProcessMemoryUsed :unsigned-long) + (PeakJobMemoryUsed :unsigned-long)) + + + + + +(defcstructex-exported JOBOBJECT_JOBSET_INFORMATION + (MemberLevel :unsigned-long)) + + + + + +(defconstant-exported ES_SYSTEM_REQUIRED #x00000001) + +(defconstant-exported ES_DISPLAY_REQUIRED #x00000002) + +(defconstant-exported ES_USER_PRESENT #x00000004) + +(defconstant-exported ES_CONTINUOUS #x80000000) + +(cffi:defcenum LATENCY_TIME + :LT_DONT_CARE + :LT_LOWEST_LATENCY) + + + +(cffi:defcenum SYSTEM_POWER_STATE + :PowerSystemUnspecified + :PowerSystemWorking + :PowerSystemSleeping1 + :PowerSystemSleeping2 + :PowerSystemSleeping3 + :PowerSystemHibernate + :PowerSystemShutdown + :PowerSystemMaximum) + + + +(cffi:defcenum POWER_ACTION + :PowerActionNone + :PowerActionReserved + :PowerActionSleep + :PowerActionHibernate + :PowerActionShutdown + :PowerActionShutdownReset + :PowerActionShutdownOff + :PowerActionWarmEject) + + + +(cffi:defcenum DEVICE_POWER_STATE + :PowerDeviceUnspecified + :PowerDeviceD0 + :PowerDeviceD1 + :PowerDeviceD2 + :PowerDeviceD3 + :PowerDeviceMaximum) + + + +(defcstructex-exported BATTERY_REPORTING_SCALE + (Granularity :unsigned-long) + (Capacity :unsigned-long)) + + + +(defcstructex-exported POWER_ACTION_POLICY + (Action POWER_ACTION) + (Flags :unsigned-long) + (EventCode :unsigned-long)) + + + + + +(defconstant-exported POWER_ACTION_QUERY_ALLOWED #x00000001) + +(defconstant-exported POWER_ACTION_UI_ALLOWED #x00000002) + +(defconstant-exported POWER_ACTION_OVERRIDE_APPS #x00000004) + +(defconstant-exported POWER_ACTION_LIGHTEST_FIRST #x10000000) + +(defconstant-exported POWER_ACTION_LOCK_CONSOLE #x20000000) + +(defconstant-exported POWER_ACTION_DISABLE_WAKES #x40000000) + +(defconstant-exported POWER_ACTION_CRITICAL #x80000000) + +(defconstant-exported POWER_LEVEL_USER_NOTIFY_TEXT #x00000001) + +(defconstant-exported POWER_LEVEL_USER_NOTIFY_SOUND #x00000002) + +(defconstant-exported POWER_LEVEL_USER_NOTIFY_EXEC #x00000004) + +(defconstant-exported POWER_USER_NOTIFY_BUTTON #x00000008) + +(defconstant-exported POWER_USER_NOTIFY_SHUTDOWN #x00000010) + +(defconstant-exported POWER_FORCE_TRIGGER_RESET #x80000000) + +(defconstant-exported DISCHARGE_POLICY_CRITICAL 0) + +(defconstant-exported DISCHARGE_POLICY_LOW 1) + +(defconstant-exported NUM_DISCHARGE_POLICIES 4) + +(defconstant-exported PO_THROTTLE_NONE 0) + +(defconstant-exported PO_THROTTLE_CONSTANT 1) + +(defconstant-exported PO_THROTTLE_DEGRADE 2) + +(defconstant-exported PO_THROTTLE_ADAPTIVE 3) + +(defconstant-exported PO_THROTTLE_MAXIMUM 4) + +(defcstructex-exported SYSTEM_POWER_LEVEL + (Enable :unsigned-char) + (Spare :pointer) + (BatteryLevel :unsigned-long) + (PowerPolicy POWER_ACTION_POLICY) + (MinSystemState SYSTEM_POWER_STATE)) + + + + + +(defcstructex-exported SYSTEM_POWER_POLICY + (Revision :unsigned-long) + (PowerButton POWER_ACTION_POLICY) + (SleepButton POWER_ACTION_POLICY) + (LidClose POWER_ACTION_POLICY) + (LidOpenWake SYSTEM_POWER_STATE) + (Reserved :unsigned-long) + (Idle POWER_ACTION_POLICY) + (IdleTimeout :unsigned-long) + (IdleSensitivity :unsigned-char) + (DynamicThrottle :unsigned-char) + (Spare2 :pointer) + (MinSleep SYSTEM_POWER_STATE) + (MaxSleep SYSTEM_POWER_STATE) + (ReducedLatencySleep SYSTEM_POWER_STATE) + (WinLogonFlags :unsigned-long) + (Spare3 :unsigned-long) + (DozeS4Timeout :unsigned-long) + (BroadcastCapacityResolution :unsigned-long) + (DischargePolicy :pointer) + (VideoTimeout :unsigned-long) + (VideoDimDisplay :unsigned-char) + (VideoReserved :pointer) + (SpindownTimeout :unsigned-long) + (OptimizeForPower :unsigned-char) + (FanThrottleTolerance :unsigned-char) + (ForcedThrottle :unsigned-char) + (MinThrottle :unsigned-char) + (OverThrottled POWER_ACTION_POLICY)) + + + + + +(defcstructex-exported SYSTEM_POWER_CAPABILITIES + (PowerButtonPresent :unsigned-char) + (SleepButtonPresent :unsigned-char) + (LidPresent :unsigned-char) + (SystemS1 :unsigned-char) + (SystemS2 :unsigned-char) + (SystemS3 :unsigned-char) + (SystemS4 :unsigned-char) + (SystemS5 :unsigned-char) + (HiberFilePresent :unsigned-char) + (FullWake :unsigned-char) + (VideoDimPresent :unsigned-char) + (ApmPresent :unsigned-char) + (UpsPresent :unsigned-char) + (ThermalControl :unsigned-char) + (ProcessorThrottle :unsigned-char) + (ProcessorMinThrottle :unsigned-char) + (ProcessorMaxThrottle :unsigned-char) + (spare2 :pointer) + (DiskSpinDown :unsigned-char) + (spare3 :pointer) + (SystemBatteriesPresent :unsigned-char) + (BatteriesAreShortTerm :unsigned-char) + (BatteryScale :pointer) + (AcOnLineWake SYSTEM_POWER_STATE) + (SoftLidWake SYSTEM_POWER_STATE) + (RtcWake SYSTEM_POWER_STATE) + (MinDeviceWakeState SYSTEM_POWER_STATE) + (DefaultLowLatencyWake SYSTEM_POWER_STATE)) + + + + + +(defcstructex-exported SYSTEM_BATTERY_STATE + (AcOnLine :unsigned-char) + (BatteryPresent :unsigned-char) + (Charging :unsigned-char) + (Discharging :unsigned-char) + (Spare1 :pointer) + (MaxCapacity :unsigned-long) + (RemainingCapacity :unsigned-long) + (Rate :unsigned-long) + (EstimatedTime :unsigned-long) + (DefaultAlert1 :unsigned-long) + (DefaultAlert2 :unsigned-long)) + + + + + +(cffi:defcenum POWER_INFORMATION_LEVEL + :SystemPowerPolicyAc + :SystemPowerPolicyDc + :VerifySystemPolicyAc + :VerifySystemPolicyDc + :SystemPowerCapabilities + :SystemBatteryState + :SystemPowerStateHandler + :ProcessorStateHandler + :SystemPowerPolicyCurrent + :AdministratorPowerPolicy + :SystemReserveHiberFile + :ProcessorInformation + :SystemPowerInformation + :ProcessorStateHandler2 + :LastWakeTime + :LastSleepTime + :SystemExecutionState + :SystemPowerStateNotifyHandler + :ProcessorPowerPolicyAc + :ProcessorPowerPolicyDc + :VerifyProcessorPowerPolicyAc + :VerifyProcessorPowerPolicyDc + :ProcessorPowerPolicyCurrent) + +(defcstructex-exported SYSTEM_POWER_INFORMATION + (MaxIdlenessAllowed :unsigned-long) + (Idleness :unsigned-long) + (TimeRemaining :unsigned-long) + (CoolingMode :unsigned-char)) + + + + + +(defcstructex-exported PROCESSOR_POWER_POLICY_INFO + (TimeCheck :unsigned-long) + (DemoteLimit :unsigned-long) + (PromoteLimit :unsigned-long) + (DemotePercent :unsigned-char) + (PromotePercent :unsigned-char) + (Spare :pointer) + (AllowDemotion :unsigned-long) + (AllowPromotion :unsigned-long) + (Reserved :unsigned-long)) + + + + + +(defcstructex-exported PROCESSOR_POWER_POLICY + (Revision :unsigned-long) + (DynamicThrottle :unsigned-char) + (Spare :pointer) + (Reserved :unsigned-long) + (PolicyCount :unsigned-long) + (Policy :pointer)) + + + + + +(defcstructex-exported ADMINISTRATOR_POWER_POLICY + (MinSleep SYSTEM_POWER_STATE) + (MaxSleep SYSTEM_POWER_STATE) + (MinVideoTimeout :unsigned-long) + (MaxVideoTimeout :unsigned-long) + (MinSpindownTimeout :unsigned-long) + (MaxSpindownTimeout :unsigned-long)) + + + + + + + + + + + + + + + + + + + + + + + + + + + + +(defconstant-exported HMONITOR_DECLARED 1) + + + + + + + + + + + + + + + +(defcstructex-exported RECT + (left :int32) + (top :int32) + (right :int32) + (bottom :int32)) + + + + + + + +(defcstructex-exported RECTL + (left :int32) + (top :int32) + (right :int32) + (bottom :int32)) + + + + + + + + + + +(defcstructex-exported SIZE + (cx :int32) + (cy :int32)) + + + + + + + + + + + + + +(defcstructex-exported POINTS + (x :short) + (y :short)) + + + + + + + +(defconstant-exported FOREGROUND_BLUE 1) + +(defconstant-exported FOREGROUND_GREEN 2) + +(defconstant-exported FOREGROUND_RED 4) + +(defconstant-exported FOREGROUND_INTENSITY 8) + +(defconstant-exported BACKGROUND_BLUE 16) + +(defconstant-exported BACKGROUND_GREEN 32) + +(defconstant-exported BACKGROUND_RED 64) + +(defconstant-exported BACKGROUND_INTENSITY 128) + +(defconstant-exported CTRL_C_EVENT 0) + +(defconstant-exported CTRL_BREAK_EVENT 1) + +(defconstant-exported CTRL_CLOSE_EVENT 2) + +(defconstant-exported CTRL_LOGOFF_EVENT 5) + +(defconstant-exported CTRL_SHUTDOWN_EVENT 6) + +(defconstant-exported ENABLE_LINE_INPUT 2) + +(defconstant-exported ENABLE_ECHO_INPUT 4) + +(defconstant-exported ENABLE_PROCESSED_INPUT 1) + +(defconstant-exported ENABLE_WINDOW_INPUT 8) + +(defconstant-exported ENABLE_MOUSE_INPUT 16) + +(defconstant-exported ENABLE_PROCESSED_OUTPUT 1) + +(defconstant-exported ENABLE_WRAP_AT_EOL_OUTPUT 2) + +(defconstant-exported KEY_EVENT 1) + +(defconstant-exported MOUSE_EVENT 2) + +(defconstant-exported WINDOW_BUFFER_SIZE_EVENT 4) + +(defconstant-exported MENU_EVENT 8) + +(defconstant-exported FOCUS_EVENT 16) + +(defconstant-exported CAPSLOCK_ON 128) + +(defconstant-exported ENHANCED_KEY 256) + +(defconstant-exported RIGHT_ALT_PRESSED 1) + +(defconstant-exported LEFT_ALT_PRESSED 2) + +(defconstant-exported RIGHT_CTRL_PRESSED 4) + +(defconstant-exported LEFT_CTRL_PRESSED 8) + +(defconstant-exported SHIFT_PRESSED 16) + +(defconstant-exported NUMLOCK_ON 32) + +(defconstant-exported SCROLLLOCK_ON 64) + +(defconstant-exported FROM_LEFT_1ST_BUTTON_PRESSED 1) + +(defconstant-exported RIGHTMOST_BUTTON_PRESSED 2) + +(defconstant-exported FROM_LEFT_2ND_BUTTON_PRESSED 4) + +(defconstant-exported FROM_LEFT_3RD_BUTTON_PRESSED 8) + +(defconstant-exported FROM_LEFT_4TH_BUTTON_PRESSED 16) + +(defconstant-exported MOUSE_MOVED 1) + +(defconstant-exported DOUBLE_CLICK 2) + +(defconstant-exported MOUSE_WHEELED 4) + +(defcstructex-exported CHAR_INFO + (Attributes :unsigned-short) + (Char :pointer)) + + + + + +(cffi:defcunion CHAR_INFO_Char + (UnicodeChar :pointer) + (AsciiChar :char)) + +(defcstructex-exported SMALL_RECT + (Left :short) + (Top :short) + (Right :short) + (Bottom :short)) + + + + + +(defcstructex-exported CONSOLE_CURSOR_INFO + (dwSize :unsigned-long) + (bVisible :int)) + + + + + +(defcstructex-exported COORD + (X :short) + (Y :short)) + + + + + +(defcstructex-exported CONSOLE_FONT_INFO + (nFont :unsigned-long) + (dwFontSize COORD)) + + + + + +(defcstructex-exported CONSOLE_SCREEN_BUFFER_INFO + (dwSize COORD) + (dwCursorPosition COORD) + (wAttributes :unsigned-short) + (srWindow SMALL_RECT) + (dwMaximumWindowSize COORD)) + + + + + + + +(defcstructex-exported KEY_EVENT_RECORD + (bKeyDown :int) + (wRepeatCount :unsigned-short) + (wVirtualKeyCode :unsigned-short) + (wVirtualScanCode :unsigned-short) + (dwControlKeyState :unsigned-long) + (uChar :pointer)) + + + +(cffi:defcunion KEY_EVENT_RECORD_uChar + (UnicodeChar :pointer) + (AsciiChar :char)) + +(defcstructex-exported MOUSE_EVENT_RECORD + (dwMousePosition COORD) + (dwButtonState :unsigned-long) + (dwControlKeyState :unsigned-long) + (dwEventFlags :unsigned-long)) + + + +(defcstructex-exported WINDOW_BUFFER_SIZE_RECORD + (dwSize COORD)) + + + +(defcstructex-exported MENU_EVENT_RECORD + (dwCommandId :unsigned-int)) + + + + + +(defcstructex-exported FOCUS_EVENT_RECORD + (bSetFocus :int)) + + + +(defcstructex-exported INPUT_RECORD + (EventType :unsigned-short) + (Event :pointer)) + + + + + +(cffi:defcunion INPUT_RECORD_Event + (KeyEvent KEY_EVENT_RECORD) + (MouseEvent MOUSE_EVENT_RECORD) + (WindowBufferSizeEvent WINDOW_BUFFER_SIZE_RECORD) + (MenuEvent MENU_EVENT_RECORD) + (FocusEvent FOCUS_EVENT_RECORD)) + +(defconstant-exported SP_SERIALCOMM 1) + +(defconstant-exported PST_UNSPECIFIED 0) + +(defconstant-exported PST_RS232 1) + +(defconstant-exported PST_PARALLELPORT 2) + +(defconstant-exported PST_RS422 3) + +(defconstant-exported PST_RS423 4) + +(defconstant-exported PST_RS449 5) + +(defconstant-exported PST_MODEM 6) + +(defconstant-exported PST_FAX #x21) + +(defconstant-exported PST_SCANNER #x22) + +(defconstant-exported PST_NETWORK_BRIDGE #x100) + +(defconstant-exported PST_LAT #x101) + +(defconstant-exported PST_TCPIP_TELNET #x102) + +(defconstant-exported PST_X25 #x103) + +(defconstant-exported BAUD_075 1) + +(defconstant-exported BAUD_110 2) + +(defconstant-exported BAUD_134_5 4) + +(defconstant-exported BAUD_150 8) + +(defconstant-exported BAUD_300 16) + +(defconstant-exported BAUD_600 32) + +(defconstant-exported BAUD_1200 64) + +(defconstant-exported BAUD_1800 128) + +(defconstant-exported BAUD_2400 256) + +(defconstant-exported BAUD_4800 512) + +(defconstant-exported BAUD_7200 1024) + +(defconstant-exported BAUD_9600 2048) + +(defconstant-exported BAUD_14400 4096) + +(defconstant-exported BAUD_19200 8192) + +(defconstant-exported BAUD_38400 16384) + +(defconstant-exported BAUD_56K 32768) + +(defconstant-exported BAUD_128K 65536) + +(defconstant-exported BAUD_115200 131072) + +(defconstant-exported BAUD_57600 262144) + +(defconstant-exported BAUD_USER #x10000000) + +(defconstant-exported PCF_DTRDSR 1) + +(defconstant-exported PCF_RTSCTS 2) + +(defconstant-exported PCF_RLSD 4) + +(defconstant-exported PCF_PARITY_CHECK 8) + +(defconstant-exported PCF_XONXOFF 16) + +(defconstant-exported PCF_SETXCHAR 32) + +(defconstant-exported PCF_TOTALTIMEOUTS 64) + +(defconstant-exported PCF_INTTIMEOUTS 128) + +(defconstant-exported PCF_SPECIALCHARS 256) + +(defconstant-exported PCF_16BITMODE 512) + +(defconstant-exported SP_PARITY 1) + +(defconstant-exported SP_BAUD 2) + +(defconstant-exported SP_DATABITS 4) + +(defconstant-exported SP_STOPBITS 8) + +(defconstant-exported SP_HANDSHAKING 16) + +(defconstant-exported SP_PARITY_CHECK 32) + +(defconstant-exported SP_RLSD 64) + +(defconstant-exported DATABITS_5 1) + +(defconstant-exported DATABITS_6 2) + +(defconstant-exported DATABITS_7 4) + +(defconstant-exported DATABITS_8 8) + +(defconstant-exported DATABITS_16 16) + +(defconstant-exported DATABITS_16X 32) + +(defconstant-exported STOPBITS_10 1) + +(defconstant-exported STOPBITS_15 2) + +(defconstant-exported STOPBITS_20 4) + +(defconstant-exported PARITY_NONE 256) + +(defconstant-exported PARITY_ODD 512) + +(defconstant-exported PARITY_EVEN 1024) + +(defconstant-exported PARITY_MARK 2048) + +(defconstant-exported PARITY_SPACE 4096) + +(defconstant-exported EXCEPTION_DEBUG_EVENT 1) + +(defconstant-exported CREATE_THREAD_DEBUG_EVENT 2) + +(defconstant-exported CREATE_PROCESS_DEBUG_EVENT 3) + +(defconstant-exported EXIT_THREAD_DEBUG_EVENT 4) + +(defconstant-exported EXIT_PROCESS_DEBUG_EVENT 5) + +(defconstant-exported LOAD_DLL_DEBUG_EVENT 6) + +(defconstant-exported UNLOAD_DLL_DEBUG_EVENT 7) + +(defconstant-exported OUTPUT_DEBUG_STRING_EVENT 8) + +(defconstant-exported RIP_EVENT 9) + +(defconstant-exported FILE_BEGIN 0) + +(defconstant-exported FILE_CURRENT 1) + +(defconstant-exported FILE_END 2) + +(defconstant-exported OF_READ 0) + +(defconstant-exported OF_READWRITE 2) + +(defconstant-exported OF_WRITE 1) + +(defconstant-exported OF_SHARE_COMPAT 0) + +(defconstant-exported OF_SHARE_DENY_NONE 64) + +(defconstant-exported OF_SHARE_DENY_READ 48) + +(defconstant-exported OF_SHARE_DENY_WRITE 32) + +(defconstant-exported OF_SHARE_EXCLUSIVE 16) + +(defconstant-exported OF_CANCEL 2048) + +(defconstant-exported OF_CREATE 4096) + +(defconstant-exported OF_DELETE 512) + +(defconstant-exported OF_EXIST 16384) + +(defconstant-exported OF_PARSE 256) + +(defconstant-exported OF_PROMPT 8192) + +(defconstant-exported OF_REOPEN 32768) + +(defconstant-exported OF_VERIFY 1024) + +(defconstant-exported NMPWAIT_NOWAIT 1) + +(defconstant-exported NMPWAIT_USE_DEFAULT_WAIT 0) + +(defconstant-exported CE_BREAK 16) + +(defconstant-exported CE_DNS 2048) + +(defconstant-exported CE_FRAME 8) + +(defconstant-exported CE_IOE 1024) + +(defconstant-exported CE_MODE 32768) + +(defconstant-exported CE_OOP 4096) + +(defconstant-exported CE_OVERRUN 2) + +(defconstant-exported CE_PTO 512) + +(defconstant-exported CE_RXOVER 1) + +(defconstant-exported CE_RXPARITY 4) + +(defconstant-exported CE_TXFULL 256) + +(defconstant-exported PROGRESS_CONTINUE 0) + +(defconstant-exported PROGRESS_CANCEL 1) + +(defconstant-exported PROGRESS_STOP 2) + +(defconstant-exported PROGRESS_QUIET 3) + +(defconstant-exported CALLBACK_CHUNK_FINISHED 0) + +(defconstant-exported CALLBACK_STREAM_SWITCH 1) + +(defconstant-exported COPY_FILE_FAIL_IF_EXISTS 1) + +(defconstant-exported COPY_FILE_RESTARTABLE 2) + +(defconstant-exported OFS_MAXPATHNAME 128) + +(defconstant-exported FILE_MAP_ALL_ACCESS #xf001f) + +(defconstant-exported FILE_MAP_READ 4) + +(defconstant-exported FILE_MAP_WRITE 2) + +(defconstant-exported FILE_MAP_COPY 1) + +(defconstant-exported MUTEX_ALL_ACCESS #x1f0001) + +(defconstant-exported MUTEX_MODIFY_STATE 1) + +(defconstant-exported SEMAPHORE_ALL_ACCESS #x1f0003) + +(defconstant-exported SEMAPHORE_MODIFY_STATE 2) + +(defconstant-exported EVENT_ALL_ACCESS #x1f0003) + +(defconstant-exported EVENT_MODIFY_STATE 2) + +(defconstant-exported PIPE_ACCESS_DUPLEX 3) + +(defconstant-exported PIPE_ACCESS_INBOUND 1) + +(defconstant-exported PIPE_ACCESS_OUTBOUND 2) + +(defconstant-exported PIPE_TYPE_BYTE 0) + +(defconstant-exported PIPE_TYPE_MESSAGE 4) + +(defconstant-exported PIPE_READMODE_BYTE 0) + +(defconstant-exported PIPE_READMODE_MESSAGE 2) + +(defconstant-exported PIPE_WAIT 0) + +(defconstant-exported PIPE_NOWAIT 1) + +(defconstant-exported PIPE_CLIENT_END 0) + +(defconstant-exported PIPE_SERVER_END 1) + +(defconstant-exported PIPE_UNLIMITED_INSTANCES 255) + +(defconstant-exported DEBUG_PROCESS #x00000001) + +(defconstant-exported DEBUG_ONLY_THIS_PROCESS #x00000002) + +(defconstant-exported CREATE_SUSPENDED #x00000004) + +(defconstant-exported DETACHED_PROCESS #x00000008) + +(defconstant-exported CREATE_NEW_CONSOLE #x00000010) + +(defconstant-exported NORMAL_PRIORITY_CLASS #x00000020) + +(defconstant-exported IDLE_PRIORITY_CLASS #x00000040) + +(defconstant-exported HIGH_PRIORITY_CLASS #x00000080) + +(defconstant-exported REALTIME_PRIORITY_CLASS #x00000100) + +(defconstant-exported CREATE_NEW_PROCESS_GROUP #x00000200) + +(defconstant-exported CREATE_UNICODE_ENVIRONMENT #x00000400) + +(defconstant-exported CREATE_SEPARATE_WOW_VDM #x00000800) + +(defconstant-exported CREATE_SHARED_WOW_VDM #x00001000) + +(defconstant-exported CREATE_FORCEDOS #x00002000) + +(defconstant-exported BELOW_NORMAL_PRIORITY_CLASS #x00004000) + +(defconstant-exported ABOVE_NORMAL_PRIORITY_CLASS #x00008000) + +(defconstant-exported CREATE_BREAKAWAY_FROM_JOB #x01000000) + +(defconstant-exported CREATE_WITH_USERPROFILE #x02000000) + +(defconstant-exported CREATE_DEFAULT_ERROR_MODE #x04000000) + +(defconstant-exported CREATE_NO_WINDOW #x08000000) + +(defconstant-exported PROFILE_USER #x10000000) + +(defconstant-exported PROFILE_KERNEL #x20000000) + +(defconstant-exported PROFILE_SERVER #x40000000) + +(defconstant-exported CONSOLE_TEXTMODE_BUFFER 1) + +(defconstant-exported CREATE_NEW 1) + +(defconstant-exported CREATE_ALWAYS 2) + +(defconstant-exported OPEN_EXISTING 3) + +(defconstant-exported OPEN_ALWAYS 4) + +(defconstant-exported TRUNCATE_EXISTING 5) + +(defconstant-exported FILE_FLAG_WRITE_THROUGH #x80000000) + +(defconstant-exported FILE_FLAG_OVERLAPPED 1073741824) + +(defconstant-exported FILE_FLAG_NO_BUFFERING 536870912) + +(defconstant-exported FILE_FLAG_RANDOM_ACCESS 268435456) + +(defconstant-exported FILE_FLAG_SEQUENTIAL_SCAN 134217728) + +(defconstant-exported FILE_FLAG_DELETE_ON_CLOSE 67108864) + +(defconstant-exported FILE_FLAG_BACKUP_SEMANTICS 33554432) + +(defconstant-exported FILE_FLAG_POSIX_SEMANTICS 16777216) + +(defconstant-exported FILE_FLAG_OPEN_REPARSE_POINT 2097152) + +(defconstant-exported FILE_FLAG_OPEN_NO_RECALL 1048576) + +(defconstant-exported CLRDTR 6) + +(defconstant-exported CLRRTS 4) + +(defconstant-exported SETDTR 5) + +(defconstant-exported SETRTS 3) + +(defconstant-exported SETXOFF 1) + +(defconstant-exported SETXON 2) + +(defconstant-exported SETBREAK 8) + +(defconstant-exported CLRBREAK 9) + +(defconstant-exported STILL_ACTIVE #x103) + +(defconstant-exported FIND_FIRST_EX_CASE_SENSITIVE 1) + +(defconstant-exported SCS_32BIT_BINARY 0) + +(defconstant-exported SCS_DOS_BINARY 1) + +(defconstant-exported SCS_OS216_BINARY 5) + +(defconstant-exported SCS_PIF_BINARY 3) + +(defconstant-exported SCS_POSIX_BINARY 4) + +(defconstant-exported SCS_WOW_BINARY 2) + +(defconstant-exported MAX_COMPUTERNAME_LENGTH 15) + +(defconstant-exported HW_PROFILE_GUIDLEN 39) + +(defconstant-exported MAX_PROFILE_LEN 80) + +(defconstant-exported DOCKINFO_UNDOCKED 1) + +(defconstant-exported DOCKINFO_DOCKED 2) + +(defconstant-exported DOCKINFO_USER_SUPPLIED 4) + +(defconstant-exported DOCKINFO_USER_UNDOCKED (cl:logior 4 1)) + +(defconstant-exported DOCKINFO_USER_DOCKED (cl:logior 4 2)) + +(defconstant-exported DRIVE_REMOVABLE 2) + +(defconstant-exported DRIVE_FIXED 3) + +(defconstant-exported DRIVE_REMOTE 4) + +(defconstant-exported DRIVE_CDROM 5) + +(defconstant-exported DRIVE_RAMDISK 6) + +(defconstant-exported DRIVE_UNKNOWN 0) + +(defconstant-exported DRIVE_NO_ROOT_DIR 1) + +(defconstant-exported FILE_TYPE_UNKNOWN 0) + +(defconstant-exported FILE_TYPE_DISK 1) + +(defconstant-exported FILE_TYPE_CHAR 2) + +(defconstant-exported FILE_TYPE_PIPE 3) + +(defconstant-exported FILE_TYPE_REMOTE #x8000) + +(defconstant-exported HANDLE_FLAG_INHERIT #x01) + +(defconstant-exported HANDLE_FLAG_PROTECT_FROM_CLOSE #x02) + +(defconstant-exported GET_TAPE_MEDIA_INFORMATION 0) + +(defconstant-exported GET_TAPE_DRIVE_INFORMATION 1) + +(defconstant-exported SET_TAPE_MEDIA_INFORMATION 0) + +(defconstant-exported SET_TAPE_DRIVE_INFORMATION 1) + +(defconstant-exported THREAD_PRIORITY_ABOVE_NORMAL 1) + +(defconstant-exported THREAD_PRIORITY_BELOW_NORMAL -1) + +(defconstant-exported THREAD_PRIORITY_HIGHEST 2) + +(defconstant-exported THREAD_PRIORITY_IDLE -15) + +(defconstant-exported THREAD_PRIORITY_LOWEST -2) + +(defconstant-exported THREAD_PRIORITY_NORMAL 0) + +(defconstant-exported THREAD_PRIORITY_TIME_CRITICAL 15) + +(defconstant-exported THREAD_PRIORITY_ERROR_RETURN 2147483647) + +(defconstant-exported TIME_ZONE_ID_UNKNOWN 0) + +(defconstant-exported TIME_ZONE_ID_STANDARD 1) + +(defconstant-exported TIME_ZONE_ID_DAYLIGHT 2) + +(defconstant-exported TIME_ZONE_ID_INVALID #xFFFFFFFF) + +(defconstant-exported FS_CASE_IS_PRESERVED 2) + +(defconstant-exported FS_CASE_SENSITIVE 1) + +(defconstant-exported FS_UNICODE_STORED_ON_DISK 4) + +(defconstant-exported FS_PERSISTENT_ACLS 8) + +(defconstant-exported FS_FILE_COMPRESSION 16) + +(defconstant-exported FS_VOL_IS_COMPRESSED 32768) + +(defconstant-exported GMEM_FIXED 0) + +(defconstant-exported GMEM_MOVEABLE 2) + +(defconstant-exported GMEM_MODIFY 128) + +(defconstant-exported GPTR 64) + +(defconstant-exported GHND 66) + +(defconstant-exported GMEM_DDESHARE 8192) + +(defconstant-exported GMEM_DISCARDABLE 256) + +(defconstant-exported GMEM_LOWER 4096) + +(defconstant-exported GMEM_NOCOMPACT 16) + +(defconstant-exported GMEM_NODISCARD 32) + +(defconstant-exported GMEM_NOT_BANKED 4096) + +(defconstant-exported GMEM_NOTIFY 16384) + +(defconstant-exported GMEM_SHARE 8192) + +(defconstant-exported GMEM_ZEROINIT 64) + +(defconstant-exported GMEM_DISCARDED 16384) + +(defconstant-exported GMEM_INVALID_HANDLE 32768) + +(defconstant-exported GMEM_LOCKCOUNT 255) + +(defconstant-exported GMEM_VALID_FLAGS 32626) + +(defconstant-exported STATUS_WAIT_0 0) + +(defconstant-exported STATUS_ABANDONED_WAIT_0 #x80) + +(defconstant-exported STATUS_USER_APC #xC0) + +(defconstant-exported STATUS_TIMEOUT #x102) + +(defconstant-exported STATUS_PENDING #x103) + +(defconstant-exported STATUS_SEGMENT_NOTIFICATION #x40000005) + +(defconstant-exported STATUS_GUARD_PAGE_VIOLATION #x80000001) + +(defconstant-exported STATUS_DATATYPE_MISALIGNMENT #x80000002) + +(defconstant-exported STATUS_BREAKPOINT #x80000003) + +(defconstant-exported STATUS_SINGLE_STEP #x80000004) + +(defconstant-exported STATUS_ACCESS_VIOLATION #xC0000005) + +(defconstant-exported STATUS_IN_PAGE_ERROR #xC0000006) + +(defconstant-exported STATUS_INVALID_HANDLE #xC0000008) + +(defconstant-exported STATUS_NO_MEMORY #xC0000017) + +(defconstant-exported STATUS_ILLEGAL_INSTRUCTION #xC000001D) + +(defconstant-exported STATUS_NONCONTINUABLE_EXCEPTION #xC0000025) + +(defconstant-exported STATUS_INVALID_DISPOSITION #xC0000026) + +(defconstant-exported STATUS_ARRAY_BOUNDS_EXCEEDED #xC000008C) + +(defconstant-exported STATUS_FLOAT_DENORMAL_OPERAND #xC000008D) + +(defconstant-exported STATUS_FLOAT_DIVIDE_BY_ZERO #xC000008E) + +(defconstant-exported STATUS_FLOAT_INEXACT_RESULT #xC000008F) + +(defconstant-exported STATUS_FLOAT_INVALID_OPERATION #xC0000090) + +(defconstant-exported STATUS_FLOAT_OVERFLOW #xC0000091) + +(defconstant-exported STATUS_FLOAT_STACK_CHECK #xC0000092) + +(defconstant-exported STATUS_FLOAT_UNDERFLOW #xC0000093) + +(defconstant-exported STATUS_INTEGER_DIVIDE_BY_ZERO #xC0000094) + +(defconstant-exported STATUS_INTEGER_OVERFLOW #xC0000095) + +(defconstant-exported STATUS_PRIVILEGED_INSTRUCTION #xC0000096) + +(defconstant-exported STATUS_STACK_OVERFLOW #xC00000FD) + +(defconstant-exported STATUS_CONTROL_C_EXIT #xC000013A) + +(defconstant-exported EXCEPTION_ACCESS_VIOLATION #xC0000005) + +(defconstant-exported EXCEPTION_DATATYPE_MISALIGNMENT #x80000002) + +(defconstant-exported EXCEPTION_BREAKPOINT #x80000003) + +(defconstant-exported EXCEPTION_SINGLE_STEP #x80000004) + +(defconstant-exported EXCEPTION_ARRAY_BOUNDS_EXCEEDED #xC000008C) + +(defconstant-exported EXCEPTION_FLT_DENORMAL_OPERAND #xC000008D) + +(defconstant-exported EXCEPTION_FLT_DIVIDE_BY_ZERO #xC000008E) + +(defconstant-exported EXCEPTION_FLT_INEXACT_RESULT #xC000008F) + +(defconstant-exported EXCEPTION_FLT_INVALID_OPERATION #xC0000090) + +(defconstant-exported EXCEPTION_FLT_OVERFLOW #xC0000091) + +(defconstant-exported EXCEPTION_FLT_STACK_CHECK #xC0000092) + +(defconstant-exported EXCEPTION_FLT_UNDERFLOW #xC0000093) + +(defconstant-exported EXCEPTION_INT_DIVIDE_BY_ZERO #xC0000094) + +(defconstant-exported EXCEPTION_INT_OVERFLOW #xC0000095) + +(defconstant-exported EXCEPTION_PRIV_INSTRUCTION #xC0000096) + +(defconstant-exported EXCEPTION_IN_PAGE_ERROR #xC0000006) + +(defconstant-exported EXCEPTION_ILLEGAL_INSTRUCTION #xC000001D) + +(defconstant-exported EXCEPTION_NONCONTINUABLE_EXCEPTION #xC0000025) + +(defconstant-exported EXCEPTION_STACK_OVERFLOW #xC00000FD) + +(defconstant-exported EXCEPTION_INVALID_DISPOSITION #xC0000026) + +(defconstant-exported EXCEPTION_GUARD_PAGE #x80000001) + +(defconstant-exported EXCEPTION_INVALID_HANDLE #xC0000008) + +(defconstant-exported CONTROL_C_EXIT #xC000013A) + +(defconstant-exported PROCESS_HEAP_REGION 1) + +(defconstant-exported PROCESS_HEAP_UNCOMMITTED_RANGE 2) + +(defconstant-exported PROCESS_HEAP_ENTRY_BUSY 4) + +(defconstant-exported PROCESS_HEAP_ENTRY_MOVEABLE 16) + +(defconstant-exported PROCESS_HEAP_ENTRY_DDESHARE 32) + +(defconstant-exported DONT_RESOLVE_DLL_REFERENCES 1) + +(defconstant-exported LOAD_LIBRARY_AS_DATAFILE 2) + +(defconstant-exported LOAD_WITH_ALTERED_SEARCH_PATH 8) + +(defconstant-exported LMEM_FIXED 0) + +(defconstant-exported LMEM_MOVEABLE 2) + +(defconstant-exported LMEM_NONZEROLHND 2) + +(defconstant-exported LMEM_NONZEROLPTR 0) + +(defconstant-exported LMEM_DISCARDABLE 3840) + +(defconstant-exported LMEM_NOCOMPACT 16) + +(defconstant-exported LMEM_NODISCARD 32) + +(defconstant-exported LMEM_ZEROINIT 64) + +(defconstant-exported LMEM_DISCARDED 16384) + +(defconstant-exported LMEM_MODIFY 128) + +(defconstant-exported LMEM_INVALID_HANDLE 32768) + +(defconstant-exported LMEM_LOCKCOUNT 255) + +(defconstant-exported LPTR 64) + +(defconstant-exported LHND 66) + +(defconstant-exported NONZEROLHND 2) + +(defconstant-exported NONZEROLPTR 0) + +(defconstant-exported LOCKFILE_FAIL_IMMEDIATELY 1) + +(defconstant-exported LOCKFILE_EXCLUSIVE_LOCK 2) + +(defconstant-exported LOGON32_PROVIDER_DEFAULT 0) + +(defconstant-exported LOGON32_PROVIDER_WINNT35 1) + +(defconstant-exported LOGON32_LOGON_INTERACTIVE 2) + +(defconstant-exported LOGON32_LOGON_BATCH 4) + +(defconstant-exported LOGON32_LOGON_SERVICE 5) + +(defconstant-exported MOVEFILE_REPLACE_EXISTING 1) + +(defconstant-exported MOVEFILE_COPY_ALLOWED 2) + +(defconstant-exported MOVEFILE_DELAY_UNTIL_REBOOT 4) + +(defconstant-exported MOVEFILE_WRITE_THROUGH 8) + +(defconstant-exported MAXIMUM_WAIT_OBJECTS 64) + +(defconstant-exported MAXIMUM_SUSPEND_COUNT #x7F) + +(defconstant-exported WAIT_OBJECT_0 0) + +(defconstant-exported WAIT_ABANDONED_0 128) + +(defconstant-exported WAIT_IO_COMPLETION #xC0) + +(defconstant-exported WAIT_ABANDONED 128) + +(defconstant-exported PURGE_TXABORT 1) + +(defconstant-exported PURGE_RXABORT 2) + +(defconstant-exported PURGE_TXCLEAR 4) + +(defconstant-exported PURGE_RXCLEAR 8) + +(defconstant-exported EVENTLOG_SUCCESS 0) + +(defconstant-exported EVENTLOG_FORWARDS_READ 4) + +(defconstant-exported EVENTLOG_BACKWARDS_READ 8) + +(defconstant-exported EVENTLOG_SEEK_READ 2) + +(defconstant-exported EVENTLOG_SEQUENTIAL_READ 1) + +(defconstant-exported EVENTLOG_ERROR_TYPE 1) + +(defconstant-exported EVENTLOG_WARNING_TYPE 2) + +(defconstant-exported EVENTLOG_INFORMATION_TYPE 4) + +(defconstant-exported EVENTLOG_AUDIT_SUCCESS 8) + +(defconstant-exported EVENTLOG_AUDIT_FAILURE 16) + +(defconstant-exported FORMAT_MESSAGE_ALLOCATE_BUFFER 256) + +(defconstant-exported FORMAT_MESSAGE_IGNORE_INSERTS 512) + +(defconstant-exported FORMAT_MESSAGE_FROM_STRING 1024) + +(defconstant-exported FORMAT_MESSAGE_FROM_HMODULE 2048) + +(defconstant-exported FORMAT_MESSAGE_FROM_SYSTEM 4096) + +(defconstant-exported FORMAT_MESSAGE_ARGUMENT_ARRAY 8192) + +(defconstant-exported FORMAT_MESSAGE_MAX_WIDTH_MASK 255) + +(defconstant-exported EV_BREAK 64) + +(defconstant-exported EV_CTS 8) + +(defconstant-exported EV_DSR 16) + +(defconstant-exported EV_ERR 128) + +(defconstant-exported EV_EVENT1 2048) + +(defconstant-exported EV_EVENT2 4096) + +(defconstant-exported EV_PERR 512) + +(defconstant-exported EV_RING 256) + +(defconstant-exported EV_RLSD 32) + +(defconstant-exported EV_RX80FULL 1024) + +(defconstant-exported EV_RXCHAR 1) + +(defconstant-exported EV_RXFLAG 2) + +(defconstant-exported EV_TXEMPTY 4) + +(defconstant-exported SEM_FAILCRITICALERRORS #x0001) + +(defconstant-exported SEM_NOGPFAULTERRORBOX #x0002) + +(defconstant-exported SEM_NOALIGNMENTFAULTEXCEPT #x0004) + +(defconstant-exported SEM_NOOPENFILEERRORBOX #x8000) + +(defconstant-exported SLE_ERROR 1) + +(defconstant-exported SLE_MINORERROR 2) + +(defconstant-exported SLE_WARNING 3) + +(defconstant-exported SHUTDOWN_NORETRY 1) + +(defconstant-exported EXCEPTION_EXECUTE_HANDLER 1) + +(defconstant-exported EXCEPTION_CONTINUE_EXECUTION -1) + +(defconstant-exported EXCEPTION_CONTINUE_SEARCH 0) + +(defconstant-exported MAXINTATOM #xC000) + +(defconstant-exported IGNORE 0) + +(defconstant-exported INFINITE #xFFFFFFFF) + +(defconstant-exported NOPARITY 0) + +(defconstant-exported ODDPARITY 1) + +(defconstant-exported EVENPARITY 2) + +(defconstant-exported MARKPARITY 3) + +(defconstant-exported SPACEPARITY 4) + +(defconstant-exported ONESTOPBIT 0) + +(defconstant-exported ONE5STOPBITS 1) + +(defconstant-exported TWOSTOPBITS 2) + +(defconstant-exported CBR_110 110) + +(defconstant-exported CBR_300 300) + +(defconstant-exported CBR_600 600) + +(defconstant-exported CBR_1200 1200) + +(defconstant-exported CBR_2400 2400) + +(defconstant-exported CBR_4800 4800) + +(defconstant-exported CBR_9600 9600) + +(defconstant-exported CBR_14400 14400) + +(defconstant-exported CBR_19200 19200) + +(defconstant-exported CBR_38400 38400) + +(defconstant-exported CBR_56000 56000) + +(defconstant-exported CBR_57600 57600) + +(defconstant-exported CBR_115200 115200) + +(defconstant-exported CBR_128000 128000) + +(defconstant-exported CBR_256000 256000) + +(defconstant-exported BACKUP_INVALID 0) + +(defconstant-exported BACKUP_DATA 1) + +(defconstant-exported BACKUP_EA_DATA 2) + +(defconstant-exported BACKUP_SECURITY_DATA 3) + +(defconstant-exported BACKUP_ALTERNATE_DATA 4) + +(defconstant-exported BACKUP_LINK 5) + +(defconstant-exported BACKUP_PROPERTY_DATA 6) + +(defconstant-exported BACKUP_OBJECT_ID 7) + +(defconstant-exported BACKUP_REPARSE_DATA 8) + +(defconstant-exported BACKUP_SPARSE_BLOCK 9) + +(defconstant-exported STREAM_NORMAL_ATTRIBUTE 0) + +(defconstant-exported STREAM_MODIFIED_WHEN_READ 1) + +(defconstant-exported STREAM_CONTAINS_SECURITY 2) + +(defconstant-exported STREAM_CONTAINS_PROPERTIES 4) + +(defconstant-exported STARTF_USESHOWWINDOW 1) + +(defconstant-exported STARTF_USESIZE 2) + +(defconstant-exported STARTF_USEPOSITION 4) + +(defconstant-exported STARTF_USECOUNTCHARS 8) + +(defconstant-exported STARTF_USEFILLATTRIBUTE 16) + +(defconstant-exported STARTF_RUNFULLSCREEN 32) + +(defconstant-exported STARTF_FORCEONFEEDBACK 64) + +(defconstant-exported STARTF_FORCEOFFFEEDBACK 128) + +(defconstant-exported STARTF_USESTDHANDLES 256) + +(defconstant-exported STARTF_USEHOTKEY 512) + +(defconstant-exported TC_NORMAL 0) + +(defconstant-exported TC_HARDERR 1) + +(defconstant-exported TC_GP_TRAP 2) + +(defconstant-exported TC_SIGNAL 3) + +(defconstant-exported AC_LINE_OFFLINE 0) + +(defconstant-exported AC_LINE_ONLINE 1) + +(defconstant-exported AC_LINE_BACKUP_POWER 2) + +(defconstant-exported AC_LINE_UNKNOWN 255) + +(defconstant-exported BATTERY_FLAG_HIGH 1) + +(defconstant-exported BATTERY_FLAG_LOW 2) + +(defconstant-exported BATTERY_FLAG_CRITICAL 4) + +(defconstant-exported BATTERY_FLAG_CHARGING 8) + +(defconstant-exported BATTERY_FLAG_NO_BATTERY 128) + +(defconstant-exported BATTERY_FLAG_UNKNOWN 255) + +(defconstant-exported BATTERY_PERCENTAGE_UNKNOWN 255) + +(defconstant-exported BATTERY_LIFE_UNKNOWN #xFFFFFFFF) + +(defconstant-exported DDD_RAW_TARGET_PATH 1) + +(defconstant-exported DDD_REMOVE_DEFINITION 2) + +(defconstant-exported DDD_EXACT_MATCH_ON_REMOVE 4) + +(defconstant-exported HINSTANCE_ERROR 32) + +(defconstant-exported MS_CTS_ON 16) + +(defconstant-exported MS_DSR_ON 32) + +(defconstant-exported MS_RING_ON 64) + +(defconstant-exported MS_RLSD_ON 128) + +(defconstant-exported DTR_CONTROL_DISABLE 0) + +(defconstant-exported DTR_CONTROL_ENABLE 1) + +(defconstant-exported DTR_CONTROL_HANDSHAKE 2) + +(defconstant-exported RTS_CONTROL_DISABLE 0) + +(defconstant-exported RTS_CONTROL_ENABLE 1) + +(defconstant-exported RTS_CONTROL_HANDSHAKE 2) + +(defconstant-exported RTS_CONTROL_TOGGLE 3) + +(defconstant-exported SECURITY_CONTEXT_TRACKING #x40000) + +(defconstant-exported SECURITY_EFFECTIVE_ONLY #x80000) + +(defconstant-exported SECURITY_SQOS_PRESENT #x100000) + +(defconstant-exported SECURITY_VALID_SQOS_FLAGS #x1F0000) + +(defconstant-exported INVALID_FILE_SIZE #xFFFFFFFF) + +(defconstant-exported WRITE_WATCH_FLAG_RESET 1) + +(defcstructex-exported FILETIME + (dwLowDateTime :unsigned-long) + (dwHighDateTime :unsigned-long)) + + + + + + + +(defcstructex-exported BY_HANDLE_FILE_INFORMATION + (dwFileAttributes :unsigned-long) + (ftCreationTime FILETIME) + (ftLastAccessTime FILETIME) + (ftLastWriteTime FILETIME) + (dwVolumeSerialNumber :unsigned-long) + (nFileSizeHigh :unsigned-long) + (nFileSizeLow :unsigned-long) + (nNumberOfLinks :unsigned-long) + (nFileIndexHigh :unsigned-long) + (nFileIndexLow :unsigned-long)) + + + + + +(defcstructex-exported DCB + (DCBlength :unsigned-long) + (BaudRate :unsigned-long) + (fBinary :unsigned-long) + (fParity :unsigned-long) + (fOutxCtsFlow :unsigned-long) + (fOutxDsrFlow :unsigned-long) + (fDtrControl :unsigned-long) + (fDsrSensitivity :unsigned-long) + (fTXContinueOnXoff :unsigned-long) + (fOutX :unsigned-long) + (fInX :unsigned-long) + (fErrorChar :unsigned-long) + (fNull :unsigned-long) + (fRtsControl :unsigned-long) + (fAbortOnError :unsigned-long) + (fDummy2 :unsigned-long) + (wReserved :unsigned-short) + (XonLim :unsigned-short) + (XoffLim :unsigned-short) + (ByteSize :unsigned-char) + (Parity :unsigned-char) + (StopBits :unsigned-char) + (XonChar :char) + (XoffChar :char) + (ErrorChar :char) + (EofChar :char) + (EvtChar :char) + (wReserved1 :unsigned-short)) + + + + + +(defcstructex-exported COMMCONFIG + (dwSize :unsigned-long) + (wVersion :unsigned-short) + (wReserved :unsigned-short) + (dcb DCB) + (dwProviderSubType :unsigned-long) + (dwProviderOffset :unsigned-long) + (dwProviderSize :unsigned-long) + (wcProviderData :pointer)) + + + + + +(defcstructex-exported COMMPROP + (wPacketLength :unsigned-short) + (wPacketVersion :unsigned-short) + (dwServiceMask :unsigned-long) + (dwReserved1 :unsigned-long) + (dwMaxTxQueue :unsigned-long) + (dwMaxRxQueue :unsigned-long) + (dwMaxBaud :unsigned-long) + (dwProvSubType :unsigned-long) + (dwProvCapabilities :unsigned-long) + (dwSettableParams :unsigned-long) + (dwSettableBaud :unsigned-long) + (wSettableData :unsigned-short) + (wSettableStopParity :unsigned-short) + (dwCurrentTxQueue :unsigned-long) + (dwCurrentRxQueue :unsigned-long) + (dwProvSpec1 :unsigned-long) + (dwProvSpec2 :unsigned-long) + (wcProvChar :pointer)) + + + + + +(defcstructex-exported COMMTIMEOUTS + (ReadIntervalTimeout :unsigned-long) + (ReadTotalTimeoutMultiplier :unsigned-long) + (ReadTotalTimeoutConstant :unsigned-long) + (WriteTotalTimeoutMultiplier :unsigned-long) + (WriteTotalTimeoutConstant :unsigned-long)) + + + + + +(defcstructex-exported COMSTAT + (fCtsHold :unsigned-long) + (fDsrHold :unsigned-long) + (fRlsdHold :unsigned-long) + (fXoffHold :unsigned-long) + (fXoffSent :unsigned-long) + (fEof :unsigned-long) + (fTxim :unsigned-long) + (fReserved :unsigned-long) + (cbInQue :unsigned-long) + (cbOutQue :unsigned-long)) + + + + + + + +(defcstructex-exported CREATE_PROCESS_DEBUG_INFO + (hFile :pointer) + (hProcess :pointer) + (hThread :pointer) + (lpBaseOfImage :pointer) + (dwDebugInfoFileOffset :unsigned-long) + (nDebugInfoSize :unsigned-long) + (lpThreadLocalBase :pointer) + (lpStartAddress :pointer) + (lpImageName :pointer) + (fUnicode :unsigned-short)) + + + + + +(defcstructex-exported CREATE_THREAD_DEBUG_INFO + (hThread :pointer) + (lpThreadLocalBase :pointer) + (lpStartAddress :pointer)) + + + + + +(defcstructex-exported EXCEPTION_DEBUG_INFO + (ExceptionRecord EXCEPTION_RECORD) + (dwFirstChance :unsigned-long)) + + + + + +(defcstructex-exported EXIT_THREAD_DEBUG_INFO + (dwExitCode :unsigned-long)) + + + + + +(defcstructex-exported EXIT_PROCESS_DEBUG_INFO + (dwExitCode :unsigned-long)) + + + + + +(defcstructex-exported LOAD_DLL_DEBUG_INFO + (hFile :pointer) + (lpBaseOfDll :pointer) + (dwDebugInfoFileOffset :unsigned-long) + (nDebugInfoSize :unsigned-long) + (lpImageName :pointer) + (fUnicode :unsigned-short)) + + + + + +(defcstructex-exported UNLOAD_DLL_DEBUG_INFO + (lpBaseOfDll :pointer)) + + + + + +(defcstructex-exported OUTPUT_DEBUG_STRING_INFO + (lpDebugStringData :string) + (fUnicode :unsigned-short) + (nDebugStringLength :unsigned-short)) + + + + + +(defcstructex-exported RIP_INFO + (dwError :unsigned-long) + (dwType :unsigned-long)) + + + + + +(defcstructex-exported DEBUG_EVENT + (dwDebugEventCode :unsigned-long) + (dwProcessId :unsigned-long) + (dwThreadId :unsigned-long) + (u :pointer)) + + + + + +(cffi:defcunion DEBUG_EVENT_u + (Exception EXCEPTION_DEBUG_INFO) + (CreateThread CREATE_THREAD_DEBUG_INFO) + (CreateProcessInfo CREATE_PROCESS_DEBUG_INFO) + (ExitThread EXIT_THREAD_DEBUG_INFO) + (ExitProcess EXIT_PROCESS_DEBUG_INFO) + (LoadDll LOAD_DLL_DEBUG_INFO) + (UnloadDll UNLOAD_DLL_DEBUG_INFO) + (DebugString OUTPUT_DEBUG_STRING_INFO) + (RipInfo RIP_INFO)) + +(defcstructex-exported OVERLAPPED + (Internal :unsigned-long) + (InternalHigh :unsigned-long) + (Offset :unsigned-long) + (OffsetHigh :unsigned-long) + (hEvent :pointer)) + + + + + + + +(defcstructex-exported STARTUPINFOA + (cb :unsigned-long) + (lpReserved :string) + (lpDesktop :string) + (lpTitle :string) + (dwX :unsigned-long) + (dwY :unsigned-long) + (dwXSize :unsigned-long) + (dwYSize :unsigned-long) + (dwXCountChars :unsigned-long) + (dwYCountChars :unsigned-long) + (dwFillAttribute :unsigned-long) + (dwFlags :unsigned-long) + (wShowWindow :unsigned-short) + (cbReserved2 :unsigned-short) + (lpReserved2 :pointer) + (hStdInput :pointer) + (hStdOutput :pointer) + (hStdError :pointer)) + + + + + +(defcstructex-exported STARTUPINFOW + (cb :unsigned-long) + (lpReserved :pointer) + (lpDesktop :pointer) + (lpTitle :pointer) + (dwX :unsigned-long) + (dwY :unsigned-long) + (dwXSize :unsigned-long) + (dwYSize :unsigned-long) + (dwXCountChars :unsigned-long) + (dwYCountChars :unsigned-long) + (dwFillAttribute :unsigned-long) + (dwFlags :unsigned-long) + (wShowWindow :unsigned-short) + (cbReserved2 :unsigned-short) + (lpReserved2 :pointer) + (hStdInput :pointer) + (hStdOutput :pointer) + (hStdError :pointer)) + + + + + +(defcstructex-exported PROCESS_INFORMATION + (hProcess :pointer) + (hThread :pointer) + (dwProcessId :unsigned-long) + (dwThreadId :unsigned-long)) + + + + + + + +(defcstructex-exported CRITICAL_SECTION_DEBUG + (Type :unsigned-short) + (CreatorBackTraceIndex :unsigned-short) + (CriticalSection :pointer) + (ProcessLocksList LIST_ENTRY) + (EntryCount :unsigned-long) + (ContentionCount :unsigned-long) + (Spare :pointer)) + + + + + +(defcstructex-exported CRITICAL_SECTION + (DebugInfo :pointer) + (LockCount :int32) + (RecursionCount :int32) + (OwningThread :pointer) + (LockSemaphore :pointer) + (SpinCount :unsigned-long)) + + + + + + + +(defcstructex-exported SYSTEMTIME + (wYear :unsigned-short) + (wMonth :unsigned-short) + (wDayOfWeek :unsigned-short) + (wDay :unsigned-short) + (wHour :unsigned-short) + (wMinute :unsigned-short) + (wSecond :unsigned-short) + (wMilliseconds :unsigned-short)) + + + + + +(defcstructex-exported WIN32_FILE_ATTRIBUTE_DATA + (dwFileAttributes :unsigned-long) + (ftCreationTime FILETIME) + (ftLastAccessTime FILETIME) + (ftLastWriteTime FILETIME) + (nFileSizeHigh :unsigned-long) + (nFileSizeLow :unsigned-long)) + + + + + +(defcstructex-exported WIN32_FIND_DATAA + (dwFileAttributes :unsigned-long) + (ftCreationTime FILETIME) + (ftLastAccessTime FILETIME) + (ftLastWriteTime FILETIME) + (nFileSizeHigh :unsigned-long) + (nFileSizeLow :unsigned-long) + (dwReserved0 :unsigned-long) + (dwReserved1 :unsigned-long) + (cFileName :pointer) + (cAlternateFileName :pointer)) + + + + + + + +(defcstructex-exported WIN32_FIND_DATAW + (dwFileAttributes :unsigned-long) + (ftCreationTime FILETIME) + (ftLastAccessTime FILETIME) + (ftLastWriteTime FILETIME) + (nFileSizeHigh :unsigned-long) + (nFileSizeLow :unsigned-long) + (dwReserved0 :unsigned-long) + (dwReserved1 :unsigned-long) + (cFileName :pointer) + (cAlternateFileName :pointer)) + + + + + + + +(defcstructex-exported WIN32_STREAM_ID + (dwStreamId :unsigned-long) + (dwStreamAttributes :unsigned-long) + (Size LARGE_INTEGER) + (dwStreamNameSize :unsigned-long) + (cStreamName :pointer)) + + + + + +(cffi:defcenum FINDEX_INFO_LEVELS + :FindExInfoStandard + :FindExInfoMaxInfoLevel) + +(cffi:defcenum FINDEX_SEARCH_OPS + :FindExSearchNameMatch + :FindExSearchLimitToDirectories + :FindExSearchLimitToDevices + :FindExSearchMaxSearchOp) + +(cffi:defcenum ACL_INFORMATION_CLASS + (:AclRevisionInformation #.1) + :AclSizeInformation) + +(defcstructex-exported HW_PROFILE_INFOA + (dwDockInfo :unsigned-long) + (szHwProfileGuid :pointer) + (szHwProfileName :pointer)) + + + + + +(defcstructex-exported HW_PROFILE_INFOW + (dwDockInfo :unsigned-long) + (szHwProfileGuid :pointer) + (szHwProfileName :pointer)) + + + + + +(cffi:defcenum GET_FILEEX_INFO_LEVELS + :GetFileExInfoStandard + :GetFileExMaxInfoLevel) + +(defcstructex-exported SYSTEM_INFO + (dwPageSize :unsigned-long) + (lpMinimumApplicationAddress :pointer) + (lpMaximumApplicationAddress :pointer) + (dwActiveProcessorMask :unsigned-long) + (dwNumberOfProcessors :unsigned-long) + (dwProcessorType :unsigned-long) + (dwAllocationGranularity :unsigned-long) + (wProcessorLevel :unsigned-short) + (wProcessorRevision :unsigned-short) + (u :pointer)) + + + + + +(cffi:defcunion SYSTEM_INFO_u + (dwOemId :unsigned-long) + (s :pointer)) + +(defcstructex-exported SYSTEM_INFO_u_s + (wProcessorArchitecture :unsigned-short) + (wReserved :unsigned-short)) + +(defcstructex-exported SYSTEM_POWER_STATUS + (ACLineStatus :unsigned-char) + (BatteryFlag :unsigned-char) + (BatteryLifePercent :unsigned-char) + (Reserved1 :unsigned-char) + (BatteryLifeTime :unsigned-long) + (BatteryFullLifeTime :unsigned-long)) + + + + + +(defcstructex-exported TIME_ZONE_INFORMATION + (Bias :int32) + (StandardName :pointer) + (StandardDate SYSTEMTIME) + (StandardBias :int32) + (DaylightName :pointer) + (DaylightDate SYSTEMTIME) + (DaylightBias :int32)) + + + + + +(defcstructex-exported MEMORYSTATUS + (dwLength :unsigned-long) + (dwMemoryLoad :unsigned-long) + (dwTotalPhys :unsigned-long) + (dwAvailPhys :unsigned-long) + (dwTotalPageFile :unsigned-long) + (dwAvailPageFile :unsigned-long) + (dwTotalVirtual :unsigned-long) + (dwAvailVirtual :unsigned-long)) + + + + + +(defcstructex-exported LDT_ENTRY + (LimitLow :unsigned-short) + (BaseLow :unsigned-short) + (HighWord :pointer)) + + + + + + + +(cffi:defcunion LDT_ENTRY_HighWord + (Bytes :pointer) + (Bits :pointer)) + +(defcstructex-exported LDT_ENTRY_HighWord_Bits + (BaseMid :unsigned-long) + (Type :unsigned-long) + (Dpl :unsigned-long) + (Pres :unsigned-long) + (LimitHi :unsigned-long) + (Sys :unsigned-long) + (Reserved_0 :unsigned-long) + (Default_Big :unsigned-long) + (Granularity :unsigned-long) + (BaseHi :unsigned-long)) + +(defcstructex-exported LDT_ENTRY_HighWord_Bytes + (BaseMid :unsigned-char) + (Flags1 :unsigned-char) + (Flags2 :unsigned-char) + (BaseHi :unsigned-char)) + +(defcstructex-exported PROCESS_HEAP_ENTRY + (lpData :pointer) + (cbData :unsigned-long) + (cbOverhead :unsigned-char) + (iRegionIndex :unsigned-char) + (wFlags :unsigned-short) + (u :pointer)) + + + + + +(cffi:defcunion PROCESS_HEAP_ENTRY_u + (Block :pointer) + (Region :pointer)) + +(defcstructex-exported PROCESS_HEAP_ENTRY_u_Region + (dwCommittedSize :unsigned-long) + (dwUnCommittedSize :unsigned-long) + (lpFirstBlock :pointer) + (lpLastBlock :pointer)) + +(defcstructex-exported PROCESS_HEAP_ENTRY_u_Block + (hMem :pointer) + (dwReserved :pointer)) + +(defcstructex-exported OFSTRUCT + (cBytes :unsigned-char) + (fFixedDisk :unsigned-char) + (nErrCode :unsigned-short) + (Reserved1 :unsigned-short) + (Reserved2 :unsigned-short) + (szPathName :pointer)) + + + + + + + +(defcstructex-exported WIN_CERTIFICATE + (dwLength :unsigned-long) + (wRevision :unsigned-short) + (wCertificateType :unsigned-short) + (bCertificate :pointer)) + + + + + + + + + + + + + + + + + + + + + + + +(defcfunex-exported ("CancelDeviceWakeupRequest" CancelDeviceWakeupRequest :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("ConvertFiberToThread" ConvertFiberToThread :convention :stdcall) :int) + +(defcfunex-exported ("EncryptFileA" EncryptFileA :convention :stdcall) :int + (arg0 :string)) + +(defcfunex-exported ("EncryptFileW" EncryptFileW :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("FileEncryptionStatusA" FileEncryptionStatusA :convention :stdcall) :int + (arg0 :string) + (arg1 :pointer)) + +(defcfunex-exported ("FileEncryptionStatusW" FileEncryptionStatusW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetProcessPriorityBoost" GetProcessPriorityBoost :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + + +(defcfunex-exported ("GetWriteWatch" GetWriteWatch :convention :stdcall) :unsigned-int + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer)) + +(defcfunex-exported ("InitializeCriticalSectionAndSpinCount" InitializeCriticalSectionAndSpinCount :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("SetCriticalSectionSpinCount" SetCriticalSectionSpinCount :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("IsSystemResumeAutomatic" IsSystemResumeAutomatic :convention :stdcall) :int) + +(defcfunex-exported ("IsTextUnicode" IsTextUnicode :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :pointer)) + + + + + + +(defcfunex-exported ("MulDiv" MulDiv :convention :stdcall) :int + (arg0 :int) + (arg1 :int) + (arg2 :int)) + +(defcfunex-exported ("ReadFileScatter" ReadFileScatter :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("ResetWriteWatch" ResetWriteWatch :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("SetSecurityDescriptorControl" SetSecurityDescriptorControl :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-short) + (arg2 :unsigned-short)) + +(defcfunex-exported ("VerifyVersionInfoA" VerifyVersionInfoA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long-long)) + +(defcfunex-exported ("VerifyVersionInfoW" VerifyVersionInfoW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long-long)) + +(defcfunex-exported ("WinLoadTrustProvider" WinLoadTrustProvider :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("WriteFileGather" WriteFileGather :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :pointer)) + + + + + + + + + + + + + + + +(defconstant-exported BI_RGB 0) + +(defconstant-exported BI_RLE8 1) + +(defconstant-exported BI_RLE4 2) + +(defconstant-exported BI_BITFIELDS 3) + +(defconstant-exported BI_JPEG 4) + +(defconstant-exported BI_PNG 5) + +(defconstant-exported LF_FACESIZE 32) + +(defconstant-exported LF_FULLFACESIZE 64) + +(defconstant-exported CA_NEGATIVE 1) + +(defconstant-exported CA_LOG_FILTER 2) + +(defconstant-exported ILLUMINANT_DEVICE_DEFAULT 0) + +(defconstant-exported ILLUMINANT_A 1) + +(defconstant-exported ILLUMINANT_B 2) + +(defconstant-exported ILLUMINANT_C 3) + +(defconstant-exported ILLUMINANT_D50 4) + +(defconstant-exported ILLUMINANT_D55 5) + +(defconstant-exported ILLUMINANT_D65 6) + +(defconstant-exported ILLUMINANT_D75 7) + +(defconstant-exported ILLUMINANT_F2 8) + +(defconstant-exported ILLUMINANT_MAX_INDEX 8) + +(defconstant-exported ILLUMINANT_TUNGSTEN 1) + +(defconstant-exported ILLUMINANT_DAYLIGHT 3) + +(defconstant-exported ILLUMINANT_FLUORESCENT 8) + +(defconstant-exported ILLUMINANT_NTSC 3) + +(defconstant-exported RGB_GAMMA_MIN 2500) + +(defconstant-exported RGB_GAMMA_MAX 65000) + +(defconstant-exported REFERENCE_WHITE_MIN 6000) + +(defconstant-exported REFERENCE_WHITE_MAX 10000) + +(defconstant-exported REFERENCE_BLACK_MIN 0) + +(defconstant-exported REFERENCE_BLACK_MAX 4000) + +(defconstant-exported COLOR_ADJ_MIN -100) + +(defconstant-exported COLOR_ADJ_MAX 100) + +(defconstant-exported CCHDEVICENAME 32) + +(defconstant-exported CCHFORMNAME 32) + +(defconstant-exported DI_COMPAT 4) + +(defconstant-exported DI_DEFAULTSIZE 8) + +(defconstant-exported DI_IMAGE 2) + +(defconstant-exported DI_MASK 1) + +(defconstant-exported DI_NORMAL 3) + +(defconstant-exported DI_APPBANDING 1) + +(defconstant-exported EMR_HEADER 1) + +(defconstant-exported EMR_POLYBEZIER 2) + +(defconstant-exported EMR_POLYGON 3) + +(defconstant-exported EMR_POLYLINE 4) + +(defconstant-exported EMR_POLYBEZIERTO 5) + +(defconstant-exported EMR_POLYLINETO 6) + +(defconstant-exported EMR_POLYPOLYLINE 7) + +(defconstant-exported EMR_POLYPOLYGON 8) + +(defconstant-exported EMR_SETWINDOWEXTEX 9) + +(defconstant-exported EMR_SETWINDOWORGEX 10) + +(defconstant-exported EMR_SETVIEWPORTEXTEX 11) + +(defconstant-exported EMR_SETVIEWPORTORGEX 12) + +(defconstant-exported EMR_SETBRUSHORGEX 13) + +(defconstant-exported EMR_EOF 14) + +(defconstant-exported EMR_SETPIXELV 15) + +(defconstant-exported EMR_SETMAPPERFLAGS 16) + +(defconstant-exported EMR_SETMAPMODE 17) + +(defconstant-exported EMR_SETBKMODE 18) + +(defconstant-exported EMR_SETPOLYFILLMODE 19) + +(defconstant-exported EMR_SETROP2 20) + +(defconstant-exported EMR_SETSTRETCHBLTMODE 21) + +(defconstant-exported EMR_SETTEXTALIGN 22) + +(defconstant-exported EMR_SETCOLORADJUSTMENT 23) + +(defconstant-exported EMR_SETTEXTCOLOR 24) + +(defconstant-exported EMR_SETBKCOLOR 25) + +(defconstant-exported EMR_OFFSETCLIPRGN 26) + +(defconstant-exported EMR_MOVETOEX 27) + +(defconstant-exported EMR_SETMETARGN 28) + +(defconstant-exported EMR_EXCLUDECLIPRECT 29) + +(defconstant-exported EMR_INTERSECTCLIPRECT 30) + +(defconstant-exported EMR_SCALEVIEWPORTEXTEX 31) + +(defconstant-exported EMR_SCALEWINDOWEXTEX 32) + +(defconstant-exported EMR_SAVEDC 33) + +(defconstant-exported EMR_RESTOREDC 34) + +(defconstant-exported EMR_SETWORLDTRANSFORM 35) + +(defconstant-exported EMR_MODIFYWORLDTRANSFORM 36) + +(defconstant-exported EMR_SELECTOBJECT 37) + +(defconstant-exported EMR_CREATEPEN 38) + +(defconstant-exported EMR_CREATEBRUSHINDIRECT 39) + +(defconstant-exported EMR_DELETEOBJECT 40) + +(defconstant-exported EMR_ANGLEARC 41) + +(defconstant-exported EMR_ELLIPSE 42) + +(defconstant-exported EMR_RECTANGLE 43) + +(defconstant-exported EMR_ROUNDRECT 44) + +(defconstant-exported EMR_ARC 45) + +(defconstant-exported EMR_CHORD 46) + +(defconstant-exported EMR_PIE 47) + +(defconstant-exported EMR_SELECTPALETTE 48) + +(defconstant-exported EMR_CREATEPALETTE 49) + +(defconstant-exported EMR_SETPALETTEENTRIES 50) + +(defconstant-exported EMR_RESIZEPALETTE 51) + +(defconstant-exported EMR_REALIZEPALETTE 52) + +(defconstant-exported EMR_EXTFLOODFILL 53) + +(defconstant-exported EMR_LINETO 54) + +(defconstant-exported EMR_ARCTO 55) + +(defconstant-exported EMR_POLYDRAW 56) + +(defconstant-exported EMR_SETARCDIRECTION 57) + +(defconstant-exported EMR_SETMITERLIMIT 58) + +(defconstant-exported EMR_BEGINPATH 59) + +(defconstant-exported EMR_ENDPATH 60) + +(defconstant-exported EMR_CLOSEFIGURE 61) + +(defconstant-exported EMR_FILLPATH 62) + +(defconstant-exported EMR_STROKEANDFILLPATH 63) + +(defconstant-exported EMR_STROKEPATH 64) + +(defconstant-exported EMR_FLATTENPATH 65) + +(defconstant-exported EMR_WIDENPATH 66) + +(defconstant-exported EMR_SELECTCLIPPATH 67) + +(defconstant-exported EMR_ABORTPATH 68) + +(defconstant-exported EMR_GDICOMMENT 70) + +(defconstant-exported EMR_FILLRGN 71) + +(defconstant-exported EMR_FRAMERGN 72) + +(defconstant-exported EMR_INVERTRGN 73) + +(defconstant-exported EMR_PAINTRGN 74) + +(defconstant-exported EMR_EXTSELECTCLIPRGN 75) + +(defconstant-exported EMR_BITBLT 76) + +(defconstant-exported EMR_STRETCHBLT 77) + +(defconstant-exported EMR_MASKBLT 78) + +(defconstant-exported EMR_PLGBLT 79) + +(defconstant-exported EMR_SETDIBITSTODEVICE 80) + +(defconstant-exported EMR_STRETCHDIBITS 81) + +(defconstant-exported EMR_EXTCREATEFONTINDIRECTW 82) + +(defconstant-exported EMR_EXTTEXTOUTA 83) + +(defconstant-exported EMR_EXTTEXTOUTW 84) + +(defconstant-exported EMR_POLYBEZIER16 85) + +(defconstant-exported EMR_POLYGON16 86) + +(defconstant-exported EMR_POLYLINE16 87) + +(defconstant-exported EMR_POLYBEZIERTO16 88) + +(defconstant-exported EMR_POLYLINETO16 89) + +(defconstant-exported EMR_POLYPOLYLINE16 90) + +(defconstant-exported EMR_POLYPOLYGON16 91) + +(defconstant-exported EMR_POLYDRAW16 92) + +(defconstant-exported EMR_CREATEMONOBRUSH 93) + +(defconstant-exported EMR_CREATEDIBPATTERNBRUSHPT 94) + +(defconstant-exported EMR_EXTCREATEPEN 95) + +(defconstant-exported EMR_POLYTEXTOUTA 96) + +(defconstant-exported EMR_POLYTEXTOUTW 97) + +(defconstant-exported EMR_SETICMMODE 98) + +(defconstant-exported EMR_CREATECOLORSPACE 99) + +(defconstant-exported EMR_SETCOLORSPACE 100) + +(defconstant-exported EMR_DELETECOLORSPACE 101) + +(defconstant-exported EMR_GLSRECORD 102) + +(defconstant-exported EMR_GLSBOUNDEDRECORD 103) + +(defconstant-exported EMR_PIXELFORMAT 104) + +(defconstant-exported ENHMETA_SIGNATURE 1179469088) + +(defconstant-exported EPS_SIGNATURE #x46535045) + +(defconstant-exported META_SETBKCOLOR #x201) + +(defconstant-exported META_SETBKMODE #x102) + +(defconstant-exported META_SETMAPMODE #x103) + +(defconstant-exported META_SETROP2 #x104) + +(defconstant-exported META_SETRELABS #x105) + +(defconstant-exported META_SETPOLYFILLMODE #x106) + +(defconstant-exported META_SETSTRETCHBLTMODE #x107) + +(defconstant-exported META_SETTEXTCHAREXTRA #x108) + +(defconstant-exported META_SETTEXTCOLOR #x209) + +(defconstant-exported META_SETTEXTJUSTIFICATION #x20A) + +(defconstant-exported META_SETWINDOWORG #x20B) + +(defconstant-exported META_SETWINDOWEXT #x20C) + +(defconstant-exported META_SETVIEWPORTORG #x20D) + +(defconstant-exported META_SETVIEWPORTEXT #x20E) + +(defconstant-exported META_OFFSETWINDOWORG #x20F) + +(defconstant-exported META_SCALEWINDOWEXT #x410) + +(defconstant-exported META_OFFSETVIEWPORTORG #x211) + +(defconstant-exported META_SCALEVIEWPORTEXT #x412) + +(defconstant-exported META_LINETO #x213) + +(defconstant-exported META_MOVETO #x214) + +(defconstant-exported META_EXCLUDECLIPRECT #x415) + +(defconstant-exported META_INTERSECTCLIPRECT #x416) + +(defconstant-exported META_ARC #x817) + +(defconstant-exported META_ELLIPSE #x418) + +(defconstant-exported META_FLOODFILL #x419) + +(defconstant-exported META_PIE #x81A) + +(defconstant-exported META_RECTANGLE #x41B) + +(defconstant-exported META_ROUNDRECT #x61C) + +(defconstant-exported META_PATBLT #x61D) + +(defconstant-exported META_SAVEDC #x1E) + +(defconstant-exported META_SETPIXEL #x41F) + +(defconstant-exported META_OFFSETCLIPRGN #x220) + +(defconstant-exported META_TEXTOUT #x521) + +(defconstant-exported META_BITBLT #x922) + +(defconstant-exported META_STRETCHBLT #xB23) + +(defconstant-exported META_POLYGON #x324) + +(defconstant-exported META_POLYLINE #x325) + +(defconstant-exported META_ESCAPE #x626) + +(defconstant-exported META_RESTOREDC #x127) + +(defconstant-exported META_FILLREGION #x228) + +(defconstant-exported META_FRAMEREGION #x429) + +(defconstant-exported META_INVERTREGION #x12A) + +(defconstant-exported META_PAINTREGION #x12B) + +(defconstant-exported META_SELECTCLIPREGION #x12C) + +(defconstant-exported META_SELECTOBJECT #x12D) + +(defconstant-exported META_SETTEXTALIGN #x12E) + +(defconstant-exported META_CHORD #x830) + +(defconstant-exported META_SETMAPPERFLAGS #x231) + +(defconstant-exported META_EXTTEXTOUT #xa32) + +(defconstant-exported META_SETDIBTODEV #xd33) + +(defconstant-exported META_SELECTPALETTE #x234) + +(defconstant-exported META_REALIZEPALETTE #x35) + +(defconstant-exported META_ANIMATEPALETTE #x436) + +(defconstant-exported META_SETPALENTRIES #x37) + +(defconstant-exported META_POLYPOLYGON #x538) + +(defconstant-exported META_RESIZEPALETTE #x139) + +(defconstant-exported META_DIBBITBLT #x940) + +(defconstant-exported META_DIBSTRETCHBLT #xb41) + +(defconstant-exported META_DIBCREATEPATTERNBRUSH #x142) + +(defconstant-exported META_STRETCHDIB #xf43) + +(defconstant-exported META_EXTFLOODFILL #x548) + +(defconstant-exported META_DELETEOBJECT #x1f0) + +(defconstant-exported META_CREATEPALETTE #xf7) + +(defconstant-exported META_CREATEPATTERNBRUSH #x1F9) + +(defconstant-exported META_CREATEPENINDIRECT #x2FA) + +(defconstant-exported META_CREATEFONTINDIRECT #x2FB) + +(defconstant-exported META_CREATEBRUSHINDIRECT #x2FC) + +(defconstant-exported META_CREATEREGION #x6FF) + +(defconstant-exported PT_MOVETO 6) + +(defconstant-exported PT_LINETO 2) + +(defconstant-exported PT_BEZIERTO 4) + +(defconstant-exported PT_CLOSEFIGURE 1) + +(defconstant-exported ELF_VENDOR_SIZE 4) + +(defconstant-exported ELF_VERSION 0) + +(defconstant-exported ELF_CULTURE_LATIN 0) + +(defconstant-exported PFD_TYPE_RGBA 0) + +(defconstant-exported PFD_TYPE_COLORINDEX 1) + +(defconstant-exported PFD_MAIN_PLANE 0) + +(defconstant-exported PFD_OVERLAY_PLANE 1) + +(defconstant-exported PFD_UNDERLAY_PLANE -1) + +(defconstant-exported PFD_DOUBLEBUFFER 1) + +(defconstant-exported PFD_STEREO 2) + +(defconstant-exported PFD_DRAW_TO_WINDOW 4) + +(defconstant-exported PFD_DRAW_TO_BITMAP 8) + +(defconstant-exported PFD_SUPPORT_GDI 16) + +(defconstant-exported PFD_SUPPORT_OPENGL 32) + +(defconstant-exported PFD_GENERIC_FORMAT 64) + +(defconstant-exported PFD_NEED_PALETTE 128) + +(defconstant-exported PFD_NEED_SYSTEM_PALETTE #x00000100) + +(defconstant-exported PFD_SWAP_EXCHANGE #x00000200) + +(defconstant-exported PFD_SWAP_COPY #x00000400) + +(defconstant-exported PFD_SWAP_LAYER_BUFFERS #x00000800) + +(defconstant-exported PFD_GENERIC_ACCELERATED #x00001000) + +(defconstant-exported PFD_DEPTH_DONTCARE #x20000000) + +(defconstant-exported PFD_DOUBLEBUFFER_DONTCARE #x40000000) + +(defconstant-exported PFD_STEREO_DONTCARE #x80000000) + +(defconstant-exported SP_ERROR -1) + +(defconstant-exported SP_OUTOFDISK -4) + +(defconstant-exported SP_OUTOFMEMORY -5) + +(defconstant-exported SP_USERABORT -3) + +(defconstant-exported SP_APPABORT -2) + +(defconstant-exported BLACKNESS #x42) + +(defconstant-exported NOTSRCERASE #x1100A6) + +(defconstant-exported NOTSRCCOPY #x330008) + +(defconstant-exported SRCERASE #x440328) + +(defconstant-exported DSTINVERT #x550009) + +(defconstant-exported PATINVERT #x5A0049) + +(defconstant-exported SRCINVERT #x660046) + +(defconstant-exported SRCAND #x8800C6) + +(defconstant-exported MERGEPAINT #xBB0226) + +(defconstant-exported MERGECOPY #xC000CA) + +(defconstant-exported SRCCOPY #xCC0020) + +(defconstant-exported SRCPAINT #xEE0086) + +(defconstant-exported PATCOPY #xF00021) + +(defconstant-exported PATPAINT #xFB0A09) + +(defconstant-exported WHITENESS #xFF0062) + +(defconstant-exported R2_BLACK 1) + +(defconstant-exported R2_COPYPEN 13) + +(defconstant-exported R2_MASKNOTPEN 3) + +(defconstant-exported R2_MASKPEN 9) + +(defconstant-exported R2_MASKPENNOT 5) + +(defconstant-exported R2_MERGENOTPEN 12) + +(defconstant-exported R2_MERGEPEN 15) + +(defconstant-exported R2_MERGEPENNOT 14) + +(defconstant-exported R2_NOP 11) + +(defconstant-exported R2_NOT 6) + +(defconstant-exported R2_NOTCOPYPEN 4) + +(defconstant-exported R2_NOTMASKPEN 8) + +(defconstant-exported R2_NOTMERGEPEN 2) + +(defconstant-exported R2_NOTXORPEN 10) + +(defconstant-exported R2_WHITE 16) + +(defconstant-exported R2_XORPEN 7) + +(defconstant-exported CM_OUT_OF_GAMUT 255) + +(defconstant-exported CM_IN_GAMUT 0) + +(defconstant-exported RGN_AND 1) + +(defconstant-exported RGN_COPY 5) + +(defconstant-exported RGN_DIFF 4) + +(defconstant-exported RGN_OR 2) + +(defconstant-exported RGN_XOR 3) + +(defconstant-exported NULLREGION 1) + +(defconstant-exported SIMPLEREGION 2) + +(defconstant-exported COMPLEXREGION 3) + +(defconstant-exported ERROR 0) + +(defconstant-exported CBM_INIT 4) + +(defconstant-exported DIB_PAL_COLORS 1) + +(defconstant-exported DIB_RGB_COLORS 0) + +(defconstant-exported FW_DONTCARE 0) + +(defconstant-exported FW_THIN 100) + +(defconstant-exported FW_EXTRALIGHT 200) + +(defconstant-exported FW_ULTRALIGHT 200) + +(defconstant-exported FW_LIGHT 300) + +(defconstant-exported FW_NORMAL 400) + +(defconstant-exported FW_REGULAR 400) + +(defconstant-exported FW_MEDIUM 500) + +(defconstant-exported FW_SEMIBOLD 600) + +(defconstant-exported FW_DEMIBOLD 600) + +(defconstant-exported FW_BOLD 700) + +(defconstant-exported FW_EXTRABOLD 800) + +(defconstant-exported FW_ULTRABOLD 800) + +(defconstant-exported FW_HEAVY 900) + +(defconstant-exported FW_BLACK 900) + +(defconstant-exported ANSI_CHARSET 0) + +(defconstant-exported DEFAULT_CHARSET 1) + +(defconstant-exported SYMBOL_CHARSET 2) + +(defconstant-exported SHIFTJIS_CHARSET 128) + +(defconstant-exported HANGEUL_CHARSET 129) + +(defconstant-exported HANGUL_CHARSET 129) + +(defconstant-exported GB2312_CHARSET 134) + +(defconstant-exported CHINESEBIG5_CHARSET 136) + +(defconstant-exported GREEK_CHARSET 161) + +(defconstant-exported TURKISH_CHARSET 162) + +(defconstant-exported HEBREW_CHARSET 177) + +(defconstant-exported ARABIC_CHARSET 178) + +(defconstant-exported BALTIC_CHARSET 186) + +(defconstant-exported RUSSIAN_CHARSET 204) + +(defconstant-exported THAI_CHARSET 222) + +(defconstant-exported EASTEUROPE_CHARSET 238) + +(defconstant-exported OEM_CHARSET 255) + +(defconstant-exported JOHAB_CHARSET 130) + +(defconstant-exported VIETNAMESE_CHARSET 163) + +(defconstant-exported MAC_CHARSET 77) + +(defconstant-exported OUT_DEFAULT_PRECIS 0) + +(defconstant-exported OUT_STRING_PRECIS 1) + +(defconstant-exported OUT_CHARACTER_PRECIS 2) + +(defconstant-exported OUT_STROKE_PRECIS 3) + +(defconstant-exported OUT_TT_PRECIS 4) + +(defconstant-exported OUT_DEVICE_PRECIS 5) + +(defconstant-exported OUT_RASTER_PRECIS 6) + +(defconstant-exported OUT_TT_ONLY_PRECIS 7) + +(defconstant-exported OUT_OUTLINE_PRECIS 8) + +(defconstant-exported CLIP_DEFAULT_PRECIS 0) + +(defconstant-exported CLIP_CHARACTER_PRECIS 1) + +(defconstant-exported CLIP_STROKE_PRECIS 2) + +(defconstant-exported CLIP_MASK 15) + +(defconstant-exported CLIP_LH_ANGLES 16) + +(defconstant-exported CLIP_TT_ALWAYS 32) + +(defconstant-exported CLIP_EMBEDDED 128) + +(defconstant-exported DEFAULT_QUALITY 0) + +(defconstant-exported DRAFT_QUALITY 1) + +(defconstant-exported PROOF_QUALITY 2) + +(defconstant-exported NONANTIALIASED_QUALITY 3) + +(defconstant-exported ANTIALIASED_QUALITY 4) + +(defconstant-exported DEFAULT_PITCH 0) + +(defconstant-exported FIXED_PITCH 1) + +(defconstant-exported VARIABLE_PITCH 2) + +(defconstant-exported MONO_FONT 8) + +(defconstant-exported FF_DECORATIVE 80) + +(defconstant-exported FF_DONTCARE 0) + +(defconstant-exported FF_MODERN 48) + +(defconstant-exported FF_ROMAN 16) + +(defconstant-exported FF_SCRIPT 64) + +(defconstant-exported FF_SWISS 32) + +(defconstant-exported PANOSE_COUNT 10) + +(defconstant-exported PAN_FAMILYTYPE_INDEX 0) + +(defconstant-exported PAN_SERIFSTYLE_INDEX 1) + +(defconstant-exported PAN_WEIGHT_INDEX 2) + +(defconstant-exported PAN_PROPORTION_INDEX 3) + +(defconstant-exported PAN_CONTRAST_INDEX 4) + +(defconstant-exported PAN_STROKEVARIATION_INDEX 5) + +(defconstant-exported PAN_ARMSTYLE_INDEX 6) + +(defconstant-exported PAN_LETTERFORM_INDEX 7) + +(defconstant-exported PAN_MIDLINE_INDEX 8) + +(defconstant-exported PAN_XHEIGHT_INDEX 9) + +(defconstant-exported PAN_CULTURE_LATIN 0) + +(defconstant-exported PAN_ANY 0) + +(defconstant-exported PAN_NO_FIT 1) + +(defconstant-exported PAN_FAMILY_TEXT_DISPLAY 2) + +(defconstant-exported PAN_FAMILY_SCRIPT 3) + +(defconstant-exported PAN_FAMILY_DECORATIVE 4) + +(defconstant-exported PAN_FAMILY_PICTORIAL 5) + +(defconstant-exported PAN_SERIF_COVE 2) + +(defconstant-exported PAN_SERIF_OBTUSE_COVE 3) + +(defconstant-exported PAN_SERIF_SQUARE_COVE 4) + +(defconstant-exported PAN_SERIF_OBTUSE_SQUARE_COVE 5) + +(defconstant-exported PAN_SERIF_SQUARE 6) + +(defconstant-exported PAN_SERIF_THIN 7) + +(defconstant-exported PAN_SERIF_BONE 8) + +(defconstant-exported PAN_SERIF_EXAGGERATED 9) + +(defconstant-exported PAN_SERIF_TRIANGLE 10) + +(defconstant-exported PAN_SERIF_NORMAL_SANS 11) + +(defconstant-exported PAN_SERIF_OBTUSE_SANS 12) + +(defconstant-exported PAN_SERIF_PERP_SANS 13) + +(defconstant-exported PAN_SERIF_FLARED 14) + +(defconstant-exported PAN_SERIF_ROUNDED 15) + +(defconstant-exported PAN_WEIGHT_VERY_LIGHT 2) + +(defconstant-exported PAN_WEIGHT_LIGHT 3) + +(defconstant-exported PAN_WEIGHT_THIN 4) + +(defconstant-exported PAN_WEIGHT_BOOK 5) + +(defconstant-exported PAN_WEIGHT_MEDIUM 6) + +(defconstant-exported PAN_WEIGHT_DEMI 7) + +(defconstant-exported PAN_WEIGHT_BOLD 8) + +(defconstant-exported PAN_WEIGHT_HEAVY 9) + +(defconstant-exported PAN_WEIGHT_BLACK 10) + +(defconstant-exported PAN_WEIGHT_NORD 11) + +(defconstant-exported PAN_PROP_OLD_STYLE 2) + +(defconstant-exported PAN_PROP_MODERN 3) + +(defconstant-exported PAN_PROP_EVEN_WIDTH 4) + +(defconstant-exported PAN_PROP_EXPANDED 5) + +(defconstant-exported PAN_PROP_CONDENSED 6) + +(defconstant-exported PAN_PROP_VERY_EXPANDED 7) + +(defconstant-exported PAN_PROP_VERY_CONDENSED 8) + +(defconstant-exported PAN_PROP_MONOSPACED 9) + +(defconstant-exported PAN_CONTRAST_NONE 2) + +(defconstant-exported PAN_CONTRAST_VERY_LOW 3) + +(defconstant-exported PAN_CONTRAST_LOW 4) + +(defconstant-exported PAN_CONTRAST_MEDIUM_LOW 5) + +(defconstant-exported PAN_CONTRAST_MEDIUM 6) + +(defconstant-exported PAN_CONTRAST_MEDIUM_HIGH 7) + +(defconstant-exported PAN_CONTRAST_HIGH 8) + +(defconstant-exported PAN_CONTRAST_VERY_HIGH 9) + +(defconstant-exported PAN_STROKE_GRADUAL_DIAG 2) + +(defconstant-exported PAN_STROKE_GRADUAL_TRAN 3) + +(defconstant-exported PAN_STROKE_GRADUAL_VERT 4) + +(defconstant-exported PAN_STROKE_GRADUAL_HORZ 5) + +(defconstant-exported PAN_STROKE_RAPID_VERT 6) + +(defconstant-exported PAN_STROKE_RAPID_HORZ 7) + +(defconstant-exported PAN_STROKE_INSTANT_VERT 8) + +(defconstant-exported PAN_STRAIGHT_ARMS_HORZ 2) + +(defconstant-exported PAN_STRAIGHT_ARMS_WEDGE 3) + +(defconstant-exported PAN_STRAIGHT_ARMS_VERT 4) + +(defconstant-exported PAN_STRAIGHT_ARMS_SINGLE_SERIF 5) + +(defconstant-exported PAN_STRAIGHT_ARMS_DOUBLE_SERIF 6) + +(defconstant-exported PAN_BENT_ARMS_HORZ 7) + +(defconstant-exported PAN_BENT_ARMS_WEDGE 8) + +(defconstant-exported PAN_BENT_ARMS_VERT 9) + +(defconstant-exported PAN_BENT_ARMS_SINGLE_SERIF 10) + +(defconstant-exported PAN_BENT_ARMS_DOUBLE_SERIF 11) + +(defconstant-exported PAN_LETT_NORMAL_CONTACT 2) + +(defconstant-exported PAN_LETT_NORMAL_WEIGHTED 3) + +(defconstant-exported PAN_LETT_NORMAL_BOXED 4) + +(defconstant-exported PAN_LETT_NORMAL_FLATTENED 5) + +(defconstant-exported PAN_LETT_NORMAL_ROUNDED 6) + +(defconstant-exported PAN_LETT_NORMAL_OFF_CENTER 7) + +(defconstant-exported PAN_LETT_NORMAL_SQUARE 8) + +(defconstant-exported PAN_LETT_OBLIQUE_CONTACT 9) + +(defconstant-exported PAN_LETT_OBLIQUE_WEIGHTED 10) + +(defconstant-exported PAN_LETT_OBLIQUE_BOXED 11) + +(defconstant-exported PAN_LETT_OBLIQUE_FLATTENED 12) + +(defconstant-exported PAN_LETT_OBLIQUE_ROUNDED 13) + +(defconstant-exported PAN_LETT_OBLIQUE_OFF_CENTER 14) + +(defconstant-exported PAN_LETT_OBLIQUE_SQUARE 15) + +(defconstant-exported PAN_MIDLINE_STANDARD_TRIMMED 2) + +(defconstant-exported PAN_MIDLINE_STANDARD_POINTED 3) + +(defconstant-exported PAN_MIDLINE_STANDARD_SERIFED 4) + +(defconstant-exported PAN_MIDLINE_HIGH_TRIMMED 5) + +(defconstant-exported PAN_MIDLINE_HIGH_POINTED 6) + +(defconstant-exported PAN_MIDLINE_HIGH_SERIFED 7) + +(defconstant-exported PAN_MIDLINE_CONSTANT_TRIMMED 8) + +(defconstant-exported PAN_MIDLINE_CONSTANT_POINTED 9) + +(defconstant-exported PAN_MIDLINE_CONSTANT_SERIFED 10) + +(defconstant-exported PAN_MIDLINE_LOW_TRIMMED 11) + +(defconstant-exported PAN_MIDLINE_LOW_POINTED 12) + +(defconstant-exported PAN_MIDLINE_LOW_SERIFED 13) + +(defconstant-exported PAN_XHEIGHT_CONSTANT_SMALL 2) + +(defconstant-exported PAN_XHEIGHT_CONSTANT_STD 3) + +(defconstant-exported PAN_XHEIGHT_CONSTANT_LARGE 4) + +(defconstant-exported PAN_XHEIGHT_DUCKING_SMALL 5) + +(defconstant-exported PAN_XHEIGHT_DUCKING_STD 6) + +(defconstant-exported PAN_XHEIGHT_DUCKING_LARGE 7) + +(defconstant-exported FS_LATIN1 1) + +(defconstant-exported FS_LATIN2 2) + +(defconstant-exported FS_CYRILLIC 4) + +(defconstant-exported FS_GREEK 8) + +(defconstant-exported FS_TURKISH 16) + +(defconstant-exported FS_HEBREW 32) + +(defconstant-exported FS_ARABIC 64) + +(defconstant-exported FS_BALTIC 128) + +(defconstant-exported FS_THAI #x10000) + +(defconstant-exported FS_JISJAPAN #x20000) + +(defconstant-exported FS_CHINESESIMP #x40000) + +(defconstant-exported FS_WANSUNG #x80000) + +(defconstant-exported FS_CHINESETRAD #x100000) + +(defconstant-exported FS_JOHAB #x200000) + +(defconstant-exported FS_SYMBOL #x80000000) + +(defconstant-exported HS_BDIAGONAL 3) + +(defconstant-exported HS_CROSS 4) + +(defconstant-exported HS_DIAGCROSS 5) + +(defconstant-exported HS_FDIAGONAL 2) + +(defconstant-exported HS_HORIZONTAL 0) + +(defconstant-exported HS_VERTICAL 1) + +(defconstant-exported PS_GEOMETRIC 65536) + +(defconstant-exported PS_COSMETIC 0) + +(defconstant-exported PS_ALTERNATE 8) + +(defconstant-exported PS_SOLID 0) + +(defconstant-exported PS_DASH 1) + +(defconstant-exported PS_DOT 2) + +(defconstant-exported PS_DASHDOT 3) + +(defconstant-exported PS_DASHDOTDOT 4) + +(defconstant-exported PS_NULL 5) + +(defconstant-exported PS_USERSTYLE 7) + +(defconstant-exported PS_INSIDEFRAME 6) + +(defconstant-exported PS_ENDCAP_ROUND 0) + +(defconstant-exported PS_ENDCAP_SQUARE 256) + +(defconstant-exported PS_ENDCAP_FLAT 512) + +(defconstant-exported PS_JOIN_BEVEL 4096) + +(defconstant-exported PS_JOIN_MITER 8192) + +(defconstant-exported PS_JOIN_ROUND 0) + +(defconstant-exported PS_STYLE_MASK 15) + +(defconstant-exported PS_ENDCAP_MASK 3840) + +(defconstant-exported PS_TYPE_MASK 983040) + +(defconstant-exported ALTERNATE 1) + +(defconstant-exported WINDING 2) + +(defconstant-exported DC_BINNAMES 12) + +(defconstant-exported DC_BINS 6) + +(defconstant-exported DC_COPIES 18) + +(defconstant-exported DC_DRIVER 11) + +(defconstant-exported DC_DATATYPE_PRODUCED 21) + +(defconstant-exported DC_DUPLEX 7) + +(defconstant-exported DC_EMF_COMPLIANT 20) + +(defconstant-exported DC_ENUMRESOLUTIONS 13) + +(defconstant-exported DC_EXTRA 9) + +(defconstant-exported DC_FIELDS 1) + +(defconstant-exported DC_FILEDEPENDENCIES 14) + +(defconstant-exported DC_MAXEXTENT 5) + +(defconstant-exported DC_MINEXTENT 4) + +(defconstant-exported DC_ORIENTATION 17) + +(defconstant-exported DC_PAPERNAMES 16) + +(defconstant-exported DC_PAPERS 2) + +(defconstant-exported DC_PAPERSIZE 3) + +(defconstant-exported DC_SIZE 8) + +(defconstant-exported DC_TRUETYPE 15) + +(defconstant-exported DCTT_BITMAP 1) + +(defconstant-exported DCTT_DOWNLOAD 2) + +(defconstant-exported DCTT_SUBDEV 4) + +(defconstant-exported DCTT_DOWNLOAD_OUTLINE 8) + +(defconstant-exported DC_VERSION 10) + +(defconstant-exported DC_BINADJUST 19) + +(defconstant-exported DC_MANUFACTURER 23) + +(defconstant-exported DC_MODEL 24) + +(defconstant-exported DCBA_FACEUPNONE 0) + +(defconstant-exported DCBA_FACEUPCENTER 1) + +(defconstant-exported DCBA_FACEUPLEFT 2) + +(defconstant-exported DCBA_FACEUPRIGHT 3) + +(defconstant-exported DCBA_FACEDOWNNONE 256) + +(defconstant-exported DCBA_FACEDOWNCENTER 257) + +(defconstant-exported DCBA_FACEDOWNLEFT 258) + +(defconstant-exported DCBA_FACEDOWNRIGHT 259) + +(defconstant-exported FLOODFILLBORDER 0) + +(defconstant-exported FLOODFILLSURFACE 1) + +(defconstant-exported ETO_CLIPPED 4) + +(defconstant-exported ETO_GLYPH_INDEX 16) + +(defconstant-exported ETO_OPAQUE 2) + +(defconstant-exported ETO_RTLREADING 128) + +(defconstant-exported GDICOMMENT_WINDOWS_METAFILE -2147483647) + +(defconstant-exported GDICOMMENT_BEGINGROUP 2) + +(defconstant-exported GDICOMMENT_ENDGROUP 3) + +(defconstant-exported GDICOMMENT_MULTIFORMATS 1073741828) + +(defconstant-exported GDICOMMENT_IDENTIFIER 1128875079) + +(defconstant-exported AD_COUNTERCLOCKWISE 1) + +(defconstant-exported AD_CLOCKWISE 2) + +(defconstant-exported RDH_RECTANGLES 1) + +(defconstant-exported GCPCLASS_LATIN 1) + +(defconstant-exported GCPCLASS_HEBREW 2) + +(defconstant-exported GCPCLASS_ARABIC 2) + +(defconstant-exported GCPCLASS_NEUTRAL 3) + +(defconstant-exported GCPCLASS_LOCALNUMBER 4) + +(defconstant-exported GCPCLASS_LATINNUMBER 5) + +(defconstant-exported GCPCLASS_LATINNUMERICTERMINATOR 6) + +(defconstant-exported GCPCLASS_LATINNUMERICSEPARATOR 7) + +(defconstant-exported GCPCLASS_NUMERICSEPARATOR 8) + +(defconstant-exported GCPCLASS_PREBOUNDLTR 128) + +(defconstant-exported GCPCLASS_PREBOUNDRTL 64) + +(defconstant-exported GCPCLASS_POSTBOUNDLTR 32) + +(defconstant-exported GCPCLASS_POSTBOUNDRTL 16) + +(defconstant-exported GCPGLYPH_LINKBEFORE #x8000) + +(defconstant-exported GCPGLYPH_LINKAFTER #x4000) + +(defconstant-exported DCB_DISABLE 8) + +(defconstant-exported DCB_ENABLE 4) + +(defconstant-exported DCB_RESET 1) + +(defconstant-exported DCB_SET 3) + +(defconstant-exported DCB_ACCUMULATE 2) + +(defconstant-exported DCB_DIRTY 2) + +(defconstant-exported OBJ_BRUSH 2) + +(defconstant-exported OBJ_PEN 1) + +(defconstant-exported OBJ_PAL 5) + +(defconstant-exported OBJ_FONT 6) + +(defconstant-exported OBJ_BITMAP 7) + +(defconstant-exported OBJ_EXTPEN 11) + +(defconstant-exported OBJ_REGION 8) + +(defconstant-exported OBJ_DC 3) + +(defconstant-exported OBJ_MEMDC 10) + +(defconstant-exported OBJ_METAFILE 9) + +(defconstant-exported OBJ_METADC 4) + +(defconstant-exported OBJ_ENHMETAFILE 13) + +(defconstant-exported OBJ_ENHMETADC 12) + +(defconstant-exported DRIVERVERSION 0) + +(defconstant-exported TECHNOLOGY 2) + +(defconstant-exported DT_PLOTTER 0) + +(defconstant-exported DT_RASDISPLAY 1) + +(defconstant-exported DT_RASPRINTER 2) + +(defconstant-exported DT_RASCAMERA 3) + +(defconstant-exported DT_CHARSTREAM 4) + +(defconstant-exported DT_METAFILE 5) + +(defconstant-exported DT_DISPFILE 6) + +(defconstant-exported HORZSIZE 4) + +(defconstant-exported VERTSIZE 6) + +(defconstant-exported HORZRES 8) + +(defconstant-exported VERTRES 10) + +(defconstant-exported LOGPIXELSX 88) + +(defconstant-exported LOGPIXELSY 90) + +(defconstant-exported BITSPIXEL 12) + +(defconstant-exported PLANES 14) + +(defconstant-exported NUMBRUSHES 16) + +(defconstant-exported NUMPENS 18) + +(defconstant-exported NUMFONTS 22) + +(defconstant-exported NUMCOLORS 24) + +(defconstant-exported NUMMARKERS 20) + +(defconstant-exported ASPECTX 40) + +(defconstant-exported ASPECTY 42) + +(defconstant-exported ASPECTXY 44) + +(defconstant-exported PDEVICESIZE 26) + +(defconstant-exported CLIPCAPS 36) + +(defconstant-exported SIZEPALETTE 104) + +(defconstant-exported NUMRESERVED 106) + +(defconstant-exported COLORRES 108) + +(defconstant-exported PHYSICALWIDTH 110) + +(defconstant-exported PHYSICALHEIGHT 111) + +(defconstant-exported PHYSICALOFFSETX 112) + +(defconstant-exported PHYSICALOFFSETY 113) + +(defconstant-exported SCALINGFACTORX 114) + +(defconstant-exported SCALINGFACTORY 115) + +(defconstant-exported VREFRESH 116) + +(defconstant-exported DESKTOPHORZRES 118) + +(defconstant-exported DESKTOPVERTRES 117) + +(defconstant-exported BLTALIGNMENT 119) + +(defconstant-exported RASTERCAPS 38) + +(defconstant-exported RC_BANDING 2) + +(defconstant-exported RC_BITBLT 1) + +(defconstant-exported RC_BITMAP64 8) + +(defconstant-exported RC_DI_BITMAP 128) + +(defconstant-exported RC_DIBTODEV 512) + +(defconstant-exported RC_FLOODFILL 4096) + +(defconstant-exported RC_GDI20_OUTPUT 16) + +(defconstant-exported RC_PALETTE 256) + +(defconstant-exported RC_SCALING 4) + +(defconstant-exported RC_STRETCHBLT 2048) + +(defconstant-exported RC_STRETCHDIB 8192) + +(defconstant-exported RC_DEVBITS #x8000) + +(defconstant-exported RC_OP_DX_OUTPUT #x4000) + +(defconstant-exported CURVECAPS 28) + +(defconstant-exported CC_NONE 0) + +(defconstant-exported CC_CIRCLES 1) + +(defconstant-exported CC_PIE 2) + +(defconstant-exported CC_CHORD 4) + +(defconstant-exported CC_ELLIPSES 8) + +(defconstant-exported CC_WIDE 16) + +(defconstant-exported CC_STYLED 32) + +(defconstant-exported CC_WIDESTYLED 64) + +(defconstant-exported CC_INTERIORS 128) + +(defconstant-exported CC_ROUNDRECT 256) + +(defconstant-exported LINECAPS 30) + +(defconstant-exported LC_NONE 0) + +(defconstant-exported LC_POLYLINE 2) + +(defconstant-exported LC_MARKER 4) + +(defconstant-exported LC_POLYMARKER 8) + +(defconstant-exported LC_WIDE 16) + +(defconstant-exported LC_STYLED 32) + +(defconstant-exported LC_WIDESTYLED 64) + +(defconstant-exported LC_INTERIORS 128) + +(defconstant-exported POLYGONALCAPS 32) + +(defconstant-exported RC_BIGFONT 1024) + +(defconstant-exported RC_GDI20_STATE 32) + +(defconstant-exported RC_NONE 0) + +(defconstant-exported RC_SAVEBITMAP 64) + +(defconstant-exported PC_NONE 0) + +(defconstant-exported PC_POLYGON 1) + +(defconstant-exported PC_POLYPOLYGON 256) + +(defconstant-exported PC_PATHS 512) + +(defconstant-exported PC_RECTANGLE 2) + +(defconstant-exported PC_WINDPOLYGON 4) + +(defconstant-exported PC_SCANLINE 8) + +(defconstant-exported PC_TRAPEZOID 4) + +(defconstant-exported PC_WIDE 16) + +(defconstant-exported PC_STYLED 32) + +(defconstant-exported PC_WIDESTYLED 64) + +(defconstant-exported PC_INTERIORS 128) + +(defconstant-exported TEXTCAPS 34) + +(defconstant-exported TC_OP_CHARACTER 1) + +(defconstant-exported TC_OP_STROKE 2) + +(defconstant-exported TC_CP_STROKE 4) + +(defconstant-exported TC_CR_90 8) + +(defconstant-exported TC_CR_ANY 16) + +(defconstant-exported TC_SF_X_YINDEP 32) + +(defconstant-exported TC_SA_DOUBLE 64) + +(defconstant-exported TC_SA_INTEGER 128) + +(defconstant-exported TC_SA_CONTIN 256) + +(defconstant-exported TC_EA_DOUBLE 512) + +(defconstant-exported TC_IA_ABLE 1024) + +(defconstant-exported TC_UA_ABLE 2048) + +(defconstant-exported TC_SO_ABLE 4096) + +(defconstant-exported TC_RA_ABLE 8192) + +(defconstant-exported TC_VA_ABLE 16384) + +(defconstant-exported TC_RESERVED 32768) + +(defconstant-exported TC_SCROLLBLT 65536) + +(defconstant-exported GCP_DBCS 1) + +(defconstant-exported GCP_ERROR #x8000) + +(defconstant-exported GCP_CLASSIN #x80000) + +(defconstant-exported GCP_DIACRITIC 256) + +(defconstant-exported GCP_DISPLAYZWG #x400000) + +(defconstant-exported GCP_GLYPHSHAPE 16) + +(defconstant-exported GCP_JUSTIFY #x10000) + +(defconstant-exported GCP_JUSTIFYIN #x200000) + +(defconstant-exported GCP_KASHIDA 1024) + +(defconstant-exported GCP_LIGATE 32) + +(defconstant-exported GCP_MAXEXTENT #x100000) + +(defconstant-exported GCP_NEUTRALOVERRIDE #x2000000) + +(defconstant-exported GCP_NUMERICOVERRIDE #x1000000) + +(defconstant-exported GCP_NUMERICSLATIN #x4000000) + +(defconstant-exported GCP_NUMERICSLOCAL #x8000000) + +(defconstant-exported GCP_REORDER 2) + +(defconstant-exported GCP_SYMSWAPOFF #x800000) + +(defconstant-exported GCP_USEKERNING 8) + +(defconstant-exported FLI_GLYPHS #x40000) + +(defconstant-exported FLI_MASK #x103b) + +(defconstant-exported GGO_METRICS 0) + +(defconstant-exported GGO_BITMAP 1) + +(defconstant-exported GGO_NATIVE 2) + +(defconstant-exported GGO_BEZIER 3) + +(defconstant-exported GGO_GRAY2_BITMAP 4) + +(defconstant-exported GGO_GRAY4_BITMAP 5) + +(defconstant-exported GGO_GRAY8_BITMAP 6) + +(defconstant-exported GGO_GLYPH_INDEX 128) + +(defconstant-exported GGO_UNHINTED 256) + +(defconstant-exported GM_COMPATIBLE 1) + +(defconstant-exported GM_ADVANCED 2) + +(defconstant-exported MM_ANISOTROPIC 8) + +(defconstant-exported MM_HIENGLISH 5) + +(defconstant-exported MM_HIMETRIC 3) + +(defconstant-exported MM_ISOTROPIC 7) + +(defconstant-exported MM_LOENGLISH 4) + +(defconstant-exported MM_LOMETRIC 2) + +(defconstant-exported MM_TEXT 1) + +(defconstant-exported MM_TWIPS 6) + +(defconstant-exported MM_MAX_FIXEDSCALE 6) + +(defconstant-exported ABSOLUTE 1) + +(defconstant-exported RELATIVE 2) + +(defconstant-exported PC_EXPLICIT 2) + +(defconstant-exported PC_NOCOLLAPSE 4) + +(defconstant-exported PC_RESERVED 1) + +(defconstant-exported CLR_NONE #xffffffff) + +(defconstant-exported CLR_INVALID #xffffffff) + +(defconstant-exported CLR_DEFAULT #xff000000) + +(defconstant-exported TT_AVAILABLE 1) + +(defconstant-exported TT_ENABLED 2) + +(defconstant-exported BLACK_BRUSH 4) + +(defconstant-exported DKGRAY_BRUSH 3) + +(defconstant-exported GRAY_BRUSH 2) + +(defconstant-exported HOLLOW_BRUSH 5) + +(defconstant-exported LTGRAY_BRUSH 1) + +(defconstant-exported NULL_BRUSH 5) + +(defconstant-exported WHITE_BRUSH 0) + +(defconstant-exported BLACK_PEN 7) + +(defconstant-exported NULL_PEN 8) + +(defconstant-exported WHITE_PEN 6) + +(defconstant-exported ANSI_FIXED_FONT 11) + +(defconstant-exported ANSI_VAR_FONT 12) + +(defconstant-exported DEVICE_DEFAULT_FONT 14) + +(defconstant-exported DEFAULT_GUI_FONT 17) + +(defconstant-exported OEM_FIXED_FONT 10) + +(defconstant-exported SYSTEM_FONT 13) + +(defconstant-exported SYSTEM_FIXED_FONT 16) + +(defconstant-exported DEFAULT_PALETTE 15) + +(defconstant-exported SYSPAL_ERROR 0) + +(defconstant-exported SYSPAL_STATIC 1) + +(defconstant-exported SYSPAL_NOSTATIC 2) + +(defconstant-exported SYSPAL_NOSTATIC256 3) + +(defconstant-exported TA_BASELINE 24) + +(defconstant-exported TA_BOTTOM 8) + +(defconstant-exported TA_TOP 0) + +(defconstant-exported TA_CENTER 6) + +(defconstant-exported TA_LEFT 0) + +(defconstant-exported TA_RIGHT 2) + +(defconstant-exported TA_RTLREADING 256) + +(defconstant-exported TA_NOUPDATECP 0) + +(defconstant-exported TA_UPDATECP 1) + +(defconstant-exported TA_MASK (cl:+ 24 6 1 256)) + +(defconstant-exported VTA_BASELINE 24) + +(defconstant-exported VTA_CENTER 6) + +(defconstant-exported VTA_LEFT 8) + +(defconstant-exported VTA_RIGHT 0) + +(defconstant-exported VTA_BOTTOM 2) + +(defconstant-exported VTA_TOP 0) + +(defconstant-exported MWT_IDENTITY 1) + +(defconstant-exported MWT_LEFTMULTIPLY 2) + +(defconstant-exported MWT_RIGHTMULTIPLY 3) + +(defconstant-exported OPAQUE 2) + +(defconstant-exported TRANSPARENT 1) + +(defconstant-exported BLACKONWHITE 1) + +(defconstant-exported WHITEONBLACK 2) + +(defconstant-exported COLORONCOLOR 3) + +(defconstant-exported HALFTONE 4) + +(defconstant-exported MAXSTRETCHBLTMODE 4) + +(defconstant-exported STRETCH_ANDSCANS 1) + +(defconstant-exported STRETCH_DELETESCANS 3) + +(defconstant-exported STRETCH_HALFTONE 4) + +(defconstant-exported STRETCH_ORSCANS 2) + +(defconstant-exported TCI_SRCCHARSET 1) + +(defconstant-exported TCI_SRCCODEPAGE 2) + +(defconstant-exported TCI_SRCFONTSIG 3) + +(defconstant-exported ICM_ON 2) + +(defconstant-exported ICM_OFF 1) + +(defconstant-exported ICM_QUERY 3) + +(defconstant-exported NEWFRAME 1) + +(defconstant-exported ABORTDOC 2) + +(defconstant-exported NEXTBAND 3) + +(defconstant-exported SETCOLORTABLE 4) + +(defconstant-exported GETCOLORTABLE 5) + +(defconstant-exported FLUSHOUTPUT 6) + +(defconstant-exported DRAFTMODE 7) + +(defconstant-exported QUERYESCSUPPORT 8) + +(defconstant-exported SETABORTPROC 9) + +(defconstant-exported STARTDOC 10) + +(defconstant-exported ENDDOC 11) + +(defconstant-exported GETPHYSPAGESIZE 12) + +(defconstant-exported GETPRINTINGOFFSET 13) + +(defconstant-exported GETSCALINGFACTOR 14) + +(defconstant-exported MFCOMMENT 15) + +(defconstant-exported GETPENWIDTH 16) + +(defconstant-exported SETCOPYCOUNT 17) + +(defconstant-exported SELECTPAPERSOURCE 18) + +(defconstant-exported DEVICEDATA 19) + +(defconstant-exported PASSTHROUGH 19) + +(defconstant-exported GETTECHNOLGY 20) + +(defconstant-exported GETTECHNOLOGY 20) + +(defconstant-exported SETLINECAP 21) + +(defconstant-exported SETLINEJOIN 22) + +(defconstant-exported SETMITERLIMIT 23) + +(defconstant-exported BANDINFO 24) + +(defconstant-exported DRAWPATTERNRECT 25) + +(defconstant-exported GETVECTORPENSIZE 26) + +(defconstant-exported GETVECTORBRUSHSIZE 27) + +(defconstant-exported ENABLEDUPLEX 28) + +(defconstant-exported GETSETPAPERBINS 29) + +(defconstant-exported GETSETPRINTORIENT 30) + +(defconstant-exported ENUMPAPERBINS 31) + +(defconstant-exported SETDIBSCALING 32) + +(defconstant-exported EPSPRINTING 33) + +(defconstant-exported ENUMPAPERMETRICS 34) + +(defconstant-exported GETSETPAPERMETRICS 35) + +(defconstant-exported POSTSCRIPT_DATA 37) + +(defconstant-exported POSTSCRIPT_IGNORE 38) + +(defconstant-exported MOUSETRAILS 39) + +(defconstant-exported GETDEVICEUNITS 42) + +(defconstant-exported GETEXTENDEDTEXTMETRICS 256) + +(defconstant-exported GETEXTENTTABLE 257) + +(defconstant-exported GETPAIRKERNTABLE 258) + +(defconstant-exported GETTRACKKERNTABLE 259) + +(defconstant-exported EXTTEXTOUT 512) + +(defconstant-exported GETFACENAME 513) + +(defconstant-exported DOWNLOADFACE 514) + +(defconstant-exported ENABLERELATIVEWIDTHS 768) + +(defconstant-exported ENABLEPAIRKERNING 769) + +(defconstant-exported SETKERNTRACK 770) + +(defconstant-exported SETALLJUSTVALUES 771) + +(defconstant-exported SETCHARSET 772) + +(defconstant-exported STRETCHBLT 2048) + +(defconstant-exported GETSETSCREENPARAMS 3072) + +(defconstant-exported QUERYDIBSUPPORT 3073) + +(defconstant-exported BEGIN_PATH 4096) + +(defconstant-exported CLIP_TO_PATH 4097) + +(defconstant-exported END_PATH 4098) + +(defconstant-exported EXT_DEVICE_CAPS 4099) + +(defconstant-exported RESTORE_CTM 4100) + +(defconstant-exported SAVE_CTM 4101) + +(defconstant-exported SET_ARC_DIRECTION 4102) + +(defconstant-exported SET_BACKGROUND_COLOR 4103) + +(defconstant-exported SET_POLY_MODE 4104) + +(defconstant-exported SET_SCREEN_ANGLE 4105) + +(defconstant-exported SET_SPREAD 4106) + +(defconstant-exported TRANSFORM_CTM 4107) + +(defconstant-exported SET_CLIP_BOX 4108) + +(defconstant-exported SET_BOUNDS 4109) + +(defconstant-exported SET_MIRROR_MODE 4110) + +(defconstant-exported OPENCHANNEL 4110) + +(defconstant-exported DOWNLOADHEADER 4111) + +(defconstant-exported CLOSECHANNEL 4112) + +(defconstant-exported POSTSCRIPT_PASSTHROUGH 4115) + +(defconstant-exported ENCAPSULATED_POSTSCRIPT 4116) + +(defconstant-exported QDI_SETDIBITS 1) + +(defconstant-exported QDI_GETDIBITS 2) + +(defconstant-exported QDI_DIBTOSCREEN 4) + +(defconstant-exported QDI_STRETCHDIB 8) + +(defconstant-exported SP_NOTREPORTED #x4000) + +(defconstant-exported PR_JOBSTATUS 0) + +(defconstant-exported ASPECT_FILTERING 1) + +(defconstant-exported BS_SOLID 0) + +(defconstant-exported BS_NULL 1) + +(defconstant-exported BS_HOLLOW 1) + +(defconstant-exported BS_HATCHED 2) + +(defconstant-exported BS_PATTERN 3) + +(defconstant-exported BS_INDEXED 4) + +(defconstant-exported BS_DIBPATTERN 5) + +(defconstant-exported BS_DIBPATTERNPT 6) + +(defconstant-exported BS_PATTERN8X8 7) + +(defconstant-exported BS_DIBPATTERN8X8 8) + +(defconstant-exported LCS_CALIBRATED_RGB 0) + +(defconstant-exported LCS_DEVICE_RGB 1) + +(defconstant-exported LCS_DEVICE_CMYK 2) + +(defconstant-exported LCS_GM_BUSINESS 1) + +(defconstant-exported LCS_GM_GRAPHICS 2) + +(defconstant-exported LCS_GM_IMAGES 4) + +(defconstant-exported RASTER_FONTTYPE 1) + +(defconstant-exported DEVICE_FONTTYPE 2) + +(defconstant-exported TRUETYPE_FONTTYPE 4) + +(defconstant-exported DMORIENT_PORTRAIT 1) + +(defconstant-exported DMORIENT_LANDSCAPE 2) + +(defconstant-exported DMPAPER_FIRST 1) + +(defconstant-exported DMPAPER_LETTER 1) + +(defconstant-exported DMPAPER_LETTERSMALL 2) + +(defconstant-exported DMPAPER_TABLOID 3) + +(defconstant-exported DMPAPER_LEDGER 4) + +(defconstant-exported DMPAPER_LEGAL 5) + +(defconstant-exported DMPAPER_STATEMENT 6) + +(defconstant-exported DMPAPER_EXECUTIVE 7) + +(defconstant-exported DMPAPER_A3 8) + +(defconstant-exported DMPAPER_A4 9) + +(defconstant-exported DMPAPER_A4SMALL 10) + +(defconstant-exported DMPAPER_A5 11) + +(defconstant-exported DMPAPER_B4 12) + +(defconstant-exported DMPAPER_B5 13) + +(defconstant-exported DMPAPER_FOLIO 14) + +(defconstant-exported DMPAPER_QUARTO 15) + +(defconstant-exported DMPAPER_10X14 16) + +(defconstant-exported DMPAPER_11X17 17) + +(defconstant-exported DMPAPER_NOTE 18) + +(defconstant-exported DMPAPER_ENV_9 19) + +(defconstant-exported DMPAPER_ENV_10 20) + +(defconstant-exported DMPAPER_ENV_11 21) + +(defconstant-exported DMPAPER_ENV_12 22) + +(defconstant-exported DMPAPER_ENV_14 23) + +(defconstant-exported DMPAPER_CSHEET 24) + +(defconstant-exported DMPAPER_DSHEET 25) + +(defconstant-exported DMPAPER_ESHEET 26) + +(defconstant-exported DMPAPER_ENV_DL 27) + +(defconstant-exported DMPAPER_ENV_C5 28) + +(defconstant-exported DMPAPER_ENV_C3 29) + +(defconstant-exported DMPAPER_ENV_C4 30) + +(defconstant-exported DMPAPER_ENV_C6 31) + +(defconstant-exported DMPAPER_ENV_C65 32) + +(defconstant-exported DMPAPER_ENV_B4 33) + +(defconstant-exported DMPAPER_ENV_B5 34) + +(defconstant-exported DMPAPER_ENV_B6 35) + +(defconstant-exported DMPAPER_ENV_ITALY 36) + +(defconstant-exported DMPAPER_ENV_MONARCH 37) + +(defconstant-exported DMPAPER_ENV_PERSONAL 38) + +(defconstant-exported DMPAPER_FANFOLD_US 39) + +(defconstant-exported DMPAPER_FANFOLD_STD_GERMAN 40) + +(defconstant-exported DMPAPER_FANFOLD_LGL_GERMAN 41) + +(defconstant-exported DMPAPER_ISO_B4 42) + +(defconstant-exported DMPAPER_JAPANESE_POSTCARD 43) + +(defconstant-exported DMPAPER_9X11 44) + +(defconstant-exported DMPAPER_10X11 45) + +(defconstant-exported DMPAPER_15X11 46) + +(defconstant-exported DMPAPER_ENV_INVITE 47) + +(defconstant-exported DMPAPER_RESERVED_48 48) + +(defconstant-exported DMPAPER_RESERVED_49 49) + +(defconstant-exported DMPAPER_LETTER_EXTRA 50) + +(defconstant-exported DMPAPER_LEGAL_EXTRA 51) + +(defconstant-exported DMPAPER_TABLOID_EXTRA 52) + +(defconstant-exported DMPAPER_A4_EXTRA 53) + +(defconstant-exported DMPAPER_LETTER_TRANSVERSE 54) + +(defconstant-exported DMPAPER_A4_TRANSVERSE 55) + +(defconstant-exported DMPAPER_LETTER_EXTRA_TRANSVERSE 56) + +(defconstant-exported DMPAPER_A_PLUS 57) + +(defconstant-exported DMPAPER_B_PLUS 58) + +(defconstant-exported DMPAPER_LETTER_PLUS 59) + +(defconstant-exported DMPAPER_A4_PLUS 60) + +(defconstant-exported DMPAPER_A5_TRANSVERSE 61) + +(defconstant-exported DMPAPER_B5_TRANSVERSE 62) + +(defconstant-exported DMPAPER_A3_EXTRA 63) + +(defconstant-exported DMPAPER_A5_EXTRA 64) + +(defconstant-exported DMPAPER_B5_EXTRA 65) + +(defconstant-exported DMPAPER_A2 66) + +(defconstant-exported DMPAPER_A3_TRANSVERSE 67) + +(defconstant-exported DMPAPER_A3_EXTRA_TRANSVERSE 68) + +(defconstant-exported DMPAPER_LAST 68) + +(defconstant-exported DMPAPER_USER 256) + +(defconstant-exported DMBIN_FIRST 1) + +(defconstant-exported DMBIN_UPPER 1) + +(defconstant-exported DMBIN_ONLYONE 1) + +(defconstant-exported DMBIN_LOWER 2) + +(defconstant-exported DMBIN_MIDDLE 3) + +(defconstant-exported DMBIN_MANUAL 4) + +(defconstant-exported DMBIN_ENVELOPE 5) + +(defconstant-exported DMBIN_ENVMANUAL 6) + +(defconstant-exported DMBIN_AUTO 7) + +(defconstant-exported DMBIN_TRACTOR 8) + +(defconstant-exported DMBIN_SMALLFMT 9) + +(defconstant-exported DMBIN_LARGEFMT 10) + +(defconstant-exported DMBIN_LARGECAPACITY 11) + +(defconstant-exported DMBIN_CASSETTE 14) + +(defconstant-exported DMBIN_FORMSOURCE 15) + +(defconstant-exported DMBIN_LAST 15) + +(defconstant-exported DMBIN_USER 256) + +(defconstant-exported DMRES_DRAFT -1) + +(defconstant-exported DMRES_LOW -2) + +(defconstant-exported DMRES_MEDIUM -3) + +(defconstant-exported DMRES_HIGH -4) + +(defconstant-exported DMCOLOR_MONOCHROME 1) + +(defconstant-exported DMCOLOR_COLOR 2) + +(defconstant-exported DMDUP_SIMPLEX 1) + +(defconstant-exported DMDUP_VERTICAL 2) + +(defconstant-exported DMDUP_HORIZONTAL 3) + +(defconstant-exported DMTT_BITMAP 1) + +(defconstant-exported DMTT_DOWNLOAD 2) + +(defconstant-exported DMTT_SUBDEV 3) + +(defconstant-exported DMTT_DOWNLOAD_OUTLINE 4) + +(defconstant-exported DMCOLLATE_FALSE 0) + +(defconstant-exported DMCOLLATE_TRUE 1) + +(defconstant-exported DM_SPECVERSION 800) + +(defconstant-exported DM_GRAYSCALE 1) + +(defconstant-exported DM_INTERLACED 2) + +(defconstant-exported DM_UPDATE 1) + +(defconstant-exported DM_COPY 2) + +(defconstant-exported DM_PROMPT 4) + +(defconstant-exported DM_MODIFY 8) + +(defconstant-exported DM_IN_BUFFER 8) + +(defconstant-exported DM_IN_PROMPT 4) + +(defconstant-exported DM_OUT_BUFFER 2) + +(defconstant-exported DM_OUT_DEFAULT 1) + +(defconstant-exported DM_ORIENTATION 1) + +(defconstant-exported DM_PAPERSIZE 2) + +(defconstant-exported DM_PAPERLENGTH 4) + +(defconstant-exported DM_PAPERWIDTH 8) + +(defconstant-exported DM_SCALE 16) + +(defconstant-exported DM_COPIES 256) + +(defconstant-exported DM_DEFAULTSOURCE 512) + +(defconstant-exported DM_PRINTQUALITY 1024) + +(defconstant-exported DM_COLOR 2048) + +(defconstant-exported DM_DUPLEX 4096) + +(defconstant-exported DM_YRESOLUTION 8192) + +(defconstant-exported DM_TTOPTION 16384) + +(defconstant-exported DM_COLLATE 32768) + +(defconstant-exported DM_FORMNAME 65536) + +(defconstant-exported DM_LOGPIXELS #x20000) + +(defconstant-exported DM_BITSPERPEL #x40000) + +(defconstant-exported DM_PELSWIDTH #x80000) + +(defconstant-exported DM_PELSHEIGHT #x100000) + +(defconstant-exported DM_DISPLAYFLAGS #x200000) + +(defconstant-exported DM_DISPLAYFREQUENCY #x400000) + +(defconstant-exported DM_ICMMETHOD #x800000) + +(defconstant-exported DM_ICMINTENT #x1000000) + +(defconstant-exported DM_MEDIATYPE #x2000000) + +(defconstant-exported DM_DITHERTYPE #x4000000) + +(defconstant-exported DMICMMETHOD_NONE 1) + +(defconstant-exported DMICMMETHOD_SYSTEM 2) + +(defconstant-exported DMICMMETHOD_DRIVER 3) + +(defconstant-exported DMICMMETHOD_DEVICE 4) + +(defconstant-exported DMICMMETHOD_USER 256) + +(defconstant-exported DMICM_SATURATE 1) + +(defconstant-exported DMICM_CONTRAST 2) + +(defconstant-exported DMICM_COLORMETRIC 3) + +(defconstant-exported DMICM_USER 256) + +(defconstant-exported DMMEDIA_STANDARD 1) + +(defconstant-exported DMMEDIA_TRANSPARENCY 2) + +(defconstant-exported DMMEDIA_GLOSSY 3) + +(defconstant-exported DMMEDIA_USER 256) + +(defconstant-exported DMDITHER_NONE 1) + +(defconstant-exported DMDITHER_COARSE 2) + +(defconstant-exported DMDITHER_FINE 3) + +(defconstant-exported DMDITHER_LINEART 4) + +(defconstant-exported DMDITHER_ERRORDIFFUSION 5) + +(defconstant-exported DMDITHER_RESERVED6 6) + +(defconstant-exported DMDITHER_RESERVED7 7) + +(defconstant-exported DMDITHER_RESERVED8 8) + +(defconstant-exported DMDITHER_RESERVED9 9) + +(defconstant-exported DMDITHER_GRAYSCALE 10) + +(defconstant-exported DMDITHER_USER 256) + +(defconstant-exported GDI_ERROR #xFFFFFFFF) + +(defconstant-exported TMPF_FIXED_PITCH 1) + +(defconstant-exported TMPF_VECTOR 2) + +(defconstant-exported TMPF_TRUETYPE 4) + +(defconstant-exported TMPF_DEVICE 8) + +(defconstant-exported NTM_ITALIC 1) + +(defconstant-exported NTM_BOLD 32) + +(defconstant-exported NTM_REGULAR 64) + +(defconstant-exported TT_POLYGON_TYPE 24) + +(defconstant-exported TT_PRIM_LINE 1) + +(defconstant-exported TT_PRIM_QSPLINE 2) + +(defconstant-exported TT_PRIM_CSPLINE 3) + +(defconstant-exported FONTMAPPER_MAX 10) + +(defconstant-exported ENHMETA_STOCK_OBJECT #x80000000) + +(defconstant-exported WGL_FONT_LINES 0) + +(defconstant-exported WGL_FONT_POLYGONS 1) + +(defconstant-exported LPD_DOUBLEBUFFER 1) + +(defconstant-exported LPD_STEREO 2) + +(defconstant-exported LPD_SUPPORT_GDI 16) + +(defconstant-exported LPD_SUPPORT_OPENGL 32) + +(defconstant-exported LPD_SHARE_DEPTH 64) + +(defconstant-exported LPD_SHARE_STENCIL 128) + +(defconstant-exported LPD_SHARE_ACCUM 256) + +(defconstant-exported LPD_SWAP_EXCHANGE 512) + +(defconstant-exported LPD_SWAP_COPY 1024) + +(defconstant-exported LPD_TRANSPARENT 4096) + +(defconstant-exported LPD_TYPE_RGBA 0) + +(defconstant-exported LPD_TYPE_COLORINDEX 1) + +(defconstant-exported WGL_SWAP_MAIN_PLANE 1) + +(defconstant-exported WGL_SWAP_OVERLAY1 2) + +(defconstant-exported WGL_SWAP_OVERLAY2 4) + +(defconstant-exported WGL_SWAP_OVERLAY3 8) + +(defconstant-exported WGL_SWAP_OVERLAY4 16) + +(defconstant-exported WGL_SWAP_OVERLAY5 32) + +(defconstant-exported WGL_SWAP_OVERLAY6 64) + +(defconstant-exported WGL_SWAP_OVERLAY7 128) + +(defconstant-exported WGL_SWAP_OVERLAY8 256) + +(defconstant-exported WGL_SWAP_OVERLAY9 512) + +(defconstant-exported WGL_SWAP_OVERLAY10 1024) + +(defconstant-exported WGL_SWAP_OVERLAY11 2048) + +(defconstant-exported WGL_SWAP_OVERLAY12 4096) + +(defconstant-exported WGL_SWAP_OVERLAY13 8192) + +(defconstant-exported WGL_SWAP_OVERLAY14 16384) + +(defconstant-exported WGL_SWAP_OVERLAY15 32768) + +(defconstant-exported WGL_SWAP_UNDERLAY1 65536) + +(defconstant-exported WGL_SWAP_UNDERLAY2 #x20000) + +(defconstant-exported WGL_SWAP_UNDERLAY3 #x40000) + +(defconstant-exported WGL_SWAP_UNDERLAY4 #x80000) + +(defconstant-exported WGL_SWAP_UNDERLAY5 #x100000) + +(defconstant-exported WGL_SWAP_UNDERLAY6 #x200000) + +(defconstant-exported WGL_SWAP_UNDERLAY7 #x400000) + +(defconstant-exported WGL_SWAP_UNDERLAY8 #x800000) + +(defconstant-exported WGL_SWAP_UNDERLAY9 #x1000000) + +(defconstant-exported WGL_SWAP_UNDERLAY10 #x2000000) + +(defconstant-exported WGL_SWAP_UNDERLAY11 #x4000000) + +(defconstant-exported WGL_SWAP_UNDERLAY12 #x8000000) + +(defconstant-exported WGL_SWAP_UNDERLAY13 #x10000000) + +(defconstant-exported WGL_SWAP_UNDERLAY14 #x20000000) + +(defconstant-exported WGL_SWAP_UNDERLAY15 #x40000000) + +(defconstant-exported AC_SRC_OVER #x00) + +(defconstant-exported AC_SRC_ALPHA #x01) + +(defconstant-exported AC_SRC_NO_PREMULT_ALPHA #x01) + +(defconstant-exported AC_SRC_NO_ALPHA #x02) + +(defconstant-exported AC_DST_NO_PREMULT_ALPHA #x10) + +(defconstant-exported AC_DST_NO_ALPHA #x20) + +(defconstant-exported LAYOUT_RTL 1) + +(defconstant-exported LAYOUT_BITMAPORIENTATIONPRESERVED 8) + +(defconstant-exported DISPLAY_DEVICE_ATTACHED_TO_DESKTOP #x00000001) + +(defconstant-exported DISPLAY_DEVICE_MULTI_DRIVER #x00000002) + +(defconstant-exported DISPLAY_DEVICE_PRIMARY_DEVICE #x00000004) + +(defconstant-exported DISPLAY_DEVICE_MIRRORING_DRIVER #x00000008) + +(defconstant-exported DISPLAY_DEVICE_VGA_COMPATIBLE #x00000010) + +(defconstant-exported DISPLAY_DEVICE_REMOVABLE #x00000020) + +(defconstant-exported DISPLAY_DEVICE_MODESPRUNED #x08000000) + +(defcstructex-exported ABC + (abcA :int) + (abcB :unsigned-int) + (abcC :int)) + + + + + +(defcstructex-exported ABCFLOAT + (abcfA :float) + (abcfB :float) + (abcfC :float)) + + + + + +(defcstructex-exported BITMAP + (bmType :int32) + (bmWidth :int32) + (bmHeight :int32) + (bmWidthBytes :int32) + (bmPlanes :unsigned-short) + (bmBitsPixel :unsigned-short) + (bmBits :pointer)) + + + + + + + +(defcstructex-exported BITMAPCOREHEADER + (bcSize :unsigned-long) + (bcWidth :unsigned-short) + (bcHeight :unsigned-short) + (bcPlanes :unsigned-short) + (bcBitCount :unsigned-short)) + + + + + + + +(defcstructex-exported RGBTRIPLE + (rgbtBlue :unsigned-char) + (rgbtGreen :unsigned-char) + (rgbtRed :unsigned-char)) + + + + + +(defcstructex-exported BITMAPFILEHEADER + (bfType :unsigned-short) + (bfSize :unsigned-long) + (bfReserved1 :unsigned-short) + (bfReserved2 :unsigned-short) + (bfOffBits :unsigned-long)) + + + + + + + +(defcstructex-exported BITMAPCOREINFO + (bmciHeader BITMAPCOREHEADER) + (bmciColors :pointer)) + + + + + + + +(defcstructex-exported BITMAPINFOHEADER + (biSize :unsigned-long) + (biWidth :int32) + (biHeight :int32) + (biPlanes :unsigned-short) + (biBitCount :unsigned-short) + (biCompression :unsigned-long) + (biSizeImage :unsigned-long) + (biXPelsPerMeter :int32) + (biYPelsPerMeter :int32) + (biClrUsed :unsigned-long) + (biClrImportant :unsigned-long)) + + + + + + + +(defcstructex-exported RGBQUAD + (rgbBlue :unsigned-char) + (rgbGreen :unsigned-char) + (rgbRed :unsigned-char) + (rgbReserved :unsigned-char)) + + + + + +(defcstructex-exported BITMAPINFO + (bmiHeader BITMAPINFOHEADER) + (bmiColors :pointer)) + + + + + + + + + + + + + + + +(defcstructex-exported CIEXYZ + (ciexyzX :int32) + (ciexyzY :int32) + (ciexyzZ :int32)) + + + + + +(defcstructex-exported CIEXYZTRIPLE + (ciexyzRed CIEXYZ) + (ciexyzGreen CIEXYZ) + (ciexyzBlue CIEXYZ)) + + + + + +(defcstructex-exported BITMAPV4HEADER + (bV4Size :unsigned-long) + (bV4Width :int32) + (bV4Height :int32) + (bV4Planes :unsigned-short) + (bV4BitCount :unsigned-short) + (bV4V4Compression :unsigned-long) + (bV4SizeImage :unsigned-long) + (bV4XPelsPerMeter :int32) + (bV4YPelsPerMeter :int32) + (bV4ClrUsed :unsigned-long) + (bV4ClrImportant :unsigned-long) + (bV4RedMask :unsigned-long) + (bV4GreenMask :unsigned-long) + (bV4BlueMask :unsigned-long) + (bV4AlphaMask :unsigned-long) + (bV4CSType :unsigned-long) + (bV4Endpoints CIEXYZTRIPLE) + (bV4GammaRed :unsigned-long) + (bV4GammaGreen :unsigned-long) + (bV4GammaBlue :unsigned-long)) + + + + + +(defcstructex-exported FONTSIGNATURE + (fsUsb :pointer) + (fsCsb :pointer)) + + + + + +(defcstructex-exported CHARSETINFO + (ciCharset :unsigned-int) + (ciACP :unsigned-int) + (fs FONTSIGNATURE)) + + + +(defcstructex-exported COLORADJUSTMENT + (caSize :unsigned-short) + (caFlags :unsigned-short) + (caIlluminantIndex :unsigned-short) + (caRedGamma :unsigned-short) + (caGreenGamma :unsigned-short) + (caBlueGamma :unsigned-short) + (caReferenceBlack :unsigned-short) + (caReferenceWhite :unsigned-short) + (caContrast :short) + (caBrightness :short) + (caColorfulness :short) + (caRedGreenTint :short)) + + + + + +(defcstructex-exported DEVMODEA + (dmDeviceName :pointer) + (dmSpecVersion :unsigned-short) + (dmDriverVersion :unsigned-short) + (dmSize :unsigned-short) + (dmDriverExtra :unsigned-short) + (dmFields :unsigned-long) + (dmColor :short) + (dmDuplex :short) + (dmYResolution :short) + (dmTTOption :short) + (dmCollate :short) + (dmFormName :pointer) + (dmLogPixels :unsigned-short) + (dmBitsPerPel :unsigned-long) + (dmPelsWidth :unsigned-long) + (dmPelsHeight :unsigned-long) + (dmDisplayFrequency :unsigned-long) + (dmICMMethod :unsigned-long) + (dmICMIntent :unsigned-long) + (dmMediaType :unsigned-long) + (dmDitherType :unsigned-long) + (dmReserved1 :unsigned-long) + (dmReserved2 :unsigned-long) + (dmPanningWidth :unsigned-long) + (dmPanningHeight :unsigned-long) + (u :pointer) + (u2 :pointer)) + + + + + + + +(cffi:defcunion DEVMODEA_u2 + (dmDisplayFlags :unsigned-long) + (dmNup :unsigned-long)) + +(cffi:defcunion DEVMODEA_u + (dmPosition :pointer) + (dmDisplayOrientation :unsigned-long) + (dmDisplayFixedOutput :unsigned-long) + (s :pointer)) + +(defcstructex-exported DEVMODEA_u_s + (dmOrientation :short) + (dmPaperSize :short) + (dmPaperLength :short) + (dmPaperWidth :short) + (dmScale :short) + (dmCopies :short) + (dmDefaultSource :short) + (dmPrintQuality :short)) + +(defcstructex-exported DEVMODEW + (dmDeviceName :pointer) + (dmSpecVersion :unsigned-short) + (dmDriverVersion :unsigned-short) + (dmSize :unsigned-short) + (dmDriverExtra :unsigned-short) + (dmFields :unsigned-long) + (dmColor :short) + (dmDuplex :short) + (dmYResolution :short) + (dmTTOption :short) + (dmCollate :short) + (dmFormName :pointer) + (dmLogPixels :unsigned-short) + (dmBitsPerPel :unsigned-long) + (dmPelsWidth :unsigned-long) + (dmPelsHeight :unsigned-long) + (dmDisplayFrequency :unsigned-long) + (dmICMMethod :unsigned-long) + (dmICMIntent :unsigned-long) + (dmMediaType :unsigned-long) + (dmDitherType :unsigned-long) + (dmReserved1 :unsigned-long) + (dmReserved2 :unsigned-long) + (dmPanningWidth :unsigned-long) + (dmPanningHeight :unsigned-long) + (u :pointer) + (u2 :pointer)) + + + + + + + +(cffi:defcunion DEVMODEW_u2 + (dmDisplayFlags :unsigned-long) + (dmNup :unsigned-long)) + +(cffi:defcunion DEVMODEW_u + (dmPosition :pointer) + (dmDisplayOrientation :unsigned-long) + (dmDisplayFixedOutput :unsigned-long) + (s :pointer)) + +(defcstructex-exported DEVMODEW_u_s + (dmOrientation :short) + (dmPaperSize :short) + (dmPaperLength :short) + (dmPaperWidth :short) + (dmScale :short) + (dmCopies :short) + (dmDefaultSource :short) + (dmPrintQuality :short)) + +(defcstructex-exported DIBSECTION + (dsBm BITMAP) + (dsBmih BITMAPINFOHEADER) + (dsBitfields :pointer) + (dshSection :pointer) + (dsOffset :unsigned-long)) + + + +(defcstructex-exported DOCINFOA + (cbSize :int) + (lpszDocName :string) + (lpszOutput :string) + (lpszDatatype :string) + (fwType :unsigned-long)) + + + + + +(defcstructex-exported DOCINFOW + (cbSize :int) + (lpszDocName :pointer) + (lpszOutput :pointer) + (lpszDatatype :pointer) + (fwType :unsigned-long)) + + + + + +(defcstructex-exported EMR + (iType :unsigned-long) + (nSize :unsigned-long)) + + + + + +(defcstructex-exported EMRANGLEARC + (emr EMR) + (ptlCenter :pointer) + (nRadius :unsigned-long) + (eStartAngle :float) + (eSweepAngle :float)) + + + + + +(defcstructex-exported EMRARC + (emr EMR) + (rclBox RECTL) + (ptlStart :pointer) + (ptlEnd :pointer)) + + + + + + + + + + + + + + + + + +(defcstructex-exported XFORM + (eM11 :float) + (eM12 :float) + (eM21 :float) + (eM22 :float) + (eDx :float) + (eDy :float)) + + + + + + + +(defcstructex-exported EMRBITBLT + (emr EMR) + (rclBounds RECTL) + (xDest :int32) + (yDest :int32) + (cxDest :int32) + (cyDest :int32) + (dwRop :unsigned-long) + (xSrc :int32) + (ySrc :int32) + (xformSrc XFORM) + (crBkColorSrc :unsigned-long) + (iUsageSrc :unsigned-long) + (offBmiSrc :unsigned-long) + (offBitsSrc :unsigned-long) + (cbBitsSrc :unsigned-long)) + + + + + +(defcstructex-exported LOGBRUSH + (lbStyle :unsigned-int) + (lbColor :unsigned-long) + (lbHatch :int32)) + + + + + + + + + + + + + +(defcstructex-exported EMRCREATEBRUSHINDIRECT + (emr EMR) + (ihBrush :unsigned-long) + (lb LOGBRUSH)) + + + + + + + + + +(defcstructex-exported LOGCOLORSPACEA + (lcsSignature :unsigned-long) + (lcsVersion :unsigned-long) + (lcsSize :unsigned-long) + (lcsCSType :int32) + (lcsIntent :int32) + (lcsEndpoints CIEXYZTRIPLE) + (lcsGammaRed :unsigned-long) + (lcsGammaGreen :unsigned-long) + (lcsGammaBlue :unsigned-long) + (lcsFilename :pointer)) + + + + + +(defcstructex-exported LOGCOLORSPACEW + (lcsSignature :unsigned-long) + (lcsVersion :unsigned-long) + (lcsSize :unsigned-long) + (lcsCSType :int32) + (lcsIntent :int32) + (lcsEndpoints CIEXYZTRIPLE) + (lcsGammaRed :unsigned-long) + (lcsGammaGreen :unsigned-long) + (lcsGammaBlue :unsigned-long) + (lcsFilename :pointer)) + + + + + +(defcstructex-exported EMRCREATECOLORSPACE + (emr EMR) + (ihCS :unsigned-long) + (lcs LOGCOLORSPACEW)) + + + + + +(defcstructex-exported EMRCREATEDIBPATTERNBRUSHPT + (emr EMR) + (ihBrush :unsigned-long) + (iUsage :unsigned-long) + (offBmi :unsigned-long) + (cbBmi :unsigned-long) + (offBits :unsigned-long) + (cbBits :unsigned-long)) + + + + + +(defcstructex-exported EMRCREATEMONOBRUSH + (emr EMR) + (ihBrush :unsigned-long) + (iUsage :unsigned-long) + (offBmi :unsigned-long) + (cbBmi :unsigned-long) + (offBits :unsigned-long) + (cbBits :unsigned-long)) + + + + + +(defcstructex-exported PALETTEENTRY + (peRed :unsigned-char) + (peGreen :unsigned-char) + (peBlue :unsigned-char) + (peFlags :unsigned-char)) + + + + + + + +(defcstructex-exported LOGPALETTE + (palVersion :unsigned-short) + (palNumEntries :unsigned-short) + (palPalEntry :pointer)) + + + + + + + + + +(defcstructex-exported EMRCREATEPALETTE + (emr EMR) + (ihPal :unsigned-long) + (lgpl LOGPALETTE)) + + + + + +(defcstructex-exported LOGPEN + (lopnStyle :unsigned-int) + (lopnWidth POINT) + (lopnColor :unsigned-long)) + + + + + + + +(defcstructex-exported EMRCREATEPEN + (emr EMR) + (ihPen :unsigned-long) + (lopn LOGPEN)) + + + + + +(defcstructex-exported EMRELLIPSE + (emr EMR) + (rclBox RECTL)) + + + + + + + + + +(defcstructex-exported EMREOF + (emr EMR) + (nPalEntries :unsigned-long) + (offPalEntries :unsigned-long) + (nSizeLast :unsigned-long)) + + + + + +(defcstructex-exported EMREXCLUDECLIPRECT + (emr EMR) + (rclClip RECTL)) + + + + + + + + + +(defcstructex-exported PANOSE + (bFamilyType :unsigned-char) + (bSerifStyle :unsigned-char) + (bWeight :unsigned-char) + (bProportion :unsigned-char) + (bContrast :unsigned-char) + (bStrokeVariation :unsigned-char) + (bArmStyle :unsigned-char) + (bLetterform :unsigned-char) + (bMidline :unsigned-char) + (bXHeight :unsigned-char)) + + + +(defcstructex-exported LOGFONTA + (lfHeight :int32) + (lfWidth :int32) + (lfEscapement :int32) + (lfOrientation :int32) + (lfWeight :int32) + (lfItalic :unsigned-char) + (lfUnderline :unsigned-char) + (lfStrikeOut :unsigned-char) + (lfCharSet :unsigned-char) + (lfOutPrecision :unsigned-char) + (lfClipPrecision :unsigned-char) + (lfQuality :unsigned-char) + (lfPitchAndFamily :unsigned-char) + (lfFaceName :pointer)) + + + + + + + +(defcstructex-exported LOGFONTW + (lfHeight :int32) + (lfWidth :int32) + (lfEscapement :int32) + (lfOrientation :int32) + (lfWeight :int32) + (lfItalic :unsigned-char) + (lfUnderline :unsigned-char) + (lfStrikeOut :unsigned-char) + (lfCharSet :unsigned-char) + (lfOutPrecision :unsigned-char) + (lfClipPrecision :unsigned-char) + (lfQuality :unsigned-char) + (lfPitchAndFamily :unsigned-char) + (lfFaceName :pointer)) + + + + + + + +(defcstructex-exported EXTLOGFONTA + (elfLogFont LOGFONTA) + (elfFullName :pointer) + (elfStyle :pointer) + (elfVersion :unsigned-long) + (elfStyleSize :unsigned-long) + (elfMatch :unsigned-long) + (elfReserved :unsigned-long) + (elfVendorId :pointer) + (elfCulture :unsigned-long) + (elfPanose PANOSE)) + + + + + + + +(defcstructex-exported EXTLOGFONTW + (elfLogFont LOGFONTW) + (elfFullName :pointer) + (elfStyle :pointer) + (elfVersion :unsigned-long) + (elfStyleSize :unsigned-long) + (elfMatch :unsigned-long) + (elfReserved :unsigned-long) + (elfVendorId :pointer) + (elfCulture :unsigned-long) + (elfPanose PANOSE)) + + + + + + + +(defcstructex-exported EMREXTCREATEFONTINDIRECTW + (emr EMR) + (ihFont :unsigned-long) + (elfw EXTLOGFONTW)) + + + + + +(defcstructex-exported EXTLOGPEN + (elpPenStyle :unsigned-int) + (elpWidth :unsigned-int) + (elpBrushStyle :unsigned-int) + (elpColor :unsigned-long) + (elpHatch :int32) + (elpNumEntries :unsigned-long) + (elpStyleEntry :pointer)) + + + + + + + +(defcstructex-exported EMREXTCREATEPEN + (emr EMR) + (ihPen :unsigned-long) + (offBmi :unsigned-long) + (cbBmi :unsigned-long) + (offBits :unsigned-long) + (cbBits :unsigned-long) + (elp EXTLOGPEN)) + + + + + +(defcstructex-exported EMREXTFLOODFILL + (emr EMR) + (ptlStart :pointer) + (crColor :unsigned-long) + (iMode :unsigned-long)) + + + + + +(defcstructex-exported EMREXTSELECTCLIPRGN + (emr EMR) + (cbRgnData :unsigned-long) + (iMode :unsigned-long) + (RgnData :pointer)) + + + + + +(defcstructex-exported EMRTEXT + (ptlReference :pointer) + (nChars :unsigned-long) + (offString :unsigned-long) + (fOptions :unsigned-long) + (rcl RECTL) + (offDx :unsigned-long)) + + + + + +(defcstructex-exported EMREXTTEXTOUTA + (emr EMR) + (rclBounds RECTL) + (iGraphicsMode :unsigned-long) + (exScale :float) + (eyScale :float) + (emrtext EMRTEXT)) + + + + + + + + + +(defcstructex-exported EMRFILLPATH + (emr EMR) + (rclBounds RECTL)) + + + + + + + + + + + + + +(defcstructex-exported EMRFILLRGN + (emr EMR) + (rclBounds RECTL) + (cbRgnData :unsigned-long) + (ihBrush :unsigned-long) + (RgnData :pointer)) + + + + + +(defcstructex-exported EMRFORMAT + (dSignature :unsigned-long) + (nVersion :unsigned-long) + (cbData :unsigned-long) + (offData :unsigned-long)) + + + +(defcstructex-exported EMRFRAMERGN + (emr EMR) + (rclBounds RECTL) + (cbRgnData :unsigned-long) + (ihBrush :unsigned-long) + (szlStroke :pointer) + (RgnData :pointer)) + + + + + +(defcstructex-exported EMRGDICOMMENT + (emr EMR) + (cbData :unsigned-long) + (Data :pointer)) + + + + + +(defcstructex-exported EMRINVERTRGN + (emr EMR) + (rclBounds RECTL) + (cbRgnData :unsigned-long) + (RgnData :pointer)) + + + + + + + + + +(defcstructex-exported EMRLINETO + (emr EMR) + (ptl :pointer)) + + + + + + + + + +(defcstructex-exported EMRMASKBLT + (emr EMR) + (rclBounds RECTL) + (xDest :int32) + (yDest :int32) + (cxDest :int32) + (cyDest :int32) + (dwRop :unsigned-long) + (xSrc :int32) + (ySrc :int32) + (xformSrc XFORM) + (crBkColorSrc :unsigned-long) + (iUsageSrc :unsigned-long) + (offBmiSrc :unsigned-long) + (cbBmiSrc :unsigned-long) + (offBitsSrc :unsigned-long) + (cbBitsSrc :unsigned-long) + (xMask :int32) + (yMask :int32) + (iUsageMask :unsigned-long) + (offBmiMask :unsigned-long) + (cbBmiMask :unsigned-long) + (offBitsMask :unsigned-long) + (cbBitsMask :unsigned-long)) + + + + + +(defcstructex-exported EMRMODIFYWORLDTRANSFORM + (emr EMR) + (xform XFORM) + (iMode :unsigned-long)) + + + + + +(defcstructex-exported EMROFFSETCLIPRGN + (emr EMR) + (ptlOffset :pointer)) + + + + + +(defcstructex-exported EMRPLGBLT + (emr EMR) + (rclBounds RECTL) + (aptlDest :pointer) + (xSrc :int32) + (ySrc :int32) + (cxSrc :int32) + (cySrc :int32) + (xformSrc XFORM) + (crBkColorSrc :unsigned-long) + (iUsageSrc :unsigned-long) + (offBmiSrc :unsigned-long) + (cbBmiSrc :unsigned-long) + (offBitsSrc :unsigned-long) + (cbBitsSrc :unsigned-long) + (xMask :int32) + (yMask :int32) + (iUsageMask :unsigned-long) + (offBmiMask :unsigned-long) + (cbBmiMask :unsigned-long) + (offBitsMask :unsigned-long) + (cbBitsMask :unsigned-long)) + + + + + +(defcstructex-exported EMRPOLYDRAW + (emr EMR) + (rclBounds RECTL) + (cptl :unsigned-long) + (aptl :pointer) + (abTypes :pointer)) + + + + + +(defcstructex-exported EMRPOLYDRAW16 + (emr EMR) + (rclBounds RECTL) + (cpts :unsigned-long) + (apts :pointer) + (abTypes :pointer)) + + + + + +(defcstructex-exported EMRPOLYLINE + (emr EMR) + (rclBounds RECTL) + (cptl :unsigned-long) + (aptl :pointer)) + + + + + + + + + + + + + + + + + + + + + +(defcstructex-exported EMRPOLYLINE16 + (emr EMR) + (rclBounds RECTL) + (cpts :unsigned-long) + (apts :pointer)) + + + + + + + + + + + + + + + + + + + + + +(defcstructex-exported EMRPOLYPOLYLINE + (emr EMR) + (rclBounds RECTL) + (nPolys :unsigned-long) + (cptl :unsigned-long) + (aPolyCounts :pointer) + (aptl :pointer)) + + + + + + + + + +(defcstructex-exported EMRPOLYPOLYLINE16 + (emr EMR) + (rclBounds RECTL) + (nPolys :unsigned-long) + (cpts :unsigned-long) + (aPolyCounts :pointer) + (apts :pointer)) + + + + + + + + + +(defcstructex-exported EMRPOLYTEXTOUTA + (emr EMR) + (rclBounds RECTL) + (iGraphicsMode :unsigned-long) + (exScale :float) + (eyScale :float) + (cStrings :int32) + (aemrtext :pointer)) + + + + + + + + + +(defcstructex-exported EMRRESIZEPALETTE + (emr EMR) + (ihPal :unsigned-long) + (cEntries :unsigned-long)) + + + + + +(defcstructex-exported EMRRESTOREDC + (emr EMR) + (iRelative :int32)) + + + + + +(defcstructex-exported EMRROUNDRECT + (emr EMR) + (rclBox RECTL) + (szlCorner :pointer)) + + + + + +(defcstructex-exported EMRSCALEVIEWPORTEXTEX + (emr EMR) + (xNum :int32) + (xDenom :int32) + (yNum :int32) + (yDenom :int32)) + + + + + + + + + +(defcstructex-exported EMRSELECTCOLORSPACE + (emr EMR) + (ihCS :unsigned-long)) + + + + + + + + + +(defcstructex-exported EMRSELECTOBJECT + (emr EMR) + (ihObject :unsigned-long)) + + + + + + + + + +(defcstructex-exported EMRSELECTPALETTE + (emr EMR) + (ihPal :unsigned-long)) + + + + + +(defcstructex-exported EMRSETARCDIRECTION + (emr EMR) + (iArcDirection :unsigned-long)) + + + + + +(defcstructex-exported EMRSETBKCOLOR + (emr EMR) + (crColor :unsigned-long)) + + + + + + + + + +(defcstructex-exported EMRSETCOLORADJUSTMENT + (emr EMR) + (ColorAdjustment COLORADJUSTMENT)) + + + + + +(defcstructex-exported EMRSETDIBITSTODEVICE + (emr EMR) + (rclBounds RECTL) + (xDest :int32) + (yDest :int32) + (xSrc :int32) + (ySrc :int32) + (cxSrc :int32) + (cySrc :int32) + (offBmiSrc :unsigned-long) + (cbBmiSrc :unsigned-long) + (offBitsSrc :unsigned-long) + (cbBitsSrc :unsigned-long) + (iUsageSrc :unsigned-long) + (iStartScan :unsigned-long) + (cScans :unsigned-long)) + + + + + +(defcstructex-exported EMRSETMAPPERFLAGS + (emr EMR) + (dwFlags :unsigned-long)) + + + + + +(defcstructex-exported EMRSETMITERLIMIT + (emr EMR) + (eMiterLimit :float)) + + + + + +(defcstructex-exported EMRSETPALETTEENTRIES + (emr EMR) + (ihPal :unsigned-long) + (iStart :unsigned-long) + (cEntries :unsigned-long) + (aPalEntries :pointer)) + + + + + +(defcstructex-exported EMRSETPIXELV + (emr EMR) + (ptlPixel :pointer) + (crColor :unsigned-long)) + + + + + +(defcstructex-exported EMRSETVIEWPORTEXTEX + (emr EMR) + (szlExtent :pointer)) + + + + + + + + + +(defcstructex-exported EMRSETVIEWPORTORGEX + (emr EMR) + (ptlOrigin :pointer)) + + + + + + + + + + + + + +(defcstructex-exported EMRSETWORLDTRANSFORM + (emr EMR) + (xform XFORM)) + + + + + +(defcstructex-exported EMRSTRETCHBLT + (emr EMR) + (rclBounds RECTL) + (xDest :int32) + (yDest :int32) + (cxDest :int32) + (cyDest :int32) + (dwRop :unsigned-long) + (xSrc :int32) + (ySrc :int32) + (xformSrc XFORM) + (crBkColorSrc :unsigned-long) + (iUsageSrc :unsigned-long) + (offBmiSrc :unsigned-long) + (cbBmiSrc :unsigned-long) + (offBitsSrc :unsigned-long) + (cbBitsSrc :unsigned-long) + (cxSrc :int32) + (cySrc :int32)) + + + + + +(defcstructex-exported EMRSTRETCHDIBITS + (emr EMR) + (rclBounds RECTL) + (xDest :int32) + (yDest :int32) + (xSrc :int32) + (ySrc :int32) + (cxSrc :int32) + (cySrc :int32) + (offBmiSrc :unsigned-long) + (cbBmiSrc :unsigned-long) + (offBitsSrc :unsigned-long) + (cbBitsSrc :unsigned-long) + (iUsageSrc :unsigned-long) + (dwRop :unsigned-long) + (cxDest :int32) + (cyDest :int32)) + + + + + +(defcstructex-exported EMRABORTPATH + (emr EMR)) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +(defcstructex-exported EMRSELECTCLIPPATH + (emr EMR) + (iMode :unsigned-long)) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +(defcstructex-exported METAHEADER + (mtType :unsigned-short) + (mtHeaderSize :unsigned-short) + (mtVersion :unsigned-short) + (mtSize :unsigned-long) + (mtNoObjects :unsigned-short) + (mtMaxRecord :unsigned-long) + (mtNoParameters :unsigned-short)) + + + + + + + +(defcstructex-exported ENHMETAHEADER + (iType :unsigned-long) + (nSize :unsigned-long) + (rclBounds RECTL) + (rclFrame RECTL) + (dSignature :unsigned-long) + (nVersion :unsigned-long) + (nBytes :unsigned-long) + (nRecords :unsigned-long) + (nHandles :unsigned-short) + (sReserved :unsigned-short) + (nDescription :unsigned-long) + (offDescription :unsigned-long) + (nPalEntries :unsigned-long) + (szlDevice :pointer) + (szlMillimeters :pointer) + (cbPixelFormat :unsigned-long) + (offPixelFormat :unsigned-long) + (bOpenGL :unsigned-long)) + + + + + +(defcstructex-exported METARECORD + (rdSize :unsigned-long) + (rdFunction :unsigned-short) + (rdParm :pointer)) + + + + + + + +(defcstructex-exported ENHMETARECORD + (iType :unsigned-long) + (nSize :unsigned-long) + (dParm :pointer)) + + + + + +(defcstructex-exported HANDLETABLE + (objectHandle :pointer)) + + + + + +(defcstructex-exported TEXTMETRICA + (tmHeight :int32) + (tmAscent :int32) + (tmDescent :int32) + (tmInternalLeading :int32) + (tmExternalLeading :int32) + (tmAveCharWidth :int32) + (tmMaxCharWidth :int32) + (tmWeight :int32) + (tmOverhang :int32) + (tmDigitizedAspectX :int32) + (tmDigitizedAspectY :int32) + (tmFirstChar :unsigned-char) + (tmLastChar :unsigned-char) + (tmDefaultChar :unsigned-char) + (tmBreakChar :unsigned-char) + (tmItalic :unsigned-char) + (tmUnderlined :unsigned-char) + (tmStruckOut :unsigned-char) + (tmPitchAndFamily :unsigned-char) + (tmCharSet :unsigned-char)) + + + + + + + +(defcstructex-exported TEXTMETRICW + (tmHeight :int32) + (tmAscent :int32) + (tmDescent :int32) + (tmInternalLeading :int32) + (tmExternalLeading :int32) + (tmAveCharWidth :int32) + (tmMaxCharWidth :int32) + (tmWeight :int32) + (tmOverhang :int32) + (tmDigitizedAspectX :int32) + (tmDigitizedAspectY :int32) + (tmFirstChar :pointer) + (tmLastChar :pointer) + (tmDefaultChar :pointer) + (tmBreakChar :pointer) + (tmItalic :unsigned-char) + (tmUnderlined :unsigned-char) + (tmStruckOut :unsigned-char) + (tmPitchAndFamily :unsigned-char) + (tmCharSet :unsigned-char)) + + + + + + + +(defcstructex-exported RGNDATAHEADER + (dwSize :unsigned-long) + (iType :unsigned-long) + (nCount :unsigned-long) + (nRgnSize :unsigned-long) + (rcBound RECT)) + + + +(defcstructex-exported RGNDATA + (rdh RGNDATAHEADER) + (Buffer :pointer)) + + + + + + + +(defconstant-exported SYSRGN 4) + +(defcstructex-exported GCP_RESULTSA + (lStructSize :unsigned-long) + (lpOutString :string) + (lpOrder :pointer) + (lpDx :pointer) + (lpCaretPos :pointer) + (lpClass :string) + (lpGlyphs :pointer) + (nGlyphs :unsigned-int) + (nMaxFit :unsigned-int)) + + + + + +(defcstructex-exported GCP_RESULTSW + (lStructSize :unsigned-long) + (lpOutString :pointer) + (lpOrder :pointer) + (lpDx :pointer) + (lpCaretPos :pointer) + (lpClass :pointer) + (lpGlyphs :pointer) + (nGlyphs :unsigned-int) + (nMaxFit :unsigned-int)) + + + + + +(defcstructex-exported GLYPHMETRICS + (gmBlackBoxX :unsigned-int) + (gmBlackBoxY :unsigned-int) + (gmptGlyphOrigin POINT) + (gmCellIncX :short) + (gmCellIncY :short)) + + + + + +(defcstructex-exported KERNINGPAIR + (wFirst :unsigned-short) + (wSecond :unsigned-short) + (iKernAmount :int)) + + + + + +(defcstructex-exported FIXED + (fract :unsigned-short) + (value :short)) + + + +(defcstructex-exported MAT2 + (eM11 FIXED) + (eM12 FIXED) + (eM21 FIXED) + (eM22 FIXED)) + + + + + +(defcstructex-exported OUTLINETEXTMETRICA + (otmSize :unsigned-int) + (otmTextMetrics TEXTMETRICA) + (otmFiller :unsigned-char) + (otmPanoseNumber PANOSE) + (otmfsSelection :unsigned-int) + (otmfsType :unsigned-int) + (otmsCharSlopeRise :int) + (otmsCharSlopeRun :int) + (otmItalicAngle :int) + (otmEMSquare :unsigned-int) + (otmAscent :int) + (otmDescent :int) + (otmLineGap :unsigned-int) + (otmsCapEmHeight :unsigned-int) + (otmsXHeight :unsigned-int) + (otmrcFontBox RECT) + (otmMacAscent :int) + (otmMacDescent :int) + (otmMacLineGap :unsigned-int) + (otmusMinimumPPEM :unsigned-int) + (otmptSubscriptSize POINT) + (otmptSubscriptOffset POINT) + (otmptSuperscriptSize POINT) + (otmptSuperscriptOffset POINT) + (otmsStrikeoutSize :unsigned-int) + (otmsStrikeoutPosition :int) + (otmsUnderscoreSize :int) + (otmsUnderscorePosition :int) + (otmpFamilyName :string) + (otmpFaceName :string) + (otmpStyleName :string) + (otmpFullName :string)) + + + + + + + +(defcstructex-exported OUTLINETEXTMETRICW + (otmSize :unsigned-int) + (otmTextMetrics TEXTMETRICW) + (otmFiller :unsigned-char) + (otmPanoseNumber PANOSE) + (otmfsSelection :unsigned-int) + (otmfsType :unsigned-int) + (otmsCharSlopeRise :int) + (otmsCharSlopeRun :int) + (otmItalicAngle :int) + (otmEMSquare :unsigned-int) + (otmAscent :int) + (otmDescent :int) + (otmLineGap :unsigned-int) + (otmsCapEmHeight :unsigned-int) + (otmsXHeight :unsigned-int) + (otmrcFontBox RECT) + (otmMacAscent :int) + (otmMacDescent :int) + (otmMacLineGap :unsigned-int) + (otmusMinimumPPEM :unsigned-int) + (otmptSubscriptSize POINT) + (otmptSubscriptOffset POINT) + (otmptSuperscriptSize POINT) + (otmptSuperscriptOffset POINT) + (otmsStrikeoutSize :unsigned-int) + (otmsStrikeoutPosition :int) + (otmsUnderscoreSize :int) + (otmsUnderscorePosition :int) + (otmpFamilyName :string) + (otmpFaceName :string) + (otmpStyleName :string) + (otmpFullName :string)) + + + + + + + +(defcstructex-exported RASTERIZER_STATUS + (nSize :short) + (wFlags :short) + (nLanguageID :short)) + + + + + +(defcstructex-exported POLYTEXTA + (x :int) + (y :int) + (n :unsigned-int) + (lpstr :string) + (uiFlags :unsigned-int) + (rcl RECT) + (pdx :pointer)) + + + + + + + +(defcstructex-exported POLYTEXTW + (x :int) + (y :int) + (n :unsigned-int) + (lpstr :pointer) + (uiFlags :unsigned-int) + (rcl RECT) + (pdx :pointer)) + + + + + + + +(defcstructex-exported PIXELFORMATDESCRIPTOR + (nSize :unsigned-short) + (nVersion :unsigned-short) + (dwFlags :unsigned-long) + (iPixelType :unsigned-char) + (cColorBits :unsigned-char) + (cRedBits :unsigned-char) + (cRedShift :unsigned-char) + (cGreenBits :unsigned-char) + (cGreenShift :unsigned-char) + (cBlueBits :unsigned-char) + (cBlueShift :unsigned-char) + (cAlphaBits :unsigned-char) + (cAlphaShift :unsigned-char) + (cAccumBits :unsigned-char) + (cAccumRedBits :unsigned-char) + (cAccumGreenBits :unsigned-char) + (cAccumBlueBits :unsigned-char) + (cAccumAlphaBits :unsigned-char) + (cDepthBits :unsigned-char) + (cStencilBits :unsigned-char) + (cAuxBuffers :unsigned-char) + (iLayerType :unsigned-char) + (bReserved :unsigned-char) + (dwLayerMask :unsigned-long) + (dwVisibleMask :unsigned-long) + (dwDamageMask :unsigned-long)) + + + + + + + +(defcstructex-exported METAFILEPICT + (mm :int32) + (xExt :int32) + (yExt :int32) + (hMF :pointer)) + + + + + +(defcstructex-exported LOCALESIGNATURE + (lsUsb :pointer) + (lsCsbDefault :pointer) + (lsCsbSupported :pointer)) + + + + + + + + + +(defcstructex-exported NEWTEXTMETRICA + (tmHeight :int32) + (tmAscent :int32) + (tmDescent :int32) + (tmInternalLeading :int32) + (tmExternalLeading :int32) + (tmAveCharWidth :int32) + (tmMaxCharWidth :int32) + (tmWeight :int32) + (tmOverhang :int32) + (tmDigitizedAspectX :int32) + (tmDigitizedAspectY :int32) + (tmFirstChar :unsigned-char) + (tmLastChar :unsigned-char) + (tmDefaultChar :unsigned-char) + (tmBreakChar :unsigned-char) + (tmItalic :unsigned-char) + (tmUnderlined :unsigned-char) + (tmStruckOut :unsigned-char) + (tmPitchAndFamily :unsigned-char) + (tmCharSet :unsigned-char) + (ntmFlags :unsigned-long) + (ntmSizeEM :unsigned-int) + (ntmCellHeight :unsigned-int) + (ntmAvgWidth :unsigned-int)) + + + + + + + +(defcstructex-exported NEWTEXTMETRICW + (tmHeight :int32) + (tmAscent :int32) + (tmDescent :int32) + (tmInternalLeading :int32) + (tmExternalLeading :int32) + (tmAveCharWidth :int32) + (tmMaxCharWidth :int32) + (tmWeight :int32) + (tmOverhang :int32) + (tmDigitizedAspectX :int32) + (tmDigitizedAspectY :int32) + (tmFirstChar :pointer) + (tmLastChar :pointer) + (tmDefaultChar :pointer) + (tmBreakChar :pointer) + (tmItalic :unsigned-char) + (tmUnderlined :unsigned-char) + (tmStruckOut :unsigned-char) + (tmPitchAndFamily :unsigned-char) + (tmCharSet :unsigned-char) + (ntmFlags :unsigned-long) + (ntmSizeEM :unsigned-int) + (ntmCellHeight :unsigned-int) + (ntmAvgWidth :unsigned-int)) + + + + + + + +(defcstructex-exported NEWTEXTMETRICEXA + (ntmTm NEWTEXTMETRICA) + (ntmFontSig FONTSIGNATURE)) + + + +(defcstructex-exported NEWTEXTMETRICEXW + (ntmTm NEWTEXTMETRICW) + (ntmFontSig FONTSIGNATURE)) + + + +(defcstructex-exported PELARRAY + (paXCount :int32) + (paYCount :int32) + (paXExt :int32) + (paYExt :int32) + (paRGBs :unsigned-char)) + + + + + + + +(defcstructex-exported ENUMLOGFONTA + (elfLogFont LOGFONTA) + (elfFullName :pointer) + (elfStyle :pointer)) + + + + + +(defcstructex-exported ENUMLOGFONTW + (elfLogFont LOGFONTW) + (elfFullName :pointer) + (elfStyle :pointer)) + + + + + +(defcstructex-exported ENUMLOGFONTEXA + (elfLogFont LOGFONTA) + (elfFullName :pointer) + (elfStyle :pointer) + (elfScript :pointer)) + + + + + +(defcstructex-exported ENUMLOGFONTEXW + (elfLogFont LOGFONTW) + (elfFullName :pointer) + (elfStyle :pointer) + (elfScript :pointer)) + + + + + +(defcstructex-exported POINTFX + (x FIXED) + (y FIXED)) + + + + + +(defcstructex-exported TTPOLYCURVE + (wType :unsigned-short) + (cpfx :unsigned-short) + (apfx :pointer)) + + + + + +(defcstructex-exported TTPOLYGONHEADER + (cb :unsigned-long) + (dwType :unsigned-long) + (pfxStart POINTFX)) + + + + + +(defcstructex-exported POINTFLOAT + (x :float) + (y :float)) + + + + + +(defcstructex-exported GLYPHMETRICSFLOAT + (gmfBlackBoxX :float) + (gmfBlackBoxY :float) + (gmfptGlyphOrigin POINTFLOAT) + (gmfCellIncX :float) + (gmfCellIncY :float)) + + + + + + + +(defcstructex-exported LAYERPLANEDESCRIPTOR + (nSize :unsigned-short) + (nVersion :unsigned-short) + (dwFlags :unsigned-long) + (iPixelType :unsigned-char) + (cColorBits :unsigned-char) + (cRedBits :unsigned-char) + (cRedShift :unsigned-char) + (cGreenBits :unsigned-char) + (cGreenShift :unsigned-char) + (cBlueBits :unsigned-char) + (cBlueShift :unsigned-char) + (cAlphaBits :unsigned-char) + (cAlphaShift :unsigned-char) + (cAccumBits :unsigned-char) + (cAccumRedBits :unsigned-char) + (cAccumGreenBits :unsigned-char) + (cAccumBlueBits :unsigned-char) + (cAccumAlphaBits :unsigned-char) + (cDepthBits :unsigned-char) + (cStencilBits :unsigned-char) + (cAuxBuffers :unsigned-char) + (iLayerPlane :unsigned-char) + (bReserved :unsigned-char) + (crTransparent :unsigned-long)) + + + + + + + +(defcstructex-exported BLENDFUNCTION + (BlendOp :unsigned-char) + (BlendFlags :unsigned-char) + (SourceConstantAlpha :unsigned-char) + (AlphaFormat :unsigned-char)) + + + + + + + +(defconstant-exported MM_MAX_NUMAXES 16) + +(defcstructex-exported DESIGNVECTOR + (dvReserved :unsigned-long) + (dvNumAxes :unsigned-long) + (dvValues :pointer)) + + + + + + + + + +(defcstructex-exported TRIVERTEX + (x :int32) + (y :int32) + (Red :unsigned-short) + (Green :unsigned-short) + (Blue :unsigned-short) + (Alpha :unsigned-short)) + + + + + + + +(defcstructex-exported GRADIENT_TRIANGLE + (Vertex1 :unsigned-long) + (Vertex2 :unsigned-long) + (Vertex3 :unsigned-long)) + + + + + + + +(defcstructex-exported GRADIENT_RECT + (UpperLeft :unsigned-long) + (LowerRight :unsigned-long)) + + + + + + + +(defcstructex-exported DISPLAY_DEVICEA + (cb :unsigned-long) + (DeviceName :pointer) + (DeviceString :pointer) + (StateFlags :unsigned-long) + (DeviceID :pointer) + (DeviceKey :pointer)) + + + + + + + +(defcstructex-exported DISPLAY_DEVICEW + (cb :unsigned-long) + (DeviceName :pointer) + (DeviceString :pointer) + (StateFlags :unsigned-long) + (DeviceID :pointer) + (DeviceKey :pointer)) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +(defcfunex-exported ("ChoosePixelFormat" ChoosePixelFormat :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + + +(defcfunex-exported ("DescribePixelFormat" DescribePixelFormat :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :unsigned-int) + (arg3 :pointer)) + +(defcfunex-exported ("GetAspectRatioFilterEx" GetAspectRatioFilterEx :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetDCOrgEx" GetDCOrgEx :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetDeviceCaps" GetDeviceCaps :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int)) + + +(defcfunex-exported ("GetEnhMetaFilePixelFormat" GetEnhMetaFilePixelFormat :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + + +(defcfunex-exported ("GetPixelFormat" GetPixelFormat :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("GetRandomRgn" GetRandomRgn :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("GetStockObject" GetStockObject :convention :stdcall) :pointer + (arg0 :int)) + +(defcfunex-exported ("SetPixelFormat" SetPixelFormat :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :pointer)) + +(defcfunex-exported ("SwapBuffers" SwapBuffers :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("wglCopyContext" wglCopyContext :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("wglCreateContext" wglCreateContext :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("wglCreateLayerContext" wglCreateLayerContext :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("wglDeleteContext" wglDeleteContext :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("wglDescribeLayerPlane" wglDescribeLayerPlane :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :unsigned-int) + (arg4 :pointer)) + +(defcfunex-exported ("wglGetCurrentContext" wglGetCurrentContext :convention :stdcall) :pointer) + +(defcfunex-exported ("wglGetCurrentDC" wglGetCurrentDC :convention :stdcall) :pointer) + +(defcfunex-exported ("wglGetLayerPaletteEntries" wglGetLayerPaletteEntries :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :int) + (arg4 :pointer)) + +(defcfunex-exported ("wglGetProcAddress" wglGetProcAddress :convention :stdcall) :pointer + (arg0 :string)) + +(defcfunex-exported ("wglMakeCurrent" wglMakeCurrent :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("wglRealizeLayerPalette" wglRealizeLayerPalette :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int)) + +(defcfunex-exported ("wglSetLayerPaletteEntries" wglSetLayerPaletteEntries :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :int) + (arg4 :pointer)) + +(defcfunex-exported ("wglShareLists" wglShareLists :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("wglSwapLayerBuffers" wglSwapLayerBuffers :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int)) + +(defcfunex-exported ("wglUseFontBitmapsA" wglUseFontBitmapsA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :unsigned-long)) + +(defcfunex-exported ("wglUseFontBitmapsW" wglUseFontBitmapsW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :unsigned-long)) + +(defcfunex-exported ("wglUseFontOutlinesA" wglUseFontOutlinesA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :float) + (arg5 :float) + (arg6 :int) + (arg7 :pointer)) + +(defcfunex-exported ("wglUseFontOutlinesW" wglUseFontOutlinesW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :float) + (arg5 :float) + (arg6 :int) + (arg7 :pointer)) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +(defconstant-exported FALT 16) + +(defconstant-exported FCONTROL 8) + +(defconstant-exported FNOINVERT 2) + +(defconstant-exported FSHIFT 4) + +(defconstant-exported FVIRTKEY 1) + +(defconstant-exported ATF_TIMEOUTON 1) + +(defconstant-exported ATF_ONOFFFEEDBACK 2) + +(defconstant-exported ATF_AVAILABLE 4) + +(defconstant-exported WH_MIN -1) + +(defconstant-exported WH_MSGFILTER -1) + +(defconstant-exported WH_JOURNALRECORD 0) + +(defconstant-exported WH_JOURNALPLAYBACK 1) + +(defconstant-exported WH_KEYBOARD 2) + +(defconstant-exported WH_GETMESSAGE 3) + +(defconstant-exported WH_CALLWNDPROC 4) + +(defconstant-exported WH_CBT 5) + +(defconstant-exported WH_SYSMSGFILTER 6) + +(defconstant-exported WH_MOUSE 7) + +(defconstant-exported WH_HARDWARE 8) + +(defconstant-exported WH_DEBUG 9) + +(defconstant-exported WH_SHELL 10) + +(defconstant-exported WH_FOREGROUNDIDLE 11) + +(defconstant-exported WH_CALLWNDPROCRET 12) + +(defconstant-exported WH_KEYBOARD_LL 13) + +(defconstant-exported WH_MOUSE_LL 14) + +(defconstant-exported WH_MAX 14) + +(defconstant-exported WH_MINHOOK -1) + +(defconstant-exported WH_MAXHOOK 14) + +(defconstant-exported HC_ACTION 0) + +(defconstant-exported HC_GETNEXT 1) + +(defconstant-exported HC_SKIP 2) + +(defconstant-exported HC_NOREMOVE 3) + +(defconstant-exported HC_NOREM 3) + +(defconstant-exported HC_SYSMODALON 4) + +(defconstant-exported HC_SYSMODALOFF 5) + +(defconstant-exported HCBT_MOVESIZE 0) + +(defconstant-exported HCBT_MINMAX 1) + +(defconstant-exported HCBT_QS 2) + +(defconstant-exported HCBT_CREATEWND 3) + +(defconstant-exported HCBT_DESTROYWND 4) + +(defconstant-exported HCBT_ACTIVATE 5) + +(defconstant-exported HCBT_CLICKSKIPPED 6) + +(defconstant-exported HCBT_KEYSKIPPED 7) + +(defconstant-exported HCBT_SYSCOMMAND 8) + +(defconstant-exported HCBT_SETFOCUS 9) + +(defconstant-exported CF_TEXT 1) + +(defconstant-exported CF_BITMAP 2) + +(defconstant-exported CF_METAFILEPICT 3) + +(defconstant-exported CF_SYLK 4) + +(defconstant-exported CF_DIF 5) + +(defconstant-exported CF_TIFF 6) + +(defconstant-exported CF_OEMTEXT 7) + +(defconstant-exported CF_DIB 8) + +(defconstant-exported CF_PALETTE 9) + +(defconstant-exported CF_PENDATA 10) + +(defconstant-exported CF_RIFF 11) + +(defconstant-exported CF_WAVE 12) + +(defconstant-exported CF_UNICODETEXT 13) + +(defconstant-exported CF_ENHMETAFILE 14) + +(defconstant-exported CF_HDROP 15) + +(defconstant-exported CF_LOCALE 16) + +(defconstant-exported CF_MAX 17) + +(defconstant-exported CF_OWNERDISPLAY 128) + +(defconstant-exported CF_DSPTEXT 129) + +(defconstant-exported CF_DSPBITMAP 130) + +(defconstant-exported CF_DSPMETAFILEPICT 131) + +(defconstant-exported CF_DSPENHMETAFILE 142) + +(defconstant-exported CF_PRIVATEFIRST 512) + +(defconstant-exported CF_PRIVATELAST 767) + +(defconstant-exported CF_GDIOBJFIRST 768) + +(defconstant-exported CF_GDIOBJLAST 1023) + +(defconstant-exported HKL_NEXT 1) + +(defconstant-exported HKL_PREV 0) + +(defconstant-exported KLF_ACTIVATE 1) + +(defconstant-exported KLF_SUBSTITUTE_OK 2) + +(defconstant-exported KLF_UNLOADPREVIOUS 4) + +(defconstant-exported KLF_REORDER 8) + +(defconstant-exported KLF_REPLACELANG 16) + +(defconstant-exported KLF_NOTELLSHELL 128) + +(defconstant-exported KLF_SETFORPROCESS 256) + +(defconstant-exported KL_NAMELENGTH 9) + +(defconstant-exported MF_ENABLED 0) + +(defconstant-exported MF_GRAYED 1) + +(defconstant-exported MF_DISABLED 2) + +(defconstant-exported MF_BITMAP 4) + +(defconstant-exported MF_CHECKED 8) + +(defconstant-exported MF_MENUBARBREAK 32) + +(defconstant-exported MF_MENUBREAK 64) + +(defconstant-exported MF_OWNERDRAW 256) + +(defconstant-exported MF_POPUP 16) + +(defconstant-exported MF_SEPARATOR #x800) + +(defconstant-exported MF_STRING 0) + +(defconstant-exported MF_UNCHECKED 0) + +(defconstant-exported MF_DEFAULT 4096) + +(defconstant-exported MF_SYSMENU #x2000) + +(defconstant-exported MF_HELP #x4000) + +(defconstant-exported MF_END 128) + +(defconstant-exported MF_RIGHTJUSTIFY #x4000) + +(defconstant-exported MF_MOUSESELECT #x8000) + +(defconstant-exported MF_INSERT 0) + +(defconstant-exported MF_CHANGE 128) + +(defconstant-exported MF_APPEND 256) + +(defconstant-exported MF_DELETE 512) + +(defconstant-exported MF_REMOVE 4096) + +(defconstant-exported MF_USECHECKBITMAPS 512) + +(defconstant-exported MF_UNHILITE 0) + +(defconstant-exported MF_HILITE 128) + +(defconstant-exported BSM_ALLCOMPONENTS 0) + +(defconstant-exported BSM_APPLICATIONS 8) + +(defconstant-exported BSM_ALLDESKTOPS 16) + +(defconstant-exported BSM_INSTALLABLEDRIVERS 4) + +(defconstant-exported BSM_NETDRIVER 2) + +(defconstant-exported BSM_VXDS 1) + +(defconstant-exported BSF_FLUSHDISK #x00000004) + +(defconstant-exported BSF_FORCEIFHUNG #x00000020) + +(defconstant-exported BSF_IGNORECURRENTTASK #x00000002) + +(defconstant-exported BSF_NOHANG #x00000008) + +(defconstant-exported BSF_NOTIMEOUTIFNOTHUNG #x00000040) + +(defconstant-exported BSF_POSTMESSAGE #x00000010) + +(defconstant-exported BSF_QUERY #x00000001) + +(defconstant-exported BROADCAST_QUERY_DENY 1112363332) + +(defconstant-exported CDS_UPDATEREGISTRY 1) + +(defconstant-exported CDS_TEST 2) + +(defconstant-exported CDS_FULLSCREEN 4) + +(defconstant-exported CDS_GLOBAL 8) + +(defconstant-exported CDS_SET_PRIMARY 16) + +(defconstant-exported CDS_RESET #x40000000) + +(defconstant-exported CDS_SETRECT #x20000000) + +(defconstant-exported CDS_NORESET #x10000000) + +(defconstant-exported DISP_CHANGE_SUCCESSFUL 0) + +(defconstant-exported DISP_CHANGE_RESTART 1) + +(defconstant-exported DISP_CHANGE_BADFLAGS -4) + +(defconstant-exported DISP_CHANGE_BADPARAM -5) + +(defconstant-exported DISP_CHANGE_FAILED -1) + +(defconstant-exported DISP_CHANGE_BADMODE -2) + +(defconstant-exported DISP_CHANGE_NOTUPDATED -3) + +(defconstant-exported BST_CHECKED 1) + +(defconstant-exported BST_INDETERMINATE 2) + +(defconstant-exported BST_UNCHECKED 0) + +(defconstant-exported BST_FOCUS 8) + +(defconstant-exported BST_PUSHED 4) + +(defconstant-exported MF_BYCOMMAND 0) + +(defconstant-exported MF_BYPOSITION 1024) + +(defconstant-exported CWP_ALL 0) + +(defconstant-exported CWP_SKIPINVISIBLE 1) + +(defconstant-exported CWP_SKIPDISABLED 2) + +(defconstant-exported CWP_SKIPTRANSPARENT 4) + +(defconstant-exported IMAGE_BITMAP 0) + +(defconstant-exported IMAGE_ICON 1) + +(defconstant-exported IMAGE_CURSOR 2) + +(defconstant-exported IMAGE_ENHMETAFILE 3) + +(defconstant-exported DF_ALLOWOTHERACCOUNTHOOK 1) + +(defconstant-exported DESKTOP_CREATEMENU 4) + +(defconstant-exported DESKTOP_CREATEWINDOW 2) + +(defconstant-exported DESKTOP_ENUMERATE 64) + +(defconstant-exported DESKTOP_HOOKCONTROL 8) + +(defconstant-exported DESKTOP_JOURNALPLAYBACK 32) + +(defconstant-exported DESKTOP_JOURNALRECORD 16) + +(defconstant-exported DESKTOP_READOBJECTS 1) + +(defconstant-exported DESKTOP_SWITCHDESKTOP 256) + +(defconstant-exported DESKTOP_WRITEOBJECTS 128) + +(defconstant-exported CW_USEDEFAULT #x80000000) + +(defconstant-exported WS_BORDER #x800000) + +(defconstant-exported WS_CAPTION #xc00000) + +(defconstant-exported WS_CHILD #x40000000) + +(defconstant-exported WS_CHILDWINDOW #x40000000) + +(defconstant-exported WS_CLIPCHILDREN #x2000000) + +(defconstant-exported WS_CLIPSIBLINGS #x4000000) + +(defconstant-exported WS_DISABLED #x8000000) + +(defconstant-exported WS_DLGFRAME #x400000) + +(defconstant-exported WS_GROUP #x20000) + +(defconstant-exported WS_HSCROLL #x100000) + +(defconstant-exported WS_ICONIC #x20000000) + +(defconstant-exported WS_MAXIMIZE #x1000000) + +(defconstant-exported WS_MAXIMIZEBOX #x10000) + +(defconstant-exported WS_MINIMIZE #x20000000) + +(defconstant-exported WS_MINIMIZEBOX #x20000) + +(defconstant-exported WS_OVERLAPPED 0) + +(defconstant-exported WS_OVERLAPPEDWINDOW #xcf0000) + +(defconstant-exported WS_POPUP #x80000000) + +(defconstant-exported WS_POPUPWINDOW #x80880000) + +(defconstant-exported WS_SIZEBOX #x40000) + +(defconstant-exported WS_SYSMENU #x80000) + +(defconstant-exported WS_TABSTOP #x10000) + +(defconstant-exported WS_THICKFRAME #x40000) + +(defconstant-exported WS_TILED 0) + +(defconstant-exported WS_TILEDWINDOW #xcf0000) + +(defconstant-exported WS_VISIBLE #x10000000) + +(defconstant-exported WS_VSCROLL #x200000) + +(defconstant-exported MDIS_ALLCHILDSTYLES 1) + +(defconstant-exported BS_3STATE 5) + +(defconstant-exported BS_AUTO3STATE 6) + +(defconstant-exported BS_AUTOCHECKBOX 3) + +(defconstant-exported BS_AUTORADIOBUTTON 9) + +(defconstant-exported BS_BITMAP 128) + +(defconstant-exported BS_BOTTOM #x800) + +(defconstant-exported BS_CENTER #x300) + +(defconstant-exported BS_CHECKBOX 2) + +(defconstant-exported BS_DEFPUSHBUTTON 1) + +(defconstant-exported BS_GROUPBOX 7) + +(defconstant-exported BS_ICON 64) + +(defconstant-exported BS_LEFT 256) + +(defconstant-exported BS_LEFTTEXT 32) + +(defconstant-exported BS_MULTILINE #x2000) + +(defconstant-exported BS_NOTIFY #x4000) + +(defconstant-exported BS_OWNERDRAW #xb) + +(defconstant-exported BS_PUSHBUTTON 0) + +(defconstant-exported BS_PUSHLIKE 4096) + +(defconstant-exported BS_RADIOBUTTON 4) + +(defconstant-exported BS_RIGHT 512) + +(defconstant-exported BS_RIGHTBUTTON 32) + +(defconstant-exported BS_TEXT 0) + +(defconstant-exported BS_TOP #x400) + +(defconstant-exported BS_USERBUTTON 8) + +(defconstant-exported BS_VCENTER #xc00) + +(defconstant-exported BS_FLAT #x8000) + +(defconstant-exported CBS_AUTOHSCROLL 64) + +(defconstant-exported CBS_DISABLENOSCROLL #x800) + +(defconstant-exported CBS_DROPDOWN 2) + +(defconstant-exported CBS_DROPDOWNLIST 3) + +(defconstant-exported CBS_HASSTRINGS 512) + +(defconstant-exported CBS_LOWERCASE #x4000) + +(defconstant-exported CBS_NOINTEGRALHEIGHT #x400) + +(defconstant-exported CBS_OEMCONVERT 128) + +(defconstant-exported CBS_OWNERDRAWFIXED 16) + +(defconstant-exported CBS_OWNERDRAWVARIABLE 32) + +(defconstant-exported CBS_SIMPLE 1) + +(defconstant-exported CBS_SORT 256) + +(defconstant-exported CBS_UPPERCASE #x2000) + +(defconstant-exported ES_AUTOHSCROLL 128) + +(defconstant-exported ES_AUTOVSCROLL 64) + +(defconstant-exported ES_CENTER 1) + +(defconstant-exported ES_LEFT 0) + +(defconstant-exported ES_LOWERCASE 16) + +(defconstant-exported ES_MULTILINE 4) + +(defconstant-exported ES_NOHIDESEL 256) + +(defconstant-exported ES_NUMBER #x2000) + +(defconstant-exported ES_OEMCONVERT #x400) + +(defconstant-exported ES_PASSWORD 32) + +(defconstant-exported ES_READONLY #x800) + +(defconstant-exported ES_RIGHT 2) + +(defconstant-exported ES_UPPERCASE 8) + +(defconstant-exported ES_WANTRETURN 4096) + +(defconstant-exported LBS_DISABLENOSCROLL 4096) + +(defconstant-exported LBS_EXTENDEDSEL #x800) + +(defconstant-exported LBS_HASSTRINGS 64) + +(defconstant-exported LBS_MULTICOLUMN 512) + +(defconstant-exported LBS_MULTIPLESEL 8) + +(defconstant-exported LBS_NODATA #x2000) + +(defconstant-exported LBS_NOINTEGRALHEIGHT 256) + +(defconstant-exported LBS_NOREDRAW 4) + +(defconstant-exported LBS_NOSEL #x4000) + +(defconstant-exported LBS_NOTIFY 1) + +(defconstant-exported LBS_OWNERDRAWFIXED 16) + +(defconstant-exported LBS_OWNERDRAWVARIABLE 32) + +(defconstant-exported LBS_SORT 2) + +(defconstant-exported LBS_STANDARD #xa00003) + +(defconstant-exported LBS_USETABSTOPS 128) + +(defconstant-exported LBS_WANTKEYBOARDINPUT #x400) + +(defconstant-exported SBS_BOTTOMALIGN 4) + +(defconstant-exported SBS_HORZ 0) + +(defconstant-exported SBS_LEFTALIGN 2) + +(defconstant-exported SBS_RIGHTALIGN 4) + +(defconstant-exported SBS_SIZEBOX 8) + +(defconstant-exported SBS_SIZEBOXBOTTOMRIGHTALIGN 4) + +(defconstant-exported SBS_SIZEBOXTOPLEFTALIGN 2) + +(defconstant-exported SBS_SIZEGRIP 16) + +(defconstant-exported SBS_TOPALIGN 2) + +(defconstant-exported SBS_VERT 1) + +(defconstant-exported SS_BITMAP 14) + +(defconstant-exported SS_BLACKFRAME 7) + +(defconstant-exported SS_BLACKRECT 4) + +(defconstant-exported SS_CENTER 1) + +(defconstant-exported SS_CENTERIMAGE 512) + +(defconstant-exported SS_ENHMETAFILE 15) + +(defconstant-exported SS_ETCHEDFRAME 18) + +(defconstant-exported SS_ETCHEDHORZ 16) + +(defconstant-exported SS_ETCHEDVERT 17) + +(defconstant-exported SS_GRAYFRAME 8) + +(defconstant-exported SS_GRAYRECT 5) + +(defconstant-exported SS_ICON 3) + +(defconstant-exported SS_LEFT 0) + +(defconstant-exported SS_LEFTNOWORDWRAP #xc) + +(defconstant-exported SS_NOPREFIX 128) + +(defconstant-exported SS_NOTIFY 256) + +(defconstant-exported SS_OWNERDRAW #xd) + +(defconstant-exported SS_REALSIZEIMAGE #x800) + +(defconstant-exported SS_RIGHT 2) + +(defconstant-exported SS_RIGHTJUST #x400) + +(defconstant-exported SS_SIMPLE 11) + +(defconstant-exported SS_SUNKEN 4096) + +(defconstant-exported SS_WHITEFRAME 9) + +(defconstant-exported SS_WHITERECT 6) + +(defconstant-exported SS_USERITEM 10) + +#| +Windows 2000: A composite style bit that results from using the OR operator on SS_* style bits. Can be used to mask out valid SS_* bits from a given bitmask. Note that this is out of date and does not correctly include all valid styles. Thus, you should not use this style. + +(defconstant-exported SS_TYPEMASK #x0000001FL) +|# +(defconstant-exported SS_ENDELLIPSIS #x00004000) + +(defconstant-exported SS_PATHELLIPSIS #x00008000) + +(defconstant-exported SS_WORDELLIPSIS #x0000C000) + +(defconstant-exported SS_ELLIPSISMASK #x0000C000) + +(defconstant-exported DS_3DLOOK 4) + +(defconstant-exported DS_ABSALIGN 1) + +(defconstant-exported DS_CENTER #x800) + +(defconstant-exported DS_CENTERMOUSE 4096) + +(defconstant-exported DS_CONTEXTHELP #x2000) + +(defconstant-exported DS_CONTROL #x400) + +(defconstant-exported DS_FIXEDSYS 8) + +(defconstant-exported DS_LOCALEDIT 32) + +(defconstant-exported DS_MODALFRAME 128) + +(defconstant-exported DS_NOFAILCREATE 16) + +(defconstant-exported DS_NOIDLEMSG 256) + +(defconstant-exported DS_SETFONT 64) + +(defconstant-exported DS_SETFOREGROUND 512) + +(defconstant-exported DS_SYSMODAL 2) + +(defconstant-exported DS_SHELLFONT (cl:logior 64 8)) + +(defconstant-exported WS_EX_ACCEPTFILES 16) + +(defconstant-exported WS_EX_APPWINDOW #x40000) + +(defconstant-exported WS_EX_CLIENTEDGE 512) + +(defconstant-exported WS_EX_COMPOSITED #x2000000) + +(defconstant-exported WS_EX_CONTEXTHELP #x400) + +(defconstant-exported WS_EX_CONTROLPARENT #x10000) + +(defconstant-exported WS_EX_DLGMODALFRAME 1) + +(defconstant-exported WS_EX_LAYERED #x80000) + +(defconstant-exported WS_EX_LAYOUTRTL #x400000) + +(defconstant-exported WS_EX_LEFT 0) + +(defconstant-exported WS_EX_LEFTSCROLLBAR #x4000) + +(defconstant-exported WS_EX_LTRREADING 0) + +(defconstant-exported WS_EX_MDICHILD 64) + +(defconstant-exported WS_EX_NOACTIVATE #x8000000) + +(defconstant-exported WS_EX_NOINHERITLAYOUT #x100000) + +(defconstant-exported WS_EX_NOPARENTNOTIFY 4) + +(defconstant-exported WS_EX_OVERLAPPEDWINDOW #x300) + +(defconstant-exported WS_EX_PALETTEWINDOW #x188) + +(defconstant-exported WS_EX_RIGHT #x1000) + +(defconstant-exported WS_EX_RIGHTSCROLLBAR 0) + +(defconstant-exported WS_EX_RTLREADING #x2000) + +(defconstant-exported WS_EX_STATICEDGE #x20000) + +(defconstant-exported WS_EX_TOOLWINDOW 128) + +(defconstant-exported WS_EX_TOPMOST 8) + +(defconstant-exported WS_EX_TRANSPARENT 32) + +(defconstant-exported WS_EX_WINDOWEDGE 256) + +(defconstant-exported WINSTA_ACCESSCLIPBOARD 4) + +(defconstant-exported WINSTA_ACCESSGLOBALATOMS 32) + +(defconstant-exported WINSTA_CREATEDESKTOP 8) + +(defconstant-exported WINSTA_ENUMDESKTOPS 1) + +(defconstant-exported WINSTA_ENUMERATE 256) + +(defconstant-exported WINSTA_EXITWINDOWS 64) + +(defconstant-exported WINSTA_READATTRIBUTES 2) + +(defconstant-exported WINSTA_READSCREEN 512) + +(defconstant-exported WINSTA_WRITEATTRIBUTES 16) + +(defconstant-exported DDL_READWRITE 0) + +(defconstant-exported DDL_READONLY 1) + +(defconstant-exported DDL_HIDDEN 2) + +(defconstant-exported DDL_SYSTEM 4) + +(defconstant-exported DDL_DIRECTORY 16) + +(defconstant-exported DDL_ARCHIVE 32) + +(defconstant-exported DDL_POSTMSGS 8192) + +(defconstant-exported DDL_DRIVES 16384) + +(defconstant-exported DDL_EXCLUSIVE 32768) + +(defconstant-exported DC_ACTIVE #x00000001) + +(defconstant-exported DC_SMALLCAP #x00000002) + +(defconstant-exported DC_ICON #x00000004) + +(defconstant-exported DC_TEXT #x00000008) + +(defconstant-exported DC_INBUTTON #x00000010) + +(defconstant-exported BDR_RAISEDOUTER 1) + +(defconstant-exported BDR_SUNKENOUTER 2) + +(defconstant-exported BDR_RAISEDINNER 4) + +(defconstant-exported BDR_SUNKENINNER 8) + +(defconstant-exported BDR_OUTER 3) + +(defconstant-exported BDR_INNER #xc) + +(defconstant-exported BDR_RAISED 5) + +(defconstant-exported BDR_SUNKEN 10) + +(defconstant-exported EDGE_RAISED (cl:logior 1 4)) + +(defconstant-exported EDGE_SUNKEN (cl:logior 2 8)) + +(defconstant-exported EDGE_ETCHED (cl:logior 2 4)) + +(defconstant-exported EDGE_BUMP (cl:logior 1 8)) + +(defconstant-exported BF_LEFT 1) + +(defconstant-exported BF_TOP 2) + +(defconstant-exported BF_RIGHT 4) + +(defconstant-exported BF_BOTTOM 8) + +(defconstant-exported BF_TOPLEFT (cl:logior 2 1)) + +(defconstant-exported BF_TOPRIGHT (cl:logior 2 4)) + +(defconstant-exported BF_BOTTOMLEFT (cl:logior 8 1)) + +(defconstant-exported BF_BOTTOMRIGHT (cl:logior 8 4)) + +(defconstant-exported BF_RECT (cl:logior 1 2 4 8)) + +(defconstant-exported BF_DIAGONAL 16) + +(defconstant-exported BF_DIAGONAL_ENDTOPRIGHT (cl:logior 16 2 4)) + +(defconstant-exported BF_DIAGONAL_ENDTOPLEFT (cl:logior 16 2 1)) + +(defconstant-exported BF_DIAGONAL_ENDBOTTOMLEFT (cl:logior 16 8 1)) + +(defconstant-exported BF_DIAGONAL_ENDBOTTOMRIGHT (cl:logior 16 8 4)) + +(defconstant-exported BF_MIDDLE #x800) + +(defconstant-exported BF_SOFT #x1000) + +(defconstant-exported BF_ADJUST #x2000) + +(defconstant-exported BF_FLAT #x4000) + +(defconstant-exported BF_MONO #x8000) + +(defconstant-exported DFC_CAPTION 1) + +(defconstant-exported DFC_MENU 2) + +(defconstant-exported DFC_SCROLL 3) + +(defconstant-exported DFC_BUTTON 4) + +(defconstant-exported DFCS_CAPTIONCLOSE 0) + +(defconstant-exported DFCS_CAPTIONMIN 1) + +(defconstant-exported DFCS_CAPTIONMAX 2) + +(defconstant-exported DFCS_CAPTIONRESTORE 3) + +(defconstant-exported DFCS_CAPTIONHELP 4) + +(defconstant-exported DFCS_MENUARROW 0) + +(defconstant-exported DFCS_MENUCHECK 1) + +(defconstant-exported DFCS_MENUBULLET 2) + +(defconstant-exported DFCS_MENUARROWRIGHT 4) + +(defconstant-exported DFCS_SCROLLUP 0) + +(defconstant-exported DFCS_SCROLLDOWN 1) + +(defconstant-exported DFCS_SCROLLLEFT 2) + +(defconstant-exported DFCS_SCROLLRIGHT 3) + +(defconstant-exported DFCS_SCROLLCOMBOBOX 5) + +(defconstant-exported DFCS_SCROLLSIZEGRIP 8) + +(defconstant-exported DFCS_SCROLLSIZEGRIPRIGHT 16) + +(defconstant-exported DFCS_BUTTONCHECK 0) + +(defconstant-exported DFCS_BUTTONRADIOIMAGE 1) + +(defconstant-exported DFCS_BUTTONRADIOMASK 2) + +(defconstant-exported DFCS_BUTTONRADIO 4) + +(defconstant-exported DFCS_BUTTON3STATE 8) + +(defconstant-exported DFCS_BUTTONPUSH 16) + +(defconstant-exported DFCS_INACTIVE 256) + +(defconstant-exported DFCS_PUSHED 512) + +(defconstant-exported DFCS_CHECKED 1024) + +(defconstant-exported DFCS_ADJUSTRECT #x2000) + +(defconstant-exported DFCS_FLAT #x4000) + +(defconstant-exported DFCS_MONO #x8000) + +(defconstant-exported DST_COMPLEX 0) + +(defconstant-exported DST_TEXT 1) + +(defconstant-exported DST_PREFIXTEXT 2) + +(defconstant-exported DST_ICON 3) + +(defconstant-exported DST_BITMAP 4) + +(defconstant-exported DSS_NORMAL 0) + +(defconstant-exported DSS_UNION 16) + +(defconstant-exported DSS_DISABLED 32) + +(defconstant-exported DSS_MONO 128) + +(defconstant-exported DSS_RIGHT #x8000) + +(defconstant-exported WB_ISDELIMITER 2) + +(defconstant-exported WB_LEFT 0) + +(defconstant-exported WB_RIGHT 1) + +(defconstant-exported SB_HORZ 0) + +(defconstant-exported SB_VERT 1) + +(defconstant-exported SB_CTL 2) + +(defconstant-exported SB_BOTH 3) + +(defconstant-exported ESB_DISABLE_BOTH 3) + +(defconstant-exported ESB_DISABLE_DOWN 2) + +(defconstant-exported ESB_DISABLE_LEFT 1) + +(defconstant-exported ESB_DISABLE_LTUP 1) + +(defconstant-exported ESB_DISABLE_RIGHT 2) + +(defconstant-exported ESB_DISABLE_RTDN 2) + +(defconstant-exported ESB_DISABLE_UP 1) + +(defconstant-exported ESB_ENABLE_BOTH 0) + +(defconstant-exported SB_LINEUP 0) + +(defconstant-exported SB_LINEDOWN 1) + +(defconstant-exported SB_LINELEFT 0) + +(defconstant-exported SB_LINERIGHT 1) + +(defconstant-exported SB_PAGEUP 2) + +(defconstant-exported SB_PAGEDOWN 3) + +(defconstant-exported SB_PAGELEFT 2) + +(defconstant-exported SB_PAGERIGHT 3) + +(defconstant-exported SB_THUMBPOSITION 4) + +(defconstant-exported SB_THUMBTRACK 5) + +(defconstant-exported SB_ENDSCROLL 8) + +(defconstant-exported SB_LEFT 6) + +(defconstant-exported SB_RIGHT 7) + +(defconstant-exported SB_BOTTOM 7) + +(defconstant-exported SB_TOP 6) + +(defconstant-exported DIFFERENCE 11) + +(defconstant-exported EWX_FORCE 4) + +(defconstant-exported EWX_LOGOFF 0) + +(defconstant-exported EWX_POWEROFF 8) + +(defconstant-exported EWX_REBOOT 2) + +(defconstant-exported EWX_SHUTDOWN 1) + +(defconstant-exported GCW_ATOM -32) + +(defconstant-exported GCL_CBCLSEXTRA -20) + +(defconstant-exported GCL_CBWNDEXTRA -18) + +(defconstant-exported GCL_HBRBACKGROUND -10) + +(defconstant-exported GCL_HCURSOR -12) + +(defconstant-exported GCL_HICON -14) + +(defconstant-exported GCL_HICONSM -34) + +(defconstant-exported GCL_HMODULE -16) + +(defconstant-exported GCL_MENUNAME -8) + +(defconstant-exported GCL_STYLE -26) + +(defconstant-exported GCL_WNDPROC -24) + +(defconstant-exported MIIM_STATE 1) + +(defconstant-exported MIIM_ID 2) + +(defconstant-exported MIIM_SUBMENU 4) + +(defconstant-exported MIIM_CHECKMARKS 8) + +(defconstant-exported MIIM_TYPE 16) + +(defconstant-exported MIIM_DATA 32) + +(defconstant-exported MIIM_STRING 64) + +(defconstant-exported MIIM_BITMAP 128) + +(defconstant-exported MIIM_FTYPE 256) + +(defconstant-exported MFT_BITMAP 4) + +(defconstant-exported MFT_MENUBARBREAK 32) + +(defconstant-exported MFT_MENUBREAK 64) + +(defconstant-exported MFT_OWNERDRAW 256) + +(defconstant-exported MFT_RADIOCHECK 512) + +(defconstant-exported MFT_RIGHTJUSTIFY #x4000) + +(defconstant-exported MFT_SEPARATOR #x800) + +(defconstant-exported MFT_RIGHTORDER #x2000) + +(defconstant-exported MFT_STRING 0) + +(defconstant-exported MFS_CHECKED 8) + +(defconstant-exported MFS_DEFAULT 4096) + +(defconstant-exported MFS_DISABLED 3) + +(defconstant-exported MFS_ENABLED 0) + +(defconstant-exported MFS_GRAYED 3) + +(defconstant-exported MFS_HILITE 128) + +(defconstant-exported MFS_UNCHECKED 0) + +(defconstant-exported MFS_UNHILITE 0) + +(defconstant-exported GW_HWNDNEXT 2) + +(defconstant-exported GW_HWNDPREV 3) + +(defconstant-exported GW_CHILD 5) + +(defconstant-exported GW_HWNDFIRST 0) + +(defconstant-exported GW_HWNDLAST 1) + +(defconstant-exported GW_OWNER 4) + +(defconstant-exported GWL_EXSTYLE -20) + +(defconstant-exported GWL_STYLE -16) + +(defconstant-exported GWL_WNDPROC -4) + +(defconstant-exported GWLP_WNDPROC -4) + +(defconstant-exported GWL_HINSTANCE -6) + +(defconstant-exported GWLP_HINSTANCE -6) + +(defconstant-exported GWL_HWNDPARENT -8) + +(defconstant-exported GWLP_HWNDPARENT -8) + +(defconstant-exported GWL_ID -12) + +(defconstant-exported GWLP_ID -12) + +(defconstant-exported GWL_USERDATA -21) + +(defconstant-exported GWLP_USERDATA -21) + +(defconstant-exported DWL_DLGPROC 4) + +(defconstant-exported DWLP_DLGPROC 4) + +(defconstant-exported DWL_MSGRESULT 0) + +(defconstant-exported DWLP_MSGRESULT 0) + +(defconstant-exported DWL_USER 8) + +(defconstant-exported DWLP_USER 8) + +(defconstant-exported QS_ALLEVENTS 191) + +(defconstant-exported QS_ALLINPUT 255) + +(defconstant-exported QS_ALLPOSTMESSAGE 256) + +(defconstant-exported QS_HOTKEY 128) + +(defconstant-exported QS_INPUT 7) + +(defconstant-exported QS_KEY 1) + +(defconstant-exported QS_MOUSE 6) + +(defconstant-exported QS_MOUSEBUTTON 4) + +(defconstant-exported QS_MOUSEMOVE 2) + +(defconstant-exported QS_PAINT 32) + +(defconstant-exported QS_POSTMESSAGE 8) + +(defconstant-exported QS_SENDMESSAGE 64) + +(defconstant-exported QS_TIMER 16) + +(defconstant-exported MWMO_WAITALL 1) + +(defconstant-exported MWMO_ALERTABLE 2) + +(defconstant-exported MWMO_INPUTAVAILABLE 4) + +(defconstant-exported CTLCOLOR_MSGBOX 0) + +(defconstant-exported CTLCOLOR_EDIT 1) + +(defconstant-exported CTLCOLOR_LISTBOX 2) + +(defconstant-exported CTLCOLOR_BTN 3) + +(defconstant-exported CTLCOLOR_DLG 4) + +(defconstant-exported CTLCOLOR_SCROLLBAR 5) + +(defconstant-exported CTLCOLOR_STATIC 6) + +(defconstant-exported CTLCOLOR_MAX 7) + +(defconstant-exported SM_CXSCREEN 0) + +(defconstant-exported SM_CYSCREEN 1) + +(defconstant-exported SM_CXVSCROLL 2) + +(defconstant-exported SM_CYHSCROLL 3) + +(defconstant-exported SM_CYCAPTION 4) + +(defconstant-exported SM_CXBORDER 5) + +(defconstant-exported SM_CYBORDER 6) + +(defconstant-exported SM_CXDLGFRAME 7) + +(defconstant-exported SM_CXFIXEDFRAME 7) + +(defconstant-exported SM_CYDLGFRAME 8) + +(defconstant-exported SM_CYFIXEDFRAME 8) + +(defconstant-exported SM_CYVTHUMB 9) + +(defconstant-exported SM_CXHTHUMB 10) + +(defconstant-exported SM_CXICON 11) + +(defconstant-exported SM_CYICON 12) + +(defconstant-exported SM_CXCURSOR 13) + +(defconstant-exported SM_CYCURSOR 14) + +(defconstant-exported SM_CYMENU 15) + +(defconstant-exported SM_CXFULLSCREEN 16) + +(defconstant-exported SM_CYFULLSCREEN 17) + +(defconstant-exported SM_CYKANJIWINDOW 18) + +(defconstant-exported SM_MOUSEPRESENT 19) + +(defconstant-exported SM_CYVSCROLL 20) + +(defconstant-exported SM_CXHSCROLL 21) + +(defconstant-exported SM_DEBUG 22) + +(defconstant-exported SM_SWAPBUTTON 23) + +(defconstant-exported SM_RESERVED1 24) + +(defconstant-exported SM_RESERVED2 25) + +(defconstant-exported SM_RESERVED3 26) + +(defconstant-exported SM_RESERVED4 27) + +(defconstant-exported SM_CXMIN 28) + +(defconstant-exported SM_CYMIN 29) + +(defconstant-exported SM_CXSIZE 30) + +(defconstant-exported SM_CYSIZE 31) + +(defconstant-exported SM_CXSIZEFRAME 32) + +(defconstant-exported SM_CXFRAME 32) + +(defconstant-exported SM_CYSIZEFRAME 33) + +(defconstant-exported SM_CYFRAME 33) + +(defconstant-exported SM_CXMINTRACK 34) + +(defconstant-exported SM_CYMINTRACK 35) + +(defconstant-exported SM_CXDOUBLECLK 36) + +(defconstant-exported SM_CYDOUBLECLK 37) + +(defconstant-exported SM_CXICONSPACING 38) + +(defconstant-exported SM_CYICONSPACING 39) + +(defconstant-exported SM_MENUDROPALIGNMENT 40) + +(defconstant-exported SM_PENWINDOWS 41) + +(defconstant-exported SM_DBCSENABLED 42) + +(defconstant-exported SM_CMOUSEBUTTONS 43) + +(defconstant-exported SM_SECURE 44) + +(defconstant-exported SM_CXEDGE 45) + +(defconstant-exported SM_CYEDGE 46) + +(defconstant-exported SM_CXMINSPACING 47) + +(defconstant-exported SM_CYMINSPACING 48) + +(defconstant-exported SM_CXSMICON 49) + +(defconstant-exported SM_CYSMICON 50) + +(defconstant-exported SM_CYSMCAPTION 51) + +(defconstant-exported SM_CXSMSIZE 52) + +(defconstant-exported SM_CYSMSIZE 53) + +(defconstant-exported SM_CXMENUSIZE 54) + +(defconstant-exported SM_CYMENUSIZE 55) + +(defconstant-exported SM_ARRANGE 56) + +(defconstant-exported SM_CXMINIMIZED 57) + +(defconstant-exported SM_CYMINIMIZED 58) + +(defconstant-exported SM_CXMAXTRACK 59) + +(defconstant-exported SM_CYMAXTRACK 60) + +(defconstant-exported SM_CXMAXIMIZED 61) + +(defconstant-exported SM_CYMAXIMIZED 62) + +(defconstant-exported SM_NETWORK 63) + +(defconstant-exported LR_DEFAULTSIZE 64) + +(defconstant-exported SM_CLEANBOOT 67) + +(defconstant-exported SM_CXDRAG 68) + +(defconstant-exported SM_CYDRAG 69) + +(defconstant-exported SM_SHOWSOUNDS 70) + +(defconstant-exported SM_CXMENUCHECK 71) + +(defconstant-exported SM_CYMENUCHECK 72) + +(defconstant-exported SM_SLOWMACHINE 73) + +(defconstant-exported SM_MIDEASTENABLED 74) + +(defconstant-exported SM_MOUSEWHEELPRESENT 75) + +(defconstant-exported SM_XVIRTUALSCREEN 76) + +(defconstant-exported SM_YVIRTUALSCREEN 77) + +(defconstant-exported SM_CXVIRTUALSCREEN 78) + +(defconstant-exported SM_CYVIRTUALSCREEN 79) + +(defconstant-exported SM_CMONITORS 80) + +(defconstant-exported SM_SAMEDISPLAYFORMAT 81) + +(defconstant-exported SM_IMMENABLED 82) + +(defconstant-exported SM_CXFOCUSBORDER 83) + +(defconstant-exported SM_CYFOCUSBORDER 84) + +(defconstant-exported SM_TABLETPC 86) + +(defconstant-exported SM_MEDIACENTER 87) + +(defconstant-exported SM_CMETRICS 88) + +(defconstant-exported SM_REMOTESESSION #x1000) + +(defconstant-exported ARW_BOTTOMLEFT 0) + +(defconstant-exported ARW_BOTTOMRIGHT 1) + +(defconstant-exported ARW_HIDE 8) + +(defconstant-exported ARW_TOPLEFT 2) + +(defconstant-exported ARW_TOPRIGHT 3) + +(defconstant-exported ARW_DOWN 4) + +(defconstant-exported ARW_LEFT 0) + +(defconstant-exported ARW_RIGHT 0) + +(defconstant-exported ARW_UP 4) + +(defconstant-exported UOI_FLAGS 1) + +(defconstant-exported UOI_NAME 2) + +(defconstant-exported UOI_TYPE 3) + +(defconstant-exported UOI_USER_SID 4) + +(defconstant-exported LR_DEFAULTCOLOR 0) + +(defconstant-exported LR_MONOCHROME 1) + +(defconstant-exported LR_COLOR 2) + +(defconstant-exported LR_COPYRETURNORG 4) + +(defconstant-exported LR_COPYDELETEORG 8) + +(defconstant-exported LR_LOADFROMFILE 16) + +(defconstant-exported LR_LOADTRANSPARENT 32) + +(defconstant-exported LR_LOADREALSIZE 128) + +(defconstant-exported LR_LOADMAP3DCOLORS 4096) + +(defconstant-exported LR_CREATEDIBSECTION 8192) + +(defconstant-exported LR_COPYFROMRESOURCE #x4000) + +(defconstant-exported LR_SHARED 32768) + +(defconstant-exported KEYEVENTF_EXTENDEDKEY #x00000001) + +(defconstant-exported KEYEVENTF_KEYUP #o0000002) + +(defconstant-exported OBM_BTNCORNERS 32758) + +(defconstant-exported OBM_BTSIZE 32761) + +(defconstant-exported OBM_CHECK 32760) + +(defconstant-exported OBM_CHECKBOXES 32759) + +(defconstant-exported OBM_CLOSE 32754) + +(defconstant-exported OBM_COMBO 32738) + +(defconstant-exported OBM_DNARROW 32752) + +(defconstant-exported OBM_DNARROWD 32742) + +(defconstant-exported OBM_DNARROWI 32736) + +(defconstant-exported OBM_LFARROW 32750) + +(defconstant-exported OBM_LFARROWI 32734) + +(defconstant-exported OBM_LFARROWD 32740) + +(defconstant-exported OBM_MNARROW 32739) + +(defconstant-exported OBM_OLD_CLOSE 32767) + +(defconstant-exported OBM_OLD_DNARROW 32764) + +(defconstant-exported OBM_OLD_LFARROW 32762) + +(defconstant-exported OBM_OLD_REDUCE 32757) + +(defconstant-exported OBM_OLD_RESTORE 32755) + +(defconstant-exported OBM_OLD_RGARROW 32763) + +(defconstant-exported OBM_OLD_UPARROW 32765) + +(defconstant-exported OBM_OLD_ZOOM 32756) + +(defconstant-exported OBM_REDUCE 32749) + +(defconstant-exported OBM_REDUCED 32746) + +(defconstant-exported OBM_RESTORE 32747) + +(defconstant-exported OBM_RESTORED 32744) + +(defconstant-exported OBM_RGARROW 32751) + +(defconstant-exported OBM_RGARROWD 32741) + +(defconstant-exported OBM_RGARROWI 32735) + +(defconstant-exported OBM_SIZE 32766) + +(defconstant-exported OBM_UPARROW 32753) + +(defconstant-exported OBM_UPARROWD 32743) + +(defconstant-exported OBM_UPARROWI 32737) + +(defconstant-exported OBM_ZOOM 32748) + +(defconstant-exported OBM_ZOOMD 32745) + +(defconstant-exported OCR_NORMAL 32512) + +(defconstant-exported OCR_IBEAM 32513) + +(defconstant-exported OCR_WAIT 32514) + +(defconstant-exported OCR_CROSS 32515) + +(defconstant-exported OCR_UP 32516) + +(defconstant-exported OCR_SIZE 32640) + +(defconstant-exported OCR_ICON 32641) + +(defconstant-exported OCR_SIZENWSE 32642) + +(defconstant-exported OCR_SIZENESW 32643) + +(defconstant-exported OCR_SIZEWE 32644) + +(defconstant-exported OCR_SIZENS 32645) + +(defconstant-exported OCR_SIZEALL 32646) + +(defconstant-exported OCR_NO 32648) + +(defconstant-exported OCR_APPSTARTING 32650) + +(defconstant-exported OIC_SAMPLE 32512) + +(defconstant-exported OIC_HAND 32513) + +(defconstant-exported OIC_QUES 32514) + +(defconstant-exported OIC_BANG 32515) + +(defconstant-exported OIC_NOTE 32516) + +(defconstant-exported OIC_WINLOGO 32517) + +(defconstant-exported OIC_WARNING 32515) + +(defconstant-exported OIC_ERROR 32513) + +(defconstant-exported OIC_INFORMATION 32516) + +(defconstant-exported HELPINFO_MENUITEM 2) + +(defconstant-exported HELPINFO_WINDOW 1) + +(defconstant-exported MSGF_DIALOGBOX 0) + +(defconstant-exported MSGF_MESSAGEBOX 1) + +(defconstant-exported MSGF_MENU 2) + +(defconstant-exported MSGF_MOVE 3) + +(defconstant-exported MSGF_SIZE 4) + +(defconstant-exported MSGF_SCROLLBAR 5) + +(defconstant-exported MSGF_NEXTWINDOW 6) + +(defconstant-exported MSGF_MAINLOOP 8) + +(defconstant-exported MSGF_USER 4096) + +(defconstant-exported MOUSEEVENTF_MOVE 1) + +(defconstant-exported MOUSEEVENTF_LEFTDOWN 2) + +(defconstant-exported MOUSEEVENTF_LEFTUP 4) + +(defconstant-exported MOUSEEVENTF_RIGHTDOWN 8) + +(defconstant-exported MOUSEEVENTF_RIGHTUP 16) + +(defconstant-exported MOUSEEVENTF_MIDDLEDOWN 32) + +(defconstant-exported MOUSEEVENTF_MIDDLEUP 64) + +(defconstant-exported MOUSEEVENTF_WHEEL #x0800) + +(defconstant-exported MOUSEEVENTF_ABSOLUTE 32768) + +(defconstant-exported PM_NOREMOVE 0) + +(defconstant-exported PM_REMOVE 1) + +(defconstant-exported PM_NOYIELD 2) + +(defconstant-exported RDW_ERASE 4) + +(defconstant-exported RDW_FRAME 1024) + +(defconstant-exported RDW_INTERNALPAINT 2) + +(defconstant-exported RDW_INVALIDATE 1) + +(defconstant-exported RDW_NOERASE 32) + +(defconstant-exported RDW_NOFRAME 2048) + +(defconstant-exported RDW_NOINTERNALPAINT 16) + +(defconstant-exported RDW_VALIDATE 8) + +(defconstant-exported RDW_ERASENOW 512) + +(defconstant-exported RDW_UPDATENOW 256) + +(defconstant-exported RDW_ALLCHILDREN 128) + +(defconstant-exported RDW_NOCHILDREN 64) + +(defconstant-exported SMTO_ABORTIFHUNG 2) + +(defconstant-exported SMTO_BLOCK 1) + +(defconstant-exported SMTO_NORMAL 0) + +(defconstant-exported SIF_ALL 23) + +(defconstant-exported SIF_PAGE 2) + +(defconstant-exported SIF_POS 4) + +(defconstant-exported SIF_RANGE 1) + +(defconstant-exported SIF_DISABLENOSCROLL 8) + +(defconstant-exported SIF_TRACKPOS 16) + +(defconstant-exported SWP_DRAWFRAME 32) + +(defconstant-exported SWP_FRAMECHANGED 32) + +(defconstant-exported SWP_HIDEWINDOW 128) + +(defconstant-exported SWP_NOACTIVATE 16) + +(defconstant-exported SWP_NOCOPYBITS 256) + +(defconstant-exported SWP_NOMOVE 2) + +(defconstant-exported SWP_NOSIZE 1) + +(defconstant-exported SWP_NOREDRAW 8) + +(defconstant-exported SWP_NOZORDER 4) + +(defconstant-exported SWP_SHOWWINDOW 64) + +(defconstant-exported SWP_NOOWNERZORDER 512) + +(defconstant-exported SWP_NOREPOSITION 512) + +(defconstant-exported SWP_NOSENDCHANGING 1024) + +(defconstant-exported SWP_DEFERERASE 8192) + +(defconstant-exported SWP_ASYNCWINDOWPOS 16384) + +(defconstant-exported HSHELL_ACTIVATESHELLWINDOW 3) + +(defconstant-exported HSHELL_GETMINRECT 5) + +(defconstant-exported HSHELL_LANGUAGE 8) + +(defconstant-exported HSHELL_REDRAW 6) + +(defconstant-exported HSHELL_TASKMAN 7) + +(defconstant-exported HSHELL_WINDOWACTIVATED 4) + +(defconstant-exported HSHELL_WINDOWCREATED 1) + +(defconstant-exported HSHELL_WINDOWDESTROYED 2) + +(defconstant-exported HSHELL_RUDEAPPACTIVATED 32772) + +(defconstant-exported HSHELL_FLASH 32774) + +(defconstant-exported SPI_GETACCESSTIMEOUT 60) + +(defconstant-exported SPI_GETACTIVEWNDTRKTIMEOUT 8194) + +(defconstant-exported SPI_GETANIMATION 72) + +(defconstant-exported SPI_GETBEEP 1) + +(defconstant-exported SPI_GETBORDER 5) + +(defconstant-exported SPI_GETDEFAULTINPUTLANG 89) + +(defconstant-exported SPI_GETDRAGFULLWINDOWS 38) + +(defconstant-exported SPI_GETFASTTASKSWITCH 35) + +(defconstant-exported SPI_GETFILTERKEYS 50) + +(defconstant-exported SPI_GETFONTSMOOTHING 74) + +(defconstant-exported SPI_GETGRIDGRANULARITY 18) + +(defconstant-exported SPI_GETHIGHCONTRAST 66) + +(defconstant-exported SPI_GETICONMETRICS 45) + +(defconstant-exported SPI_GETICONTITLELOGFONT 31) + +(defconstant-exported SPI_GETICONTITLEWRAP 25) + +(defconstant-exported SPI_GETKEYBOARDDELAY 22) + +(defconstant-exported SPI_GETKEYBOARDPREF 68) + +(defconstant-exported SPI_GETKEYBOARDSPEED 10) + +(defconstant-exported SPI_GETLOWPOWERACTIVE 83) + +(defconstant-exported SPI_GETLOWPOWERTIMEOUT 79) + +(defconstant-exported SPI_GETMENUDROPALIGNMENT 27) + +(defconstant-exported SPI_GETMINIMIZEDMETRICS 43) + +(defconstant-exported SPI_GETMOUSE 3) + +(defconstant-exported SPI_GETMOUSEKEYS 54) + +(defconstant-exported SPI_GETMOUSETRAILS 94) + +(defconstant-exported SPI_GETNONCLIENTMETRICS 41) + +(defconstant-exported SPI_GETPOWEROFFACTIVE 84) + +(defconstant-exported SPI_GETPOWEROFFTIMEOUT 80) + +(defconstant-exported SPI_GETSCREENREADER 70) + +(defconstant-exported SPI_GETSCREENSAVEACTIVE 16) + +(defconstant-exported SPI_GETSCREENSAVETIMEOUT 14) + +(defconstant-exported SPI_GETSERIALKEYS 62) + +(defconstant-exported SPI_GETSHOWSOUNDS 56) + +(defconstant-exported SPI_GETSOUNDSENTRY 64) + +(defconstant-exported SPI_GETSTICKYKEYS 58) + +(defconstant-exported SPI_GETTOGGLEKEYS 52) + +(defconstant-exported SPI_GETWHEELSCROLLLINES 104) + +(defconstant-exported SPI_GETWINDOWSEXTENSION 92) + +(defconstant-exported SPI_GETWORKAREA 48) + +(defconstant-exported SPI_ICONHORIZONTALSPACING 13) + +(defconstant-exported SPI_ICONVERTICALSPACING 24) + +(defconstant-exported SPI_LANGDRIVER 12) + +(defconstant-exported SPI_SCREENSAVERRUNNING 97) + +(defconstant-exported SPI_SETACCESSTIMEOUT 61) + +(defconstant-exported SPI_SETACTIVEWNDTRKTIMEOUT 8195) + +(defconstant-exported SPI_SETANIMATION 73) + +(defconstant-exported SPI_SETBEEP 2) + +(defconstant-exported SPI_SETBORDER 6) + +(defconstant-exported SPI_SETDEFAULTINPUTLANG 90) + +(defconstant-exported SPI_SETDESKPATTERN 21) + +(defconstant-exported SPI_SETDESKWALLPAPER 20) + +(defconstant-exported SPI_SETDOUBLECLICKTIME 32) + +(defconstant-exported SPI_SETDOUBLECLKHEIGHT 30) + +(defconstant-exported SPI_SETDOUBLECLKWIDTH 29) + +(defconstant-exported SPI_SETDRAGFULLWINDOWS 37) + +(defconstant-exported SPI_SETDRAGHEIGHT 77) + +(defconstant-exported SPI_SETDRAGWIDTH 76) + +(defconstant-exported SPI_SETFASTTASKSWITCH 36) + +(defconstant-exported SPI_SETFILTERKEYS 51) + +(defconstant-exported SPI_SETFONTSMOOTHING 75) + +(defconstant-exported SPI_SETGRIDGRANULARITY 19) + +(defconstant-exported SPI_SETHANDHELD 78) + +(defconstant-exported SPI_SETHIGHCONTRAST 67) + +(defconstant-exported SPI_SETICONMETRICS 46) + +(defconstant-exported SPI_SETICONTITLELOGFONT 34) + +(defconstant-exported SPI_SETICONTITLEWRAP 26) + +(defconstant-exported SPI_SETKEYBOARDDELAY 23) + +(defconstant-exported SPI_SETKEYBOARDPREF 69) + +(defconstant-exported SPI_SETKEYBOARDSPEED 11) + +(defconstant-exported SPI_SETLANGTOGGLE 91) + +(defconstant-exported SPI_SETLOWPOWERACTIVE 85) + +(defconstant-exported SPI_SETLOWPOWERTIMEOUT 81) + +(defconstant-exported SPI_SETMENUDROPALIGNMENT 28) + +(defconstant-exported SPI_SETMINIMIZEDMETRICS 44) + +(defconstant-exported SPI_SETMOUSE 4) + +(defconstant-exported SPI_SETMOUSEBUTTONSWAP 33) + +(defconstant-exported SPI_SETMOUSEKEYS 55) + +(defconstant-exported SPI_SETMOUSETRAILS 93) + +(defconstant-exported SPI_SETNONCLIENTMETRICS 42) + +(defconstant-exported SPI_SETPENWINDOWS 49) + +(defconstant-exported SPI_SETPOWEROFFACTIVE 86) + +(defconstant-exported SPI_SETPOWEROFFTIMEOUT 82) + +(defconstant-exported SPI_SETSCREENREADER 71) + +(defconstant-exported SPI_SETSCREENSAVEACTIVE 17) + +(defconstant-exported SPI_SETSCREENSAVERRUNNING 97) + +(defconstant-exported SPI_SETSCREENSAVETIMEOUT 15) + +(defconstant-exported SPI_SETSERIALKEYS 63) + +(defconstant-exported SPI_SETSHOWSOUNDS 57) + +(defconstant-exported SPI_SETSOUNDSENTRY 65) + +(defconstant-exported SPI_SETSTICKYKEYS 59) + +(defconstant-exported SPI_SETTOGGLEKEYS 53) + +(defconstant-exported SPI_SETWHEELSCROLLLINES 105) + +(defconstant-exported SPI_SETWORKAREA 47) + +(defconstant-exported SPIF_UPDATEINIFILE 1) + +(defconstant-exported SPIF_SENDWININICHANGE 2) + +(defconstant-exported SPIF_SENDCHANGE 2) + +(defconstant-exported WHEEL_DELTA 120) + +(defconstant-exported BM_CLICK 245) + +(defconstant-exported BM_GETCHECK 240) + +(defconstant-exported BM_GETIMAGE 246) + +(defconstant-exported BM_GETSTATE 242) + +(defconstant-exported BM_SETCHECK 241) + +(defconstant-exported BM_SETIMAGE 247) + +(defconstant-exported BM_SETSTATE 243) + +(defconstant-exported BM_SETSTYLE 244) + +(defconstant-exported BN_CLICKED 0) + +(defconstant-exported BN_DBLCLK 5) + +(defconstant-exported BN_DISABLE 4) + +(defconstant-exported BN_DOUBLECLICKED 5) + +(defconstant-exported BN_HILITE 2) + +(defconstant-exported BN_KILLFOCUS 7) + +(defconstant-exported BN_PAINT 1) + +(defconstant-exported BN_PUSHED 2) + +(defconstant-exported BN_SETFOCUS 6) + +(defconstant-exported BN_UNHILITE 3) + +(defconstant-exported BN_UNPUSHED 3) + +(defconstant-exported CB_ADDSTRING 323) + +(defconstant-exported CB_DELETESTRING 324) + +(defconstant-exported CB_DIR 325) + +(defconstant-exported CB_FINDSTRING 332) + +(defconstant-exported CB_FINDSTRINGEXACT 344) + +(defconstant-exported CB_GETCOUNT 326) + +(defconstant-exported CB_GETCURSEL 327) + +(defconstant-exported CB_GETDROPPEDCONTROLRECT 338) + +(defconstant-exported CB_GETDROPPEDSTATE 343) + +(defconstant-exported CB_GETDROPPEDWIDTH 351) + +(defconstant-exported CB_GETEDITSEL 320) + +(defconstant-exported CB_GETEXTENDEDUI 342) + +(defconstant-exported CB_GETHORIZONTALEXTENT 349) + +(defconstant-exported CB_GETITEMDATA 336) + +(defconstant-exported CB_GETITEMHEIGHT 340) + +(defconstant-exported CB_GETLBTEXT 328) + +(defconstant-exported CB_GETLBTEXTLEN 329) + +(defconstant-exported CB_GETLOCALE 346) + +(defconstant-exported CB_GETTOPINDEX 347) + +(defconstant-exported CB_INITSTORAGE 353) + +(defconstant-exported CB_INSERTSTRING 330) + +(defconstant-exported CB_LIMITTEXT 321) + +(defconstant-exported CB_RESETCONTENT 331) + +(defconstant-exported CB_SELECTSTRING 333) + +(defconstant-exported CB_SETCURSEL 334) + +(defconstant-exported CB_SETDROPPEDWIDTH 352) + +(defconstant-exported CB_SETEDITSEL 322) + +(defconstant-exported CB_SETEXTENDEDUI 341) + +(defconstant-exported CB_SETHORIZONTALEXTENT 350) + +(defconstant-exported CB_SETITEMDATA 337) + +(defconstant-exported CB_SETITEMHEIGHT 339) + +(defconstant-exported CB_SETLOCALE 345) + +(defconstant-exported CB_SETTOPINDEX 348) + +(defconstant-exported CB_SHOWDROPDOWN 335) + +(defconstant-exported CBN_CLOSEUP 8) + +(defconstant-exported CBN_DBLCLK 2) + +(defconstant-exported CBN_DROPDOWN 7) + +(defconstant-exported CBN_EDITCHANGE 5) + +(defconstant-exported CBN_EDITUPDATE 6) + +(defconstant-exported CBN_ERRSPACE -1) + +(defconstant-exported CBN_KILLFOCUS 4) + +(defconstant-exported CBN_SELCHANGE 1) + +(defconstant-exported CBN_SELENDCANCEL 10) + +(defconstant-exported CBN_SELENDOK 9) + +(defconstant-exported CBN_SETFOCUS 3) + +(defconstant-exported EM_CANUNDO 198) + +(defconstant-exported EM_CHARFROMPOS 215) + +(defconstant-exported EM_EMPTYUNDOBUFFER 205) + +(defconstant-exported EM_FMTLINES 200) + +(defconstant-exported EM_GETFIRSTVISIBLELINE 206) + +(defconstant-exported EM_GETHANDLE 189) + +(defconstant-exported EM_GETLIMITTEXT 213) + +(defconstant-exported EM_GETLINE 196) + +(defconstant-exported EM_GETLINECOUNT 186) + +(defconstant-exported EM_GETMARGINS 212) + +(defconstant-exported EM_GETMODIFY 184) + +(defconstant-exported EM_GETPASSWORDCHAR 210) + +(defconstant-exported EM_GETRECT 178) + +(defconstant-exported EM_GETSEL 176) + +(defconstant-exported EM_GETTHUMB 190) + +(defconstant-exported EM_GETWORDBREAKPROC 209) + +(defconstant-exported EM_LIMITTEXT 197) + +(defconstant-exported EM_LINEFROMCHAR 201) + +(defconstant-exported EM_LINEINDEX 187) + +(defconstant-exported EM_LINELENGTH 193) + +(defconstant-exported EM_LINESCROLL 182) + +(defconstant-exported EM_POSFROMCHAR 214) + +(defconstant-exported EM_REPLACESEL 194) + +(defconstant-exported EM_SCROLL 181) + +(defconstant-exported EM_SCROLLCARET 183) + +(defconstant-exported EM_SETHANDLE 188) + +(defconstant-exported EM_SETLIMITTEXT 197) + +(defconstant-exported EM_SETMARGINS 211) + +(defconstant-exported EM_SETMODIFY 185) + +(defconstant-exported EM_SETPASSWORDCHAR 204) + +(defconstant-exported EM_SETREADONLY 207) + +(defconstant-exported EM_SETRECT 179) + +(defconstant-exported EM_SETRECTNP 180) + +(defconstant-exported EM_SETSEL 177) + +(defconstant-exported EM_SETTABSTOPS 203) + +(defconstant-exported EM_SETWORDBREAKPROC 208) + +(defconstant-exported EM_UNDO 199) + +(defconstant-exported EN_CHANGE 768) + +(defconstant-exported EN_ERRSPACE 1280) + +(defconstant-exported EN_HSCROLL 1537) + +(defconstant-exported EN_KILLFOCUS 512) + +(defconstant-exported EN_MAXTEXT 1281) + +(defconstant-exported EN_SETFOCUS 256) + +(defconstant-exported EN_UPDATE 1024) + +(defconstant-exported EN_VSCROLL 1538) + +(defconstant-exported LB_ADDFILE 406) + +(defconstant-exported LB_ADDSTRING 384) + +(defconstant-exported LB_DELETESTRING 386) + +(defconstant-exported LB_DIR 397) + +(defconstant-exported LB_FINDSTRING 399) + +(defconstant-exported LB_FINDSTRINGEXACT 418) + +(defconstant-exported LB_GETANCHORINDEX 413) + +(defconstant-exported LB_GETCARETINDEX 415) + +(defconstant-exported LB_GETCOUNT 395) + +(defconstant-exported LB_GETCURSEL 392) + +(defconstant-exported LB_GETHORIZONTALEXTENT 403) + +(defconstant-exported LB_GETITEMDATA 409) + +(defconstant-exported LB_GETITEMHEIGHT 417) + +(defconstant-exported LB_GETITEMRECT 408) + +(defconstant-exported LB_GETLOCALE 422) + +(defconstant-exported LB_GETSEL 391) + +(defconstant-exported LB_GETSELCOUNT 400) + +(defconstant-exported LB_GETSELITEMS 401) + +(defconstant-exported LB_GETTEXT 393) + +(defconstant-exported LB_GETTEXTLEN 394) + +(defconstant-exported LB_GETTOPINDEX 398) + +(defconstant-exported LB_INITSTORAGE 424) + +(defconstant-exported LB_INSERTSTRING 385) + +(defconstant-exported LB_ITEMFROMPOINT 425) + +(defconstant-exported LB_RESETCONTENT 388) + +(defconstant-exported LB_SELECTSTRING 396) + +(defconstant-exported LB_SELITEMRANGE 411) + +(defconstant-exported LB_SELITEMRANGEEX 387) + +(defconstant-exported LB_SETANCHORINDEX 412) + +(defconstant-exported LB_SETCARETINDEX 414) + +(defconstant-exported LB_SETCOLUMNWIDTH 405) + +(defconstant-exported LB_SETCOUNT 423) + +(defconstant-exported LB_SETCURSEL 390) + +(defconstant-exported LB_SETHORIZONTALEXTENT 404) + +(defconstant-exported LB_SETITEMDATA 410) + +(defconstant-exported LB_SETITEMHEIGHT 416) + +(defconstant-exported LB_SETLOCALE 421) + +(defconstant-exported LB_SETSEL 389) + +(defconstant-exported LB_SETTABSTOPS 402) + +(defconstant-exported LB_SETTOPINDEX 407) + +(defconstant-exported LBN_DBLCLK 2) + +(defconstant-exported LBN_ERRSPACE -2) + +(defconstant-exported LBN_KILLFOCUS 5) + +(defconstant-exported LBN_SELCANCEL 3) + +(defconstant-exported LBN_SELCHANGE 1) + +(defconstant-exported LBN_SETFOCUS 4) + +(defconstant-exported SBM_ENABLE_ARROWS 228) + +(defconstant-exported SBM_GETPOS 225) + +(defconstant-exported SBM_GETRANGE 227) + +(defconstant-exported SBM_GETSCROLLINFO 234) + +(defconstant-exported SBM_SETPOS 224) + +(defconstant-exported SBM_SETRANGE 226) + +(defconstant-exported SBM_SETRANGEREDRAW 230) + +(defconstant-exported SBM_SETSCROLLINFO 233) + +(defconstant-exported STM_GETICON 369) + +(defconstant-exported STM_GETIMAGE 371) + +(defconstant-exported STM_SETICON 368) + +(defconstant-exported STM_SETIMAGE 370) + +(defconstant-exported STN_CLICKED 0) + +(defconstant-exported STN_DBLCLK 1) + +(defconstant-exported STN_DISABLE 3) + +(defconstant-exported STN_ENABLE 2) + +(defconstant-exported DM_GETDEFID 1024) + +(defconstant-exported DM_SETDEFID (cl:+ 1024 1)) + +(defconstant-exported DM_REPOSITION (cl:+ 1024 2)) + +(defconstant-exported PSM_PAGEINFO (cl:+ 1024 100)) + +(defconstant-exported PSM_SHEETINFO (cl:+ 1024 101)) + +(defconstant-exported PSI_SETACTIVE 1) + +(defconstant-exported PSI_KILLACTIVE 2) + +(defconstant-exported PSI_APPLY 3) + +(defconstant-exported PSI_RESET 4) + +(defconstant-exported PSI_HASHELP 5) + +(defconstant-exported PSI_HELP 6) + +(defconstant-exported PSI_CHANGED 1) + +(defconstant-exported PSI_GUISTART 2) + +(defconstant-exported PSI_REBOOT 3) + +(defconstant-exported PSI_GETSIBLINGS 4) + +(defconstant-exported DCX_WINDOW 1) + +(defconstant-exported DCX_CACHE 2) + +(defconstant-exported DCX_PARENTCLIP 32) + +(defconstant-exported DCX_CLIPSIBLINGS 16) + +(defconstant-exported DCX_CLIPCHILDREN 8) + +(defconstant-exported DCX_NORESETATTRS 4) + +(defconstant-exported DCX_INTERSECTUPDATE #x200) + +(defconstant-exported DCX_LOCKWINDOWUPDATE #x400) + +(defconstant-exported DCX_EXCLUDERGN 64) + +(defconstant-exported DCX_INTERSECTRGN 128) + +(defconstant-exported DCX_VALIDATE #x200000) + +(defconstant-exported GMDI_GOINTOPOPUPS 2) + +(defconstant-exported GMDI_USEDISABLED 1) + +(defconstant-exported FKF_AVAILABLE 2) + +(defconstant-exported FKF_CLICKON 64) + +(defconstant-exported FKF_FILTERKEYSON 1) + +(defconstant-exported FKF_HOTKEYACTIVE 4) + +(defconstant-exported FKF_HOTKEYSOUND 16) + +(defconstant-exported FKF_CONFIRMHOTKEY 8) + +(defconstant-exported FKF_INDICATOR 32) + +(defconstant-exported HCF_HIGHCONTRASTON 1) + +(defconstant-exported HCF_AVAILABLE 2) + +(defconstant-exported HCF_HOTKEYACTIVE 4) + +(defconstant-exported HCF_CONFIRMHOTKEY 8) + +(defconstant-exported HCF_HOTKEYSOUND 16) + +(defconstant-exported HCF_INDICATOR 32) + +(defconstant-exported HCF_HOTKEYAVAILABLE 64) + +(defconstant-exported MKF_AVAILABLE 2) + +(defconstant-exported MKF_CONFIRMHOTKEY 8) + +(defconstant-exported MKF_HOTKEYACTIVE 4) + +(defconstant-exported MKF_HOTKEYSOUND 16) + +(defconstant-exported MKF_INDICATOR 32) + +(defconstant-exported MKF_MOUSEKEYSON 1) + +(defconstant-exported MKF_MODIFIERS 64) + +(defconstant-exported MKF_REPLACENUMBERS 128) + +(defconstant-exported SERKF_ACTIVE 8) + +(defconstant-exported SERKF_AVAILABLE 2) + +(defconstant-exported SERKF_INDICATOR 4) + +(defconstant-exported SERKF_SERIALKEYSON 1) + +(defconstant-exported SSF_AVAILABLE 2) + +(defconstant-exported SSF_SOUNDSENTRYON 1) + +(defconstant-exported SSTF_BORDER 2) + +(defconstant-exported SSTF_CHARS 1) + +(defconstant-exported SSTF_DISPLAY 3) + +(defconstant-exported SSTF_NONE 0) + +(defconstant-exported SSGF_DISPLAY 3) + +(defconstant-exported SSGF_NONE 0) + +(defconstant-exported SSWF_CUSTOM 4) + +(defconstant-exported SSWF_DISPLAY 3) + +(defconstant-exported SSWF_NONE 0) + +(defconstant-exported SSWF_TITLE 1) + +(defconstant-exported SSWF_WINDOW 2) + +(defconstant-exported SKF_AUDIBLEFEEDBACK 64) + +(defconstant-exported SKF_AVAILABLE 2) + +(defconstant-exported SKF_CONFIRMHOTKEY 8) + +(defconstant-exported SKF_HOTKEYACTIVE 4) + +(defconstant-exported SKF_HOTKEYSOUND 16) + +(defconstant-exported SKF_INDICATOR 32) + +(defconstant-exported SKF_STICKYKEYSON 1) + +(defconstant-exported SKF_TRISTATE 128) + +(defconstant-exported SKF_TWOKEYSOFF 256) + +(defconstant-exported TKF_AVAILABLE 2) + +(defconstant-exported TKF_CONFIRMHOTKEY 8) + +(defconstant-exported TKF_HOTKEYACTIVE 4) + +(defconstant-exported TKF_HOTKEYSOUND 16) + +(defconstant-exported TKF_TOGGLEKEYSON 1) + +(defconstant-exported MDITILE_SKIPDISABLED 2) + +(defconstant-exported MDITILE_HORIZONTAL 1) + +(defconstant-exported MDITILE_VERTICAL 0) + +(defconstant-exported VK_LBUTTON 1) + +(defconstant-exported VK_RBUTTON 2) + +(defconstant-exported VK_CANCEL 3) + +(defconstant-exported VK_MBUTTON 4) + +(defconstant-exported VK_BACK 8) + +(defconstant-exported VK_TAB 9) + +(defconstant-exported VK_CLEAR 12) + +(defconstant-exported VK_RETURN 13) + +(defconstant-exported VK_SHIFT 16) + +(defconstant-exported VK_CONTROL 17) + +(defconstant-exported VK_MENU 18) + +(defconstant-exported VK_PAUSE 19) + +(defconstant-exported VK_CAPITAL 20) + +(defconstant-exported VK_KANA #x15) + +(defconstant-exported VK_HANGEUL #x15) + +(defconstant-exported VK_HANGUL #x15) + +(defconstant-exported VK_JUNJA #x17) + +(defconstant-exported VK_FINAL #x18) + +(defconstant-exported VK_HANJA #x19) + +(defconstant-exported VK_KANJI #x19) + +(defconstant-exported VK_ESCAPE #x1B) + +(defconstant-exported VK_CONVERT #x1C) + +(defconstant-exported VK_NONCONVERT #x1D) + +(defconstant-exported VK_ACCEPT #x1E) + +(defconstant-exported VK_MODECHANGE #x1F) + +(defconstant-exported VK_SPACE 32) + +(defconstant-exported VK_PRIOR 33) + +(defconstant-exported VK_NEXT 34) + +(defconstant-exported VK_END 35) + +(defconstant-exported VK_HOME 36) + +(defconstant-exported VK_LEFT 37) + +(defconstant-exported VK_UP 38) + +(defconstant-exported VK_RIGHT 39) + +(defconstant-exported VK_DOWN 40) + +(defconstant-exported VK_SELECT 41) + +(defconstant-exported VK_PRINT 42) + +(defconstant-exported VK_EXECUTE 43) + +(defconstant-exported VK_SNAPSHOT 44) + +(defconstant-exported VK_INSERT 45) + +(defconstant-exported VK_DELETE 46) + +(defconstant-exported VK_HELP 47) + +(defconstant-exported VK_LWIN #x5B) + +(defconstant-exported VK_RWIN #x5C) + +(defconstant-exported VK_APPS #x5D) + +(defconstant-exported VK_SLEEP #x5F) + +(defconstant-exported VK_NUMPAD0 #x60) + +(defconstant-exported VK_NUMPAD1 #x61) + +(defconstant-exported VK_NUMPAD2 #x62) + +(defconstant-exported VK_NUMPAD3 #x63) + +(defconstant-exported VK_NUMPAD4 #x64) + +(defconstant-exported VK_NUMPAD5 #x65) + +(defconstant-exported VK_NUMPAD6 #x66) + +(defconstant-exported VK_NUMPAD7 #x67) + +(defconstant-exported VK_NUMPAD8 #x68) + +(defconstant-exported VK_NUMPAD9 #x69) + +(defconstant-exported VK_MULTIPLY #x6A) + +(defconstant-exported VK_ADD #x6B) + +(defconstant-exported VK_SEPARATOR #x6C) + +(defconstant-exported VK_SUBTRACT #x6D) + +(defconstant-exported VK_DECIMAL #x6E) + +(defconstant-exported VK_DIVIDE #x6F) + +(defconstant-exported VK_F1 #x70) + +(defconstant-exported VK_F2 #x71) + +(defconstant-exported VK_F3 #x72) + +(defconstant-exported VK_F4 #x73) + +(defconstant-exported VK_F5 #x74) + +(defconstant-exported VK_F6 #x75) + +(defconstant-exported VK_F7 #x76) + +(defconstant-exported VK_F8 #x77) + +(defconstant-exported VK_F9 #x78) + +(defconstant-exported VK_F10 #x79) + +(defconstant-exported VK_F11 #x7A) + +(defconstant-exported VK_F12 #x7B) + +(defconstant-exported VK_F13 #x7C) + +(defconstant-exported VK_F14 #x7D) + +(defconstant-exported VK_F15 #x7E) + +(defconstant-exported VK_F16 #x7F) + +(defconstant-exported VK_F17 #x80) + +(defconstant-exported VK_F18 #x81) + +(defconstant-exported VK_F19 #x82) + +(defconstant-exported VK_F20 #x83) + +(defconstant-exported VK_F21 #x84) + +(defconstant-exported VK_F22 #x85) + +(defconstant-exported VK_F23 #x86) + +(defconstant-exported VK_F24 #x87) + +(defconstant-exported VK_NUMLOCK #x90) + +(defconstant-exported VK_SCROLL #x91) + +(defconstant-exported VK_LSHIFT #xA0) + +(defconstant-exported VK_RSHIFT #xA1) + +(defconstant-exported VK_LCONTROL #xA2) + +(defconstant-exported VK_RCONTROL #xA3) + +(defconstant-exported VK_LMENU #xA4) + +(defconstant-exported VK_RMENU #xA5) + +(defconstant-exported VK_OEM_1 #xBA) + +(defconstant-exported VK_OEM_2 #xBF) + +(defconstant-exported VK_OEM_3 #xC0) + +(defconstant-exported VK_OEM_4 #xDB) + +(defconstant-exported VK_OEM_5 #xDC) + +(defconstant-exported VK_OEM_6 #xDD) + +(defconstant-exported VK_OEM_7 #xDE) + +(defconstant-exported VK_OEM_8 #xDF) + +(defconstant-exported VK_PROCESSKEY #xE5) + +(defconstant-exported VK_ATTN #xF6) + +(defconstant-exported VK_CRSEL #xF7) + +(defconstant-exported VK_EXSEL #xF8) + +(defconstant-exported VK_EREOF #xF9) + +(defconstant-exported VK_PLAY #xFA) + +(defconstant-exported VK_ZOOM #xFB) + +(defconstant-exported VK_NONAME #xFC) + +(defconstant-exported VK_PA1 #xFD) + +(defconstant-exported VK_OEM_CLEAR #xFE) + +(defconstant-exported TME_HOVER 1) + +(defconstant-exported TME_LEAVE 2) + +(defconstant-exported TME_QUERY #x40000000) + +(defconstant-exported TME_CANCEL #x80000000) + +(defconstant-exported HOVER_DEFAULT #xFFFFFFFF) + +(defconstant-exported MK_LBUTTON 1) + +(defconstant-exported MK_RBUTTON 2) + +(defconstant-exported MK_SHIFT 4) + +(defconstant-exported MK_CONTROL 8) + +(defconstant-exported MK_MBUTTON 16) + +(defconstant-exported TPM_CENTERALIGN 4) + +(defconstant-exported TPM_LEFTALIGN 0) + +(defconstant-exported TPM_RIGHTALIGN 8) + +(defconstant-exported TPM_LEFTBUTTON 0) + +(defconstant-exported TPM_RIGHTBUTTON 2) + +(defconstant-exported TPM_HORIZONTAL 0) + +(defconstant-exported TPM_VERTICAL 64) + +(defconstant-exported TPM_TOPALIGN 0) + +(defconstant-exported TPM_VCENTERALIGN 16) + +(defconstant-exported TPM_BOTTOMALIGN 32) + +(defconstant-exported TPM_NONOTIFY 128) + +(defconstant-exported TPM_RETURNCMD 256) + +(defconstant-exported HELP_COMMAND #x102) + +(defconstant-exported HELP_CONTENTS 3) + +(defconstant-exported HELP_CONTEXT 1) + +(defconstant-exported HELP_CONTEXTPOPUP 8) + +(defconstant-exported HELP_FORCEFILE 9) + +(defconstant-exported HELP_HELPONHELP 4) + +(defconstant-exported HELP_INDEX 3) + +(defconstant-exported HELP_KEY #x101) + +(defconstant-exported HELP_MULTIKEY #x201) + +(defconstant-exported HELP_PARTIALKEY #x105) + +(defconstant-exported HELP_QUIT 2) + +(defconstant-exported HELP_SETCONTENTS 5) + +(defconstant-exported HELP_SETINDEX 5) + +(defconstant-exported HELP_SETWINPOS #x203) + +(defconstant-exported HELP_CONTEXTMENU #xa) + +(defconstant-exported HELP_FINDER #xb) + +(defconstant-exported HELP_WM_HELP #xc) + +(defconstant-exported HELP_TCARD #x8000) + +(defconstant-exported HELP_TCARD_DATA 16) + +(defconstant-exported HELP_TCARD_OTHER_CALLER #x11) + +(defconstant-exported IDH_NO_HELP 28440) + +(defconstant-exported IDH_MISSING_CONTEXT 28441) + +(defconstant-exported IDH_GENERIC_HELP_BUTTON 28442) + +(defconstant-exported IDH_OK 28443) + +(defconstant-exported IDH_CANCEL 28444) + +(defconstant-exported IDH_HELP 28445) + +(defconstant-exported LB_CTLCODE 0) + +(defconstant-exported LB_OKAY 0) + +(defconstant-exported LB_ERR -1) + +(defconstant-exported LB_ERRSPACE -2) + +(defconstant-exported CB_OKAY 0) + +(defconstant-exported CB_ERR -1) + +(defconstant-exported CB_ERRSPACE -2) + +(defconstant-exported HIDE_WINDOW 0) + +(defconstant-exported SHOW_OPENWINDOW 1) + +(defconstant-exported SHOW_ICONWINDOW 2) + +(defconstant-exported SHOW_FULLSCREEN 3) + +(defconstant-exported SHOW_OPENNOACTIVATE 4) + +(defconstant-exported SW_PARENTCLOSING 1) + +(defconstant-exported SW_OTHERZOOM 2) + +(defconstant-exported SW_PARENTOPENING 3) + +(defconstant-exported SW_OTHERUNZOOM 4) + +(defconstant-exported KF_EXTENDED 256) + +(defconstant-exported KF_DLGMODE 2048) + +(defconstant-exported KF_MENUMODE 4096) + +(defconstant-exported KF_ALTDOWN 8192) + +(defconstant-exported KF_REPEAT 16384) + +(defconstant-exported KF_UP 32768) + +(defconstant-exported WSF_VISIBLE 1) + +(defconstant-exported PWR_OK 1) + +(defconstant-exported PWR_FAIL -1) + +(defconstant-exported PWR_SUSPENDREQUEST 1) + +(defconstant-exported PWR_SUSPENDRESUME 2) + +(defconstant-exported PWR_CRITICALRESUME 3) + +(defconstant-exported NFR_ANSI 1) + +(defconstant-exported NFR_UNICODE 2) + +(defconstant-exported NF_QUERY 3) + +(defconstant-exported NF_REQUERY 4) + +(defconstant-exported MENULOOP_WINDOW 0) + +(defconstant-exported MENULOOP_POPUP 1) + +(defconstant-exported WMSZ_LEFT 1) + +(defconstant-exported WMSZ_RIGHT 2) + +(defconstant-exported WMSZ_TOP 3) + +(defconstant-exported WMSZ_TOPLEFT 4) + +(defconstant-exported WMSZ_TOPRIGHT 5) + +(defconstant-exported WMSZ_BOTTOM 6) + +(defconstant-exported WMSZ_BOTTOMLEFT 7) + +(defconstant-exported WMSZ_BOTTOMRIGHT 8) + +(defconstant-exported HTERROR -2) + +(defconstant-exported HTTRANSPARENT -1) + +(defconstant-exported HTNOWHERE 0) + +(defconstant-exported HTCLIENT 1) + +(defconstant-exported HTCAPTION 2) + +(defconstant-exported HTSYSMENU 3) + +(defconstant-exported HTGROWBOX 4) + +(defconstant-exported HTSIZE 4) + +(defconstant-exported HTMENU 5) + +(defconstant-exported HTHSCROLL 6) + +(defconstant-exported HTVSCROLL 7) + +(defconstant-exported HTMINBUTTON 8) + +(defconstant-exported HTMAXBUTTON 9) + +(defconstant-exported HTREDUCE 8) + +(defconstant-exported HTZOOM 9) + +(defconstant-exported HTLEFT 10) + +(defconstant-exported HTSIZEFIRST 10) + +(defconstant-exported HTRIGHT 11) + +(defconstant-exported HTTOP 12) + +(defconstant-exported HTTOPLEFT 13) + +(defconstant-exported HTTOPRIGHT 14) + +(defconstant-exported HTBOTTOM 15) + +(defconstant-exported HTBOTTOMLEFT 16) + +(defconstant-exported HTBOTTOMRIGHT 17) + +(defconstant-exported HTSIZELAST 17) + +(defconstant-exported HTBORDER 18) + +(defconstant-exported HTOBJECT 19) + +(defconstant-exported HTCLOSE 20) + +(defconstant-exported HTHELP 21) + +(defconstant-exported MA_ACTIVATE 1) + +(defconstant-exported MA_ACTIVATEANDEAT 2) + +(defconstant-exported MA_NOACTIVATE 3) + +(defconstant-exported MA_NOACTIVATEANDEAT 4) + +(defconstant-exported SIZE_RESTORED 0) + +(defconstant-exported SIZE_MINIMIZED 1) + +(defconstant-exported SIZE_MAXIMIZED 2) + +(defconstant-exported SIZE_MAXSHOW 3) + +(defconstant-exported SIZE_MAXHIDE 4) + +(defconstant-exported SIZENORMAL 0) + +(defconstant-exported SIZEICONIC 1) + +(defconstant-exported SIZEFULLSCREEN 2) + +(defconstant-exported SIZEZOOMSHOW 3) + +(defconstant-exported SIZEZOOMHIDE 4) + +(defconstant-exported WVR_ALIGNTOP 16) + +(defconstant-exported WVR_ALIGNLEFT 32) + +(defconstant-exported WVR_ALIGNBOTTOM 64) + +(defconstant-exported WVR_ALIGNRIGHT 128) + +(defconstant-exported WVR_HREDRAW 256) + +(defconstant-exported WVR_VREDRAW 512) + +(defconstant-exported WVR_REDRAW (cl:logior 256 512)) + +(defconstant-exported WVR_VALIDRECTS 1024) + +(defconstant-exported PRF_CHECKVISIBLE 1) + +(defconstant-exported PRF_NONCLIENT 2) + +(defconstant-exported PRF_CLIENT 4) + +(defconstant-exported PRF_ERASEBKGND 8) + +(defconstant-exported PRF_CHILDREN 16) + +(defconstant-exported PRF_OWNED 32) + +(defconstant-exported IDANI_OPEN 1) + +(defconstant-exported IDANI_CLOSE 2) + +(defconstant-exported IDANI_CAPTION 3) + +(defconstant-exported WPF_RESTORETOMAXIMIZED 2) + +(defconstant-exported WPF_SETMINPOSITION 1) + +(defconstant-exported ODT_MENU 1) + +(defconstant-exported ODT_LISTBOX 2) + +(defconstant-exported ODT_COMBOBOX 3) + +(defconstant-exported ODT_BUTTON 4) + +(defconstant-exported ODT_STATIC 5) + +(defconstant-exported ODA_DRAWENTIRE 1) + +(defconstant-exported ODA_SELECT 2) + +(defconstant-exported ODA_FOCUS 4) + +(defconstant-exported ODS_SELECTED 1) + +(defconstant-exported ODS_GRAYED 2) + +(defconstant-exported ODS_DISABLED 4) + +(defconstant-exported ODS_CHECKED 8) + +(defconstant-exported ODS_FOCUS 16) + +(defconstant-exported ODS_DEFAULT 32) + +(defconstant-exported ODS_COMBOBOXEDIT 4096) + +(defconstant-exported IDHOT_SNAPWINDOW -1) + +(defconstant-exported IDHOT_SNAPDESKTOP -2) + +(defconstant-exported DBWF_LPARAMPOINTER #x8000) + +(defconstant-exported DLGWINDOWEXTRA 30) + +(defconstant-exported MNC_IGNORE 0) + +(defconstant-exported MNC_CLOSE 1) + +(defconstant-exported MNC_EXECUTE 2) + +(defconstant-exported MNC_SELECT 3) + +(defconstant-exported DOF_EXECUTABLE #x8001) + +(defconstant-exported DOF_DOCUMENT #x8002) + +(defconstant-exported DOF_DIRECTORY #x8003) + +(defconstant-exported DOF_MULTIPLE #x8004) + +(defconstant-exported DOF_PROGMAN 1) + +(defconstant-exported DOF_SHELLDATA 2) + +(defconstant-exported DO_DROPFILE #x454C4946) + +(defconstant-exported DO_PRINTFILE #x544E5250) + +(defconstant-exported SW_SCROLLCHILDREN 1) + +(defconstant-exported SW_INVALIDATE 2) + +(defconstant-exported SW_ERASE 4) + +(defconstant-exported SC_SIZE #xF000) + +(defconstant-exported SC_MOVE #xF010) + +(defconstant-exported SC_MINIMIZE #xF020) + +(defconstant-exported SC_ICON #xf020) + +(defconstant-exported SC_MAXIMIZE #xF030) + +(defconstant-exported SC_ZOOM #xF030) + +(defconstant-exported SC_NEXTWINDOW #xF040) + +(defconstant-exported SC_PREVWINDOW #xF050) + +(defconstant-exported SC_CLOSE #xF060) + +(defconstant-exported SC_VSCROLL #xF070) + +(defconstant-exported SC_HSCROLL #xF080) + +(defconstant-exported SC_MOUSEMENU #xF090) + +(defconstant-exported SC_KEYMENU #xF100) + +(defconstant-exported SC_ARRANGE #xF110) + +(defconstant-exported SC_RESTORE #xF120) + +(defconstant-exported SC_TASKLIST #xF130) + +(defconstant-exported SC_SCREENSAVE #xF140) + +(defconstant-exported SC_HOTKEY #xF150) + +(defconstant-exported SC_DEFAULT #xF160) + +(defconstant-exported SC_MONITORPOWER #xF170) + +(defconstant-exported SC_CONTEXTHELP #xF180) + +(defconstant-exported SC_SEPARATOR #xF00F) + +(defconstant-exported EC_LEFTMARGIN 1) + +(defconstant-exported EC_RIGHTMARGIN 2) + +(defconstant-exported EC_USEFONTINFO #xffff) + +(defconstant-exported DC_HASDEFID #x534B) + +(defconstant-exported DLGC_WANTARROWS 1) + +(defconstant-exported DLGC_WANTTAB 2) + +(defconstant-exported DLGC_WANTALLKEYS 4) + +(defconstant-exported DLGC_WANTMESSAGE 4) + +(defconstant-exported DLGC_HASSETSEL 8) + +(defconstant-exported DLGC_DEFPUSHBUTTON 16) + +(defconstant-exported DLGC_UNDEFPUSHBUTTON 32) + +(defconstant-exported DLGC_RADIOBUTTON 64) + +(defconstant-exported DLGC_WANTCHARS 128) + +(defconstant-exported DLGC_STATIC 256) + +(defconstant-exported DLGC_BUTTON #x2000) + +(defconstant-exported WA_INACTIVE 0) + +(defconstant-exported WA_ACTIVE 1) + +(defconstant-exported WA_CLICKACTIVE 2) + +(defconstant-exported ICON_SMALL 0) + +(defconstant-exported ICON_BIG 1) + +(defconstant-exported MOD_ALT 1) + +(defconstant-exported MOD_CONTROL 2) + +(defconstant-exported MOD_SHIFT 4) + +(defconstant-exported MOD_WIN 8) + +(defconstant-exported MOD_IGNORE_ALL_MODIFIER 1024) + +(defconstant-exported MOD_ON_KEYUP 2048) + +(defconstant-exported MOD_RIGHT 16384) + +(defconstant-exported MOD_LEFT 32768) + +(defconstant-exported LLKHF_EXTENDED (cl:ash 256 -8)) + +(defconstant-exported LLKHF_INJECTED #x00000010) + +(defconstant-exported LLKHF_ALTDOWN (cl:ash 8192 -8)) + +(defconstant-exported LLKHF_UP (cl:ash 32768 -8)) + +(defconstant-exported CURSOR_SHOWING #x00000001) + +(defconstant-exported WS_ACTIVECAPTION #x00000001) + +(defconstant-exported ENDSESSION_LOGOFF #x80000000) + +(defconstant-exported GA_PARENT 1) + +(defconstant-exported GA_ROOT 2) + +(defconstant-exported GA_ROOTOWNER 3) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +(defcstructex-exported HHOOK__ + (i :int)) + + + +(defcstructex-exported HDWP__ + (i :int)) + + + +(defcstructex-exported HDEVNOTIFY__ + (i :int)) + + + +(defcstructex-exported ACCEL + (fVirt :unsigned-char) + (key :unsigned-short) + (cmd :unsigned-short)) + + + + + +(defcstructex-exported ACCESSTIMEOUT + (cbSize :unsigned-int) + (dwFlags :unsigned-long) + (iTimeOutMSec :unsigned-long)) + + + + + +(defcstructex-exported ANIMATIONINFO + (cbSize :unsigned-int) + (iMinAnimate :int)) + + + + + +(defcstructex-exported CREATESTRUCTA + (lpCreateParams :pointer) + (hInstance :pointer) + (hMenu :pointer) + (hwndParent :pointer) + (cy :int) + (cx :int) + (y :int) + (x :int) + (style :int32) + (lpszName :string) + (lpszClass :string) + (dwExStyle :unsigned-long)) + + + + + +(defcstructex-exported CREATESTRUCTW + (lpCreateParams :pointer) + (hInstance :pointer) + (hMenu :pointer) + (hwndParent :pointer) + (cy :int) + (cx :int) + (y :int) + (x :int) + (style :int32) + (lpszName :pointer) + (lpszClass :pointer) + (dwExStyle :unsigned-long)) + + + + + +(defcstructex-exported CBT_CREATEWNDA + (lpcs :pointer) + (hwndInsertAfter :pointer)) + + + + + +(defcstructex-exported CBT_CREATEWNDW + (lpcs :pointer) + (hwndInsertAfter :pointer)) + + + + + +(defcstructex-exported CBTACTIVATESTRUCT + (fMouse :int) + (hWndActive :pointer)) + + + + + +(defcstructex-exported CLIENTCREATESTRUCT + (hWindowMenu :pointer) + (idFirstChild :unsigned-int)) + + + + + +(defcstructex-exported COMPAREITEMSTRUCT + (CtlType :unsigned-int) + (CtlID :unsigned-int) + (hwndItem :pointer) + (itemID1 :unsigned-int) + (itemData1 :unsigned-long) + (itemID2 :unsigned-int) + (itemData2 :unsigned-long) + (dwLocaleId :unsigned-long)) + + + + + +(defcstructex-exported COPYDATASTRUCT + (dwData :unsigned-long) + (cbData :unsigned-long) + (lpData :pointer)) + + + + + +(defcstructex-exported CURSORSHAPE + (xHotSpot :int) + (yHotSpot :int) + (cx :int) + (cy :int) + (cbWidth :int) + (Planes :unsigned-char) + (BitsPixel :unsigned-char)) + + + + + +(defcstructex-exported CWPRETSTRUCT + (lResult :int32) + (lParam :int32) + (wParam :unsigned-int) + (message :unsigned-long) + (hwnd :pointer)) + + + +(defcstructex-exported CWPSTRUCT + (lParam :int32) + (wParam :unsigned-int) + (message :unsigned-int) + (hwnd :pointer)) + + + + + +(defcstructex-exported DEBUGHOOKINFO + (idThread :unsigned-long) + (idThreadInstaller :unsigned-long) + (lParam :int32) + (wParam :unsigned-int) + (code :int)) + + + + + + + +(defcstructex-exported DELETEITEMSTRUCT + (CtlType :unsigned-int) + (CtlID :unsigned-int) + (itemID :unsigned-int) + (hwndItem :pointer) + (itemData :unsigned-int)) + + + + + + + + +(defcstructex-exported DRAWITEMSTRUCT + (CtlType :unsigned-int) + (CtlID :unsigned-int) + (itemID :unsigned-int) + (itemAction :unsigned-int) + (itemState :unsigned-int) + (hwndItem :pointer) + (hDC :pointer) + (rcItem RECT) + (itemData :unsigned-long)) + + + + + + + +(defcstructex-exported DRAWTEXTPARAMS + (cbSize :unsigned-int) + (iTabLength :int) + (iLeftMargin :int) + (iRightMargin :int) + (uiLengthDrawn :unsigned-int)) + + + + + + + + + + + +(defcstructex-exported ICONINFO + (fIcon :int) + (xHotspot :unsigned-long) + (yHotspot :unsigned-long) + (hbmMask :pointer) + (hbmColor :pointer)) + + + + + +(defcstructex-exported NMHDR + (hwndFrom :pointer) + (idFrom :unsigned-int) + (code :unsigned-int)) + + + + + + + + + + +(defcstructex-exported MENUITEMINFOA + (cbSize :unsigned-int) + (fMask :unsigned-int) + (fType :unsigned-int) + (fState :unsigned-int) + (wID :unsigned-int) + (hSubMenu :pointer) + (hbmpChecked :pointer) + (hbmpUnchecked :pointer) + (dwItemData :unsigned-long) + (dwTypeData :string) + (cch :unsigned-int)) + + + + + + + +(defcstructex-exported MENUITEMINFOW + (cbSize :unsigned-int) + (fMask :unsigned-int) + (fType :unsigned-int) + (fState :unsigned-int) + (wID :unsigned-int) + (hSubMenu :pointer) + (hbmpChecked :pointer) + (hbmpUnchecked :pointer) + (dwItemData :unsigned-long) + (dwTypeData :pointer) + (cch :unsigned-int)) + + + + + + + +(defcstructex-exported SCROLLINFO + (cbSize :unsigned-int) + (fMask :unsigned-int) + (nMin :int) + (nMax :int) + (nPage :unsigned-int) + (nPos :int) + (nTrackPos :int)) + + + + + + + +(defcstructex-exported WINDOWPLACEMENT + (length :unsigned-int) + (flags :unsigned-int) + (showCmd :unsigned-int) + (ptMinPosition POINT) + (ptMaxPosition POINT) + (rcNormalPosition RECT)) + + + + + + + +(defcstructex-exported MENUITEMTEMPLATEHEADER + (versionNumber :unsigned-short) + (offset :unsigned-short)) + +(defcstructex-exported MENUITEMTEMPLATE + (mtOption :unsigned-short) + (mtID :unsigned-short) + (mtString :pointer)) + + + + + + + + + + + + + +(defcstructex-exported HELPINFO + (cbSize :unsigned-int) + (iContextType :int) + (iCtrlId :int) + (hItemHandle :pointer) + (dwContextId :unsigned-long) + (MousePos POINT)) + + + + + + + +(defcstructex-exported MSGBOXPARAMSA + (cbSize :unsigned-int) + (hwndOwner :pointer) + (hInstance :pointer) + (lpszText :string) + (lpszCaption :string) + (dwStyle :unsigned-long) + (lpszIcon :string) + (dwContextHelpId :unsigned-long) + (lpfnMsgBoxCallback :pointer) + (dwLanguageId :unsigned-long)) + + + + + +(defcstructex-exported MSGBOXPARAMSW + (cbSize :unsigned-int) + (hwndOwner :pointer) + (hInstance :pointer) + (lpszText :pointer) + (lpszCaption :pointer) + (dwStyle :unsigned-long) + (lpszIcon :pointer) + (dwContextHelpId :unsigned-long) + (lpfnMsgBoxCallback :pointer) + (dwLanguageId :unsigned-long)) + + + + + +(defcstructex-exported USEROBJECTFLAGS + (fInherit :int) + (fReserved :int) + (dwFlags :unsigned-long)) + + + +(defcstructex-exported FILTERKEYS + (cbSize :unsigned-int) + (dwFlags :unsigned-long) + (iWaitMSec :unsigned-long) + (iDelayMSec :unsigned-long) + (iRepeatMSec :unsigned-long) + (iBounceMSec :unsigned-long)) + + + +(defcstructex-exported HIGHCONTRASTA + (cbSize :unsigned-int) + (dwFlags :unsigned-long) + (lpszDefaultScheme :string)) + + + + + +(defcstructex-exported HIGHCONTRASTW + (cbSize :unsigned-int) + (dwFlags :unsigned-long) + (lpszDefaultScheme :pointer)) + + + + + +(defcstructex-exported ICONMETRICSA + (cbSize :unsigned-int) + (iHorzSpacing :int) + (iVertSpacing :int) + (iTitleWrap :int) + (lfFont LOGFONTA)) + + + + + +(defcstructex-exported ICONMETRICSW + (cbSize :unsigned-int) + (iHorzSpacing :int) + (iVertSpacing :int) + (iTitleWrap :int) + (lfFont LOGFONTW)) + + + + + +(defcstructex-exported MINIMIZEDMETRICS + (cbSize :unsigned-int) + (iWidth :int) + (iHorzGap :int) + (iVertGap :int) + (iArrange :int)) + + + + + +(defcstructex-exported MOUSEKEYS + (cbSize :unsigned-int) + (dwFlags :unsigned-long) + (iMaxSpeed :unsigned-long) + (iTimeToMaxSpeed :unsigned-long) + (iCtrlSpeed :unsigned-long) + (dwReserved1 :unsigned-long) + (dwReserved2 :unsigned-long)) + + + + + +(defcstructex-exported NONCLIENTMETRICSA + (cbSize :unsigned-int) + (iBorderWidth :int) + (iScrollWidth :int) + (iScrollHeight :int) + (iCaptionWidth :int) + (iCaptionHeight :int) + (lfCaptionFont LOGFONTA) + (iSmCaptionWidth :int) + (iSmCaptionHeight :int) + (lfSmCaptionFont LOGFONTA) + (iMenuWidth :int) + (iMenuHeight :int) + (lfMenuFont LOGFONTA) + (lfStatusFont LOGFONTA) + (lfMessageFont LOGFONTA)) + + + + + +(defcstructex-exported NONCLIENTMETRICSW + (cbSize :unsigned-int) + (iBorderWidth :int) + (iScrollWidth :int) + (iScrollHeight :int) + (iCaptionWidth :int) + (iCaptionHeight :int) + (lfCaptionFont LOGFONTW) + (iSmCaptionWidth :int) + (iSmCaptionHeight :int) + (lfSmCaptionFont LOGFONTW) + (iMenuWidth :int) + (iMenuHeight :int) + (lfMenuFont LOGFONTW) + (lfStatusFont LOGFONTW) + (lfMessageFont LOGFONTW)) + + + + + +(defcstructex-exported SERIALKEYSA + (cbSize :unsigned-int) + (dwFlags :unsigned-long) + (lpszActivePort :string) + (lpszPort :string) + (iBaudRate :unsigned-int) + (iPortState :unsigned-int) + (iActive :unsigned-int)) + + + + + +(defcstructex-exported SERIALKEYSW + (cbSize :unsigned-int) + (dwFlags :unsigned-long) + (lpszActivePort :pointer) + (lpszPort :pointer) + (iBaudRate :unsigned-int) + (iPortState :unsigned-int) + (iActive :unsigned-int)) + + + + + +(defcstructex-exported SOUNDSENTRYA + (cbSize :unsigned-int) + (dwFlags :unsigned-long) + (iFSTextEffect :unsigned-long) + (iFSTextEffectMSec :unsigned-long) + (iFSTextEffectColorBits :unsigned-long) + (iFSGrafEffect :unsigned-long) + (iFSGrafEffectMSec :unsigned-long) + (iFSGrafEffectColor :unsigned-long) + (iWindowsEffect :unsigned-long) + (iWindowsEffectMSec :unsigned-long) + (lpszWindowsEffectDLL :string) + (iWindowsEffectOrdinal :unsigned-long)) + + + + + +(defcstructex-exported SOUNDSENTRYW + (cbSize :unsigned-int) + (dwFlags :unsigned-long) + (iFSTextEffect :unsigned-long) + (iFSTextEffectMSec :unsigned-long) + (iFSTextEffectColorBits :unsigned-long) + (iFSGrafEffect :unsigned-long) + (iFSGrafEffectMSec :unsigned-long) + (iFSGrafEffectColor :unsigned-long) + (iWindowsEffect :unsigned-long) + (iWindowsEffectMSec :unsigned-long) + (lpszWindowsEffectDLL :pointer) + (iWindowsEffectOrdinal :unsigned-long)) + + + + + +(defcstructex-exported STICKYKEYS + (cbSize :unsigned-long) + (dwFlags :unsigned-long)) + + + + + +(defcstructex-exported TOGGLEKEYS + (cbSize :unsigned-long) + (dwFlags :unsigned-long)) + + + +(defcstructex-exported MOUSEHOOKSTRUCT + (pt POINT) + (hwnd :pointer) + (wHitTestCode :unsigned-int) + (dwExtraInfo :unsigned-long)) + + + + + + + +(defcstructex-exported TRACKMOUSEEVENT + (cbSize :unsigned-long) + (dwFlags :unsigned-long) + (hwndTrack :pointer) + (dwHoverTime :unsigned-long)) + + + + + +(defcstructex-exported TPMPARAMS + (cbSize :unsigned-int) + (rcExclude RECT)) + + + + + +(defcstructex-exported EVENTMSG + (message :unsigned-int) + (paramL :unsigned-int) + (paramH :unsigned-int) + (time :unsigned-long) + (hwnd :pointer)) + + + + + + + + + + + +(defcstructex-exported WINDOWPOS + (hwnd :pointer) + (hwndInsertAfter :pointer) + (x :int) + (y :int) + (cx :int) + (cy :int) + (flags :unsigned-int)) + + + + + + + +(defcstructex-exported NCCALCSIZE_PARAMS + (rgrc :pointer) + (lppos :pointer)) + + + + + +(defcstructex-exported MDICREATESTRUCTA + (szClass :string) + (szTitle :string) + (hOwner :pointer) + (x :int) + (y :int) + (cx :int) + (cy :int) + (style :unsigned-long) + (lParam :int32)) + + + + + +(defcstructex-exported MDICREATESTRUCTW + (szClass :pointer) + (szTitle :pointer) + (hOwner :pointer) + (x :int) + (y :int) + (cx :int) + (cy :int) + (style :unsigned-long) + (lParam :int32)) + + + + + +(defcstructex-exported MINMAXINFO + (ptReserved POINT) + (ptMaxSize POINT) + (ptMaxPosition POINT) + (ptMinTrackSize POINT) + (ptMaxTrackSize POINT)) + + + + + + + +(defcstructex-exported MDINEXTMENU + (hmenuIn :pointer) + (hmenuNext :pointer) + (hwndNext :pointer)) + + + + + + + +(defcstructex-exported MEASUREITEMSTRUCT + (CtlType :unsigned-int) + (CtlID :unsigned-int) + (itemID :unsigned-int) + (itemWidth :unsigned-int) + (itemHeight :unsigned-int) + (itemData :unsigned-long)) + + + + + + + +(defcstructex-exported DROPSTRUCT + (hwndSource :pointer) + (hwndSink :pointer) + (wFmt :unsigned-long) + (dwData :unsigned-long) + (ptDrop POINT) + (dwControlData :unsigned-long)) + + + + + + + + + +(defcstructex-exported MULTIKEYHELPA + (mkSize :unsigned-long) + (mkKeylist :char) + (szKeyphrase :pointer)) + + + + + + + +(defcstructex-exported MULTIKEYHELPW + (mkSize :unsigned-long) + (mkKeylist :pointer) + (szKeyphrase :pointer)) + + + + + + + +(defcstructex-exported HELPWININFOA + (wStructSize :int) + (x :int) + (y :int) + (dx :int) + (dy :int) + (wMax :int) + (rgchMember :pointer)) + + + + + + + +(defcstructex-exported HELPWININFOW + (wStructSize :int) + (x :int) + (y :int) + (dx :int) + (dy :int) + (wMax :int) + (rgchMember :pointer)) + + + + + + + +(defcstructex-exported STYLESTRUCT + (styleOld :unsigned-long) + (styleNew :unsigned-long)) + + + + + +(defcstructex-exported ALTTABINFO + (cbSize :unsigned-long) + (cItems :int) + (cColumns :int) + (cRows :int) + (iColFocus :int) + (iRowFocus :int) + (cxItem :int) + (cyItem :int) + (ptStart POINT)) + + + + + + + +(defcstructex-exported COMBOBOXINFO + (cbSize :unsigned-long) + (rcItem RECT) + (rcButton RECT) + (stateButton :unsigned-long) + (hwndCombo :pointer) + (hwndItem :pointer) + (hwndList :pointer)) + + + + + + + +(defcstructex-exported CURSORINFO + (cbSize :unsigned-long) + (flags :unsigned-long) + (hCursor :pointer) + (ptScreenPos POINT)) + + + + + + + +(defcstructex-exported MENUBARINFO + (cbSize :unsigned-long) + (rcBar RECT) + (hMenu :pointer) + (hwndMenu :pointer) + (fBarFocused :int) + (fFocused :int)) + + + + + +(defcstructex-exported MENUINFO + (cbSize :unsigned-long) + (fMask :unsigned-long) + (dwStyle :unsigned-long) + (cyMax :unsigned-int) + (hbrBack :pointer) + (dwContextHelpID :unsigned-long) + (dwMenuData :unsigned-long)) + + + + + + + +(defconstant-exported CCHILDREN_SCROLLBAR 5) + +(defcstructex-exported SCROLLBARINFO + (cbSize :unsigned-long) + (rcScrollBar RECT) + (dxyLineButton :int) + (xyThumbTop :int) + (xyThumbBottom :int) + (reserved :int) + (rgstate :pointer)) + + + + + + + +(defconstant-exported CCHILDREN_TITLEBAR 5) + +(defcstructex-exported TITLEBARINFO + (cbSize :unsigned-long) + (rcTitleBar RECT) + (rgstate :pointer)) + + + + + + + +(defcstructex-exported WINDOWINFO + (cbSize :unsigned-long) + (rcWindow RECT) + (rcClient RECT) + (dwStyle :unsigned-long) + (dwExStyle :unsigned-long) + (dwWindowStatus :unsigned-long) + (cxWindowBorders :unsigned-int) + (cyWindowBorders :unsigned-int) + (atomWindowType :unsigned-short) + (wCreatorVersion :unsigned-short)) + + + + + + + +(defcstructex-exported LASTINPUTINFO + (cbSize :unsigned-int) + (dwTime :unsigned-long)) + + + + + +(defcstructex-exported MONITORINFO + (cbSize :unsigned-long) + (rcMonitor RECT) + (rcWork RECT) + (dwFlags :unsigned-long)) + + + + + +(defcstructex-exported MONITORINFOEXA + (cbSize :unsigned-long) + (rcMonitor RECT) + (rcWork RECT) + (dwFlags :unsigned-long) + (szDevice :pointer)) + + + + + +(defcstructex-exported MONITORINFOEXW + (cbSize :unsigned-long) + (rcMonitor RECT) + (rcWork RECT) + (dwFlags :unsigned-long) + (szDevice :pointer)) + + + + + +(defcstructex-exported KBDLLHOOKSTRUCT + (vkCode :unsigned-long) + (scanCode :unsigned-long) + (flags :unsigned-long) + (time :unsigned-long) + (dwExtraInfo :unsigned-long)) + + + + + + + +(defcstructex-exported MSLLHOOKSTRUCT + (pt POINT) + (mouseData :unsigned-long) + (flags :unsigned-long) + (time :unsigned-long) + (dwExtraInfo :unsigned-long)) + + + +(defcfunex-exported ("ChangeDisplaySettingsA" ChangeDisplaySettingsA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("ChangeDisplaySettingsW" ChangeDisplaySettingsW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("ChangeDisplaySettingsExA" ChangeDisplaySettingsExA :convention :stdcall) :int32 + (arg0 :string) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer)) + +(defcfunex-exported ("ChangeDisplaySettingsExW" ChangeDisplaySettingsExW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer)) + +(defcfunex-exported ("CheckDlgButton" CheckDlgButton :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :unsigned-int)) + +(defcfunex-exported ("CheckMenuItem" CheckMenuItem :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int)) + +(defcfunex-exported ("CheckMenuRadioItem" CheckMenuRadioItem :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :unsigned-int) + (arg4 :unsigned-int)) + +(defcfunex-exported ("CheckRadioButton" CheckRadioButton :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :int)) + +(defcfunex-exported ("CopyRect" CopyRect :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("CreateMDIWindowA" CreateMDIWindowA :convention :stdcall) :pointer + (arg0 :string) + (arg1 :string) + (arg2 :unsigned-long) + (arg3 :int) + (arg4 :int) + (arg5 :int) + (arg6 :int) + (arg7 :pointer) + (arg8 :pointer) + (arg9 :int32)) + +(defcfunex-exported ("CreateMDIWindowW" CreateMDIWindowW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :int) + (arg4 :int) + (arg5 :int) + (arg6 :int) + (arg7 :pointer) + (arg8 :pointer) + (arg9 :int32)) + +(defcfunex-exported ("CreateMenu" CreateMenu :convention :stdcall) :pointer) + +(defcfunex-exported ("CreatePopupMenu" CreatePopupMenu :convention :stdcall) :pointer) + +(defcfunex-exported ("DefDlgProcA" DefDlgProcA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :int32)) + +(defcfunex-exported ("DefDlgProcW" DefDlgProcW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :int32)) + +(defcfunex-exported ("DefFrameProcA" DefFrameProcA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int) + (arg3 :unsigned-int) + (arg4 :int32)) + +(defcfunex-exported ("DefFrameProcW" DefFrameProcW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int) + (arg3 :unsigned-int) + (arg4 :int32)) + +(defcfunex-exported ("DefMDIChildProcA" DefMDIChildProcA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :int32)) + +(defcfunex-exported ("DefMDIChildProcW" DefMDIChildProcW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :int32)) + +(defcfunex-exported ("DeleteMenu" DeleteMenu :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int)) + +(defcfunex-exported ("DeregisterShellHookWindow" DeregisterShellHookWindow :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("DestroyMenu" DestroyMenu :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("DialogBoxIndirectParamA" DialogBoxIndirectParamA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :int32)) + +(defcfunex-exported ("DialogBoxIndirectParamW" DialogBoxIndirectParamW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :int32)) + +(defcfunex-exported ("DialogBoxParamA" DialogBoxParamA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :int32)) + +(defcfunex-exported ("DialogBoxParamW" DialogBoxParamW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :int32)) + +(defcfunex-exported ("DlgDirListA" DlgDirListA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string) + (arg2 :int) + (arg3 :int) + (arg4 :unsigned-int)) + +(defcfunex-exported ("DlgDirListW" DlgDirListW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int) + (arg3 :int) + (arg4 :unsigned-int)) + +(defcfunex-exported ("DlgDirListComboBoxA" DlgDirListComboBoxA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string) + (arg2 :int) + (arg3 :int) + (arg4 :unsigned-int)) + +(defcfunex-exported ("DlgDirListComboBoxW" DlgDirListComboBoxW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int) + (arg3 :int) + (arg4 :unsigned-int)) + +(defcfunex-exported ("DlgDirSelectComboBoxExA" DlgDirSelectComboBoxExA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string) + (arg2 :int) + (arg3 :int)) + +(defcfunex-exported ("DlgDirSelectComboBoxExW" DlgDirSelectComboBoxExW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int) + (arg3 :int)) + +(defcfunex-exported ("DlgDirSelectExA" DlgDirSelectExA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string) + (arg2 :int) + (arg3 :int)) + +(defcfunex-exported ("DlgDirSelectExW" DlgDirSelectExW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int) + (arg3 :int)) + +(defcfunex-exported ("DragObject" DragObject :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int) + (arg3 :unsigned-long) + (arg4 :pointer)) + +(defcfunex-exported ("DrawMenuBar" DrawMenuBar :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("EnableMenuItem" EnableMenuItem :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int)) + +(defcfunex-exported ("EndDialog" EndDialog :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("EndMenu" EndMenu :convention :stdcall) :int) + +(defcfunex-exported ("EnumChildWindows" EnumChildWindows :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int32)) + +(defcfunex-exported ("EnumDisplayMonitors" EnumDisplayMonitors :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :int32)) + +(defcfunex-exported ("EnumDisplaySettingsA" EnumDisplaySettingsA :convention :stdcall) :int + (arg0 :string) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("EnumDisplaySettingsW" EnumDisplaySettingsW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("EnumDisplayDevicesA" EnumDisplayDevicesA :convention :stdcall) :int + (arg0 :string) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long)) + +(defcfunex-exported ("EnumDisplayDevicesW" EnumDisplayDevicesW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long)) + +(defcfunex-exported ("EnumThreadWindows" EnumThreadWindows :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :int32)) + +(defcfunex-exported ("EqualRect" EqualRect :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("ExitWindowsEx" ExitWindowsEx :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :unsigned-long)) + +(defcfunex-exported ("FrameRect" FrameRect :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("FrameRgn" FrameRgn :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :int) + (arg4 :int)) + +(defcfunex-exported ("GetAncestor" GetAncestor :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :unsigned-int)) + + + +(defcfunex-exported ("GetFocus" GetFocus :convention :stdcall) :pointer) + +(defcfunex-exported ("GetInputState" GetInputState :convention :stdcall) :int) + +(defcfunex-exported ("GetKeyboardState" GetKeyboardState :convention :stdcall) :int + (arg0 :pointer)) + + + +(defcfunex-exported ("GetMenuState" GetMenuState :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int)) + +(defcfunex-exported ("GetMenuStringA" GetMenuStringA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :string) + (arg3 :int) + (arg4 :unsigned-int)) + +(defcfunex-exported ("GetMenuStringW" GetMenuStringW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :pointer) + (arg3 :int) + (arg4 :unsigned-int)) + +(defcfunex-exported ("GetNextDlgGroupItem" GetNextDlgGroupItem :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("GetNextDlgTabItem" GetNextDlgTabItem :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("GetParent" GetParent :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("GetQueueStatus" GetQueueStatus :convention :stdcall) :unsigned-long + (arg0 :unsigned-int)) + +(defcfunex-exported ("GetSubMenu" GetSubMenu :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("GetSysColorBrush" GetSysColorBrush :convention :stdcall) :pointer + (arg0 :int)) + +(defcfunex-exported ("GetSystemMenu" GetSystemMenu :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("GetWindowLongA" GetWindowLongA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("GetWindowLongW" GetWindowLongW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("GetWindow" GetWindow :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :unsigned-int)) + +(defcfunex-exported ("GetWindowPlacement" GetWindowPlacement :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetWindowRect" GetWindowRect :convention :stdcall) :int + (hWnd :pointer) + (lpRECT :pointer)) + +(defcfunex-exported ("GetWindowWord" GetWindowWord :convention :stdcall) :unsigned-short + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("GetAltTabInfoA" GetAltTabInfoA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :pointer) + (arg3 :string) + (arg4 :unsigned-int)) + +(defcfunex-exported ("GetAltTabInfoW" GetAltTabInfoW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :unsigned-int)) + +(defcfunex-exported ("GetComboBoxInfo" GetComboBoxInfo :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetCursorInfo" GetCursorInfo :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("GetLastInputInfo" GetLastInputInfo :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("GetListBoxInfo" GetListBoxInfo :convention :stdcall) :unsigned-long + (arg0 :pointer)) + +(defcfunex-exported ("GetMenuBarInfo" GetMenuBarInfo :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int32) + (arg2 :int32) + (arg3 :pointer)) + +(defcfunex-exported ("GetMenuInfo" GetMenuInfo :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetScrollBarInfo" GetScrollBarInfo :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int32) + (arg2 :pointer)) + +(defcfunex-exported ("GetTitleBarInfo" GetTitleBarInfo :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetWindowInfo" GetWindowInfo :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetMonitorInfoA" GetMonitorInfoA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetMonitorInfoW" GetMonitorInfoW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetWindowModuleFileNameA" GetWindowModuleFileNameA :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :string) + (arg2 :unsigned-int)) + +(defcfunex-exported ("GetWindowModuleFileNameW" GetWindowModuleFileNameW :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("HiliteMenuItem" HiliteMenuItem :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int) + (arg3 :unsigned-int)) + +(defcfunex-exported ("InflateRect" InflateRect :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int)) + +(defcfunex-exported ("InsertMenuItemA" InsertMenuItemA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :int) + (arg3 :pointer)) + +(defcfunex-exported ("InsertMenuItemW" InsertMenuItemW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :int) + (arg3 :pointer)) + +(defcfunex-exported ("InternalGetWindowText" InternalGetWindowText :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("IntersectRect" IntersectRect :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("InvertRect" InvertRect :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("IsChild" IsChild :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("IsDialogMessageA" IsDialogMessageA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("IsDialogMessageW" IsDialogMessageW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("IsDlgButtonChecked" IsDlgButtonChecked :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("IsIconic" IsIconic :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("IsMenu" IsMenu :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("IsRectEmpty" IsRectEmpty :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("IsZoomed" IsZoomed :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("keybd_event" keybd_event :convention :stdcall) :void + (arg0 :unsigned-char) + (arg1 :unsigned-char) + (arg2 :unsigned-long) + (arg3 :unsigned-long)) + +(defcfunex-exported ("LoadKeyboardLayoutA" LoadKeyboardLayoutA :convention :stdcall) :pointer + (arg0 :string) + (arg1 :unsigned-int)) + +(defcfunex-exported ("LoadKeyboardLayoutW" LoadKeyboardLayoutW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :unsigned-int)) + +(defcfunex-exported ("LoadMenuA" LoadMenuA :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :string)) + +(defcfunex-exported ("LoadMenuIndirectA" LoadMenuIndirectA :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("LoadMenuIndirectW" LoadMenuIndirectW :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("LoadMenuW" LoadMenuW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("LoadStringA" LoadStringA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :string) + (arg3 :int)) + +(defcfunex-exported ("LoadStringW" LoadStringW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :pointer) + (arg3 :int)) + +(defcfunex-exported ("MapDialogRect" MapDialogRect :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("MapVirtualKeyA" MapVirtualKeyA :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :unsigned-int)) + +(defcfunex-exported ("MapVirtualKeyExA" MapVirtualKeyExA :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :unsigned-int) + (arg2 :pointer)) + +(defcfunex-exported ("MapVirtualKeyExW" MapVirtualKeyExW :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :unsigned-int) + (arg2 :pointer)) + +(defcfunex-exported ("MapVirtualKeyW" MapVirtualKeyW :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :unsigned-int)) + +(defcfunex-exported ("MapWindowPoints" MapWindowPoints :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-int)) + +(defcfunex-exported ("MenuItemFromPoint" MenuItemFromPoint :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 POINT)) + +(defcfunex-exported ("OemKeyScan" OemKeyScan :convention :stdcall) :unsigned-long + (arg0 :unsigned-short)) + +(defcfunex-exported ("OffsetRect" OffsetRect :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int)) + +(defcfunex-exported ("PtInRect" PtInRect :convention :stdcall) :int + (arg0 :pointer) + (arg1 POINT)) + +(defcfunex-exported ("RealChildWindowFromPoint" RealChildWindowFromPoint :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 POINT)) + +(defcfunex-exported ("RealGetWindowClassA" RealGetWindowClassA :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :string) + (arg2 :unsigned-int)) + +(defcfunex-exported ("RealGetWindowClassW" RealGetWindowClassW :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("RegisterWindowMessageA" RegisterWindowMessageA :convention :stdcall) :unsigned-int + (arg0 :string)) + +(defcfunex-exported ("RegisterWindowMessageW" RegisterWindowMessageW :convention :stdcall) :unsigned-int + (arg0 :pointer)) + +(defcfunex-exported ("ReplyMessage" ReplyMessage :convention :stdcall) :int + (arg0 :int32)) + +(defcfunex-exported ("SendNotifyMessageA" SendNotifyMessageA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :int32)) + +(defcfunex-exported ("SendNotifyMessageW" SendNotifyMessageW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :int32)) + +(defcfunex-exported ("SetForegroundWindow" SetForegroundWindow :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("SetMenuInfo" SetMenuInfo :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("SetMessageQueue" SetMessageQueue :convention :stdcall) :int + (arg0 :int)) + +(defcfunex-exported ("SetRect" SetRect :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :int) + (arg4 :int)) + +(defcfunex-exported ("SetRectEmpty" SetRectEmpty :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("SubtractRect" SubtractRect :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("ToAscii" ToAscii :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :unsigned-int) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :unsigned-int)) + +(defcfunex-exported ("TranslateMDISysAccel" TranslateMDISysAccel :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("UnionRect" UnionRect :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + diff --git a/modules/version.lisp b/modules/version.lisp new file mode 100644 index 0000000..b885dff --- /dev/null +++ b/modules/version.lisp @@ -0,0 +1,252 @@ + +(cl:in-package w32apimod) + +(define-w32api-module version :version) + +(cl:in-package cl-w32api.module.version) + + +(defconstant-exported VS_VERSION_INFO 1) + +(defconstant-exported VS_USER_DEFINED 100) + +(defconstant-exported VS_FFI_SIGNATURE #xFEEF04BD) + +(defconstant-exported VS_FFI_STRUCVERSION #x10000) + +(defconstant-exported VS_FFI_FILEFLAGSMASK #x3F) + +(defconstant-exported VS_FF_DEBUG 1) + +(defconstant-exported VS_FF_PRERELEASE 2) + +(defconstant-exported VS_FF_PATCHED 4) + +(defconstant-exported VS_FF_PRIVATEBUILD 8) + +(defconstant-exported VS_FF_INFOINFERRED 16) + +(defconstant-exported VS_FF_SPECIALBUILD 32) + +(defconstant-exported VOS_UNKNOWN 0) + +(defconstant-exported VOS_DOS #x10000) + +(defconstant-exported VOS_OS216 #x20000) + +(defconstant-exported VOS_OS232 #x30000) + +(defconstant-exported VOS_NT #x40000) + +(defconstant-exported VOS__BASE 0) + +(defconstant-exported VOS__WINDOWS16 1) + +(defconstant-exported VOS__PM16 2) + +(defconstant-exported VOS__PM32 3) + +(defconstant-exported VOS__WINDOWS32 4) + +(defconstant-exported VOS_DOS_WINDOWS16 #x10001) + +(defconstant-exported VOS_DOS_WINDOWS32 #x10004) + +(defconstant-exported VOS_OS216_PM16 #x20002) + +(defconstant-exported VOS_OS232_PM32 #x30003) + +(defconstant-exported VOS_NT_WINDOWS32 #x40004) + +(defconstant-exported VFT_UNKNOWN 0) + +(defconstant-exported VFT_APP 1) + +(defconstant-exported VFT_DLL 2) + +(defconstant-exported VFT_DRV 3) + +(defconstant-exported VFT_FONT 4) + +(defconstant-exported VFT_VXD 5) + +(defconstant-exported VFT_STATIC_LIB 7) + +(defconstant-exported VFT2_UNKNOWN 0) + +(defconstant-exported VFT2_DRV_PRINTER 1) + +(defconstant-exported VFT2_DRV_KEYBOARD 2) + +(defconstant-exported VFT2_DRV_LANGUAGE 3) + +(defconstant-exported VFT2_DRV_DISPLAY 4) + +(defconstant-exported VFT2_DRV_MOUSE 5) + +(defconstant-exported VFT2_DRV_NETWORK 6) + +(defconstant-exported VFT2_DRV_SYSTEM 7) + +(defconstant-exported VFT2_DRV_INSTALLABLE 8) + +(defconstant-exported VFT2_DRV_SOUND 9) + +(defconstant-exported VFT2_DRV_COMM 10) + +(defconstant-exported VFT2_DRV_INPUTMETHOD 11) + +(defconstant-exported VFT2_FONT_RASTER 1) + +(defconstant-exported VFT2_FONT_VECTOR 2) + +(defconstant-exported VFT2_FONT_TRUETYPE 3) + +(defconstant-exported VFFF_ISSHAREDFILE 1) + +(defconstant-exported VFF_CURNEDEST 1) + +(defconstant-exported VFF_FILEINUSE 2) + +(defconstant-exported VFF_BUFFTOOSMALL 4) + +(defconstant-exported VIFF_FORCEINSTALL 1) + +(defconstant-exported VIFF_DONTDELETEOLD 2) + +(defconstant-exported VIF_TEMPFILE 1) + +(defconstant-exported VIF_MISMATCH 2) + +(defconstant-exported VIF_SRCOLD 4) + +(defconstant-exported VIF_DIFFLANG 8) + +(defconstant-exported VIF_DIFFCODEPG 16) + +(defconstant-exported VIF_DIFFTYPE 32) + +(defconstant-exported VIF_WRITEPROT 64) + +(defconstant-exported VIF_FILEINUSE 128) + +(defconstant-exported VIF_OUTOFSPACE 256) + +(defconstant-exported VIF_ACCESSVIOLATION 512) + +(defconstant-exported VIF_SHARINGVIOLATION 1024) + +(defconstant-exported VIF_CANNOTCREATE 2048) + +(defconstant-exported VIF_CANNOTDELETE 4096) + +(defconstant-exported VIF_CANNOTRENAME 8192) + +(defconstant-exported VIF_CANNOTDELETECUR 16384) + +(defconstant-exported VIF_OUTOFMEMORY 32768) + +(defconstant-exported VIF_CANNOTREADSRC 65536) + +(defconstant-exported VIF_CANNOTREADDST #x20000) + +(defconstant-exported VIF_BUFFTOOSMALL #x40000) + +(defcstructex-exported VS_FIXEDFILEINFO + (dwSignature :unsigned-long) + (dwStrucVersion :unsigned-long) + (dwFileVersionMS :unsigned-long) + (dwFileVersionLS :unsigned-long) + (dwProductVersionMS :unsigned-long) + (dwProductVersionLS :unsigned-long) + (dwFileFlagsMask :unsigned-long) + (dwFileFlags :unsigned-long) + (dwFileOS :unsigned-long) + (dwFileType :unsigned-long) + (dwFileSubtype :unsigned-long) + (dwFileDateMS :unsigned-long) + (dwFileDateLS :unsigned-long)) + + + +(defcfunex-exported ("VerFindFileA" VerFindFileA :convention :stdcall) :unsigned-long + (arg0 :unsigned-long) + (arg1 :string) + (arg2 :string) + (arg3 :string) + (arg4 :string) + (arg5 :pointer) + (arg6 :string) + (arg7 :pointer)) + +(defcfunex-exported ("VerFindFileW" VerFindFileW :convention :stdcall) :unsigned-long + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer) + (arg6 :pointer) + (arg7 :pointer)) + +(defcfunex-exported ("VerInstallFileA" VerInstallFileA :convention :stdcall) :unsigned-long + (arg0 :unsigned-long) + (arg1 :string) + (arg2 :string) + (arg3 :string) + (arg4 :string) + (arg5 :string) + (arg6 :string) + (arg7 :pointer)) + +(defcfunex-exported ("VerInstallFileW" VerInstallFileW :convention :stdcall) :unsigned-long + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer) + (arg6 :pointer) + (arg7 :pointer)) + +(defcfunex-exported ("GetFileVersionInfoSizeA" GetFileVersionInfoSizeA :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :pointer)) + +(defcfunex-exported ("GetFileVersionInfoSizeW" GetFileVersionInfoSizeW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetFileVersionInfoA" GetFileVersionInfoA :convention :stdcall) :int + (arg0 :string) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("GetFileVersionInfoW" GetFileVersionInfoW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("VerLanguageNameA" VerLanguageNameA :convention :stdcall) :unsigned-long + (arg0 :unsigned-long) + (arg1 :string) + (arg2 :unsigned-long)) + +(defcfunex-exported ("VerLanguageNameW" VerLanguageNameW :convention :stdcall) :unsigned-long + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("VerQueryValueA" VerQueryValueA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("VerQueryValueW" VerQueryValueW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) diff --git a/modules/win95.atom.lisp b/modules/win95.atom.lisp new file mode 100644 index 0000000..4b52b17 --- /dev/null +++ b/modules/win95.atom.lisp @@ -0,0 +1,54 @@ + +(defcfunex-exported ("AddAtomA" AddAtomA :convention :stdcall) :unsigned-short + (arg0 :string)) + +(defcfunex-exported ("AddAtomW" AddAtomW :convention :stdcall) :unsigned-short + (arg0 :pointer)) + +(defcfunex-exported ("DeleteAtom" DeleteAtom :convention :stdcall) :unsigned-short + (arg0 :unsigned-short)) + +(defcfunex-exported ("FindAtomA" FindAtomA :convention :stdcall) :unsigned-short + (arg0 :string)) + +(defcfunex-exported ("FindAtomW" FindAtomW :convention :stdcall) :unsigned-short + (arg0 :pointer)) + +(defcfunex-exported ("GetAtomNameA" GetAtomNameA :convention :stdcall) :unsigned-int + (arg0 :unsigned-short) + (arg1 :string) + (arg2 :int)) + +(defcfunex-exported ("GetAtomNameW" GetAtomNameW :convention :stdcall) :unsigned-int + (arg0 :unsigned-short) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("GlobalAddAtomA" GlobalAddAtomA :convention :stdcall) :unsigned-short + (arg0 :string)) + +(defcfunex-exported ("GlobalAddAtomW" GlobalAddAtomW :convention :stdcall) :unsigned-short + (arg0 :pointer)) + +(defcfunex-exported ("GlobalDeleteAtom" GlobalDeleteAtom :convention :stdcall) :unsigned-short + (arg0 :unsigned-short)) + +(defcfunex-exported ("GlobalFindAtomA" GlobalFindAtomA :convention :stdcall) :unsigned-short + (arg0 :string)) + +(defcfunex-exported ("GlobalFindAtomW" GlobalFindAtomW :convention :stdcall) :unsigned-short + (arg0 :pointer)) + +(defcfunex-exported ("GlobalGetAtomNameA" GlobalGetAtomNameA :convention :stdcall) :unsigned-int + (arg0 :unsigned-short) + (arg1 :string) + (arg2 :int)) + +(defcfunex-exported ("GlobalGetAtomNameW" GlobalGetAtomNameW :convention :stdcall) :unsigned-int + (arg0 :unsigned-short) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("InitAtomTable" InitAtomTable :convention :stdcall) :int + (arg0 :unsigned-long)) + diff --git a/modules/win95.bitmap.lisp b/modules/win95.bitmap.lisp new file mode 100644 index 0000000..6dacd98 --- /dev/null +++ b/modules/win95.bitmap.lisp @@ -0,0 +1,221 @@ + +; TESTED +(defcfunex-exported ("BitBlt" BitBlt :convention :stdcall) :int + (hdcDest :pointer) + (nXDest :int) + (nYDest :int) + (nWidth :int) + (nHeight :int) + (hdcSrc :pointer) + (nXSrc :int) + (nYSrc :int) + (dwRop :unsigned-long)) + +(defcfunex-exported ("CreateBitmap" CreateBitmap :convention :stdcall) :pointer + (arg0 :int) + (arg1 :int) + (arg2 :unsigned-int) + (arg3 :unsigned-int) + (arg4 :pointer)) + +(defcfunex-exported ("CreateBitmapIndirect" CreateBitmapIndirect :convention :stdcall) :pointer + (arg0 :pointer)) + +; TESTED +(defcfunex-exported ("CreateCompatibleBitmap" CreateCompatibleBitmap :convention :stdcall) :pointer + (hdc :pointer) + (nWidth :int) + (nHeight :int)) + +(defcfunex-exported ("CreateDIBitmap" CreateDIBitmap :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :unsigned-int)) + +(defcfunex-exported ("CreateDIBSection" CreateDIBSection :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :unsigned-long)) + +(defcfunex-exported ("CreateDiscardableBitmap" CreateDiscardableBitmap :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :int) + (arg2 :int)) + +(defcfunex-exported ("ExtFloodFill" ExtFloodFill :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :unsigned-long) + (arg4 :unsigned-int)) + +(defcfunex-exported ("FloodFill" FloodFill :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :unsigned-long)) + +(defcfunex-exported ("GetBitmapBits" GetBitmapBits :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :int32) + (arg2 :pointer)) + +(defcfunex-exported ("GetBitmapDimensionEx" GetBitmapDimensionEx :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetDIBColorTable" GetDIBColorTable :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :pointer)) + +(defcfunex-exported ("GetDIBits" GetDIBits :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int) + (arg3 :unsigned-int) + (arg4 :pointer) + (arg5 :pointer) + (arg6 :unsigned-int)) + +(defcfunex-exported ("GetPixel" GetPixel :convention :stdcall) :unsigned-long + (hdc :pointer) + (nXPos :int) + (nYPos :int)) + +(defcfunex-exported ("GetStretchBltMode" GetStretchBltMode :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("LoadBitmapA" LoadBitmapA :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :string)) + +(defcfunex-exported ("LoadBitmapW" LoadBitmapW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("MaskBlt" MaskBlt :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :int) + (arg4 :int) + (arg5 :pointer) + (arg6 :int) + (arg7 :int) + (arg8 :pointer) + (arg9 :int) + (arg10 :int) + (arg11 :unsigned-long)) + +(defcfunex-exported ("PatBlt" PatBlt :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :int) + (arg4 :int) + (arg5 :unsigned-long)) + +(defcfunex-exported ("PlgBlt" PlgBlt :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :int) + (arg4 :int) + (arg5 :int) + (arg6 :int) + (arg7 :pointer) + (arg8 :int) + (arg9 :int)) + +(defcfunex-exported ("SetBitmapBits" SetBitmapBits :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("SetBitmapDimensionEx" SetBitmapDimensionEx :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :pointer)) + +(defcfunex-exported ("SetDIBColorTable" SetDIBColorTable :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :pointer)) + +(defcfunex-exported ("SetDIBits" SetDIBits :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int) + (arg3 :unsigned-int) + (arg4 :pointer) + (arg5 :pointer) + (arg6 :unsigned-int)) + +(defcfunex-exported ("SetDIBitsToDevice" SetDIBitsToDevice :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :unsigned-long) + (arg4 :unsigned-long) + (arg5 :int) + (arg6 :int) + (arg7 :unsigned-int) + (arg8 :unsigned-int) + (arg9 :pointer) + (arg10 :pointer) + (arg11 :unsigned-int)) + +(defcfunex-exported ("SetPixel" SetPixel :convention :stdcall) :unsigned-long + (hdc :pointer) + (X :int) + (Y :int) + (crColor :unsigned-long)) + +(defcfunex-exported ("SetPixelV" SetPixelV :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :unsigned-long)) + +(defcfunex-exported ("SetStretchBltMode" SetStretchBltMode :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("StretchBlt" StretchBlt :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :int) + (arg4 :int) + (arg5 :pointer) + (arg6 :int) + (arg7 :int) + (arg8 :int) + (arg9 :int) + (arg10 :unsigned-long)) + +(defcfunex-exported ("StretchDIBits" StretchDIBits :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :int) + (arg4 :int) + (arg5 :int) + (arg6 :int) + (arg7 :int) + (arg8 :int) + (arg9 :pointer) + (arg10 :pointer) + (arg11 :unsigned-int) + (arg12 :unsigned-long)) + diff --git a/modules/win95.brush.lisp b/modules/win95.brush.lisp new file mode 100644 index 0000000..45caa52 --- /dev/null +++ b/modules/win95.brush.lisp @@ -0,0 +1,40 @@ +(defcfunex-exported ("CreateBrushIndirect" CreateBrushIndirect :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("CreateDIBPatternBrushPt" CreateDIBPatternBrushPt :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :unsigned-int)) + +(defcfunex-exported ("CreateHatchBrush" CreateHatchBrush :convention :stdcall) :pointer + (arg0 :int) + (arg1 :unsigned-long)) + +(defcfunex-exported ("CreatePatternBrush" CreatePatternBrush :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("CreateSolidBrush" CreateSolidBrush :convention :stdcall) :pointer + (arg0 :unsigned-long)) + +(defcfunex-exported ("GetBrushOrgEx" GetBrushOrgEx :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("SetBrushOrgEx" SetBrushOrgEx :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :pointer)) + + +;;obsolete + +(defcfunex-exported ("CreateDIBPatternBrush" CreateDIBPatternBrush :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :unsigned-int)) + +(defcfunex-exported ("FixBrushOrgEx" FixBrushOrgEx :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :pointer)) + diff --git a/modules/win95.caret.lisp b/modules/win95.caret.lisp new file mode 100644 index 0000000..1894cdd --- /dev/null +++ b/modules/win95.caret.lisp @@ -0,0 +1,35 @@ + +(cl:in-package w32apimod) + +(define-w32api-module win95.caret :win95.caret) + +(cl:in-package cl-w32api.module.win95.caret) + +(defcfunex-exported ("CreateCaret" CreateCaret :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int) + (arg3 :int)) + +(defcfunex-exported ("DestroyCaret" DestroyCaret :convention :stdcall) :int) + +(defcfunex-exported ("GetCaretBlinkTime" GetCaretBlinkTime :convention :stdcall) :unsigned-int) + +(defcfunex-exported ("GetCaretPos" GetCaretPos :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("HideCaret" HideCaret :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("SetCaretBlinkTime" SetCaretBlinkTime :convention :stdcall) :int + (arg0 :unsigned-int)) + +(defcfunex-exported ("SetCaretPos" SetCaretPos :convention :stdcall) :int + (arg0 :int) + (arg1 :int)) + +(defcfunex-exported ("ShowCaret" ShowCaret :convention :stdcall) :int + (arg0 :pointer)) + + + diff --git a/modules/win95.clipboard.lisp b/modules/win95.clipboard.lisp new file mode 100644 index 0000000..7531de8 --- /dev/null +++ b/modules/win95.clipboard.lisp @@ -0,0 +1,62 @@ + +(cl:in-package w32apimod) + +(define-w32api-module win95.clipboard :win95.clipboard) + +(cl:in-package cl-w32api.module.win95.clipboard) + +(defcfunex-exported ("ChangeClipboardChain" ChangeClipboardChain :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("CloseClipboard" CloseClipboard :convention :stdcall) :int) + +(defcfunex-exported ("CountClipboardFormats" CountClipboardFormats :convention :stdcall) :int) + +(defcfunex-exported ("EmptyClipboard" EmptyClipboard :convention :stdcall) :int) + +(defcfunex-exported ("EnumClipboardFormats" EnumClipboardFormats :convention :stdcall) :unsigned-int + (arg0 :unsigned-int)) + +(defcfunex-exported ("GetClipboardData" GetClipboardData :convention :stdcall) :pointer + (arg0 :unsigned-int)) + +(defcfunex-exported ("GetClipboardFormatNameA" GetClipboardFormatNameA :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :string) + (arg2 :int)) + +(defcfunex-exported ("GetClipboardFormatNameW" GetClipboardFormatNameW :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("GetClipboardOwner" GetClipboardOwner :convention :stdcall) :pointer) + +(defcfunex-exported ("GetClipboardViewer" GetClipboardViewer :convention :stdcall) :pointer) + +(defcfunex-exported ("GetOpenClipboardWindow" GetOpenClipboardWindow :convention :stdcall) :pointer) + +(defcfunex-exported ("GetPriorityClipboardFormat" GetPriorityClipboardFormat :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("IsClipboardFormatAvailable" IsClipboardFormatAvailable :convention :stdcall) :int + (arg0 :unsigned-int)) + +(defcfunex-exported ("OpenClipboard" OpenClipboard :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("RegisterClipboardFormatA" RegisterClipboardFormatA :convention :stdcall) :unsigned-int + (arg0 :string)) + +(defcfunex-exported ("RegisterClipboardFormatW" RegisterClipboardFormatW :convention :stdcall) :unsigned-int + (arg0 :pointer)) + +(defcfunex-exported ("SetClipboardData" SetClipboardData :convention :stdcall) :pointer + (arg0 :unsigned-int) + (arg1 :pointer)) + +(defcfunex-exported ("SetClipboardViewer" SetClipboardViewer :convention :stdcall) :pointer + (arg0 :pointer)) + diff --git a/modules/win95.clipping.lisp b/modules/win95.clipping.lisp new file mode 100644 index 0000000..ba9a9b3 --- /dev/null +++ b/modules/win95.clipping.lisp @@ -0,0 +1,63 @@ + +(cl:in-package w32apimod) + +(define-w32api-module win95.clipping :win95.clipping) + +(cl:in-package cl-w32api.module.win95.clipping) + +(defcfunex-exported ("ExcludeClipRect" ExcludeClipRect :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :int) + (arg4 :int)) + +(defcfunex-exported ("ExtSelectClipRgn" ExtSelectClipRgn :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("GetClipBox" GetClipBox :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetClipRgn" GetClipRgn :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetMetaRgn" GetMetaRgn :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("IntersectClipRect" IntersectClipRect :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :int) + (arg4 :int)) + +(defcfunex-exported ("OffsetClipRgn" OffsetClipRgn :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int)) + +(defcfunex-exported ("PtVisible" PtVisible :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int)) + +(defcfunex-exported ("RectVisible" RectVisible :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("SelectClipPath" SelectClipPath :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("SelectClipRgn" SelectClipRgn :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("SetMetaRgn" SetMetaRgn :convention :stdcall) :int + (arg0 :pointer)) + diff --git a/modules/win95.color.lisp b/modules/win95.color.lisp new file mode 100644 index 0000000..2b3e7a5 --- /dev/null +++ b/modules/win95.color.lisp @@ -0,0 +1,115 @@ + +(cl:in-package w32apimod) + +(define-w32api-module win95.color :win95.color) + +(cl:in-package cl-w32api.module.win95.color) + +(defconstant-exported COLOR_3DDKSHADOW 21) +(defconstant-exported COLOR_3DFACE 15) +(defconstant-exported COLOR_3DHILIGHT 20) +(defconstant-exported COLOR_3DHIGHLIGHT 20) +(defconstant-exported COLOR_3DLIGHT 22) +(defconstant-exported COLOR_BTNHILIGHT 20) +(defconstant-exported COLOR_3DSHADOW 16) +(defconstant-exported COLOR_ACTIVEBORDER 10) +(defconstant-exported COLOR_ACTIVECAPTION 2) +(defconstant-exported COLOR_APPWORKSPACE 12) +(defconstant-exported COLOR_BACKGROUND 1) +(defconstant-exported COLOR_DESKTOP 1) +(defconstant-exported COLOR_BTNFACE 15) +(defconstant-exported COLOR_BTNHIGHLIGHT 20) +(defconstant-exported COLOR_BTNSHADOW 16) +(defconstant-exported COLOR_BTNTEXT 18) +(defconstant-exported COLOR_CAPTIONTEXT 9) +(defconstant-exported COLOR_GRAYTEXT 17) +(defconstant-exported COLOR_HIGHLIGHT 13) +(defconstant-exported COLOR_HIGHLIGHTTEXT 14) +(defconstant-exported COLOR_INACTIVEBORDER 11) +(defconstant-exported COLOR_INACTIVECAPTION 3) +(defconstant-exported COLOR_INACTIVECAPTIONTEXT 19) +(defconstant-exported COLOR_INFOBK 24) +(defconstant-exported COLOR_INFOTEXT 23) +(defconstant-exported COLOR_MENU 4) +(defconstant-exported COLOR_MENUTEXT 7) +(defconstant-exported COLOR_SCROLLBAR 0) +(defconstant-exported COLOR_WINDOW 5) +(defconstant-exported COLOR_WINDOWFRAME 6) +(defconstant-exported COLOR_WINDOWTEXT 8) +(defconstant-exported COLOR_HOTLIGHT 26) +(defconstant-exported COLOR_GRADIENTACTIVECAPTION 27) +(defconstant-exported COLOR_GRADIENTINACTIVECAPTION 28) + +(defcfunex-exported ("AnimatePalette" AnimatePalette :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :pointer)) + +(defcfunex-exported ("CreateHalftonePalette" CreateHalftonePalette :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("CreatePalette" CreatePalette :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("GetColorAdjustment" GetColorAdjustment :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetNearestColor" GetNearestColor :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("GetNearestPaletteIndex" GetNearestPaletteIndex :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("GetPaletteEntries" GetPaletteEntries :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :pointer)) + +(defcfunex-exported ("GetSystemPaletteEntries" GetSystemPaletteEntries :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :pointer)) + +(defcfunex-exported ("GetSystemPaletteUse" GetSystemPaletteUse :convention :stdcall) :unsigned-int + (arg0 :pointer)) + +(defcfunex-exported ("RealizePalette" RealizePalette :convention :stdcall) :unsigned-int + (arg0 :pointer)) + +(defcfunex-exported ("ResizePalette" ResizePalette :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int)) + +(defcfunex-exported ("SelectPalette" SelectPalette :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("SetColorAdjustment" SetColorAdjustment :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("SetPaletteEntries" SetPaletteEntries :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :pointer)) + +(defcfunex-exported ("SetSystemPaletteUse" SetSystemPaletteUse :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int)) + +(defcfunex-exported ("UnrealizeObject" UnrealizeObject :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("UpdateColors" UpdateColors :convention :stdcall) :int + (arg0 :pointer)) + + + diff --git a/modules/win95.comdlg.lisp b/modules/win95.comdlg.lisp new file mode 100644 index 0000000..4f1065d --- /dev/null +++ b/modules/win95.comdlg.lisp @@ -0,0 +1,67 @@ + +(cl:in-package w32apimod) + +(define-w32api-module win95.comdlg :win95.comdlg) + +(cl:in-package cl-w32api.module.win95.comdlg) + +(defcfunex-exported ("ChooseColorA" ChooseColorA :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("ChooseColorW" ChooseColorW :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("ChooseFontA" ChooseFontA :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("ChooseFontW" ChooseFontW :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("CommDlgExtendedError" CommDlgExtendedError :convention :stdcall) :unsigned-long) + +(defcfunex-exported ("FindTextA" FindTextA :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("FindTextW" FindTextW :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("GetFileTitleA" GetFileTitleA :convention :stdcall) :short + (arg0 :string) + (arg1 :string) + (arg2 :unsigned-short)) + +(defcfunex-exported ("GetFileTitleW" GetFileTitleW :convention :stdcall) :short + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-short)) + +(defcfunex-exported ("GetOpenFileNameA" GetOpenFileNameA :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("GetOpenFileNameW" GetOpenFileNameW :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("GetSaveFileNameA" GetSaveFileNameA :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("GetSaveFileNameW" GetSaveFileNameW :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("PageSetupDlgA" PageSetupDlgA :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("PageSetupDlgW" PageSetupDlgW :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("PrintDlgA" PrintDlgA :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("PrintDlgW" PrintDlgW :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("ReplaceTextA" ReplaceTextA :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("ReplaceTextW" ReplaceTextW :convention :stdcall) :pointer + (arg0 :pointer)) + diff --git a/modules/win95.comm.lisp b/modules/win95.comm.lisp new file mode 100644 index 0000000..19e6903 --- /dev/null +++ b/modules/win95.comm.lisp @@ -0,0 +1,139 @@ +(cl:in-package w32apimod) + +(define-w32api-module win95.comm :win95.comm) + +(cl:in-package cl-w32api.module.win95.comm) + +(defcfunex-exported ("BuildCommDCBA" BuildCommDCBA :convention :stdcall) :int + (arg0 :string) + (arg1 :pointer)) + +(defcfunex-exported ("BuildCommDCBW" BuildCommDCBW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("BuildCommDCBAndTimeoutsA" BuildCommDCBAndTimeoutsA :convention :stdcall) :int + (arg0 :string) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("BuildCommDCBAndTimeoutsW" BuildCommDCBAndTimeoutsW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("ClearCommBreak" ClearCommBreak :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("ClearCommError" ClearCommError :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("CommConfigDialogA" CommConfigDialogA :convention :stdcall) :int + (arg0 :string) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("CommConfigDialogW" CommConfigDialogW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("DeviceIoControl" DeviceIoControl :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :unsigned-long) + (arg6 :pointer) + (arg7 :pointer)) + +(defcfunex-exported ("EscapeCommFunction" EscapeCommFunction :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("GetCommConfig" GetCommConfig :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("GetCommMask" GetCommMask :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetCommModemStatus" GetCommModemStatus :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetCommProperties" GetCommProperties :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetCommState" GetCommState :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetCommTimeouts" GetCommTimeouts :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetDefaultCommConfigA" GetDefaultCommConfigA :convention :stdcall) :int + (arg0 :string) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("GetDefaultCommConfigW" GetDefaultCommConfigW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("PurgeComm" PurgeComm :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("SetCommBreak" SetCommBreak :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("SetCommConfig" SetCommConfig :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("SetCommMask" SetCommMask :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("SetCommState" SetCommState :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("SetCommTimeouts" SetCommTimeouts :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("SetDefaultCommConfigA" SetDefaultCommConfigA :convention :stdcall) :int + (arg0 :string) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("SetDefaultCommConfigW" SetDefaultCommConfigW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("SetupComm" SetupComm :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long)) + +(defcfunex-exported ("TransmitCommChar" TransmitCommChar :convention :stdcall) :int + (arg0 :pointer) + (arg1 :char)) + +(defcfunex-exported ("WaitCommEvent" WaitCommEvent :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + diff --git a/modules/win95.console.lisp b/modules/win95.console.lisp new file mode 100644 index 0000000..b2b2f4b --- /dev/null +++ b/modules/win95.console.lisp @@ -0,0 +1,280 @@ + +(cl:in-package w32apimod) + +(define-w32api-module win95.console :win95.console) + +(cl:in-package cl-w32api.module.win95.console) + + +(defcfunex-exported ("AllocConsole" AllocConsole :convention :stdcall) :int) + +(defcfunex-exported ("CreateConsoleScreenBuffer" CreateConsoleScreenBuffer :convention :stdcall) :pointer + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer)) + +(defcfunex-exported ("FillConsoleOutputAttribute" FillConsoleOutputAttribute :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-short) + (arg2 :unsigned-long) + (arg3 COORD) + (arg4 :pointer)) + +(defcfunex-exported ("FillConsoleOutputCharacterA" FillConsoleOutputCharacterA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :char) + (arg2 :unsigned-long) + (arg3 COORD) + (arg4 :pointer)) + +(defcfunex-exported ("FillConsoleOutputCharacterW" FillConsoleOutputCharacterW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 COORD) + (arg4 :pointer)) + +(defcfunex-exported ("FlushConsoleInputBuffer" FlushConsoleInputBuffer :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("FreeConsole" FreeConsole :convention :stdcall) :int) + +(defcfunex-exported ("GenerateConsoleCtrlEvent" GenerateConsoleCtrlEvent :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long)) + +(defcfunex-exported ("GetConsoleCP" GetConsoleCP :convention :stdcall) :unsigned-int) + +(defcfunex-exported ("GetConsoleCursorInfo" GetConsoleCursorInfo :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetConsoleMode" GetConsoleMode :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetConsoleOutputCP" GetConsoleOutputCP :convention :stdcall) :unsigned-int) + +(defcfunex-exported ("GetConsoleScreenBufferInfo" GetConsoleScreenBufferInfo :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetConsoleTitleA" GetConsoleTitleA :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :unsigned-long)) + +(defcfunex-exported ("GetConsoleTitleW" GetConsoleTitleW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("GetLargestConsoleWindowSize" GetLargestConsoleWindowSize :convention :stdcall) COORD + (arg0 :pointer)) + +(defcfunex-exported ("GetNumberOfConsoleInputEvents" GetNumberOfConsoleInputEvents :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetNumberOfConsoleMouseButtons" GetNumberOfConsoleMouseButtons :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("GetStdHandle" GetStdHandle :convention :stdcall) :pointer + (arg0 :unsigned-long)) + +(defcfunex-exported ("PeekConsoleInputA" PeekConsoleInputA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("PeekConsoleInputW" PeekConsoleInputW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("ReadConsoleA" ReadConsoleA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("ReadConsoleW" ReadConsoleW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("ReadConsoleInputA" ReadConsoleInputA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("ReadConsoleInputW" ReadConsoleInputW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("ReadConsoleOutputAttribute" ReadConsoleOutputAttribute :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 COORD) + (arg4 :pointer)) + +(defcfunex-exported ("ReadConsoleOutputCharacterA" ReadConsoleOutputCharacterA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string) + (arg2 :unsigned-long) + (arg3 COORD) + (arg4 :pointer)) + +(defcfunex-exported ("ReadConsoleOutputCharacterW" ReadConsoleOutputCharacterW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 COORD) + (arg4 :pointer)) + +(defcfunex-exported ("ReadConsoleOutputA" ReadConsoleOutputA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 COORD) + (arg3 COORD) + (arg4 :pointer)) + +(defcfunex-exported ("ReadConsoleOutputW" ReadConsoleOutputW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 COORD) + (arg3 COORD) + (arg4 :pointer)) + +(defcfunex-exported ("ScrollConsoleScreenBufferA" ScrollConsoleScreenBufferA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 COORD) + (arg4 :pointer)) + +(defcfunex-exported ("ScrollConsoleScreenBufferW" ScrollConsoleScreenBufferW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 COORD) + (arg4 :pointer)) + +(defcfunex-exported ("SetConsoleActiveScreenBuffer" SetConsoleActiveScreenBuffer :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("SetConsoleCP" SetConsoleCP :convention :stdcall) :int + (arg0 :unsigned-int)) + +(defcfunex-exported ("SetConsoleCtrlHandler" SetConsoleCtrlHandler :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("SetConsoleCursorInfo" SetConsoleCursorInfo :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("SetConsoleCursorPosition" SetConsoleCursorPosition :convention :stdcall) :int + (arg0 :pointer) + (arg1 COORD)) + +(defcfunex-exported ("SetConsoleMode" SetConsoleMode :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("SetConsoleOutputCP" SetConsoleOutputCP :convention :stdcall) :int + (arg0 :unsigned-int)) + +(defcfunex-exported ("SetConsoleScreenBufferSize" SetConsoleScreenBufferSize :convention :stdcall) :int + (arg0 :pointer) + (arg1 COORD)) + +(defcfunex-exported ("SetConsoleTextAttribute" SetConsoleTextAttribute :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-short)) + +(defcfunex-exported ("SetConsoleTitleA" SetConsoleTitleA :convention :stdcall) :int + (arg0 :string)) + +(defcfunex-exported ("SetConsoleTitleW" SetConsoleTitleW :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("SetConsoleWindowInfo" SetConsoleWindowInfo :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :pointer)) + +(defcfunex-exported ("SetStdHandle" SetStdHandle :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :pointer)) + +(defcfunex-exported ("WriteConsoleA" WriteConsoleA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("WriteConsoleW" WriteConsoleW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("WriteConsoleInputA" WriteConsoleInputA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("WriteConsoleInputW" WriteConsoleInputW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("WriteConsoleOutputA" WriteConsoleOutputA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 COORD) + (arg3 COORD) + (arg4 :pointer)) + +(defcfunex-exported ("WriteConsoleOutputW" WriteConsoleOutputW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 COORD) + (arg3 COORD) + (arg4 :pointer)) + +(defcfunex-exported ("WriteConsoleOutputAttribute" WriteConsoleOutputAttribute :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 COORD) + (arg4 :pointer)) + +(defcfunex-exported ("WriteConsoleOutputCharacterA" WriteConsoleOutputCharacterA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string) + (arg2 :unsigned-long) + (arg3 COORD) + (arg4 :pointer)) + +(defcfunex-exported ("WriteConsoleOutputCharacterW" WriteConsoleOutputCharacterW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 COORD) + (arg4 :pointer)) + diff --git a/modules/win95.coord-transform.lisp b/modules/win95.coord-transform.lisp new file mode 100644 index 0000000..5918cd1 --- /dev/null +++ b/modules/win95.coord-transform.lisp @@ -0,0 +1,123 @@ + +(defcfunex-exported ("ClientToScreen" ClientToScreen :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("CombineTransform" CombineTransform :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("DPtoLP" DPtoLP :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("GetCurrentPositionEx" GetCurrentPositionEx :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetGraphicsMode" GetGraphicsMode :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("GetMapMode" GetMapMode :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("GetViewportExtEx" GetViewportExtEx :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetViewportOrgEx" GetViewportOrgEx :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetWindowExtEx" GetWindowExtEx :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetWindowOrgEx" GetWindowOrgEx :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetWorldTransform" GetWorldTransform :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("LPtoDP" LPtoDP :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("ModifyWorldTransform" ModifyWorldTransform :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("OffsetViewportOrgEx" OffsetViewportOrgEx :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :pointer)) + +(defcfunex-exported ("OffsetWindowOrgEx" OffsetWindowOrgEx :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :pointer)) + +(defcfunex-exported ("ScaleViewportExtEx" ScaleViewportExtEx :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :int) + (arg4 :int) + (arg5 :pointer)) + +(defcfunex-exported ("ScaleWindowExtEx" ScaleWindowExtEx :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :int) + (arg4 :int) + (arg5 :pointer)) + +(defcfunex-exported ("ScreenToClient" ScreenToClient :convention :stdcall) :int + (hWnd :pointer) + (lpPOINT :pointer)) + +(defcfunex-exported ("SetGraphicsMode" SetGraphicsMode :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("SetMapMode" SetMapMode :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("SetViewportExtEx" SetViewportExtEx :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :pointer)) + +(defcfunex-exported ("SetViewportOrgEx" SetViewportOrgEx :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :pointer)) + +(defcfunex-exported ("SetWindowExtEx" SetWindowExtEx :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :pointer)) + +(defcfunex-exported ("SetWindowOrgEx" SetWindowOrgEx :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :pointer)) + +(defcfunex-exported ("SetWorldTransform" SetWorldTransform :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + diff --git a/modules/win95.cursor.lisp b/modules/win95.cursor.lisp new file mode 100644 index 0000000..12a6fb1 --- /dev/null +++ b/modules/win95.cursor.lisp @@ -0,0 +1,78 @@ +(cl:in-package w32apimod) + +(define-w32api-module win95.cursor :win95.cursor) + +(cl:in-package cl-w32api.module.win95.cursor) + +(require-and-inherit-module "win95.~") + +(defconstant-exported IDC_ARROW (MAKEINTRESOURCE 32512)) +(defconstant-exported IDC_IBEAM (MAKEINTRESOURCE 32513)) +(defconstant-exported IDC_WAIT (MAKEINTRESOURCE 32514)) +(defconstant-exported IDC_CROSS (MAKEINTRESOURCE 32515)) +(defconstant-exported IDC_UPARROW (MAKEINTRESOURCE 32516)) +(defconstant-exported IDC_SIZENWSE (MAKEINTRESOURCE 32642)) +(defconstant-exported IDC_SIZENESW (MAKEINTRESOURCE 32643)) +(defconstant-exported IDC_SIZEWE (MAKEINTRESOURCE 32644)) +(defconstant-exported IDC_SIZENS (MAKEINTRESOURCE 32645)) +(defconstant-exported IDC_SIZEALL (MAKEINTRESOURCE 32646)) +(defconstant-exported IDC_NO (MAKEINTRESOURCE 32648)) +(defconstant-exported IDC_HAND (MAKEINTRESOURCE 32649)) +(defconstant-exported IDC_APPSTARTING (MAKEINTRESOURCE 32650)) +(defconstant-exported IDC_HELP (MAKEINTRESOURCE 32651)) +(defconstant-exported IDC_ICON (MAKEINTRESOURCE 32641)) +(defconstant-exported IDC_SIZE (MAKEINTRESOURCE 32640)) + +(defcfunex-exported ("ClipCursor" ClipCursor :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("CreateCursor" CreateCursor :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :int) + (arg4 :int) + (arg5 :pointer) + (arg6 :pointer)) + +(defcfunex-exported ("DestroyCursor" DestroyCursor :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("GetClipCursor" GetClipCursor :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("GetCursor" GetCursor :convention :stdcall) :pointer) + +(defcfunex-exported ("GetCursorPos" GetCursorPos :convention :stdcall) :int + (lpPOINT :pointer)) + +(defcfunex-exported ("LoadCursorA" LoadCursorA :convention :stdcall) HCURSOR + (|hInstance| HINSTANCE) + (|lpCursorName| ASTRING)) + +(defcfunex-exported ("LoadCursorW" LoadCursorW :convention :stdcall) HCURSOR + (|hInstance| HINSTANCE) + (|lpCursorName| WSTRING)) + +(define-abbrev-exported LoadCursor LoadCursorW) + +(defcfunex-exported ("LoadCursorFromFileA" LoadCursorFromFileA :convention :stdcall) :pointer + (arg0 :string)) + +(defcfunex-exported ("LoadCursorFromFileW" LoadCursorFromFileW :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("SetCursor" SetCursor :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("SetCursorPos" SetCursorPos :convention :stdcall) :int + (arg0 :int) + (arg1 :int)) + +(defcfunex-exported ("SetSystemCursor" SetSystemCursor :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("ShowCursor" ShowCursor :convention :stdcall) :int + (arg0 :int)) + diff --git a/modules/win95.dc.lisp b/modules/win95.dc.lisp new file mode 100644 index 0000000..318b003 --- /dev/null +++ b/modules/win95.dc.lisp @@ -0,0 +1,103 @@ + +(cl:in-package w32apimod) + +(define-w32api-module win95.dc :win95.dc) + +(cl:in-package cl-w32api.module.win95.dc) + +(defcfunex-exported ("CancelDC" CancelDC :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("CreateCompatibleDC" CreateCompatibleDC :convention :stdcall) :pointer + (hdc :pointer)) + +(defcfunex-exported ("CreateDCA" CreateDCA :convention :stdcall) :pointer + (arg0 :string) + (arg1 :string) + (arg2 :string) + (arg3 :pointer)) + +(defcfunex-exported ("CreateDCW" CreateDCW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("CreateICA" CreateICA :convention :stdcall) :pointer + (arg0 :string) + (arg1 :string) + (arg2 :string) + (arg3 :pointer)) + +(defcfunex-exported ("CreateICW" CreateICW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("DeleteDC" DeleteDC :convention :stdcall) :int + (hdc :pointer)) + +(defcfunex-exported ("DeleteObject" DeleteObject :convention :stdcall) :int + (hObject :pointer)) + +(defcfunex-exported ("DrawEscape" DrawEscape :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :string)) + +(defcfunex-exported ("EnumObjects" EnumObjects :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :pointer) + (arg3 :int32)) + +(defcfunex-exported ("GetCurrentObject" GetCurrentObject :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :unsigned-int)) + +(defcfunex-exported ("GetDC" GetDC :convention :stdcall) :pointer + (hWnd :pointer)) + +(defcfunex-exported ("GetDCEx" GetDCEx :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("GetObjectA" GetObjectA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :pointer)) + +(defcfunex-exported ("GetObjectW" GetObjectW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :pointer)) + +(defcfunex-exported ("GetObjectType" GetObjectType :convention :stdcall) :unsigned-long + (arg0 :pointer)) + +(defcfunex-exported ("ReleaseDC" ReleaseDC :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("ResetDCA" ResetDCA :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("ResetDCW" ResetDCW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("RestoreDC" RestoreDC :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("SaveDC" SaveDC :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("SelectObject" SelectObject :convention :stdcall) :pointer + (hdc :pointer) + (hgdiobj :pointer)) + diff --git a/modules/win95.dde-manage.lisp b/modules/win95.dde-manage.lisp new file mode 100644 index 0000000..c08fcff --- /dev/null +++ b/modules/win95.dde-manage.lisp @@ -0,0 +1,161 @@ + +(cl:in-package w32apimod) + +(define-w32api-module win95.dde-manage :win95.dde-manage) + +(cl:in-package cl-w32api.module.win95.dde-manage) + +(defcfunex-exported ("DdeAbandonTransaction" DdeAbandonTransaction :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("DdeAccessData" DdeAccessData :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("DdeAddData" DdeAddData :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :unsigned-long)) + +(defcfunex-exported ("DdeClientTransaction" DdeClientTransaction :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :unsigned-int) + (arg5 :unsigned-int) + (arg6 :unsigned-long) + (arg7 :pointer)) + +(defcfunex-exported ("DdeCmpStringHandles" DdeCmpStringHandles :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("DdeConnect" DdeConnect :convention :stdcall) :pointer + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("DdeConnectList" DdeConnectList :convention :stdcall) :pointer + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("DdeCreateDataHandle" DdeCreateDataHandle :convention :stdcall) :pointer + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :unsigned-int) + (arg6 :unsigned-int)) + +(defcfunex-exported ("DdeCreateStringHandleA" DdeCreateStringHandleA :convention :stdcall) :pointer + (arg0 :unsigned-long) + (arg1 :string) + (arg2 :int)) + +(defcfunex-exported ("DdeCreateStringHandleW" DdeCreateStringHandleW :convention :stdcall) :pointer + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("DdeDisconnect" DdeDisconnect :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("DdeDisconnectList" DdeDisconnectList :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("DdeEnableCallback" DdeEnableCallback :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("DdeFreeDataHandle" DdeFreeDataHandle :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("DdeFreeStringHandle" DdeFreeStringHandle :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :pointer)) + +(defcfunex-exported ("DdeGetData" DdeGetData :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :unsigned-long)) + +(defcfunex-exported ("DdeGetLastError" DdeGetLastError :convention :stdcall) :unsigned-int + (arg0 :unsigned-long)) + +(defcfunex-exported ("DdeImpersonateClient" DdeImpersonateClient :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("DdeInitializeA" DdeInitializeA :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :unsigned-long)) + +(defcfunex-exported ("DdeInitializeW" DdeInitializeW :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :unsigned-long)) + +(defcfunex-exported ("DdeKeepStringHandle" DdeKeepStringHandle :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :pointer)) + +(defcfunex-exported ("DdeNameService" DdeNameService :convention :stdcall) :pointer + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-int)) + +(defcfunex-exported ("DdePostAdvise" DdePostAdvise :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("DdeQueryConvInfo" DdeQueryConvInfo :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("DdeQueryNextServer" DdeQueryNextServer :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("DdeQueryStringA" DdeQueryStringA :convention :stdcall) :unsigned-long + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :string) + (arg3 :unsigned-long) + (arg4 :int)) + +(defcfunex-exported ("DdeQueryStringW" DdeQueryStringW :convention :stdcall) :unsigned-long + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :int)) + +(defcfunex-exported ("DdeReconnect" DdeReconnect :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("DdeSetUserHandle" DdeSetUserHandle :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long)) + +(defcfunex-exported ("DdeUnaccessData" DdeUnaccessData :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("DdeUninitialize" DdeUninitialize :convention :stdcall) :int + (arg0 :unsigned-long)) diff --git a/modules/win95.debugging.lisp b/modules/win95.debugging.lisp new file mode 100644 index 0000000..c834ebd --- /dev/null +++ b/modules/win95.debugging.lisp @@ -0,0 +1,67 @@ + +(cl:in-package w32apimod) + +(define-w32api-module win95.debugging :win95.debugging) + +(cl:in-package cl-w32api.module.win95.debugging) + +(defcfunex-exported ("ContinueDebugEvent" ContinueDebugEvent :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :unsigned-long)) + +(defcfunex-exported ("DebugActiveProcess" DebugActiveProcess :convention :stdcall) :int + (arg0 :unsigned-long)) + +(defcfunex-exported ("DebugBreak" DebugBreak :convention :stdcall) :void) + +(defcfunex-exported ("FatalExit" FatalExit :convention :stdcall) :void + (arg0 :int)) + +(defcfunex-exported ("FlushInstructionCache" FlushInstructionCache :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("GetThreadContext" GetThreadContext :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetThreadSelectorEntry" GetThreadSelectorEntry :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("IsDebuggerPresent" IsDebuggerPresent :convention :stdcall) :int) + +(defcfunex-exported ("OutputDebugStringA" OutputDebugStringA :convention :stdcall) :void + (arg0 :string)) + +(defcfunex-exported ("OutputDebugStringW" OutputDebugStringW :convention :stdcall) :void + (arg0 :pointer)) + +(defcfunex-exported ("ReadProcessMemory" ReadProcessMemory :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer)) + +(defcfunex-exported ("SetDebugErrorLevel" SetDebugErrorLevel :convention :stdcall) :void + (arg0 :unsigned-long)) + +(defcfunex-exported ("SetThreadContext" SetThreadContext :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("WaitForDebugEvent" WaitForDebugEvent :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("WriteProcessMemory" WriteProcessMemory :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer)) + diff --git a/modules/win95.dialogbox.lisp b/modules/win95.dialogbox.lisp new file mode 100644 index 0000000..1b97c8e --- /dev/null +++ b/modules/win95.dialogbox.lisp @@ -0,0 +1,183 @@ + +(cl:in-package w32apimod) + +(define-w32api-module win95.dialogbox :win95.dialogbox) + +(cl:in-package cl-w32api.module.win95.dialogbox) + +(require-and-inherit-module "win95.~") +(require-and-inherit-module "win95.window") + +(defbitfield-extended (DIALOG-STYLES DWORD) WINDOW-STYLES + (:3DLOOK 4) + (:ABSALIGN 1) + (:CENTER #x800) + (:CENTERMOUSE 4096) + (:CONTEXTHELP #x2000) + (:CONTROL #x400) + (:FIXEDSYS 8) + (:LOCALEDIT 32) + (:MODALFRAME 128) + (:NOFAILCREATE 16) + (:NOIDLEMSG 256) + (:SETFONT 64) + (:SETFOREGROUND 512) + (:SYSMODAL 2) + (:SHELLFONT #.(cl:logior 64 8))) + +(defcstructex-exported DLGITEMTEMPLATE + (style :unsigned-long) + (dwExtendedStyle :unsigned-long) + (x :short) + (y :short) + (cx :short) + (cy :short) + (id :unsigned-short)) + + + +(defcstructex-exported DLGTEMPLATE + (style :unsigned-long) + (dwExtendedStyle :unsigned-long) + (cdit :unsigned-short) + (x :short) + (y :short) + (cx :short) + (cy :short)) + + +(defcfunex-exported ("CreateDialogIndirectParamA" CreateDialogIndirectParamA :convention :stdcall) HWND + (|hInstance| HINSTANCE) + (arg1 :pointer) + (|hWndParent| HWND) + (arg3 :pointer) + (arg4 :int32)) + +(defcfunex-exported ("CreateDialogIndirectParamW" CreateDialogIndirectParamW :convention :stdcall) HWND + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :int32)) + +(defcfunex-exported ("CreateDialogParamA" CreateDialogParamA :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :string) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :int32)) + +(defcfunex-exported ("CreateDialogParamW" CreateDialogParamW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :int32)) + +(defcfunex-exported ("GetDialogBaseUnits" GetDialogBaseUnits :convention :stdcall) :int32) + +(defcfunex-exported ("GetDlgCtrlID" GetDlgCtrlID :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("GetDlgItem" GetDlgItem :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("GetDlgItemInt" GetDlgItemInt :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :int) + (arg2 :pointer) + (arg3 :int)) + +(defcfunex-exported ("GetDlgItemTextA" GetDlgItemTextA :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :int) + (arg2 :string) + (arg3 :int)) + +(defcfunex-exported ("GetDlgItemTextW" GetDlgItemTextW :convention :stdcall) :unsigned-int + (arg0 HWND) + (arg1 :int) + (arg2 :pointer) + (arg3 :int)) + + +(defbitfield (MESSAGEBOX-FLAGS UINT) + (:USERICON 128) (:ICONASTERISK 64) (:ICONEXCLAMATION + #x30) (:ICONWARNING #x30) (:ICONERROR 16) (:ICONHAND 16) + (:ICONQUESTION 32) (:OK 0) (:ABORTRETRYIGNORE 2) (:APPLMODAL 0) (:DEFAULT_DESKTOP_ONLY #x20000) (:HELP #x4000) + (:RIGHT #x80000) (:RTLREADING #x100000) (:TOPMOST #x40000) (:DEFBUTTON1 0) (:DEFBUTTON2 256) (:DEFBUTTON3 512) + (:DEFBUTTON4 #x300) (:ICONINFORMATION 64) (:ICONSTOP 16) (:OKCANCEL 1) (:RETRYCANCEL 5) (:SERVICE_NOTIFICATION #x00200000) + (:SERVICE_NOTIFICATION_NT3X #x00040000) (:SETFOREGROUND #x10000) (:SYSTEMMODAL 4096) (:TASKMODAL #x2000) (:YESNO 4) + (:YESNOCANCEL 3) (:ICONMASK 240) (:DEFMASK 3840) (:MODEMASK #x00003000) (:MISCMASK #x0000C000) (:NOFOCUS #x00008000) + (:TYPEMASK 15) ) + +(defcenum (DIALOGBOX-RETCODE :int) + (:OK 1) (:CANCEL 2) (:ABORT 3) (:RETRY 4) (:IGNORE 5) + (:YES 6) (:NO 7) (:CLOSE 8) (:HELP 9)) + +(defcfunex-exported ("MessageBoxA" MessageBoxA :convention :stdcall) DIALOGBOX-RETCODE + (|hWnd| HWND) + (|lpText| ASTRING) + (|lpCaption| ASTRING) + (|uType| MESSAGEBOX-FLAGS)) + +(defcfunex-exported ("MessageBoxW" MessageBoxW :convention :stdcall) DIALOGBOX-RETCODE + (|hWnd| HWND) + (|lpText| WSTRING) + (|lpCaption| WSTRING) + (|uType| MESSAGEBOX-FLAGS)) + +(define-abbrev-exported MessageBox MessageBoxW) + +(defcfunex-exported ("MessageBoxExA" MessageBoxExA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string) + (arg2 :string) + (arg3 :unsigned-int) + (arg4 :unsigned-short)) + +(defcfunex-exported ("MessageBoxExW" MessageBoxExW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-int) + (arg4 :unsigned-short)) + +(defcfunex-exported ("MessageBoxIndirectA" MessageBoxIndirectA :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("MessageBoxIndirectW" MessageBoxIndirectW :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("SendDlgItemMessageA" SendDlgItemMessageA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :int) + (arg2 :unsigned-int) + (arg3 :unsigned-int) + (arg4 :int32)) + +(defcfunex-exported ("SendDlgItemMessageW" SendDlgItemMessageW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :int) + (arg2 :unsigned-int) + (arg3 :unsigned-int) + (arg4 :int32)) + +(defcfunex-exported ("SetDlgItemInt" SetDlgItemInt :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :unsigned-int) + (arg3 :int)) + +(defcfunex-exported ("SetDlgItemTextA" SetDlgItemTextA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :string)) + +(defcfunex-exported ("SetDlgItemTextW" SetDlgItemTextW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :pointer)) + + diff --git a/modules/win95.dll.lisp b/modules/win95.dll.lisp new file mode 100644 index 0000000..69f7d44 --- /dev/null +++ b/modules/win95.dll.lisp @@ -0,0 +1,61 @@ + +(cl:in-package w32apimod) + +(define-w32api-module win95.dll :win95.dll) + +(cl:in-package cl-w32api.module.win95.dll) + +(require-and-inherit-module "win95.~") + +(defcfunex-exported ("DisableThreadLibraryCalls" DisableThreadLibraryCalls :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("FreeLibrary" FreeLibrary :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("FreeLibraryAndExitThread" FreeLibraryAndExitThread :convention :stdcall) :void + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("GetModuleFileNameA" GetModuleFileNameA :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :string) + (arg2 :unsigned-long)) + +(defcfunex-exported ("GetModuleFileNameW" GetModuleFileNameW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("GetModuleHandleA" GetModuleHandleA :convention :stdcall) HMODULE + (|lpModuleName| ASTRING)) + +(defcfunex-exported ("GetModuleHandleW" GetModuleHandleW :convention :stdcall) HMODULE + (|lpModuleName| WSTRING)) + +(define-abbrev-exported GetModuleHandle GetModuleHandleW) + +(defcfunex-exported ("GetProcAddress" GetProcAddress :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :string)) + +(defcfunex-exported ("LoadLibraryA" LoadLibraryA :convention :stdcall) :pointer + (arg0 :string)) + +(defcfunex-exported ("LoadLibraryW" LoadLibraryW :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("LoadLibraryExA" LoadLibraryExA :convention :stdcall) :pointer + (arg0 :string) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("LoadLibraryExW" LoadLibraryExW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("LoadModule" LoadModule :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :pointer)) + diff --git a/modules/win95.error.lisp b/modules/win95.error.lisp index 33f8d66..4a3e63d 100644 --- a/modules/win95.error.lisp +++ b/modules/win95.error.lisp @@ -5,25 +5,1843 @@ (cl:in-package cl-w32api.module.win95.error) -(defctype-exported VOID :void) -(defctype-exported HWND :pointer) -(defctype-exported BOOL :boolean) -(defctype-exported DWORD :unsigned-long) +(require-and-inherit-module "win95.~") -(defctype-exported UINT :unsigned-int) - -(defctype-exported ASTRING :string) -(defctype-exported WSTRING :string) +(defcenum (ERROR-CODES DWORD) + (:SUCCESS 0) + (:NO_ERROR 0) + (:INVALID_FUNCTION 1) + (:FILE_NOT_FOUND 2) + (:PATH_NOT_FOUND 3) + (:TOO_MANY_OPEN_FILES 4) + (:ACCESS_DENIED 5) + (:INVALID_HANDLE 6) + (:ARENA_TRASHED 7) + (:NOT_ENOUGH_MEMORY 8) + (:INVALID_BLOCK 9) + (:BAD_ENVIRONMENT 10) + (:BAD_FORMAT 11) + (:INVALID_ACCESS 12) + (:INVALID_DATA 13) + (:OUTOFMEMORY 14) + (:INVALID_DRIVE 15) + (:CURRENT_DIRECTORY 16) + (:NOT_SAME_DEVICE 17) + (:NO_MORE_FILES 18) + (:WRITE_PROTECT 19) + (:BAD_UNIT 20) + (:NOT_READY 21) + (:BAD_COMMAND 22) + (:CRC 23) + (:BAD_LENGTH 24) + (:SEEK 25) + (:NOT_DOS_DISK 26) + (:SECTOR_NOT_FOUND 27) + (:OUT_OF_PAPER 28) + (:WRITE_FAULT 29) + (:READ_FAULT 30) + (:GEN_FAILURE 31) + (:SHARING_VIOLATION 32) + (:LOCK_VIOLATION 33) + (:WRONG_DISK 34) + (:SHARING_BUFFER_EXCEEDED 36) + (:HANDLE_EOF 38) + (:HANDLE_DISK_FULL 39) + (:NOT_SUPPORTED 50) + (:REM_NOT_LIST 51) + (:DUP_NAME 52) + (:BAD_NETPATH 53) + (:NETWORK_BUSY 54) + (:DEV_NOT_EXIST 55) + (:TOO_MANY_CMDS 56) + (:ADAP_HDW_ERR 57) + (:BAD_NET_RESP 58) + (:UNEXP_NET_ERR 59) + (:BAD_REM_ADAP 60) + (:PRINTQ_FULL 61) + (:NO_SPOOL_SPACE 62) + (:PRINT_CANCELLED 63) + (:NETNAME_DELETED 64) + (:NETWORK_ACCESS_DENIED 65) + (:BAD_DEV_TYPE 66) + (:BAD_NET_NAME 67) + (:TOO_MANY_NAMES 68) + (:TOO_MANY_SESS 69) + (:SHARING_PAUSED 70) + (:REQ_NOT_ACCEP 71) + (:REDIR_PAUSED 72) + (:FILE_EXISTS 80) + (:CANNOT_MAKE 82) + (:FAIL_I24 83) + (:OUT_OF_STRUCTURES 84) + (:ALREADY_ASSIGNED 85) + (:INVALID_PASSWORD 86) + (:INVALID_PARAMETER 87) + (:NET_WRITE_FAULT 88) + (:NO_PROC_SLOTS 89) + (:TOO_MANY_SEMAPHORES 100) + (:EXCL_SEM_ALREADY_OWNED 101) + (:SEM_IS_SET 102) + (:TOO_MANY_SEM_REQUESTS 103) + (:INVALID_AT_INTERRUPT_TIME 104) + (:SEM_OWNER_DIED 105) + (:SEM_USER_LIMIT 106) + (:DISK_CHANGE 107) + (:DRIVE_LOCKED 108) + (:BROKEN_PIPE 109) + (:OPEN_FAILED 110) + (:BUFFER_OVERFLOW 111) + (:DISK_FULL 112) + (:NO_MORE_SEARCH_HANDLES 113) + (:INVALID_TARGET_HANDLE 114) + (:INVALID_CATEGORY 117) + (:INVALID_VERIFY_SWITCH 118) + (:BAD_DRIVER_LEVEL 119) + (:CALL_NOT_IMPLEMENTED 120) + (:SEM_TIMEOUT 121) + (:INSUFFICIENT_BUFFER 122) + (:INVALID_NAME 123) + (:INVALID_LEVEL 124) + (:NO_VOLUME_LABEL 125) + (:MOD_NOT_FOUND 126) + (:PROC_NOT_FOUND 127) + (:WAIT_NO_CHILDREN 128) + (:CHILD_NOT_COMPLETE 129) + (:DIRECT_ACCESS_HANDLE 130) + (:NEGATIVE_SEEK 131) + (:SEEK_ON_DEVICE 132) + (:IS_JOIN_TARGET 133) + (:IS_JOINED 134) + (:IS_SUBSTED 135) + (:NOT_JOINED 136) + (:NOT_SUBSTED 137) + (:JOIN_TO_JOIN 138) + (:SUBST_TO_SUBST 139) + (:JOIN_TO_SUBST 140) + (:SUBST_TO_JOIN 141) + (:BUSY_DRIVE 142) + (:SAME_DRIVE 143) + (:DIR_NOT_ROOT 144) + (:DIR_NOT_EMPTY 145) + (:IS_SUBST_PATH 146) + (:IS_JOIN_PATH 147) + (:PATH_BUSY 148) + (:IS_SUBST_TARGET 149) + (:SYSTEM_TRACE 150) + (:INVALID_EVENT_COUNT 151) + (:TOO_MANY_MUXWAITERS 152) + (:INVALID_LIST_FORMAT 153) + (:LABEL_TOO_LONG 154) + (:TOO_MANY_TCBS 155) + (:SIGNAL_REFUSED 156) + (:DISCARDED 157) + (:NOT_LOCKED 158) + (:BAD_THREADID_ADDR 159) + (:BAD_ARGUMENTS 160) + (:BAD_PATHNAME 161) + (:SIGNAL_PENDING 162) + (:MAX_THRDS_REACHED 164) + (:LOCK_FAILED 167) + (:BUSY 170) + (:CANCEL_VIOLATION 173) + (:ATOMIC_LOCKS_NOT_SUPPORTED 174) + (:INVALID_SEGMENT_NUMBER 180) + (:INVALID_ORDINAL 182) + (:ALREADY_EXISTS 183) + (:INVALID_FLAG_NUMBER 186) + (:SEM_NOT_FOUND 187) + (:INVALID_STARTING_CODESEG 188) + (:INVALID_STACKSEG 189) + (:INVALID_MODULETYPE 190) + (:INVALID_EXE_SIGNATURE 191) + (:EXE_MARKED_INVALID 192) + (:BAD_EXE_FORMAT 193) + (:ITERATED_DATA_EXCEEDS_64k 194) + (:INVALID_MINALLOCSIZE 195) + (:DYNLINK_FROM_INVALID_RING 196) + (:IOPL_NOT_ENABLED 197) + (:INVALID_SEGDPL 198) + (:AUTODATASEG_EXCEEDS_64k 199) + (:RING2SEG_MUST_BE_MOVABLE 200) + (:RELOC_CHAIN_XEEDS_SEGLIM 201) + (:INFLOOP_IN_RELOC_CHAIN 202) + (:ENVVAR_NOT_FOUND 203) + (:NO_SIGNAL_SENT 205) + (:FILENAME_EXCED_RANGE 206) + (:RING2_STACK_IN_USE 207) + (:META_EXPANSION_TOO_LONG 208) + (:INVALID_SIGNAL_NUMBER 209) + (:THREAD_1_INACTIVE 210) + (:LOCKED 212) + (:TOO_MANY_MODULES 214) + (:NESTING_NOT_ALLOWED 215) + (:EXE_MACHINE_TYPE_MISMATCH 216) + (:EXE_CANNOT_MODIFY_SIGNED_BINARY 217) + (:EXE_CANNOT_MODIFY_STRONG_SIGNED_BINARY 218) + (:BAD_PIPE 230) + (:PIPE_BUSY 231) + (:NO_DATA 232) + (:PIPE_NOT_CONNECTED 233) + (:MORE_DATA 234) + (:VC_DISCONNECTED 240) + (:INVALID_EA_NAME 254) + (:EA_LIST_INCONSISTENT 255) + (:WAIT_TIMEOUT 258) + (:NO_MORE_ITEMS 259) + (:CANNOT_COPY 266) + (:DIRECTORY 267) + (:EAS_DIDNT_FIT 275) + (:EA_FILE_CORRUPT 276) + (:EA_TABLE_FULL 277) + (:INVALID_EA_HANDLE 278) + (:EAS_NOT_SUPPORTED 282) + (:NOT_OWNER 288) + (:TOO_MANY_POSTS 298) + (:PARTIAL_COPY 299) + (:OPLOCK_NOT_GRANTED 300) + (:INVALID_OPLOCK_PROTOCOL 301) + (:DISK_TOO_FRAGMENTED 302) + (:DELETE_PENDING 303) + (:MR_MID_NOT_FOUND 317) + (:SCOPE_NOT_FOUND 318) + (:INVALID_ADDRESS 487) + (:ARITHMETIC_OVERFLOW 534) + (:PIPE_CONNECTED 535) + (:PIPE_LISTENING 536) + (:EA_ACCESS_DENIED 994) + (:OPERATION_ABORTED 995) + (:IO_INCOMPLETE 996) + (:IO_PENDING 997) + (:NOACCESS 998) + (:SWAPERROR 999) + (:STACK_OVERFLOW 1001) + (:INVALID_MESSAGE 1002) + (:CAN_NOT_COMPLETE 1003) + (:INVALID_FLAGS 1004) + (:UNRECOGNIZED_VOLUME 1005) + (:FILE_INVALID 1006) + (:FULLSCREEN_MODE 1007) + (:NO_TOKEN 1008) + (:BADDB 1009) + (:BADKEY 1010) + (:CANTOPEN 1011) + (:CANTREAD 1012) + (:CANTWRITE 1013) + (:REGISTRY_RECOVERED 1014) + (:REGISTRY_CORRUPT 1015) + (:REGISTRY_IO_FAILED 1016) + (:NOT_REGISTRY_FILE 1017) + (:KEY_DELETED 1018) + (:NO_LOG_SPACE 1019) + (:KEY_HAS_CHILDREN 1020) + (:CHILD_MUST_BE_VOLATILE 1021) + (:NOTIFY_ENUM_DIR 1022) + (:DEPENDENT_SERVICES_RUNNING 1051) + (:INVALID_SERVICE_CONTROL 1052) + (:SERVICE_REQUEST_TIMEOUT 1053) + (:SERVICE_NO_THREAD 1054) + (:SERVICE_DATABASE_LOCKED 1055) + (:SERVICE_ALREADY_RUNNING 1056) + (:INVALID_SERVICE_ACCOUNT 1057) + (:SERVICE_DISABLED 1058) + (:CIRCULAR_DEPENDENCY 1059) + (:SERVICE_DOES_NOT_EXIST 1060) + (:SERVICE_CANNOT_ACCEPT_CTRL 1061) + (:SERVICE_NOT_ACTIVE 1062) + (:FAILED_SERVICE_CONTROLLER_CONNECT 1063) + (:EXCEPTION_IN_SERVICE 1064) + (:DATABASE_DOES_NOT_EXIST 1065) + (:SERVICE_SPECIFIC_ERROR 1066) + (:PROCESS_ABORTED 1067) + (:SERVICE_DEPENDENCY_FAIL 1068) + (:SERVICE_LOGON_FAILED 1069) + (:SERVICE_START_HANG 1070) + (:INVALID_SERVICE_LOCK 1071) + (:SERVICE_MARKED_FOR_DELETE 1072) + (:SERVICE_EXISTS 1073) + (:ALREADY_RUNNING_LKG 1074) + (:SERVICE_DEPENDENCY_DELETED 1075) + (:BOOT_ALREADY_ACCEPTED 1076) + (:SERVICE_NEVER_STARTED 1077) + (:DUPLICATE_SERVICE_NAME 1078) + (:DIFFERENT_SERVICE_ACCOUNT 1079) + (:CANNOT_DETECT_DRIVER_FAILURE 1080) + (:CANNOT_DETECT_PROCESS_ABORT 1081) + (:NO_RECOVERY_PROGRAM 1082) + (:SERVICE_NOT_IN_EXE 1083) + (:NOT_SAFEBOOT_SERVICE 1084) + (:END_OF_MEDIA 1100) + (:FILEMARK_DETECTED 1101) + (:BEGINNING_OF_MEDIA 1102) + (:SETMARK_DETECTED 1103) + (:NO_DATA_DETECTED 1104) + (:PARTITION_FAILURE 1105) + (:INVALID_BLOCK_LENGTH 1106) + (:DEVICE_NOT_PARTITIONED 1107) + (:UNABLE_TO_LOCK_MEDIA 1108) + (:UNABLE_TO_UNLOAD_MEDIA 1109) + (:MEDIA_CHANGED 1110) + (:BUS_RESET 1111) + (:NO_MEDIA_IN_DRIVE 1112) + (:NO_UNICODE_TRANSLATION 1113) + (:DLL_INIT_FAILED 1114) + (:SHUTDOWN_IN_PROGRESS 1115) + (:NO_SHUTDOWN_IN_PROGRESS 1116) + (:IO_DEVICE 1117) + (:SERIAL_NO_DEVICE 1118) + (:IRQ_BUSY 1119) + (:MORE_WRITES 1120) + (:COUNTER_TIMEOUT 1121) + (:FLOPPY_ID_MARK_NOT_FOUND 1122) + (:FLOPPY_WRONG_CYLINDER 1123) + (:FLOPPY_UNKNOWN_ERROR 1124) + (:FLOPPY_BAD_REGISTERS 1125) + (:DISK_RECALIBRATE_FAILED 1126) + (:DISK_OPERATION_FAILED 1127) + (:DISK_RESET_FAILED 1128) + (:EOM_OVERFLOW 1129) + (:NOT_ENOUGH_SERVER_MEMORY 1130) + (:POSSIBLE_DEADLOCK 1131) + (:MAPPED_ALIGNMENT 1132) + (:SET_POWER_STATE_VETOED 1140) + (:SET_POWER_STATE_FAILED 1141) + (:TOO_MANY_LINKS 1142) + (:OLD_WIN_VERSION 1150) + (:APP_WRONG_OS 1151) + (:SINGLE_INSTANCE_APP 1152) + (:RMODE_APP 1153) + (:INVALID_DLL 1154) + (:NO_ASSOCIATION 1155) + (:DDE_FAIL 1156) + (:DLL_NOT_FOUND 1157) + (:NO_MORE_USER_HANDLES 1158) + (:MESSAGE_SYNC_ONLY 1159) + (:SOURCE_ELEMENT_EMPTY 1160) + (:DESTINATION_ELEMENT_FULL 1161) + (:ILLEGAL_ELEMENT_ADDRESS 1162) + (:MAGAZINE_NOT_PRESENT 1163) + (:DEVICE_REINITIALIZATION_NEEDED 1164) + (:DEVICE_REQUIRES_CLEANING 1165) + (:DEVICE_DOOR_OPEN 1166) + (:DEVICE_NOT_CONNECTED 1167) + (:NOT_FOUND 1168) + (:NO_MATCH 1169) + (:SET_NOT_FOUND 1170) + (:POINT_NOT_FOUND 1171) + (:NO_TRACKING_SERVICE 1172) + (:NO_VOLUME_ID 1173) + (:UNABLE_TO_REMOVE_REPLACED 1175) + (:UNABLE_TO_MOVE_REPLACEMENT 1176) + (:UNABLE_TO_MOVE_REPLACEMENT_2 1177) + (:JOURNAL_DELETE_IN_PROGRESS 1178) + (:JOURNAL_NOT_ACTIVE 1179) + (:POTENTIAL_FILE_FOUND 1180) + (:JOURNAL_ENTRY_DELETED 1181) + (:BAD_DEVICE 1200) + (:CONNECTION_UNAVAIL 1201) + (:DEVICE_ALREADY_REMEMBERED 1202) + (:NO_NET_OR_BAD_PATH 1203) + (:BAD_PROVIDER 1204) + (:CANNOT_OPEN_PROFILE 1205) + (:BAD_PROFILE 1206) + (:NOT_CONTAINER 1207) + (:EXTENDED_ERROR 1208) + (:INVALID_GROUPNAME 1209) + (:INVALID_COMPUTERNAME 1210) + (:INVALID_EVENTNAME 1211) + (:INVALID_DOMAINNAME 1212) + (:INVALID_SERVICENAME 1213) + (:INVALID_NETNAME 1214) + (:INVALID_SHARENAME 1215) + (:INVALID_PASSWORDNAME 1216) + (:INVALID_MESSAGENAME 1217) + (:INVALID_MESSAGEDEST 1218) + (:SESSION_CREDENTIAL_CONFLICT 1219) + (:REMOTE_SESSION_LIMIT_EXCEEDED 1220) + (:DUP_DOMAINNAME 1221) + (:NO_NETWORK 1222) + (:CANCELLED 1223) + (:USER_MAPPED_FILE 1224) + (:CONNECTION_REFUSED 1225) + (:GRACEFUL_DISCONNECT 1226) + (:ADDRESS_ALREADY_ASSOCIATED 1227) + (:ADDRESS_NOT_ASSOCIATED 1228) + (:CONNECTION_INVALID 1229) + (:CONNECTION_ACTIVE 1230) + (:NETWORK_UNREACHABLE 1231) + (:HOST_UNREACHABLE 1232) + (:PROTOCOL_UNREACHABLE 1233) + (:PORT_UNREACHABLE 1234) + (:REQUEST_ABORTED 1235) + (:CONNECTION_ABORTED 1236) + (:RETRY 1237) + (:CONNECTION_COUNT_LIMIT 1238) + (:LOGIN_TIME_RESTRICTION 1239) + (:LOGIN_WKSTA_RESTRICTION 1240) + (:INCORRECT_ADDRESS 1241) + (:ALREADY_REGISTERED 1242) + (:SERVICE_NOT_FOUND 1243) + (:NOT_AUTHENTICATED 1244) + (:NOT_LOGGED_ON 1245) + (:CONTINUE 1246) + (:ALREADY_INITIALIZED 1247) + (:NO_MORE_DEVICES 1248) + (:NO_SUCH_SITE 1249) + (:DOMAIN_CONTROLLER_EXISTS 1250) + (:ONLY_IF_CONNECTED 1251) + (:OVERRIDE_NOCHANGES 1252) + (:BAD_USER_PROFILE 1253) + (:NOT_SUPPORTED_ON_SBS 1254) + (:SERVER_SHUTDOWN_IN_PROGRESS 1255) + (:HOST_DOWN 1256) + (:NON_ACCOUNT_SID 1257) + (:NON_DOMAIN_SID 1258) + (:APPHELP_BLOCK 1259) + (:ACCESS_DISABLED_BY_POLICY 1260) + (:REG_NAT_CONSUMPTION 1261) + (:CSCSHARE_OFFLINE 1262) + (:PKINIT_FAILURE 1263) + (:SMARTCARD_SUBSYSTEM_FAILURE 1264) + (:DOWNGRADE_DETECTED 1265) + (:SEC_E_SMARTCARD_CERT_REVOKED 1266) + (:SEC_E_ISSUING_CA_UNTRUSTED 1267) + (:SEC_E_REVOCATION_OFFLINE_C 1268) + (:SEC_E_PKINIT_CLIENT_FAILUR 1269) + (:SEC_E_SMARTCARD_CERT_EXPIRED 1270) + (:MACHINE_LOCKED 1271) + (:CALLBACK_SUPPLIED_INVALID_DATA 1273) + (:SYNC_FOREGROUND_REFRESH_REQUIRED 1274) + (:DRIVER_BLOCKED 1275) + (:INVALID_IMPORT_OF_NON_DLL 1276) + (:ACCESS_DISABLED_WEBBLADE 1277) + (:ACCESS_DISABLED_WEBBLADE_TAMPER 1278) + (:RECOVERY_FAILURE 1279) + (:ALREADY_FIBER 1280) + (:ALREADY_THREAD 1281) + (:STACK_BUFFER_OVERRUN 1282) + (:PARAMETER_QUOTA_EXCEEDED 1283) + (:DEBUGGER_INACTIVE 1284) + (:NOT_ALL_ASSIGNED 1300) + (:SOME_NOT_MAPPED 1301) + (:NO_QUOTAS_FOR_ACCOUNT 1302) + (:LOCAL_USER_SESSION_KEY 1303) + (:NULL_LM_PASSWORD 1304) + (:UNKNOWN_REVISION 1305) + (:REVISION_MISMATCH 1306) + (:INVALID_OWNER 1307) + (:INVALID_PRIMARY_GROUP 1308) + (:NO_IMPERSONATION_TOKEN 1309) + (:CANT_DISABLE_MANDATORY 1310) + (:NO_LOGON_SERVERS 1311) + (:NO_SUCH_LOGON_SESSION 1312) + (:NO_SUCH_PRIVILEGE 1313) + (:PRIVILEGE_NOT_HELD 1314) + (:INVALID_ACCOUNT_NAME 1315) + (:USER_EXISTS 1316) + (:NO_SUCH_USER 1317) + (:GROUP_EXISTS 1318) + (:NO_SUCH_GROUP 1319) + (:MEMBER_IN_GROUP 1320) + (:MEMBER_NOT_IN_GROUP 1321) + (:LAST_ADMIN 1322) + (:WRONG_PASSWORD 1323) + (:ILL_FORMED_PASSWORD 1324) + (:PASSWORD_RESTRICTION 1325) + (:LOGON_FAILURE 1326) + (:ACCOUNT_RESTRICTION 1327) + (:INVALID_LOGON_HOURS 1328) + (:INVALID_WORKSTATION 1329) + (:PASSWORD_EXPIRED 1330) + (:ACCOUNT_DISABLED 1331) + (:NONE_MAPPED 1332) + (:TOO_MANY_LUIDS_REQUESTED 1333) + (:LUIDS_EXHAUSTED 1334) + (:INVALID_SUB_AUTHORITY 1335) + (:INVALID_ACL 1336) + (:INVALID_SID 1337) + (:INVALID_SECURITY_DESCR 1338) + (:BAD_INHERITANCE_ACL 1340) + (:SERVER_DISABLED 1341) + (:SERVER_NOT_DISABLED 1342) + (:INVALID_ID_AUTHORITY 1343) + (:ALLOTTED_SPACE_EXCEEDED 1344) + (:INVALID_GROUP_ATTRIBUTES 1345) + (:BAD_IMPERSONATION_LEVEL 1346) + (:CANT_OPEN_ANONYMOUS 1347) + (:BAD_VALIDATION_CLASS 1348) + (:BAD_TOKEN_TYPE 1349) + (:NO_SECURITY_ON_OBJECT 1350) + (:CANT_ACCESS_DOMAIN_INFO 1351) + (:INVALID_SERVER_STATE 1352) + (:INVALID_DOMAIN_STATE 1353) + (:INVALID_DOMAIN_ROLE 1354) + (:NO_SUCH_DOMAIN 1355) + (:DOMAIN_EXISTS 1356) + (:DOMAIN_LIMIT_EXCEEDED 1357) + (:INTERNAL_DB_CORRUPTION 1358) + (:INTERNAL_ERROR 1359) + (:GENERIC_NOT_MAPPED 1360) + (:BAD_DESCRIPTOR_FORMAT 1361) + (:NOT_LOGON_PROCESS 1362) + (:LOGON_SESSION_EXISTS 1363) + (:NO_SUCH_PACKAGE 1364) + (:BAD_LOGON_SESSION_STATE 1365) + (:LOGON_SESSION_COLLISION 1366) + (:INVALID_LOGON_TYPE 1367) + (:CANNOT_IMPERSONATE 1368) + (:RXACT_INVALID_STATE 1369) + (:RXACT_COMMIT_FAILURE 1370) + (:SPECIAL_ACCOUNT 1371) + (:SPECIAL_GROUP 1372) + (:SPECIAL_USER 1373) + (:MEMBERS_PRIMARY_GROUP 1374) + (:TOKEN_ALREADY_IN_USE 1375) + (:NO_SUCH_ALIAS 1376) + (:MEMBER_NOT_IN_ALIAS 1377) + (:MEMBER_IN_ALIAS 1378) + (:ALIAS_EXISTS 1379) + (:LOGON_NOT_GRANTED 1380) + (:TOO_MANY_SECRETS 1381) + (:SECRET_TOO_LONG 1382) + (:INTERNAL_DB_ERROR 1383) + (:TOO_MANY_CONTEXT_IDS 1384) + (:LOGON_TYPE_NOT_GRANTED 1385) + (:NT_CROSS_ENCRYPTION_REQUIRED 1386) + (:NO_SUCH_MEMBER 1387) + (:INVALID_MEMBER 1388) + (:TOO_MANY_SIDS 1389) + (:LM_CROSS_ENCRYPTION_REQUIRED 1390) + (:NO_INHERITANCE 1391) + (:FILE_CORRUPT 1392) + (:DISK_CORRUPT 1393) + (:NO_USER_SESSION_KEY 1394) + (:LICENSE_QUOTA_EXCEEDED 1395) + (:WRONG_TARGET_NAME 1396) + (:MUTUAL_AUTH_FAILED 1397) + (:TIME_SKEW 1398) + (:CURRENT_DOMAIN_NOT_ALLOWED 1399) + (:INVALID_WINDOW_HANDLE 1400) + (:INVALID_MENU_HANDLE 1401) + (:INVALID_CURSOR_HANDLE 1402) + (:INVALID_ACCEL_HANDLE 1403) + (:INVALID_HOOK_HANDLE 1404) + (:INVALID_DWP_HANDLE 1405) + (:TLW_WITH_WSCHILD 1406) + (:CANNOT_FIND_WND_CLASS 1407) + (:WINDOW_OF_OTHER_THREAD 1408) + (:HOTKEY_ALREADY_REGISTERED 1409) + (:CLASS_ALREADY_EXISTS 1410) + (:CLASS_DOES_NOT_EXIST 1411) + (:CLASS_HAS_WINDOWS 1412) + (:INVALID_INDEX 1413) + (:INVALID_ICON_HANDLE 1414) + (:PRIVATE_DIALOG_INDEX 1415) + (:LISTBOX_ID_NOT_FOUND 1416) + (:NO_WILDCARD_CHARACTERS 1417) + (:CLIPBOARD_NOT_OPEN 1418) + (:HOTKEY_NOT_REGISTERED 1419) + (:WINDOW_NOT_DIALOG 1420) + (:CONTROL_ID_NOT_FOUND 1421) + (:INVALID_COMBOBOX_MESSAGE 1422) + (:WINDOW_NOT_COMBOBOX 1423) + (:INVALID_EDIT_HEIGHT 1424) + (:DC_NOT_FOUND 1425) + (:INVALID_HOOK_FILTER 1426) + (:INVALID_FILTER_PROC 1427) + (:HOOK_NEEDS_HMOD 1428) + (:GLOBAL_ONLY_HOOK 1429) + (:JOURNAL_HOOK_SET 1430) + (:HOOK_NOT_INSTALLED 1431) + (:INVALID_LB_MESSAGE 1432) + (:SETCOUNT_ON_BAD_LB 1433) + (:LB_WITHOUT_TABSTOPS 1434) + (:DESTROY_OBJECT_OF_OTHER_THREAD 1435) + (:CHILD_WINDOW_MENU 1436) + (:NO_SYSTEM_MENU 1437) + (:INVALID_MSGBOX_STYLE 1438) + (:INVALID_SPI_VALUE 1439) + (:SCREEN_ALREADY_LOCKED 1440) + (:HWNDS_HAVE_DIFF_PARENT 1441) + (:NOT_CHILD_WINDOW 1442) + (:INVALID_GW_COMMAND 1443) + (:INVALID_THREAD_ID 1444) + (:NON_MDICHILD_WINDOW 1445) + (:POPUP_ALREADY_ACTIVE 1446) + (:NO_SCROLLBARS 1447) + (:INVALID_SCROLLBAR_RANGE 1448) + (:INVALID_SHOWWIN_COMMAND 1449) + (:NO_SYSTEM_RESOURCES 1450) + (:NONPAGED_SYSTEM_RESOURCES 1451) + (:PAGED_SYSTEM_RESOURCES 1452) + (:WORKING_SET_QUOTA 1453) + (:PAGEFILE_QUOTA 1454) + (:COMMITMENT_LIMIT 1455) + (:MENU_ITEM_NOT_FOUND 1456) + (:INVALID_KEYBOARD_HANDLE 1457) + (:HOOK_TYPE_NOT_ALLOWED 1458) + (:REQUIRES_INTERACTIVE_WINDOWSTATION 1459) + (:TIMEOUT 1460) + (:INVALID_MONITOR_HANDLE 1461) + (:EVENTLOG_FILE_CORRUPT 1500) + (:EVENTLOG_CANT_START 1501) + (:LOG_FILE_FULL 1502) + (:EVENTLOG_FILE_CHANGED 1503) + (:INSTALL_SERVICE_FAILURE 1601) + (:INSTALL_USEREXIT 1602) + (:INSTALL_FAILURE 1603) + (:INSTALL_SUSPEND 1604) + (:UNKNOWN_PRODUCT 1605) + (:UNKNOWN_FEATURE 1606) + (:UNKNOWN_COMPONENT 1607) + (:UNKNOWN_PROPERTY 1608) + (:INVALID_HANDLE_STATE 1609) + (:BAD_CONFIGURATION 1610) + (:INDEX_ABSENT 1611) + (:INSTALL_SOURCE_ABSENT 1612) + (:INSTALL_PACKAGE_VERSION 1613) + (:PRODUCT_UNINSTALLED 1614) + (:BAD_QUERY_SYNTAX 1615) + (:INVALID_FIELD 1616) + (:DEVICE_REMOVED 1617) + (:INSTALL_ALREADY_RUNNING 1618) + (:INSTALL_PACKAGE_OPEN_FAILED 1619) + (:INSTALL_PACKAGE_INVALID 1620) + (:INSTALL_UI_FAILURE 1621) + (:INSTALL_LOG_FAILURE 1622) + (:INSTALL_LANGUAGE_UNSUPPORTED 1623) + (:INSTALL_TRANSFORM_FAILURE 1624) + (:INSTALL_PACKAGE_REJECTED 1625) + (:FUNCTION_NOT_CALLED 1626) + (:FUNCTION_FAILED 1627) + (:INVALID_TABLE 1628) + (:DATATYPE_MISMATCH 1629) + (:UNSUPPORTED_TYPE 1630) + (:CREATE_FAILED 1631) + (:INSTALL_TEMP_UNWRITABLE 1632) + (:INSTALL_PLATFORM_UNSUPPORTED 1633) + (:INSTALL_NOTUSED 1634) + (:PATCH_PACKAGE_OPEN_FAILED 1635) + (:PATCH_PACKAGE_INVALID 1636) + (:PATCH_PACKAGE_UNSUPPORTED 1637) + (:PRODUCT_VERSION 1638) + (:INVALID_COMMAND_LINE 1639) + (:INSTALL_REMOTE_DISALLOWED 1640) + (:SUCCESS_REBOOT_INITIATED 1641) + (:PATCH_TARGET_NOT_FOUND 1642) + (:PATCH_PACKAGE_REJECTED 1643) + (:INSTALL_TRANSFORM_REJECTED 1644) + (:INSTALL_REMOTE_PROHIBITED 1645) + (:RPC_S_INVALID_STRING_BINDING 1700) + (:RPC_S_WRONG_KIND_OF_BINDING 1701) + (:RPC_S_INVALID_BINDING 1702) + (:RPC_S_PROTSEQ_NOT_SUPPORTED 1703) + (:RPC_S_INVALID_RPC_PROTSEQ 1704) + (:RPC_S_INVALID_STRING_UUID 1705) + (:RPC_S_INVALID_ENDPOINT_FORMAT 1706) + (:RPC_S_INVALID_NET_ADDR 1707) + (:RPC_S_NO_ENDPOINT_FOUND 1708) + (:RPC_S_INVALID_TIMEOUT 1709) + (:RPC_S_OBJECT_NOT_FOUND 1710) + (:RPC_S_ALREADY_REGISTERED 1711) + (:RPC_S_TYPE_ALREADY_REGISTERED 1712) + (:RPC_S_ALREADY_LISTENING 1713) + (:RPC_S_NO_PROTSEQS_REGISTERED 1714) + (:RPC_S_NOT_LISTENING 1715) + (:RPC_S_UNKNOWN_MGR_TYPE 1716) + (:RPC_S_UNKNOWN_IF 1717) + (:RPC_S_NO_BINDINGS 1718) + (:RPC_S_NO_PROTSEQS 1719) + (:RPC_S_CANT_CREATE_ENDPOINT 1720) + (:RPC_S_OUT_OF_RESOURCES 1721) + (:RPC_S_SERVER_UNAVAILABLE 1722) + (:RPC_S_SERVER_TOO_BUSY 1723) + (:RPC_S_INVALID_NETWORK_OPTIONS 1724) + (:RPC_S_NO_CALL_ACTIVE 1725) + (:RPC_S_CALL_FAILED 1726) + (:RPC_S_CALL_FAILED_DNE 1727) + (:RPC_S_PROTOCOL_ERROR 1728) + (:RPC_S_UNSUPPORTED_TRANS_SYN 1730) + (:RPC_S_UNSUPPORTED_TYPE 1732) + (:RPC_S_INVALID_TAG 1733) + (:RPC_S_INVALID_BOUND 1734) + (:RPC_S_NO_ENTRY_NAME 1735) + (:RPC_S_INVALID_NAME_SYNTAX 1736) + (:RPC_S_UNSUPPORTED_NAME_SYNTAX 1737) + (:RPC_S_UUID_NO_ADDRESS 1739) + (:RPC_S_DUPLICATE_ENDPOINT 1740) + (:RPC_S_UNKNOWN_AUTHN_TYPE 1741) + (:RPC_S_MAX_CALLS_TOO_SMALL 1742) + (:RPC_S_STRING_TOO_LONG 1743) + (:RPC_S_PROTSEQ_NOT_FOUND 1744) + (:RPC_S_PROCNUM_OUT_OF_RANGE 1745) + (:RPC_S_BINDING_HAS_NO_AUTH 1746) + (:RPC_S_UNKNOWN_AUTHN_SERVICE 1747) + (:RPC_S_UNKNOWN_AUTHN_LEVEL 1748) + (:RPC_S_INVALID_AUTH_IDENTITY 1749) + (:RPC_S_UNKNOWN_AUTHZ_SERVICE 1750) + (:EPT_S_INVALID_ENTRY 1751) + (:EPT_S_CANT_PERFORM_OP 1752) + (:EPT_S_NOT_REGISTERED 1753) + (:RPC_S_NOTHING_TO_EXPORT 1754) + (:RPC_S_INCOMPLETE_NAME 1755) + (:RPC_S_INVALID_VERS_OPTION 1756) + (:RPC_S_NO_MORE_MEMBERS 1757) + (:RPC_S_NOT_ALL_OBJS_UNEXPORTED 1758) + (:RPC_S_INTERFACE_NOT_FOUND 1759) + (:RPC_S_ENTRY_ALREADY_EXISTS 1760) + (:RPC_S_ENTRY_NOT_FOUND 1761) + (:RPC_S_NAME_SERVICE_UNAVAILABLE 1762) + (:RPC_S_INVALID_NAF_ID 1763) + (:RPC_S_CANNOT_SUPPORT 1764) + (:RPC_S_NO_CONTEXT_AVAILABLE 1765) + (:RPC_S_INTERNAL_ERROR 1766) + (:RPC_S_ZERO_DIVIDE 1767) + (:RPC_S_ADDRESS_ERROR 1768) + (:RPC_S_FP_DIV_ZERO 1769) + (:RPC_S_FP_UNDERFLOW 1770) + (:RPC_S_FP_OVERFLOW 1771) + (:RPC_X_NO_MORE_ENTRIES 1772) + (:RPC_X_SS_CHAR_TRANS_OPEN_FAIL 1773) + (:RPC_X_SS_CHAR_TRANS_SHORT_FILE 1774) + (:RPC_X_SS_IN_NULL_CONTEXT 1775) + (:RPC_X_SS_CONTEXT_DAMAGED 1777) + (:RPC_X_SS_HANDLES_MISMATCH 1778) + (:RPC_X_SS_CANNOT_GET_CALL_HANDLE 1779) + (:RPC_X_NULL_REF_POINTER 1780) + (:RPC_X_ENUM_VALUE_OUT_OF_RANGE 1781) + (:RPC_X_BYTE_COUNT_TOO_SMALL 1782) + (:RPC_X_BAD_STUB_DATA 1783) + (:INVALID_USER_BUFFER 1784) + (:UNRECOGNIZED_MEDIA 1785) + (:NO_TRUST_LSA_SECRET 1786) + (:NO_TRUST_SAM_ACCOUNT 1787) + (:TRUSTED_DOMAIN_FAILURE 1788) + (:TRUSTED_RELATIONSHIP_FAILURE 1789) + (:TRUST_FAILURE 1790) + (:RPC_S_CALL_IN_PROGRESS 1791) + (:NETLOGON_NOT_STARTED 1792) + (:ACCOUNT_EXPIRED 1793) + (:REDIRECTOR_HAS_OPEN_HANDLES 1794) + (:PRINTER_DRIVER_ALREADY_INSTALLED 1795) + (:UNKNOWN_PORT 1796) + (:UNKNOWN_PRINTER_DRIVER 1797) + (:UNKNOWN_PRINTPROCESSOR 1798) + (:INVALID_SEPARATOR_FILE 1799) + (:INVALID_PRIORITY 1800) + (:INVALID_PRINTER_NAME 1801) + (:PRINTER_ALREADY_EXISTS 1802) + (:INVALID_PRINTER_COMMAND 1803) + (:INVALID_DATATYPE 1804) + (:INVALID_ENVIRONMENT 1805) + (:RPC_S_NO_MORE_BINDINGS 1806) + (:NOLOGON_INTERDOMAIN_TRUST_ACCOUNT 1807) + (:NOLOGON_WORKSTATION_TRUST_ACCOUNT 1808) + (:NOLOGON_SERVER_TRUST_ACCOUNT 1809) + (:DOMAIN_TRUST_INCONSISTENT 1810) + (:SERVER_HAS_OPEN_HANDLES 1811) + (:RESOURCE_DATA_NOT_FOUND 1812) + (:RESOURCE_TYPE_NOT_FOUND 1813) + (:RESOURCE_NAME_NOT_FOUND 1814) + (:RESOURCE_LANG_NOT_FOUND 1815) + (:NOT_ENOUGH_QUOTA 1816) + (:RPC_S_NO_INTERFACES 1817) + (:RPC_S_CALL_CANCELLED 1818) + (:RPC_S_BINDING_INCOMPLETE 1819) + (:RPC_S_COMM_FAILURE 1820) + (:RPC_S_UNSUPPORTED_AUTHN_LEVEL 1821) + (:RPC_S_NO_PRINC_NAME 1822) + (:RPC_S_NOT_RPC_ERROR 1823) + (:RPC_S_UUID_LOCAL_ONLY 1824) + (:RPC_S_SEC_PKG_ERROR 1825) + (:RPC_S_NOT_CANCELLED 1826) + (:RPC_X_INVALID_ES_ACTION 1827) + (:RPC_X_WRONG_ES_VERSION 1828) + (:RPC_X_WRONG_STUB_VERSION 1829) + (:RPC_X_INVALID_PIPE_OBJECT 1830) + (:RPC_X_WRONG_PIPE_ORDER 1831) + (:RPC_X_WRONG_PIPE_VERSION 1832) + (:RPC_S_GROUP_MEMBER_NOT_FOUND 1898) + (:EPT_S_CANT_CREATE 1899) + (:RPC_S_INVALID_OBJECT 1900) + (:INVALID_TIME 1901) + (:INVALID_FORM_NAME 1902) + (:INVALID_FORM_SIZE 1903) + (:ALREADY_WAITING 1904) + (:PRINTER_DELETED 1905) + (:INVALID_PRINTER_STATE 1906) + (:PASSWORD_MUST_CHANGE 1907) + (:DOMAIN_CONTROLLER_NOT_FOUND 1908) + (:ACCOUNT_LOCKED_OUT 1909) + (:OR_INVALID_OXID 1910) + (:OR_INVALID_OID 1911) + (:OR_INVALID_SET 1912) + (:RPC_S_SEND_INCOMPLETE 1913) + (:RPC_S_INVALID_ASYNC_HANDLE 1914) + (:RPC_S_INVALID_ASYNC_CALL 1915) + (:RPC_X_PIPE_CLOSED 1916) + (:RPC_X_PIPE_DISCIPLINE_ERROR 1917) + (:RPC_X_PIPE_EMPTY 1918) + (:NO_SITENAME 1919) + (:CANT_ACCESS_FILE 1920) + (:CANT_RESOLVE_FILENAME 1921) + (:RPC_S_ENTRY_TYPE_MISMATCH 1922) + (:RPC_S_NOT_ALL_OBJS_EXPORTED 1923) + (:RPC_S_INTERFACE_NOT_EXPORTED 1924) + (:RPC_S_PROFILE_NOT_ADDED 1925) + (:RPC_S_PRF_ELT_NOT_ADDED 1926) + (:RPC_S_PRF_ELT_NOT_REMOVED 1927) + (:RPC_S_GRP_ELT_NOT_ADDED 1928) + (:RPC_S_GRP_ELT_NOT_REMOVED 1929) + (:KM_DRIVER_BLOCKED 1930) + (:CONTEXT_EXPIRED 1931) + (:PER_USER_TRUST_QUOTA_EXCEEDED 1932) + (:ALL_USER_TRUST_QUOTA_EXCEEDED 1933) + (:USER_DELETE_TRUST_QUOTA_EXCEEDED 1934) + (:INVALID_PIXEL_FORMAT 2000) + (:BAD_DRIVER 2001) + (:INVALID_WINDOW_STYLE 2002) + (:METAFILE_NOT_SUPPORTED 2003) + (:TRANSFORM_NOT_SUPPORTED 2004) + (:CLIPPING_NOT_SUPPORTED 2005) + (:INVALID_CMM 2010) + (:INVALID_PROFILE 2011) + (:TAG_NOT_FOUND 2012) + (:TAG_NOT_PRESENT 2013) + (:DUPLICATE_TAG 2014) + (:PROFILE_NOT_ASSOCIATED_WITH_DEVICE 2015) + (:PROFILE_NOT_FOUND 2016) + (:INVALID_COLORSPACE 2017) + (:ICM_NOT_ENABLED 2018) + (:DELETING_ICM_XFORM 2019) + (:INVALID_TRANSFORM 2020) + (:COLORSPACE_MISMATCH 2021) + (:INVALID_COLORINDEX 2022) + (:CONNECTED_OTHER_PASSWORD 2108) + (:CONNECTED_OTHER_PASSWORD_DEFAULT 2109) + (:BAD_USERNAME 2202) + (:NOT_CONNECTED 2250) + (:OPEN_FILES 2401) + (:ACTIVE_CONNECTIONS 2402) + (:DEVICE_IN_USE 2404) + (:UNKNOWN_PRINT_MONITOR 3000) + (:PRINTER_DRIVER_IN_USE 3001) + (:SPOOL_FILE_NOT_FOUND 3002) + (:SPL_NO_STARTDOC 3003) + (:SPL_NO_ADDJOB 3004) + (:PRINT_PROCESSOR_ALREADY_INSTALLED 3005) + (:PRINT_MONITOR_ALREADY_INSTALLED 3006) + (:INVALID_PRINT_MONITOR 3007) + (:PRINT_MONITOR_IN_USE 3008) + (:PRINTER_HAS_JOBS_QUEUED 3009) + (:SUCCESS_REBOOT_REQUIRED 3010) + (:SUCCESS_RESTART_REQUIRED 3011) + (:PRINTER_NOT_FOUND 3012) + (:PRINTER_DRIVER_WARNED 3013) + (:PRINTER_DRIVER_BLOCKED 3014) + (:WINS_INTERNAL 4000) + (:CAN_NOT_DEL_LOCAL_WINS 4001) + (:STATIC_INIT 4002) + (:INC_BACKUP 4003) + (:FULL_BACKUP 4004) + (:REC_NON_EXISTENT 4005) + (:RPL_NOT_ALLOWED 4006) + (:DHCP_ADDRESS_CONFLICT 4100) + (:WMI_GUID_NOT_FOUND 4200) + (:WMI_INSTANCE_NOT_FOUND 4201) + (:WMI_ITEMID_NOT_FOUND 4202) + (:WMI_TRY_AGAIN 4203) + (:WMI_DP_NOT_FOUND 4204) + (:WMI_UNRESOLVED_INSTANCE_REF 4205) + (:WMI_ALREADY_ENABLED 4206) + (:WMI_GUID_DISCONNECTED 4207) + (:WMI_SERVER_UNAVAILABLE 4208) + (:WMI_DP_FAILED 4209) + (:WMI_INVALID_MOF 4210) + (:WMI_INVALID_REGINFO 4211) + (:WMI_ALREADY_DISABLED 4212) + (:WMI_READ_ONLY 4213) + (:WMI_SET_FAILURE 4214) + (:INVALID_MEDIA 4300) + (:INVALID_LIBRARY 4301) + (:INVALID_MEDIA_POOL 4302) + (:DRIVE_MEDIA_MISMATCH 4303) + (:MEDIA_OFFLINE 4304) + (:LIBRARY_OFFLINE 4305) + (:EMPTY 4306) + (:NOT_EMPTY 4307) + (:MEDIA_UNAVAILABLE 4308) + (:RESOURCE_DISABLED 4309) + (:INVALID_CLEANER 4310) + (:UNABLE_TO_CLEAN 4311) + (:OBJECT_NOT_FOUND 4312) + (:DATABASE_FAILURE 4313) + (:DATABASE_FULL 4314) + (:MEDIA_INCOMPATIBLE 4315) + (:RESOURCE_NOT_PRESENT 4316) + (:INVALID_OPERATION 4317) + (:MEDIA_NOT_AVAILABLE 4318) + (:DEVICE_NOT_AVAILABLE 4319) + (:REQUEST_REFUSED 4320) + (:INVALID_DRIVE_OBJECT 4321) + (:LIBRARY_FULL 4322) + (:MEDIUM_NOT_ACCESSIBLE 4323) + (:UNABLE_TO_LOAD_MEDIUM 4324) + (:UNABLE_TO_INVENTORY_DRIVE 4325) + (:UNABLE_TO_INVENTORY_SLOT 4326) + (:UNABLE_TO_INVENTORY_TRANSPORT 4327) + (:TRANSPORT_FULL 4328) + (:CONTROLLING_IEPORT 4329) + (:UNABLE_TO_EJECT_MOUNTED_MEDIA 4330) + (:CLEANER_SLOT_SET 4331) + (:CLEANER_SLOT_NOT_SET 4332) + (:CLEANER_CARTRIDGE_SPENT 4333) + (:UNEXPECTED_OMID 4334) + (:CANT_DELETE_LAST_ITEM 4335) + (:MESSAGE_EXCEEDS_MAX_SIZE 4336) + (:VOLUME_CONTAINS_SYS_FILES 4337) + (:INDIGENOUS_TYPE 4338) + (:NO_SUPPORTING_DRIVES 4339) + (:CLEANER_CARTRIDGE_INSTALLED 4340) + (:FILE_OFFLINE 4350) + (:REMOTE_STORAGE_NOT_ACTIVE 4351) + (:REMOTE_STORAGE_MEDIA_ERROR 4352) + (:NOT_A_REPARSE_POINT 4390) + (:REPARSE_ATTRIBUTE_CONFLICT 4391) + (:INVALID_REPARSE_DATA 4392) + (:REPARSE_TAG_INVALID 4393) + (:REPARSE_TAG_MISMATCH 4394) + (:VOLUME_NOT_SIS_ENABLED 4500) + (:DEPENDENT_RESOURCE_EXISTS 5001) + (:DEPENDENCY_NOT_FOUND 5002) + (:DEPENDENCY_ALREADY_EXISTS 5003) + (:RESOURCE_NOT_ONLINE 5004) + (:HOST_NODE_NOT_AVAILABLE 5005) + (:RESOURCE_NOT_AVAILABLE 5006) + (:RESOURCE_NOT_FOUND 5007) + (:SHUTDOWN_CLUSTER 5008) + (:CANT_EVICT_ACTIVE_NODE 5009) + (:OBJECT_ALREADY_EXISTS 5010) + (:OBJECT_IN_LIST 5011) + (:GROUP_NOT_AVAILABLE 5012) + (:GROUP_NOT_FOUND 5013) + (:GROUP_NOT_ONLINE 5014) + (:HOST_NODE_NOT_RESOURCE_OWNER 5015) + (:HOST_NODE_NOT_GROUP_OWNER 5016) + (:RESMON_CREATE_FAILED 5017) + (:RESMON_ONLINE_FAILED 5018) + (:RESOURCE_ONLINE 5019) + (:QUORUM_RESOURCE 5020) + (:NOT_QUORUM_CAPABLE 5021) + (:CLUSTER_SHUTTING_DOWN 5022) + (:INVALID_STATE 5023) + (:RESOURCE_PROPERTIES_STORED 5024) + (:NOT_QUORUM_CLASS 5025) + (:CORE_RESOURCE 5026) + (:QUORUM_RESOURCE_ONLINE_FAILED 5027) + (:QUORUMLOG_OPEN_FAILED 5028) + (:CLUSTERLOG_CORRUPT 5029) + (:CLUSTERLOG_RECORD_EXCEEDS_MAXSIZE 5030) + (:CLUSTERLOG_EXCEEDS_MAXSIZE 5031) + (:CLUSTERLOG_CHKPOINT_NOT_FOUND 5032) + (:CLUSTERLOG_NOT_ENOUGH_SPACE 5033) + (:QUORUM_OWNER_ALIVE 5034) + (:NETWORK_NOT_AVAILABLE 5035) + (:NODE_NOT_AVAILABLE 5036) + (:ALL_NODES_NOT_AVAILABLE 5037) + (:RESOURCE_FAILED 5038) + (:CLUSTER_INVALID_NODE 5039) + (:CLUSTER_NODE_EXISTS 5040) + (:CLUSTER_JOIN_IN_PROGRESS 5041) + (:CLUSTER_NODE_NOT_FOUND 5042) + (:CLUSTER_LOCAL_NODE_NOT_FOUND 5043) + (:CLUSTER_NETWORK_EXISTS 5044) + (:CLUSTER_NETWORK_NOT_FOUND 5045) + (:CLUSTER_NETINTERFACE_EXISTS 5046) + (:CLUSTER_NETINTERFACE_NOT_FOUND 5047) + (:CLUSTER_INVALID_REQUEST 5048) + (:CLUSTER_INVALID_NETWORK_PROVIDER 5049) + (:CLUSTER_NODE_DOWN 5050) + (:CLUSTER_NODE_UNREACHABLE 5051) + (:CLUSTER_NODE_NOT_MEMBER 5052) + (:CLUSTER_JOIN_NOT_IN_PROGRESS 5053) + (:CLUSTER_INVALID_NETWORK 5054) + (:CLUSTER_NODE_UP 5056) + (:CLUSTER_IPADDR_IN_USE 5057) + (:CLUSTER_NODE_NOT_PAUSED 5058) + (:CLUSTER_NO_SECURITY_CONTEXT 5059) + (:CLUSTER_NETWORK_NOT_INTERNAL 5060) + (:CLUSTER_NODE_ALREADY_UP 5061) + (:CLUSTER_NODE_ALREADY_DOWN 5062) + (:CLUSTER_NETWORK_ALREADY_ONLINE 5063) + (:CLUSTER_NETWORK_ALREADY_OFFLINE 5064) + (:CLUSTER_NODE_ALREADY_MEMBER 5065) + (:CLUSTER_LAST_INTERNAL_NETWORK 5066) + (:CLUSTER_NETWORK_HAS_DEPENDENTS 5067) + (:INVALID_OPERATION_ON_QUORUM 5068) + (:DEPENDENCY_NOT_ALLOWED 5069) + (:CLUSTER_NODE_PAUSED 5070) + (:NODE_CANT_HOST_RESOURCE 5071) + (:CLUSTER_NODE_NOT_READY 5072) + (:CLUSTER_NODE_SHUTTING_DOWN 5073) + (:CLUSTER_JOIN_ABORTED 5074) + (:CLUSTER_INCOMPATIBLE_VERSIONS 5075) + (:CLUSTER_MAXNUM_OF_RESOURCES_EXCEEDED 5076) + (:CLUSTER_SYSTEM_CONFIG_CHANGED 5077) + (:CLUSTER_RESOURCE_TYPE_NOT_FOUND 5078) + (:CLUSTER_RESTYPE_NOT_SUPPORTED 5079) + (:CLUSTER_RESNAME_NOT_FOUND 5080) + (:CLUSTER_NO_RPC_PACKAGES_REGISTERED 5081) + (:CLUSTER_OWNER_NOT_IN_PREFLIST 5082) + (:CLUSTER_DATABASE_SEQMISMATCH 5083) + (:RESMON_INVALID_STATE 5084) + (:CLUSTER_GUM_NOT_LOCKER 5085) + (:QUORUM_DISK_NOT_FOUND 5086) + (:DATABASE_BACKUP_CORRUPT 5087) + (:CLUSTER_NODE_ALREADY_HAS_DFS_ROOT 5088) + (:RESOURCE_PROPERTY_UNCHANGEABLE 5089) + (:CLUSTER_MEMBERSHIP_INVALID_STATE 5890) + (:CLUSTER_QUORUMLOG_NOT_FOUND 5891) + (:CLUSTER_MEMBERSHIP_HALT 5892) + (:CLUSTER_INSTANCE_ID_MISMATCH 5893) + (:CLUSTER_NETWORK_NOT_FOUND_FOR_IP 5894) + (:CLUSTER_PROPERTY_DATA_TYPE_MISMATCH 5895) + (:CLUSTER_EVICT_WITHOUT_CLEANUP 5896) + (:CLUSTER_PARAMETER_MISMATCH 5897) + (:NODE_CANNOT_BE_CLUSTERED 5898) + (:CLUSTER_WRONG_OS_VERSION 5899) + (:CLUSTER_CANT_CREATE_DUP_CLUSTER_NAME 5900) + (:CLUSCFG_ALREADY_COMMITTED 5901) + (:CLUSCFG_ROLLBACK_FAILED 5902) + (:CLUSCFG_SYSTEM_DISK_DRIVE_LETTER_CONFLICT 5903) + (:CLUSTER_OLD_VERSION 5904) + (:CLUSTER_MISMATCHED_COMPUTER_ACCT_NAME 5905) + (:ENCRYPTION_FAILED 6000) + (:DECRYPTION_FAILED 6001) + (:FILE_ENCRYPTED 6002) + (:NO_RECOVERY_POLICY 6003) + (:NO_EFS 6004) + (:WRONG_EFS 6005) + (:NO_USER_KEYS 6006) + (:FILE_NOT_ENCRYPTED 6007) + (:NOT_EXPORT_FORMAT 6008) + (:FILE_READ_ONLY 6009) + (:DIR_EFS_DISALLOWED 6010) + (:EFS_SERVER_NOT_TRUSTED 6011) + (:BAD_RECOVERY_POLICY 6012) + (:EFS_ALG_BLOB_TOO_BIG 6013) + (:VOLUME_NOT_SUPPORT_EFS 6014) + (:EFS_DISABLED 6015) + (:EFS_VERSION_NOT_SUPPORT 6016) + (:NO_BROWSER_SERVERS_FOUND 6118) + (:SCHED_E_SERVICE_NOT_LOCALSYSTEM 6200) + (:CTX_WINSTATION_NAME_INVALID 7001) + (:CTX_INVALID_PD 7002) + (:CTX_PD_NOT_FOUND 7003) + (:CTX_WD_NOT_FOUND 7004) + (:CTX_CANNOT_MAKE_EVENTLOG_ENTRY 7005) + (:CTX_SERVICE_NAME_COLLISION 7006) + (:CTX_CLOSE_PENDING 7007) + (:CTX_NO_OUTBUF 7008) + (:CTX_MODEM_INF_NOT_FOUND 7009) + (:CTX_INVALID_MODEMNAME 7010) + (:CTX_MODEM_RESPONSE_ERROR 7011) + (:CTX_MODEM_RESPONSE_TIMEOUT 7012) + (:CTX_MODEM_RESPONSE_NO_CARRIER 7013) + (:CTX_MODEM_RESPONSE_NO_DIALTONE 7014) + (:CTX_MODEM_RESPONSE_BUSY 7015) + (:CTX_MODEM_RESPONSE_VOICE 7016) + (:CTX_TD_ERROR 7017) + (:CTX_WINSTATION_NOT_FOUND 7022) + (:CTX_WINSTATION_ALREADY_EXISTS 7023) + (:CTX_WINSTATION_BUSY 7024) + (:CTX_BAD_VIDEO_MODE 7025) + (:CTX_GRAPHICS_INVALID 7035) + (:CTX_LOGON_DISABLED 7037) + (:CTX_NOT_CONSOLE 7038) + (:CTX_CLIENT_QUERY_TIMEOUT 7040) + (:CTX_CONSOLE_DISCONNECT 7041) + (:CTX_CONSOLE_CONNECT 7042) + (:CTX_SHADOW_DENIED 7044) + (:CTX_WINSTATION_ACCESS_DENIED 7045) + (:CTX_INVALID_WD 7049) + (:CTX_SHADOW_INVALID 7050) + (:CTX_SHADOW_DISABLED 7051) + (:CTX_CLIENT_LICENSE_IN_USE 7052) + (:CTX_CLIENT_LICENSE_NOT_SET 7053) + (:CTX_LICENSE_NOT_AVAILABLE 7054) + (:CTX_LICENSE_CLIENT_INVALID 7055) + (:CTX_LICENSE_EXPIRED 7056) + (:CTX_SHADOW_NOT_RUNNING 7057) + (:CTX_SHADOW_ENDED_BY_MODE_CHANGE 7058) + (:ACTIVATION_COUNT_EXCEEDED 7059) + (:FRS_ERR_INVALID_API_SEQUENCE 8001) + (:FRS_ERR_STARTING_SERVICE 8002) + (:FRS_ERR_STOPPING_SERVICE 8003) + (:FRS_ERR_INTERNAL_API 8004) + (:FRS_ERR_INTERNAL 8005) + (:FRS_ERR_SERVICE_COMM 8006) + (:FRS_ERR_INSUFFICIENT_PRIV 8007) + (:FRS_ERR_AUTHENTICATION 8008) + (:FRS_ERR_PARENT_INSUFFICIENT_PRIV 8009) + (:FRS_ERR_PARENT_AUTHENTICATION 8010) + (:FRS_ERR_CHILD_TO_PARENT_COMM 8011) + (:FRS_ERR_PARENT_TO_CHILD_COMM 8012) + (:FRS_ERR_SYSVOL_POPULATE 8013) + (:FRS_ERR_SYSVOL_POPULATE_TIMEOUT 8014) + (:FRS_ERR_SYSVOL_IS_BUSY 8015) + (:FRS_ERR_SYSVOL_DEMOTE 8016) + (:FRS_ERR_INVALID_SERVICE_PARAMETER 8017) + (:DS_NOT_INSTALLED 8200) + (:DS_MEMBERSHIP_EVALUATED_LOCALLY 8201) + (:DS_NO_ATTRIBUTE_OR_VALUE 8202) + (:DS_INVALID_ATTRIBUTE_SYNTAX 8203) + (:DS_ATTRIBUTE_TYPE_UNDEFINED 8204) + (:DS_ATTRIBUTE_OR_VALUE_EXISTS 8205) + (:DS_BUSY 8206) + (:DS_UNAVAILABLE 8207) + (:DS_NO_RIDS_ALLOCATED 8208) + (:DS_NO_MORE_RIDS 8209) + (:DS_INCORRECT_ROLE_OWNER 8210) + (:DS_RIDMGR_INIT_ERROR 8211) + (:DS_OBJ_CLASS_VIOLATION 8212) + (:DS_CANT_ON_NON_LEAF 8213) + (:DS_CANT_ON_RDN 8214) + (:DS_CANT_MOD_OBJ_CLASS 8215) + (:DS_CROSS_DOM_MOVE_ERROR 8216) + (:DS_GC_NOT_AVAILABLE 8217) + (:SHARED_POLICY 8218) + (:POLICY_OBJECT_NOT_FOUND 8219) + (:POLICY_ONLY_IN_DS 8220) + (:PROMOTION_ACTIVE 8221) + (:NO_PROMOTION_ACTIVE 8222) + (:DS_OPERATIONS_ERROR 8224) + (:DS_PROTOCOL_ERROR 8225) + (:DS_TIMELIMIT_EXCEEDED 8226) + (:DS_SIZELIMIT_EXCEEDED 8227) + (:DS_ADMIN_LIMIT_EXCEEDED 8228) + (:DS_COMPARE_FALSE 8229) + (:DS_COMPARE_TRUE 8230) + (:DS_AUTH_METHOD_NOT_SUPPORTED 8231) + (:DS_STRONG_AUTH_REQUIRED 8232) + (:DS_INAPPROPRIATE_AUTH 8233) + (:DS_AUTH_UNKNOWN 8234) + (:DS_REFERRAL 8235) + (:DS_UNAVAILABLE_CRIT_EXTENSION 8236) + (:DS_CONFIDENTIALITY_REQUIRED 8237) + (:DS_INAPPROPRIATE_MATCHING 8238) + (:DS_CONSTRAINT_VIOLATION 8239) + (:DS_NO_SUCH_OBJECT 8240) + (:DS_ALIAS_PROBLEM 8241) + (:DS_INVALID_DN_SYNTAX 8242) + (:DS_IS_LEAF 8243) + (:DS_ALIAS_DEREF_PROBLEM 8244) + (:DS_UNWILLING_TO_PERFORM 8245) + (:DS_LOOP_DETECT 8246) + (:DS_NAMING_VIOLATION 8247) + (:DS_OBJECT_RESULTS_TOO_LARGE 8248) + (:DS_AFFECTS_MULTIPLE_DSAS 8249) + (:DS_SERVER_DOWN 8250) + (:DS_LOCAL_ERROR 8251) + (:DS_ENCODING_ERROR 8252) + (:DS_DECODING_ERROR 8253) + (:DS_FILTER_UNKNOWN 8254) + (:DS_PARAM_ERROR 8255) + (:DS_NOT_SUPPORTED 8256) + (:DS_NO_RESULTS_RETURNED 8257) + (:DS_CONTROL_NOT_FOUND 8258) + (:DS_CLIENT_LOOP 8259) + (:DS_REFERRAL_LIMIT_EXCEEDED 8260) + (:DS_SORT_CONTROL_MISSING 8261) + (:DS_OFFSET_RANGE_ERROR 8262) + (:DS_ROOT_MUST_BE_NC 8301) + (:DS_ADD_REPLICA_INHIBITED 8302) + (:DS_ATT_NOT_DEF_IN_SCHEMA 8303) + (:DS_MAX_OBJ_SIZE_EXCEEDED 8304) + (:DS_OBJ_STRING_NAME_EXISTS 8305) + (:DS_NO_RDN_DEFINED_IN_SCHEMA 8306) + (:DS_RDN_DOESNT_MATCH_SCHEMA 8307) + (:DS_NO_REQUESTED_ATTS_FOUND 8308) + (:DS_USER_BUFFER_TO_SMALL 8309) + (:DS_ATT_IS_NOT_ON_OBJ 8310) + (:DS_ILLEGAL_MOD_OPERATION 8311) + (:DS_OBJ_TOO_LARGE 8312) + (:DS_BAD_INSTANCE_TYPE 8313) + (:DS_MASTERDSA_REQUIRED 8314) + (:DS_OBJECT_CLASS_REQUIRED 8315) + (:DS_MISSING_REQUIRED_ATT 8316) + (:DS_ATT_NOT_DEF_FOR_CLASS 8317) + (:DS_ATT_ALREADY_EXISTS 8318) + (:DS_CANT_ADD_ATT_VALUES 8320) + (:DS_SINGLE_VALUE_CONSTRAINT 8321) + (:DS_RANGE_CONSTRAINT 8322) + (:DS_ATT_VAL_ALREADY_EXISTS 8323) + (:DS_CANT_REM_MISSING_ATT 8324) + (:DS_CANT_REM_MISSING_ATT_VAL 8325) + (:DS_ROOT_CANT_BE_SUBREF 8326) + (:DS_NO_CHAINING 8327) + (:DS_NO_CHAINED_EVAL 8328) + (:DS_NO_PARENT_OBJECT 8329) + (:DS_PARENT_IS_AN_ALIAS 8330) + (:DS_CANT_MIX_MASTER_AND_REPS 8331) + (:DS_CHILDREN_EXIST 8332) + (:DS_OBJ_NOT_FOUND 8333) + (:DS_ALIASED_OBJ_MISSING 8334) + (:DS_BAD_NAME_SYNTAX 8335) + (:DS_ALIAS_POINTS_TO_ALIAS 8336) + (:DS_CANT_DEREF_ALIAS 8337) + (:DS_OUT_OF_SCOPE 8338) + (:DS_OBJECT_BEING_REMOVED 8339) + (:DS_CANT_DELETE_DSA_OBJ 8340) + (:DS_GENERIC_ERROR 8341) + (:DS_DSA_MUST_BE_INT_MASTER 8342) + (:DS_CLASS_NOT_DSA 8343) + (:DS_INSUFF_ACCESS_RIGHTS 8344) + (:DS_ILLEGAL_SUPERIOR 8345) + (:DS_ATTRIBUTE_OWNED_BY_SAM 8346) + (:DS_NAME_TOO_MANY_PARTS 8347) + (:DS_NAME_TOO_LONG 8348) + (:DS_NAME_VALUE_TOO_LONG 8349) + (:DS_NAME_UNPARSEABLE 8350) + (:DS_NAME_TYPE_UNKNOWN 8351) + (:DS_NOT_AN_OBJECT 8352) + (:DS_SEC_DESC_TOO_SHORT 8353) + (:DS_SEC_DESC_INVALID 8354) + (:DS_NO_DELETED_NAME 8355) + (:DS_SUBREF_MUST_HAVE_PARENT 8356) + (:DS_NCNAME_MUST_BE_NC 8357) + (:DS_CANT_ADD_SYSTEM_ONLY 8358) + (:DS_CLASS_MUST_BE_CONCRETE 8359) + (:DS_INVALID_DMD 8360) + (:DS_OBJ_GUID_EXISTS 8361) + (:DS_NOT_ON_BACKLINK 8362) + (:DS_NO_CROSSREF_FOR_NC 8363) + (:DS_SHUTTING_DOWN 8364) + (:DS_UNKNOWN_OPERATION 8365) + (:DS_INVALID_ROLE_OWNER 8366) + (:DS_COULDNT_CONTACT_FSMO 8367) + (:DS_CROSS_NC_DN_RENAME 8368) + (:DS_CANT_MOD_SYSTEM_ONLY 8369) + (:DS_REPLICATOR_ONLY 8370) + (:DS_OBJ_CLASS_NOT_DEFINED 8371) + (:DS_OBJ_CLASS_NOT_SUBCLASS 8372) + (:DS_NAME_REFERENCE_INVALID 8373) + (:DS_CROSS_REF_EXISTS 8374) + (:DS_CANT_DEL_MASTER_CROSSREF 8375) + (:DS_SUBTREE_NOTIFY_NOT_NC_HEAD 8376) + (:DS_NOTIFY_FILTER_TOO_COMPLEX 8377) + (:DS_DUP_RDN 8378) + (:DS_DUP_OID 8379) + (:DS_DUP_MAPI_ID 8380) + (:DS_DUP_SCHEMA_ID_GUID 8381) + (:DS_DUP_LDAP_DISPLAY_NAME 8382) + (:DS_SEMANTIC_ATT_TEST 8383) + (:DS_SYNTAX_MISMATCH 8384) + (:DS_EXISTS_IN_MUST_HAVE 8385) + (:DS_EXISTS_IN_MAY_HAVE 8386) + (:DS_NONEXISTENT_MAY_HAVE 8387) + (:DS_NONEXISTENT_MUST_HAVE 8388) + (:DS_AUX_CLS_TEST_FAIL 8389) + (:DS_NONEXISTENT_POSS_SUP 8390) + (:DS_SUB_CLS_TEST_FAIL 8391) + (:DS_BAD_RDN_ATT_ID_SYNTAX 8392) + (:DS_EXISTS_IN_AUX_CLS 8393) + (:DS_EXISTS_IN_SUB_CLS 8394) + (:DS_EXISTS_IN_POSS_SUP 8395) + (:DS_RECALCSCHEMA_FAILED 8396) + (:DS_TREE_DELETE_NOT_FINISHED 8397) + (:DS_CANT_DELETE 8398) + (:DS_ATT_SCHEMA_REQ_ID 8399) + (:DS_BAD_ATT_SCHEMA_SYNTAX 8400) + (:DS_CANT_CACHE_ATT 8401) + (:DS_CANT_CACHE_CLASS 8402) + (:DS_CANT_REMOVE_ATT_CACHE 8403) + (:DS_CANT_REMOVE_CLASS_CACHE 8404) + (:DS_CANT_RETRIEVE_DN 8405) + (:DS_MISSING_SUPREF 8406) + (:DS_CANT_RETRIEVE_INSTANCE 8407) + (:DS_CODE_INCONSISTENCY 8408) + (:DS_DATABASE_ERROR 8409) + (:DS_GOVERNSID_MISSING 8410) + (:DS_MISSING_EXPECTED_ATT 8411) + (:DS_NCNAME_MISSING_CR_REF 8412) + (:DS_SECURITY_CHECKING_ERROR 8413) + (:DS_SCHEMA_NOT_LOADED 8414) + (:DS_SCHEMA_ALLOC_FAILED 8415) + (:DS_ATT_SCHEMA_REQ_SYNTAX 8416) + (:DS_GCVERIFY_ERROR 8417) + (:DS_DRA_SCHEMA_MISMATCH 8418) + (:DS_CANT_FIND_DSA_OBJ 8419) + (:DS_CANT_FIND_EXPECTED_NC 8420) + (:DS_CANT_FIND_NC_IN_CACHE 8421) + (:DS_CANT_RETRIEVE_CHILD 8422) + (:DS_SECURITY_ILLEGAL_MODIFY 8423) + (:DS_CANT_REPLACE_HIDDEN_REC 8424) + (:DS_BAD_HIERARCHY_FILE 8425) + (:DS_BUILD_HIERARCHY_TABLE_FAILED 8426) + (:DS_CONFIG_PARAM_MISSING 8427) + (:DS_COUNTING_AB_INDICES_FAILED 8428) + (:DS_HIERARCHY_TABLE_MALLOC_FAILED 8429) + (:DS_INTERNAL_FAILURE 8430) + (:DS_UNKNOWN_ERROR 8431) + (:DS_ROOT_REQUIRES_CLASS_TOP 8432) + (:DS_REFUSING_FSMO_ROLES 8433) + (:DS_MISSING_FSMO_SETTINGS 8434) + (:DS_UNABLE_TO_SURRENDER_ROLES 8435) + (:DS_DRA_GENERIC 8436) + (:DS_DRA_INVALID_PARAMETER 8437) + (:DS_DRA_BUSY 8438) + (:DS_DRA_BAD_DN 8439) + (:DS_DRA_BAD_NC 8440) + (:DS_DRA_DN_EXISTS 8441) + (:DS_DRA_INTERNAL_ERROR 8442) + (:DS_DRA_INCONSISTENT_DIT 8443) + (:DS_DRA_CONNECTION_FAILED 8444) + (:DS_DRA_BAD_INSTANCE_TYPE 8445) + (:DS_DRA_OUT_OF_MEM 8446) + (:DS_DRA_MAIL_PROBLEM 8447) + (:DS_DRA_REF_ALREADY_EXISTS 8448) + (:DS_DRA_REF_NOT_FOUND 8449) + (:DS_DRA_OBJ_IS_REP_SOURCE 8450) + (:DS_DRA_DB_ERROR 8451) + (:DS_DRA_NO_REPLICA 8452) + (:DS_DRA_ACCESS_DENIED 8453) + (:DS_DRA_NOT_SUPPORTED 8454) + (:DS_DRA_RPC_CANCELLED 8455) + (:DS_DRA_SOURCE_DISABLED 8456) + (:DS_DRA_SINK_DISABLED 8457) + (:DS_DRA_NAME_COLLISION 8458) + (:DS_DRA_SOURCE_REINSTALLED 8459) + (:DS_DRA_MISSING_PARENT 8460) + (:DS_DRA_PREEMPTED 8461) + (:DS_DRA_ABANDON_SYNC 8462) + (:DS_DRA_SHUTDOWN 8463) + (:DS_DRA_INCOMPATIBLE_PARTIAL_SET 8464) + (:DS_DRA_SOURCE_IS_PARTIAL_REPLICA 8465) + (:DS_DRA_EXTN_CONNECTION_FAILED 8466) + (:DS_INSTALL_SCHEMA_MISMATCH 8467) + (:DS_DUP_LINK_ID 8468) + (:DS_NAME_ERROR_RESOLVING 8469) + (:DS_NAME_ERROR_NOT_FOUND 8470) + (:DS_NAME_ERROR_NOT_UNIQUE 8471) + (:DS_NAME_ERROR_NO_MAPPING 8472) + (:DS_NAME_ERROR_DOMAIN_ONLY 8473) + (:DS_NAME_ERROR_NO_SYNTACTICAL_MAPPING 8474) + (:DS_CONSTRUCTED_ATT_MOD 8475) + (:DS_WRONG_OM_OBJ_CLASS 8476) + (:DS_DRA_REPL_PENDING 8477) + (:DS_DS_REQUIRED 8478) + (:DS_INVALID_LDAP_DISPLAY_NAME 8479) + (:DS_NON_BASE_SEARCH 8480) + (:DS_CANT_RETRIEVE_ATTS 8481) + (:DS_BACKLINK_WITHOUT_LINK 8482) + (:DS_EPOCH_MISMATCH 8483) + (:DS_SRC_NAME_MISMATCH 8484) + (:DS_SRC_AND_DST_NC_IDENTICAL 8485) + (:DS_DST_NC_MISMATCH 8486) + (:DS_NOT_AUTHORITIVE_FOR_DST_NC 8487) + (:DS_SRC_GUID_MISMATCH 8488) + (:DS_CANT_MOVE_DELETED_OBJECT 8489) + (:DS_PDC_OPERATION_IN_PROGRESS 8490) + (:DS_CROSS_DOMAIN_CLEANUP_REQD 8491) + (:DS_ILLEGAL_XDOM_MOVE_OPERATION 8492) + (:DS_CANT_WITH_ACCT_GROUP_MEMBERSHPS 8493) + (:DS_NC_MUST_HAVE_NC_PARENT 8494) + (:DS_CR_IMPOSSIBLE_TO_VALIDATE 8495) + (:DS_DST_DOMAIN_NOT_NATIVE 8496) + (:DS_MISSING_INFRASTRUCTURE_CONTAINER 8497) + (:DS_CANT_MOVE_ACCOUNT_GROUP 8498) + (:DS_CANT_MOVE_RESOURCE_GROUP 8499) + (:DS_INVALID_SEARCH_FLAG 8500) + (:DS_NO_TREE_DELETE_ABOVE_NC 8501) + (:DS_COULDNT_LOCK_TREE_FOR_DELETE 8502) + (:DS_COULDNT_IDENTIFY_OBJECTS_FOR_TREE_DELETE 8503) + (:DS_SAM_INIT_FAILURE 8504) + (:DS_SENSITIVE_GROUP_VIOLATION 8505) + (:DS_CANT_MOD_PRIMARYGROUPID 8506) + (:DS_ILLEGAL_BASE_SCHEMA_MOD 8507) + (:DS_NONSAFE_SCHEMA_CHANGE 8508) + (:DS_SCHEMA_UPDATE_DISALLOWED 8509) + (:DS_CANT_CREATE_UNDER_SCHEMA 8510) + (:DS_INSTALL_NO_SRC_SCH_VERSION 8511) + (:DS_INSTALL_NO_SCH_VERSION_IN_INIFILE 8512) + (:DS_INVALID_GROUP_TYPE 8513) + (:DS_NO_NEST_GLOBALGROUP_IN_MIXEDDOMAIN 8514) + (:DS_NO_NEST_LOCALGROUP_IN_MIXEDDOMAIN 8515) + (:DS_GLOBAL_CANT_HAVE_LOCAL_MEMBER 8516) + (:DS_GLOBAL_CANT_HAVE_UNIVERSAL_MEMBER 8517) + (:DS_UNIVERSAL_CANT_HAVE_LOCAL_MEMBER 8518) + (:DS_GLOBAL_CANT_HAVE_CROSSDOMAIN_MEMBER 8519) + (:DS_LOCAL_CANT_HAVE_CROSSDOMAIN_LOCAL_MEMBER 8520) + (:DS_HAVE_PRIMARY_MEMBERS 8521) + (:DS_STRING_SD_CONVERSION_FAILED 8522) + (:DS_NAMING_MASTER_GC 8523) + (:DS_LOOKUP_FAILURE 8524) + (:DS_COULDNT_UPDATE_SPNS 8525) + (:DS_CANT_RETRIEVE_SD 8526) + (:DS_KEY_NOT_UNIQUE 8527) + (:DS_WRONG_LINKED_ATT_SYNTAX 8528) + (:DS_SAM_NEED_BOOTKEY_PASSWORD 8529) + (:DS_SAM_NEED_BOOTKEY_FLOPPY 8530) + (:DS_CANT_START 8531) + (:DS_INIT_FAILURE 8532) + (:DS_NO_PKT_PRIVACY_ON_CONNECTION 8533) + (:DS_SOURCE_DOMAIN_IN_FOREST 8534) + (:DS_DESTINATION_DOMAIN_NOT_IN_FOREST 8535) + (:DS_DESTINATION_AUDITING_NOT_ENABLED 8536) + (:DS_CANT_FIND_DC_FOR_SRC_DOMAIN 8537) + (:DS_SRC_OBJ_NOT_GROUP_OR_USER 8538) + (:DS_SRC_SID_EXISTS_IN_FOREST 8539) + (:DS_SRC_AND_DST_OBJECT_CLASS_MISMATCH 8540) + (:SAM_INIT_FAILURE 8541) + (:DS_DRA_SCHEMA_INFO_SHIP 8542) + (:DS_DRA_SCHEMA_CONFLICT 8543) + (:DS_DRA_EARLIER_SCHEMA_CONLICT 8544) + (:DS_DRA_OBJ_NC_MISMATCH 8545) + (:DS_NC_STILL_HAS_DSAS 8546) + (:DS_GC_REQUIRED 8547) + (:DS_LOCAL_MEMBER_OF_LOCAL_ONLY 8548) + (:DS_NO_FPO_IN_UNIVERSAL_GROUPS 8549) + (:DS_CANT_ADD_TO_GC 8550) + (:DS_NO_CHECKPOINT_WITH_PDC 8551) + (:DS_SOURCE_AUDITING_NOT_ENABLED 8552) + (:DS_CANT_CREATE_IN_NONDOMAIN_NC 8553) + (:DS_INVALID_NAME_FOR_SPN 8554) + (:DS_FILTER_USES_CONTRUCTED_ATTRS 8555) + (:DS_UNICODEPWD_NOT_IN_QUOTES 8556) + (:DS_MACHINE_ACCOUNT_QUOTA_EXCEEDED 8557) + (:DS_MUST_BE_RUN_ON_DST_DC 8558) + (:DS_SRC_DC_MUST_BE_SP4_OR_GREATER 8559) + (:DS_CANT_TREE_DELETE_CRITICAL_OBJ 8560) + (:DS_INIT_FAILURE_CONSOLE 8561) + (:DS_SAM_INIT_FAILURE_CONSOLE 8562) + (:DS_FOREST_VERSION_TOO_HIGH 8563) + (:DS_DOMAIN_VERSION_TOO_HIGH 8564) + (:DS_FOREST_VERSION_TOO_LOW 8565) + (:DS_DOMAIN_VERSION_TOO_LOW 8566) + (:DS_INCOMPATIBLE_VERSION 8567) + (:DS_LOW_DSA_VERSION 8568) + (:DS_NO_BEHAVIOR_VERSION_IN_MIXEDDOMAIN 8569) + (:DS_NOT_SUPPORTED_SORT_ORDER 8570) + (:DS_NAME_NOT_UNIQUE 8571) + (:DS_MACHINE_ACCOUNT_CREATED_PRENT4 8572) + (:DS_OUT_OF_VERSION_STORE 8573) + (:DS_INCOMPATIBLE_CONTROLS_USED 8574) + (:DS_NO_REF_DOMAIN 8575) + (:DS_RESERVED_LINK_ID 8576) + (:DS_LINK_ID_NOT_AVAILABLE 8577) + (:DS_AG_CANT_HAVE_UNIVERSAL_MEMBER 8578) + (:DS_MODIFYDN_DISALLOWED_BY_INSTANCE_TYPE 8579) + (:DS_NO_OBJECT_MOVE_IN_SCHEMA_NC 8580) + (:DS_MODIFYDN_DISALLOWED_BY_FLAG 8581) + (:DS_MODIFYDN_WRONG_GRANDPARENT 8582) + (:DS_NAME_ERROR_TRUST_REFERRAL 8583) + (:NOT_SUPPORTED_ON_STANDARD_SERVER 8584) + (:DS_CANT_ACCESS_REMOTE_PART_OF_AD 8585) + (:DS_CR_IMPOSSIBLE_TO_VALIDATE_V2 8586) + (:DS_THREAD_LIMIT_EXCEEDED 8587) + (:DS_NOT_CLOSEST 8588) + (:DS_CANT_DERIVE_SPN_WITHOUT_SERVER_REF 8589) + (:DS_SINGLE_USER_MODE_FAILED 8590) + (:DS_NTDSCRIPT_SYNTAX_ERROR 8591) + (:DS_NTDSCRIPT_PROCESS_ERROR 8592) + (:DS_DIFFERENT_REPL_EPOCHS 8593) + (:DS_DRS_EXTENSIONS_CHANGED 8594) + (:DS_REPLICA_SET_CHANGE_NOT_ALLOWED_ON_DISABLED_CR 8595) + (:DS_NO_MSDS_INTID 8596) + (:DS_DUP_MSDS_INTID 8597) + (:DS_EXISTS_IN_RDNATTID 8598) + (:DS_AUTHORIZATION_FAILED 8599) + (:DS_INVALID_SCRIPT 8600) + (:DS_REMOTE_CROSSREF_OP_FAILED 8601) + (:DS_CROSS_REF_BUSY 8602) + (:DS_CANT_DERIVE_SPN_FOR_DELETED_DOMAIN 8603) + (:DS_CANT_DEMOTE_WITH_WRITEABLE_NC 8604) + (:DS_DUPLICATE_ID_FOUND 8605) + (:DS_INSUFFICIENT_ATTR_TO_CREATE_OBJECT 8606) + (:DS_GROUP_CONVERSION_ERROR 8607) + (:DS_CANT_MOVE_APP_BASIC_GROUP 8608) + (:DS_CANT_MOVE_APP_QUERY_GROUP 8609) + (:DS_ROLE_NOT_VERIFIED 8610) + (:DS_WKO_CONTAINER_CANNOT_BE_SPECIAL 8611) + (:DS_DOMAIN_RENAME_IN_PROGRESS 8612) + (:DS_EXISTING_AD_CHILD_NC 8613) + (:DNS_ERROR_RCODE_FORMAT_ERROR 9001) + (:DNS_ERROR_RCODE_SERVER_FAILURE 9002) + (:DNS_ERROR_RCODE_NAME_ERROR 9003) + (:DNS_ERROR_RCODE_NOT_IMPLEMENTED 9004) + (:DNS_ERROR_RCODE_REFUSED 9005) + (:DNS_ERROR_RCODE_YXDOMAIN 9006) + (:DNS_ERROR_RCODE_YXRRSET 9007) + (:DNS_ERROR_RCODE_NXRRSET 9008) + (:DNS_ERROR_RCODE_NOTAUTH 9009) + (:DNS_ERROR_RCODE_NOTZONE 9010) + (:DNS_ERROR_RCODE_BADSIG 9016) + (:DNS_ERROR_RCODE_BADKEY 9017) + (:DNS_ERROR_RCODE_BADTIME 9018) + (:DNS_INFO_NO_RECORDS 9501) + (:DNS_ERROR_BAD_PACKET 9502) + (:DNS_ERROR_NO_PACKET 9503) + (:DNS_ERROR_RCODE 9504) + (:DNS_ERROR_UNSECURE_PACKET 9505) + (:DNS_ERROR_INVALID_TYPE 9551) + (:DNS_ERROR_INVALID_IP_ADDRESS 9552) + (:DNS_ERROR_INVALID_PROPERTY 9553) + (:DNS_ERROR_TRY_AGAIN_LATER 9554) + (:DNS_ERROR_NOT_UNIQUE 9555) + (:DNS_ERROR_NON_RFC_NAME 9556) + (:DNS_STATUS_FQDN 9557) + (:DNS_STATUS_DOTTED_NAME 9558) + (:DNS_STATUS_SINGLE_PART_NAME 9559) + (:DNS_ERROR_INVALID_NAME_CHAR 9560) + (:DNS_ERROR_NUMERIC_NAME 9561) + (:DNS_ERROR_NOT_ALLOWED_ON_ROOT_SERVER 9562) + (:DNS_ERROR_NOT_ALLOWED_UNDER_DELEGATION 9563) + (:DNS_ERROR_CANNOT_FIND_ROOT_HINTS 9564) + (:DNS_ERROR_INCONSISTENT_ROOT_HINTS 9565) + (:DNS_ERROR_ZONE_DOES_NOT_EXIST 9601) + (:DNS_ERROR_NO_ZONE_INFO 9602) + (:DNS_ERROR_INVALID_ZONE_OPERATION 9603) + (:DNS_ERROR_ZONE_CONFIGURATION_ERROR 9604) + (:DNS_ERROR_ZONE_HAS_NO_SOA_RECORD 9605) + (:DNS_ERROR_ZONE_HAS_NO_NS_RECORDS 9606) + (:DNS_ERROR_ZONE_LOCKED 9607) + (:DNS_ERROR_ZONE_CREATION_FAILED 9608) + (:DNS_ERROR_ZONE_ALREADY_EXISTS 9609) + (:DNS_ERROR_AUTOZONE_ALREADY_EXISTS 9610) + (:DNS_ERROR_INVALID_ZONE_TYPE 9611) + (:DNS_ERROR_SECONDARY_REQUIRES_MASTER_IP 9612) + (:DNS_ERROR_ZONE_NOT_SECONDARY 9613) + (:DNS_ERROR_NEED_SECONDARY_ADDRESSES 9614) + (:DNS_ERROR_WINS_INIT_FAILED 9615) + (:DNS_ERROR_NEED_WINS_SERVERS 9616) + (:DNS_ERROR_NBSTAT_INIT_FAILED 9617) + (:DNS_ERROR_SOA_DELETE_INVALID 9618) + (:DNS_ERROR_FORWARDER_ALREADY_EXISTS 9619) + (:DNS_ERROR_ZONE_REQUIRES_MASTER_IP 9620) + (:DNS_ERROR_ZONE_IS_SHUTDOWN 9621) + (:DNS_ERROR_PRIMARY_REQUIRES_DATAFILE 9651) + (:DNS_ERROR_INVALID_DATAFILE_NAME 9652) + (:DNS_ERROR_DATAFILE_OPEN_FAILURE 9653) + (:DNS_ERROR_FILE_WRITEBACK_FAILED 9654) + (:DNS_ERROR_DATAFILE_PARSING 9655) + (:DNS_ERROR_RECORD_DOES_NOT_EXIST 9701) + (:DNS_ERROR_RECORD_FORMAT 9702) + (:DNS_ERROR_NODE_CREATION_FAILED 9703) + (:DNS_ERROR_UNKNOWN_RECORD_TYPE 9704) + (:DNS_ERROR_RECORD_TIMED_OUT 9705) + (:DNS_ERROR_NAME_NOT_IN_ZONE 9706) + (:DNS_ERROR_CNAME_LOOP 9707) + (:DNS_ERROR_NODE_IS_CNAME 9708) + (:DNS_ERROR_CNAME_COLLISION 9709) + (:DNS_ERROR_RECORD_ONLY_AT_ZONE_ROOT 9710) + (:DNS_ERROR_RECORD_ALREADY_EXISTS 9711) + (:DNS_ERROR_SECONDARY_DATA 9712) + (:DNS_ERROR_NO_CREATE_CACHE_DATA 9713) + (:DNS_ERROR_NAME_DOES_NOT_EXIST 9714) + (:DNS_WARNING_PTR_CREATE_FAILED 9715) + (:DNS_WARNING_DOMAIN_UNDELETED 9716) + (:DNS_ERROR_DS_UNAVAILABLE 9717) + (:DNS_ERROR_DS_ZONE_ALREADY_EXISTS 9718) + (:DNS_ERROR_NO_BOOTFILE_IF_DS_ZONE 9719) + (:DNS_INFO_AXFR_COMPLETE 9751) + (:DNS_ERROR_AXFR 9752) + (:DNS_INFO_ADDED_LOCAL_WINS 9753) + (:DNS_STATUS_CONTINUE_NEEDED 9801) + (:DNS_ERROR_NO_TCPIP 9851) + (:DNS_ERROR_NO_DNS_SERVERS 9852) + (:DNS_ERROR_DP_DOES_NOT_EXIST 9901) + (:DNS_ERROR_DP_ALREADY_EXISTS 9902) + (:DNS_ERROR_DP_NOT_ENLISTED 9903) + (:DNS_ERROR_DP_ALREADY_ENLISTED 9904) + (:DNS_ERROR_DP_NOT_AVAILABLE 9905) + (:WSABASEERR 10000) + (:WSAEINTR 10004) + (:WSAEBADF 10009) + (:WSAEACCES 10013) + (:WSAEFAULT 10014) + (:WSAEINVAL 10022) + (:WSAEMFILE 10024) + (:WSAEWOULDBLOCK 10035) + (:WSAEINPROGRESS 10036) + (:WSAEALREADY 10037) + (:WSAENOTSOCK 10038) + (:WSAEDESTADDRREQ 10039) + (:WSAEMSGSIZE 10040) + (:WSAEPROTOTYPE 10041) + (:WSAENOPROTOOPT 10042) + (:WSAEPROTONOSUPPORT 10043) + (:WSAESOCKTNOSUPPORT 10044) + (:WSAEOPNOTSUPP 10045) + (:WSAEPFNOSUPPORT 10046) + (:WSAEAFNOSUPPORT 10047) + (:WSAEADDRINUSE 10048) + (:WSAEADDRNOTAVAIL 10049) + (:WSAENETDOWN 10050) + (:WSAENETUNREACH 10051) + (:WSAENETRESET 10052) + (:WSAECONNABORTED 10053) + (:WSAECONNRESET 10054) + (:WSAENOBUFS 10055) + (:WSAEISCONN 10056) + (:WSAENOTCONN 10057) + (:WSAESHUTDOWN 10058) + (:WSAETOOMANYREFS 10059) + (:WSAETIMEDOUT 10060) + (:WSAECONNREFUSED 10061) + (:WSAELOOP 10062) + (:WSAENAMETOOLONG 10063) + (:WSAEHOSTDOWN 10064) + (:WSAEHOSTUNREACH 10065) + (:WSAENOTEMPTY 10066) + (:WSAEPROCLIM 10067) + (:WSAEUSERS 10068) + (:WSAEDQUOT 10069) + (:WSAESTALE 10070) + (:WSAEREMOTE 10071) + (:WSASYSNOTREADY 10091) + (:WSAVERNOTSUPPORTED 10092) + (:WSANOTINITIALISED 10093) + (:WSAEDISCON 10101) + (:WSAENOMORE 10102) + (:WSAECANCELLED 10103) + (:WSAEINVALIDPROCTABLE 10104) + (:WSAEINVALIDPROVIDER 10105) + (:WSAEPROVIDERFAILEDINIT 10106) + (:WSASYSCALLFAILURE 10107) + (:WSASERVICE_NOT_FOUND 10108) + (:WSATYPE_NOT_FOUND 10109) + (:WSA_E_NO_MORE 10110) + (:WSA_E_CANCELLED 10111) + (:WSAEREFUSED 10112) + (:WSAHOST_NOT_FOUND 11001) + (:WSATRY_AGAIN 11002) + (:WSANO_RECOVERY 11003) + (:WSANO_DATA 11004) + (:WSA_QOS_RECEIVERS 11005) + (:WSA_QOS_SENDERS 11006) + (:WSA_QOS_NO_SENDERS 11007) + (:WSA_QOS_NO_RECEIVERS 11008) + (:WSA_QOS_REQUEST_CONFIRMED 11009) + (:WSA_QOS_ADMISSION_FAILURE 11010) + (:WSA_QOS_POLICY_FAILURE 11011) + (:WSA_QOS_BAD_STYLE 11012) + (:WSA_QOS_BAD_OBJECT 11013) + (:WSA_QOS_TRAFFIC_CTRL_ERROR 11014) + (:WSA_QOS_GENERIC_ERROR 11015) + (:WSA_QOS_ESERVICETYPE 11016) + (:WSA_QOS_EFLOWSPEC 11017) + (:WSA_QOS_EPROVSPECBUF 11018) + (:WSA_QOS_EFILTERSTYLE 11019) + (:WSA_QOS_EFILTERTYPE 11020) + (:WSA_QOS_EFILTERCOUNT 11021) + (:WSA_QOS_EOBJLENGTH 11022) + (:WSA_QOS_EFLOWCOUNT 11023) + (:WSA_QOS_EUNKNOWNPSOBJ 11024) + (:WSA_QOS_EPOLICYOBJ 11025) + (:WSA_QOS_EFLOWDESC 11026) + (:WSA_QOS_EPSFLOWSPEC 11027) + (:WSA_QOS_EPSFILTERSPEC 11028) + (:WSA_QOS_ESDMODEOBJ 11029) + (:WSA_QOS_ESHAPERATEOBJ 11030) + (:WSA_QOS_RESERVED_PETYPE 11031) + (:IPSEC_QM_POLICY_EXISTS 13000) + (:IPSEC_QM_POLICY_NOT_FOUND 13001) + (:IPSEC_QM_POLICY_IN_USE 13002) + (:IPSEC_MM_POLICY_EXISTS 13003) + (:IPSEC_MM_POLICY_NOT_FOUND 13004) + (:IPSEC_MM_POLICY_IN_USE 13005) + (:IPSEC_MM_FILTER_EXISTS 13006) + (:IPSEC_MM_FILTER_NOT_FOUND 13007) + (:IPSEC_TRANSPORT_FILTER_EXISTS 13008) + (:IPSEC_TRANSPORT_FILTER_NOT_FOUND 13009) + (:IPSEC_MM_AUTH_EXISTS 13010) + (:IPSEC_MM_AUTH_NOT_FOUND 13011) + (:IPSEC_MM_AUTH_IN_USE 13012) + (:IPSEC_DEFAULT_MM_POLICY_NOT_FOUND 13013) + (:IPSEC_DEFAULT_MM_AUTH_NOT_FOUND 13014) + (:IPSEC_DEFAULT_QM_POLICY_NOT_FOUND 13015) + (:IPSEC_TUNNEL_FILTER_EXISTS 13016) + (:IPSEC_TUNNEL_FILTER_NOT_FOUND 13017) + (:IPSEC_MM_FILTER_PENDING_DELETION 13018) + (:IPSEC_TRANSPORT_FILTER_PENDING_DELETION 13019) + (:IPSEC_TUNNEL_FILTER_PENDING_DELETION 13020) + (:IPSEC_MM_POLICY_PENDING_DELETION 13021) + (:IPSEC_MM_AUTH_PENDING_DELETION 13022) + (:IPSEC_QM_POLICY_PENDING_DELETION 13023) + (:WARNING_IPSEC_MM_POLICY_PRUNED 13024) + (:WARNING_IPSEC_QM_POLICY_PRUNED 13025) + (:IPSEC_IKE_AUTH_FAIL 13801) + (:IPSEC_IKE_ATTRIB_FAIL 13802) + (:IPSEC_IKE_NEGOTIATION_PENDING 13803) + (:IPSEC_IKE_GENERAL_PROCESSING_ERROR 13804) + (:IPSEC_IKE_TIMED_OUT 13805) + (:IPSEC_IKE_NO_CERT 13806) + (:IPSEC_IKE_SA_DELETED 13807) + (:IPSEC_IKE_SA_REAPED 13808) + (:IPSEC_IKE_MM_ACQUIRE_DROP 13809) + (:IPSEC_IKE_QM_ACQUIRE_DROP 13810) + (:IPSEC_IKE_QUEUE_DROP_MM 13811) + (:IPSEC_IKE_QUEUE_DROP_NO_MM 13812) + (:IPSEC_IKE_DROP_NO_RESPONSE 13813) + (:IPSEC_IKE_MM_DELAY_DROP 13814) + (:IPSEC_IKE_QM_DELAY_DROP 13815) + (:IPSEC_IKE_ERROR 13816) + (:IPSEC_IKE_CRL_FAILED 13817) + (:IPSEC_IKE_INVALID_KEY_USAGE 13818) + (:IPSEC_IKE_INVALID_CERT_TYPE 13819) + (:IPSEC_IKE_NO_PRIVATE_KEY 13820) + (:IPSEC_IKE_DH_FAIL 13822) + (:IPSEC_IKE_INVALID_HEADER 13824) + (:IPSEC_IKE_NO_POLICY 13825) + (:IPSEC_IKE_INVALID_SIGNATURE 13826) + (:IPSEC_IKE_KERBEROS_ERROR 13827) + (:IPSEC_IKE_NO_PUBLIC_KEY 13828) + (:IPSEC_IKE_PROCESS_ERR 13829) + (:IPSEC_IKE_PROCESS_ERR_SA 13830) + (:IPSEC_IKE_PROCESS_ERR_PROP 13831) + (:IPSEC_IKE_PROCESS_ERR_TRANS 13832) + (:IPSEC_IKE_PROCESS_ERR_KE 13833) + (:IPSEC_IKE_PROCESS_ERR_ID 13834) + (:IPSEC_IKE_PROCESS_ERR_CERT 13835) + (:IPSEC_IKE_PROCESS_ERR_CERT_REQ 13836) + (:IPSEC_IKE_PROCESS_ERR_HASH 13837) + (:IPSEC_IKE_PROCESS_ERR_SIG 13838) + (:IPSEC_IKE_PROCESS_ERR_NONCE 13839) + (:IPSEC_IKE_PROCESS_ERR_NOTIFY 13840) + (:IPSEC_IKE_PROCESS_ERR_DELETE 13841) + (:IPSEC_IKE_PROCESS_ERR_VENDOR 13842) + (:IPSEC_IKE_INVALID_PAYLOAD 13843) + (:IPSEC_IKE_LOAD_SOFT_SA 13844) + (:IPSEC_IKE_SOFT_SA_TORN_DOWN 13845) + (:IPSEC_IKE_INVALID_COOKIE 13846) + (:IPSEC_IKE_NO_PEER_CERT 13847) + (:IPSEC_IKE_PEER_CRL_FAILED 13848) + (:IPSEC_IKE_POLICY_CHANGE 13849) + (:IPSEC_IKE_NO_MM_POLICY 13850) + (:IPSEC_IKE_NOTCBPRIV 13851) + (:IPSEC_IKE_SECLOADFAIL 13852) + (:IPSEC_IKE_FAILSSPINIT 13853) + (:IPSEC_IKE_FAILQUERYSSP 13854) + (:IPSEC_IKE_SRVACQFAIL 13855) + (:IPSEC_IKE_SRVQUERYCRED 13856) + (:IPSEC_IKE_GETSPIFAIL 13857) + (:IPSEC_IKE_INVALID_FILTER 13858) + (:IPSEC_IKE_OUT_OF_MEMORY 13859) + (:IPSEC_IKE_ADD_UPDATE_KEY_FAILED 13860) + (:IPSEC_IKE_INVALID_POLICY 13861) + (:IPSEC_IKE_UNKNOWN_DOI 13862) + (:IPSEC_IKE_INVALID_SITUATION 13863) + (:IPSEC_IKE_DH_FAILURE 13864) + (:IPSEC_IKE_INVALID_GROUP 13865) + (:IPSEC_IKE_ENCRYPT 13866) + (:IPSEC_IKE_DECRYPT 13867) + (:IPSEC_IKE_POLICY_MATCH 13868) + (:IPSEC_IKE_UNSUPPORTED_ID 13869) + (:IPSEC_IKE_INVALID_HASH 13870) + (:IPSEC_IKE_INVALID_HASH_ALG 13871) + (:IPSEC_IKE_INVALID_HASH_SIZE 13872) + (:IPSEC_IKE_INVALID_ENCRYPT_ALG 13873) + (:IPSEC_IKE_INVALID_AUTH_ALG 13874) + (:IPSEC_IKE_INVALID_SIG 13875) + (:IPSEC_IKE_LOAD_FAILED 13876) + (:IPSEC_IKE_RPC_DELETE 13877) + (:IPSEC_IKE_BENIGN_REINIT 13878) + (:IPSEC_IKE_INVALID_RESPONDER_LIFETIME_NOTIFY 13879) + (:IPSEC_IKE_INVALID_CERT_KEYLEN 13881) + (:IPSEC_IKE_MM_LIMIT 13882) + (:IPSEC_IKE_NEGOTIATION_DISABLED 13883) + (:IPSEC_IKE_NEG_STATUS_END 13884) + (:SXS_SECTION_NOT_FOUND 14000) + (:SXS_CANT_GEN_ACTCTX 14001) + (:SXS_INVALID_ACTCTXDATA_FORMAT 14002) + (:SXS_ASSEMBLY_NOT_FOUND 14003) + (:SXS_MANIFEST_FORMAT_ERROR 14004) + (:SXS_MANIFEST_PARSE_ERROR 14005) + (:SXS_ACTIVATION_CONTEXT_DISABLED 14006) + (:SXS_KEY_NOT_FOUND 14007) + (:SXS_VERSION_CONFLICT 14008) + (:SXS_WRONG_SECTION_TYPE 14009) + (:SXS_THREAD_QUERIES_DISABLED 14010) + (:SXS_PROCESS_DEFAULT_ALREADY_SET 14011) + (:SXS_UNKNOWN_ENCODING_GROUP 14012) + (:SXS_UNKNOWN_ENCODING 14013) + (:SXS_INVALID_XML_NAMESPACE_URI 14014) + (:SXS_ROOT_MANIFEST_DEPENDENCY_NOT_INSTALLED 14015) + (:SXS_LEAF_MANIFEST_DEPENDENCY_NOT_INSTALLED 14016) + (:SXS_INVALID_ASSEMBLY_IDENTITY_ATTRIBUTE 14017) + (:SXS_MANIFEST_MISSING_REQUIRED_DEFAULT_NAMESPACE 14018) + (:SXS_MANIFEST_INVALID_REQUIRED_DEFAULT_NAMESPACE 14019) + (:SXS_PRIVATE_MANIFEST_CROSS_PATH_WITH_REPARSE_POINT 14020) + (:SXS_DUPLICATE_DLL_NAME 14021) + (:SXS_DUPLICATE_WINDOWCLASS_NAME 14022) + (:SXS_DUPLICATE_CLSID 14023) + (:SXS_DUPLICATE_IID 14024) + (:SXS_DUPLICATE_TLBID 14025) + (:SXS_DUPLICATE_PROGID 14026) + (:SXS_DUPLICATE_ASSEMBLY_NAME 14027) + (:SXS_FILE_HASH_MISMATCH 14028) + (:SXS_POLICY_PARSE_ERROR 14029) + (:SXS_XML_E_MISSINGQUOTE 14030) + (:SXS_XML_E_COMMENTSYNTAX 14031) + (:SXS_XML_E_BADSTARTNAMECHAR 14032) + (:SXS_XML_E_BADNAMECHAR 14033) + (:SXS_XML_E_BADCHARINSTRING 14034) + (:SXS_XML_E_XMLDECLSYNTAX 14035) + (:SXS_XML_E_BADCHARDATA 14036) + (:SXS_XML_E_MISSINGWHITESPACE 14037) + (:SXS_XML_E_EXPECTINGTAGEND 14038) + (:SXS_XML_E_MISSINGSEMICOLON 14039) + (:SXS_XML_E_UNBALANCEDPAREN 14040) + (:SXS_XML_E_INTERNALERROR 14041) + (:SXS_XML_E_UNEXPECTED_WHITESPACE 14042) + (:SXS_XML_E_INCOMPLETE_ENCODING 14043) + (:SXS_XML_E_MISSING_PAREN 14044) + (:SXS_XML_E_EXPECTINGCLOSEQUOTE 14045) + (:SXS_XML_E_MULTIPLE_COLONS 14046) + (:SXS_XML_E_INVALID_DECIMAL 14047) + (:SXS_XML_E_INVALID_HEXIDECIMAL 14048) + (:SXS_XML_E_INVALID_UNICODE 14049) + (:SXS_XML_E_WHITESPACEORQUESTIONMARK 14050) + (:SXS_XML_E_UNEXPECTEDENDTAG 14051) + (:SXS_XML_E_UNCLOSEDTAG 14052) + (:SXS_XML_E_DUPLICATEATTRIBUTE 14053) + (:SXS_XML_E_MULTIPLEROOTS 14054) + (:SXS_XML_E_INVALIDATROOTLEVEL 14055) + (:SXS_XML_E_BADXMLDECL 14056) + (:SXS_XML_E_MISSINGROOT 14057) + (:SXS_XML_E_UNEXPECTEDEOF 14058) + (:SXS_XML_E_BADPEREFINSUBSET 14059) + (:SXS_XML_E_UNCLOSEDSTARTTAG 14060) + (:SXS_XML_E_UNCLOSEDENDTAG 14061) + (:SXS_XML_E_UNCLOSEDSTRING 14062) + (:SXS_XML_E_UNCLOSEDCOMMENT 14063) + (:SXS_XML_E_UNCLOSEDDECL 14064) + (:SXS_XML_E_UNCLOSEDCDATA 14065) + (:SXS_XML_E_RESERVEDNAMESPACE 14066) + (:SXS_XML_E_INVALIDENCODING 14067) + (:SXS_XML_E_INVALIDSWITCH 14068) + (:SXS_XML_E_BADXMLCASE 14069) + (:SXS_XML_E_INVALID_STANDALONE 14070) + (:SXS_XML_E_UNEXPECTED_STANDALONE 14071) + (:SXS_XML_E_INVALID_VERSION 14072) + (:SXS_XML_E_MISSINGEQUALS 14073) + (:SXS_PROTECTION_RECOVERY_FAILED 14074) + (:SXS_PROTECTION_PUBLIC_KEY_TOO_SHORT 14075) + (:SXS_PROTECTION_CATALOG_NOT_VALID 14076) + (:SXS_UNTRANSLATABLE_HRESULT 14077) + (:SXS_PROTECTION_CATALOG_FILE_MISSING 14078) + (:SXS_MISSING_ASSEMBLY_IDENTITY_ATTRIBUTE 14079) + (:SXS_INVALID_ASSEMBLY_IDENTITY_ATTRIBUTE_NAME 14080)) (defcfunex-exported ("Beep" Beep :convention :stdcall) BOOL (|dwFreq| DWORD) (|dwDuration| DWORD)) -(defcfunex-a-exported ("FatalAppExitA" FatalAppExitA :convention :stdcall) VOID +(defcfunex-exported ("FatalAppExitA" FatalAppExitA :convention :stdcall) VOID (|uAction| UINT) (|lpMessageText| ASTRING)) -(defcfunex-w-exported ("FatalAppExitW" FatalAppExitW :convention :stdcall) VOID +(defcfunex-exported ("FatalAppExitW" FatalAppExitW :convention :stdcall) VOID (|uAction| UINT) (|lpMessageText| WSTRING)) @@ -33,7 +1851,7 @@ (|hWnd| HWND) (|bInvert| BOOL)) -(defcfunex-exported ("GetLastError" GetLastError :convention :stdcall) DWORD) +(defcfunex-exported ("GetLastError" GetLastError :convention :stdcall) ERROR-CODES) (defcfunex-exported ("MessageBeep" MessageBeep :convention :stdcall) BOOL (|uType| UINT)) @@ -42,10 +1860,10 @@ (|uMode| UINT)) (defcfunex-exported ("SetLastError" SetLastError :convention :stdcall) VOID - (|dwErrCode| DWORD)) + (|dwErrCode| ERROR-CODES)) (defcfunex-exported ("SetLastErrorEx" SetLastErrorEx :convention :stdcall) VOID - (|dwErrCode| DWORD) + (|dwErrCode| ERROR-CODES) (|dwType| DWORD)) diff --git a/modules/win95.eventlog.lisp b/modules/win95.eventlog.lisp new file mode 100644 index 0000000..3cb722f --- /dev/null +++ b/modules/win95.eventlog.lisp @@ -0,0 +1,98 @@ +(defcfunex-exported ("BackupEventLogA" BackupEventLogA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string)) + +(defcfunex-exported ("BackupEventLogW" BackupEventLogW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("ClearEventLogA" ClearEventLogA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string)) + +(defcfunex-exported ("ClearEventLogW" ClearEventLogW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("CloseEventLog" CloseEventLog :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("DeregisterEventSource" DeregisterEventSource :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("GetNumberOfEventLogRecords" GetNumberOfEventLogRecords :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetOldestEventLogRecord" GetOldestEventLogRecord :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("NotifyChangeEventLog" NotifyChangeEventLog :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("OpenBackupEventLogA" OpenBackupEventLogA :convention :stdcall) :pointer + (arg0 :string) + (arg1 :string)) + +(defcfunex-exported ("OpenBackupEventLogW" OpenBackupEventLogW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("OpenEventLogA" OpenEventLogA :convention :stdcall) :pointer + (arg0 :string) + (arg1 :string)) + +(defcfunex-exported ("OpenEventLogW" OpenEventLogW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("ReadEventLogA" ReadEventLogA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer) + (arg6 :pointer)) + +(defcfunex-exported ("ReadEventLogW" ReadEventLogW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer) + (arg6 :pointer)) + +(defcfunex-exported ("RegisterEventSourceA" RegisterEventSourceA :convention :stdcall) :pointer + (arg0 :string) + (arg1 :string)) + +(defcfunex-exported ("RegisterEventSourceW" RegisterEventSourceW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("ReportEventA" ReportEventA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-short) + (arg2 :unsigned-short) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :unsigned-short) + (arg6 :unsigned-long) + (arg7 :pointer) + (arg8 :pointer)) + +(defcfunex-exported ("ReportEventW" ReportEventW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-short) + (arg2 :unsigned-short) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :unsigned-short) + (arg6 :unsigned-long) + (arg7 :pointer) + (arg8 :pointer)) + diff --git a/modules/win95.file-mapping.lisp b/modules/win95.file-mapping.lisp new file mode 100644 index 0000000..d7def4b --- /dev/null +++ b/modules/win95.file-mapping.lisp @@ -0,0 +1,48 @@ +(defcfunex-exported ("CreateFileMappingA" CreateFileMappingA :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :unsigned-long) + (arg5 :string)) + +(defcfunex-exported ("CreateFileMappingW" CreateFileMappingW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :unsigned-long) + (arg5 :pointer)) + +(defcfunex-exported ("FlushViewOfFile" FlushViewOfFile :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("MapViewOfFile" MapViewOfFile :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :unsigned-long)) + +(defcfunex-exported ("MapViewOfFileEx" MapViewOfFileEx :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :unsigned-long) + (arg5 :pointer)) + +(defcfunex-exported ("OpenFileMappingA" OpenFileMappingA :convention :stdcall) :pointer + (arg0 :unsigned-long) + (arg1 :int) + (arg2 :string)) + +(defcfunex-exported ("OpenFileMappingW" OpenFileMappingW :convention :stdcall) :pointer + (arg0 :unsigned-long) + (arg1 :int) + (arg2 :pointer)) + +(defcfunex-exported ("UnmapViewOfFile" UnmapViewOfFile :convention :stdcall) :int + (arg0 :pointer)) + diff --git a/modules/win95.file.lisp b/modules/win95.file.lisp new file mode 100644 index 0000000..1526fad --- /dev/null +++ b/modules/win95.file.lisp @@ -0,0 +1,523 @@ +(cl:in-package w32apimod) + +(define-w32api-module win95.file :win95.file) + +(cl:in-package cl-w32api.module.win95.file) + +(defcfunex-exported ("AreFileApisANSI" AreFileApisANSI :convention :stdcall) :int) + +(defcfunex-exported ("CancelIo" CancelIo :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("CopyFileA" CopyFileA :convention :stdcall) :int + (arg0 :string) + (arg1 :string) + (arg2 :int)) + +(defcfunex-exported ("CopyFileW" CopyFileW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("CopyFileExA" CopyFileExA :convention :stdcall) :int + (arg0 :string) + (arg1 :string) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :unsigned-long)) + +(defcfunex-exported ("CopyFileExW" CopyFileExW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :unsigned-long)) + +(defcfunex-exported ("CreateDirectoryA" CreateDirectoryA :convention :stdcall) :int + (arg0 :string) + (arg1 :pointer)) + +(defcfunex-exported ("CreateDirectoryW" CreateDirectoryW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("CreateDirectoryExA" CreateDirectoryExA :convention :stdcall) :int + (arg0 :string) + (arg1 :string) + (arg2 :pointer)) + +(defcfunex-exported ("CreateDirectoryExW" CreateDirectoryExW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("CreateFileA" CreateFileA :convention :stdcall) :pointer + (arg0 :string) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :unsigned-long) + (arg6 :pointer)) + +(defcfunex-exported ("CreateFileW" CreateFileW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :unsigned-long) + (arg6 :pointer)) + +(defcfunex-exported ("CreateIoCompletionPort" CreateIoCompletionPort :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :unsigned-long)) + +(defcfunex-exported ("DefineDosDeviceA" DefineDosDeviceA :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :string) + (arg2 :string)) + +(defcfunex-exported ("DefineDosDeviceW" DefineDosDeviceW :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("DeleteFileA" DeleteFileA :convention :stdcall) :int + (arg0 :string)) + +(defcfunex-exported ("DeleteFileW" DeleteFileW :convention :stdcall) :int + (arg0 :pointer)) + + +(defcfunex-exported ("FindClose" FindClose :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("FindCloseChangeNotification" FindCloseChangeNotification :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("FindFirstChangeNotificationA" FindFirstChangeNotificationA :convention :stdcall) :pointer + (arg0 :string) + (arg1 :int) + (arg2 :unsigned-long)) + +(defcfunex-exported ("FindFirstChangeNotificationW" FindFirstChangeNotificationW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :int) + (arg2 :unsigned-long)) + +(defcfunex-exported ("FindFirstFileA" FindFirstFileA :convention :stdcall) :pointer + (arg0 :string) + (arg1 :pointer)) + +(defcfunex-exported ("FindFirstFileW" FindFirstFileW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("FindFirstFileExA" FindFirstFileExA :convention :stdcall) :pointer + (arg0 :string) + (arg1 FINDEX_INFO_LEVELS) + (arg2 :pointer) + (arg3 FINDEX_SEARCH_OPS) + (arg4 :pointer) + (arg5 :unsigned-long)) + +(defcfunex-exported ("FindFirstFileExW" FindFirstFileExW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 FINDEX_INFO_LEVELS) + (arg2 :pointer) + (arg3 FINDEX_SEARCH_OPS) + (arg4 :pointer) + (arg5 :unsigned-long)) + +(defcfunex-exported ("FindNextChangeNotification" FindNextChangeNotification :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("FindNextFileA" FindNextFileA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("FindNextFileW" FindNextFileW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("FlushFileBuffers" FlushFileBuffers :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("GetBinaryTypeA" GetBinaryTypeA :convention :stdcall) :int + (arg0 :string) + (arg1 :pointer)) + +(defcfunex-exported ("GetBinaryTypeW" GetBinaryTypeW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetCompressedFileSizeA" GetCompressedFileSizeA :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :pointer)) + +(defcfunex-exported ("GetCompressedFileSizeW" GetCompressedFileSizeW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetCurrentDirectoryA" GetCurrentDirectoryA :convention :stdcall) :unsigned-long + (arg0 :unsigned-long) + (arg1 :string)) + +(defcfunex-exported ("GetCurrentDirectoryW" GetCurrentDirectoryW :convention :stdcall) :unsigned-long + (arg0 :unsigned-long) + (arg1 :pointer)) + +(defcfunex-exported ("GetDiskFreeSpaceA" GetDiskFreeSpaceA :convention :stdcall) :int + (arg0 :string) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("GetDiskFreeSpaceW" GetDiskFreeSpaceW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("GetDiskFreeSpaceExA" GetDiskFreeSpaceExA :convention :stdcall) :int + (arg0 :string) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("GetDiskFreeSpaceExW" GetDiskFreeSpaceExW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("GetDriveTypeA" GetDriveTypeA :convention :stdcall) :unsigned-int + (arg0 :string)) + +(defcfunex-exported ("GetDriveTypeW" GetDriveTypeW :convention :stdcall) :unsigned-int + (arg0 :pointer)) + +(defcfunex-exported ("GetFileAttributesA" GetFileAttributesA :convention :stdcall) :unsigned-long + (arg0 :string)) + +(defcfunex-exported ("GetFileAttributesW" GetFileAttributesW :convention :stdcall) :unsigned-long + (arg0 :pointer)) + +(defcfunex-exported ("GetFileAttributesExA" GetFileAttributesExA :convention :stdcall) :int + (arg0 :string) + (arg1 GET_FILEEX_INFO_LEVELS) + (arg2 :pointer)) + +(defcfunex-exported ("GetFileAttributesExW" GetFileAttributesExW :convention :stdcall) :int + (arg0 :pointer) + (arg1 GET_FILEEX_INFO_LEVELS) + (arg2 :pointer)) + +(defcfunex-exported ("GetFileInformationByHandle" GetFileInformationByHandle :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetFileSize" GetFileSize :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetFileType" GetFileType :convention :stdcall) :unsigned-long + (arg0 :pointer)) + +(defcfunex-exported ("GetFullPathNameA" GetFullPathNameA :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :unsigned-long) + (arg2 :string) + (arg3 :pointer)) + +(defcfunex-exported ("GetFullPathNameW" GetFullPathNameW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("GetLogicalDrives" GetLogicalDrives :convention :stdcall) :unsigned-long) + +(defcfunex-exported ("GetLogicalDriveStringsA" GetLogicalDriveStringsA :convention :stdcall) :unsigned-long + (arg0 :unsigned-long) + (arg1 :string)) + +(defcfunex-exported ("GetLogicalDriveStringsW" GetLogicalDriveStringsW :convention :stdcall) :unsigned-long + (arg0 :unsigned-long) + (arg1 :pointer)) + +(defcfunex-exported ("GetQueuedCompletionStatus" GetQueuedCompletionStatus :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :unsigned-long)) + +(defcfunex-exported ("GetShortPathNameA" GetShortPathNameA :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :string) + (arg2 :unsigned-long)) + +(defcfunex-exported ("GetShortPathNameW" GetShortPathNameW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("GetTempFileNameA" GetTempFileNameA :convention :stdcall) :unsigned-int + (arg0 :string) + (arg1 :string) + (arg2 :unsigned-int) + (arg3 :string)) + +(defcfunex-exported ("GetTempFileNameW" GetTempFileNameW :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int) + (arg3 :pointer)) + +(defcfunex-exported ("GetTempPathA" GetTempPathA :convention :stdcall) :unsigned-long + (arg0 :unsigned-long) + (arg1 :string)) + +(defcfunex-exported ("GetTempPathW" GetTempPathW :convention :stdcall) :unsigned-long + (arg0 :unsigned-long) + (arg1 :pointer)) + +(defcfunex-exported ("GetVolumeInformationA" GetVolumeInformationA :convention :stdcall) :int + (arg0 :string) + (arg1 :string) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer) + (arg6 :string) + (arg7 :unsigned-long)) + +(defcfunex-exported ("GetVolumeInformationW" GetVolumeInformationW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer) + (arg6 :pointer) + (arg7 :unsigned-long)) + +(defcfunex-exported ("LockFile" LockFile :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :unsigned-long)) + +(defcfunex-exported ("LockFileEx" LockFileEx :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :unsigned-long) + (arg5 :pointer)) + + +(defcfunex-exported ("MoveFileA" MoveFileA :convention :stdcall) :int + (arg0 :string) + (arg1 :string)) + +(defcfunex-exported ("MoveFileW" MoveFileW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("MoveFileExA" MoveFileExA :convention :stdcall) :int + (arg0 :string) + (arg1 :string) + (arg2 :unsigned-long)) + +(defcfunex-exported ("MoveFileExW" MoveFileExW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("PostQueuedCompletionStatus" PostQueuedCompletionStatus :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("QueryDosDeviceA" QueryDosDeviceA :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :string) + (arg2 :unsigned-long)) + +(defcfunex-exported ("QueryDosDeviceW" QueryDosDeviceW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("ReadDirectoryChangesW" ReadDirectoryChangesW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :int) + (arg4 :unsigned-long) + (arg5 :pointer) + (arg6 :pointer) + (arg7 :pointer)) + +(defcfunex-exported ("ReadFile" ReadFile :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("ReadFileEx" ReadFileEx :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("RemoveDirectoryA" RemoveDirectoryA :convention :stdcall) :int + (arg0 :string)) + +(defcfunex-exported ("RemoveDirectoryW" RemoveDirectoryW :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("SearchPathA" SearchPathA :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :string) + (arg2 :string) + (arg3 :unsigned-long) + (arg4 :string) + (arg5 :pointer)) + +(defcfunex-exported ("SearchPathW" SearchPathW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :pointer)) + +(defcfunex-exported ("SetCurrentDirectoryA" SetCurrentDirectoryA :convention :stdcall) :int + (arg0 :string)) + +(defcfunex-exported ("SetCurrentDirectoryW" SetCurrentDirectoryW :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("SetEndOfFile" SetEndOfFile :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("SetFileApisToANSI" SetFileApisToANSI :convention :stdcall) :void) + +(defcfunex-exported ("SetFileApisToOEM" SetFileApisToOEM :convention :stdcall) :void) + +(defcfunex-exported ("SetFileAttributesA" SetFileAttributesA :convention :stdcall) :int + (arg0 :string) + (arg1 :unsigned-long)) + +(defcfunex-exported ("SetFileAttributesW" SetFileAttributesW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("SetFilePointer" SetFilePointer :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :int32) + (arg2 :pointer) + (arg3 :unsigned-long)) + +(defcfunex-exported ("SetFilePointerEx" SetFilePointerEx :convention :stdcall) :int + (arg0 :pointer) + (arg1 LARGE_INTEGER) + (arg2 :pointer) + (arg3 :unsigned-long)) + +(defcfunex-exported ("SetVolumeLabelA" SetVolumeLabelA :convention :stdcall) :int + (arg0 :string) + (arg1 :string)) + +(defcfunex-exported ("SetVolumeLabelW" SetVolumeLabelW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("UnlockFile" UnlockFile :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :unsigned-long)) + +(defcfunex-exported ("UnlockFileEx" UnlockFileEx :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :pointer)) + +(defcfunex-exported ("WriteFile" WriteFile :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("WriteFileEx" WriteFileEx :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :pointer)) + +;obsolete + +(defcfunex-exported ("_hread" _hread :convention :stdcall) :int32 + (arg0 :int) + (arg1 :pointer) + (arg2 :int32)) + +(defcfunex-exported ("_hwrite" _hwrite :convention :stdcall) :int32 + (arg0 :int) + (arg1 :string) + (arg2 :int32)) + +(defcfunex-exported ("_lclose" _lclose :convention :stdcall) :int + (arg0 :int)) + +(defcfunex-exported ("_lcreat" _lcreat :convention :stdcall) :int + (arg0 :string) + (arg1 :int)) + +(defcfunex-exported ("_llseek" _llseek :convention :stdcall) :int32 + (arg0 :int) + (arg1 :int32) + (arg2 :int)) + +(defcfunex-exported ("_lopen" _lopen :convention :stdcall) :int + (arg0 :string) + (arg1 :int)) + +(defcfunex-exported ("_lread" _lread :convention :stdcall) :unsigned-int + (arg0 :int) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("_lwrite" _lwrite :convention :stdcall) :unsigned-int + (arg0 :int) + (arg1 :string) + (arg2 :unsigned-int)) + +(defcfunex-exported ("OpenFile" OpenFile :convention :stdcall) :int + (arg0 :string) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("SetHandleCount" SetHandleCount :convention :stdcall) :unsigned-int + (arg0 :unsigned-int)) + diff --git a/modules/win95.filled-shape.lisp b/modules/win95.filled-shape.lisp new file mode 100644 index 0000000..b67ab78 --- /dev/null +++ b/modules/win95.filled-shape.lisp @@ -0,0 +1,66 @@ + +(defcfunex-exported ("Chord" Chord :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :int) + (arg4 :int) + (arg5 :int) + (arg6 :int) + (arg7 :int) + (arg8 :int)) + +(defcfunex-exported ("Ellipse" Ellipse :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :int) + (arg4 :int)) + +(defcfunex-exported ("FillRect" FillRect :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("InvertRgn" InvertRgn :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("Pie" Pie :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :int) + (arg4 :int) + (arg5 :int) + (arg6 :int) + (arg7 :int) + (arg8 :int)) + +(defcfunex-exported ("Polygon" Polygon :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("PolyPolygon" PolyPolygon :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :int)) + +(defcfunex-exported ("Rectangle" Rectangle :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :int) + (arg4 :int)) + +(defcfunex-exported ("RoundRect" RoundRect :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :int) + (arg4 :int) + (arg5 :int) + (arg6 :int)) + diff --git a/modules/win95.font-text.lisp b/modules/win95.font-text.lisp new file mode 100644 index 0000000..ae5c989 --- /dev/null +++ b/modules/win95.font-text.lisp @@ -0,0 +1,465 @@ + +(cl:in-package w32apimod) + +(define-w32api-module win95.font-text :win95.font-text) + +(cl:in-package cl-w32api.module.win95.font-text) + +(require-and-inherit-module "win95.~") + +(defcfunex-exported ("AddFontResourceA" AddFontResourceA :convention :stdcall) :int + (arg0 :string)) + +(defcfunex-exported ("AddFontResourceW" AddFontResourceW :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("CreateFontA" CreateFontA :convention :stdcall) :pointer + (arg0 :int) + (arg1 :int) + (arg2 :int) + (arg3 :int) + (arg4 :int) + (arg5 :unsigned-long) + (arg6 :unsigned-long) + (arg7 :unsigned-long) + (arg8 :unsigned-long) + (arg9 :unsigned-long) + (arg10 :unsigned-long) + (arg11 :unsigned-long) + (arg12 :unsigned-long) + (arg13 :string)) + +(defcfunex-exported ("CreateFontW" CreateFontW :convention :stdcall) :pointer + (arg0 :int) + (arg1 :int) + (arg2 :int) + (arg3 :int) + (arg4 :int) + (arg5 :unsigned-long) + (arg6 :unsigned-long) + (arg7 :unsigned-long) + (arg8 :unsigned-long) + (arg9 :unsigned-long) + (arg10 :unsigned-long) + (arg11 :unsigned-long) + (arg12 :unsigned-long) + (arg13 :pointer)) + +(defcfunex-exported ("CreateFontIndirectA" CreateFontIndirectA :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("CreateFontIndirectW" CreateFontIndirectW :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("CreateScalableFontResourceA" CreateScalableFontResourceA :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :string) + (arg2 :string) + (arg3 :string)) + +(defcfunex-exported ("CreateScalableFontResourceW" CreateScalableFontResourceW :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defbitfield (DRAWTEXT-FLAGS UINT) + (:BOTTOM 8) + (:CALCRECT 1024) + (:CENTER 1) + (:EDITCONTROL 8192) + (:END_ELLIPSIS 32768) + (:PATH_ELLIPSIS 16384) + (:WORD_ELLIPSIS #x40000) + (:EXPANDTABS 64) + (:EXTERNALLEADING 512) + (:LEFT 0) + (:MODIFYSTRING 65536) + (:NOCLIP 256) + (:NOPREFIX 2048) + (:RIGHT 2) + (:RTLREADING 131072) + (:SINGLELINE 32) + (:TABSTOP 128) + (:TOP 0) + (:VCENTER 4) + (:WORDBREAK 16) + (:INTERNAL 4096)) + +(defcfunex-exported ("DrawTextA" DrawTextA :convention :stdcall) :int + (|hDC| HDC) + (|lpString| ASTRING) + (|nCount| :int) + (|lpRect| RECT) + (|uFormat| DRAWTEXT-FLAGS)) + +(defcfunex-exported ("DrawTextW" DrawTextW :convention :stdcall) :int + (|hDC| HDC) + (|lpString| WSTRING) + (|nCount| :int) + (|lpRect| RECT) + (|uFormat| DRAWTEXT-FLAGS)) + +(define-abbrev-exported DrawText DrawTextW) + +(defcfunex-exported ("DrawTextExA" DrawTextExA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string) + (arg2 :int) + (arg3 :pointer) + (arg4 :unsigned-int) + (arg5 :pointer)) + +(defcfunex-exported ("DrawTextExW" DrawTextExW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int) + (arg3 :pointer) + (arg4 :unsigned-int) + (arg5 :pointer)) + +(define-abbrev-exported DrawTextEx DrawTextExW) + +(defcfunex-exported ("EnumFontFamiliesA" EnumFontFamiliesA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string) + (arg2 :pointer) + (arg3 :int32)) + +(defcfunex-exported ("EnumFontFamiliesW" EnumFontFamiliesW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :int32)) + +(defcfunex-exported ("EnumFontFamiliesExA" EnumFontFamiliesExA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :int32) + (arg4 :unsigned-long)) + +(defcfunex-exported ("EnumFontFamiliesExW" EnumFontFamiliesExW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :int32) + (arg4 :unsigned-long)) + +(defcfunex-exported ("EnumFontsA" EnumFontsA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string) + (arg2 :pointer) + (arg3 :int32)) + +(defcfunex-exported ("EnumFontsW" EnumFontsW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :int32)) + +(defcfunex-exported ("ExtTextOutA" ExtTextOutA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :unsigned-int) + (arg4 :pointer) + (arg5 :string) + (arg6 :unsigned-int) + (arg7 :pointer)) + +(defcfunex-exported ("ExtTextOutW" ExtTextOutW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :unsigned-int) + (arg4 :pointer) + (arg5 :pointer) + (arg6 :unsigned-int) + (arg7 :pointer)) + +(defcfunex-exported ("GetCharABCWidthsA" GetCharABCWidthsA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :pointer)) + +(defcfunex-exported ("GetCharABCWidthsW" GetCharABCWidthsW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :pointer)) + +(defcfunex-exported ("GetCharABCWidthsFloatA" GetCharABCWidthsFloatA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :pointer)) + +(defcfunex-exported ("GetCharABCWidthsFloatW" GetCharABCWidthsFloatW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :pointer)) + +(defcfunex-exported ("GetCharacterPlacementA" GetCharacterPlacementA :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :string) + (arg2 :int) + (arg3 :int) + (arg4 :pointer) + (arg5 :unsigned-long)) + +(defcfunex-exported ("GetCharacterPlacementW" GetCharacterPlacementW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int) + (arg3 :int) + (arg4 :pointer) + (arg5 :unsigned-long)) + +(defcfunex-exported ("GetCharWidth32A" GetCharWidth32A :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :pointer)) + +(defcfunex-exported ("GetCharWidth32W" GetCharWidth32W :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :pointer)) + +(defcfunex-exported ("GetCharWidthA" GetCharWidthA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :pointer)) + +(defcfunex-exported ("GetCharWidthW" GetCharWidthW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :pointer)) + +(defcfunex-exported ("GetCharWidthFloatA" GetCharWidthFloatA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :pointer)) + +(defcfunex-exported ("GetCharWidthFloatW" GetCharWidthFloatW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :pointer)) + +(defcfunex-exported ("GetFontData" GetFontData :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long)) + +(defcfunex-exported ("GetFontLanguageInfo" GetFontLanguageInfo :convention :stdcall) :unsigned-long + (arg0 :pointer)) + +(defcfunex-exported ("GetGlyphOutlineA" GetGlyphOutlineA :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer) + (arg6 :pointer)) + +(defcfunex-exported ("GetGlyphOutlineW" GetGlyphOutlineW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer) + (arg6 :pointer)) + +(defcfunex-exported ("GetKerningPairsA" GetKerningPairsA :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("GetKerningPairsW" GetKerningPairsW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + + +(defcfunex-exported ("GetOutlineTextMetricsA" GetOutlineTextMetricsA :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :pointer)) + +(defcfunex-exported ("GetOutlineTextMetricsW" GetOutlineTextMetricsW :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :pointer)) + +(defcfunex-exported ("GetRasterizerCaps" GetRasterizerCaps :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int)) + +(defcfunex-exported ("GetTabbedTextExtentA" GetTabbedTextExtentA :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :string) + (arg2 :int) + (arg3 :int) + (arg4 :pointer)) + +(defcfunex-exported ("GetTabbedTextExtentW" GetTabbedTextExtentW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int) + (arg3 :int) + (arg4 :pointer)) + +(defcfunex-exported ("GetTextAlign" GetTextAlign :convention :stdcall) :unsigned-int + (arg0 :pointer)) + +(defcfunex-exported ("GetTextCharacterExtra" GetTextCharacterExtra :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("GetTextColor" GetTextColor :convention :stdcall) :unsigned-long + (arg0 :pointer)) + +(defcfunex-exported ("GetTextExtentExPointA" GetTextExtentExPointA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string) + (arg2 :int) + (arg3 :int) + (arg4 :pointer) + (arg5 :pointer) + (arg6 :pointer)) + +(defcfunex-exported ("GetTextExtentExPointW" GetTextExtentExPointW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int) + (arg3 :int) + (arg4 :pointer) + (arg5 :pointer) + (arg6 :pointer)) + +(defcfunex-exported ("GetTextExtentPointA" GetTextExtentPointA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string) + (arg2 :int) + (arg3 :pointer)) + +(defcfunex-exported ("GetTextExtentPointW" GetTextExtentPointW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int) + (arg3 :pointer)) + +(defcfunex-exported ("GetTextExtentPoint32A" GetTextExtentPoint32A :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string) + (arg2 :int) + (arg3 :pointer)) + +(defcfunex-exported ("GetTextExtentPoint32W" GetTextExtentPoint32W :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int) + (arg3 :pointer)) + +(defcfunex-exported ("GetTextFaceA" GetTextFaceA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :string)) + +(defcfunex-exported ("GetTextFaceW" GetTextFaceW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :pointer)) + + +(defcfunex-exported ("GetTextMetricsA" GetTextMetricsA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetTextMetricsW" GetTextMetricsW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("PolyTextOutA" PolyTextOutA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("PolyTextOutW" PolyTextOutW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("RemoveFontResourceA" RemoveFontResourceA :convention :stdcall) :int + (arg0 :string)) + +(defcfunex-exported ("RemoveFontResourceW" RemoveFontResourceW :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("SetMapperFlags" SetMapperFlags :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("SetTextAlign" SetTextAlign :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int)) + +(defcfunex-exported ("SetTextCharacterExtra" SetTextCharacterExtra :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("SetTextColor" SetTextColor :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("SetTextJustification" SetTextJustification :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int)) + +(defcfunex-exported ("TabbedTextOutA" TabbedTextOutA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :string) + (arg4 :int) + (arg5 :int) + (arg6 :pointer) + (arg7 :int)) + +(defcfunex-exported ("TabbedTextOutW" TabbedTextOutW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :pointer) + (arg4 :int) + (arg5 :int) + (arg6 :pointer) + (arg7 :int)) + +(defcfunex-exported ("TextOutA" TextOutA :convention :stdcall) :int + (arg0 HDC) + (arg1 :int) + (arg2 :int) + (arg3 ASTRING) + (arg4 :int)) + +(defcfunex-exported ("TextOutW" TextOutW :convention :stdcall) :int + (arg0 HDC) + (arg1 :int) + (arg2 :int) + (arg3 WSTRING) + (arg4 :int)) + +(define-abbrev-exported TextOut TextOutW) diff --git a/modules/win95.handle-object.lisp b/modules/win95.handle-object.lisp new file mode 100644 index 0000000..ac0e722 --- /dev/null +++ b/modules/win95.handle-object.lisp @@ -0,0 +1,21 @@ +(defcfunex-exported ("CloseHandle" CloseHandle :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("DuplicateHandle" DuplicateHandle :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :int) + (arg6 :unsigned-long)) + +(defcfunex-exported ("GetHandleInformation" GetHandleInformation :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("SetHandleInformation" SetHandleInformation :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long)) + diff --git a/modules/win95.help.lisp b/modules/win95.help.lisp new file mode 100644 index 0000000..0c0ec9f --- /dev/null +++ b/modules/win95.help.lisp @@ -0,0 +1,34 @@ + +(cl:in-package w32apimod) + +(define-w32api-module win95.help :win95.help) + +(cl:in-package cl-w32api.module.win95.help) + +(defcfunex-exported ("GetMenuContextHelpId" GetMenuContextHelpId :convention :stdcall) :unsigned-long + (arg0 :pointer)) + +(defcfunex-exported ("GetWindowContextHelpId" GetWindowContextHelpId :convention :stdcall) :unsigned-long + (arg0 :pointer)) + +(defcfunex-exported ("SetMenuContextHelpId" SetMenuContextHelpId :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("SetWindowContextHelpId" SetWindowContextHelpId :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long)) + + +(defcfunex-exported ("WinHelpA" WinHelpA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string) + (arg2 :unsigned-int) + (arg3 :unsigned-long)) + +(defcfunex-exported ("WinHelpW" WinHelpW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int) + (arg3 :unsigned-long)) + diff --git a/modules/win95.hook.lisp b/modules/win95.hook.lisp new file mode 100644 index 0000000..6933c9d --- /dev/null +++ b/modules/win95.hook.lisp @@ -0,0 +1,51 @@ + +(cl:in-package w32apimod) + +(define-w32api-module win95.hook :win95.hook) + +(cl:in-package cl-w32api.module.win95.hook) + +(defcfunex-exported ("CallMsgFilterA" CallMsgFilterA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("CallMsgFilterW" CallMsgFilterW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("CallNextHookEx" CallNextHookEx :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :int) + (arg2 :unsigned-int) + (arg3 :int32)) + +(defcfunex-exported ("SetWindowsHookExA" SetWindowsHookExA :convention :stdcall) :pointer + (arg0 :int) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-long)) + +(defcfunex-exported ("SetWindowsHookExW" SetWindowsHookExW :convention :stdcall) :pointer + (arg0 :int) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-long)) + +(defcfunex-exported ("UnhookWindowsHookEx" UnhookWindowsHookEx :convention :stdcall) :int + (arg0 :pointer)) + + +;;obsolete + +(defcfunex-exported ("SetWindowsHookA" SetWindowsHookA :convention :stdcall) :pointer + (arg0 :int) + (arg1 :pointer)) + +(defcfunex-exported ("SetWindowsHookW" SetWindowsHookW :convention :stdcall) :pointer + (arg0 :int) + (arg1 :pointer)) + +(defcfunex-exported ("UnhookWindowsHook" UnhookWindowsHook :convention :stdcall) :int + (arg0 :int) + (arg1 :pointer)) + diff --git a/modules/win95.icm.lisp b/modules/win95.icm.lisp new file mode 100644 index 0000000..2a1cdeb --- /dev/null +++ b/modules/win95.icm.lisp @@ -0,0 +1,91 @@ + +(defcfunex-exported ("CheckColorsInGamut" CheckColorsInGamut :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-long)) + +(defcfunex-exported ("ColorMatchToTarget" ColorMatchToTarget :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + + +(defcfunex-exported ("CreateColorSpaceA" CreateColorSpaceA :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("CreateColorSpaceW" CreateColorSpaceW :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("DeleteColorSpace" DeleteColorSpace :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("EnumICMProfilesA" EnumICMProfilesA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int32)) + +(defcfunex-exported ("EnumICMProfilesW" EnumICMProfilesW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int32)) + +(defcfunex-exported ("GetColorSpace" GetColorSpace :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("GetDeviceGammaRamp" GetDeviceGammaRamp :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetICMProfileA" GetICMProfileA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :string)) + +(defcfunex-exported ("GetICMProfileW" GetICMProfileW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("GetLogColorSpaceA" GetLogColorSpaceA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("GetLogColorSpaceW" GetLogColorSpaceW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("SetColorSpace" SetColorSpace :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("SetDeviceGammaRamp" SetDeviceGammaRamp :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("SetICMMode" SetICMMode :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("SetICMProfileA" SetICMProfileA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string)) + +(defcfunex-exported ("SetICMProfileW" SetICMProfileW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("UpdateICMRegKeyA" UpdateICMRegKeyA :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :string) + (arg3 :unsigned-int)) + +(defcfunex-exported ("UpdateICMRegKeyW" UpdateICMRegKeyW :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-int)) + diff --git a/modules/win95.icon.lisp b/modules/win95.icon.lisp new file mode 100644 index 0000000..bbc9fd0 --- /dev/null +++ b/modules/win95.icon.lisp @@ -0,0 +1,81 @@ + +(cl:in-package w32apimod) + +(define-w32api-module win95.icon :win95.icon) + +(cl:in-package cl-w32api.module.win95.icon) + +(defcfunex-exported ("CopyIcon" CopyIcon :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("CreateIcon" CreateIcon :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :unsigned-char) + (arg4 :unsigned-char) + (arg5 :pointer) + (arg6 :pointer)) + +(defcfunex-exported ("CreateIconFromResource" CreateIconFromResource :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :int) + (arg3 :unsigned-long)) + +(defcfunex-exported ("CreateIconFromResourceEx" CreateIconFromResourceEx :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :int) + (arg3 :unsigned-long) + (arg4 :int) + (arg5 :int) + (arg6 :unsigned-int)) + +(defcfunex-exported ("CreateIconIndirect" CreateIconIndirect :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("DestroyIcon" DestroyIcon :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("DrawIcon" DrawIcon :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :pointer)) + +(defcfunex-exported ("DrawIconEx" DrawIconEx :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :pointer) + (arg4 :int) + (arg5 :int) + (arg6 :unsigned-int) + (arg7 :pointer) + (arg8 :unsigned-int)) + +(defcfunex-exported ("GetIconInfo" GetIconInfo :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("LoadIconA" LoadIconA :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :string)) + +(defcfunex-exported ("LoadIconW" LoadIconW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("LookupIconIdFromDirectory" LookupIconIdFromDirectory :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("LookupIconIdFromDirectoryEx" LookupIconIdFromDirectoryEx :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :int) + (arg4 :unsigned-int)) + + diff --git a/modules/win95.keyboard-accel.lisp b/modules/win95.keyboard-accel.lisp new file mode 100644 index 0000000..138b683 --- /dev/null +++ b/modules/win95.keyboard-accel.lisp @@ -0,0 +1,39 @@ +(defcfunex-exported ("CopyAcceleratorTableA" CopyAcceleratorTableA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("CopyAcceleratorTableW" CopyAcceleratorTableW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("CreateAcceleratorTableA" CreateAcceleratorTableA :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("CreateAcceleratorTableW" CreateAcceleratorTableW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("DestroyAcceleratorTable" DestroyAcceleratorTable :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("LoadAcceleratorsA" LoadAcceleratorsA :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :string)) + +(defcfunex-exported ("LoadAcceleratorsW" LoadAcceleratorsW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("TranslateAcceleratorA" TranslateAcceleratorA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("TranslateAcceleratorW" TranslateAcceleratorW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + diff --git a/modules/win95.keyboard-input.lisp b/modules/win95.keyboard-input.lisp new file mode 100644 index 0000000..3311425 --- /dev/null +++ b/modules/win95.keyboard-input.lisp @@ -0,0 +1,112 @@ + +(cl:in-package w32apimod) + +(define-w32api-module win95.keyboard-input :win95.keyboard-input) + +(cl:in-package cl-w32api.module.win95.keyboard-input) + +(defcfunex-exported ("ActivateKeyboardLayout" ActivateKeyboardLayout :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :unsigned-int)) + +(defcfunex-exported ("GetActiveWindow" GetActiveWindow :convention :stdcall) :pointer) + +(defcfunex-exported ("GetAsyncKeyState" GetAsyncKeyState :convention :stdcall) :short + (arg0 :int)) + +(defcfunex-exported ("GetKeyboardLayout" GetKeyboardLayout :convention :stdcall) :pointer + (arg0 :unsigned-long)) + +(defcfunex-exported ("GetKeyboardLayoutList" GetKeyboardLayoutList :convention :stdcall) :unsigned-int + (arg0 :int) + (arg1 :pointer)) + +(defcfunex-exported ("GetKeyboardLayoutNameA" GetKeyboardLayoutNameA :convention :stdcall) :int + (arg0 :string)) + +(defcfunex-exported ("GetKeyboardLayoutNameW" GetKeyboardLayoutNameW :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("GetKeyNameTextA" GetKeyNameTextA :convention :stdcall) :int + (arg0 :int32) + (arg1 :string) + (arg2 :int)) + +(defcfunex-exported ("GetKeyNameTextW" GetKeyNameTextW :convention :stdcall) :int + (arg0 :int32) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("GetKeyState" GetKeyState :convention :stdcall) :short + (arg0 :int)) + +(defcfunex-exported ("IsWindowEnabled" IsWindowEnabled :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("RegisterHotKey" RegisterHotKey :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :unsigned-int) + (arg3 :unsigned-int)) + +(defcfunex-exported ("SetActiveWindow" SetActiveWindow :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("SetFocus" SetFocus :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("SetKeyboardState" SetKeyboardState :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("ToAsciiEx" ToAsciiEx :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :unsigned-int) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :unsigned-int) + (arg5 :pointer)) + +(defcfunex-exported ("ToUnicode" ToUnicode :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :unsigned-int) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :int) + (arg5 :unsigned-int)) + +(defcfunex-exported ("ToUnicodeEx" ToUnicodeEx :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :unsigned-int) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :int) + (arg5 :unsigned-int) + (arg6 :pointer)) + +(defcfunex-exported ("UnloadKeyboardLayout" UnloadKeyboardLayout :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("UnregisterHotKey" UnregisterHotKey :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("VkKeyScanA" VkKeyScanA :convention :stdcall) :short + (arg0 :char)) + +(defcfunex-exported ("VkKeyScanW" VkKeyScanW :convention :stdcall) :short + (arg0 :pointer)) + +(defcfunex-exported ("VkKeyScanExA" VkKeyScanExA :convention :stdcall) :short + (arg0 :char) + (arg1 :pointer)) + +(defcfunex-exported ("VkKeyScanExW" VkKeyScanExW :convention :stdcall) :short + (arg0 :pointer) + (arg1 :pointer)) + + + +;; obsolete + +(defcfunex-exported ("GetKBCodePage" GetKBCodePage :convention :stdcall) :unsigned-int) + diff --git a/modules/win95.line-curve.lisp b/modules/win95.line-curve.lisp new file mode 100644 index 0000000..d6d91ee --- /dev/null +++ b/modules/win95.line-curve.lisp @@ -0,0 +1,89 @@ + +(defcfunex-exported ("AngleArc" AngleArc :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :unsigned-long) + (arg4 :float) + (arg5 :float)) + +(defcfunex-exported ("Arc" Arc :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :int) + (arg4 :int) + (arg5 :int) + (arg6 :int) + (arg7 :int) + (arg8 :int)) + +(defcfunex-exported ("ArcTo" ArcTo :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :int) + (arg4 :int) + (arg5 :int) + (arg6 :int) + (arg7 :int) + (arg8 :int)) + +(defcfunex-exported ("GetArcDirection" GetArcDirection :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("LineDDA" LineDDA :convention :stdcall) :int + (arg0 :int) + (arg1 :int) + (arg2 :int) + (arg3 :int) + (arg4 :pointer) + (arg5 :int32)) + +(defcfunex-exported ("LineTo" LineTo :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int)) + +(defcfunex-exported ("MoveToEx" MoveToEx :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :pointer)) + +(defcfunex-exported ("PolyBezier" PolyBezier :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("PolyBezierTo" PolyBezierTo :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("PolyDraw" PolyDraw :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :int)) + +(defcfunex-exported ("Polyline" Polyline :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("PolylineTo" PolylineTo :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("PolyPolyline" PolyPolyline :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-long)) + +(defcfunex-exported ("SetArcDirection" SetArcDirection :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int)) + diff --git a/modules/win95.mailslot.lisp b/modules/win95.mailslot.lisp new file mode 100644 index 0000000..cbd4210 --- /dev/null +++ b/modules/win95.mailslot.lisp @@ -0,0 +1,24 @@ + +(defcfunex-exported ("CreateMailslotA" CreateMailslotA :convention :stdcall) :pointer + (arg0 :string) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("CreateMailslotW" CreateMailslotW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("GetMailslotInfo" GetMailslotInfo :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("SetMailslotInfo" SetMailslotInfo :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long)) + diff --git a/modules/win95.memmgmt.lisp b/modules/win95.memmgmt.lisp new file mode 100644 index 0000000..f1d0569 --- /dev/null +++ b/modules/win95.memmgmt.lisp @@ -0,0 +1,230 @@ + +(cl:in-package w32apimod) + +(define-w32api-module win95.memmgmt :win95.memmgmt) + +(cl:in-package cl-w32api.module.win95.memmgmt) + +(defcfunex-exported ("GetProcessHeap" GetProcessHeap :convention :stdcall) :pointer) + +(defcfunex-exported ("GetProcessHeaps" GetProcessHeaps :convention :stdcall) :unsigned-long + (arg0 :unsigned-long) + (arg1 :pointer)) + +(defcfunex-exported ("GlobalAlloc" GlobalAlloc :convention :stdcall) :pointer + (arg0 :unsigned-int) + (arg1 :unsigned-long)) + +(defcfunex-exported ("GlobalFlags" GlobalFlags :convention :stdcall) :unsigned-int + (arg0 :pointer)) + +(defcfunex-exported ("GlobalFree" GlobalFree :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("GlobalHandle" GlobalHandle :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("GlobalLock" GlobalLock :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("GlobalMemoryStatus" GlobalMemoryStatus :convention :stdcall) :void + (arg0 :pointer)) + +(defcfunex-exported ("GlobalReAlloc" GlobalReAlloc :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-int)) + +(defcfunex-exported ("GlobalSize" GlobalSize :convention :stdcall) :unsigned-long + (arg0 :pointer)) + +(defcfunex-exported ("GlobalUnlock" GlobalUnlock :convention :stdcall) :int + (arg0 :pointer)) + + +(defcfunex-exported ("HeapAlloc" HeapAlloc :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long)) + +(defcfunex-exported ("HeapCompact" HeapCompact :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("HeapCreate" HeapCreate :convention :stdcall) :pointer + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :unsigned-long)) + +(defcfunex-exported ("HeapDestroy" HeapDestroy :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("HeapFree" HeapFree :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("HeapLock" HeapLock :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("HeapReAlloc" HeapReAlloc :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long)) + +(defcfunex-exported ("HeapSize" HeapSize :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("HeapUnlock" HeapUnlock :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("HeapValidate" HeapValidate :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("HeapWalk" HeapWalk :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("IsBadCodePtr" IsBadCodePtr :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("IsBadHugeReadPtr" IsBadHugeReadPtr :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int)) + +(defcfunex-exported ("IsBadHugeWritePtr" IsBadHugeWritePtr :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int)) + +(defcfunex-exported ("IsBadReadPtr" IsBadReadPtr :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int)) + +(defcfunex-exported ("IsBadStringPtrA" IsBadStringPtrA :convention :stdcall) :int + (arg0 :string) + (arg1 :unsigned-int)) + +(defcfunex-exported ("IsBadStringPtrW" IsBadStringPtrW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int)) + +(defcfunex-exported ("IsBadWritePtr" IsBadWritePtr :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int)) + +(defcfunex-exported ("LocalAlloc" LocalAlloc :convention :stdcall) :pointer + (arg0 :unsigned-int) + (arg1 :unsigned-long)) + +(defcfunex-exported ("LocalDiscard" LocalDiscard :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("LocalFlags" LocalFlags :convention :stdcall) :unsigned-int + (arg0 :pointer)) + +(defcfunex-exported ("LocalFree" LocalFree :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("LocalHandle" LocalHandle :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("LocalLock" LocalLock :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("LocalReAlloc" LocalReAlloc :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-int)) + +(defcfunex-exported ("LocalSize" LocalSize :convention :stdcall) :unsigned-int + (arg0 :pointer)) + +(defcfunex-exported ("LocalUnlock" LocalUnlock :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("VirtualAlloc" VirtualAlloc :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :unsigned-long)) + +(defcfunex-exported ("VirtualAllocEx" VirtualAllocEx :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :unsigned-long)) + +(defcfunex-exported ("VirtualFree" VirtualFree :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long)) + +(defcfunex-exported ("VirtualFreeEx" VirtualFreeEx :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :unsigned-long)) + +(defcfunex-exported ("VirtualLock" VirtualLock :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("VirtualProtect" VirtualProtect :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("VirtualProtectEx" VirtualProtectEx :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :pointer)) + +(defcfunex-exported ("VirtualQuery" VirtualQuery :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("VirtualQueryEx" VirtualQueryEx :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-long)) + +(defcfunex-exported ("VirtualUnlock" VirtualUnlock :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long)) + + +; obsolete + +(defcfunex-exported ("GlobalCompact" GlobalCompact :convention :stdcall) :unsigned-long + (arg0 :unsigned-long)) + +(defcfunex-exported ("GlobalFix" GlobalFix :convention :stdcall) :void + (arg0 :pointer)) + +(defcfunex-exported ("GlobalUnfix" GlobalUnfix :convention :stdcall) :void + (arg0 :pointer)) + +(defcfunex-exported ("GlobalUnWire" GlobalUnWire :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("GlobalWire" GlobalWire :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("LocalCompact" LocalCompact :convention :stdcall) :unsigned-long + (arg0 :unsigned-int)) + +(defcfunex-exported ("LocalShrink" LocalShrink :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-int)) + diff --git a/modules/win95.menu.lisp b/modules/win95.menu.lisp new file mode 100644 index 0000000..b0b0242 --- /dev/null +++ b/modules/win95.menu.lisp @@ -0,0 +1,150 @@ + +(cl:in-package w32apimod) + +(define-w32api-module win95.menu :win95.menu) + +(cl:in-package cl-w32api.module.win95.menu) + +(defcfunex-exported ("GetMenu" GetMenu :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("GetMenuCheckMarkDimensions" GetMenuCheckMarkDimensions :convention :stdcall) :int32) + + +(defcfunex-exported ("GetMenuDefaultItem" GetMenuDefaultItem :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int)) + +(defcfunex-exported ("GetMenuItemCount" GetMenuItemCount :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("GetMenuItemID" GetMenuItemID :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("GetMenuItemInfoA" GetMenuItemInfoA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :int) + (arg3 :pointer)) + +(defcfunex-exported ("GetMenuItemInfoW" GetMenuItemInfoW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :int) + (arg3 :pointer)) + +(defcfunex-exported ("GetMenuItemRect" GetMenuItemRect :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int) + (arg3 :pointer)) + +(defcfunex-exported ("SetMenu" SetMenu :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("SetMenuDefaultItem" SetMenuDefaultItem :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int)) + +(defcfunex-exported ("SetMenuItemBitmaps" SetMenuItemBitmaps :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("SetMenuItemInfoA" SetMenuItemInfoA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :int) + (arg3 :pointer)) + +(defcfunex-exported ("SetMenuItemInfoW" SetMenuItemInfoW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :int) + (arg3 :pointer)) + +(defcfunex-exported ("TrackPopupMenu" TrackPopupMenu :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :int) + (arg3 :int) + (arg4 :int) + (arg5 :pointer) + (arg6 :pointer)) + +(defcfunex-exported ("TrackPopupMenuEx" TrackPopupMenuEx :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :int) + (arg3 :int) + (arg4 :pointer) + (arg5 :pointer)) + +;;obsolete + +(defcfunex-exported ("AppendMenuA" AppendMenuA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :string)) + +(defcfunex-exported ("AppendMenuW" AppendMenuW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :pointer)) + +(defcfunex-exported ("ChangeMenuA" ChangeMenuA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :string) + (arg3 :unsigned-int) + (arg4 :unsigned-int)) + +(defcfunex-exported ("ChangeMenuW" ChangeMenuW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :pointer) + (arg3 :unsigned-int) + (arg4 :unsigned-int)) + + +(defcfunex-exported ("InsertMenuA" InsertMenuA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :unsigned-int) + (arg4 :string)) + +(defcfunex-exported ("InsertMenuW" InsertMenuW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :unsigned-int) + (arg4 :pointer)) + +(defcfunex-exported ("ModifyMenuA" ModifyMenuA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :unsigned-int) + (arg4 :string)) + +(defcfunex-exported ("ModifyMenuW" ModifyMenuW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :unsigned-int) + (arg4 :pointer)) + +(defcfunex-exported ("RemoveMenu" RemoveMenu :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int)) + diff --git a/modules/win95.message.lisp b/modules/win95.message.lisp new file mode 100644 index 0000000..0f523d3 --- /dev/null +++ b/modules/win95.message.lisp @@ -0,0 +1,549 @@ + +(cl:in-package w32apimod) + +(define-w32api-module win95.message :win95.message) + +(cl:in-package cl-w32api.module.win95.message) + +(require-and-inherit-module "win95.~") + +(defcstructex-exported MSG + (hwnd HWND) + (message UINT) + (wParam WPARAM) + (lParam LPARAM) + (time DWORD) + (pt (:inline POINT))) + +(defconstant-exported WM_APP 32768) + +(defconstant-exported WM_ACTIVATE 6) + +(defconstant-exported WM_ACTIVATEAPP 28) + +(defconstant-exported WM_AFXFIRST 864) + +(defconstant-exported WM_AFXLAST 895) + +(defconstant-exported WM_ASKCBFORMATNAME 780) + +(defconstant-exported WM_CANCELJOURNAL 75) + +(defconstant-exported WM_CANCELMODE 31) + +(defconstant-exported WM_CAPTURECHANGED 533) + +(defconstant-exported WM_CHANGECBCHAIN 781) + +(defconstant-exported WM_CHAR 258) + +(defconstant-exported WM_CHARTOITEM 47) + +(defconstant-exported WM_CHILDACTIVATE 34) + +(defconstant-exported WM_CLEAR 771) + +(defconstant-exported WM_CLOSE 16) + +(defconstant-exported WM_COMMAND 273) + +(defconstant-exported WM_COMMNOTIFY 68) + +(defconstant-exported WM_COMPACTING 65) + +(defconstant-exported WM_COMPAREITEM 57) + +(defconstant-exported WM_CONTEXTMENU 123) + +(defconstant-exported WM_COPY 769) + +(defconstant-exported WM_COPYDATA 74) + +(defconstant-exported WM_CREATE 1) + +(defconstant-exported WM_CTLCOLORBTN 309) + +(defconstant-exported WM_CTLCOLORDLG 310) + +(defconstant-exported WM_CTLCOLOREDIT 307) + +(defconstant-exported WM_CTLCOLORLISTBOX 308) + +(defconstant-exported WM_CTLCOLORMSGBOX 306) + +(defconstant-exported WM_CTLCOLORSCROLLBAR 311) + +(defconstant-exported WM_CTLCOLORSTATIC 312) + +(defconstant-exported WM_CUT 768) + +(defconstant-exported WM_DEADCHAR 259) + +(defconstant-exported WM_DELETEITEM 45) + +(defconstant-exported WM_DESTROY 2) + +(defconstant-exported WM_DESTROYCLIPBOARD 775) + +(defconstant-exported WM_DEVICECHANGE 537) + +(defconstant-exported WM_DEVMODECHANGE 27) + +(defconstant-exported WM_DISPLAYCHANGE 126) + +(defconstant-exported WM_DRAWCLIPBOARD 776) + +(defconstant-exported WM_DRAWITEM 43) + +(defconstant-exported WM_DROPFILES 563) + +(defconstant-exported WM_ENABLE 10) + +(defconstant-exported WM_ENDSESSION 22) + +(defconstant-exported WM_ENTERIDLE 289) + +(defconstant-exported WM_ENTERMENULOOP 529) + +(defconstant-exported WM_ENTERSIZEMOVE 561) + +(defconstant-exported WM_ERASEBKGND 20) + +(defconstant-exported WM_EXITMENULOOP 530) + +(defconstant-exported WM_EXITSIZEMOVE 562) + +(defconstant-exported WM_FONTCHANGE 29) + +(defconstant-exported WM_GETDLGCODE 135) + +(defconstant-exported WM_GETFONT 49) + +(defconstant-exported WM_GETHOTKEY 51) + +(defconstant-exported WM_GETICON 127) + +(defconstant-exported WM_GETMINMAXINFO 36) + +(defconstant-exported WM_GETTEXT 13) + +(defconstant-exported WM_GETTEXTLENGTH 14) + +(defconstant-exported WM_HANDHELDFIRST 856) + +(defconstant-exported WM_HANDHELDLAST 863) + +(defconstant-exported WM_HELP 83) + +(defconstant-exported WM_HOTKEY 786) + +(defconstant-exported WM_HSCROLL 276) + +(defconstant-exported WM_HSCROLLCLIPBOARD 782) + +(defconstant-exported WM_ICONERASEBKGND 39) + +(defconstant-exported WM_INITDIALOG 272) + +(defconstant-exported WM_INITMENU 278) + +(defconstant-exported WM_INITMENUPOPUP 279) + +(defconstant-exported WM_INPUTLANGCHANGE 81) + +(defconstant-exported WM_INPUTLANGCHANGEREQUEST 80) + +(defconstant-exported WM_KEYDOWN 256) + +(defconstant-exported WM_KEYUP 257) + +(defconstant-exported WM_KILLFOCUS 8) + +(defconstant-exported WM_MDIACTIVATE 546) + +(defconstant-exported WM_MDICASCADE 551) + +(defconstant-exported WM_MDICREATE 544) + +(defconstant-exported WM_MDIDESTROY 545) + +(defconstant-exported WM_MDIGETACTIVE 553) + +(defconstant-exported WM_MDIICONARRANGE 552) + +(defconstant-exported WM_MDIMAXIMIZE 549) + +(defconstant-exported WM_MDINEXT 548) + +(defconstant-exported WM_MDIREFRESHMENU 564) + +(defconstant-exported WM_MDIRESTORE 547) + +(defconstant-exported WM_MDISETMENU 560) + +(defconstant-exported WM_MDITILE 550) + +(defconstant-exported WM_MEASUREITEM 44) + +(defconstant-exported WM_MENUCHAR 288) + +(defconstant-exported WM_MENUSELECT 287) + +(defconstant-exported WM_NEXTMENU 531) + +(defconstant-exported WM_MOVE 3) + +(defconstant-exported WM_MOVING 534) + +(defconstant-exported WM_NCACTIVATE 134) + +(defconstant-exported WM_NCCALCSIZE 131) + +(defconstant-exported WM_NCCREATE 129) + +(defconstant-exported WM_NCDESTROY 130) + +(defconstant-exported WM_NCHITTEST 132) + +(defconstant-exported WM_NCLBUTTONDBLCLK 163) + +(defconstant-exported WM_NCLBUTTONDOWN 161) + +(defconstant-exported WM_NCLBUTTONUP 162) + +(defconstant-exported WM_NCMBUTTONDBLCLK 169) + +(defconstant-exported WM_NCMBUTTONDOWN 167) + +(defconstant-exported WM_NCMBUTTONUP 168) + +(defconstant-exported WM_NCMOUSEMOVE 160) + +(defconstant-exported WM_NCPAINT 133) + +(defconstant-exported WM_NCRBUTTONDBLCLK 166) + +(defconstant-exported WM_NCRBUTTONDOWN 164) + +(defconstant-exported WM_NCRBUTTONUP 165) + +(defconstant-exported WM_NEXTDLGCTL 40) + +(defconstant-exported WM_NOTIFY 78) + +(defconstant-exported WM_NOTIFYFORMAT 85) + +(defconstant-exported WM_NULL 0) + +(defconstant-exported WM_PAINT 15) + +(defconstant-exported WM_PAINTCLIPBOARD 777) + +(defconstant-exported WM_PAINTICON 38) + +(defconstant-exported WM_PALETTECHANGED 785) + +(defconstant-exported WM_PALETTEISCHANGING 784) + +(defconstant-exported WM_PARENTNOTIFY 528) + +(defconstant-exported WM_PASTE 770) + +(defconstant-exported WM_PENWINFIRST 896) + +(defconstant-exported WM_PENWINLAST 911) + +(defconstant-exported WM_POWER 72) + +(defconstant-exported WM_POWERBROADCAST 536) + +(defconstant-exported WM_PRINT 791) + +(defconstant-exported WM_PRINTCLIENT 792) + +(defconstant-exported WM_QUERYDRAGICON 55) + +(defconstant-exported WM_QUERYENDSESSION 17) + +(defconstant-exported WM_QUERYNEWPALETTE 783) + +(defconstant-exported WM_QUERYOPEN 19) + +(defconstant-exported WM_QUEUESYNC 35) + +(defconstant-exported WM_QUIT 18) + +(defconstant-exported WM_RENDERALLFORMATS 774) + +(defconstant-exported WM_RENDERFORMAT 773) + +(defconstant-exported WM_SETCURSOR 32) + +(defconstant-exported WM_SETFOCUS 7) + +(defconstant-exported WM_SETFONT 48) + +(defconstant-exported WM_SETHOTKEY 50) + +(defconstant-exported WM_SETICON 128) + +(defconstant-exported WM_SETREDRAW 11) + +(defconstant-exported WM_SETTEXT 12) + +(defconstant-exported WM_SETTINGCHANGE 26) + +(defconstant-exported WM_SHOWWINDOW 24) + +(defconstant-exported WM_SIZE 5) + +(defconstant-exported WM_SIZECLIPBOARD 779) + +(defconstant-exported WM_SIZING 532) + +(defconstant-exported WM_SPOOLERSTATUS 42) + +(defconstant-exported WM_STYLECHANGED 125) + +(defconstant-exported WM_STYLECHANGING 124) + +(defconstant-exported WM_SYSCHAR 262) + +(defconstant-exported WM_SYSCOLORCHANGE 21) + +(defconstant-exported WM_SYSCOMMAND 274) + +(defconstant-exported WM_SYSDEADCHAR 263) + +(defconstant-exported WM_SYSKEYDOWN 260) + +(defconstant-exported WM_SYSKEYUP 261) + +(defconstant-exported WM_TCARD 82) + +(defconstant-exported WM_THEMECHANGED 794) + +(defconstant-exported WM_TIMECHANGE 30) + +(defconstant-exported WM_TIMER 275) + +(defconstant-exported WM_UNDO 772) + +(defconstant-exported WM_USER 1024) + +(defconstant-exported WM_USERCHANGED 84) + +(defconstant-exported WM_VKEYTOITEM 46) + +(defconstant-exported WM_VSCROLL 277) + +(defconstant-exported WM_VSCROLLCLIPBOARD 778) + +(defconstant-exported WM_WINDOWPOSCHANGED 71) + +(defconstant-exported WM_WINDOWPOSCHANGING 70) + +(defconstant-exported WM_WININICHANGE 26) + +(defconstant-exported WM_KEYFIRST 256) + +(defconstant-exported WM_KEYLAST 264) + +(defconstant-exported WM_SYNCPAINT 136) + +(defconstant-exported WM_MOUSEACTIVATE 33) + +(defconstant-exported WM_MOUSEMOVE 512) + +(defconstant-exported WM_LBUTTONDOWN 513) + +(defconstant-exported WM_LBUTTONUP 514) + +(defconstant-exported WM_LBUTTONDBLCLK 515) + +(defconstant-exported WM_RBUTTONDOWN 516) + +(defconstant-exported WM_RBUTTONUP 517) + +(defconstant-exported WM_RBUTTONDBLCLK 518) + +(defconstant-exported WM_MBUTTONDOWN 519) + +(defconstant-exported WM_MBUTTONUP 520) + +(defconstant-exported WM_MBUTTONDBLCLK 521) + +(defconstant-exported WM_MOUSEWHEEL 522) + +(defconstant-exported WM_MOUSEFIRST 512) + +(defconstant-exported WM_MOUSELAST 522) + +(defconstant-exported WM_MOUSEHOVER #x2A1) + +(defconstant-exported WM_MOUSELEAVE #x2A3) + +(defcfunex-exported ("BroadcastSystemMessage" BroadcastSystemMessage :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :unsigned-int) + (arg3 :unsigned-int) + (arg4 :int32)) + +(defcfunex-exported ("BroadcastSystemMessageA" BroadcastSystemMessageA :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :unsigned-int) + (arg3 :unsigned-int) + (arg4 :int32)) + +(defcfunex-exported ("BroadcastSystemMessageW" BroadcastSystemMessageW :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :unsigned-int) + (arg3 :unsigned-int) + (arg4 :int32)) + +(defcfunex-exported ("DefWindowProcA" DefWindowProcA :convention :stdcall) :int32 + (|hWnd| HWND) + (|Msg| UINT) + (|wParam| WPARAM) + (|lParam| LPARAM)) + +(defcfunex-exported ("DefWindowProcW" DefWindowProcW :convention :stdcall) :int32 + (|hWnd| HWND) + (|Msg| UINT) + (|wParam| WPARAM) + (|lParam| LPARAM)) + +(define-abbrev-exported DefWindowProc DefWindowProcW) + +(defcfunex-exported ("DispatchMessageA" DispatchMessageA :convention :stdcall) LONG + (|lpMsg| MSG)) + +(defcfunex-exported ("DispatchMessageW" DispatchMessageW :convention :stdcall) LONG + (|lpMsg| MSG)) + +(define-abbrev-exported DispatchMessage DispatchMessageW) + +(defcfunex-exported ("GetMessageA" GetMessageA :convention :stdcall) BOOL + (|lpMsg| MSG) + (|hWnd| HWND) + (|wMsgFilterMin| UINT) + (|wMsgFilterMax| UINT)) + +(defcfunex-exported ("GetMessageW" GetMessageW :convention :stdcall) BOOL + (|lpMsg| MSG) + (|hWnd| HWND) + (|wMsgFilterMin| UINT) + (|wMsgFilterMax| UINT)) + +(define-abbrev-exported GetMessage GetMessageW) + +(defcfunex-exported ("GetMessageExtraInfo" GetMessageExtraInfo :convention :stdcall) LONG) + +(defcfunex-exported ("GetMessagePos" GetMessagePos :convention :stdcall) DWORD) + +(defcfunex-exported ("GetMessageTime" GetMessageTime :convention :stdcall) LONG) + +(defcfunex-exported ("InSendMessage" InSendMessage :convention :stdcall) BOOL) + +(defcfunex-exported ("PeekMessageA" PeekMessageA :convention :stdcall) BOOL + (|lpMsg| MSG) + (|hWnd| HWND) + (|wMsgFilterMin| UINT) + (|wMsgFilterMax| UINT) + (|wRemoveMsg| UINT)) + +(defcfunex-exported ("PeekMessageW" PeekMessageW :convention :stdcall) BOOL + (|lpMsg| MSG) + (|hWnd| HWND) + (|wMsgFilterMin| UINT) + (|wMsgFilterMax| UINT) + (|wRemoveMsg| UINT)) + +(define-abbrev-exported PeekMessage PeekMessageW) + +(defcfunex-exported ("PostMessageA" PostMessageA :convention :stdcall) BOOL + (|hWnd| HWND) + (|Msg| UINT) + (|wParam| WPARAM) + (|lParam| LPARAM)) + +(defcfunex-exported ("PostMessageW" PostMessageW :convention :stdcall) BOOL + (|hWnd| HWND) + (|Msg| UINT) + (|wParam| WPARAM) + (|lParam| LPARAM)) + +(define-abbrev-exported PostMessage PostMessageW) + +(defcfunex-exported ("PostQuitMessage" PostQuitMessage :convention :stdcall) VOID + (|nExitCode| :int)) + +(defcfunex-exported ("PostThreadMessageA" PostThreadMessageA :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :int32)) + +(defcfunex-exported ("PostThreadMessageW" PostThreadMessageW :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :int32)) + +(defcfunex-exported ("SendMessageA" SendMessageA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :int32)) + +(defcfunex-exported ("SendMessageW" SendMessageW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :int32)) + +(defcfunex-exported ("SendMessageCallbackA" SendMessageCallbackA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :int32) + (arg4 :pointer) + (arg5 :unsigned-long)) + +(defcfunex-exported ("SendMessageCallbackW" SendMessageCallbackW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :int32) + (arg4 :pointer) + (arg5 :unsigned-long)) + +(defcfunex-exported ("SendMessageTimeoutA" SendMessageTimeoutA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :int32) + (arg4 :unsigned-int) + (arg5 :unsigned-int) + (arg6 :pointer)) + +(defcfunex-exported ("SendMessageTimeoutW" SendMessageTimeoutW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :int32) + (arg4 :unsigned-int) + (arg5 :unsigned-int) + (arg6 :pointer)) + +(defcfunex-exported ("SetMessageExtraInfo" SetMessageExtraInfo :convention :stdcall) LPARAM + (|lParam| LPARAM)) + +(defcfunex-exported ("TranslateMessage" TranslateMessage :convention :stdcall) BOOL + (|lpMsg| MSG)) + +(defcfunex-exported ("WaitMessage" WaitMessage :convention :stdcall) BOOL) + diff --git a/modules/win95.metafile.lisp b/modules/win95.metafile.lisp new file mode 100644 index 0000000..def451f --- /dev/null +++ b/modules/win95.metafile.lisp @@ -0,0 +1,153 @@ +;;emf + +(defcfunex-exported ("CloseEnhMetaFile" CloseEnhMetaFile :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("CopyEnhMetaFileA" CopyEnhMetaFileA :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :string)) + +(defcfunex-exported ("CopyEnhMetaFileW" CopyEnhMetaFileW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("CreateEnhMetaFileA" CreateEnhMetaFileA :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :string) + (arg2 :pointer) + (arg3 :string)) + +(defcfunex-exported ("CreateEnhMetaFileW" CreateEnhMetaFileW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("DeleteEnhMetaFile" DeleteEnhMetaFile :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("EnumEnhMetaFile" EnumEnhMetaFile :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("GdiComment" GdiComment :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :pointer)) + +(defcfunex-exported ("GetEnhMetaFileA" GetEnhMetaFileA :convention :stdcall) :pointer + (arg0 :string)) + +(defcfunex-exported ("GetEnhMetaFileW" GetEnhMetaFileW :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("GetEnhMetaFileBits" GetEnhMetaFileBits :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :pointer)) + +(defcfunex-exported ("GetEnhMetaFileDescriptionA" GetEnhMetaFileDescriptionA :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :string)) + +(defcfunex-exported ("GetEnhMetaFileDescriptionW" GetEnhMetaFileDescriptionW :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :pointer)) + +(defcfunex-exported ("GetEnhMetaFileHeader" GetEnhMetaFileHeader :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :pointer)) + +(defcfunex-exported ("GetEnhMetaFilePaletteEntries" GetEnhMetaFilePaletteEntries :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :pointer)) + +(defcfunex-exported ("GetWinMetaFileBits" GetWinMetaFileBits :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :pointer) + (arg3 :int) + (arg4 :pointer)) + +(defcfunex-exported ("PlayEnhMetaFile" PlayEnhMetaFile :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("PlayEnhMetaFileRecord" PlayEnhMetaFileRecord :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-int)) + +(defcfunex-exported ("SetEnhMetaFileBits" SetEnhMetaFileBits :convention :stdcall) :pointer + (arg0 :unsigned-int) + (arg1 :pointer)) + +(defcfunex-exported ("SetWinMetaFileBits" SetWinMetaFileBits :convention :stdcall) :pointer + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + + +;;wmf + +(defcfunex-exported ("CloseMetaFile" CloseMetaFile :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("CopyMetaFileA" CopyMetaFileA :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :string)) + +(defcfunex-exported ("CopyMetaFileW" CopyMetaFileW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("CreateMetaFileA" CreateMetaFileA :convention :stdcall) :pointer + (arg0 :string)) + +(defcfunex-exported ("CreateMetaFileW" CreateMetaFileW :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("DeleteMetaFile" DeleteMetaFile :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("EnumMetaFile" EnumMetaFile :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :int32)) + +(defcfunex-exported ("GetMetaFileA" GetMetaFileA :convention :stdcall) :pointer + (arg0 :string)) + +(defcfunex-exported ("GetMetaFileW" GetMetaFileW :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("GetMetaFileBitsEx" GetMetaFileBitsEx :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :pointer)) + +(defcfunex-exported ("PlayMetaFile" PlayMetaFile :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("PlayMetaFileRecord" PlayMetaFileRecord :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-int)) + +(defcfunex-exported ("SetMetaFileBitsEx" SetMetaFileBitsEx :convention :stdcall) :pointer + (arg0 :unsigned-int) + (arg1 :pointer)) + diff --git a/modules/win95.mouse-input.lisp b/modules/win95.mouse-input.lisp new file mode 100644 index 0000000..c934f5e --- /dev/null +++ b/modules/win95.mouse-input.lisp @@ -0,0 +1,36 @@ + +(cl:in-package w32apimod) + +(define-w32api-module win95.mouse-input :win95.mouse-input) + +(cl:in-package cl-w32api.module.win95.mouse-input) + +(defcfunex-exported ("DragDetect" DragDetect :convention :stdcall) :int + (arg0 :pointer) + (arg1 POINT)) + +(defcfunex-exported ("GetCapture" GetCapture :convention :stdcall) :pointer) + +(defcfunex-exported ("GetDoubleClickTime" GetDoubleClickTime :convention :stdcall) :unsigned-int) + +(defcfunex-exported ("mouse_event" mouse_event :convention :stdcall) :void + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :unsigned-long)) + +(defcfunex-exported ("ReleaseCapture" ReleaseCapture :convention :stdcall) :int) + +(defcfunex-exported ("SetCapture" SetCapture :convention :stdcall) :pointer + (hWnd :pointer)) + +(defcfunex-exported ("SetDoubleClickTime" SetDoubleClickTime :convention :stdcall) :int + (arg0 :unsigned-int)) + +(defcfunex-exported ("SwapMouseButton" SwapMouseButton :convention :stdcall) :int + (arg0 :int)) + +(defcfunex-exported ("TrackMouseEvent" TrackMouseEvent :convention :stdcall) :int + (arg0 :pointer)) + diff --git a/modules/win95.painting-drawing.lisp b/modules/win95.painting-drawing.lisp new file mode 100644 index 0000000..da9cd06 --- /dev/null +++ b/modules/win95.painting-drawing.lisp @@ -0,0 +1,224 @@ + +(cl:in-package w32apimod) + +(define-w32api-module win95.painting-drawing :win95.painting-drawing) + +(cl:in-package cl-w32api.module.win95.painting-drawing) + +(require-and-inherit-module "win95.~") + +(defcstructex-exported (PAINTSTRUCT :size 64) + (hdc HDC) + (fErase BOOL) + (rcPaint (:inline RECT)) + (fRestore BOOL) + (fIncUpdate BOOL) + (rgbReserved :pointer)) +#| +(defcstruct PAINTSTRUCT + (a :pointer) + (b :pointer) + (c :pointer) + (d :pointer) + (e :pointer) + (f :pointer) + (g :pointer) + (h :pointer) + (i :pointer) + (j :pointer) + (k :pointer) + (l :pointer) + (m :pointer) + (n :pointer)) +|# +(export 'PAINTSTRUCT) + +(defcfunex-exported ("BeginPaint" BeginPaint :convention :stdcall) HDC + (|hWnd| HWND) + (|lpPaint| PAINTSTRUCT)) + +(defcfunex-exported ("DrawAnimatedRects" DrawAnimatedRects :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("DrawCaption" DrawCaption :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-int)) + +(defcfunex-exported ("DrawEdge" DrawEdge :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int) + (arg3 :unsigned-int)) + +(defcfunex-exported ("DrawFocusRect" DrawFocusRect :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("DrawFrameControl" DrawFrameControl :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int) + (arg3 :unsigned-int)) + +(defcfunex-exported ("DrawStateA" DrawStateA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :int32) + (arg4 :unsigned-int) + (arg5 :int) + (arg6 :int) + (arg7 :int) + (arg8 :int) + (arg9 :unsigned-int)) + +(defcfunex-exported ("DrawStateW" DrawStateW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :int32) + (arg4 :unsigned-int) + (arg5 :int) + (arg6 :int) + (arg7 :int) + (arg8 :int) + (arg9 :unsigned-int)) + +(defcfunex-exported ("EndPaint" EndPaint :convention :stdcall) BOOL + (|hWnd| HWND) + (|lpPaint| PAINTSTRUCT)) + +(defcfunex-exported ("ExcludeUpdateRgn" ExcludeUpdateRgn :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GdiFlush" GdiFlush :convention :stdcall) :int) + +(defcfunex-exported ("GdiGetBatchLimit" GdiGetBatchLimit :convention :stdcall) :unsigned-long) + +(defcfunex-exported ("GdiSetBatchLimit" GdiSetBatchLimit :convention :stdcall) :unsigned-long + (arg0 :unsigned-long)) + +(defcfunex-exported ("GetBkColor" GetBkColor :convention :stdcall) :unsigned-long + (arg0 :pointer)) + +(defcfunex-exported ("GetBkMode" GetBkMode :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("GetBoundsRect" GetBoundsRect :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("GetROP2" GetROP2 :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("GetUpdateRect" GetUpdateRect :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("GetUpdateRgn" GetUpdateRgn :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("GetWindowDC" GetWindowDC :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("GetWindowRgn" GetWindowRgn :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GrayStringA" GrayStringA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :int32) + (arg4 :int) + (arg5 :int) + (arg6 :int) + (arg7 :int) + (arg8 :int)) + +(defcfunex-exported ("GrayStringW" GrayStringW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :int32) + (arg4 :int) + (arg5 :int) + (arg6 :int) + (arg7 :int) + (arg8 :int)) + +(defcfunex-exported ("InvalidateRect" InvalidateRect :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("InvalidateRgn" InvalidateRgn :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("LockWindowUpdate" LockWindowUpdate :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("PaintDesktop" PaintDesktop :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("RedrawWindow" RedrawWindow :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-int)) + +(defcfunex-exported ("SetBkColor" SetBkColor :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("SetBkMode" SetBkMode :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("SetBoundsRect" SetBoundsRect :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("SetRectRgn" SetRectRgn :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :int) + (arg4 :int)) + +(defcfunex-exported ("SetROP2" SetROP2 :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("SetWindowRgn" SetWindowRgn :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("UpdateWindow" UpdateWindow :convention :stdcall) BOOL + (|hWnd| HWND)) + +(defcfunex-exported ("ValidateRect" ValidateRect :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("ValidateRgn" ValidateRgn :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("WindowFromDC" WindowFromDC :convention :stdcall) :pointer + (hDC :pointer)) + diff --git a/modules/win95.path.lisp b/modules/win95.path.lisp new file mode 100644 index 0000000..c549037 --- /dev/null +++ b/modules/win95.path.lisp @@ -0,0 +1,45 @@ +(defcfunex-exported ("AbortPath" AbortPath :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("BeginPath" BeginPath :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("CloseFigure" CloseFigure :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("EndPath" EndPath :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("FillPath" FillPath :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("FlattenPath" FlattenPath :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("GetMiterLimit" GetMiterLimit :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetPath" GetPath :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :int)) + +(defcfunex-exported ("PathToRegion" PathToRegion :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("SetMiterLimit" SetMiterLimit :convention :stdcall) :int + (arg0 :pointer) + (arg1 :float) + (arg2 :pointer)) + +(defcfunex-exported ("StrokeAndFillPath" StrokeAndFillPath :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("StrokePath" StrokePath :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("WidenPath" WidenPath :convention :stdcall) :int + (arg0 :pointer)) + diff --git a/modules/win95.pen.lisp b/modules/win95.pen.lisp new file mode 100644 index 0000000..e4a9881 --- /dev/null +++ b/modules/win95.pen.lisp @@ -0,0 +1,16 @@ + +(defcfunex-exported ("CreatePen" CreatePen :convention :stdcall) :pointer + (arg0 :int) + (arg1 :int) + (arg2 :unsigned-long)) + +(defcfunex-exported ("CreatePenIndirect" CreatePenIndirect :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("ExtCreatePen" ExtCreatePen :convention :stdcall) :pointer + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer)) + diff --git a/modules/win95.pipe.lisp b/modules/win95.pipe.lisp new file mode 100644 index 0000000..dfd9102 --- /dev/null +++ b/modules/win95.pipe.lisp @@ -0,0 +1,108 @@ + +(defcfunex-exported ("CallNamedPipeA" CallNamedPipeA :convention :stdcall) :int + (arg0 :string) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer) + (arg6 :unsigned-long)) + +(defcfunex-exported ("CallNamedPipeW" CallNamedPipeW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer) + (arg6 :unsigned-long)) + +(defcfunex-exported ("ConnectNamedPipe" ConnectNamedPipe :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("CreateNamedPipeA" CreateNamedPipeA :convention :stdcall) :pointer + (arg0 :string) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :unsigned-long) + (arg5 :unsigned-long) + (arg6 :unsigned-long) + (arg7 :pointer)) + +(defcfunex-exported ("CreateNamedPipeW" CreateNamedPipeW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :unsigned-long) + (arg5 :unsigned-long) + (arg6 :unsigned-long) + (arg7 :pointer)) + +(defcfunex-exported ("CreatePipe" CreatePipe :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-long)) + +(defcfunex-exported ("DisconnectNamedPipe" DisconnectNamedPipe :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("GetNamedPipeHandleStateA" GetNamedPipeHandleStateA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :string) + (arg6 :unsigned-long)) + +(defcfunex-exported ("GetNamedPipeHandleStateW" GetNamedPipeHandleStateW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer) + (arg6 :unsigned-long)) + +(defcfunex-exported ("GetNamedPipeInfo" GetNamedPipeInfo :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("PeekNamedPipe" PeekNamedPipe :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer)) + +(defcfunex-exported ("SetNamedPipeHandleState" SetNamedPipeHandleState :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("TransactNamedPipe" TransactNamedPipe :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer) + (arg6 :pointer)) + +(defcfunex-exported ("WaitNamedPipeA" WaitNamedPipeA :convention :stdcall) :int + (arg0 :string) + (arg1 :unsigned-long)) + +(defcfunex-exported ("WaitNamedPipeW" WaitNamedPipeW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long)) + diff --git a/modules/win95.power-mgmt.lisp b/modules/win95.power-mgmt.lisp new file mode 100644 index 0000000..099bc13 --- /dev/null +++ b/modules/win95.power-mgmt.lisp @@ -0,0 +1,8 @@ + + +(defcfunex-exported ("GetSystemPowerStatus" GetSystemPowerStatus :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("SetSystemPowerState" SetSystemPowerState :convention :stdcall) :int + (arg0 :int) + (arg1 :int)) diff --git a/modules/win95.printer.lisp b/modules/win95.printer.lisp new file mode 100644 index 0000000..ba6e69b --- /dev/null +++ b/modules/win95.printer.lisp @@ -0,0 +1,697 @@ +;;print + +(defcfunex-exported ("AbortDoc" AbortDoc :convention :stdcall) :int + (arg0 :pointer)) + + +(defcfunex-exported ("DeviceCapabilitiesA" DeviceCapabilitiesA :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :string) + (arg2 :unsigned-short) + (arg3 :string) + (arg4 :pointer)) + +(defcfunex-exported ("DeviceCapabilitiesW" DeviceCapabilitiesW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-short) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("EndDoc" EndDoc :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("EndPage" EndPage :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("Escape" Escape :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :string) + (arg4 :pointer)) + +(defcfunex-exported ("ExtEscape" ExtEscape :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :string) + (arg4 :int) + (arg5 :string)) + +(defcfunex-exported ("SetAbortProc" SetAbortProc :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("StartDocA" StartDocA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("StartDocW" StartDocW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("StartPage" StartPage :convention :stdcall) :int + (arg0 :pointer)) + + +;;print spooler + + +(defcfunex-exported ("AbortPrinter" AbortPrinter :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("AddFormA" AddFormA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("AddFormW" AddFormW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("AddJobA" AddJobA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer)) + +(defcfunex-exported ("AddJobW" AddJobW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer)) + +(defcfunex-exported ("AddMonitorA" AddMonitorA :convention :stdcall) :int + (arg0 :string) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("AddMonitorW" AddMonitorW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("AddPortA" AddPortA :convention :stdcall) :int + (arg0 :string) + (arg1 :pointer) + (arg2 :string)) + +(defcfunex-exported ("AddPortW" AddPortW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("AddPrinterA" AddPrinterA :convention :stdcall) :pointer + (arg0 :string) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("AddPrinterW" AddPrinterW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("AddPrinterConnectionA" AddPrinterConnectionA :convention :stdcall) :int + (arg0 :string)) + +(defcfunex-exported ("AddPrinterConnectionW" AddPrinterConnectionW :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("AddPrinterDriverA" AddPrinterDriverA :convention :stdcall) :int + (arg0 :string) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("AddPrinterDriverW" AddPrinterDriverW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("AddPrintProcessorA" AddPrintProcessorA :convention :stdcall) :int + (arg0 :string) + (arg1 :string) + (arg2 :string) + (arg3 :string)) + +(defcfunex-exported ("AddPrintProcessorW" AddPrintProcessorW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("AddPrintProvidorA" AddPrintProvidorA :convention :stdcall) :int + (arg0 :string) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("AddPrintProvidorW" AddPrintProvidorW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("AdvancedDocumentPropertiesA" AdvancedDocumentPropertiesA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :string) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("AdvancedDocumentPropertiesW" AdvancedDocumentPropertiesW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("ClosePrinter" ClosePrinter :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("ConfigurePortA" ConfigurePortA :convention :stdcall) :int + (arg0 :string) + (arg1 :pointer) + (arg2 :string)) + +(defcfunex-exported ("ConfigurePortW" ConfigurePortW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("ConnectToPrinterDlg" ConnectToPrinterDlg :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("DeleteFormA" DeleteFormA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string)) + +(defcfunex-exported ("DeleteFormW" DeleteFormW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("DeleteMonitorA" DeleteMonitorA :convention :stdcall) :int + (arg0 :string) + (arg1 :string) + (arg2 :string)) + +(defcfunex-exported ("DeleteMonitorW" DeleteMonitorW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("DeletePortA" DeletePortA :convention :stdcall) :int + (arg0 :string) + (arg1 :pointer) + (arg2 :string)) + +(defcfunex-exported ("DeletePortW" DeletePortW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("DeletePrinter" DeletePrinter :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("DeletePrinterConnectionA" DeletePrinterConnectionA :convention :stdcall) :int + (arg0 :string)) + +(defcfunex-exported ("DeletePrinterConnectionW" DeletePrinterConnectionW :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("DeletePrinterDataA" DeletePrinterDataA :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :string)) + +(defcfunex-exported ("DeletePrinterDataW" DeletePrinterDataW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("DeletePrinterDriverA" DeletePrinterDriverA :convention :stdcall) :int + (arg0 :string) + (arg1 :string) + (arg2 :string)) + +(defcfunex-exported ("DeletePrinterDriverW" DeletePrinterDriverW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("DeletePrintProcessorA" DeletePrintProcessorA :convention :stdcall) :int + (arg0 :string) + (arg1 :string) + (arg2 :string)) + +(defcfunex-exported ("DeletePrintProcessorW" DeletePrintProcessorW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("DeletePrintProvidorA" DeletePrintProvidorA :convention :stdcall) :int + (arg0 :string) + (arg1 :string) + (arg2 :string)) + +(defcfunex-exported ("DeletePrintProvidorW" DeletePrintProvidorW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("DocumentPropertiesA" DocumentPropertiesA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :string) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :unsigned-long)) + +(defcfunex-exported ("DocumentPropertiesW" DocumentPropertiesW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :unsigned-long)) + +(defcfunex-exported ("EndDocPrinter" EndDocPrinter :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("EndPagePrinter" EndPagePrinter :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("EnumFormsA" EnumFormsA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :pointer)) + +(defcfunex-exported ("EnumFormsW" EnumFormsW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :pointer)) + +(defcfunex-exported ("EnumJobsA" EnumJobsA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :unsigned-long) + (arg6 :pointer) + (arg7 :pointer)) + +(defcfunex-exported ("EnumJobsW" EnumJobsW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :unsigned-long) + (arg6 :pointer) + (arg7 :pointer)) + +(defcfunex-exported ("EnumMonitorsA" EnumMonitorsA :convention :stdcall) :int + (arg0 :string) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :pointer)) + +(defcfunex-exported ("EnumMonitorsW" EnumMonitorsW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :pointer)) + +(defcfunex-exported ("EnumPortsA" EnumPortsA :convention :stdcall) :int + (arg0 :string) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :pointer)) + +(defcfunex-exported ("EnumPortsW" EnumPortsW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :pointer)) + +(defcfunex-exported ("EnumPrinterDataA" EnumPrinterDataA :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :string) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :pointer) + (arg6 :pointer) + (arg7 :unsigned-long) + (arg8 :pointer)) + +(defcfunex-exported ("EnumPrinterDataW" EnumPrinterDataW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :pointer) + (arg6 :pointer) + (arg7 :unsigned-long) + (arg8 :pointer)) + +(defcfunex-exported ("EnumPrinterDriversA" EnumPrinterDriversA :convention :stdcall) :int + (arg0 :string) + (arg1 :string) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer) + (arg6 :pointer)) + +(defcfunex-exported ("EnumPrinterDriversW" EnumPrinterDriversW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer) + (arg6 :pointer)) + +(defcfunex-exported ("EnumPrintersA" EnumPrintersA :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :string) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer) + (arg6 :pointer)) + +(defcfunex-exported ("EnumPrintersW" EnumPrintersW :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer) + (arg6 :pointer)) + +(defcfunex-exported ("EnumPrintProcessorDatatypesA" EnumPrintProcessorDatatypesA :convention :stdcall) :int + (arg0 :string) + (arg1 :string) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer) + (arg6 :pointer)) + +(defcfunex-exported ("EnumPrintProcessorDatatypesW" EnumPrintProcessorDatatypesW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer) + (arg6 :pointer)) + +(defcfunex-exported ("EnumPrintProcessorsA" EnumPrintProcessorsA :convention :stdcall) :int + (arg0 :string) + (arg1 :string) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer) + (arg6 :pointer)) + +(defcfunex-exported ("EnumPrintProcessorsW" EnumPrintProcessorsW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer) + (arg6 :pointer)) + +(defcfunex-exported ("FindClosePrinterChangeNotification" FindClosePrinterChangeNotification :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("FindFirstPrinterChangeNotification" FindFirstPrinterChangeNotification :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("FindNextPrinterChangeNotification" FindNextPrinterChangeNotification :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("FreePrinterNotifyInfo" FreePrinterNotifyInfo :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("GetFormA" GetFormA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer)) + +(defcfunex-exported ("GetFormW" GetFormW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer)) + +(defcfunex-exported ("GetJobA" GetJobA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer)) + +(defcfunex-exported ("GetJobW" GetJobW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer)) + +(defcfunex-exported ("GetPrinterA" GetPrinterA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer)) + +(defcfunex-exported ("GetPrinterW" GetPrinterW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer)) + +(defcfunex-exported ("GetPrinterDataA" GetPrinterDataA :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :string) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer)) + +(defcfunex-exported ("GetPrinterDataW" GetPrinterDataW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer)) + +(defcfunex-exported ("GetPrinterDriverA" GetPrinterDriverA :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :string) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer)) + +(defcfunex-exported ("GetPrinterDriverW" GetPrinterDriverW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer)) + +(defcfunex-exported ("GetPrinterDriverDirectoryA" GetPrinterDriverDirectoryA :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :string) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer)) + +(defcfunex-exported ("GetPrinterDriverDirectoryW" GetPrinterDriverDirectoryW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer)) + +(defcfunex-exported ("GetPrintProcessorDirectoryA" GetPrintProcessorDirectoryA :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :string) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer)) + +(defcfunex-exported ("GetPrintProcessorDirectoryW" GetPrintProcessorDirectoryW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer)) + +(defcfunex-exported ("OpenPrinterA" OpenPrinterA :convention :stdcall) :int + (arg0 :string) +(arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("OpenPrinterW" OpenPrinterW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("PrinterMessageBoxA" PrinterMessageBoxA :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :string) + (arg4 :string) + (arg5 :unsigned-long)) + +(defcfunex-exported ("PrinterMessageBoxW" PrinterMessageBoxW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :unsigned-long)) + +(defcfunex-exported ("PrinterProperties" PrinterProperties :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("ReadPrinter" ReadPrinter :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("ResetPrinterA" ResetPrinterA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("ResetPrinterW" ResetPrinterW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("ScheduleJob" ScheduleJob :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("SetFormA" SetFormA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("SetFormW" SetFormW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("SetJobA" SetJobA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long)) + +(defcfunex-exported ("SetJobW" SetJobW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long)) + +(defcfunex-exported ("SetPrinterA" SetPrinterA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long)) + +(defcfunex-exported ("SetPrinterW" SetPrinterW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long)) + +(defcfunex-exported ("SetPrinterDataA" SetPrinterDataA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long)) + +(defcfunex-exported ("SetPrinterDataW" SetPrinterDataW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long)) + +(defcfunex-exported ("StartDocPrinterA" StartDocPrinterA :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("StartDocPrinterW" StartDocPrinterW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("StartPagePrinter" StartPagePrinter :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("WaitForPrinterChange" WaitForPrinterChange :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("WritePrinter" WritePrinter :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer)) + + diff --git a/modules/win95.process-thread.lisp b/modules/win95.process-thread.lisp new file mode 100644 index 0000000..14691d4 --- /dev/null +++ b/modules/win95.process-thread.lisp @@ -0,0 +1,300 @@ + +(cl:in-package w32apimod) + +(define-w32api-module win95.process-thread :win95.process-thread) + +(cl:in-package cl-w32api.module.win95.process-thread) + +(defcfunex-exported ("AttachThreadInput" AttachThreadInput :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :int)) + +(defcfunex-exported ("CommandLineToArgvW" CommandLineToArgvW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("CreateProcessA" CreateProcessA :convention :stdcall) :int + (arg0 :string) + (arg1 :string) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :int) + (arg5 :unsigned-long) + (arg6 :pointer) + (arg7 :string) + (arg8 :pointer) + (arg9 :pointer)) + +(defcfunex-exported ("CreateProcessW" CreateProcessW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :int) + (arg5 :unsigned-long) + (arg6 :pointer) + (arg7 :pointer) + (arg8 :pointer) + (arg9 :pointer)) + +(defcfunex-exported ("CreateProcessAsUserA" CreateProcessAsUserA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string) + (arg2 :string) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :int) + (arg6 :unsigned-long) + (arg7 :pointer) + (arg8 :string) + (arg9 :pointer) + (arg10 :pointer)) + +(defcfunex-exported ("CreateProcessAsUserW" CreateProcessAsUserW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :int) + (arg6 :unsigned-long) + (arg7 :pointer) + (arg8 :pointer) + (arg9 :pointer) + (arg10 :pointer)) + +(defcfunex-exported ("CreateRemoteThread" CreateRemoteThread :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :unsigned-long) + (arg6 :pointer)) + +(defcfunex-exported ("CreateThread" CreateThread :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer)) + +(defcfunex-exported ("ExitProcess" ExitProcess :convention :stdcall) :void + (arg0 :unsigned-int)) + +(defcfunex-exported ("ExitThread" ExitThread :convention :stdcall) :void + (arg0 :unsigned-long)) + +(defcfunex-exported ("FreeEnvironmentStringsA" FreeEnvironmentStringsA :convention :stdcall) :int + (arg0 :string)) + +(defcfunex-exported ("FreeEnvironmentStringsW" FreeEnvironmentStringsW :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("GetCommandLineA" GetCommandLineA :convention :stdcall) :string) + +(defcfunex-exported ("GetCommandLineW" GetCommandLineW :convention :stdcall) :pointer) + +(defcfunex-exported ("GetCurrentProcess" GetCurrentProcess :convention :stdcall) :pointer) + +(defcfunex-exported ("GetCurrentProcessId" GetCurrentProcessId :convention :stdcall) :unsigned-long) + +(defcfunex-exported ("GetCurrentThread" GetCurrentThread :convention :stdcall) :pointer) + +(defcfunex-exported ("GetCurrentThreadId" GetCurrentThreadId :convention :stdcall) :unsigned-long) + +(defcfunex-exported ("GetEnvironmentStrings" GetEnvironmentStrings :convention :stdcall) :string) + +(defcfunex-exported ("GetEnvironmentStringsA" GetEnvironmentStringsA :convention :stdcall) :string) + +(defcfunex-exported ("GetEnvironmentStringsW" GetEnvironmentStringsW :convention :stdcall) :pointer) + +(defcfunex-exported ("GetEnvironmentVariableA" GetEnvironmentVariableA :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :string) + (arg2 :unsigned-long)) + +(defcfunex-exported ("GetEnvironmentVariableW" GetEnvironmentVariableW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("GetExitCodeProcess" GetExitCodeProcess :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetExitCodeThread" GetExitCodeThread :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetPriorityClass" GetPriorityClass :convention :stdcall) :unsigned-long + (arg0 :pointer)) + +(defcfunex-exported ("GetProcessAffinityMask" GetProcessAffinityMask :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("GetProcessShutdownParameters" GetProcessShutdownParameters :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetProcessTimes" GetProcessTimes :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("GetProcessVersion" GetProcessVersion :convention :stdcall) :unsigned-long + (arg0 :unsigned-long)) + +(defcfunex-exported ("GetProcessWorkingSetSize" GetProcessWorkingSetSize :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("GetStartupInfoA" GetStartupInfoA :convention :stdcall) :void + (arg0 :pointer)) + +(defcfunex-exported ("GetStartupInfoW" GetStartupInfoW :convention :stdcall) :void + (arg0 :pointer)) + +(defcfunex-exported ("GetThreadPriority" GetThreadPriority :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("GetThreadPriorityBoost" GetThreadPriorityBoost :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetThreadTimes" GetThreadTimes :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("OpenProcess" OpenProcess :convention :stdcall) :pointer + (arg0 :unsigned-long) + (arg1 :int) + (arg2 :unsigned-long)) + +(defcfunex-exported ("ResumeThread" ResumeThread :convention :stdcall) :unsigned-long + (arg0 :pointer)) + +(defcfunex-exported ("SetEnvironmentVariableA" SetEnvironmentVariableA :convention :stdcall) :int + (arg0 :string) + (arg1 :string)) + +(defcfunex-exported ("SetEnvironmentVariableW" SetEnvironmentVariableW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("SetPriorityClass" SetPriorityClass :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("SetProcessAffinityMask" SetProcessAffinityMask :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("SetProcessShutdownParameters" SetProcessShutdownParameters :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long)) + +(defcfunex-exported ("SetProcessPriorityBoost" SetProcessPriorityBoost :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("SetProcessWorkingSetSize" SetProcessWorkingSetSize :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long)) + +(defcfunex-exported ("SetThreadAffinityMask" SetThreadAffinityMask :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("SetThreadIdealProcessor" SetThreadIdealProcessor :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("SetThreadPriority" SetThreadPriority :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("SetThreadPriorityBoost" SetThreadPriorityBoost :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("Sleep" Sleep :convention :stdcall) :void + (arg0 :unsigned-long)) + +(defcfunex-exported ("SleepEx" SleepEx :convention :stdcall) :unsigned-long + (arg0 :unsigned-long) + (arg1 :int)) + +(defcfunex-exported ("SuspendThread" SuspendThread :convention :stdcall) :unsigned-long + (arg0 :pointer)) + +(defcfunex-exported ("SwitchToThread" SwitchToThread :convention :stdcall) :int) + +(defcfunex-exported ("TerminateProcess" TerminateProcess :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int)) + +(defcfunex-exported ("TerminateThread" TerminateThread :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("TlsAlloc" TlsAlloc :convention :stdcall) :unsigned-long) + +(defcfunex-exported ("TlsFree" TlsFree :convention :stdcall) :int + (arg0 :unsigned-long)) + +(defcfunex-exported ("TlsGetValue" TlsGetValue :convention :stdcall) :pointer + (arg0 :unsigned-long)) + +(defcfunex-exported ("TlsSetValue" TlsSetValue :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :pointer)) + +(defcfunex-exported ("WaitForInputIdle" WaitForInputIdle :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long)) + +;;fiber + +(defcfunex-exported ("ConvertThreadToFiber" ConvertThreadToFiber :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("CreateFiber" CreateFiber :convention :stdcall) :pointer + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("CreateFiberEx" CreateFiberEx :convention :stdcall) :pointer + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("DeleteFiber" DeleteFiber :convention :stdcall) :void + (arg0 :pointer)) + +(defcfunex-exported ("GetCurrentFiber" GetCurrentFiber :convention :stdcall) :pointer) + +(defcfunex-exported ("GetFiberData" GetFiberData :convention :stdcall) :pointer) + +(defcfunex-exported ("SwitchToFiber" SwitchToFiber :convention :stdcall) :void + (arg0 :pointer)) + +;;obsolete + +(defcfunex-exported ("WinExec" WinExec :convention :stdcall) :unsigned-int + (arg0 :string) + (arg1 :unsigned-int)) + diff --git a/modules/win95.profile.lisp b/modules/win95.profile.lisp new file mode 100644 index 0000000..75ebfa8 --- /dev/null +++ b/modules/win95.profile.lisp @@ -0,0 +1,152 @@ +(defcfunex-exported ("GetPrivateProfileIntA" GetPrivateProfileIntA :convention :stdcall) :unsigned-int + (arg0 :string) + (arg1 :string) + (arg2 :int) + (arg3 :string)) + +(defcfunex-exported ("GetPrivateProfileIntW" GetPrivateProfileIntW :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int) + (arg3 :pointer)) + +(defcfunex-exported ("GetPrivateProfileSectionA" GetPrivateProfileSectionA :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :string) + (arg2 :unsigned-long) + (arg3 :string)) + +(defcfunex-exported ("GetPrivateProfileSectionW" GetPrivateProfileSectionW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("GetPrivateProfileSectionNamesA" GetPrivateProfileSectionNamesA :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :unsigned-long) + (arg2 :string)) + +(defcfunex-exported ("GetPrivateProfileSectionNamesW" GetPrivateProfileSectionNamesW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("GetPrivateProfileStringA" GetPrivateProfileStringA :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :string) + (arg2 :string) + (arg3 :string) + (arg4 :unsigned-long) + (arg5 :string)) + +(defcfunex-exported ("GetPrivateProfileStringW" GetPrivateProfileStringW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer)) + +(defcfunex-exported ("GetPrivateProfileStructA" GetPrivateProfileStructA :convention :stdcall) :int + (arg0 :string) + (arg1 :string) + (arg2 :pointer) + (arg3 :unsigned-int) + (arg4 :string)) + +(defcfunex-exported ("GetPrivateProfileStructW" GetPrivateProfileStructW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-int) + (arg4 :pointer)) + +(defcfunex-exported ("GetProfileIntA" GetProfileIntA :convention :stdcall) :unsigned-int + (arg0 :string) + (arg1 :string) + (arg2 :int)) + +(defcfunex-exported ("GetProfileIntW" GetProfileIntW :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("GetProfileSectionA" GetProfileSectionA :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :string) + (arg2 :unsigned-long)) + +(defcfunex-exported ("GetProfileSectionW" GetProfileSectionW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("GetProfileStringA" GetProfileStringA :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :string) + (arg2 :string) + (arg3 :string) + (arg4 :unsigned-long)) + +(defcfunex-exported ("GetProfileStringW" GetProfileStringW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :unsigned-long)) + +(defcfunex-exported ("WritePrivateProfileSectionA" WritePrivateProfileSectionA :convention :stdcall) :int + (arg0 :string) + (arg1 :string) + (arg2 :string)) + +(defcfunex-exported ("WritePrivateProfileSectionW" WritePrivateProfileSectionW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("WritePrivateProfileStringA" WritePrivateProfileStringA :convention :stdcall) :int + (arg0 :string) + (arg1 :string) + (arg2 :string) + (arg3 :string)) + +(defcfunex-exported ("WritePrivateProfileStringW" WritePrivateProfileStringW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("WritePrivateProfileStructA" WritePrivateProfileStructA :convention :stdcall) :int + (arg0 :string) + (arg1 :string) + (arg2 :pointer) + (arg3 :unsigned-int) + (arg4 :string)) + +(defcfunex-exported ("WritePrivateProfileStructW" WritePrivateProfileStructW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-int) + (arg4 :pointer)) + +(defcfunex-exported ("WriteProfileSectionA" WriteProfileSectionA :convention :stdcall) :int + (arg0 :string) + (arg1 :string)) + +(defcfunex-exported ("WriteProfileSectionW" WriteProfileSectionW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("WriteProfileStringA" WriteProfileStringA :convention :stdcall) :int + (arg0 :string) + (arg1 :string) + (arg2 :string)) + +(defcfunex-exported ("WriteProfileStringW" WriteProfileStringW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + diff --git a/modules/win95.region.lisp b/modules/win95.region.lisp new file mode 100644 index 0000000..eff839e --- /dev/null +++ b/modules/win95.region.lisp @@ -0,0 +1,92 @@ + +(defcfunex-exported ("CombineRgn" CombineRgn :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :int)) + +(defcfunex-exported ("CreateEllipticRgn" CreateEllipticRgn :convention :stdcall) :pointer + (arg0 :int) + (arg1 :int) + (arg2 :int) + (arg3 :int)) + +(defcfunex-exported ("CreateEllipticRgnIndirect" CreateEllipticRgnIndirect :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("CreatePolygonRgn" CreatePolygonRgn :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :int) + (arg2 :int)) + +(defcfunex-exported ("CreatePolyPolygonRgn" CreatePolyPolygonRgn :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int) + (arg3 :int)) + +(defcfunex-exported ("CreateRectRgn" CreateRectRgn :convention :stdcall) :pointer + (arg0 :int) + (arg1 :int) + (arg2 :int) + (arg3 :int)) + +(defcfunex-exported ("CreateRectRgnIndirect" CreateRectRgnIndirect :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("CreateRoundRectRgn" CreateRoundRectRgn :convention :stdcall) :pointer + (arg0 :int) + (arg1 :int) + (arg2 :int) + (arg3 :int) + (arg4 :int) + (arg5 :int)) + +(defcfunex-exported ("EqualRgn" EqualRgn :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("ExtCreateRegion" ExtCreateRegion :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("FillRgn" FillRgn :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("GetPolyFillMode" GetPolyFillMode :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("GetRegionData" GetRegionData :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("GetRgnBox" GetRgnBox :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("OffsetRgn" OffsetRgn :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int)) + +(defcfunex-exported ("PaintRgn" PaintRgn :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("PtInRegion" PtInRegion :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int)) + +(defcfunex-exported ("RectInRegion" RectInRegion :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("SetPolyFillMode" SetPolyFillMode :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int)) + diff --git a/modules/win95.resource.lisp b/modules/win95.resource.lisp new file mode 100644 index 0000000..1e52353 --- /dev/null +++ b/modules/win95.resource.lisp @@ -0,0 +1,136 @@ + +(cl:in-package w32apimod) + +(define-w32api-module win95.resource :win95.resource) + +(cl:in-package cl-w32api.module.win95.resource) + +(defcfunex-exported ("BeginUpdateResourceA" BeginUpdateResourceA :convention :stdcall) :pointer + (arg0 :string) + (arg1 :int)) + +(defcfunex-exported ("BeginUpdateResourceW" BeginUpdateResourceW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("CopyImage" CopyImage :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :int) + (arg3 :int) + (arg4 :unsigned-int)) + +(defcfunex-exported ("EndUpdateResourceA" EndUpdateResourceA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("EndUpdateResourceW" EndUpdateResourceW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("EnumResourceLanguagesA" EnumResourceLanguagesA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string) + (arg2 :string) + (arg3 :pointer) + (arg4 :int32)) + +(defcfunex-exported ("EnumResourceLanguagesW" EnumResourceLanguagesW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :int32)) + +(defcfunex-exported ("EnumResourceNamesA" EnumResourceNamesA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string) + (arg2 :pointer) + (arg3 :int32)) + +(defcfunex-exported ("EnumResourceNamesW" EnumResourceNamesW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :int32)) + +(defcfunex-exported ("EnumResourceTypesA" EnumResourceTypesA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int32)) + +(defcfunex-exported ("EnumResourceTypesW" EnumResourceTypesW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int32)) + +(defcfunex-exported ("FindResourceA" FindResourceA :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :string) + (arg2 :string)) + +(defcfunex-exported ("FindResourceW" FindResourceW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("FindResourceExA" FindResourceExA :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :string) + (arg2 :string) + (arg3 :unsigned-short)) + +(defcfunex-exported ("FindResourceExW" FindResourceExW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-short)) + +(defcfunex-exported ("LoadImageA" LoadImageA :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :string) + (arg2 :unsigned-int) + (arg3 :int) + (arg4 :int) + (arg5 :unsigned-int)) + +(defcfunex-exported ("LoadImageW" LoadImageW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int) + (arg3 :int) + (arg4 :int) + (arg5 :unsigned-int)) + +(defcfunex-exported ("LoadResource" LoadResource :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("LockResource" LockResource :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("SizeofResource" SizeofResource :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("UpdateResourceA" UpdateResourceA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string) + (arg2 :string) + (arg3 :unsigned-short) + (arg4 :pointer) + (arg5 :unsigned-long)) + +(defcfunex-exported ("UpdateResourceW" UpdateResourceW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-short) + (arg4 :pointer) + (arg5 :unsigned-long)) + + +;;obsolete +(defcfunex-exported ("FreeResource" FreeResource :convention :stdcall) :int + (arg0 :pointer)) + diff --git a/modules/win95.scrollbar.lisp b/modules/win95.scrollbar.lisp new file mode 100644 index 0000000..c812022 --- /dev/null +++ b/modules/win95.scrollbar.lisp @@ -0,0 +1,79 @@ + +(cl:in-package w32apimod) + +(define-w32api-module win95.scrollbar :win95.scrollbar) + +(cl:in-package cl-w32api.module.win95.scrollbar) + +(defcfunex-exported ("EnableScrollBar" EnableScrollBar :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int)) + +(defcfunex-exported ("GetScrollInfo" GetScrollInfo :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :pointer)) + +(defcfunex-exported ("GetScrollPos" GetScrollPos :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("GetScrollRange" GetScrollRange :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("ScrollDC" ScrollDC :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer) + (arg6 :pointer)) + +(defcfunex-exported ("ScrollWindow" ScrollWindow :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("ScrollWindowEx" ScrollWindowEx :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer) + (arg6 :pointer) + (arg7 :unsigned-int)) + +(defcfunex-exported ("SetScrollInfo" SetScrollInfo :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :pointer) + (arg3 :int)) + +(defcfunex-exported ("SetScrollPos" SetScrollPos :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :int)) + +(defcfunex-exported ("SetScrollRange" SetScrollRange :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :int) + (arg4 :int)) + +(defcfunex-exported ("ShowScrollBar" ShowScrollBar :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int)) + + + diff --git a/modules/win95.security.lisp b/modules/win95.security.lisp new file mode 100644 index 0000000..9beb77b --- /dev/null +++ b/modules/win95.security.lisp @@ -0,0 +1,549 @@ + +(cl:in-package w32apimod) + +(define-w32api-module win95.security :win95.security) + +(cl:in-package cl-w32api.module.win95.security) + +(defcfunex-exported ("AccessCheck" AccessCheck :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer) + (arg6 :pointer) + (arg7 :pointer)) + +(defcfunex-exported ("AccessCheckAndAuditAlarmA" AccessCheckAndAuditAlarmA :convention :stdcall) :int + (arg0 :string) + (arg1 :pointer) + (arg2 :string) + (arg3 :string) + (arg4 :pointer) + (arg5 :unsigned-long) + (arg6 :pointer) + (arg7 :int) + (arg8 :pointer) + (arg9 :pointer) + (arg10 :pointer)) + +(defcfunex-exported ("AccessCheckAndAuditAlarmW" AccessCheckAndAuditAlarmW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :unsigned-long) + (arg6 :pointer) + (arg7 :int) + (arg8 :pointer) + (arg9 :pointer) + (arg10 :pointer)) + +(defcfunex-exported ("AddAccessAllowedAce" AddAccessAllowedAce :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("AddAccessDeniedAce" AddAccessDeniedAce :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("AddAce" AddAce :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long)) + +(defcfunex-exported ("AddAuditAccessAce" AddAuditAccessAce :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :int) + (arg5 :int)) + +(defcfunex-exported ("AdjustTokenGroups" AdjustTokenGroups :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :pointer)) + +(defcfunex-exported ("AdjustTokenPrivileges" AdjustTokenPrivileges :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :pointer)) + +(defcfunex-exported ("AllocateAndInitializeSid" AllocateAndInitializeSid :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-char) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :unsigned-long) + (arg5 :unsigned-long) + (arg6 :unsigned-long) + (arg7 :unsigned-long) + (arg8 :unsigned-long) + (arg9 :unsigned-long) + (arg10 :pointer)) + +(defcfunex-exported ("AllocateLocallyUniqueId" AllocateLocallyUniqueId :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("AreAllAccessesGranted" AreAllAccessesGranted :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long)) + +(defcfunex-exported ("AreAnyAccessesGranted" AreAnyAccessesGranted :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long)) + +(defcfunex-exported ("CopySid" CopySid :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("CreatePrivateObjectSecurity" CreatePrivateObjectSecurity :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :int) + (arg4 :pointer) + (arg5 :pointer)) + +(defcfunex-exported ("DeleteAce" DeleteAce :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("DestroyPrivateObjectSecurity" DestroyPrivateObjectSecurity :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("DuplicateToken" DuplicateToken :convention :stdcall) :int + (arg0 :pointer) + (arg1 SECURITY_IMPERSONATION_LEVEL) + (arg2 :pointer)) + +(defcfunex-exported ("DuplicateTokenEx" DuplicateTokenEx :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 SECURITY_IMPERSONATION_LEVEL) + (arg4 TOKEN_TYPE) + (arg5 :pointer)) + +(defcfunex-exported ("EqualPrefixSid" EqualPrefixSid :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("EqualSid" EqualSid :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("FindFirstFreeAce" FindFirstFreeAce :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("FreeSid" FreeSid :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("GetAce" GetAce :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("GetAclInformation" GetAclInformation :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 ACL_INFORMATION_CLASS)) + +(defcfunex-exported ("GetFileSecurityA" GetFileSecurityA :convention :stdcall) :int + (arg0 :string) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer)) + +(defcfunex-exported ("GetFileSecurityW" GetFileSecurityW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer)) + +(defcfunex-exported ("GetKernelObjectSecurity" GetKernelObjectSecurity :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer)) + +(defcfunex-exported ("GetLengthSid" GetLengthSid :convention :stdcall) :unsigned-long + (arg0 :pointer)) + +(defcfunex-exported ("GetPrivateObjectSecurity" GetPrivateObjectSecurity :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer)) + +(defcfunex-exported ("GetSecurityDescriptorControl" GetSecurityDescriptorControl :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("GetSecurityDescriptorDacl" GetSecurityDescriptorDacl :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("GetSecurityDescriptorGroup" GetSecurityDescriptorGroup :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("GetSecurityDescriptorLength" GetSecurityDescriptorLength :convention :stdcall) :unsigned-long + (arg0 :pointer)) + +(defcfunex-exported ("GetSecurityDescriptorOwner" GetSecurityDescriptorOwner :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("GetSecurityDescriptorSacl" GetSecurityDescriptorSacl :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("GetSidIdentifierAuthority" GetSidIdentifierAuthority :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("GetSidLengthRequired" GetSidLengthRequired :convention :stdcall) :unsigned-long + (arg0 :unsigned-char)) + +(defcfunex-exported ("GetSidSubAuthority" GetSidSubAuthority :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("GetSidSubAuthorityCount" GetSidSubAuthorityCount :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("GetTokenInformation" GetTokenInformation :convention :stdcall) :int + (arg0 :pointer) + (arg1 TOKEN_INFORMATION_CLASS) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer)) + +(defcfunex-exported ("ImpersonateLoggedOnUser" ImpersonateLoggedOnUser :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("ImpersonateNamedPipeClient" ImpersonateNamedPipeClient :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("ImpersonateSelf" ImpersonateSelf :convention :stdcall) :int + (arg0 SECURITY_IMPERSONATION_LEVEL)) + +(defcfunex-exported ("InitializeAcl" InitializeAcl :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long)) + +(defcfunex-exported ("InitializeSecurityDescriptor" InitializeSecurityDescriptor :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("InitializeSid" InitializeSid :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-char)) + +(defcfunex-exported ("IsValidAcl" IsValidAcl :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("IsValidSecurityDescriptor" IsValidSecurityDescriptor :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("IsValidSid" IsValidSid :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("LogonUserA" LogonUserA :convention :stdcall) :int + (arg0 :string) + (arg1 :string) + (arg2 :string) + (arg3 :unsigned-long) + (arg4 :unsigned-long) + (arg5 :pointer)) + +(defcfunex-exported ("LogonUserW" LogonUserW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :unsigned-long) + (arg5 :pointer)) + +(defcfunex-exported ("LookupAccountNameA" LookupAccountNameA :convention :stdcall) :int + (arg0 :string) + (arg1 :string) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :string) + (arg5 :pointer) + (arg6 :pointer)) + +(defcfunex-exported ("LookupAccountNameW" LookupAccountNameW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer) + (arg6 :pointer)) + +(defcfunex-exported ("LookupAccountSidA" LookupAccountSidA :convention :stdcall) :int + (arg0 :string) + (arg1 :pointer) + (arg2 :string) + (arg3 :pointer) + (arg4 :string) + (arg5 :pointer) + (arg6 :pointer)) + +(defcfunex-exported ("LookupAccountSidW" LookupAccountSidW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer) + (arg6 :pointer)) + +(defcfunex-exported ("LookupPrivilegeDisplayNameA" LookupPrivilegeDisplayNameA :convention :stdcall) :int + (arg0 :string) + (arg1 :string) + (arg2 :string) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("LookupPrivilegeDisplayNameW" LookupPrivilegeDisplayNameW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("LookupPrivilegeNameA" LookupPrivilegeNameA :convention :stdcall) :int + (arg0 :string) + (arg1 :pointer) + (arg2 :string) + (arg3 :pointer)) + +(defcfunex-exported ("LookupPrivilegeNameW" LookupPrivilegeNameW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("LookupPrivilegeValueA" LookupPrivilegeValueA :convention :stdcall) :int + (arg0 :string) + (arg1 :string) + (arg2 :pointer)) + +(defcfunex-exported ("LookupPrivilegeValueW" LookupPrivilegeValueW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("MakeAbsoluteSD" MakeAbsoluteSD :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer) + (arg6 :pointer) + (arg7 :pointer) + (arg8 :pointer) + (arg9 :pointer) + (arg10 :pointer)) + +(defcfunex-exported ("MakeSelfRelativeSD" MakeSelfRelativeSD :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("MapGenericMask" MapGenericMask :convention :stdcall) :void + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("ObjectCloseAuditAlarmA" ObjectCloseAuditAlarmA :convention :stdcall) :int + (arg0 :string) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("ObjectCloseAuditAlarmW" ObjectCloseAuditAlarmW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("ObjectDeleteAuditAlarmA" ObjectDeleteAuditAlarmA :convention :stdcall) :int + (arg0 :string) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("ObjectDeleteAuditAlarmW" ObjectDeleteAuditAlarmW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("ObjectOpenAuditAlarmA" ObjectOpenAuditAlarmA :convention :stdcall) :int + (arg0 :string) + (arg1 :pointer) + (arg2 :string) + (arg3 :string) + (arg4 :pointer) + (arg5 :pointer) + (arg6 :unsigned-long) + (arg7 :unsigned-long) + (arg8 :pointer) + (arg9 :int) + (arg10 :int) + (arg11 :pointer)) + +(defcfunex-exported ("ObjectOpenAuditAlarmW" ObjectOpenAuditAlarmW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer) + (arg6 :unsigned-long) + (arg7 :unsigned-long) + (arg8 :pointer) + (arg9 :int) + (arg10 :int) + (arg11 :pointer)) + +(defcfunex-exported ("ObjectPrivilegeAuditAlarmA" ObjectPrivilegeAuditAlarmA :convention :stdcall) :int + (arg0 :string) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :int)) + +(defcfunex-exported ("ObjectPrivilegeAuditAlarmW" ObjectPrivilegeAuditAlarmW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :int)) + +(defcfunex-exported ("OpenProcessToken" OpenProcessToken :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("OpenThreadToken" OpenThreadToken :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :int) + (arg3 :pointer)) + +(defcfunex-exported ("PrivilegeCheck" PrivilegeCheck :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("PrivilegedServiceAuditAlarmA" PrivilegedServiceAuditAlarmA :convention :stdcall) :int + (arg0 :string) + (arg1 :string) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :int)) + +(defcfunex-exported ("PrivilegedServiceAuditAlarmW" PrivilegedServiceAuditAlarmW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :int)) + +(defcfunex-exported ("RevertToSelf" RevertToSelf :convention :stdcall) :int) + +(defcfunex-exported ("SetAclInformation" SetAclInformation :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 ACL_INFORMATION_CLASS)) + +(defcfunex-exported ("SetFileSecurityA" SetFileSecurityA :convention :stdcall) :int + (arg0 :string) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("SetFileSecurityW" SetFileSecurityW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("SetKernelObjectSecurity" SetKernelObjectSecurity :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("SetPrivateObjectSecurity" SetPrivateObjectSecurity :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("SetSecurityDescriptorDacl" SetSecurityDescriptorDacl :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :pointer) + (arg3 :int)) + +(defcfunex-exported ("SetSecurityDescriptorGroup" SetSecurityDescriptorGroup :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("SetSecurityDescriptorOwner" SetSecurityDescriptorOwner :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("SetSecurityDescriptorSacl" SetSecurityDescriptorSacl :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :pointer) + (arg3 :int)) + +(defcfunex-exported ("SetThreadToken" SetThreadToken :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("SetTokenInformation" SetTokenInformation :convention :stdcall) :int + (arg0 :pointer) + (arg1 TOKEN_INFORMATION_CLASS) + (arg2 :pointer) + (arg3 :unsigned-long)) + + diff --git a/modules/win95.seh.lisp b/modules/win95.seh.lisp new file mode 100644 index 0000000..24f1abf --- /dev/null +++ b/modules/win95.seh.lisp @@ -0,0 +1,14 @@ + + +(defcfunex-exported ("RaiseException" RaiseException :convention :stdcall) :void + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("SetUnhandledExceptionFilter" SetUnhandledExceptionFilter :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("UnhandledExceptionFilter" UnhandledExceptionFilter :convention :stdcall) :int32 + (arg0 :pointer)) + diff --git a/modules/win95.shell-lib.lisp b/modules/win95.shell-lib.lisp new file mode 100644 index 0000000..1fc4c71 --- /dev/null +++ b/modules/win95.shell-lib.lisp @@ -0,0 +1,108 @@ + +(cl:in-package w32apimod) + +(define-w32api-module win95.shell-lib :win95.shell-lib) + +(cl:in-package cl-w32api.module.win95.shell-lib) + +(defcfunex-exported ("DragAcceptFiles" DragAcceptFiles :convention :stdcall) :void + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("DragFinish" DragFinish :convention :stdcall) :void + (arg0 :pointer)) + +(defcfunex-exported ("DragQueryFileA" DragQueryFileA :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :string) + (arg3 :unsigned-int)) + +(defcfunex-exported ("DragQueryFileW" DragQueryFileW :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :pointer) + (arg3 :unsigned-int)) + +(defcfunex-exported ("DragQueryPoint" DragQueryPoint :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("ExtractAssociatedIconA" ExtractAssociatedIconA :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :string) + (arg2 :pointer)) + +(defcfunex-exported ("ExtractAssociatedIconW" ExtractAssociatedIconW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("ExtractIconA" ExtractIconA :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :string) + (arg2 :unsigned-int)) + +(defcfunex-exported ("ExtractIconW" ExtractIconW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("ExtractIconExA" ExtractIconExA :convention :stdcall) :unsigned-int + (arg0 :string) + (arg1 :int) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :unsigned-int)) + +(defcfunex-exported ("ExtractIconExW" ExtractIconExW :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :int) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :unsigned-int)) + +(defcfunex-exported ("FindExecutableA" FindExecutableA :convention :stdcall) :pointer + (arg0 :string) + (arg1 :string) + (arg2 :string)) + +(defcfunex-exported ("FindExecutableW" FindExecutableW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("ShellAboutA" ShellAboutA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string) + (arg2 :string) + (arg3 :pointer)) + +(defcfunex-exported ("ShellAboutW" ShellAboutW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("ShellExecuteA" ShellExecuteA :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :string) + (arg2 :string) + (arg3 :string) + (arg4 :string) + (arg5 :int)) + +(defcfunex-exported ("ShellExecuteW" ShellExecuteW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :int)) + +(defcfunex-exported ("ShellExecuteExA" ShellExecuteExA :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("ShellExecuteExW" ShellExecuteExW :convention :stdcall) :int + (arg0 :pointer)) + diff --git a/modules/win95.strmanip.lisp b/modules/win95.strmanip.lisp new file mode 100644 index 0000000..afc7ca1 --- /dev/null +++ b/modules/win95.strmanip.lisp @@ -0,0 +1,434 @@ + +(cl:in-package w32apimod) + +(define-w32api-module win95.strmanip :win95.strmanip) + +(cl:in-package cl-w32api.module.win95.strmanip) + +(defcfunex-exported ("CharLowerA" CharLowerA :convention :stdcall) :string + (arg0 :string)) + +(defcfunex-exported ("CharLowerW" CharLowerW :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("CharLowerBuffA" CharLowerBuffA :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :unsigned-long)) + +(defcfunex-exported ("CharLowerBuffW" CharLowerBuffW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("CharNextA" CharNextA :convention :stdcall) :string + (arg0 :string)) + +(defcfunex-exported ("CharNextW" CharNextW :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("CharNextExA" CharNextExA :convention :stdcall) :string + (arg0 :unsigned-short) + (arg1 :string) + (arg2 :unsigned-long)) + +(defcfunex-exported ("CharNextExW" CharNextExW :convention :stdcall) :pointer + (arg0 :unsigned-short) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("CharPrevA" CharPrevA :convention :stdcall) :string + (arg0 :string) + (arg1 :string)) + +(defcfunex-exported ("CharPrevW" CharPrevW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("CharPrevExA" CharPrevExA :convention :stdcall) :string + (arg0 :unsigned-short) + (arg1 :string) + (arg2 :string) + (arg3 :unsigned-long)) + +(defcfunex-exported ("CharPrevExW" CharPrevExW :convention :stdcall) :pointer + (arg0 :unsigned-short) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-long)) + +(defcfunex-exported ("CharToOemA" CharToOemA :convention :stdcall) :int + (arg0 :string) + (arg1 :string)) + +(defcfunex-exported ("CharToOemW" CharToOemW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string)) + +(defcfunex-exported ("CharToOemBuffA" CharToOemBuffA :convention :stdcall) :int + (arg0 :string) + (arg1 :string) + (arg2 :unsigned-long)) + +(defcfunex-exported ("CharToOemBuffW" CharToOemBuffW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string) + (arg2 :unsigned-long)) + +(defcfunex-exported ("CharUpperA" CharUpperA :convention :stdcall) :string + (arg0 :string)) + +(defcfunex-exported ("CharUpperW" CharUpperW :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("CharUpperBuffA" CharUpperBuffA :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :unsigned-long)) + +(defcfunex-exported ("CharUpperBuffW" CharUpperBuffW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("CompareStringA" CompareStringA :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :string) + (arg3 :int) + (arg4 :string) + (arg5 :int)) + +(defcfunex-exported ("CompareStringW" CompareStringW :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :int) + (arg4 :pointer) + (arg5 :int)) + +(defcfunex-exported ("ConvertDefaultLocale" ConvertDefaultLocale :convention :stdcall) :unsigned-long + (arg0 :unsigned-long)) + +(defcfunex-exported ("EnumCalendarInfoA" EnumCalendarInfoA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :unsigned-long)) + +(defcfunex-exported ("EnumCalendarInfoW" EnumCalendarInfoW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :unsigned-long)) + +(defcfunex-exported ("EnumDateFormatsA" EnumDateFormatsA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long)) + +(defcfunex-exported ("EnumDateFormatsW" EnumDateFormatsW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long)) + +(defcfunex-exported ("EnumSystemLocalesA" EnumSystemLocalesA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("EnumSystemLocalesW" EnumSystemLocalesW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("EnumTimeFormatsA" EnumTimeFormatsA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long)) + +(defcfunex-exported ("EnumTimeFormatsW" EnumTimeFormatsW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long)) + +(defcfunex-exported ("EnumSystemCodePagesA" EnumSystemCodePagesA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("EnumSystemCodePagesW" EnumSystemCodePagesW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("FoldStringA" FoldStringA :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :string) + (arg2 :int) + (arg3 :string) + (arg4 :int)) + +(defcfunex-exported ("FoldStringW" FoldStringW :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :int) + (arg3 :pointer) + (arg4 :int)) + +(defcfunex-exported ("FormatMessageA" FormatMessageA :convention :stdcall) :unsigned-long + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :string) + (arg5 :unsigned-long) + (arg6 :pointer)) + +(defcfunex-exported ("FormatMessageW" FormatMessageW :convention :stdcall) :unsigned-long + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :unsigned-long) + (arg6 :pointer)) + +(defcfunex-exported ("GetACP" GetACP :convention :stdcall) :unsigned-int) + +(defcfunex-exported ("GetCPInfo" GetCPInfo :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :pointer)) + +(defcfunex-exported ("GetCPInfoExA" GetCPInfoExA :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("GetCPInfoExW" GetCPInfoExW :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("GetCurrencyFormatA" GetCurrencyFormatA :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :string) + (arg3 :pointer) + (arg4 :string) + (arg5 :int)) + +(defcfunex-exported ("GetCurrencyFormatW" GetCurrencyFormatW :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :int)) + +(defcfunex-exported ("GetDateFormatA" GetDateFormatA :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :string) + (arg4 :string) + (arg5 :int)) + +(defcfunex-exported ("GetDateFormatW" GetDateFormatW :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :int)) + + +(defcfunex-exported ("IsCharAlphaA" IsCharAlphaA :convention :stdcall) :int + (ch :char)) + +(defcfunex-exported ("IsCharAlphaW" IsCharAlphaW :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("IsCharAlphaNumericA" IsCharAlphaNumericA :convention :stdcall) :int + (arg0 :char)) + +(defcfunex-exported ("IsCharAlphaNumericW" IsCharAlphaNumericW :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("IsCharLowerA" IsCharLowerA :convention :stdcall) :int + (arg0 :char)) + +(defcfunex-exported ("IsCharLowerW" IsCharLowerW :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("IsCharUpperA" IsCharUpperA :convention :stdcall) :int + (arg0 :char)) + +(defcfunex-exported ("IsCharUpperW" IsCharUpperW :convention :stdcall) :int + (arg0 :pointer)) + + +(defcfunex-exported ("GetNumberFormatA" GetNumberFormatA :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :string) + (arg3 :pointer) + (arg4 :string) + (arg5 :int)) + +(defcfunex-exported ("GetNumberFormatW" GetNumberFormatW :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :int)) + +(defcfunex-exported ("GetOEMCP" GetOEMCP :convention :stdcall) :unsigned-int) + +(defcfunex-exported ("GetStringTypeA" GetStringTypeA :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :string) + (arg3 :int) + (arg4 :pointer)) + +(defcfunex-exported ("GetStringTypeW" GetStringTypeW :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :int) + (arg3 :pointer)) + +(defcfunex-exported ("GetStringTypeExA" GetStringTypeExA :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :string) + (arg3 :int) + (arg4 :pointer)) + +(defcfunex-exported ("GetStringTypeExW" GetStringTypeExW :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :int) + (arg4 :pointer)) + + +(defcfunex-exported ("IsValidCodePage" IsValidCodePage :convention :stdcall) :int + (arg0 :unsigned-int)) + +(defcfunex-exported ("IsValidLocale" IsValidLocale :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long)) + +(defcfunex-exported ("LCMapStringA" LCMapStringA :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :string) + (arg3 :int) + (arg4 :string) + (arg5 :int)) + +(defcfunex-exported ("LCMapStringW" LCMapStringW :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :int) + (arg4 :pointer) + (arg5 :int)) + +(defcfunex-exported ("lstrcatA" lstrcatA :convention :stdcall) :string + (arg0 :string) + (arg1 :string)) + +(defcfunex-exported ("lstrcatW" lstrcatW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("lstrcmpA" lstrcmpA :convention :stdcall) :int + (arg0 :string) + (arg1 :string)) + +(defcfunex-exported ("lstrcmpiA" lstrcmpiA :convention :stdcall) :int + (arg0 :string) + (arg1 :string)) + +(defcfunex-exported ("lstrcmpiW" lstrcmpiW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("lstrcmpW" lstrcmpW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("lstrcpyA" lstrcpyA :convention :stdcall) :string + (arg0 :string) + (arg1 :string)) + +(defcfunex-exported ("lstrcpynA" lstrcpynA :convention :stdcall) :string + (arg0 :string) + (arg1 :string) + (arg2 :int)) + +(defcfunex-exported ("lstrcpynW" lstrcpynW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("lstrcpyW" lstrcpyW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("lstrlenA" lstrlenA :convention :stdcall) :int + (arg0 :string)) + +(defcfunex-exported ("lstrlenW" lstrlenW :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("MultiByteToWideChar" MultiByteToWideChar :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :unsigned-long) + (arg2 :string) + (arg3 :int) + (arg4 :pointer) + (arg5 :int)) + +(defcfunex-exported ("OemToCharA" OemToCharA :convention :stdcall) :int + (arg0 :string) + (arg1 :string)) + +(defcfunex-exported ("OemToCharW" OemToCharW :convention :stdcall) :int + (arg0 :string) + (arg1 :pointer)) + +(defcfunex-exported ("OemToCharBuffA" OemToCharBuffA :convention :stdcall) :int + (arg0 :string) + (arg1 :string) + (arg2 :unsigned-long)) + +(defcfunex-exported ("OemToCharBuffW" OemToCharBuffW :convention :stdcall) :int + (arg0 :string) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("WideCharToMultiByte" WideCharToMultiByte :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :int) + (arg4 :string) + (arg5 :int) + (arg6 :string) + (arg7 :pointer)) + +(defcfunex-exported ("wsprintfA" wsprintfA :convention :cdecl) :int + (arg0 :pointer) + (arg1 :string) + &rest) + +(defcfunex-exported ("wsprintfW" wsprintfW :convention :cdecl) :int + (arg0 :pointer) + (arg1 :pointer) + &rest) + +(defcfunex-exported ("wvsprintfA" wvsprintfA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string) + (arglist :pointer)) + +(defcfunex-exported ("wvsprintfW" wvsprintfW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arglist :pointer)) diff --git a/modules/win95.sync.lisp b/modules/win95.sync.lisp new file mode 100644 index 0000000..9e27e94 --- /dev/null +++ b/modules/win95.sync.lisp @@ -0,0 +1,206 @@ + +(cl:in-package w32apimod) + +(define-w32api-module win95.sync :win95.sync) + +(cl:in-package cl-w32api.module.win95.sync) + +(defcfunex-exported ("CancelWaitableTimer" CancelWaitableTimer :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("CreateEventA" CreateEventA :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :string)) + +(defcfunex-exported ("CreateEventW" CreateEventW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :pointer)) + +(defcfunex-exported ("CreateMutexA" CreateMutexA :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :int) + (arg2 :string)) + +(defcfunex-exported ("CreateMutexW" CreateMutexW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :int) + (arg2 :pointer)) + +(defcfunex-exported ("CreateSemaphoreA" CreateSemaphoreA :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :int32) + (arg2 :int32) + (arg3 :string)) + +(defcfunex-exported ("CreateSemaphoreW" CreateSemaphoreW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :int32) + (arg2 :int32) + (arg3 :pointer)) + +(defcfunex-exported ("CreateWaitableTimerA" CreateWaitableTimerA :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :int) + (arg2 :string)) + +(defcfunex-exported ("CreateWaitableTimerW" CreateWaitableTimerW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :int) + (arg2 :pointer)) + +(defcfunex-exported ("DeleteCriticalSection" DeleteCriticalSection :convention :stdcall) :void + (arg0 :pointer)) + +(defcfunex-exported ("EnterCriticalSection" EnterCriticalSection :convention :stdcall) :void + (arg0 :pointer)) + +(defcfunex-exported ("GetOverlappedResult" GetOverlappedResult :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :int)) + +(defcfunex-exported ("InitializeCriticalSection" InitializeCriticalSection :convention :stdcall) :void + (arg0 :pointer)) + +(defcfunex-exported ("InterlockedCompareExchange" InterlockedCompareExchange :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :int32) + (arg2 :int32)) + +(defcfunex-exported ("InterlockedDecrement" InterlockedDecrement :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("InterlockedExchange" InterlockedExchange :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :int32)) + +(defcfunex-exported ("InterlockedExchangeAdd" InterlockedExchangeAdd :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :int32)) + +(defcfunex-exported ("InterlockedIncrement" InterlockedIncrement :convention :stdcall) :int32 + (arg0 :pointer)) + +(defcfunex-exported ("LeaveCriticalSection" LeaveCriticalSection :convention :stdcall) :void + (arg0 :pointer)) + +(defcfunex-exported ("MsgWaitForMultipleObjects" MsgWaitForMultipleObjects :convention :stdcall) :unsigned-long + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :int) + (arg3 :unsigned-long) + (arg4 :unsigned-long)) + +(defcfunex-exported ("MsgWaitForMultipleObjectsEx" MsgWaitForMultipleObjectsEx :convention :stdcall) :unsigned-long + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :unsigned-long)) + +(defcfunex-exported ("OpenEventA" OpenEventA :convention :stdcall) :pointer + (arg0 :unsigned-long) + (arg1 :int) + (arg2 :string)) + +(defcfunex-exported ("OpenEventW" OpenEventW :convention :stdcall) :pointer + (arg0 :unsigned-long) + (arg1 :int) + (arg2 :pointer)) + +(defcfunex-exported ("OpenMutexA" OpenMutexA :convention :stdcall) :pointer + (arg0 :unsigned-long) + (arg1 :int) + (arg2 :string)) + +(defcfunex-exported ("OpenMutexW" OpenMutexW :convention :stdcall) :pointer + (arg0 :unsigned-long) + (arg1 :int) + (arg2 :pointer)) + +(defcfunex-exported ("OpenSemaphoreA" OpenSemaphoreA :convention :stdcall) :pointer + (arg0 :unsigned-long) + (arg1 :int) + (arg2 :string)) + +(defcfunex-exported ("OpenSemaphoreW" OpenSemaphoreW :convention :stdcall) :pointer + (arg0 :unsigned-long) + (arg1 :int) + (arg2 :pointer)) + +(defcfunex-exported ("OpenWaitableTimerA" OpenWaitableTimerA :convention :stdcall) :pointer + (arg0 :unsigned-long) + (arg1 :int) + (arg2 :string)) + +(defcfunex-exported ("OpenWaitableTimerW" OpenWaitableTimerW :convention :stdcall) :pointer + (arg0 :unsigned-long) + (arg1 :int) + (arg2 :pointer)) + +(defcfunex-exported ("PulseEvent" PulseEvent :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("QueueUserAPC" QueueUserAPC :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("ReleaseMutex" ReleaseMutex :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("ReleaseSemaphore" ReleaseSemaphore :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int32) + (arg2 :pointer)) + +(defcfunex-exported ("ResetEvent" ResetEvent :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("SetEvent" SetEvent :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("SetWaitableTimer" SetWaitableTimer :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int32) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :int)) + +(defcfunex-exported ("SignalObjectAndWait" SignalObjectAndWait :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :int)) + +(defcfunex-exported ("TryEnterCriticalSection" TryEnterCriticalSection :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("WaitForMultipleObjects" WaitForMultipleObjects :convention :stdcall) :unsigned-long + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :int) + (arg3 :unsigned-long)) + +(defcfunex-exported ("WaitForMultipleObjectsEx" WaitForMultipleObjectsEx :convention :stdcall) :unsigned-long + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :int) + (arg3 :unsigned-long) + (arg4 :int)) + +(defcfunex-exported ("WaitForSingleObject" WaitForSingleObject :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("WaitForSingleObjectEx" WaitForSingleObjectEx :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :int)) + diff --git a/modules/win95.sysinfo.lisp b/modules/win95.sysinfo.lisp new file mode 100644 index 0000000..d3e8619 --- /dev/null +++ b/modules/win95.sysinfo.lisp @@ -0,0 +1,104 @@ + +(cl:in-package w32apimod) + +(define-w32api-module win95.sysinfo :win95.sysinfo) + +(cl:in-package cl-w32api.module.win95.sysinfo) + +(defcfunex-exported ("ExpandEnvironmentStringsA" ExpandEnvironmentStringsA :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :string) + (arg2 :unsigned-long)) + +(defcfunex-exported ("ExpandEnvironmentStringsW" ExpandEnvironmentStringsW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("GetComputerNameA" GetComputerNameA :convention :stdcall) :int + (arg0 :string) + (arg1 :pointer)) + +(defcfunex-exported ("GetComputerNameW" GetComputerNameW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetCurrentHwProfileA" GetCurrentHwProfileA :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("GetCurrentHwProfileW" GetCurrentHwProfileW :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("GetKeyboardType" GetKeyboardType :convention :stdcall) :int + (arg0 :int)) + +(defcfunex-exported ("GetSysColor" GetSysColor :convention :stdcall) :unsigned-long + (arg0 :int)) + +(defcfunex-exported ("GetSystemDirectoryA" GetSystemDirectoryA :convention :stdcall) :unsigned-int + (arg0 :string) + (arg1 :unsigned-int)) + +(defcfunex-exported ("GetSystemDirectoryW" GetSystemDirectoryW :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int)) + +(defcfunex-exported ("GetSystemInfo" GetSystemInfo :convention :stdcall) :void + (arg0 :pointer)) + +(defcfunex-exported ("GetSystemMetrics" GetSystemMetrics :convention :stdcall) :int + (arg0 :int)) + +(defcfunex-exported ("GetUserNameA" GetUserNameA :convention :stdcall) :int + (arg0 :string) + (arg1 :pointer)) + +(defcfunex-exported ("GetUserNameW" GetUserNameW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetVersionExA" GetVersionExA :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("GetVersionExW" GetVersionExW :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("GetWindowsDirectoryA" GetWindowsDirectoryA :convention :stdcall) :unsigned-int + (arg0 :string) + (arg1 :unsigned-int)) + +(defcfunex-exported ("GetWindowsDirectoryW" GetWindowsDirectoryW :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int)) + +(defcfunex-exported ("IsProcessorFeaturePresent" IsProcessorFeaturePresent :convention :stdcall) :int + (arg0 :unsigned-long)) + +(defcfunex-exported ("SetComputerNameA" SetComputerNameA :convention :stdcall) :int + (arg0 :string)) + +(defcfunex-exported ("SetComputerNameW" SetComputerNameW :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("SetSysColors" SetSysColors :convention :stdcall) :int + (arg0 :int) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("SystemParametersInfoA" SystemParametersInfoA :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :unsigned-int) + (arg2 :pointer) + (arg3 :unsigned-int)) + +(defcfunex-exported ("SystemParametersInfoW" SystemParametersInfoW :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :unsigned-int) + (arg2 :pointer) + (arg3 :unsigned-int)) + + +;;obsolete + +(defcfunex-exported ("GetVersion" GetVersion :convention :stdcall) :unsigned-long) + diff --git a/modules/win95.tape-backup.lisp b/modules/win95.tape-backup.lisp new file mode 100644 index 0000000..994df96 --- /dev/null +++ b/modules/win95.tape-backup.lisp @@ -0,0 +1,77 @@ +(defcfunex-exported ("BackupRead" BackupRead :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :int) + (arg5 :int) + (arg6 :pointer)) + +(defcfunex-exported ("BackupSeek" BackupSeek :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer)) + +(defcfunex-exported ("BackupWrite" BackupWrite :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :int) + (arg5 :int) + (arg6 :pointer)) + +(defcfunex-exported ("CreateTapePartition" CreateTapePartition :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :unsigned-long)) + +(defcfunex-exported ("EraseTape" EraseTape :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :int)) + +(defcfunex-exported ("GetTapeParameters" GetTapeParameters :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("GetTapePosition" GetTapePosition :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("GetTapeStatus" GetTapeStatus :convention :stdcall) :unsigned-long + (arg0 :pointer)) + +(defcfunex-exported ("PrepareTape" PrepareTape :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :int)) + +(defcfunex-exported ("SetTapeParameters" SetTapeParameters :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("SetTapePosition" SetTapePosition :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :unsigned-long) + (arg5 :int)) + +(defcfunex-exported ("WriteTapemark" WriteTapemark :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :int)) + diff --git a/modules/win95.time.lisp b/modules/win95.time.lisp new file mode 100644 index 0000000..f7a3ad2 --- /dev/null +++ b/modules/win95.time.lisp @@ -0,0 +1,88 @@ + +(cl:in-package w32apimod) + +(define-w32api-module win95.time :win95.time) + +(cl:in-package cl-w32api.module.win95.time) + +(defcfunex-exported ("CompareFileTime" CompareFileTime :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("DosDateTimeToFileTime" DosDateTimeToFileTime :convention :stdcall) :int + (arg0 :unsigned-short) + (arg1 :unsigned-short) + (arg2 :pointer)) + +(defcfunex-exported ("FileTimeToDosDateTime" FileTimeToDosDateTime :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("FileTimeToLocalFileTime" FileTimeToLocalFileTime :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("FileTimeToSystemTime" FileTimeToSystemTime :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetFileTime" GetFileTime :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("GetLocalTime" GetLocalTime :convention :stdcall) :void + (arg0 :pointer)) + +(defcfunex-exported ("GetSystemTime" GetSystemTime :convention :stdcall) :void + (arg0 :pointer)) + +(defcfunex-exported ("GetSystemTimeAdjustment" GetSystemTimeAdjustment :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("GetSystemTimeAsFileTime" GetSystemTimeAsFileTime :convention :stdcall) :void + (arg0 :pointer)) + +(defcfunex-exported ("GetTickCount" GetTickCount :convention :stdcall) :unsigned-long) + +(defcfunex-exported ("GetTimeZoneInformation" GetTimeZoneInformation :convention :stdcall) :unsigned-long + (arg0 :pointer)) + +(defcfunex-exported ("LocalFileTimeToFileTime" LocalFileTimeToFileTime :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("SetFileTime" SetFileTime :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("SetLocalTime" SetLocalTime :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("SetSystemTime" SetSystemTime :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("SetSystemTimeAdjustment" SetSystemTimeAdjustment :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :int)) + +(defcfunex-exported ("SetTimeZoneInformation" SetTimeZoneInformation :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("SystemTimeToFileTime" SystemTimeToFileTime :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("SystemTimeToTzSpecificLocalTime" SystemTimeToTzSpecificLocalTime :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +;;obsolete + diff --git a/modules/win95.timer.lisp b/modules/win95.timer.lisp new file mode 100644 index 0000000..f982a79 --- /dev/null +++ b/modules/win95.timer.lisp @@ -0,0 +1,16 @@ +(defcfunex-exported ("KillTimer" KillTimer :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int)) + +(defcfunex-exported ("QueryPerformanceCounter" QueryPerformanceCounter :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("QueryPerformanceFrequency" QueryPerformanceFrequency :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("SetTimer" SetTimer :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :pointer)) + diff --git a/modules/win95.unicode-charset.lisp b/modules/win95.unicode-charset.lisp new file mode 100644 index 0000000..7104a8f --- /dev/null +++ b/modules/win95.unicode-charset.lisp @@ -0,0 +1,17 @@ +(defcfunex-exported ("GetTextCharset" GetTextCharset :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("GetTextCharsetInfo" GetTextCharsetInfo :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("IsDBCSLeadByteEx" IsDBCSLeadByteEx :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :unsigned-char)) + +(defcfunex-exported ("TranslateCharsetInfo" TranslateCharsetInfo :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + diff --git a/modules/win95.window.lisp b/modules/win95.window.lisp new file mode 100644 index 0000000..a625870 --- /dev/null +++ b/modules/win95.window.lisp @@ -0,0 +1,304 @@ + +(cl:in-package w32apimod) + +(define-w32api-module win95.window :win95.window) + +(cl:in-package cl-w32api.module.win95.window) + +(require-and-inherit-module "win95.~") + +(defcfunex-exported ("AdjustWindowRect" AdjustWindowRect :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :int)) + +(defcfunex-exported ("AdjustWindowRectEx" AdjustWindowRectEx :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :int) + (arg3 :unsigned-long)) + +(defcfunex-exported ("ArrangeIconicWindows" ArrangeIconicWindows :convention :stdcall) :unsigned-int + (arg0 :pointer)) + +(defcfunex-exported ("BeginDeferWindowPos" BeginDeferWindowPos :convention :stdcall) :pointer + (arg0 :int)) + +(defcfunex-exported ("BringWindowToTop" BringWindowToTop :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("CascadeWindows" CascadeWindows :convention :stdcall) :unsigned-short + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :pointer) + (arg3 :unsigned-int) + (arg4 :pointer)) + +(defcfunex-exported ("ChildWindowFromPoint" ChildWindowFromPoint :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 (:inline POINT))) + +(defcfunex-exported ("ChildWindowFromPointEx" ChildWindowFromPointEx :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 (:inline POINT)) + (arg2 :unsigned-int)) + +(defcfunex-exported ("CloseWindow" CloseWindow :convention :stdcall) BOOL + (|hWnd| HWND)) + +(defbitfield (WINDOW-STYLES DWORD) + (:BORDER #x800000) + (:CAPTION #xc00000) + (:CHILD #x40000000) + (:CHILDWINDOW #x40000000) + (:CLIPCHILDREN #x2000000) + (:CLIPSIBLINGS #x4000000) + (:DISABLED #x8000000) + (:DLGFRAME #x400000) + (:GROUP #x20000) + (:HSCROLL #x100000) + (:ICONIC #x20000000) + (:MAXIMIZE #x1000000) + (:MAXIMIZEBOX #x10000) + (:MINIMIZE #x20000000) + (:MINIMIZEBOX #x20000) + (:OVERLAPPED 0) + (:OVERLAPPEDWINDOW #xcf0000) + (:POPUP #x80000000) + (:POPUPWINDOW #x80880000) + (:SIZEBOX #x40000) + (:SYSMENU #x80000) + (:TABSTOP #x10000) + (:THICKFRAME #x40000) + (:TILED 0) + (:TILEDWINDOW #xcf0000) + (:VISIBLE #x10000000) + (:VSCROLL #x200000)) +(export 'WINDOW-STYLES) + +(defcfunex-exported ("CreateWindowExA" CreateWindowExA :convention :stdcall) :pointer + (|dwExStyle| DWORD) + (|lpClassName| ASTRING) + (|lpWindowName| ASTRING) + (|dwStyle| WINDOW-STYLES) + (|x| :int) + (|y| :int) + (|nWidth| :int) + (|nHeight| :int) + (|hWndParent| HWND) + (|hMenu| HMENU) + (|hInstance| HINSTANCE) + (|lpParam| :pointer)) + + +(defcfunex-exported ("CreateWindowExW" CreateWindowExW :convention :stdcall) HWND + (|dwExStyle| DWORD) + (|lpClassName| WSTRING) + (|lpWindowName| WSTRING) + (|dwStyle| WINDOW-STYLES) + (|x| :int) + (|y| :int) + (|nWidth| :int) + (|nHeight| :int) + (|hWndParent| HWND) + (|hMenu| HMENU) + (|hInstance| HINSTANCE) + (|lpParam| :pointer)) + +(define-abbrev-exported CreateWindowEx CreateWindowExW) + +(defmacro-exported CreateWindow + (&whole form |lpClassName| |lpWindowName| |dwStyle| |x| |y| |nWidth| |nHeight| + |hWndParent| |hMenu| |hInstance| |lpParam|) + (declare (ignore |lpClassName| |lpWindowName| |dwStyle| |x| |y| |nWidth| |nHeight| + |hWndParent| |hMenu| |hInstance| |lpParam| )) + `(CreateWindowEx ,@(cdr form))) + +(defcfunex-exported ("DeferWindowPos" DeferWindowPos :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :int) + (arg4 :int) + (arg5 :int) + (arg6 :int) + (arg7 :unsigned-int)) + +(defcfunex-exported ("DestroyWindow" DestroyWindow :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("EnableWindow" EnableWindow :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("EndDeferWindowPos" EndDeferWindowPos :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("EnumWindows" EnumWindows :convention :stdcall) :int + (lpEnumFunc :pointer) + (lParam :int32)) + +(defcfunex-exported ("FindWindowA" FindWindowA :convention :stdcall) :pointer + (arg0 :string) + (arg1 :string)) + +(defcfunex-exported ("FindWindowW" FindWindowW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("FindWindowExA" FindWindowExA :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :string) + (arg3 :string)) + +(defcfunex-exported ("FindWindowExW" FindWindowExW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("GetClientRect" GetClientRect :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("GetDesktopWindow" GetDesktopWindow :convention :stdcall) :pointer) + +(defcfunex-exported ("GetForegroundWindow" GetForegroundWindow :convention :stdcall) :pointer) + +(defcfunex-exported ("GetLastActivePopup" GetLastActivePopup :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("GetTopWindow" GetTopWindow :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("GetWindowTextA" GetWindowTextA :convention :stdcall) :int + (hWnd :pointer) + (lpString :string) + (nMaxCount :int)) + +(defcfunex-exported ("GetWindowTextW" GetWindowTextW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("GetWindowTextLengthA" GetWindowTextLengthA :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("GetWindowTextLengthW" GetWindowTextLengthW :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("GetWindowThreadProcessId" GetWindowThreadProcessId :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("IsWindow" IsWindow :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("IsWindowUnicode" IsWindowUnicode :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("IsWindowVisible" IsWindowVisible :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("MoveWindow" MoveWindow :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :int) + (arg3 :int) + (arg4 :int) + (arg5 :int)) + +(defcfunex-exported ("OpenIcon" OpenIcon :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("SetParent" SetParent :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("SetWindowLongA" SetWindowLongA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :int) + (arg2 :int32)) + +(defcfunex-exported ("SetWindowLongW" SetWindowLongW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :int) + (arg2 :int32)) + +(defcfunex-exported ("SetWindowPlacement" SetWindowPlacement :convention :stdcall) :int + (hWnd :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("SetWindowPos" SetWindowPos :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int) + (arg3 :int) + (arg4 :int) + (arg5 :int) + (arg6 :unsigned-int)) + +(defcfunex-exported ("SetWindowTextA" SetWindowTextA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string)) + +(defcfunex-exported ("SetWindowTextW" SetWindowTextW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("ShowOwnedPopups" ShowOwnedPopups :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int)) + +(defcenum (SHOWWINDOW-FLAGS :int) + (:HIDE 0) + (:NORMAL 1) + (:SHOWNORMAL 1) + (:SHOWMINIMIZED 2) + (:MAXIMIZE 3) + (:SHOWMAXIMIZED 3) + (:SHOWNOACTIVATE 4) + (:SHOW 5) + (:MINIMIZE 6) + (:SHOWMINNOACTIVE 7) + (:SHOWNA 8) + (:RESTORE 9) + (:SHOWDEFAULT 10) + (:FORCEMINIMIZE 11) + (:MAX 11)) + +(defcfunex-exported ("ShowWindow" ShowWindow :convention :stdcall) BOOL + (|hWnd| HWND) + (|nCmdShow| SHOWWINDOW-FLAGS)) + +(defcfunex-exported ("ShowWindowAsync" ShowWindowAsync :convention :stdcall) BOOL + (|hWnd| HWND) + (|nCmdShow| SHOWWINDOW-FLAGS)) + +(defcfunex-exported ("TileWindows" TileWindows :convention :stdcall) :unsigned-short + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :pointer) + (arg3 :unsigned-int) + (arg4 :pointer)) + +(defcfunex-exported ("WindowFromPoint" WindowFromPoint :convention :stdcall) :pointer + (point (:inline POINT))) + +(defcfunex-exported ("WinMain" WinMain :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :string) + (arg3 :int)) + +(defcfunex-exported ("wWinMain" wWinMain :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :int)) + + +;;obsolete +(defcfunex-exported ("AnyPopup" AnyPopup :convention :stdcall) :int) + diff --git a/modules/win95.winsta-desktop.lisp b/modules/win95.winsta-desktop.lisp new file mode 100644 index 0000000..c2c3676 --- /dev/null +++ b/modules/win95.winsta-desktop.lisp @@ -0,0 +1,143 @@ + +(cl:in-package w32apimod) + +(define-w32api-module win95.winsta-desktop :win95.winsta-desktop) + +(cl:in-package cl-w32api.module.win95.winsta-desktop) + +(defcfunex-exported ("CloseDesktop" CloseDesktop :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("CloseWindowStation" CloseWindowStation :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("CreateDesktopA" CreateDesktopA :convention :stdcall) :pointer + (arg0 :string) + (arg1 :string) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :unsigned-long) + (arg5 :pointer)) + +(defcfunex-exported ("CreateDesktopW" CreateDesktopW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :unsigned-long) + (arg5 :pointer)) + +(defcfunex-exported ("CreateWindowStationA" CreateWindowStationA :convention :stdcall) :pointer + (arg0 :string) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("CreateWindowStationW" CreateWindowStationW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :unsigned-long) + (arg3 :pointer)) + +(defcfunex-exported ("EnumDesktopsA" EnumDesktopsA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int32)) + +(defcfunex-exported ("EnumDesktopsW" EnumDesktopsW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int32)) + +(defcfunex-exported ("EnumDesktopWindows" EnumDesktopWindows :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int32)) + +(defcfunex-exported ("EnumWindowStationsA" EnumWindowStationsA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int32)) + +(defcfunex-exported ("EnumWindowStationsW" EnumWindowStationsW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int32)) + +(defcfunex-exported ("GetProcessWindowStation" GetProcessWindowStation :convention :stdcall) :pointer) + +(defcfunex-exported ("GetThreadDesktop" GetThreadDesktop :convention :stdcall) :pointer + (arg0 :unsigned-long)) + +(defcfunex-exported ("GetUserObjectInformationA" GetUserObjectInformationA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer)) + +(defcfunex-exported ("GetUserObjectInformationW" GetUserObjectInformationW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer)) + +(defcfunex-exported ("GetUserObjectSecurity" GetUserObjectSecurity :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer)) + +(defcfunex-exported ("OpenDesktopA" OpenDesktopA :convention :stdcall) :pointer + (arg0 :string) + (arg1 :unsigned-long) + (arg2 :int) + (arg3 :unsigned-long)) + +(defcfunex-exported ("OpenDesktopW" OpenDesktopW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :int) + (arg3 :unsigned-long)) + +(defcfunex-exported ("OpenInputDesktop" OpenInputDesktop :convention :stdcall) :pointer + (arg0 :unsigned-long) + (arg1 :int) + (arg2 :unsigned-long)) + +(defcfunex-exported ("OpenWindowStationA" OpenWindowStationA :convention :stdcall) :pointer + (arg0 :string) + (arg1 :int) + (arg2 :unsigned-long)) + +(defcfunex-exported ("OpenWindowStationW" OpenWindowStationW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :int) + (arg2 :unsigned-long)) + +(defcfunex-exported ("SetProcessWindowStation" SetProcessWindowStation :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("SetThreadDesktop" SetThreadDesktop :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("SetUserObjectInformationA" SetUserObjectInformationA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :pointer) + (arg3 :unsigned-long)) + +(defcfunex-exported ("SetUserObjectInformationW" SetUserObjectInformationW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :pointer) + (arg3 :unsigned-long)) + +(defcfunex-exported ("SetUserObjectSecurity" SetUserObjectSecurity :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("SwitchDesktop" SwitchDesktop :convention :stdcall) :int + (arg0 :pointer)) + diff --git a/modules/win95.wndclass.lisp b/modules/win95.wndclass.lisp new file mode 100644 index 0000000..8d2c253 --- /dev/null +++ b/modules/win95.wndclass.lisp @@ -0,0 +1,162 @@ + +(cl:in-package w32apimod) + +(define-w32api-module win95.wndclass :win95.wndclass) + +(cl:in-package cl-w32api.module.win95.wndclass) + +(require-and-inherit-module "win95.~") + +(defbitfield (WNDCLASS-STYLES UINT) + (:BYTEALIGNCLIENT 4096) + (:BYTEALIGNWINDOW 8192) + (:KEYCVTWINDOW 4) + (:NOKEYCVT 256) + (:CLASSDC 64) + (:DBLCLKS 8) + (:GLOBALCLASS 16384) + (:HREDRAW 2) + (:NOCLOSE 512) + (:OWNDC 32) + (:PARENTDC 128) + (:SAVEBITS 2048) + (:VREDRAW 1) + (:IME #x10000)) + +(defcstructex-exported WNDCLASSA + (style WNDCLASS-STYLES) + (lpfnWndProc :pointer) + (cbClsExtra :int) + (cbWndExtra :int) + (hInstance HINSTANCE) + (hIcon HICON) + (hCursor HCURSOR) + (hbrBackground HBRUSH) + (lpszMenuName ASTRING) + (lpszClassName ASTRING)) + +(defcstructex-exported WNDCLASSW + (style WNDCLASS-STYLES) + (lpfnWndProc :pointer) + (cbClsExtra :int) + (cbWndExtra :int) + (hInstance HINSTANCE) + (hIcon HICON) + (hCursor HCURSOR) + (hbrBackground HBRUSH) + (lpszMenuName WSTRING) + (lpszClassName WSTRING)) + +(defcstructex-exported WNDCLASSEXA + (cbSize UINT) + (style WNDCLASS-STYLES) + (lpfnWndProc :pointer) + (cbClsExtra :int) + (cbWndExtra :int) + (hInstance HINSTANCE) + (hIcon HICON) + (hCursor HCURSOR) + (hbrBackground HBRUSH) + (lpszMenuName ASTRING) + (lpszClassName ASTRING) + (hIconSm HICON)) + +(defcstructex-exported WNDCLASSEXW + (cbSize UINT) + (style WNDCLASS-STYLES) + (lpfnWndProc :pointer) + (cbClsExtra :int) + (cbWndExtra :int) + (hInstance HINSTANCE) + (hIcon HICON) + (hCursor HCURSOR) + (hbrBackground HBRUSH) + (lpszMenuName WSTRING) + (lpszClassName WSTRING) + (hIconSm HICON)) + +(defcfunex-exported ("GetClassInfoA" GetClassInfoA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string) + (arg2 :pointer)) + +(defcfunex-exported ("GetClassInfoExA" GetClassInfoExA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string) + (arg2 :pointer)) + +(defcfunex-exported ("GetClassInfoW" GetClassInfoW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("GetClassInfoExW" GetClassInfoExW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("GetClassLongA" GetClassLongA :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("GetClassLongW" GetClassLongW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :int)) + +;; TESTED +(defcfunex-exported ("GetClassNameA" GetClassNameA :convention :stdcall) :int + (hWnd :pointer) + (lpClassName :string) + (nMaxCount :int)) + +(defcfunex-exported ("GetClassNameW" GetClassNameW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("GetClassWord" GetClassWord :convention :stdcall) :unsigned-short + (arg0 :pointer) + (arg1 :int)) + +(defcfunex-exported ("RegisterClassA" RegisterClassA :convention :stdcall) ATOM_T + (arg0 :pointer)) + +(defcfunex-exported ("RegisterClassW" RegisterClassW :convention :stdcall) ATOM_T + (arg0 :pointer)) + +(defcfunex-exported ("RegisterClassExA" RegisterClassExA :convention :stdcall) ATOM_T + (arg0 WNDCLASSEXA)) + +(defcfunex-exported ("RegisterClassExW" RegisterClassExW :convention :stdcall) ATOM_T + (arg0 WNDCLASSEXW)) + +(define-abbrev-exported RegisterClassEx RegisterClassExW) + +(defcfunex-exported ("SetClassLongA" SetClassLongA :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :int) + (arg2 :int32)) + +(defcfunex-exported ("SetClassLongW" SetClassLongW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :int) + (arg2 :int32)) + +(defcfunex-exported ("SetClassWord" SetClassWord :convention :stdcall) :unsigned-short + (arg0 :pointer) + (arg1 :int) + (arg2 :unsigned-short)) + +(defcfunex-exported ("SetWindowWord" SetWindowWord :convention :stdcall) :unsigned-short + (arg0 :pointer) + (arg1 :int) + (arg2 :unsigned-short)) + +(defcfunex-exported ("UnregisterClassA" UnregisterClassA :convention :stdcall) :int + (arg0 :string) + (arg1 :pointer)) + +(defcfunex-exported ("UnregisterClassW" UnregisterClassW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + diff --git a/modules/win95.wndproc.lisp b/modules/win95.wndproc.lisp new file mode 100644 index 0000000..d58a35e --- /dev/null +++ b/modules/win95.wndproc.lisp @@ -0,0 +1,14 @@ +(defcfunex-exported ("CallWindowProcA" CallWindowProcA :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int) + (arg3 :unsigned-int) + (arg4 :int32)) + +(defcfunex-exported ("CallWindowProcW" CallWindowProcW :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int) + (arg3 :unsigned-int) + (arg4 :int32)) + diff --git a/modules/win95.wndprop.lisp b/modules/win95.wndprop.lisp new file mode 100644 index 0000000..e6693ab --- /dev/null +++ b/modules/win95.wndprop.lisp @@ -0,0 +1,51 @@ + +(cl:in-package w32apimod) + +(define-w32api-module win95.wndprop :win95.wndprop) + +(cl:in-package cl-w32api.module.win95.wndprop) + +(defcfunex-exported ("EnumPropsA" EnumPropsA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("EnumPropsW" EnumPropsW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("EnumPropsExA" EnumPropsExA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int32)) + +(defcfunex-exported ("EnumPropsExW" EnumPropsExW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int32)) + +(defcfunex-exported ("GetPropA" GetPropA :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :string)) + +(defcfunex-exported ("GetPropW" GetPropW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("RemovePropA" RemovePropA :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :string)) + +(defcfunex-exported ("RemovePropW" RemovePropW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("SetPropA" SetPropA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string) + (arg2 :pointer)) + +(defcfunex-exported ("SetPropW" SetPropW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + diff --git a/modules/win95.~.lisp b/modules/win95.~.lisp new file mode 100644 index 0000000..d9af9d7 --- /dev/null +++ b/modules/win95.~.lisp @@ -0,0 +1,83 @@ + +(cl:in-package w32apimod) + +(define-w32api-module win95.~ :win95.~) + +(cl:in-package cl-w32api.module.win95.~) + +(defctype-exported VOID :void) + +(defctype-exported BOOL :boolean) +(defctype-exported DWORD :unsigned-long) + +(defctype-exported UINT :unsigned-int) +(defctype-exported LONG :int32) + +(defctype-exported WPARAM :unsigned-int) +(defctype-exported LPARAM :int32) +(defctype-exported LRESULT :int32) +(defctype-exported HRESULT :int32) + +(defctype-exported COLORREF :unsigned-long) +(defctype-exported COLOR16 :unsigned-short) + +(defctype-exported SIZE_T :unsigned-long) + +(defctype-exported ATOM_T :unsigned-short) + + +(defctype-exported HACCEL HANDLE) +(defctype-exported HBITMAP HANDLE) +(defctype-exported HBRUSH HANDLE) +(defctype-exported HCOLORSPACE HANDLE) +(defctype-exported HCURSOR HANDLE) +(defctype-exported HDC HANDLE) +(defctype-exported HGLRC HANDLE) +(defctype-exported HDESK HANDLE) +(defctype-exported HENHMETAFILE HANDLE) +(defctype-exported HFILE HANDLE) +(defctype-exported HFONT HANDLE) +(defctype-exported HICON HANDLE) +(defctype-exported HKEY HANDLE) +(defctype-exported HMONITOR HANDLE) +(defctype-exported HTERMINAL HANDLE) +(defctype-exported HWINEVENTHOOK HANDLE) +(defctype-exported HMENU HANDLE) +(defctype-exported HMETAFILE HANDLE) +(defctype-exported HMODULE HANDLE) +(defctype-exported HINSTANCE HANDLE) +(defctype-exported HPALETTE HANDLE) +(defctype-exported HPEN HANDLE) +(defctype-exported HRGN HANDLE) +(defctype-exported HRSRC HANDLE) +(defctype-exported HSTR HANDLE) +(defctype-exported HTASK HANDLE) +(defctype-exported HWND HANDLE) +(defctype-exported HWINSTA HANDLE) +(defctype-exported HKL HANDLE) + +(defcstructex-exported POINT + (x LONG) + (y LONG)) + +(defcstructex-exported RECT + (left LONG) + (top LONG) + (right LONG) + (bottom LONG)) + + + + +(export '(cl-w32api.types::astring + cl-w32api.types::wstring + cl-w32api.types::handle + )) +;;(defctype-exported ASTRING :string) +;;(defctype-exported WSTRING :string) + + +;;(defconstant-exported %nullptr (null-pointer)) + +(defmacro-exported MAKEINTRESOURCE (x) + (make-pointer x)) diff --git a/modules/winmm.lisp b/modules/winmm.lisp new file mode 100644 index 0000000..c7255e0 --- /dev/null +++ b/modules/winmm.lisp @@ -0,0 +1,3760 @@ +(cl:in-package w32apimod) + +(define-w32api-module winmm :winmm) + +(cl:in-package cl-w32api.module.winmm) + + +(defconstant-exported MAXPNAMELEN 32) + +(defconstant-exported MAXERRORLENGTH 256) + +(defconstant-exported MAX_JOYSTICKOEMVXDNAME 260) + +(defconstant-exported TIME_MS 1) + +(defconstant-exported TIME_SAMPLES 2) + +(defconstant-exported TIME_BYTES 4) + +(defconstant-exported TIME_SMPTE 8) + +(defconstant-exported TIME_MIDI 16) + +(defconstant-exported TIME_TICKS 32) + +(defconstant-exported MM_JOY1MOVE #x3A0) + +(defconstant-exported MM_JOY2MOVE #x3A1) + +(defconstant-exported MM_JOY1ZMOVE #x3A2) + +(defconstant-exported MM_JOY2ZMOVE #x3A3) + +(defconstant-exported MM_JOY1BUTTONDOWN #x3B5) + +(defconstant-exported MM_JOY2BUTTONDOWN #x3B6) + +(defconstant-exported MM_JOY1BUTTONUP #x3B7) + +(defconstant-exported MM_JOY2BUTTONUP #x3B8) + +(defconstant-exported MM_MCINOTIFY #x3B9) + +(defconstant-exported MM_WOM_OPEN #x3BB) + +(defconstant-exported MM_WOM_CLOSE #x3BC) + +(defconstant-exported MM_WOM_DONE #x3BD) + +(defconstant-exported MM_WIM_OPEN #x3BE) + +(defconstant-exported MM_WIM_CLOSE #x3BF) + +(defconstant-exported MM_WIM_DATA #x3C0) + +(defconstant-exported MM_MIM_OPEN #x3C1) + +(defconstant-exported MM_MIM_CLOSE #x3C2) + +(defconstant-exported MM_MIM_DATA #x3C3) + +(defconstant-exported MM_MIM_LONGDATA #x3C4) + +(defconstant-exported MM_MIM_ERROR #x3C5) + +(defconstant-exported MM_MIM_LONGERROR #x3C6) + +(defconstant-exported MM_MOM_OPEN #x3C7) + +(defconstant-exported MM_MOM_CLOSE #x3C8) + +(defconstant-exported MM_MOM_DONE #x3C9) + +(defconstant-exported MM_DRVM_OPEN #x3D0) + +(defconstant-exported MM_DRVM_CLOSE #x3D1) + +(defconstant-exported MM_DRVM_DATA #x3D2) + +(defconstant-exported MM_DRVM_ERROR #x3D3) + +(defconstant-exported MM_STREAM_OPEN #x3D4) + +(defconstant-exported MM_STREAM_CLOSE #x3D5) + +(defconstant-exported MM_STREAM_DONE #x3D6) + +(defconstant-exported MM_STREAM_ERROR #x3D7) + +(defconstant-exported MM_MOM_POSITIONCB #x3CA) + +(defconstant-exported MM_MCISIGNAL #x3CB) + +(defconstant-exported MM_MIM_MOREDATA #x3CC) + +(defconstant-exported MM_MIXM_LINE_CHANGE #x3D0) + +(defconstant-exported MM_MIXM_CONTROL_CHANGE #x3D1) + +(defconstant-exported MMSYSERR_BASE 0) + +(defconstant-exported WAVERR_BASE 32) + +(defconstant-exported MIDIERR_BASE 64) + +(defconstant-exported TIMERR_BASE 96) + +(defconstant-exported JOYERR_BASE 160) + +(defconstant-exported MCIERR_BASE 256) + +(defconstant-exported MIXERR_BASE 1024) + +(defconstant-exported MCI_STRING_OFFSET 512) + +(defconstant-exported MCI_VD_OFFSET 1024) + +(defconstant-exported MCI_CD_OFFSET 1088) + +(defconstant-exported MCI_WAVE_OFFSET 1152) + +(defconstant-exported MCI_SEQ_OFFSET 1216) + +(defconstant-exported MMSYSERR_NOERROR 0) + +(defconstant-exported MMSYSERR_ERROR (cl:+ 0 1)) + +(defconstant-exported MMSYSERR_BADDEVICEID (cl:+ 0 2)) + +(defconstant-exported MMSYSERR_NOTENABLED (cl:+ 0 3)) + +(defconstant-exported MMSYSERR_ALLOCATED (cl:+ 0 4)) + +(defconstant-exported MMSYSERR_INVALHANDLE (cl:+ 0 5)) + +(defconstant-exported MMSYSERR_NODRIVER (cl:+ 0 6)) + +(defconstant-exported MMSYSERR_NOMEM (cl:+ 0 7)) + +(defconstant-exported MMSYSERR_NOTSUPPORTED (cl:+ 0 8)) + +(defconstant-exported MMSYSERR_BADERRNUM (cl:+ 0 9)) + +(defconstant-exported MMSYSERR_INVALFLAG (cl:+ 0 10)) + +(defconstant-exported MMSYSERR_INVALPARAM (cl:+ 0 11)) + +(defconstant-exported MMSYSERR_HANDLEBUSY (cl:+ 0 12)) + +(defconstant-exported MMSYSERR_INVALIDALIAS (cl:+ 0 13)) + +(defconstant-exported MMSYSERR_BADDB (cl:+ 0 14)) + +(defconstant-exported MMSYSERR_KEYNOTFOUND (cl:+ 0 15)) + +(defconstant-exported MMSYSERR_READERROR (cl:+ 0 16)) + +(defconstant-exported MMSYSERR_WRITEERROR (cl:+ 0 17)) + +(defconstant-exported MMSYSERR_DELETEERROR (cl:+ 0 18)) + +(defconstant-exported MMSYSERR_VALNOTFOUND (cl:+ 0 19)) + +(defconstant-exported MMSYSERR_NODRIVERCB (cl:+ 0 20)) + +(defconstant-exported MMSYSERR_LASTERROR (cl:+ 0 20)) + +(defconstant-exported DRV_LOAD 1) + +(defconstant-exported DRV_ENABLE 2) + +(defconstant-exported DRV_OPEN 3) + +(defconstant-exported DRV_CLOSE 4) + +(defconstant-exported DRV_DISABLE 5) + +(defconstant-exported DRV_FREE 6) + +(defconstant-exported DRV_CONFIGURE 7) + +(defconstant-exported DRV_QUERYCONFIGURE 8) + +(defconstant-exported DRV_INSTALL 9) + +(defconstant-exported DRV_REMOVE 10) + +(defconstant-exported DRV_EXITSESSION 11) + +(defconstant-exported DRV_POWER 15) + +(defconstant-exported DRV_RESERVED #x800) + +(defconstant-exported DRV_USER #x4000) + +(defconstant-exported DRVCNF_CANCEL 0) + +(defconstant-exported DRVCNF_OK 1) + +(defconstant-exported DRVCNF_RESTART 2) + +(defconstant-exported DRV_CANCEL 0) + +(defconstant-exported DRV_OK 1) + +(defconstant-exported DRV_RESTART 2) + +(defconstant-exported DRV_MCI_FIRST #x800) + +(defconstant-exported DRV_MCI_LAST (cl:+ #x800 #xFFF)) + +(defconstant-exported CALLBACK_TYPEMASK #x70000) + +(defconstant-exported CALLBACK_NULL 0) + +(defconstant-exported CALLBACK_WINDOW #x10000) + +(defconstant-exported CALLBACK_TASK #x20000) + +(defconstant-exported CALLBACK_FUNCTION #x30000) + +(defconstant-exported CALLBACK_THREAD #x20000) + +(defconstant-exported CALLBACK_EVENT #x50000) + +(defconstant-exported SND_SYNC 0) + +(defconstant-exported SND_ASYNC 1) + +(defconstant-exported SND_NODEFAULT 2) + +(defconstant-exported SND_MEMORY 4) + +(defconstant-exported SND_LOOP 8) + +(defconstant-exported SND_NOSTOP 16) + +(defconstant-exported SND_NOWAIT #x2000) + +(defconstant-exported SND_ALIAS #x10000) + +(defconstant-exported SND_ALIAS_ID #x110000) + +(defconstant-exported SND_FILENAME #x20000) + +(defconstant-exported SND_RESOURCE #x40004) + +(defconstant-exported SND_PURGE #x40) + +(defconstant-exported SND_APPLICATION #x80) + +(defconstant-exported SND_ALIAS_START 0) + +(defconstant-exported WAVERR_BADFORMAT (cl:+ 32 0)) + +(defconstant-exported WAVERR_STILLPLAYING (cl:+ 32 1)) + +(defconstant-exported WAVERR_UNPREPARED (cl:+ 32 2)) + +(defconstant-exported WAVERR_SYNC (cl:+ 32 3)) + +(defconstant-exported WAVERR_LASTERROR (cl:+ 32 3)) + +(defconstant-exported WOM_OPEN #x3BB) + +(defconstant-exported WOM_CLOSE #x3BC) + +(defconstant-exported WOM_DONE #x3BD) + +(defconstant-exported WIM_OPEN #x3BE) + +(defconstant-exported WIM_CLOSE #x3BF) + +(defconstant-exported WIM_DATA #x3C0) + +(defconstant-exported WAVE_FORMAT_QUERY 1) + +(defconstant-exported WAVE_ALLOWSYNC 2) + +(defconstant-exported WAVE_MAPPED 4) + +(defconstant-exported WAVE_FORMAT_DIRECT 8) + +(defconstant-exported WAVE_FORMAT_DIRECT_QUERY (cl:logior 1 8)) + +(defconstant-exported WHDR_DONE 1) + +(defconstant-exported WHDR_PREPARED 2) + +(defconstant-exported WHDR_BEGINLOOP 4) + +(defconstant-exported WHDR_ENDLOOP 8) + +(defconstant-exported WHDR_INQUEUE 16) + +(defconstant-exported WAVECAPS_PITCH 1) + +(defconstant-exported WAVECAPS_PLAYBACKRATE 2) + +(defconstant-exported WAVECAPS_VOLUME 4) + +(defconstant-exported WAVECAPS_LRVOLUME 8) + +(defconstant-exported WAVECAPS_SYNC 16) + +(defconstant-exported WAVECAPS_SAMPLEACCURATE 32) + +(defconstant-exported WAVECAPS_DIRECTSOUND 64) + +(defconstant-exported WAVE_INVALIDFORMAT 0) + +(defconstant-exported WAVE_FORMAT_1M08 1) + +(defconstant-exported WAVE_FORMAT_1S08 2) + +(defconstant-exported WAVE_FORMAT_1M16 4) + +(defconstant-exported WAVE_FORMAT_1S16 8) + +(defconstant-exported WAVE_FORMAT_2M08 16) + +(defconstant-exported WAVE_FORMAT_2S08 32) + +(defconstant-exported WAVE_FORMAT_2M16 64) + +(defconstant-exported WAVE_FORMAT_2S16 128) + +(defconstant-exported WAVE_FORMAT_4M08 256) + +(defconstant-exported WAVE_FORMAT_4S08 512) + +(defconstant-exported WAVE_FORMAT_4M16 1024) + +(defconstant-exported WAVE_FORMAT_4S16 2048) + +(defconstant-exported WAVE_FORMAT_PCM 1) + +(defconstant-exported MIDIERR_UNPREPARED 64) + +(defconstant-exported MIDIERR_STILLPLAYING (cl:+ 64 1)) + +(defconstant-exported MIDIERR_NOMAP (cl:+ 64 2)) + +(defconstant-exported MIDIERR_NOTREADY (cl:+ 64 3)) + +(defconstant-exported MIDIERR_NODEVICE (cl:+ 64 4)) + +(defconstant-exported MIDIERR_INVALIDSETUP (cl:+ 64 5)) + +(defconstant-exported MIDIERR_BADOPENMODE (cl:+ 64 6)) + +(defconstant-exported MIDIERR_DONT_CONTINUE (cl:+ 64 7)) + +(defconstant-exported MIDIERR_LASTERROR (cl:+ 64 7)) + +(defconstant-exported MIDIPATCHSIZE 128) + +(defconstant-exported MIM_OPEN #x3C1) + +(defconstant-exported MIM_CLOSE #x3C2) + +(defconstant-exported MIM_DATA #x3C3) + +(defconstant-exported MIM_LONGDATA #x3C4) + +(defconstant-exported MIM_ERROR #x3C5) + +(defconstant-exported MIM_LONGERROR #x3C6) + +(defconstant-exported MOM_OPEN #x3C7) + +(defconstant-exported MOM_CLOSE #x3C8) + +(defconstant-exported MOM_DONE #x3C9) + +(defconstant-exported MIM_MOREDATA #x3CC) + +(defconstant-exported MOM_POSITIONCB #x3CA) + +(defconstant-exported MIDI_IO_STATUS 32) + +(defconstant-exported MIDI_CACHE_ALL 1) + +(defconstant-exported MIDI_CACHE_BESTFIT 2) + +(defconstant-exported MIDI_CACHE_QUERY 3) + +(defconstant-exported MIDI_UNCACHE 4) + +(defconstant-exported MOD_MIDIPORT 1) + +(defconstant-exported MOD_SYNTH 2) + +(defconstant-exported MOD_SQSYNTH 3) + +(defconstant-exported MOD_FMSYNTH 4) + +(defconstant-exported MOD_MAPPER 5) + +(defconstant-exported MIDICAPS_VOLUME 1) + +(defconstant-exported MIDICAPS_LRVOLUME 2) + +(defconstant-exported MIDICAPS_CACHE 4) + +(defconstant-exported MIDICAPS_STREAM 8) + +(defconstant-exported MHDR_DONE 1) + +(defconstant-exported MHDR_PREPARED 2) + +(defconstant-exported MHDR_INQUEUE 4) + +(defconstant-exported MHDR_ISSTRM 8) + +(defconstant-exported MEVT_F_SHORT 0) + +(defconstant-exported MEVT_F_LONG #x80000000) + +(defconstant-exported MEVT_F_CALLBACK #x40000000) + +(defconstant-exported MEVT_SHORTMSG 0) + +(defconstant-exported MEVT_TEMPO 1) + +(defconstant-exported MEVT_NOP 2) + +(defconstant-exported MIDISTRM_ERROR -2) + +(defconstant-exported MIDIPROP_SET #x80000000) + +(defconstant-exported MIDIPROP_GET #x40000000) + +(defconstant-exported MIDIPROP_TIMEDIV 1) + +(defconstant-exported MIDIPROP_TEMPO 2) + +(defconstant-exported AUXCAPS_CDAUDIO 1) + +(defconstant-exported AUXCAPS_AUXIN 2) + +(defconstant-exported AUXCAPS_VOLUME 1) + +(defconstant-exported AUXCAPS_LRVOLUME 2) + +(defconstant-exported MIXER_SHORT_NAME_CHARS 16) + +(defconstant-exported MIXER_LONG_NAME_CHARS 64) + +(defconstant-exported MIXERR_INVALLINE 1024) + +(defconstant-exported MIXERR_INVALCONTROL (cl:+ 1024 1)) + +(defconstant-exported MIXERR_INVALVALUE (cl:+ 1024 2)) + +(defconstant-exported MIXERR_LASTERROR (cl:+ 1024 2)) + +(defconstant-exported MIXER_OBJECTF_HANDLE #x80000000) + +(defconstant-exported MIXER_OBJECTF_MIXER 0) + +(defconstant-exported MIXER_OBJECTF_HMIXER (cl:logior #x80000000 0)) + +(defconstant-exported MIXER_OBJECTF_WAVEOUT #x10000000) + +(defconstant-exported MIXER_OBJECTF_HWAVEOUT (cl:logior #x80000000 #x10000000)) + +(defconstant-exported MIXER_OBJECTF_WAVEIN #x20000000) + +(defconstant-exported MIXER_OBJECTF_HWAVEIN (cl:logior #x80000000 #x20000000)) + +(defconstant-exported MIXER_OBJECTF_MIDIOUT #x30000000) + +(defconstant-exported MIXER_OBJECTF_HMIDIOUT (cl:logior #x80000000 #x30000000)) + +(defconstant-exported MIXER_OBJECTF_MIDIIN #x40000000) + +(defconstant-exported MIXER_OBJECTF_HMIDIIN (cl:logior #x80000000 #x40000000)) + +(defconstant-exported MIXER_OBJECTF_AUX #x50000000) + +(defconstant-exported MIXERLINE_LINEF_ACTIVE 1) + +(defconstant-exported MIXERLINE_LINEF_DISCONNECTED #x8000) + +(defconstant-exported MIXERLINE_LINEF_SOURCE #x80000000) + +(defconstant-exported MIXERLINE_COMPONENTTYPE_DST_FIRST 0) + +(defconstant-exported MIXERLINE_COMPONENTTYPE_DST_UNDEFINED 0) + +(defconstant-exported MIXERLINE_COMPONENTTYPE_DST_DIGITAL (cl:+ 0 1)) + +(defconstant-exported MIXERLINE_COMPONENTTYPE_DST_LINE (cl:+ 0 2)) + +(defconstant-exported MIXERLINE_COMPONENTTYPE_DST_MONITOR (cl:+ 0 3)) + +(defconstant-exported MIXERLINE_COMPONENTTYPE_DST_SPEAKERS (cl:+ 0 4)) + +(defconstant-exported MIXERLINE_COMPONENTTYPE_DST_HEADPHONES (cl:+ 0 5)) + +(defconstant-exported MIXERLINE_COMPONENTTYPE_DST_TELEPHONE (cl:+ 0 6)) + +(defconstant-exported MIXERLINE_COMPONENTTYPE_DST_WAVEIN (cl:+ 0 7)) + +(defconstant-exported MIXERLINE_COMPONENTTYPE_DST_VOICEIN (cl:+ 0 8)) + +(defconstant-exported MIXERLINE_COMPONENTTYPE_DST_LAST (cl:+ 0 8)) + +(defconstant-exported MIXERLINE_COMPONENTTYPE_SRC_FIRST #x1000) + +(defconstant-exported MIXERLINE_COMPONENTTYPE_SRC_UNDEFINED #x1000) + +(defconstant-exported MIXERLINE_COMPONENTTYPE_SRC_DIGITAL (cl:+ #x1000 1)) + +(defconstant-exported MIXERLINE_COMPONENTTYPE_SRC_LINE (cl:+ #x1000 2)) + +(defconstant-exported MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE (cl:+ #x1000 3)) + +(defconstant-exported MIXERLINE_COMPONENTTYPE_SRC_SYNTHESIZER (cl:+ #x1000 4)) + +(defconstant-exported MIXERLINE_COMPONENTTYPE_SRC_COMPACTDISC (cl:+ #x1000 5)) + +(defconstant-exported MIXERLINE_COMPONENTTYPE_SRC_TELEPHONE (cl:+ #x1000 6)) + +(defconstant-exported MIXERLINE_COMPONENTTYPE_SRC_PCSPEAKER (cl:+ #x1000 7)) + +(defconstant-exported MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT (cl:+ #x1000 8)) + +(defconstant-exported MIXERLINE_COMPONENTTYPE_SRC_AUXILIARY (cl:+ #x1000 9)) + +(defconstant-exported MIXERLINE_COMPONENTTYPE_SRC_ANALOG (cl:+ #x1000 10)) + +(defconstant-exported MIXERLINE_COMPONENTTYPE_SRC_LAST (cl:+ #x1000 10)) + +(defconstant-exported MIXERLINE_TARGETTYPE_UNDEFINED 0) + +(defconstant-exported MIXERLINE_TARGETTYPE_WAVEOUT 1) + +(defconstant-exported MIXERLINE_TARGETTYPE_WAVEIN 2) + +(defconstant-exported MIXERLINE_TARGETTYPE_MIDIOUT 3) + +(defconstant-exported MIXERLINE_TARGETTYPE_MIDIIN 4) + +(defconstant-exported MIXERLINE_TARGETTYPE_AUX 5) + +(defconstant-exported MIXER_GETLINEINFOF_DESTINATION 0) + +(defconstant-exported MIXER_GETLINEINFOF_SOURCE 1) + +(defconstant-exported MIXER_GETLINEINFOF_LINEID 2) + +(defconstant-exported MIXER_GETLINEINFOF_COMPONENTTYPE 3) + +(defconstant-exported MIXER_GETLINEINFOF_TARGETTYPE 4) + +(defconstant-exported MIXER_GETLINEINFOF_QUERYMASK 15) + +(defconstant-exported MIXERCONTROL_CONTROLF_UNIFORM 1) + +(defconstant-exported MIXERCONTROL_CONTROLF_MULTIPLE 2) + +(defconstant-exported MIXERCONTROL_CONTROLF_DISABLED #x80000000) + +(defconstant-exported MIXERCONTROL_CT_CLASS_MASK #xF0000000) + +(defconstant-exported MIXERCONTROL_CT_CLASS_CUSTOM 0) + +(defconstant-exported MIXERCONTROL_CT_CLASS_METER #x10000000) + +(defconstant-exported MIXERCONTROL_CT_CLASS_SWITCH #x20000000) + +(defconstant-exported MIXERCONTROL_CT_CLASS_NUMBER #x30000000) + +(defconstant-exported MIXERCONTROL_CT_CLASS_SLIDER #x40000000) + +(defconstant-exported MIXERCONTROL_CT_CLASS_FADER #x50000000) + +(defconstant-exported MIXERCONTROL_CT_CLASS_TIME #x60000000) + +(defconstant-exported MIXERCONTROL_CT_CLASS_LIST #x70000000) + +(defconstant-exported MIXERCONTROL_CT_SUBCLASS_MASK #xF000000) + +(defconstant-exported MIXERCONTROL_CT_SC_SWITCH_BOOLEAN 0) + +(defconstant-exported MIXERCONTROL_CT_SC_SWITCH_BUTTON #x1000000) + +(defconstant-exported MIXERCONTROL_CT_SC_METER_POLLED 0) + +(defconstant-exported MIXERCONTROL_CT_SC_TIME_MICROSECS 0) + +(defconstant-exported MIXERCONTROL_CT_SC_TIME_MILLISECS #x1000000) + +(defconstant-exported MIXERCONTROL_CT_SC_LIST_SINGLE 0) + +(defconstant-exported MIXERCONTROL_CT_SC_LIST_MULTIPLE #x1000000) + +(defconstant-exported MIXERCONTROL_CT_UNITS_MASK #xFF0000) + +(defconstant-exported MIXERCONTROL_CT_UNITS_CUSTOM 0) + +(defconstant-exported MIXERCONTROL_CT_UNITS_BOOLEAN #x10000) + +(defconstant-exported MIXERCONTROL_CT_UNITS_SIGNED #x20000) + +(defconstant-exported MIXERCONTROL_CT_UNITS_UNSIGNED #x30000) + +(defconstant-exported MIXERCONTROL_CT_UNITS_DECIBELS #x40000) + +(defconstant-exported MIXERCONTROL_CT_UNITS_PERCENT #x50000) + +(defconstant-exported MIXERCONTROL_CONTROLTYPE_CUSTOM (cl:logior 0 0)) + +(defconstant-exported MIXERCONTROL_CONTROLTYPE_BOOLEANMETER (cl:logior #x10000000 0 #x10000)) + +(defconstant-exported MIXERCONTROL_CONTROLTYPE_SIGNEDMETER (cl:logior #x10000000 0 #x20000)) + +(defconstant-exported MIXERCONTROL_CONTROLTYPE_PEAKMETER (cl:+ MIXERCONTROL_CONTROLTYPE_SIGNEDMETER 1)) + +(defconstant-exported MIXERCONTROL_CONTROLTYPE_UNSIGNEDMETER (cl:logior #x10000000 0 #x30000)) + +(defconstant-exported MIXERCONTROL_CONTROLTYPE_BOOLEAN (cl:logior #x20000000 0 #x10000)) + +(defconstant-exported MIXERCONTROL_CONTROLTYPE_ONOFF (cl:+ MIXERCONTROL_CONTROLTYPE_BOOLEAN 1)) + +(defconstant-exported MIXERCONTROL_CONTROLTYPE_MUTE (cl:+ MIXERCONTROL_CONTROLTYPE_BOOLEAN 2)) + +(defconstant-exported MIXERCONTROL_CONTROLTYPE_MONO (cl:+ MIXERCONTROL_CONTROLTYPE_BOOLEAN 3)) + +(defconstant-exported MIXERCONTROL_CONTROLTYPE_LOUDNESS (cl:+ MIXERCONTROL_CONTROLTYPE_BOOLEAN 4)) + +(defconstant-exported MIXERCONTROL_CONTROLTYPE_STEREOENH (cl:+ MIXERCONTROL_CONTROLTYPE_BOOLEAN 5)) + +(defconstant-exported MIXERCONTROL_CONTROLTYPE_BUTTON (cl:logior #x20000000 #x1000000 #x10000)) + +(defconstant-exported MIXERCONTROL_CONTROLTYPE_DECIBELS (cl:logior #x30000000 #x40000)) + +(defconstant-exported MIXERCONTROL_CONTROLTYPE_SIGNED (cl:logior #x30000000 #x20000)) + +(defconstant-exported MIXERCONTROL_CONTROLTYPE_UNSIGNED (cl:logior #x30000000 #x30000)) + +(defconstant-exported MIXERCONTROL_CONTROLTYPE_PERCENT (cl:logior #x30000000 #x50000)) + +(defconstant-exported MIXERCONTROL_CONTROLTYPE_SLIDER (cl:logior #x40000000 #x20000)) + +(defconstant-exported MIXERCONTROL_CONTROLTYPE_PAN (cl:+ MIXERCONTROL_CONTROLTYPE_SLIDER 1)) + +(defconstant-exported MIXERCONTROL_CONTROLTYPE_QSOUNDPAN (cl:+ MIXERCONTROL_CONTROLTYPE_SLIDER 2)) + +(defconstant-exported MIXERCONTROL_CONTROLTYPE_FADER (cl:logior #x50000000 #x30000)) + +(defconstant-exported MIXERCONTROL_CONTROLTYPE_VOLUME (cl:+ MIXERCONTROL_CONTROLTYPE_FADER 1)) + +(defconstant-exported MIXERCONTROL_CONTROLTYPE_BASS (cl:+ MIXERCONTROL_CONTROLTYPE_FADER 2)) + +(defconstant-exported MIXERCONTROL_CONTROLTYPE_TREBLE (cl:+ MIXERCONTROL_CONTROLTYPE_FADER 3)) + +(defconstant-exported MIXERCONTROL_CONTROLTYPE_EQUALIZER (cl:+ MIXERCONTROL_CONTROLTYPE_FADER 4)) + +(defconstant-exported MIXERCONTROL_CONTROLTYPE_SINGLESELECT (cl:logior #x70000000 0 #x10000)) + +(defconstant-exported MIXERCONTROL_CONTROLTYPE_MUX (cl:+ MIXERCONTROL_CONTROLTYPE_SINGLESELECT 1)) + +(defconstant-exported MIXERCONTROL_CONTROLTYPE_MULTIPLESELECT (cl:logior #x70000000 #x1000000 #x10000)) + +(defconstant-exported MIXERCONTROL_CONTROLTYPE_MIXER (cl:+ MIXERCONTROL_CONTROLTYPE_MULTIPLESELECT 1)) + +(defconstant-exported MIXERCONTROL_CONTROLTYPE_MICROTIME (cl:logior #x60000000 0 #x30000)) + +(defconstant-exported MIXERCONTROL_CONTROLTYPE_MILLITIME (cl:logior #x60000000 #x1000000 #x30000)) + +(defconstant-exported MIXER_GETLINECONTROLSF_ALL 0) + +(defconstant-exported MIXER_GETLINECONTROLSF_ONEBYID 1) + +(defconstant-exported MIXER_GETLINECONTROLSF_ONEBYTYPE 2) + +(defconstant-exported MIXER_GETLINECONTROLSF_QUERYMASK 15) + +(defconstant-exported MIXER_GETCONTROLDETAILSF_VALUE 0) + +(defconstant-exported MIXER_GETCONTROLDETAILSF_LISTTEXT 1) + +(defconstant-exported MIXER_GETCONTROLDETAILSF_QUERYMASK 15) + +(defconstant-exported MIXER_SETCONTROLDETAILSF_VALUE 0) + +(defconstant-exported MIXER_SETCONTROLDETAILSF_CUSTOM 1) + +(defconstant-exported MIXER_SETCONTROLDETAILSF_QUERYMASK 15) + +(defconstant-exported TIMERR_NOERROR 0) + +(defconstant-exported TIMERR_NOCANDO (cl:+ 96 1)) + +(defconstant-exported TIMERR_STRUCT (cl:+ 96 33)) + +(defconstant-exported TIME_ONESHOT 0) + +(defconstant-exported TIME_PERIODIC 1) + +(defconstant-exported TIME_CALLBACK_FUNCTION 0) + +(defconstant-exported TIME_CALLBACK_EVENT_SET 16) + +(defconstant-exported TIME_CALLBACK_EVENT_PULSE 32) + +(defconstant-exported JOYERR_NOERROR 0) + +(defconstant-exported JOYERR_PARMS (cl:+ 160 5)) + +(defconstant-exported JOYERR_NOCANDO (cl:+ 160 6)) + +(defconstant-exported JOYERR_UNPLUGGED (cl:+ 160 7)) + +(defconstant-exported JOY_BUTTON1 1) + +(defconstant-exported JOY_BUTTON2 2) + +(defconstant-exported JOY_BUTTON3 4) + +(defconstant-exported JOY_BUTTON4 8) + +(defconstant-exported JOY_BUTTON1CHG 256) + +(defconstant-exported JOY_BUTTON2CHG 512) + +(defconstant-exported JOY_BUTTON3CHG 1024) + +(defconstant-exported JOY_BUTTON4CHG 2048) + +(defconstant-exported JOY_BUTTON5 257) + +(defconstant-exported JOY_BUTTON6 513) + +(defconstant-exported JOY_BUTTON7 1025) + +(defconstant-exported JOY_BUTTON8 2049) + +(defconstant-exported JOY_BUTTON9 256) + +(defconstant-exported JOY_BUTTON10 512) + +(defconstant-exported JOY_BUTTON11 1024) + +(defconstant-exported JOY_BUTTON12 2048) + +(defconstant-exported JOY_BUTTON13 4096) + +(defconstant-exported JOY_BUTTON14 8192) + +(defconstant-exported JOY_BUTTON15 16384) + +(defconstant-exported JOY_BUTTON16 32768) + +(defconstant-exported JOY_BUTTON17 65536) + +(defconstant-exported JOY_BUTTON18 #x20000) + +(defconstant-exported JOY_BUTTON19 #x40000) + +(defconstant-exported JOY_BUTTON20 #x80000) + +(defconstant-exported JOY_BUTTON21 #x100000) + +(defconstant-exported JOY_BUTTON22 #x200000) + +(defconstant-exported JOY_BUTTON23 #x400000) + +(defconstant-exported JOY_BUTTON24 #x800000) + +(defconstant-exported JOY_BUTTON25 #x1000000) + +(defconstant-exported JOY_BUTTON26 #x2000000) + +(defconstant-exported JOY_BUTTON27 #x4000000) + +(defconstant-exported JOY_BUTTON28 #x8000000) + +(defconstant-exported JOY_BUTTON29 #x10000000) + +(defconstant-exported JOY_BUTTON30 #x20000000) + +(defconstant-exported JOY_BUTTON31 #x40000000) + +(defconstant-exported JOY_BUTTON32 #x80000000) + +(defconstant-exported JOY_POVFORWARD 0) + +(defconstant-exported JOY_POVRIGHT 9000) + +(defconstant-exported JOY_POVBACKWARD 18000) + +(defconstant-exported JOY_POVLEFT 27000) + +(defconstant-exported JOY_RETURNX 1) + +(defconstant-exported JOY_RETURNY 2) + +(defconstant-exported JOY_RETURNZ 4) + +(defconstant-exported JOY_RETURNR 8) + +(defconstant-exported JOY_RETURNU 16) + +(defconstant-exported JOY_RETURNV 32) + +(defconstant-exported JOY_RETURNPOV 64) + +(defconstant-exported JOY_RETURNBUTTONS 128) + +(defconstant-exported JOY_RETURNRAWDATA 256) + +(defconstant-exported JOY_RETURNPOVCTS 512) + +(defconstant-exported JOY_RETURNCENTERED 1024) + +(defconstant-exported JOY_USEDEADZONE 2048) + +(defconstant-exported JOY_RETURNALL (cl:logior 1 2 4 8 16 32 64 128)) + +(defconstant-exported JOY_CAL_READALWAYS #x10000) + +(defconstant-exported JOY_CAL_READXYONLY #x20000) + +(defconstant-exported JOY_CAL_READ3 #x40000) + +(defconstant-exported JOY_CAL_READ4 #x80000) + +(defconstant-exported JOY_CAL_READXONLY #x100000) + +(defconstant-exported JOY_CAL_READYONLY #x200000) + +(defconstant-exported JOY_CAL_READ5 #x400000) + +(defconstant-exported JOY_CAL_READ6 #x800000) + +(defconstant-exported JOY_CAL_READZONLY #x1000000) + +(defconstant-exported JOY_CAL_READRONLY #x2000000) + +(defconstant-exported JOY_CAL_READUONLY #x4000000) + +(defconstant-exported JOY_CAL_READVONLY #x8000000) + +(defconstant-exported JOYSTICKID1 0) + +(defconstant-exported JOYSTICKID2 1) + +(defconstant-exported JOYCAPS_HASZ 1) + +(defconstant-exported JOYCAPS_HASR 2) + +(defconstant-exported JOYCAPS_HASU 4) + +(defconstant-exported JOYCAPS_HASV 8) + +(defconstant-exported JOYCAPS_HASPOV 16) + +(defconstant-exported JOYCAPS_POV4DIR 32) + +(defconstant-exported JOYCAPS_POVCTS 64) + +(defconstant-exported MMIOERR_BASE 256) + +(defconstant-exported MMIOERR_FILENOTFOUND (cl:+ 256 1)) + +(defconstant-exported MMIOERR_OUTOFMEMORY (cl:+ 256 2)) + +(defconstant-exported MMIOERR_CANNOTOPEN (cl:+ 256 3)) + +(defconstant-exported MMIOERR_CANNOTCLOSE (cl:+ 256 4)) + +(defconstant-exported MMIOERR_CANNOTREAD (cl:+ 256 5)) + +(defconstant-exported MMIOERR_CANNOTWRITE (cl:+ 256 6)) + +(defconstant-exported MMIOERR_CANNOTSEEK (cl:+ 256 7)) + +(defconstant-exported MMIOERR_CANNOTEXPAND (cl:+ 256 8)) + +(defconstant-exported MMIOERR_CHUNKNOTFOUND (cl:+ 256 9)) + +(defconstant-exported MMIOERR_UNBUFFERED (cl:+ 256 10)) + +(defconstant-exported MMIOERR_PATHNOTFOUND (cl:+ 256 11)) + +(defconstant-exported MMIOERR_ACCESSDENIED (cl:+ 256 12)) + +(defconstant-exported MMIOERR_SHARINGVIOLATION (cl:+ 256 13)) + +(defconstant-exported MMIOERR_NETWORKERROR (cl:+ 256 14)) + +(defconstant-exported MMIOERR_TOOMANYOPENFILES (cl:+ 256 15)) + +(defconstant-exported MMIOERR_INVALIDFILE (cl:+ 256 16)) + +(defconstant-exported CFSEPCHAR #\+) + +(defconstant-exported MMIO_RWMODE 3) + +(defconstant-exported MMIO_SHAREMODE #x70) + +(defconstant-exported MMIO_CREATE #x1000) + +(defconstant-exported MMIO_PARSE 256) + +(defconstant-exported MMIO_DELETE 512) + +(defconstant-exported MMIO_EXIST #x4000) + +(defconstant-exported MMIO_ALLOCBUF #x10000) + +(defconstant-exported MMIO_GETTEMP #x20000) + +(defconstant-exported MMIO_DIRTY #x10000000) + +(defconstant-exported MMIO_READ 0) + +(defconstant-exported MMIO_WRITE 1) + +(defconstant-exported MMIO_READWRITE 2) + +(defconstant-exported MMIO_COMPAT 0) + +(defconstant-exported MMIO_EXCLUSIVE 16) + +(defconstant-exported MMIO_DENYWRITE 32) + +(defconstant-exported MMIO_DENYREAD #x30) + +(defconstant-exported MMIO_DENYNONE 64) + +(defconstant-exported MMIO_FHOPEN 16) + +(defconstant-exported MMIO_EMPTYBUF 16) + +(defconstant-exported MMIO_TOUPPER 16) + +(defconstant-exported MMIO_INSTALLPROC #x10000) + +(defconstant-exported MMIO_GLOBALPROC #x10000000) + +(defconstant-exported MMIO_REMOVEPROC #x20000) + +(defconstant-exported MMIO_UNICODEPROC #x1000000) + +(defconstant-exported MMIO_FINDPROC #x40000) + +(defconstant-exported MMIO_FINDCHUNK 16) + +(defconstant-exported MMIO_FINDRIFF 32) + +(defconstant-exported MMIO_FINDLIST 64) + +(defconstant-exported MMIO_CREATERIFF 32) + +(defconstant-exported MMIO_CREATELIST 64) + +(defconstant-exported MMIOM_READ 0) + +(defconstant-exported MMIOM_WRITE 1) + +(defconstant-exported MMIOM_SEEK 2) + +(defconstant-exported MMIOM_OPEN 3) + +(defconstant-exported MMIOM_CLOSE 4) + +(defconstant-exported MMIOM_WRITEFLUSH 5) + +(defconstant-exported MMIOM_RENAME 6) + +(defconstant-exported MMIOM_USER #x8000) + +(defconstant-exported MMIO_DEFAULTBUFFER 8192) + +(defconstant-exported MCIERR_INVALID_DEVICE_ID (cl:+ 256 1)) + +(defconstant-exported MCIERR_UNRECOGNIZED_KEYWORD (cl:+ 256 3)) + +(defconstant-exported MCIERR_UNRECOGNIZED_COMMAND (cl:+ 256 5)) + +(defconstant-exported MCIERR_HARDWARE (cl:+ 256 6)) + +(defconstant-exported MCIERR_INVALID_DEVICE_NAME (cl:+ 256 7)) + +(defconstant-exported MCIERR_OUT_OF_MEMORY (cl:+ 256 8)) + +(defconstant-exported MCIERR_DEVICE_OPEN (cl:+ 256 9)) + +(defconstant-exported MCIERR_CANNOT_LOAD_DRIVER (cl:+ 256 10)) + +(defconstant-exported MCIERR_MISSING_COMMAND_STRING (cl:+ 256 11)) + +(defconstant-exported MCIERR_PARAM_OVERFLOW (cl:+ 256 12)) + +(defconstant-exported MCIERR_MISSING_STRING_ARGUMENT (cl:+ 256 13)) + +(defconstant-exported MCIERR_BAD_INTEGER (cl:+ 256 14)) + +(defconstant-exported MCIERR_PARSER_INTERNAL (cl:+ 256 15)) + +(defconstant-exported MCIERR_DRIVER_INTERNAL (cl:+ 256 16)) + +(defconstant-exported MCIERR_MISSING_PARAMETER (cl:+ 256 17)) + +(defconstant-exported MCIERR_UNSUPPORTED_FUNCTION (cl:+ 256 18)) + +(defconstant-exported MCIERR_FILE_NOT_FOUND (cl:+ 256 19)) + +(defconstant-exported MCIERR_DEVICE_NOT_READY (cl:+ 256 20)) + +(defconstant-exported MCIERR_INTERNAL (cl:+ 256 21)) + +(defconstant-exported MCIERR_DRIVER (cl:+ 256 22)) + +(defconstant-exported MCIERR_CANNOT_USE_ALL (cl:+ 256 23)) + +(defconstant-exported MCIERR_MULTIPLE (cl:+ 256 24)) + +(defconstant-exported MCIERR_EXTENSION_NOT_FOUND (cl:+ 256 25)) + +(defconstant-exported MCIERR_OUTOFRANGE (cl:+ 256 26)) + +(defconstant-exported MCIERR_FLAGS_NOT_COMPATIBLE (cl:+ 256 28)) + +(defconstant-exported MCIERR_FILE_NOT_SAVED (cl:+ 256 30)) + +(defconstant-exported MCIERR_DEVICE_TYPE_REQUIRED (cl:+ 256 31)) + +(defconstant-exported MCIERR_DEVICE_LOCKED (cl:+ 256 32)) + +(defconstant-exported MCIERR_DUPLICATE_ALIAS (cl:+ 256 33)) + +(defconstant-exported MCIERR_BAD_CONSTANT (cl:+ 256 34)) + +(defconstant-exported MCIERR_MUST_USE_SHAREABLE (cl:+ 256 35)) + +(defconstant-exported MCIERR_MISSING_DEVICE_NAME (cl:+ 256 36)) + +(defconstant-exported MCIERR_BAD_TIME_FORMAT (cl:+ 256 37)) + +(defconstant-exported MCIERR_NO_CLOSING_QUOTE (cl:+ 256 38)) + +(defconstant-exported MCIERR_DUPLICATE_FLAGS (cl:+ 256 39)) + +(defconstant-exported MCIERR_INVALID_FILE (cl:+ 256 40)) + +(defconstant-exported MCIERR_NULL_PARAMETER_BLOCK (cl:+ 256 41)) + +(defconstant-exported MCIERR_UNNAMED_RESOURCE (cl:+ 256 42)) + +(defconstant-exported MCIERR_NEW_REQUIRES_ALIAS (cl:+ 256 43)) + +(defconstant-exported MCIERR_NOTIFY_ON_AUTO_OPEN (cl:+ 256 44)) + +(defconstant-exported MCIERR_NO_ELEMENT_ALLOWED (cl:+ 256 45)) + +(defconstant-exported MCIERR_NONAPPLICABLE_FUNCTION (cl:+ 256 46)) + +(defconstant-exported MCIERR_ILLEGAL_FOR_AUTO_OPEN (cl:+ 256 47)) + +(defconstant-exported MCIERR_FILENAME_REQUIRED (cl:+ 256 48)) + +(defconstant-exported MCIERR_EXTRA_CHARACTERS (cl:+ 256 49)) + +(defconstant-exported MCIERR_DEVICE_NOT_INSTALLED (cl:+ 256 50)) + +(defconstant-exported MCIERR_GET_CD (cl:+ 256 51)) + +(defconstant-exported MCIERR_SET_CD (cl:+ 256 52)) + +(defconstant-exported MCIERR_SET_DRIVE (cl:+ 256 53)) + +(defconstant-exported MCIERR_DEVICE_LENGTH (cl:+ 256 54)) + +(defconstant-exported MCIERR_DEVICE_ORD_LENGTH (cl:+ 256 55)) + +(defconstant-exported MCIERR_NO_INTEGER (cl:+ 256 56)) + +(defconstant-exported MCIERR_WAVE_OUTPUTSINUSE (cl:+ 256 64)) + +(defconstant-exported MCIERR_WAVE_SETOUTPUTINUSE (cl:+ 256 65)) + +(defconstant-exported MCIERR_WAVE_INPUTSINUSE (cl:+ 256 66)) + +(defconstant-exported MCIERR_WAVE_SETINPUTINUSE (cl:+ 256 67)) + +(defconstant-exported MCIERR_WAVE_OUTPUTUNSPECIFIED (cl:+ 256 68)) + +(defconstant-exported MCIERR_WAVE_INPUTUNSPECIFIED (cl:+ 256 69)) + +(defconstant-exported MCIERR_WAVE_OUTPUTSUNSUITABLE (cl:+ 256 70)) + +(defconstant-exported MCIERR_WAVE_SETOUTPUTUNSUITABLE (cl:+ 256 71)) + +(defconstant-exported MCIERR_WAVE_INPUTSUNSUITABLE (cl:+ 256 72)) + +(defconstant-exported MCIERR_WAVE_SETINPUTUNSUITABLE (cl:+ 256 73)) + +(defconstant-exported MCIERR_SEQ_DIV_INCOMPATIBLE (cl:+ 256 80)) + +(defconstant-exported MCIERR_SEQ_PORT_INUSE (cl:+ 256 81)) + +(defconstant-exported MCIERR_SEQ_PORT_NONEXISTENT (cl:+ 256 82)) + +(defconstant-exported MCIERR_SEQ_PORT_MAPNODEVICE (cl:+ 256 83)) + +(defconstant-exported MCIERR_SEQ_PORT_MISCERROR (cl:+ 256 84)) + +(defconstant-exported MCIERR_SEQ_TIMER (cl:+ 256 85)) + +(defconstant-exported MCIERR_SEQ_PORTUNSPECIFIED (cl:+ 256 86)) + +(defconstant-exported MCIERR_SEQ_NOMIDIPRESENT (cl:+ 256 87)) + +(defconstant-exported MCIERR_NO_WINDOW (cl:+ 256 90)) + +(defconstant-exported MCIERR_CREATEWINDOW (cl:+ 256 91)) + +(defconstant-exported MCIERR_FILE_READ (cl:+ 256 92)) + +(defconstant-exported MCIERR_FILE_WRITE (cl:+ 256 93)) + +(defconstant-exported MCIERR_NO_IDENTITY (cl:+ 256 94)) + +(defconstant-exported MCIERR_CUSTOM_DRIVER_BASE (cl:+ 256 256)) + +(defconstant-exported MCI_FIRST #x800) + +(defconstant-exported MCI_OPEN #x803) + +(defconstant-exported MCI_CLOSE #x804) + +(defconstant-exported MCI_ESCAPE #x805) + +(defconstant-exported MCI_PLAY #x806) + +(defconstant-exported MCI_SEEK #x807) + +(defconstant-exported MCI_STOP #x808) + +(defconstant-exported MCI_PAUSE #x809) + +(defconstant-exported MCI_INFO #x80A) + +(defconstant-exported MCI_GETDEVCAPS #x80B) + +(defconstant-exported MCI_SPIN #x80C) + +(defconstant-exported MCI_SET #x80D) + +(defconstant-exported MCI_STEP #x80E) + +(defconstant-exported MCI_RECORD #x80F) + +(defconstant-exported MCI_SYSINFO #x810) + +(defconstant-exported MCI_BREAK #x811) + +(defconstant-exported MCI_SAVE #x813) + +(defconstant-exported MCI_STATUS #x814) + +(defconstant-exported MCI_CUE #x830) + +(defconstant-exported MCI_REALIZE #x840) + +(defconstant-exported MCI_WINDOW #x841) + +(defconstant-exported MCI_PUT #x842) + +(defconstant-exported MCI_WHERE #x843) + +(defconstant-exported MCI_FREEZE #x844) + +(defconstant-exported MCI_UNFREEZE #x845) + +(defconstant-exported MCI_LOAD #x850) + +(defconstant-exported MCI_CUT #x851) + +(defconstant-exported MCI_COPY #x852) + +(defconstant-exported MCI_PASTE #x853) + +(defconstant-exported MCI_UPDATE #x854) + +(defconstant-exported MCI_RESUME #x855) + +(defconstant-exported MCI_DELETE #x856) + +(defconstant-exported MCI_USER_MESSAGES (cl:+ #x800 #x400)) + +(defconstant-exported MCI_LAST #xFFF) + +(defconstant-exported MCI_DEVTYPE_VCR 513) + +(defconstant-exported MCI_DEVTYPE_VIDEODISC 514) + +(defconstant-exported MCI_DEVTYPE_OVERLAY 515) + +(defconstant-exported MCI_DEVTYPE_CD_AUDIO 516) + +(defconstant-exported MCI_DEVTYPE_DAT 517) + +(defconstant-exported MCI_DEVTYPE_SCANNER 518) + +(defconstant-exported MCI_DEVTYPE_ANIMATION 519) + +(defconstant-exported MCI_DEVTYPE_DIGITAL_VIDEO 520) + +(defconstant-exported MCI_DEVTYPE_OTHER 521) + +(defconstant-exported MCI_DEVTYPE_WAVEFORM_AUDIO 522) + +(defconstant-exported MCI_DEVTYPE_SEQUENCER 523) + +(defconstant-exported MCI_DEVTYPE_FIRST 513) + +(defconstant-exported MCI_DEVTYPE_LAST 523) + +(defconstant-exported MCI_DEVTYPE_FIRST_USER #x1000) + +(defconstant-exported MCI_MODE_NOT_READY (cl:+ 512 12)) + +(defconstant-exported MCI_MODE_STOP (cl:+ 512 13)) + +(defconstant-exported MCI_MODE_PLAY (cl:+ 512 14)) + +(defconstant-exported MCI_MODE_RECORD (cl:+ 512 15)) + +(defconstant-exported MCI_MODE_SEEK (cl:+ 512 16)) + +(defconstant-exported MCI_MODE_PAUSE (cl:+ 512 17)) + +(defconstant-exported MCI_MODE_OPEN (cl:+ 512 18)) + +(defconstant-exported MCI_FORMAT_MILLISECONDS 0) + +(defconstant-exported MCI_FORMAT_HMS 1) + +(defconstant-exported MCI_FORMAT_MSF 2) + +(defconstant-exported MCI_FORMAT_FRAMES 3) + +(defconstant-exported MCI_FORMAT_SMPTE_24 4) + +(defconstant-exported MCI_FORMAT_SMPTE_25 5) + +(defconstant-exported MCI_FORMAT_SMPTE_30 6) + +(defconstant-exported MCI_FORMAT_SMPTE_30DROP 7) + +(defconstant-exported MCI_FORMAT_BYTES 8) + +(defconstant-exported MCI_FORMAT_SAMPLES 9) + +(defconstant-exported MCI_FORMAT_TMSF 10) + +(defconstant-exported MCI_NOTIFY_SUCCESSFUL 1) + +(defconstant-exported MCI_NOTIFY_SUPERSEDED 2) + +(defconstant-exported MCI_NOTIFY_ABORTED 4) + +(defconstant-exported MCI_NOTIFY_FAILURE 8) + +(defconstant-exported MCI_NOTIFY 1) + +(defconstant-exported MCI_WAIT 2) + +(defconstant-exported MCI_FROM 4) + +(defconstant-exported MCI_TO 8) + +(defconstant-exported MCI_TRACK 16) + +(defconstant-exported MCI_OPEN_SHAREABLE 256) + +(defconstant-exported MCI_OPEN_ELEMENT 512) + +(defconstant-exported MCI_OPEN_ALIAS 1024) + +(defconstant-exported MCI_OPEN_ELEMENT_ID 2048) + +(defconstant-exported MCI_OPEN_TYPE_ID #x1000) + +(defconstant-exported MCI_OPEN_TYPE #x2000) + +(defconstant-exported MCI_SEEK_TO_START 256) + +(defconstant-exported MCI_SEEK_TO_END 512) + +(defconstant-exported MCI_STATUS_ITEM 256) + +(defconstant-exported MCI_STATUS_START 512) + +(defconstant-exported MCI_STATUS_LENGTH 1) + +(defconstant-exported MCI_STATUS_POSITION 2) + +(defconstant-exported MCI_STATUS_NUMBER_OF_TRACKS 3) + +(defconstant-exported MCI_STATUS_MODE 4) + +(defconstant-exported MCI_STATUS_MEDIA_PRESENT 5) + +(defconstant-exported MCI_STATUS_TIME_FORMAT 6) + +(defconstant-exported MCI_STATUS_READY 7) + +(defconstant-exported MCI_STATUS_CURRENT_TRACK 8) + +(defconstant-exported MCI_INFO_PRODUCT 256) + +(defconstant-exported MCI_INFO_FILE 512) + +(defconstant-exported MCI_INFO_MEDIA_UPC 1024) + +(defconstant-exported MCI_INFO_MEDIA_IDENTITY 2048) + +(defconstant-exported MCI_INFO_NAME #x1000) + +(defconstant-exported MCI_INFO_COPYRIGHT #x2000) + +(defconstant-exported MCI_GETDEVCAPS_ITEM 256) + +(defconstant-exported MCI_GETDEVCAPS_CAN_RECORD 1) + +(defconstant-exported MCI_GETDEVCAPS_HAS_AUDIO 2) + +(defconstant-exported MCI_GETDEVCAPS_HAS_VIDEO 3) + +(defconstant-exported MCI_GETDEVCAPS_DEVICE_TYPE 4) + +(defconstant-exported MCI_GETDEVCAPS_USES_FILES 5) + +(defconstant-exported MCI_GETDEVCAPS_COMPOUND_DEVICE 6) + +(defconstant-exported MCI_GETDEVCAPS_CAN_EJECT 7) + +(defconstant-exported MCI_GETDEVCAPS_CAN_PLAY 8) + +(defconstant-exported MCI_GETDEVCAPS_CAN_SAVE 9) + +(defconstant-exported MCI_SYSINFO_QUANTITY 256) + +(defconstant-exported MCI_SYSINFO_OPEN 512) + +(defconstant-exported MCI_SYSINFO_NAME 1024) + +(defconstant-exported MCI_SYSINFO_INSTALLNAME 2048) + +(defconstant-exported MCI_SET_DOOR_OPEN 256) + +(defconstant-exported MCI_SET_DOOR_CLOSED 512) + +(defconstant-exported MCI_SET_TIME_FORMAT 1024) + +(defconstant-exported MCI_SET_AUDIO 2048) + +(defconstant-exported MCI_SET_VIDEO #x1000) + +(defconstant-exported MCI_SET_ON #x2000) + +(defconstant-exported MCI_SET_OFF #x4000) + +(defconstant-exported MCI_SET_AUDIO_ALL 0) + +(defconstant-exported MCI_SET_AUDIO_LEFT 1) + +(defconstant-exported MCI_SET_AUDIO_RIGHT 2) + +(defconstant-exported MCI_BREAK_KEY 256) + +(defconstant-exported MCI_BREAK_HWND 512) + +(defconstant-exported MCI_BREAK_OFF 1024) + +(defconstant-exported MCI_RECORD_INSERT 256) + +(defconstant-exported MCI_RECORD_OVERWRITE 512) + +(defconstant-exported MCI_SAVE_FILE 256) + +(defconstant-exported MCI_LOAD_FILE 256) + +(defconstant-exported MCI_VD_MODE_PARK (cl:+ 1024 1)) + +(defconstant-exported MCI_VD_MEDIA_CLV (cl:+ 1024 2)) + +(defconstant-exported MCI_VD_MEDIA_CAV (cl:+ 1024 3)) + +(defconstant-exported MCI_VD_MEDIA_OTHER (cl:+ 1024 4)) + +(defconstant-exported MCI_VD_FORMAT_TRACK #x4001) + +(defconstant-exported MCI_VD_PLAY_REVERSE #x10000) + +(defconstant-exported MCI_VD_PLAY_FAST #x20000) + +(defconstant-exported MCI_VD_PLAY_SPEED #x40000) + +(defconstant-exported MCI_VD_PLAY_SCAN #x80000) + +(defconstant-exported MCI_VD_PLAY_SLOW #x100000) + +(defconstant-exported MCI_VD_SEEK_REVERSE #x10000) + +(defconstant-exported MCI_VD_STATUS_SPEED #x4002) + +(defconstant-exported MCI_VD_STATUS_FORWARD #x4003) + +(defconstant-exported MCI_VD_STATUS_MEDIA_TYPE #x4004) + +(defconstant-exported MCI_VD_STATUS_SIDE #x4005) + +(defconstant-exported MCI_VD_STATUS_DISC_SIZE #x4006) + +(defconstant-exported MCI_VD_GETDEVCAPS_CLV #x10000) + +(defconstant-exported MCI_VD_GETDEVCAPS_CAV #x20000) + +(defconstant-exported MCI_VD_SPIN_UP #x10000) + +(defconstant-exported MCI_VD_SPIN_DOWN #x20000) + +(defconstant-exported MCI_VD_GETDEVCAPS_CAN_REVERSE #x4002) + +(defconstant-exported MCI_VD_GETDEVCAPS_FAST_RATE #x4003) + +(defconstant-exported MCI_VD_GETDEVCAPS_SLOW_RATE #x4004) + +(defconstant-exported MCI_VD_GETDEVCAPS_NORMAL_RATE #x4005) + +(defconstant-exported MCI_VD_STEP_FRAMES #x10000) + +(defconstant-exported MCI_VD_STEP_REVERSE #x20000) + +(defconstant-exported MCI_VD_ESCAPE_STRING 256) + +(defconstant-exported MCI_CDA_STATUS_TYPE_TRACK #x4001) + +(defconstant-exported MCI_CDA_TRACK_AUDIO 1088) + +(defconstant-exported MCI_CDA_TRACK_OTHER (cl:+ 1088 1)) + +(defconstant-exported MCI_WAVE_PCM 1152) + +(defconstant-exported MCI_WAVE_MAPPER (cl:+ 1152 1)) + +(defconstant-exported MCI_WAVE_OPEN_BUFFER #x10000) + +(defconstant-exported MCI_WAVE_SET_FORMATTAG #x10000) + +(defconstant-exported MCI_WAVE_SET_CHANNELS #x20000) + +(defconstant-exported MCI_WAVE_SET_SAMPLESPERSEC #x40000) + +(defconstant-exported MCI_WAVE_SET_AVGBYTESPERSEC #x80000) + +(defconstant-exported MCI_WAVE_SET_BLOCKALIGN #x100000) + +(defconstant-exported MCI_WAVE_SET_BITSPERSAMPLE #x200000) + +(defconstant-exported MCI_WAVE_INPUT #x400000) + +(defconstant-exported MCI_WAVE_OUTPUT #x800000) + +(defconstant-exported MCI_WAVE_STATUS_FORMATTAG #x4001) + +(defconstant-exported MCI_WAVE_STATUS_CHANNELS #x4002) + +(defconstant-exported MCI_WAVE_STATUS_SAMPLESPERSEC #x4003) + +(defconstant-exported MCI_WAVE_STATUS_AVGBYTESPERSEC #x4004) + +(defconstant-exported MCI_WAVE_STATUS_BLOCKALIGN #x4005) + +(defconstant-exported MCI_WAVE_STATUS_BITSPERSAMPLE #x4006) + +(defconstant-exported MCI_WAVE_STATUS_LEVEL #x4007) + +(defconstant-exported MCI_WAVE_SET_ANYINPUT #x4000000) + +(defconstant-exported MCI_WAVE_SET_ANYOUTPUT #x8000000) + +(defconstant-exported MCI_WAVE_GETDEVCAPS_INPUTS #x4001) + +(defconstant-exported MCI_WAVE_GETDEVCAPS_OUTPUTS #x4002) + +(defconstant-exported MCI_SEQ_DIV_PPQN 1216) + +(defconstant-exported MCI_SEQ_DIV_SMPTE_24 (cl:+ 1216 1)) + +(defconstant-exported MCI_SEQ_DIV_SMPTE_25 (cl:+ 1216 2)) + +(defconstant-exported MCI_SEQ_DIV_SMPTE_30DROP (cl:+ 1216 3)) + +(defconstant-exported MCI_SEQ_DIV_SMPTE_30 (cl:+ 1216 4)) + +(defconstant-exported MCI_SEQ_FORMAT_SONGPTR #x4001) + +(defconstant-exported MCI_SEQ_FILE #x4002) + +(defconstant-exported MCI_SEQ_MIDI #x4003) + +(defconstant-exported MCI_SEQ_SMPTE #x4004) + +(defconstant-exported MCI_SEQ_NONE 65533) + +(defconstant-exported MCI_SEQ_MAPPER 65535) + +(defconstant-exported MCI_SEQ_STATUS_TEMPO #x4002) + +(defconstant-exported MCI_SEQ_STATUS_PORT #x4003) + +(defconstant-exported MCI_SEQ_STATUS_SLAVE #x4007) + +(defconstant-exported MCI_SEQ_STATUS_MASTER #x4008) + +(defconstant-exported MCI_SEQ_STATUS_OFFSET #x4009) + +(defconstant-exported MCI_SEQ_STATUS_DIVTYPE #x400A) + +(defconstant-exported MCI_SEQ_STATUS_NAME #x400B) + +(defconstant-exported MCI_SEQ_STATUS_COPYRIGHT #x400C) + +(defconstant-exported MCI_SEQ_SET_TEMPO #x10000) + +(defconstant-exported MCI_SEQ_SET_PORT #x20000) + +(defconstant-exported MCI_SEQ_SET_SLAVE #x40000) + +(defconstant-exported MCI_SEQ_SET_MASTER #x80000) + +(defconstant-exported MCI_SEQ_SET_OFFSET #x1000000) + +(defconstant-exported MCI_ANIM_OPEN_WS #x10000) + +(defconstant-exported MCI_ANIM_OPEN_PARENT #x20000) + +(defconstant-exported MCI_ANIM_OPEN_NOSTATIC #x40000) + +(defconstant-exported MCI_ANIM_PLAY_SPEED #x10000) + +(defconstant-exported MCI_ANIM_PLAY_REVERSE #x20000) + +(defconstant-exported MCI_ANIM_PLAY_FAST #x40000) + +(defconstant-exported MCI_ANIM_PLAY_SLOW #x80000) + +(defconstant-exported MCI_ANIM_PLAY_SCAN #x100000) + +(defconstant-exported MCI_ANIM_STEP_REVERSE #x10000) + +(defconstant-exported MCI_ANIM_STEP_FRAMES #x20000) + +(defconstant-exported MCI_ANIM_STATUS_SPEED #x4001) + +(defconstant-exported MCI_ANIM_STATUS_FORWARD #x4002) + +(defconstant-exported MCI_ANIM_STATUS_HWND #x4003) + +(defconstant-exported MCI_ANIM_STATUS_HPAL #x4004) + +(defconstant-exported MCI_ANIM_STATUS_STRETCH #x4005) + +(defconstant-exported MCI_ANIM_INFO_TEXT #x10000) + +(defconstant-exported MCI_ANIM_GETDEVCAPS_CAN_REVERSE #x4001) + +(defconstant-exported MCI_ANIM_GETDEVCAPS_FAST_RATE #x4002) + +(defconstant-exported MCI_ANIM_GETDEVCAPS_SLOW_RATE #x4003) + +(defconstant-exported MCI_ANIM_GETDEVCAPS_NORMAL_RATE #x4004) + +(defconstant-exported MCI_ANIM_GETDEVCAPS_PALETTES #x4006) + +(defconstant-exported MCI_ANIM_GETDEVCAPS_CAN_STRETCH #x4007) + +(defconstant-exported MCI_ANIM_GETDEVCAPS_MAX_WINDOWS #x4008) + +(defconstant-exported MCI_ANIM_REALIZE_NORM #x10000) + +(defconstant-exported MCI_ANIM_REALIZE_BKGD #x20000) + +(defconstant-exported MCI_ANIM_WINDOW_HWND #x10000) + +(defconstant-exported MCI_ANIM_WINDOW_STATE #x40000) + +(defconstant-exported MCI_ANIM_WINDOW_TEXT #x80000) + +(defconstant-exported MCI_ANIM_WINDOW_ENABLE_STRETCH #x100000) + +(defconstant-exported MCI_ANIM_WINDOW_DISABLE_STRETCH #x200000) + +(defconstant-exported MCI_ANIM_WINDOW_DEFAULT 0) + +(defconstant-exported MCI_ANIM_RECT #x10000) + +(defconstant-exported MCI_ANIM_PUT_SOURCE #x20000) + +(defconstant-exported MCI_ANIM_PUT_DESTINATION #x40000) + +(defconstant-exported MCI_ANIM_WHERE_SOURCE #x20000) + +(defconstant-exported MCI_ANIM_WHERE_DESTINATION #x40000) + +(defconstant-exported MCI_ANIM_UPDATE_HDC #x20000) + +(defconstant-exported MCI_OVLY_OPEN_WS #x10000) + +(defconstant-exported MCI_OVLY_OPEN_PARENT #x20000) + +(defconstant-exported MCI_OVLY_STATUS_HWND #x4001) + +(defconstant-exported MCI_OVLY_STATUS_STRETCH #x4002) + +(defconstant-exported MCI_OVLY_INFO_TEXT #x10000) + +(defconstant-exported MCI_OVLY_GETDEVCAPS_CAN_STRETCH #x4001) + +(defconstant-exported MCI_OVLY_GETDEVCAPS_CAN_FREEZE #x4002) + +(defconstant-exported MCI_OVLY_GETDEVCAPS_MAX_WINDOWS #x4003) + +(defconstant-exported MCI_OVLY_WINDOW_HWND #x10000) + +(defconstant-exported MCI_OVLY_WINDOW_STATE #x40000) + +(defconstant-exported MCI_OVLY_WINDOW_TEXT #x80000) + +(defconstant-exported MCI_OVLY_WINDOW_ENABLE_STRETCH #x100000) + +(defconstant-exported MCI_OVLY_WINDOW_DISABLE_STRETCH #x200000) + +(defconstant-exported MCI_OVLY_WINDOW_DEFAULT 0) + +(defconstant-exported MCI_OVLY_RECT #x10000) + +(defconstant-exported MCI_OVLY_PUT_SOURCE #x20000) + +(defconstant-exported MCI_OVLY_PUT_DESTINATION #x40000) + +(defconstant-exported MCI_OVLY_PUT_FRAME #x80000) + +(defconstant-exported MCI_OVLY_PUT_VIDEO #x100000) + +(defconstant-exported MCI_OVLY_WHERE_SOURCE #x20000) + +(defconstant-exported MCI_OVLY_WHERE_DESTINATION #x40000) + +(defconstant-exported MCI_OVLY_WHERE_FRAME #x80000) + +(defconstant-exported MCI_OVLY_WHERE_VIDEO #x100000) + +(defconstant-exported NEWTRANSPARENT 3) + +(defconstant-exported QUERYROPSUPPORT 40) + +(defconstant-exported SELECTDIB 41) + +(defconstant-exported CAPS1 94) + +(defconstant-exported C1_TRANSPARENT 1) + +(defconstant-exported SEEK_SET 0) + +(defconstant-exported SEEK_CUR 1) + +(defconstant-exported SEEK_END 2) + + + + + + + + + + + +(defcstructex-exported MMTIME + (wType :unsigned-int) + (u :pointer)) + + + + + + + +(cffi:defcunion MMTIME_u + (ms :unsigned-long) + (sample :unsigned-long) + (cb :unsigned-long) + (ticks :unsigned-long) + (smpte :pointer) + (midi :pointer)) + +(defcstructex-exported MMTIME_u_midi + (songptrpos :unsigned-long)) + +(defcstructex-exported MMTIME_u_smpte + (hour :unsigned-char) + (min :unsigned-char) + (sec :unsigned-char) + (frame :unsigned-char) + (fps :unsigned-char) + (dummy :unsigned-char) + (pad :pointer)) + +(defcstructex-exported HDRVR__ + (i :int)) + + + +(defcstructex-exported DRVCONFIGINFO + (dwDCISize :unsigned-long) + (lpszDCISectionName :pointer) + (lpszDCIAliasName :pointer)) + + + + + + + +(defcstructex-exported DRVCONFIGINFOEX + (dwDCISize :unsigned-long) + (lpszDCISectionName :pointer) + (lpszDCIAliasName :pointer) + (dnDevNode :unsigned-long)) + + + + + + + + + + + + + + + +(defcstructex-exported HWAVE__ + (i :int)) + + + +(defcstructex-exported HWAVEIN__ + (i :int)) + + + +(defcstructex-exported HWAVEOUT__ + (i :int)) + + + + + + + + + + + +(defcstructex-exported WAVEHDR + (lpData :string) + (dwBufferLength :unsigned-long) + (dwBytesRecorded :unsigned-long) + (dwUser :unsigned-long) + (dwFlags :unsigned-long) + (dwLoops :unsigned-long) + (lpNext :pointer) + (reserved :unsigned-long)) + + + + + + + +(defcstructex-exported WAVEOUTCAPSA + (wMid :unsigned-short) + (wPid :unsigned-short) + (vDriverVersion :unsigned-int) + (szPname :pointer) + (dwFormats :unsigned-long) + (wChannels :unsigned-short) + (wReserved1 :unsigned-short) + (dwSupport :unsigned-long)) + + + + + + + +(defcstructex-exported WAVEOUTCAPSW + (wMid :unsigned-short) + (wPid :unsigned-short) + (vDriverVersion :unsigned-int) + (szPname :pointer) + (dwFormats :unsigned-long) + (wChannels :unsigned-short) + (wReserved1 :unsigned-short) + (dwSupport :unsigned-long)) + + + + + + + +(defcstructex-exported WAVEINCAPSA + (wMid :unsigned-short) + (wPid :unsigned-short) + (vDriverVersion :unsigned-int) + (szPname :pointer) + (dwFormats :unsigned-long) + (wChannels :unsigned-short) + (wReserved1 :unsigned-short)) + + + + + + + +(defcstructex-exported WAVEINCAPSW + (wMid :unsigned-short) + (wPid :unsigned-short) + (vDriverVersion :unsigned-int) + (szPname :pointer) + (dwFormats :unsigned-long) + (wChannels :unsigned-short) + (wReserved1 :unsigned-short)) + + + + + + + +(defcstructex-exported WAVEFORMAT + (wFormatTag :unsigned-short) + (nChannels :unsigned-short) + (nSamplesPerSec :unsigned-long) + (nAvgBytesPerSec :unsigned-long) + (nBlockAlign :unsigned-short)) + + + + + + + +(defcstructex-exported PCMWAVEFORMAT + (wf WAVEFORMAT) + (wBitsPerSample :unsigned-short)) + + + + + + + +(defcstructex-exported WAVEFORMATEX + (wFormatTag :unsigned-short) + (nChannels :unsigned-short) + (nSamplesPerSec :unsigned-long) + (nAvgBytesPerSec :unsigned-long) + (nBlockAlign :unsigned-short) + (wBitsPerSample :unsigned-short) + (cbSize :unsigned-short)) + + + + + + + + + +(defcstructex-exported HMIDI__ + (i :int)) + + + +(defcstructex-exported HMIDIIN__ + (i :int)) + + + +(defcstructex-exported HMIDIOUT__ + (i :int)) + + + +(defcstructex-exported HMIDISTRM__ + (i :int)) + + + + + + + + + + + + + + + + + + + + + + + +(defcstructex-exported MIDIOUTCAPSA + (wMid :unsigned-short) + (wPid :unsigned-short) + (vDriverVersion :unsigned-int) + (szPname :pointer) + (wTechnology :unsigned-short) + (wVoices :unsigned-short) + (wNotes :unsigned-short) + (wChannelMask :unsigned-short) + (dwSupport :unsigned-long)) + + + + + + + +(defcstructex-exported MIDIOUTCAPSW + (wMid :unsigned-short) + (wPid :unsigned-short) + (vDriverVersion :unsigned-int) + (szPname :pointer) + (wTechnology :unsigned-short) + (wVoices :unsigned-short) + (wNotes :unsigned-short) + (wChannelMask :unsigned-short) + (dwSupport :unsigned-long)) + + + + + + + +(defcstructex-exported MIDIINCAPSA + (wMid :unsigned-short) + (wPid :unsigned-short) + (vDriverVersion :unsigned-int) + (szPname :pointer) + (dwSupport :unsigned-long)) + + + + + + + +(defcstructex-exported MIDIINCAPSW + (wMid :unsigned-short) + (wPid :unsigned-short) + (vDriverVersion :unsigned-int) + (szPname :pointer) + (dwSupport :unsigned-long)) + + + + + + + + + +(defcstructex-exported MIDIHDR + (lpData :string) + (dwBufferLength :unsigned-long) + (dwBytesRecorded :unsigned-long) + (dwUser :unsigned-long) + (dwFlags :unsigned-long) + (lpNext :pointer) + (reserved :unsigned-long) + (dwOffset :unsigned-long) + (dwReserved :pointer)) + + + + + + + +(defcstructex-exported MIDIEVENT + (dwDeltaTime :unsigned-long) + (dwStreamID :unsigned-long) + (dwEvent :unsigned-long) + (dwParms :pointer)) + + + +(defcstructex-exported MIDISTRMBUFFVER + (dwVersion :unsigned-long) + (dwMid :unsigned-long) + (dwOEMVersion :unsigned-long)) + + + +(defcstructex-exported MIDIPROPTIMEDIV + (cbStruct :unsigned-long) + (dwTimeDiv :unsigned-long)) + + + + + +(defcstructex-exported MIDIPROPTEMPO + (cbStruct :unsigned-long) + (dwTempo :unsigned-long)) + + + + + +(defcstructex-exported AUXCAPSA + (wMid :unsigned-short) + (wPid :unsigned-short) + (vDriverVersion :unsigned-int) + (szPname :pointer) + (wTechnology :unsigned-short) + (wReserved1 :unsigned-short) + (dwSupport :unsigned-long)) + + + + + + + +(defcstructex-exported AUXCAPSW + (wMid :unsigned-short) + (wPid :unsigned-short) + (vDriverVersion :unsigned-int) + (szPname :pointer) + (wTechnology :unsigned-short) + (wReserved1 :unsigned-short) + (dwSupport :unsigned-long)) + + + + + + + +(defcstructex-exported HMIXEROBJ__ + (i :int)) + + + + + +(defcstructex-exported HMIXER__ + (i :int)) + + + + + +(defcstructex-exported MIXERCAPSA + (wMid :unsigned-short) + (wPid :unsigned-short) + (vDriverVersion :unsigned-int) + (szPname :pointer) + (fdwSupport :unsigned-long) + (cDestinations :unsigned-long)) + + + + + + + +(defcstructex-exported MIXERCAPSW + (wMid :unsigned-short) + (wPid :unsigned-short) + (vDriverVersion :unsigned-int) + (szPname :pointer) + (fdwSupport :unsigned-long) + (cDestinations :unsigned-long)) + + + + + + + +(defcstructex-exported MIXERLINEA + (cbStruct :unsigned-long) + (dwDestination :unsigned-long) + (dwSource :unsigned-long) + (dwLineID :unsigned-long) + (fdwLine :unsigned-long) + (dwUser :unsigned-long) + (dwComponentType :unsigned-long) + (cChannels :unsigned-long) + (cConnections :unsigned-long) + (cControls :unsigned-long) + (szShortName :pointer) + (szName :pointer) + (Target :pointer)) + + + + + + + +(defcstructex-exported MIXERLINEA_Target + (dwType :unsigned-long) + (dwDeviceID :unsigned-long) + (wMid :unsigned-short) + (wPid :unsigned-short) + (vDriverVersion :unsigned-int) + (szPname :pointer)) + +(defcstructex-exported MIXERLINEW + (cbStruct :unsigned-long) + (dwDestination :unsigned-long) + (dwSource :unsigned-long) + (dwLineID :unsigned-long) + (fdwLine :unsigned-long) + (dwUser :unsigned-long) + (dwComponentType :unsigned-long) + (cChannels :unsigned-long) + (cConnections :unsigned-long) + (cControls :unsigned-long) + (szShortName :pointer) + (szName :pointer) + (Target :pointer)) + + + + + + + +(defcstructex-exported MIXERLINEW_Target + (dwType :unsigned-long) + (dwDeviceID :unsigned-long) + (wMid :unsigned-short) + (wPid :unsigned-short) + (vDriverVersion :unsigned-int) + (szPname :pointer)) + +(defcstructex-exported MIXERCONTROLA + (cbStruct :unsigned-long) + (dwControlID :unsigned-long) + (dwControlType :unsigned-long) + (fdwControl :unsigned-long) + (cMultipleItems :unsigned-long) + (szShortName :pointer) + (szName :pointer) + (Bounds :pointer) + (Metrics :pointer)) + + + + + + + +(cffi:defcunion MIXERCONTROLA_Metrics + (cSteps :unsigned-long) + (cbCustomData :unsigned-long) + (dwReserved :pointer)) + +(cffi:defcunion MIXERCONTROLA_Bounds + (dwReserved :pointer) + (s :pointer) + (s1 :pointer)) + +(defcstructex-exported MIXERCONTROLA_Bounds_s1 + (dwMinimum :unsigned-long) + (dwMaximum :unsigned-long)) + +(defcstructex-exported MIXERCONTROLA_Bounds_s + (lMinimum :int32) + (lMaximum :int32)) + +(defcstructex-exported MIXERCONTROLW + (cbStruct :unsigned-long) + (dwControlID :unsigned-long) + (dwControlType :unsigned-long) + (fdwControl :unsigned-long) + (cMultipleItems :unsigned-long) + (szShortName :pointer) + (szName :pointer) + (Bounds :pointer) + (Metrics :pointer)) + + + + + + + +(cffi:defcunion MIXERCONTROLW_Metrics + (cSteps :unsigned-long) + (cbCustomData :unsigned-long) + (dwReserved :pointer)) + +(cffi:defcunion MIXERCONTROLW_Bounds + (dwReserved :pointer) + (s :pointer) + (s1 :pointer)) + +(defcstructex-exported MIXERCONTROLW_Bounds_s1 + (dwMinimum :unsigned-long) + (dwMaximum :unsigned-long)) + +(defcstructex-exported MIXERCONTROLW_Bounds_s + (lMinimum :int32) + (lMaximum :int32)) + +(defcstructex-exported MIXERLINECONTROLSA + (cbStruct :unsigned-long) + (dwLineID :unsigned-long) + (cControls :unsigned-long) + (cbmxctrl :unsigned-long) + (pamxctrl :pointer) + (u :pointer)) + + + + + + + +(cffi:defcunion MIXERLINECONTROLSA_u + (dwControlID :unsigned-long) + (dwControlType :unsigned-long)) + +(defcstructex-exported MIXERLINECONTROLSW + (cbStruct :unsigned-long) + (dwLineID :unsigned-long) + (cControls :unsigned-long) + (cbmxctrl :unsigned-long) + (pamxctrl :pointer) + (u :pointer)) + + + + + + + +(cffi:defcunion MIXERLINECONTROLSW_u + (dwControlID :unsigned-long) + (dwControlType :unsigned-long)) + +(defcstructex-exported MIXERCONTROLDETAILS + (cbStruct :unsigned-long) + (dwControlID :unsigned-long) + (cChannels :unsigned-long) + (cbDetails :unsigned-long) + (paDetails :pointer) + (u :pointer)) + + + + + + + +(cffi:defcunion MIXERCONTROLDETAILS_u + (hwndOwner :pointer) + (cMultipleItems :unsigned-long)) + +(defcstructex-exported MIXERCONTROLDETAILS_LISTTEXTA + (dwParam1 :unsigned-long) + (dwParam2 :unsigned-long) + (szName :pointer)) + + + + + + + +(defcstructex-exported MIXERCONTROLDETAILS_LISTTEXTW + (dwParam1 :unsigned-long) + (dwParam2 :unsigned-long) + (szName :pointer)) + + + + + + + +(defcstructex-exported MIXERCONTROLDETAILS_BOOLEAN + (fValue :int32)) + + + + + + + +(defcstructex-exported MIXERCONTROLDETAILS_SIGNED + (lValue :int32)) + + + + + + + +(defcstructex-exported MIXERCONTROLDETAILS_UNSIGNED + (dwValue :unsigned-long)) + + + + + + + + + + + +(defcstructex-exported TIMECAPS + (wPeriodMin :unsigned-int) + (wPeriodMax :unsigned-int)) + + + + + + + +(defcstructex-exported JOYCAPSA + (wMid :unsigned-short) + (wPid :unsigned-short) + (szPname :pointer) + (wXmin :unsigned-int) + (wXmax :unsigned-int) + (wYmin :unsigned-int) + (wYmax :unsigned-int) + (wZmin :unsigned-int) + (wZmax :unsigned-int) + (wNumButtons :unsigned-int) + (wPeriodMin :unsigned-int) + (wPeriodMax :unsigned-int) + (wRmin :unsigned-int) + (wRmax :unsigned-int) + (wUmin :unsigned-int) + (wUmax :unsigned-int) + (wVmin :unsigned-int) + (wVmax :unsigned-int) + (wCaps :unsigned-int) + (wMaxAxes :unsigned-int) + (wNumAxes :unsigned-int) + (wMaxButtons :unsigned-int) + (szRegKey :pointer) + (szOEMVxD :pointer)) + + + + + + + +(defcstructex-exported JOYCAPSW + (wMid :unsigned-short) + (wPid :unsigned-short) + (szPname :pointer) + (wXmin :unsigned-int) + (wXmax :unsigned-int) + (wYmin :unsigned-int) + (wYmax :unsigned-int) + (wZmin :unsigned-int) + (wZmax :unsigned-int) + (wNumButtons :unsigned-int) + (wPeriodMin :unsigned-int) + (wPeriodMax :unsigned-int) + (wRmin :unsigned-int) + (wRmax :unsigned-int) + (wUmin :unsigned-int) + (wUmax :unsigned-int) + (wVmin :unsigned-int) + (wVmax :unsigned-int) + (wCaps :unsigned-int) + (wMaxAxes :unsigned-int) + (wNumAxes :unsigned-int) + (wMaxButtons :unsigned-int) + (szRegKey :pointer) + (szOEMVxD :pointer)) + + + + + + + +(defcstructex-exported JOYINFO + (wXpos :unsigned-int) + (wYpos :unsigned-int) + (wZpos :unsigned-int) + (wButtons :unsigned-int)) + + + + + + + +(defcstructex-exported JOYINFOEX + (dwSize :unsigned-long) + (dwFlags :unsigned-long) + (dwXpos :unsigned-long) + (dwYpos :unsigned-long) + (dwZpos :unsigned-long) + (dwRpos :unsigned-long) + (dwUpos :unsigned-long) + (dwVpos :unsigned-long) + (dwButtons :unsigned-long) + (dwButtonNumber :unsigned-long) + (dwPOV :unsigned-long) + (dwReserved1 :unsigned-long) + (dwReserved2 :unsigned-long)) + + + + + + + + + + + +(defcstructex-exported HMMIO__ + (i :int)) + + + + + + + +(defcstructex-exported MMIOINFO + (dwFlags :unsigned-long) + (fccIOProc :unsigned-long) + (pIOProc :pointer) + (wErrorRet :unsigned-int) + (htask :pointer) + (cchBuffer :int32) + (pchBuffer :string) + (pchNext :string) + (pchEndRead :string) + (pchEndWrite :string) + (lBufOffset :int32) + (lDiskOffset :int32) + (adwInfo :pointer) + (dwReserved1 :unsigned-long) + (dwReserved2 :unsigned-long) + (hmmio :pointer)) + + + + + + + + + +(defcstructex-exported MMCKINFO + (ckid :unsigned-long) + (cksize :unsigned-long) + (fccType :unsigned-long) + (dwDataOffset :unsigned-long) + (dwFlags :unsigned-long)) + + + + + + + + + +(defcstructex-exported MCI_GENERIC_PARMS + (dwCallback :unsigned-long)) + + + + + + + +(defcstructex-exported MCI_OPEN_PARMSA + (dwCallback :unsigned-long) + (wDeviceID :unsigned-int) + (lpstrDeviceType :string) + (lpstrElementName :string) + (lpstrAlias :string)) + + + + + + + +(defcstructex-exported MCI_OPEN_PARMSW + (dwCallback :unsigned-long) + (wDeviceID :unsigned-int) + (lpstrDeviceType :pointer) + (lpstrElementName :pointer) + (lpstrAlias :pointer)) + + + + + + + +(defcstructex-exported MCI_PLAY_PARMS + (dwCallback :unsigned-long) + (dwFrom :unsigned-long) + (dwTo :unsigned-long)) + + + + + + + +(defcstructex-exported MCI_SEEK_PARMS + (dwCallback :unsigned-long) + (dwTo :unsigned-long)) + + + + + + + +(defcstructex-exported MCI_STATUS_PARMS + (dwCallback :unsigned-long) + (dwReturn :unsigned-long) + (dwItem :unsigned-long) + (dwTrack :unsigned-long)) + + + + + + + +(defcstructex-exported MCI_INFO_PARMSA + (dwCallback :unsigned-long) + (lpstrReturn :string) + (dwRetSize :unsigned-long)) + + + + + +(defcstructex-exported MCI_INFO_PARMSW + (dwCallback :unsigned-long) + (lpstrReturn :pointer) + (dwRetSize :unsigned-long)) + + + + + +(defcstructex-exported MCI_GETDEVCAPS_PARMS + (dwCallback :unsigned-long) + (dwReturn :unsigned-long) + (dwItem :unsigned-long)) + + + + + + + +(defcstructex-exported MCI_SYSINFO_PARMSA + (dwCallback :unsigned-long) + (lpstrReturn :string) + (dwRetSize :unsigned-long) + (dwNumber :unsigned-long) + (wDeviceType :unsigned-int)) + + + + + + + +(defcstructex-exported MCI_SYSINFO_PARMSW + (dwCallback :unsigned-long) + (lpstrReturn :pointer) + (dwRetSize :unsigned-long) + (dwNumber :unsigned-long) + (wDeviceType :unsigned-int)) + + + + + + + +(defcstructex-exported MCI_SET_PARMS + (dwCallback :unsigned-long) + (dwTimeFormat :unsigned-long) + (dwAudio :unsigned-long)) + + + + + + + +(defcstructex-exported MCI_BREAK_PARMS + (dwCallback :unsigned-long) + (nVirtKey :int) + (hwndBreak :pointer)) + + + + + + + +(defcstructex-exported MCI_SAVE_PARMSA + (dwCallback :unsigned-long) + (lpfilename :string)) + + + + + + + +(defcstructex-exported MCI_SAVE_PARMSW + (dwCallback :unsigned-long) + (lpfilename :pointer)) + + + + + + + +(defcstructex-exported MCI_LOAD_PARMSA + (dwCallback :unsigned-long) + (lpfilename :string)) + + + + + + + +(defcstructex-exported MCI_LOAD_PARMSW + (dwCallback :unsigned-long) + (lpfilename :pointer)) + + + + + + + +(defcstructex-exported MCI_RECORD_PARMS + (dwCallback :unsigned-long) + (dwFrom :unsigned-long) + (dwTo :unsigned-long)) + + + + + +(defcstructex-exported MCI_VD_PLAY_PARMS + (dwCallback :unsigned-long) + (dwFrom :unsigned-long) + (dwTo :unsigned-long) + (dwSpeed :unsigned-long)) + + + + + + + +(defcstructex-exported MCI_VD_STEP_PARMS + (dwCallback :unsigned-long) + (dwFrames :unsigned-long)) + + + + + + + +(defcstructex-exported MCI_VD_ESCAPE_PARMSA + (dwCallback :unsigned-long) + (lpstrCommand :string)) + + + + + + + +(defcstructex-exported MCI_VD_ESCAPE_PARMSW + (dwCallback :unsigned-long) + (lpstrCommand :pointer)) + + + + + + + +(defcstructex-exported MCI_WAVE_OPEN_PARMSA + (dwCallback :unsigned-long) + (wDeviceID :unsigned-int) + (lpstrDeviceType :string) + (lpstrElementName :string) + (lpstrAlias :string) + (dwBufferSeconds :unsigned-long)) + + + + + + + +(defcstructex-exported MCI_WAVE_OPEN_PARMSW + (dwCallback :unsigned-long) + (wDeviceID :unsigned-int) + (lpstrDeviceType :pointer) + (lpstrElementName :pointer) + (lpstrAlias :pointer) + (dwBufferSeconds :unsigned-long)) + + + + + + + +(defcstructex-exported MCI_WAVE_DELETE_PARMS + (dwCallback :unsigned-long) + (dwFrom :unsigned-long) + (dwTo :unsigned-long)) + + + + + + + +(defcstructex-exported MCI_WAVE_SET_PARMS + (dwCallback :unsigned-long) + (dwTimeFormat :unsigned-long) + (dwAudio :unsigned-long) + (wInput :unsigned-int) + (wOutput :unsigned-int) + (wFormatTag :unsigned-short) + (wReserved2 :unsigned-short) + (nChannels :unsigned-short) + (wReserved3 :unsigned-short) + (nSamplesPerSec :unsigned-long) + (nAvgBytesPerSec :unsigned-long) + (nBlockAlign :unsigned-short) + (wReserved4 :unsigned-short) + (wBitsPerSample :unsigned-short) + (wReserved5 :unsigned-short)) + + + + + + + +(defcfunex-exported ("CloseDriver" CloseDriver :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :int32) + (arg2 :int32)) + +(defcfunex-exported ("OpenDriver" OpenDriver :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :int32)) + +(defcfunex-exported ("SendDriverMessage" SendDriverMessage :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :int32) + (arg3 :int32)) + +(defcfunex-exported ("DrvGetModuleHandle" DrvGetModuleHandle :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("GetDriverModuleHandle" GetDriverModuleHandle :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("DefDriverProc" DefDriverProc :convention :stdcall) :int32 + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :unsigned-int) + (arg3 :int32) + (arg4 :int32)) + +(defcfunex-exported ("mmsystemGetVersion" mmsystemGetVersion :convention :stdcall) :unsigned-int) + +(defcfunex-exported ("sndPlaySoundA" sndPlaySoundA :convention :stdcall) :int + (arg0 :string) + (arg1 :unsigned-int)) + +(defcfunex-exported ("sndPlaySoundW" sndPlaySoundW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-int)) + +(defcfunex-exported ("PlaySoundA" PlaySoundA :convention :stdcall) :int + (arg0 :string) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("PlaySoundW" PlaySoundW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("waveOutGetNumDevs" waveOutGetNumDevs :convention :stdcall) :unsigned-int) + +(defcfunex-exported ("waveOutGetDevCapsA" waveOutGetDevCapsA :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("waveOutGetDevCapsW" waveOutGetDevCapsW :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("waveOutGetVolume" waveOutGetVolume :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("waveOutSetVolume" waveOutSetVolume :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("waveOutGetErrorTextA" waveOutGetErrorTextA :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :string) + (arg2 :unsigned-int)) + +(defcfunex-exported ("waveOutGetErrorTextW" waveOutGetErrorTextW :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("waveOutOpen" waveOutOpen :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :unsigned-long) + (arg5 :unsigned-long)) + +(defcfunex-exported ("waveOutClose" waveOutClose :convention :stdcall) :unsigned-int + (arg0 :pointer)) + +(defcfunex-exported ("waveOutPrepareHeader" waveOutPrepareHeader :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("waveOutUnprepareHeader" waveOutUnprepareHeader :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("waveOutWrite" waveOutWrite :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("waveOutPause" waveOutPause :convention :stdcall) :unsigned-int + (arg0 :pointer)) + +(defcfunex-exported ("waveOutRestart" waveOutRestart :convention :stdcall) :unsigned-int + (arg0 :pointer)) + +(defcfunex-exported ("waveOutReset" waveOutReset :convention :stdcall) :unsigned-int + (arg0 :pointer)) + +(defcfunex-exported ("waveOutBreakLoop" waveOutBreakLoop :convention :stdcall) :unsigned-int + (arg0 :pointer)) + +(defcfunex-exported ("waveOutGetPosition" waveOutGetPosition :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("waveOutGetPitch" waveOutGetPitch :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("waveOutSetPitch" waveOutSetPitch :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("waveOutGetPlaybackRate" waveOutGetPlaybackRate :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("waveOutSetPlaybackRate" waveOutSetPlaybackRate :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("waveOutGetID" waveOutGetID :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("waveOutMessage" waveOutMessage :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-long) + (arg3 :unsigned-long)) + +(defcfunex-exported ("waveInGetNumDevs" waveInGetNumDevs :convention :stdcall) :unsigned-int) + +(defcfunex-exported ("waveInGetDevCapsA" waveInGetDevCapsA :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("waveInGetDevCapsW" waveInGetDevCapsW :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("waveInGetErrorTextA" waveInGetErrorTextA :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :string) + (arg2 :unsigned-int)) + +(defcfunex-exported ("waveInGetErrorTextW" waveInGetErrorTextW :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("waveInOpen" waveInOpen :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :unsigned-long) + (arg5 :unsigned-long)) + +(defcfunex-exported ("waveInClose" waveInClose :convention :stdcall) :unsigned-int + (arg0 :pointer)) + +(defcfunex-exported ("waveInPrepareHeader" waveInPrepareHeader :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("waveInUnprepareHeader" waveInUnprepareHeader :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("waveInAddBuffer" waveInAddBuffer :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("waveInStart" waveInStart :convention :stdcall) :unsigned-int + (arg0 :pointer)) + +(defcfunex-exported ("waveInStop" waveInStop :convention :stdcall) :unsigned-int + (arg0 :pointer)) + +(defcfunex-exported ("waveInReset" waveInReset :convention :stdcall) :unsigned-int + (arg0 :pointer)) + +(defcfunex-exported ("waveInGetPosition" waveInGetPosition :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("waveInGetID" waveInGetID :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("waveInMessage" waveInMessage :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-long) + (arg3 :unsigned-long)) + +(defcfunex-exported ("midiOutGetNumDevs" midiOutGetNumDevs :convention :stdcall) :unsigned-int) + +(defcfunex-exported ("midiStreamOpen" midiStreamOpen :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :unsigned-long) + (arg5 :unsigned-long)) + +(defcfunex-exported ("midiStreamClose" midiStreamClose :convention :stdcall) :unsigned-int + (arg0 :pointer)) + +(defcfunex-exported ("midiStreamProperty" midiStreamProperty :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("midiStreamPosition" midiStreamPosition :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("midiStreamOut" midiStreamOut :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("midiStreamPause" midiStreamPause :convention :stdcall) :unsigned-int + (arg0 :pointer)) + +(defcfunex-exported ("midiStreamRestart" midiStreamRestart :convention :stdcall) :unsigned-int + (arg0 :pointer)) + +(defcfunex-exported ("midiStreamStop" midiStreamStop :convention :stdcall) :unsigned-int + (arg0 :pointer)) + +(defcfunex-exported ("midiConnect" midiConnect :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("midiDisconnect" midiDisconnect :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("midiOutGetDevCapsA" midiOutGetDevCapsA :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("midiOutGetDevCapsW" midiOutGetDevCapsW :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("midiOutGetVolume" midiOutGetVolume :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("midiOutSetVolume" midiOutSetVolume :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("midiOutGetErrorTextA" midiOutGetErrorTextA :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :string) + (arg2 :unsigned-int)) + +(defcfunex-exported ("midiOutGetErrorTextW" midiOutGetErrorTextW :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("midiOutOpen" midiOutOpen :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :unsigned-long)) + +(defcfunex-exported ("midiOutClose" midiOutClose :convention :stdcall) :unsigned-int + (arg0 :pointer)) + +(defcfunex-exported ("midiOutPrepareHeader" midiOutPrepareHeader :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("midiOutUnprepareHeader" midiOutUnprepareHeader :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("midiOutShortMsg" midiOutShortMsg :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-long)) + +(defcfunex-exported ("midiOutLongMsg" midiOutLongMsg :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("midiOutReset" midiOutReset :convention :stdcall) :unsigned-int + (arg0 :pointer)) + +(defcfunex-exported ("midiOutCachePatches" midiOutCachePatches :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :pointer) + (arg3 :unsigned-int)) + +(defcfunex-exported ("midiOutCacheDrumPatches" midiOutCacheDrumPatches :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :pointer) + (arg3 :unsigned-int)) + +(defcfunex-exported ("midiOutGetID" midiOutGetID :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("midiOutMessage" midiOutMessage :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-long) + (arg3 :unsigned-long)) + +(defcfunex-exported ("midiInGetNumDevs" midiInGetNumDevs :convention :stdcall) :unsigned-int) + +(defcfunex-exported ("midiInGetDevCapsA" midiInGetDevCapsA :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("midiInGetDevCapsW" midiInGetDevCapsW :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("midiInGetErrorTextA" midiInGetErrorTextA :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :string) + (arg2 :unsigned-int)) + +(defcfunex-exported ("midiInGetErrorTextW" midiInGetErrorTextW :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("midiInOpen" midiInOpen :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :unsigned-long)) + +(defcfunex-exported ("midiInClose" midiInClose :convention :stdcall) :unsigned-int + (arg0 :pointer)) + +(defcfunex-exported ("midiInPrepareHeader" midiInPrepareHeader :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("midiInUnprepareHeader" midiInUnprepareHeader :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("midiInAddBuffer" midiInAddBuffer :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("midiInStart" midiInStart :convention :stdcall) :unsigned-int + (arg0 :pointer)) + +(defcfunex-exported ("midiInStop" midiInStop :convention :stdcall) :unsigned-int + (arg0 :pointer)) + +(defcfunex-exported ("midiInReset" midiInReset :convention :stdcall) :unsigned-int + (arg0 :pointer)) + +(defcfunex-exported ("midiInGetID" midiInGetID :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("midiInMessage" midiInMessage :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-long) + (arg3 :unsigned-long)) + +(defcfunex-exported ("auxGetNumDevs" auxGetNumDevs :convention :stdcall) :unsigned-int) + +(defcfunex-exported ("auxGetDevCapsA" auxGetDevCapsA :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("auxGetDevCapsW" auxGetDevCapsW :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("auxSetVolume" auxSetVolume :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :unsigned-long)) + +(defcfunex-exported ("auxGetVolume" auxGetVolume :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :pointer)) + +(defcfunex-exported ("auxOutMessage" auxOutMessage :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :unsigned-int) + (arg2 :unsigned-long) + (arg3 :unsigned-long)) + +(defcfunex-exported ("mixerGetNumDevs" mixerGetNumDevs :convention :stdcall) :unsigned-int) + +(defcfunex-exported ("mixerGetDevCapsA" mixerGetDevCapsA :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("mixerGetDevCapsW" mixerGetDevCapsW :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("mixerOpen" mixerOpen :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-long) + (arg3 :unsigned-long) + (arg4 :unsigned-long)) + +(defcfunex-exported ("mixerClose" mixerClose :convention :stdcall) :unsigned-int + (arg0 :pointer)) + +(defcfunex-exported ("mixerMessage" mixerMessage :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-long) + (arg3 :unsigned-long)) + +(defcfunex-exported ("mixerGetLineInfoA" mixerGetLineInfoA :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("mixerGetLineInfoW" mixerGetLineInfoW :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("mixerGetID" mixerGetID :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("mixerGetLineControlsA" mixerGetLineControlsA :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("mixerGetLineControlsW" mixerGetLineControlsW :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("mixerGetControlDetailsA" mixerGetControlDetailsA :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("mixerGetControlDetailsW" mixerGetControlDetailsW :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("mixerSetControlDetails" mixerSetControlDetails :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("timeGetSystemTime" timeGetSystemTime :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int)) + +(defcfunex-exported ("timeGetTime" timeGetTime :convention :stdcall) :unsigned-long) + +(defcfunex-exported ("timeSetEvent" timeSetEvent :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :unsigned-int) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :unsigned-int)) + +(defcfunex-exported ("timeKillEvent" timeKillEvent :convention :stdcall) :unsigned-int + (arg0 :unsigned-int)) + +(defcfunex-exported ("timeGetDevCaps" timeGetDevCaps :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int)) + +(defcfunex-exported ("timeBeginPeriod" timeBeginPeriod :convention :stdcall) :unsigned-int + (arg0 :unsigned-int)) + +(defcfunex-exported ("timeEndPeriod" timeEndPeriod :convention :stdcall) :unsigned-int + (arg0 :unsigned-int)) + +(defcfunex-exported ("joyGetNumDevs" joyGetNumDevs :convention :stdcall) :unsigned-int) + +(defcfunex-exported ("joyGetDevCapsA" joyGetDevCapsA :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("joyGetDevCapsW" joyGetDevCapsW :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("joyGetPos" joyGetPos :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :pointer)) + +(defcfunex-exported ("joyGetPosEx" joyGetPosEx :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :pointer)) + +(defcfunex-exported ("joyGetThreshold" joyGetThreshold :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :pointer)) + +(defcfunex-exported ("joyReleaseCapture" joyReleaseCapture :convention :stdcall) :unsigned-int + (arg0 :unsigned-int)) + +(defcfunex-exported ("joySetCapture" joySetCapture :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :unsigned-int) + (arg3 :int)) + +(defcfunex-exported ("joySetThreshold" joySetThreshold :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :unsigned-int)) + +(defcfunex-exported ("mmioStringToFOURCCA" mmioStringToFOURCCA :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :unsigned-int)) + +(defcfunex-exported ("mmioStringToFOURCCW" mmioStringToFOURCCW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :unsigned-int)) + +(defcfunex-exported ("mmioInstallIOProcA" mmioInstallIOProcA :convention :stdcall) :pointer + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("mmioInstallIOProcW" mmioInstallIOProcW :convention :stdcall) :pointer + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("mmioOpenA" mmioOpenA :convention :stdcall) :pointer + (arg0 :string) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("mmioOpenW" mmioOpenW :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("mmioRenameA" mmioRenameA :convention :stdcall) :unsigned-int + (arg0 :string) + (arg1 :string) + (arg2 :pointer) + (arg3 :unsigned-long)) + +(defcfunex-exported ("mmioRenameW" mmioRenameW :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-long)) + +(defcfunex-exported ("mmioClose" mmioClose :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int)) + +(defcfunex-exported ("mmioRead" mmioRead :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :string) + (arg2 :int32)) + +(defcfunex-exported ("mmioWrite" mmioWrite :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :string) + (arg2 :int32)) + +(defcfunex-exported ("mmioSeek" mmioSeek :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :int32) + (arg2 :int)) + +(defcfunex-exported ("mmioGetInfo" mmioGetInfo :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("mmioSetInfo" mmioSetInfo :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("mmioSetBuffer" mmioSetBuffer :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :string) + (arg2 :int32) + (arg3 :unsigned-int)) + +(defcfunex-exported ("mmioFlush" mmioFlush :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :unsigned-int)) + +(defcfunex-exported ("mmioAdvance" mmioAdvance :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("mmioSendMessage" mmioSendMessage :convention :stdcall) :int32 + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :int32) + (arg3 :int32)) + +(defcfunex-exported ("mmioDescend" mmioDescend :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :unsigned-int)) + +(defcfunex-exported ("mmioAscend" mmioAscend :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("mmioCreateChunk" mmioCreateChunk :convention :stdcall) :unsigned-int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("mciSendCommandA" mciSendCommandA :convention :stdcall) :unsigned-long + (arg0 :unsigned-int) + (arg1 :unsigned-int) + (arg2 :unsigned-long) + (arg3 :unsigned-long)) + +(defcfunex-exported ("mciSendCommandW" mciSendCommandW :convention :stdcall) :unsigned-long + (arg0 :unsigned-int) + (arg1 :unsigned-int) + (arg2 :unsigned-long) + (arg3 :unsigned-long)) + +(defcfunex-exported ("mciSendStringA" mciSendStringA :convention :stdcall) :unsigned-long + (arg0 :string) + (arg1 :string) + (arg2 :unsigned-int) + (arg3 :pointer)) + +(defcfunex-exported ("mciSendStringW" mciSendStringW :convention :stdcall) :unsigned-long + (arg0 :pointer) + (arg1 :pointer) + (arg2 :unsigned-int) + (arg3 :pointer)) + +(defcfunex-exported ("mciGetDeviceIDA" mciGetDeviceIDA :convention :stdcall) :unsigned-int + (arg0 :string)) + +(defcfunex-exported ("mciGetDeviceIDW" mciGetDeviceIDW :convention :stdcall) :unsigned-int + (arg0 :pointer)) + +(defcfunex-exported ("mciGetDeviceIDFromElementIDA" mciGetDeviceIDFromElementIDA :convention :stdcall) :unsigned-int + (arg0 :unsigned-long) + (arg1 :string)) + +(defcfunex-exported ("mciGetDeviceIDFromElementIDW" mciGetDeviceIDFromElementIDW :convention :stdcall) :unsigned-int + (arg0 :unsigned-long) + (arg1 :pointer)) + +(defcfunex-exported ("mciGetErrorStringA" mciGetErrorStringA :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :string) + (arg2 :unsigned-int)) + +(defcfunex-exported ("mciGetErrorStringW" mciGetErrorStringW :convention :stdcall) :int + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :unsigned-int)) + +(defcfunex-exported ("mciSetYieldProc" mciSetYieldProc :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :unsigned-long)) + +(defcfunex-exported ("mciGetCreatorTask" mciGetCreatorTask :convention :stdcall) :pointer + (arg0 :unsigned-int)) + +(defcfunex-exported ("mciGetYieldProc" mciGetYieldProc :convention :stdcall) :pointer + (arg0 :unsigned-int) + (arg1 :pointer)) + +(defcstructex-exported MCI_SEQ_SET_PARMS + (dwCallback :unsigned-long) + (dwTimeFormat :unsigned-long) + (dwAudio :unsigned-long) + (dwTempo :unsigned-long) + (dwPort :unsigned-long) + (dwSlave :unsigned-long) + (dwMaster :unsigned-long) + (dwOffset :unsigned-long)) + + + + + + + +(defcstructex-exported MCI_ANIM_OPEN_PARMSA + (dwCallback :unsigned-long) + (wDeviceID :unsigned-int) + (lpstrDeviceType :string) + (lpstrElementName :string) + (lpstrAlias :string) + (dwStyle :unsigned-long) + (hWndParent :pointer)) + + + + + + + +(defcstructex-exported MCI_ANIM_OPEN_PARMSW + (dwCallback :unsigned-long) + (wDeviceID :unsigned-int) + (lpstrDeviceType :pointer) + (lpstrElementName :pointer) + (lpstrAlias :pointer) + (dwStyle :unsigned-long) + (hWndParent :pointer)) + + + + + + + +(defcstructex-exported MCI_ANIM_PLAY_PARMS + (dwCallback :unsigned-long) + (dwFrom :unsigned-long) + (dwTo :unsigned-long) + (dwSpeed :unsigned-long)) + + + + + + + +(defcstructex-exported MCI_ANIM_STEP_PARMS + (dwCallback :unsigned-long) + (dwFrames :unsigned-long)) + + + + + + + +(defcstructex-exported MCI_ANIM_WINDOW_PARMSA + (dwCallback :unsigned-long) + (hWnd :pointer) + (nCmdShow :unsigned-int) + (lpstrText :string)) + + + + + + + +(defcstructex-exported MCI_ANIM_WINDOW_PARMSW + (dwCallback :unsigned-long) + (hWnd :pointer) + (nCmdShow :unsigned-int) + (lpstrText :pointer)) + + + + + + + +(defcstructex-exported MCI_ANIM_RECT_PARMS + (dwCallback :unsigned-long) + (rc RECT)) + + + + + + + +(defcstructex-exported MCI_ANIM_UPDATE_PARMS + (dwCallback :unsigned-long) + (rc RECT) + (hDC :pointer)) + + + + + + + +(defcstructex-exported MCI_OVLY_OPEN_PARMSA + (dwCallback :unsigned-long) + (wDeviceID :unsigned-int) + (lpstrDeviceType :string) + (lpstrElementName :string) + (lpstrAlias :string) + (dwStyle :unsigned-long) + (hWndParent :pointer)) + + + + + + + +(defcstructex-exported MCI_OVLY_OPEN_PARMSW + (dwCallback :unsigned-long) + (wDeviceID :unsigned-int) + (lpstrDeviceType :pointer) + (lpstrElementName :pointer) + (lpstrAlias :pointer) + (dwStyle :unsigned-long) + (hWndParent :pointer)) + + + + + + + +(defcstructex-exported MCI_OVLY_WINDOW_PARMSA + (dwCallback :unsigned-long) + (hWnd :pointer) + (nCmdShow :unsigned-int) + (lpstrText :string)) + + + + + + + +(defcstructex-exported MCI_OVLY_WINDOW_PARMSW + (dwCallback :unsigned-long) + (hWnd :pointer) + (nCmdShow :unsigned-int) + (lpstrText :pointer)) + + + + + + + +(defcstructex-exported MCI_OVLY_RECT_PARMS + (dwCallback :unsigned-long) + (rc RECT)) + + + + + + + +(defcstructex-exported MCI_OVLY_SAVE_PARMSA + (dwCallback :unsigned-long) + (lpfilename :string) + (rc RECT)) + + + + + + + +(defcstructex-exported MCI_OVLY_SAVE_PARMSW + (dwCallback :unsigned-long) + (lpfilename :pointer) + (rc RECT)) + + + + + + + +(defcstructex-exported MCI_OVLY_LOAD_PARMSA + (dwCallback :unsigned-long) + (lpfilename :string) + (rc RECT)) + + +(defcstructex-exported MCI_OVLY_LOAD_PARMSW + (dwCallback :unsigned-long) + (lpfilename :pointer) + (rc RECT)) + diff --git a/modules/winperf.lisp b/modules/winperf.lisp new file mode 100644 index 0000000..46edd57 --- /dev/null +++ b/modules/winperf.lisp @@ -0,0 +1,219 @@ +(cl:in-package w32apimod) + +(define-w32api-module winperf :winperf) + +(cl:in-package cl-w32api.module.winperf) + + + +(defconstant-exported PERF_DATA_VERSION 1) + +(defconstant-exported PERF_DATA_REVISION 1) + +(defconstant-exported PERF_NO_INSTANCES -1) + +(defconstant-exported PERF_SIZE_DWORD 0) + +(defconstant-exported PERF_SIZE_LARGE 256) + +(defconstant-exported PERF_SIZE_ZERO 512) + +(defconstant-exported PERF_SIZE_VARIABLE_LEN 768) + +(defconstant-exported PERF_TYPE_NUMBER 0) + +(defconstant-exported PERF_TYPE_COUNTER 1024) + +(defconstant-exported PERF_TYPE_TEXT 2048) + +(defconstant-exported PERF_TYPE_ZERO #xC00) + +(defconstant-exported PERF_NUMBER_HEX 0) + +(defconstant-exported PERF_NUMBER_DECIMAL #x10000) + +(defconstant-exported PERF_NUMBER_DEC_1000 #x20000) + +(defconstant-exported PERF_COUNTER_VALUE 0) + +(defconstant-exported PERF_COUNTER_RATE #x10000) + +(defconstant-exported PERF_COUNTER_FRACTION #x20000) + +(defconstant-exported PERF_COUNTER_BASE #x30000) + +(defconstant-exported PERF_COUNTER_ELAPSED #x40000) + +(defconstant-exported PERF_COUNTER_QUEUELEN #x50000) + +(defconstant-exported PERF_COUNTER_HISTOGRAM #x60000) + +(defconstant-exported PERF_TEXT_UNICODE 0) + +(defconstant-exported PERF_TEXT_ASCII #x10000) + +(defconstant-exported PERF_TIMER_TICK 0) + +(defconstant-exported PERF_TIMER_100NS #x100000) + +(defconstant-exported PERF_OBJECT_TIMER #x200000) + +(defconstant-exported PERF_DELTA_COUNTER #x400000) + +(defconstant-exported PERF_DELTA_BASE #x800000) + +(defconstant-exported PERF_INVERSE_COUNTER #x1000000) + +(defconstant-exported PERF_MULTI_COUNTER #x2000000) + +(defconstant-exported PERF_DISPLAY_NO_SUFFIX 0) + +(defconstant-exported PERF_DISPLAY_PER_SEC #x10000000) + +(defconstant-exported PERF_DISPLAY_PERCENT #x20000000) + +(defconstant-exported PERF_DISPLAY_SECONDS #x30000000) + +(defconstant-exported PERF_DISPLAY_NOSHOW #x40000000) + +(defconstant-exported PERF_COUNTER_HISTOGRAM_TYPE #x80000000) + +(defconstant-exported PERF_NO_UNIQUE_ID -1) + +(defconstant-exported PERF_DETAIL_NOVICE 100) + +(defconstant-exported PERF_DETAIL_ADVANCED 200) + +(defconstant-exported PERF_DETAIL_EXPERT 300) + +(defconstant-exported PERF_DETAIL_WIZARD 400) + +(defconstant-exported PERF_COUNTER_COUNTER (cl:logior 0 1024 #x10000 0 #x400000 #x10000000)) + +(defconstant-exported PERF_COUNTER_TIMER (cl:logior 256 1024 #x10000 0 #x400000 #x20000000)) + +(defconstant-exported PERF_COUNTER_QUEUELEN_TYPE (cl:logior 0 1024 #x50000 0 #x400000 0)) + +(defconstant-exported PERF_COUNTER_BULK_COUNT (cl:logior 256 1024 #x10000 0 #x400000 #x10000000)) + +(defconstant-exported PERF_COUNTER_TEXT (cl:logior 768 2048 0 0)) + +(defconstant-exported PERF_COUNTER_RAWCOUNT (cl:logior 0 0 #x10000 0)) + +(defconstant-exported PERF_COUNTER_LARGE_RAWCOUNT (cl:logior 256 0 #x10000 0)) + +(defconstant-exported PERF_COUNTER_RAWCOUNT_HEX (cl:logior 0 0 0 0)) + +(defconstant-exported PERF_COUNTER_LARGE_RAWCOUNT_HEX (cl:logior 256 0 0 0)) + +(defconstant-exported PERF_SAMPLE_FRACTION (cl:logior 0 1024 #x20000 #x400000 #x800000 #x20000000)) + +(defconstant-exported PERF_SAMPLE_COUNTER (cl:logior 0 1024 #x10000 0 #x400000 0)) + +(defconstant-exported PERF_COUNTER_NODATA (cl:logior 512 #x40000000)) + +(defconstant-exported PERF_COUNTER_TIMER_INV (cl:logior 256 1024 #x10000 0 #x400000 #x1000000 #x20000000)) + +(defconstant-exported PERF_SAMPLE_BASE (cl:logior 0 1024 #x30000 #x40000000 1)) + +(defconstant-exported PERF_AVERAGE_TIMER (cl:logior 0 1024 #x20000 #x30000000)) + +(defconstant-exported PERF_AVERAGE_BASE (cl:logior 0 1024 #x30000 #x40000000 2)) + +(defconstant-exported PERF_AVERAGE_BULK (cl:logior 256 1024 #x20000 #x40000000)) + +(defconstant-exported PERF_100NSEC_TIMER (cl:logior 256 1024 #x10000 #x100000 #x400000 #x20000000)) + +(defconstant-exported PERF_100NSEC_TIMER_INV (cl:logior 256 1024 #x10000 #x100000 #x400000 #x1000000 #x20000000)) + +(defconstant-exported PERF_COUNTER_MULTI_TIMER (cl:logior 256 1024 #x10000 #x400000 0 #x2000000 #x20000000)) + +(defconstant-exported PERF_COUNTER_MULTI_TIMER_INV (cl:logior 256 1024 #x10000 #x400000 #x2000000 0 #x1000000 #x20000000)) + +(defconstant-exported PERF_COUNTER_MULTI_BASE (cl:logior 256 1024 #x30000 #x2000000 #x40000000)) + +(defconstant-exported PERF_100NSEC_MULTI_TIMER (cl:logior 256 1024 #x400000 #x10000 #x100000 #x2000000 #x20000000)) + +(defconstant-exported PERF_100NSEC_MULTI_TIMER_INV (cl:logior 256 1024 #x400000 #x10000 #x100000 #x2000000 #x1000000 #x20000000)) + +(defconstant-exported PERF_RAW_FRACTION (cl:logior 0 1024 #x20000 #x20000000)) + +(defconstant-exported PERF_RAW_BASE (cl:logior 0 1024 #x30000 #x40000000 3)) + +(defconstant-exported PERF_ELAPSED_TIME (cl:logior 256 1024 #x40000 #x200000 #x30000000)) + +(defcstructex-exported PERF_DATA_BLOCK + (Signature :pointer) + (LittleEndian :unsigned-long) + (Version :unsigned-long) + (Revision :unsigned-long) + (TotalByteLength :unsigned-long) + (HeaderLength :unsigned-long) + (NumObjectTypes :unsigned-long) + (DefaultObject :int32) + (SystemTime SYSTEMTIME) + (PerfTime LARGE_INTEGER) + (PerfFreq LARGE_INTEGER) + (PerfTime100nSec LARGE_INTEGER) + (SystemNameLength :unsigned-long) + (SystemNameOffset :unsigned-long)) + + + + + +(defcstructex-exported PERF_OBJECT_TYPE + (TotalByteLength :unsigned-long) + (DefinitionLength :unsigned-long) + (HeaderLength :unsigned-long) + (ObjectNameTitleIndex :unsigned-long) + (ObjectNameTitle :pointer) + (ObjectHelpTitleIndex :unsigned-long) + (ObjectHelpTitle :pointer) + (DetailLevel :unsigned-long) + (NumCounters :unsigned-long) + (DefaultCounter :int32) + (NumInstances :int32) + (CodePage :unsigned-long) + (PerfTime LARGE_INTEGER) + (PerfFreq LARGE_INTEGER)) + + + + + +(defcstructex-exported PERF_COUNTER_DEFINITION + (ByteLength :unsigned-long) + (CounterNameTitleIndex :unsigned-long) + (CounterNameTitle :pointer) + (CounterHelpTitleIndex :unsigned-long) + (CounterHelpTitle :pointer) + (DefaultScale :int32) + (DetailLevel :unsigned-long) + (CounterType :unsigned-long) + (CounterSize :unsigned-long) + (CounterOffset :unsigned-long)) + + + + + +(defcstructex-exported PERF_INSTANCE_DEFINITION + (ByteLength :unsigned-long) + (ParentObjectTitleIndex :unsigned-long) + (ParentObjectInstance :unsigned-long) + (UniqueID :int32) + (NameOffset :unsigned-long) + (NameLength :unsigned-long)) + + + + + +(defcstructex-exported PERF_COUNTER_BLOCK + (ByteLength :unsigned-long)) + + + + + diff --git a/modules/winsock.lisp b/modules/winsock.lisp new file mode 100644 index 0000000..75a0efc --- /dev/null +++ b/modules/winsock.lisp @@ -0,0 +1,1743 @@ + +(cl:in-package w32apimod) + +(define-w32api-module winsock :winsock) + +(cl:in-package cl-w32api.module.winsock) + + +(defconstant-exported FD_SETSIZE 64) + +(defconstant-exported SD_RECEIVE #x00) + +(defconstant-exported SD_SEND #x01) + +(defconstant-exported SD_BOTH #x02) + +(defcstructex-exported fd_set + (fd_count :unsigned-int) + (fd_array :pointer)) + + + +(defcfunex-exported ("__WSAFDIsSet" __WSAFDIsSet :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :pointer)) + +(defcstructex-exported timeval + (tv_sec :int32) + (tv_usec :int32)) + +(defcstructex-exported hostent + (h_name :string) + (h_aliases :pointer) + (h_addrtype :short) + (h_length :short) + (h_addr_list :pointer)) + +(defcstructex-exported linger + (l_onoff :unsigned-short) + (l_linger :unsigned-short)) + +(defconstant-exported IOCPARM_MASK #x7f) + +(defconstant-exported IOC_VOID #x20000000) + +(defconstant-exported IOC_OUT #x40000000) + +(defconstant-exported IOC_IN #x80000000) + +(defconstant-exported IOC_INOUT (cl:logior #x80000000 #x40000000)) + +(defcstructex-exported netent + (n_name :string) + (n_aliases :pointer) + (n_addrtype :short) + (n_net :unsigned-long)) + +(defcstructex-exported servent + (s_name :string) + (s_aliases :pointer) + (s_port :short) + (s_proto :string)) + +(defcstructex-exported protoent + (p_name :string) + (p_aliases :pointer) + (p_proto :short)) + +(defconstant-exported IPPROTO_IP 0) + +(defconstant-exported IPPROTO_ICMP 1) + +(defconstant-exported IPPROTO_IGMP 2) + +(defconstant-exported IPPROTO_GGP 3) + +(defconstant-exported IPPROTO_TCP 6) + +(defconstant-exported IPPROTO_PUP 12) + +(defconstant-exported IPPROTO_UDP 17) + +(defconstant-exported IPPROTO_IDP 22) + +(defconstant-exported IPPROTO_ND 77) + +(defconstant-exported IPPROTO_RAW 255) + +(defconstant-exported IPPROTO_MAX 256) + +(defconstant-exported IPPROTO_HOPOPTS 0) + +(defconstant-exported IPPROTO_IPV6 41) + +(defconstant-exported IPPROTO_ROUTING 43) + +(defconstant-exported IPPROTO_FRAGMENT 44) + +(defconstant-exported IPPROTO_ESP 50) + +(defconstant-exported IPPROTO_AH 51) + +(defconstant-exported IPPROTO_ICMPV6 58) + +(defconstant-exported IPPROTO_NONE 59) + +(defconstant-exported IPPROTO_DSTOPTS 60) + +(defconstant-exported IPPORT_ECHO 7) + +(defconstant-exported IPPORT_DISCARD 9) + +(defconstant-exported IPPORT_SYSTAT 11) + +(defconstant-exported IPPORT_DAYTIME 13) + +(defconstant-exported IPPORT_NETSTAT 15) + +(defconstant-exported IPPORT_FTP 21) + +(defconstant-exported IPPORT_TELNET 23) + +(defconstant-exported IPPORT_SMTP 25) + +(defconstant-exported IPPORT_TIMESERVER 37) + +(defconstant-exported IPPORT_NAMESERVER 42) + +(defconstant-exported IPPORT_WHOIS 43) + +(defconstant-exported IPPORT_MTP 57) + +(defconstant-exported IPPORT_TFTP 69) + +(defconstant-exported IPPORT_RJE 77) + +(defconstant-exported IPPORT_FINGER 79) + +(defconstant-exported IPPORT_TTYLINK 87) + +(defconstant-exported IPPORT_SUPDUP 95) + +(defconstant-exported IPPORT_EXECSERVER 512) + +(defconstant-exported IPPORT_LOGINSERVER 513) + +(defconstant-exported IPPORT_CMDSERVER 514) + +(defconstant-exported IPPORT_EFSSERVER 520) + +(defconstant-exported IPPORT_BIFFUDP 512) + +(defconstant-exported IPPORT_WHOSERVER 513) + +(defconstant-exported IPPORT_ROUTESERVER 520) + +(defconstant-exported IPPORT_RESERVED 1024) + +(defconstant-exported IMPLINK_IP 155) + +(defconstant-exported IMPLINK_LOWEXPER 156) + +(defconstant-exported IMPLINK_HIGHEXPER 158) + +(defcstructex-exported in_addr + (S_un :pointer)) + +(cffi:defcunion in_addr_S_un + (S_addr :unsigned-long) + (S_un_b :pointer) + (S_un_w :pointer)) + +(defcstructex-exported in_addr_S_un_S_un_w + (s_w1 :unsigned-short) + (s_w2 :unsigned-short)) + +(defcstructex-exported in_addr_S_un_S_un_b + (s_b1 :unsigned-char) + (s_b2 :unsigned-char) + (s_b3 :unsigned-char) + (s_b4 :unsigned-char)) + +(defconstant-exported IN_CLASSA_NET #xff000000) + +(defconstant-exported IN_CLASSA_NSHIFT 24) + +(defconstant-exported IN_CLASSA_HOST #x00ffffff) + +(defconstant-exported IN_CLASSA_MAX 128) + +(defconstant-exported IN_CLASSB_NET #xffff0000) + +(defconstant-exported IN_CLASSB_NSHIFT 16) + +(defconstant-exported IN_CLASSB_HOST #x0000ffff) + +(defconstant-exported IN_CLASSB_MAX 65536) + +(defconstant-exported IN_CLASSC_NET #xffffff00) + +(defconstant-exported IN_CLASSC_NSHIFT 8) + +(defconstant-exported IN_CLASSC_HOST #xff) + +(defconstant-exported INADDR_LOOPBACK #x7f000001) + +(defconstant-exported INADDR_NONE #xffffffff) + +(defcstructex-exported sockaddr_in + (sin_family :short) + (sin_port :unsigned-short) + (sin_addr in_addr) + (sin_zero :pointer)) + +(defconstant-exported WSADESCRIPTION_LEN 256) + +(defconstant-exported WSASYS_STATUS_LEN 128) + +(defcstructex-exported WSADATA + (wVersion :unsigned-short) + (wHighVersion :unsigned-short) + (szDescription :pointer) + (szSystemStatus :pointer) + (iMaxSockets :unsigned-short) + (iMaxUdpDg :unsigned-short) + (lpVendorInfo :string)) + + + + + +(defconstant-exported IP_OPTIONS 1) + +(defconstant-exported SO_DEBUG 1) + +(defconstant-exported SO_ACCEPTCONN 2) + +(defconstant-exported SO_REUSEADDR 4) + +(defconstant-exported SO_KEEPALIVE 8) + +(defconstant-exported SO_DONTROUTE 16) + +(defconstant-exported SO_BROADCAST 32) + +(defconstant-exported SO_USELOOPBACK 64) + +(defconstant-exported SO_LINGER 128) + +(defconstant-exported SO_OOBINLINE 256) + +(defconstant-exported SO_SNDBUF #x1001) + +(defconstant-exported SO_RCVBUF #x1002) + +(defconstant-exported SO_SNDLOWAT #x1003) + +(defconstant-exported SO_RCVLOWAT #x1004) + +(defconstant-exported SO_SNDTIMEO #x1005) + +(defconstant-exported SO_RCVTIMEO #x1006) + +(defconstant-exported SO_ERROR #x1007) + +(defconstant-exported SO_TYPE #x1008) + +(defconstant-exported SOCKET_ERROR -1) + +(defconstant-exported SOCK_STREAM 1) + +(defconstant-exported SOCK_DGRAM 2) + +(defconstant-exported SOCK_RAW 3) + +(defconstant-exported SOCK_RDM 4) + +(defconstant-exported SOCK_SEQPACKET 5) + +(defconstant-exported TCP_NODELAY #x0001) + +(defconstant-exported AF_UNSPEC 0) + +(defconstant-exported AF_UNIX 1) + +(defconstant-exported AF_INET 2) + +(defconstant-exported AF_IMPLINK 3) + +(defconstant-exported AF_PUP 4) + +(defconstant-exported AF_CHAOS 5) + +(defconstant-exported AF_IPX 6) + +(defconstant-exported AF_NS 6) + +(defconstant-exported AF_ISO 7) + +(defconstant-exported AF_OSI 7) + +(defconstant-exported AF_ECMA 8) + +(defconstant-exported AF_DATAKIT 9) + +(defconstant-exported AF_CCITT 10) + +(defconstant-exported AF_SNA 11) + +(defconstant-exported AF_DECnet 12) + +(defconstant-exported AF_DLI 13) + +(defconstant-exported AF_LAT 14) + +(defconstant-exported AF_HYLINK 15) + +(defconstant-exported AF_APPLETALK 16) + +(defconstant-exported AF_NETBIOS 17) + +(defconstant-exported AF_VOICEVIEW 18) + +(defconstant-exported AF_FIREFOX 19) + +(defconstant-exported AF_UNKNOWN1 20) + +(defconstant-exported AF_BAN 21) + +(defconstant-exported AF_ATM 22) + +(defconstant-exported AF_INET6 23) + +(defconstant-exported AF_CLUSTER 24) + +(defconstant-exported AF_12844 25) + +(defconstant-exported AF_IRDA 26) + +(defconstant-exported AF_NETDES 28) + +(defconstant-exported AF_MAX 29) + +(defcstructex-exported sockaddr + (sa_family :unsigned-short) + (sa_data :pointer)) + +(defcstructex-exported sockaddr_storage + (ss_family :short) + (__ss_pad1 :pointer) + (__ss_align :long-long) + (__ss_pad2 :pointer)) + +(defcstructex-exported sockproto + (sp_family :unsigned-short) + (sp_protocol :unsigned-short)) + +(defconstant-exported PF_UNSPEC 0) + +(defconstant-exported PF_UNIX 1) + +(defconstant-exported PF_INET 2) + +(defconstant-exported PF_IMPLINK 3) + +(defconstant-exported PF_PUP 4) + +(defconstant-exported PF_CHAOS 5) + +(defconstant-exported PF_NS 6) + +(defconstant-exported PF_IPX 6) + +(defconstant-exported PF_ISO 7) + +(defconstant-exported PF_OSI 7) + +(defconstant-exported PF_ECMA 8) + +(defconstant-exported PF_DATAKIT 9) + +(defconstant-exported PF_CCITT 10) + +(defconstant-exported PF_SNA 11) + +(defconstant-exported PF_DECnet 12) + +(defconstant-exported PF_DLI 13) + +(defconstant-exported PF_LAT 14) + +(defconstant-exported PF_HYLINK 15) + +(defconstant-exported PF_APPLETALK 16) + +(defconstant-exported PF_VOICEVIEW 18) + +(defconstant-exported PF_FIREFOX 19) + +(defconstant-exported PF_UNKNOWN1 20) + +(defconstant-exported PF_BAN 21) + +(defconstant-exported PF_ATM 22) + +(defconstant-exported PF_INET6 23) + +(defconstant-exported PF_MAX 29) + +(defconstant-exported SOL_SOCKET #xffff) + +(defconstant-exported SOMAXCONN #x7fffffff) + +(defconstant-exported MSG_OOB 1) + +(defconstant-exported MSG_PEEK 2) + +(defconstant-exported MSG_DONTROUTE 4) + +(defconstant-exported MSG_MAXIOVLEN 16) + +(defconstant-exported MSG_PARTIAL #x8000) + +(defconstant-exported MAXGETHOSTSTRUCT 1024) + +(defconstant-exported FD_READ_BIT 0) + +(defconstant-exported FD_READ (cl:ash 1 0)) + +(defconstant-exported FD_WRITE_BIT 1) + +(defconstant-exported FD_WRITE (cl:ash 1 1)) + +(defconstant-exported FD_OOB_BIT 2) + +(defconstant-exported FD_OOB (cl:ash 1 2)) + +(defconstant-exported FD_ACCEPT_BIT 3) + +(defconstant-exported FD_ACCEPT (cl:ash 1 3)) + +(defconstant-exported FD_CONNECT_BIT 4) + +(defconstant-exported FD_CONNECT (cl:ash 1 4)) + +(defconstant-exported FD_CLOSE_BIT 5) + +(defconstant-exported FD_CLOSE (cl:ash 1 5)) + +(defconstant-exported FD_QOS_BIT 6) + +(defconstant-exported FD_QOS (cl:ash 1 6)) + +(defconstant-exported FD_GROUP_QOS_BIT 7) + +(defconstant-exported FD_GROUP_QOS (cl:ash 1 7)) + +(defconstant-exported FD_ROUTING_INTERFACE_CHANGE_BIT 8) + +(defconstant-exported FD_ROUTING_INTERFACE_CHANGE (cl:ash 1 8)) + +(defconstant-exported FD_ADDRESS_LIST_CHANGE_BIT 9) + +(defconstant-exported FD_ADDRESS_LIST_CHANGE (cl:ash 1 9)) + +(defconstant-exported FD_MAX_EVENTS 10) + +(defconstant-exported FD_ALL_EVENTS (cl:- (cl:ash 1 10) 1)) + +(defconstant-exported WSANO_ADDRESS 11004) + +(defconstant-exported HOST_NOT_FOUND 11001) + +(defconstant-exported TRY_AGAIN 11002) + +(defconstant-exported NO_RECOVERY 11003) + +(defconstant-exported NO_DATA 11004) + +(defconstant-exported NO_ADDRESS 11004) + +(defcfunex-exported ("accept" accept :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("bind" bind :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("closesocket" closesocket :convention :stdcall) :int + (arg0 :unsigned-int)) + +(defcfunex-exported ("connect" connect :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :int)) + +(defcfunex-exported ("ioctlsocket" ioctlsocket :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :int32) + (arg2 :pointer)) + +(defcfunex-exported ("getpeername" getpeername :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("getsockname" getsockname :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("getsockopt" getsockopt :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :int) + (arg2 :int) + (arg3 :string) + (arg4 :pointer)) + +(defcfunex-exported ("inet_addr" inet_addr :convention :stdcall) :unsigned-long + (arg0 :string)) + +(defcfunex-exported ("inet_ntoa" inet_ntoa :convention :stdcall) :string + (arg0 in_addr)) + +(defcfunex-exported ("listen" listen :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :int)) + +(defcfunex-exported ("recv" recv :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :string) + (arg2 :int) + (arg3 :int)) + +(defcfunex-exported ("recvfrom" recvfrom :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :string) + (arg2 :int) + (arg3 :int) + (arg4 :pointer) + (arg5 :pointer)) + +(defcfunex-exported ("send" send :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :string) + (arg2 :int) + (arg3 :int)) + +(defcfunex-exported ("sendto" sendto :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :string) + (arg2 :int) + (arg3 :int) + (arg4 :pointer) + (arg5 :int)) + +(defcfunex-exported ("setsockopt" setsockopt :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :int) + (arg2 :int) + (arg3 :string) + (arg4 :int)) + +(defcfunex-exported ("shutdown" shutdown :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :int)) + +(defcfunex-exported ("socket" socket :convention :stdcall) :unsigned-int + (arg0 :int) + (arg1 :int) + (arg2 :int)) + +(defcfunex-exported ("gethostbyaddr" gethostbyaddr :convention :stdcall) :pointer + (arg0 :string) + (arg1 :int) + (arg2 :int)) + +(defcfunex-exported ("gethostbyname" gethostbyname :convention :stdcall) :pointer + (arg0 :string)) + +(defcfunex-exported ("getservbyport" getservbyport :convention :stdcall) :pointer + (arg0 :int) + (arg1 :string)) + +(defcfunex-exported ("getservbyname" getservbyname :convention :stdcall) :pointer + (arg0 :string) + (arg1 :string)) + +(defcfunex-exported ("getprotobynumber" getprotobynumber :convention :stdcall) :pointer + (arg0 :int)) + +(defcfunex-exported ("getprotobyname" getprotobyname :convention :stdcall) :pointer + (arg0 :string)) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +(defcfunex-exported ("WSAStartup" WSAStartup :convention :stdcall) :int + (arg0 :unsigned-short) + (arg1 :pointer)) + +(defcfunex-exported ("WSACleanup" WSACleanup :convention :stdcall) :int) + +(defcfunex-exported ("WSASetLastError" WSASetLastError :convention :stdcall) :void + (arg0 :int)) + +(defcfunex-exported ("WSAGetLastError" WSAGetLastError :convention :stdcall) :int) + + + + + + + + + +(defcfunex-exported ("WSAIsBlocking" WSAIsBlocking :convention :stdcall) :int) + +(defcfunex-exported ("WSAUnhookBlockingHook" WSAUnhookBlockingHook :convention :stdcall) :int) + +(defcfunex-exported ("WSASetBlockingHook" WSASetBlockingHook :convention :stdcall) :pointer + (arg0 :pointer)) + +(defcfunex-exported ("WSACancelBlockingCall" WSACancelBlockingCall :convention :stdcall) :int) + + + + + + + + + +(defcfunex-exported ("WSAAsyncGetServByName" WSAAsyncGetServByName :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :string) + (arg3 :string) + (arg4 :string) + (arg5 :int)) + +(defcfunex-exported ("WSAAsyncGetServByPort" WSAAsyncGetServByPort :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :int) + (arg3 :string) + (arg4 :string) + (arg5 :int)) + +(defcfunex-exported ("WSAAsyncGetProtoByName" WSAAsyncGetProtoByName :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :string) + (arg3 :string) + (arg4 :int)) + +(defcfunex-exported ("WSAAsyncGetProtoByNumber" WSAAsyncGetProtoByNumber :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :int) + (arg3 :string) + (arg4 :int)) + +(defcfunex-exported ("WSAAsyncGetHostByName" WSAAsyncGetHostByName :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :string) + (arg3 :string) + (arg4 :int)) + +(defcfunex-exported ("WSAAsyncGetHostByAddr" WSAAsyncGetHostByAddr :convention :stdcall) :pointer + (arg0 :pointer) + (arg1 :unsigned-int) + (arg2 :string) + (arg3 :int) + (arg4 :int) + (arg5 :string) + (arg6 :int)) + +(defcfunex-exported ("WSACancelAsyncRequest" WSACancelAsyncRequest :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("WSAAsyncSelect" WSAAsyncSelect :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :unsigned-int) + (arg3 :int32)) + + + + + + + + + + + + + + + +(defcfunex-exported ("htonl" htonl :convention :stdcall) :unsigned-long + (arg0 :unsigned-long)) + +(defcfunex-exported ("ntohl" ntohl :convention :stdcall) :unsigned-long + (arg0 :unsigned-long)) + +(defcfunex-exported ("htons" htons :convention :stdcall) :unsigned-short + (arg0 :unsigned-short)) + +(defcfunex-exported ("ntohs" ntohs :convention :stdcall) :unsigned-short + (arg0 :unsigned-short)) + +(defcfunex-exported ("select" select :convention :stdcall) :int + (nfds :int) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("gethostname" gethostname :convention :stdcall) :int + (arg0 :string) + (arg1 :int)) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +(defconstant-exported IN_CLASSD_NET #xf0000000) + +(defconstant-exported IN_CLASSD_NSHIFT 28) + +(defconstant-exported IN_CLASSD_HOST #x0fffffff) + +(defconstant-exported FROM_PROTOCOL_INFO -1) + +(defconstant-exported SO_GROUP_ID #x2001) + +(defconstant-exported SO_GROUP_PRIORITY #x2002) + +(defconstant-exported SO_MAX_MSG_SIZE #x2003) + +(defconstant-exported SO_PROTOCOL_INFOA #x2004) + +(defconstant-exported SO_PROTOCOL_INFOW #x2005) + +(defconstant-exported SO_PROTOCOL_INFO #x2004) + +(defconstant-exported PVD_CONFIG #x3001) + +(defconstant-exported MSG_INTERRUPT #x10) + + + +(defconstant-exported WSA_IO_PENDING 997) + +(defconstant-exported WSA_IO_INCOMPLETE 996) + +(defconstant-exported WSA_INVALID_HANDLE 6) + +(defconstant-exported WSA_INVALID_PARAMETER 87) + +(defconstant-exported WSA_NOT_ENOUGH_MEMORY 8) + +(defconstant-exported WSA_OPERATION_ABORTED 995) + +(defconstant-exported WSA_MAXIMUM_WAIT_EVENTS 64) + +(defconstant-exported WSA_WAIT_EVENT_0 0) + +(defconstant-exported WSA_WAIT_IO_COMPLETION #xC0) + +(defconstant-exported WSA_WAIT_TIMEOUT 258) + +(defconstant-exported WSA_INFINITE #xFFFFFFFF) + +(defcstructex-exported WSABUF + (len :unsigned-long) + (buf :string)) + + + + + +(cffi:defcenum GUARANTEE + :BestEffortService + :ControlledLoadService + :PredictiveService + :GuaranteedDelayService + :GuaranteedService) + + + +(defcstructex-exported FLOWSPEC + (TokenRate :unsigned-int) + (TokenBucketSize :unsigned-int) + (PeakBandwidth :unsigned-int) + (Latency :unsigned-int) + (DelayVariation :unsigned-int) + (ServiceType :unsigned-int) + (MaxSduSize :unsigned-int) + (MinimumPolicedSize :unsigned-int)) + + + + + + + +(defcstructex-exported QOS + (SendingFlowspec FLOWSPEC) + (ReceivingFlowspec FLOWSPEC) + (ProviderSpecific WSABUF)) + + + + + +(defconstant-exported CF_ACCEPT #x0000) + +(defconstant-exported CF_REJECT #x0001) + +(defconstant-exported CF_DEFER #x0002) + + + +(defconstant-exported SG_UNCONSTRAINED_GROUP #x01) + +(defconstant-exported SG_CONSTRAINED_GROUP #x02) + +(defcstructex-exported WSANETWORKEVENTS + (lNetworkEvents :int32) + (iErrorCode :pointer)) + + + + + +(defconstant-exported MAX_PROTOCOL_CHAIN 7) + +(defconstant-exported BASE_PROTOCOL 1) + +(defconstant-exported LAYERED_PROTOCOL 0) + +(cffi:defcenum WSAESETSERVICEOP + (:RNRSERVICE_REGISTER #.0) + :RNRSERVICE_DEREGISTER + :RNRSERVICE_DELETE) + + + + + +(defcstructex-exported AFPROTOCOLS + (iAddressFamily :int) + (iProtocol :int)) + + + + + + + +(cffi:defcenum WSAECOMPARATOR + (:COMP_EQUAL #.0) + :COMP_NOTLESS) + + + + + +(defcstructex-exported WSAVERSION + (dwVersion :unsigned-long) + (ecHow WSAECOMPARATOR)) + + + + + + + +(defcstructex-exported SOCKET_ADDRESS + (lpSockaddr :pointer) + (iSockaddrLength :int)) + + + + + + + +(defcstructex-exported CSADDR_INFO + (LocalAddr SOCKET_ADDRESS) + (RemoteAddr SOCKET_ADDRESS) + (iSocketType :int) + (iProtocol :int)) + + + + + + + +(defcstructex-exported SOCKET_ADDRESS_LIST + (iAddressCount :int) + (Address :pointer)) + + + + + +(defcstructex-exported BLOB + (cbSize :unsigned-long) + (pBlobData :pointer)) + + + + + + + +(defcstructex-exported WSAQUERYSETA + (dwSize :unsigned-long) + (lpszServiceInstanceName :string) + (lpServiceClassId :pointer) + (lpVersion :pointer) + (lpszComment :string) + (dwNameSpace :unsigned-long) + (lpNSProviderId :pointer) + (lpszContext :string) + (dwNumberOfProtocols :unsigned-long) + (lpafpProtocols :pointer) + (lpszQueryString :string) + (dwNumberOfCsAddrs :unsigned-long) + (lpcsaBuffer :pointer) + (dwOutputFlags :unsigned-long) + (lpBlob :pointer)) + + + + + + + +(defcstructex-exported WSAQUERYSETW + (dwSize :unsigned-long) + (lpszServiceInstanceName :pointer) + (lpServiceClassId :pointer) + (lpVersion :pointer) + (lpszComment :pointer) + (dwNameSpace :unsigned-long) + (lpNSProviderId :pointer) + (lpszContext :pointer) + (dwNumberOfProtocols :unsigned-long) + (lpafpProtocols :pointer) + (lpszQueryString :pointer) + (dwNumberOfCsAddrs :unsigned-long) + (lpcsaBuffer :pointer) + (dwOutputFlags :unsigned-long) + (lpBlob :pointer)) + + + + + + + + + + + + + +(defconstant-exported LUP_DEEP #x0001) + +(defconstant-exported LUP_CONTAINERS #x0002) + +(defconstant-exported LUP_NOCONTAINERS #x0004) + +(defconstant-exported LUP_NEAREST #x0008) + +(defconstant-exported LUP_RETURN_NAME #x0010) + +(defconstant-exported LUP_RETURN_TYPE #x0020) + +(defconstant-exported LUP_RETURN_VERSION #x0040) + +(defconstant-exported LUP_RETURN_COMMENT #x0080) + +(defconstant-exported LUP_RETURN_ADDR #x0100) + +(defconstant-exported LUP_RETURN_BLOB #x0200) + +(defconstant-exported LUP_RETURN_ALIASES #x0400) + +(defconstant-exported LUP_RETURN_QUERY_STRING #x0800) + +(defconstant-exported LUP_RETURN_ALL #x0FF0) + +(defconstant-exported LUP_RES_SERVICE #x8000) + +(defconstant-exported LUP_FLUSHCACHE #x1000) + +(defconstant-exported LUP_FLUSHPREVIOUS #x2000) + +(defcstructex-exported WSANSCLASSINFOA + (lpszName :string) + (dwNameSpace :unsigned-long) + (dwValueType :unsigned-long) + (dwValueSize :unsigned-long) + (lpValue :pointer)) + + + + + + + +(defcstructex-exported WSANSCLASSINFOW + (lpszName :pointer) + (dwNameSpace :unsigned-long) + (dwValueType :unsigned-long) + (dwValueSize :unsigned-long) + (lpValue :pointer)) + + + + + + + + + + + + + +(defcstructex-exported WSASERVICECLASSINFOA + (lpServiceClassId :pointer) + (lpszServiceClassName :string) + (dwCount :unsigned-long) + (lpClassInfos :pointer)) + + + + + + + +(defcstructex-exported WSASERVICECLASSINFOW + (lpServiceClassId :pointer) + (lpszServiceClassName :pointer) + (dwCount :unsigned-long) + (lpClassInfos :pointer)) + + + + + + + + + + + + + +(defcstructex-exported WSANAMESPACE_INFOA + (NSProviderId GUID) + (dwNameSpace :unsigned-long) + (fActive :int) + (dwVersion :unsigned-long) + (lpszIdentifier :string)) + + + + + + + +(defcstructex-exported WSANAMESPACE_INFOW + (NSProviderId GUID) + (dwNameSpace :unsigned-long) + (fActive :int) + (dwVersion :unsigned-long) + (lpszIdentifier :pointer)) + + + + + + + + + + + + + +(defcstructex-exported WSAPROTOCOLCHAIN + (ChainLen :int) + (ChainEntries :pointer)) + + + + + +(defconstant-exported WSAPROTOCOL_LEN 255) + +(defcstructex-exported WSAPROTOCOL_INFOA + (dwServiceFlags1 :unsigned-long) + (dwServiceFlags2 :unsigned-long) + (dwServiceFlags3 :unsigned-long) + (dwServiceFlags4 :unsigned-long) + (dwProviderFlags :unsigned-long) + (ProviderId GUID) + (dwCatalogEntryId :unsigned-long) + (ProtocolChain WSAPROTOCOLCHAIN) + (iVersion :int) + (iAddressFamily :int) + (iMaxSockAddr :int) + (iMinSockAddr :int) + (iSocketType :int) + (iProtocol :int) + (iProtocolMaxOffset :int) + (iNetworkByteOrder :int) + (iSecurityScheme :int) + (dwMessageSize :unsigned-long) + (dwProviderReserved :unsigned-long) + (szProtocol :pointer)) + + + + + +(defcstructex-exported WSAPROTOCOL_INFOW + (dwServiceFlags1 :unsigned-long) + (dwServiceFlags2 :unsigned-long) + (dwServiceFlags3 :unsigned-long) + (dwServiceFlags4 :unsigned-long) + (dwProviderFlags :unsigned-long) + (ProviderId GUID) + (dwCatalogEntryId :unsigned-long) + (ProtocolChain WSAPROTOCOLCHAIN) + (iVersion :int) + (iAddressFamily :int) + (iMaxSockAddr :int) + (iMinSockAddr :int) + (iSocketType :int) + (iProtocol :int) + (iProtocolMaxOffset :int) + (iNetworkByteOrder :int) + (iSecurityScheme :int) + (dwMessageSize :unsigned-long) + (dwProviderReserved :unsigned-long) + (szProtocol :pointer)) + + + + + + + + + + + + + +(cffi:defcenum WSACOMPLETIONTYPE + (:NSP_NOTIFY_IMMEDIATELY #.0) + :NSP_NOTIFY_HWND + :NSP_NOTIFY_EVENT + :NSP_NOTIFY_PORT + :NSP_NOTIFY_APC) + + + + + +(defcstructex-exported WSACOMPLETION + (Type WSACOMPLETIONTYPE) + (Parameters :pointer)) + + + + + + + +(cffi:defcunion WSACOMPLETION_Parameters + (WindowMessage :pointer) + (Event :pointer) + (Apc :pointer) + (Port :pointer)) + +(defcstructex-exported WSACOMPLETION_Parameters_Port + (lpOverlapped :pointer) + (hPort :pointer) + (Key :unsigned-long)) + +(defcstructex-exported WSACOMPLETION_Parameters_Apc + (lpOverlapped :pointer) + (lpfnCompletionProc :pointer)) + +(defcstructex-exported WSACOMPLETION_Parameters_Event + (lpOverlapped :pointer)) + +(defcstructex-exported WSACOMPLETION_Parameters_WindowMessage + (hWnd :pointer) + (uMsg :unsigned-int) + (context :unsigned-int)) + +(defconstant-exported PFL_MULTIPLE_PROTO_ENTRIES #x00000001) + +(defconstant-exported PFL_RECOMMENDED_PROTO_ENTRY #x00000002) + +(defconstant-exported PFL_HIDDEN #x00000004) + +(defconstant-exported PFL_MATCHES_PROTOCOL_ZERO #x00000008) + +(defconstant-exported XP1_CONNECTIONLESS #x00000001) + +(defconstant-exported XP1_GUARANTEED_DELIVERY #x00000002) + +(defconstant-exported XP1_GUARANTEED_ORDER #x00000004) + +(defconstant-exported XP1_MESSAGE_ORIENTED #x00000008) + +(defconstant-exported XP1_PSEUDO_STREAM #x00000010) + +(defconstant-exported XP1_GRACEFUL_CLOSE #x00000020) + +(defconstant-exported XP1_EXPEDITED_DATA #x00000040) + +(defconstant-exported XP1_CONNECT_DATA #x00000080) + +(defconstant-exported XP1_DISCONNECT_DATA #x00000100) + +(defconstant-exported XP1_SUPPORT_BROADCAST #x00000200) + +(defconstant-exported XP1_SUPPORT_MULTIPOINT #x00000400) + +(defconstant-exported XP1_MULTIPOINT_CONTROL_PLANE #x00000800) + +(defconstant-exported XP1_MULTIPOINT_DATA_PLANE #x00001000) + +(defconstant-exported XP1_QOS_SUPPORTED #x00002000) + +(defconstant-exported XP1_INTERRUPT #x00004000) + +(defconstant-exported XP1_UNI_SEND #x00008000) + +(defconstant-exported XP1_UNI_RECV #x00010000) + +(defconstant-exported XP1_IFS_HANDLES #x00020000) + +(defconstant-exported XP1_PARTIAL_MESSAGE #x00040000) + +(defconstant-exported BIGENDIAN #x0000) + +(defconstant-exported LITTLEENDIAN #x0001) + +(defconstant-exported SECURITY_PROTOCOL_NONE #x0000) + +(defconstant-exported JL_SENDER_ONLY #x01) + +(defconstant-exported JL_RECEIVER_ONLY #x02) + +(defconstant-exported JL_BOTH #x04) + +(defconstant-exported WSA_FLAG_OVERLAPPED #x01) + +(defconstant-exported WSA_FLAG_MULTIPOINT_C_ROOT #x02) + +(defconstant-exported WSA_FLAG_MULTIPOINT_C_LEAF #x04) + +(defconstant-exported WSA_FLAG_MULTIPOINT_D_ROOT #x08) + +(defconstant-exported WSA_FLAG_MULTIPOINT_D_LEAF #x10) + +(defconstant-exported IOC_UNIX #x00000000) + +(defconstant-exported IOC_WS2 #x08000000) + +(defconstant-exported IOC_PROTOCOL #x10000000) + +(defconstant-exported IOC_VENDOR #x18000000) + +(defconstant-exported SIO_ASSOCIATE_HANDLE (cl:logior #x80000000 #x08000000 1)) + +(defconstant-exported SIO_ENABLE_CIRCULAR_QUEUEING (cl:logior #x20000000 #x08000000 2)) + +(defconstant-exported SIO_FIND_ROUTE (cl:logior #x40000000 #x08000000 3)) + +(defconstant-exported SIO_FLUSH (cl:logior #x20000000 #x08000000 4)) + +(defconstant-exported SIO_GET_BROADCAST_ADDRESS (cl:logior #x40000000 #x08000000 5)) + +(defconstant-exported SIO_GET_EXTENSION_FUNCTION_POINTER (cl:logior IOC_INOUT IOC_WS2 6)) + +(defconstant-exported SIO_GET_QOS (cl:logior IOC_INOUT IOC_WS2 7)) + +(defconstant-exported SIO_GET_GROUP_QOS (cl:logior IOC_INOUT IOC_WS2 8)) + +(defconstant-exported SIO_MULTIPOINT_LOOPBACK (cl:logior #x80000000 #x08000000 9)) + +(defconstant-exported SIO_MULTICAST_SCOPE (cl:logior #x80000000 #x08000000 10)) + +(defconstant-exported SIO_SET_QOS (cl:logior #x80000000 #x08000000 11)) + +(defconstant-exported SIO_SET_GROUP_QOS (cl:logior #x80000000 #x08000000 12)) + +(defconstant-exported SIO_TRANSLATE_HANDLE (cl:logior IOC_INOUT IOC_WS2 13)) + +(defconstant-exported SIO_ROUTING_INTERFACE_QUERY (cl:logior IOC_INOUT IOC_WS2 20)) + +(defconstant-exported SIO_ROUTING_INTERFACE_CHANGE (cl:logior #x80000000 #x08000000 21)) + +(defconstant-exported SIO_ADDRESS_LIST_QUERY (cl:logior #x40000000 #x08000000 22)) + +(defconstant-exported SIO_ADDRESS_LIST_CHANGE (cl:logior #x20000000 #x08000000 23)) + +(defconstant-exported SIO_QUERY_TARGET_PNP_HANDLE (cl:logior #x40000000 #x08000000 24)) + +(defconstant-exported SIO_NSP_NOTIFY_CHANGE (cl:logior #x80000000 #x08000000 25)) + +(defconstant-exported TH_NETDEV #x00000001) + +(defconstant-exported TH_TAPI #x00000002) + +(defcfunex-exported ("WSAAccept" WSAAccept :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :unsigned-long)) + +(defcfunex-exported ("WSAAddressToStringA" WSAAddressToStringA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :string) + (arg4 :pointer)) + +(defcfunex-exported ("WSAAddressToStringW" WSAAddressToStringW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("WSACloseEvent" WSACloseEvent :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("WSAConnect" WSAConnect :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :int) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer) + (arg6 :pointer)) + +(defcfunex-exported ("WSACreateEvent" WSACreateEvent :convention :stdcall) :pointer) + +(defcfunex-exported ("WSADuplicateSocketA" WSADuplicateSocketA :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("WSADuplicateSocketW" WSADuplicateSocketW :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("WSAEnumNameSpaceProvidersA" WSAEnumNameSpaceProvidersA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("WSAEnumNameSpaceProvidersW" WSAEnumNameSpaceProvidersW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer)) + +(defcfunex-exported ("WSAEnumNetworkEvents" WSAEnumNetworkEvents :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("WSAEnumProtocolsA" WSAEnumProtocolsA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("WSAEnumProtocolsW" WSAEnumProtocolsW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("WSAEventSelect" WSAEventSelect :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :int32)) + +(defcfunex-exported ("WSAGetOverlappedResult" WSAGetOverlappedResult :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :int) + (arg4 :pointer)) + +(defcfunex-exported ("WSAGetQOSByName" WSAGetQOSByName :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("WSAGetServiceClassInfoA" WSAGetServiceClassInfoA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("WSAGetServiceClassInfoW" WSAGetServiceClassInfoW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("WSAGetServiceClassNameByClassIdA" WSAGetServiceClassNameByClassIdA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :string) + (arg2 :pointer)) + +(defcfunex-exported ("WSAGetServiceClassNameByClassIdW" WSAGetServiceClassNameByClassIdW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :pointer) + (arg2 :pointer)) + +(defcfunex-exported ("WSAHtonl" WSAHtonl :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("WSAHtons" WSAHtons :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :unsigned-short) + (arg2 :pointer)) + +(defcfunex-exported ("WSAInstallServiceClassA" WSAInstallServiceClassA :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("WSAInstallServiceClassW" WSAInstallServiceClassW :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("WSAIoctl" WSAIoctl :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :unsigned-long) + (arg6 :pointer) + (arg7 :pointer) + (arg8 :pointer)) + +(defcfunex-exported ("WSAJoinLeaf" WSAJoinLeaf :convention :stdcall) :unsigned-int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :int) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer) + (arg6 :pointer) + (arg7 :unsigned-long)) + +(defcfunex-exported ("WSALookupServiceBeginA" WSALookupServiceBeginA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("WSALookupServiceBeginW" WSALookupServiceBeginW :convention :stdcall) :int + (lpqsRestrictions :pointer) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("WSALookupServiceNextA" WSALookupServiceNextA :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("WSALookupServiceNextW" WSALookupServiceNextW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :pointer)) + +(defcfunex-exported ("WSALookupServiceEnd" WSALookupServiceEnd :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("WSANSPIoctl" WSANSPIoctl :convention :stdcall) :int + (arg0 :pointer) + (arg1 :unsigned-long) + (arg2 :pointer) + (arg3 :unsigned-long) + (arg4 :pointer) + (arg5 :unsigned-long) + (arg6 :pointer) + (arg7 :pointer)) + +(defcfunex-exported ("WSANtohl" WSANtohl :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :unsigned-long) + (arg2 :pointer)) + +(defcfunex-exported ("WSANtohs" WSANtohs :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :unsigned-short) + (arg2 :pointer)) + +(defcfunex-exported ("WSARecv" WSARecv :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer) + (arg6 :pointer)) + +(defcfunex-exported ("WSARecvDisconnect" WSARecvDisconnect :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :pointer)) + +(defcfunex-exported ("WSARecvFrom" WSARecvFrom :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :pointer) + (arg5 :pointer) + (arg6 :pointer) + (arg7 :pointer) + (arg8 :pointer)) + +(defcfunex-exported ("WSARemoveServiceClass" WSARemoveServiceClass :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("WSAResetEvent" WSAResetEvent :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("WSASend" WSASend :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer) + (arg6 :pointer)) + +(defcfunex-exported ("WSASendDisconnect" WSASendDisconnect :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :pointer)) + +(defcfunex-exported ("WSASendTo" WSASendTo :convention :stdcall) :int + (arg0 :unsigned-int) + (arg1 :pointer) + (arg2 :unsigned-long) + (arg3 :pointer) + (arg4 :unsigned-long) + (arg5 :pointer) + (arg6 :int) + (arg7 :pointer) + (arg8 :pointer)) + +(defcfunex-exported ("WSASetEvent" WSASetEvent :convention :stdcall) :int + (arg0 :pointer)) + +(defcfunex-exported ("WSASetServiceA" WSASetServiceA :convention :stdcall) :int + (arg0 :pointer) + (arg1 WSAESETSERVICEOP) + (arg2 :unsigned-long)) + +(defcfunex-exported ("WSASetServiceW" WSASetServiceW :convention :stdcall) :int + (arg0 :pointer) + (arg1 WSAESETSERVICEOP) + (arg2 :unsigned-long)) + +(defcfunex-exported ("WSASocketA" WSASocketA :convention :stdcall) :unsigned-int + (arg0 :int) + (arg1 :int) + (arg2 :int) + (arg3 :pointer) + (arg4 :unsigned-int) + (arg5 :unsigned-long)) + +(defcfunex-exported ("WSASocketW" WSASocketW :convention :stdcall) :unsigned-int + (arg0 :int) + (arg1 :int) + (arg2 :int) + (arg3 :pointer) + (arg4 :unsigned-int) + (arg5 :unsigned-long)) + +(defcfunex-exported ("WSAStringToAddressA" WSAStringToAddressA :convention :stdcall) :int + (arg0 :string) + (arg1 :int) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("WSAStringToAddressW" WSAStringToAddressW :convention :stdcall) :int + (arg0 :pointer) + (arg1 :int) + (arg2 :pointer) + (arg3 :pointer) + (arg4 :pointer)) + +(defcfunex-exported ("WSAWaitForMultipleEvents" WSAWaitForMultipleEvents :convention :stdcall) :unsigned-long + (arg0 :unsigned-long) + (arg1 :pointer) + (arg2 :int) + (arg3 :unsigned-long) + (arg4 :int)) + + + + + diff --git a/modules/winspool.lisp b/modules/winspool.lisp new file mode 100644 index 0000000..7d84c93 --- /dev/null +++ b/modules/winspool.lisp @@ -0,0 +1,1046 @@ +(cl:in-package w32apimod) + +(define-w32api-module winspool :winspool) + +(cl:in-package cl-w32api.module.winspool) + + + +(defconstant-exported DI_CHANNEL 1) + +(defconstant-exported DI_CHANNEL_WRITE 2) + +(defconstant-exported DI_READ_SPOOL_JOB 3) + +(defconstant-exported FORM_BUILTIN 1) + +(defconstant-exported JOB_CONTROL_PAUSE 1) + +(defconstant-exported JOB_CONTROL_RESUME 2) + +(defconstant-exported JOB_CONTROL_CANCEL 3) + +(defconstant-exported JOB_CONTROL_RESTART 4) + +(defconstant-exported JOB_CONTROL_DELETE 5) + +(defconstant-exported JOB_STATUS_PAUSED 1) + +(defconstant-exported JOB_STATUS_ERROR 2) + +(defconstant-exported JOB_STATUS_DELETING 4) + +(defconstant-exported JOB_STATUS_SPOOLING 8) + +(defconstant-exported JOB_STATUS_PRINTING 16) + +(defconstant-exported JOB_STATUS_OFFLINE 32) + +(defconstant-exported JOB_STATUS_PAPEROUT #x40) + +(defconstant-exported JOB_STATUS_PRINTED #x80) + +(defconstant-exported JOB_STATUS_DELETED #x100) + +(defconstant-exported JOB_STATUS_BLOCKED_DEVQ #x200) + +(defconstant-exported JOB_STATUS_USER_INTERVENTION #x400) + +(defconstant-exported JOB_POSITION_UNSPECIFIED 0) + +(defconstant-exported JOB_NOTIFY_TYPE 1) + +(defconstant-exported JOB_NOTIFY_FIELD_PRINTER_NAME 0) + +(defconstant-exported JOB_NOTIFY_FIELD_MACHINE_NAME 1) + +(defconstant-exported JOB_NOTIFY_FIELD_PORT_NAME 2) + +(defconstant-exported JOB_NOTIFY_FIELD_USER_NAME 3) + +(defconstant-exported JOB_NOTIFY_FIELD_NOTIFY_NAME 4) + +(defconstant-exported JOB_NOTIFY_FIELD_DATATYPE 5) + +(defconstant-exported JOB_NOTIFY_FIELD_PRINT_PROCESSOR 6) + +(defconstant-exported JOB_NOTIFY_FIELD_PARAMETERS 7) + +(defconstant-exported JOB_NOTIFY_FIELD_DRIVER_NAME 8) + +(defconstant-exported JOB_NOTIFY_FIELD_DEVMODE 9) + +(defconstant-exported JOB_NOTIFY_FIELD_STATUS 10) + +(defconstant-exported JOB_NOTIFY_FIELD_STATUS_STRING 11) + +(defconstant-exported JOB_NOTIFY_FIELD_SECURITY_DESCRIPTOR 12) + +(defconstant-exported JOB_NOTIFY_FIELD_DOCUMENT 13) + +(defconstant-exported JOB_NOTIFY_FIELD_PRIORITY 14) + +(defconstant-exported JOB_NOTIFY_FIELD_POSITION 15) + +(defconstant-exported JOB_NOTIFY_FIELD_SUBMITTED 16) + +(defconstant-exported JOB_NOTIFY_FIELD_START_TIME 17) + +(defconstant-exported JOB_NOTIFY_FIELD_UNTIL_TIME 18) + +(defconstant-exported JOB_NOTIFY_FIELD_TIME 19) + +(defconstant-exported JOB_NOTIFY_FIELD_TOTAL_PAGES 20) + +(defconstant-exported JOB_NOTIFY_FIELD_PAGES_PRINTED 21) + +(defconstant-exported JOB_NOTIFY_FIELD_TOTAL_BYTES 22) + +(defconstant-exported JOB_NOTIFY_FIELD_BYTES_PRINTED 23) + +(defconstant-exported JOB_ACCESS_ADMINISTER 16) + +(defconstant-exported JOB_ALL_ACCESS (cl:logior #xF0000 16)) + +(defconstant-exported JOB_READ (cl:logior #x20000 16)) + +(defconstant-exported JOB_WRITE (cl:logior #x20000 16)) + +(defconstant-exported JOB_EXECUTE (cl:logior #x20000 16)) + +(defconstant-exported PRINTER_NOTIFY_OPTIONS_REFRESH 1) + +(defconstant-exported PRINTER_ACCESS_ADMINISTER 4) + +(defconstant-exported PRINTER_ACCESS_USE 8) + +(defconstant-exported PRINTER_ERROR_INFORMATION #x80000000) + +(defconstant-exported PRINTER_ERROR_WARNING #x40000000) + +(defconstant-exported PRINTER_ERROR_SEVERE #x20000000) + +(defconstant-exported PRINTER_ERROR_OUTOFPAPER 1) + +(defconstant-exported PRINTER_ERROR_JAM 2) + +(defconstant-exported PRINTER_ERROR_OUTOFTONER 4) + +(defconstant-exported PRINTER_CONTROL_PAUSE 1) + +(defconstant-exported PRINTER_CONTROL_RESUME 2) + +(defconstant-exported PRINTER_CONTROL_PURGE 3) + +(defconstant-exported PRINTER_CONTROL_SET_STATUS 4) + +(defconstant-exported PRINTER_STATUS_PAUSED 1) + +(defconstant-exported PRINTER_STATUS_ERROR 2) + +(defconstant-exported PRINTER_STATUS_PENDING_DELETION 4) + +(defconstant-exported PRINTER_STATUS_PAPER_JAM 8) + +(defconstant-exported PRINTER_STATUS_PAPER_OUT #x10) + +(defconstant-exported PRINTER_STATUS_MANUAL_FEED #x20) + +(defconstant-exported PRINTER_STATUS_PAPER_PROBLEM #x40) + +(defconstant-exported PRINTER_STATUS_OFFLINE #x80) + +(defconstant-exported PRINTER_STATUS_IO_ACTIVE #x100) + +(defconstant-exported PRINTER_STATUS_BUSY #x200) + +(defconstant-exported PRINTER_STATUS_PRINTING #x400) + +(defconstant-exported PRINTER_STATUS_OUTPUT_BIN_FULL #x800) + +(defconstant-exported PRINTER_STATUS_NOT_AVAILABLE #x1000) + +(defconstant-exported PRINTER_STATUS_WAITING #x2000) + +(defconstant-exported PRINTER_STATUS_PROCESSING #x4000) + +(defconstant-exported PRINTER_STATUS_INITIALIZING #x8000) + +(defconstant-exported PRINTER_STATUS_WARMING_UP #x10000) + +(defconstant-exported PRINTER_STATUS_TONER_LOW #x20000) + +(defconstant-exported PRINTER_STATUS_NO_TONER #x40000) + +(defconstant-exported PRINTER_STATUS_PAGE_PUNT #x80000) + +(defconstant-exported PRINTER_STATUS_USER_INTERVENTION #x100000) + +(defconstant-exported PRINTER_STATUS_OUT_OF_MEMORY #x200000) + +(defconstant-exported PRINTER_STATUS_DOOR_OPEN #x400000) + +(defconstant-exported PRINTER_STATUS_SERVER_UNKNOWN #x800000) + +(defconstant-exported PRINTER_STATUS_POWER_SAVE #x1000000) + +(defconstant-exported PRINTER_ATTRIBUTE_QUEUED 1) + +(defconstant-exported PRINTER_ATTRIBUTE_DIRECT 2) + +(defconstant-exported PRINTER_ATTRIBUTE_DEFAULT 4) + +(defconstant-exported PRINTER_ATTRIBUTE_SHARED 8) + +(defconstant-exported PRINTER_ATTRIBUTE_NETWORK #x10) + +(defconstant-exported PRINTER_ATTRIBUTE_HIDDEN #x20) + +(defconstant-exported PRINTER_ATTRIBUTE_LOCAL #x40) + +(defconstant-exported PRINTER_ATTRIBUTE_ENABLE_DEVQ #x80) + +(defconstant-exported PRINTER_ATTRIBUTE_KEEPPRINTEDJOBS #x100) + +(defconstant-exported PRINTER_ATTRIBUTE_DO_COMPLETE_FIRST #x200) + +(defconstant-exported PRINTER_ATTRIBUTE_WORK_OFFLINE #x400) + +(defconstant-exported PRINTER_ATTRIBUTE_ENABLE_BIDI #x800) + +(defconstant-exported PRINTER_ATTRIBUTE_RAW_ONLY #x1000) + +(defconstant-exported PRINTER_ATTRIBUTE_PUBLISHED #x2000) + +(defconstant-exported PRINTER_ENUM_DEFAULT 1) + +(defconstant-exported PRINTER_ENUM_LOCAL 2) + +(defconstant-exported PRINTER_ENUM_CONNECTIONS 4) + +(defconstant-exported PRINTER_ENUM_FAVORITE 4) + +(defconstant-exported PRINTER_ENUM_NAME 8) + +(defconstant-exported PRINTER_ENUM_REMOTE 16) + +(defconstant-exported PRINTER_ENUM_SHARED 32) + +(defconstant-exported PRINTER_ENUM_NETWORK #x40) + +(defconstant-exported PRINTER_ENUM_EXPAND #x4000) + +(defconstant-exported PRINTER_ENUM_CONTAINER #x8000) + +(defconstant-exported PRINTER_ENUM_ICONMASK #xff0000) + +(defconstant-exported PRINTER_ENUM_ICON1 #x10000) + +(defconstant-exported PRINTER_ENUM_ICON2 #x20000) + +(defconstant-exported PRINTER_ENUM_ICON3 #x40000) + +(defconstant-exported PRINTER_ENUM_ICON4 #x80000) + +(defconstant-exported PRINTER_ENUM_ICON5 #x100000) + +(defconstant-exported PRINTER_ENUM_ICON6 #x200000) + +(defconstant-exported PRINTER_ENUM_ICON7 #x400000) + +(defconstant-exported PRINTER_ENUM_ICON8 #x800000) + +(defconstant-exported PRINTER_NOTIFY_TYPE 0) + +(defconstant-exported PRINTER_NOTIFY_FIELD_SERVER_NAME 0) + +(defconstant-exported PRINTER_NOTIFY_FIELD_PRINTER_NAME 1) + +(defconstant-exported PRINTER_NOTIFY_FIELD_SHARE_NAME 2) + +(defconstant-exported PRINTER_NOTIFY_FIELD_PORT_NAME 3) + +(defconstant-exported PRINTER_NOTIFY_FIELD_DRIVER_NAME 4) + +(defconstant-exported PRINTER_NOTIFY_FIELD_COMMENT 5) + +(defconstant-exported PRINTER_NOTIFY_FIELD_LOCATION 6) + +(defconstant-exported PRINTER_NOTIFY_FIELD_DEVMODE 7) + +(defconstant-exported PRINTER_NOTIFY_FIELD_SEPFILE 8) + +(defconstant-exported PRINTER_NOTIFY_FIELD_PRINT_PROCESSOR 9) + +(defconstant-exported PRINTER_NOTIFY_FIELD_PARAMETERS 10) + +(defconstant-exported PRINTER_NOTIFY_FIELD_DATATYPE 11) + +(defconstant-exported PRINTER_NOTIFY_FIELD_SECURITY_DESCRIPTOR 12) + +(defconstant-exported PRINTER_NOTIFY_FIELD_ATTRIBUTES 13) + +(defconstant-exported PRINTER_NOTIFY_FIELD_PRIORITY 14) + +(defconstant-exported PRINTER_NOTIFY_FIELD_DEFAULT_PRIORITY 15) + +(defconstant-exported PRINTER_NOTIFY_FIELD_START_TIME 16) + +(defconstant-exported PRINTER_NOTIFY_FIELD_UNTIL_TIME 17) + +(defconstant-exported PRINTER_NOTIFY_FIELD_STATUS 18) + +(defconstant-exported PRINTER_NOTIFY_FIELD_STATUS_STRING 19) + +(defconstant-exported PRINTER_NOTIFY_FIELD_CJOBS 20) + +(defconstant-exported PRINTER_NOTIFY_FIELD_AVERAGE_PPM 21) + +(defconstant-exported PRINTER_NOTIFY_FIELD_TOTAL_PAGES 22) + +(defconstant-exported PRINTER_NOTIFY_FIELD_PAGES_PRINTED 23) + +(defconstant-exported PRINTER_NOTIFY_FIELD_TOTAL_BYTES 24) + +(defconstant-exported PRINTER_NOTIFY_FIELD_BYTES_PRINTED 25) + +(defconstant-exported PRINTER_CHANGE_ADD_PRINTER 1) + +(defconstant-exported PRINTER_CHANGE_SET_PRINTER 2) + +(defconstant-exported PRINTER_CHANGE_DELETE_PRINTER 4) + +(defconstant-exported PRINTER_CHANGE_FAILED_CONNECTION_PRINTER 8) + +(defconstant-exported PRINTER_CHANGE_PRINTER #xFF) + +(defconstant-exported PRINTER_CHANGE_ADD_JOB #x100) + +(defconstant-exported PRINTER_CHANGE_SET_JOB #x200) + +(defconstant-exported PRINTER_CHANGE_DELETE_JOB #x400) + +(defconstant-exported PRINTER_CHANGE_WRITE_JOB #x800) + +(defconstant-exported PRINTER_CHANGE_JOB #xFF00) + +(defconstant-exported PRINTER_CHANGE_ADD_FORM #x10000) + +(defconstant-exported PRINTER_CHANGE_SET_FORM #x20000) + +(defconstant-exported PRINTER_CHANGE_DELETE_FORM #x40000) + +(defconstant-exported PRINTER_CHANGE_FORM #x70000) + +(defconstant-exported PRINTER_CHANGE_ADD_PORT #x100000) + +(defconstant-exported PRINTER_CHANGE_CONFIGURE_PORT #x200000) + +(defconstant-exported PRINTER_CHANGE_DELETE_PORT #x400000) + +(defconstant-exported PRINTER_CHANGE_PORT #x700000) + +(defconstant-exported PRINTER_CHANGE_ADD_PRINT_PROCESSOR #x1000000) + +(defconstant-exported PRINTER_CHANGE_DELETE_PRINT_PROCESSOR #x4000000) + +(defconstant-exported PRINTER_CHANGE_PRINT_PROCESSOR #x7000000) + +(defconstant-exported PRINTER_CHANGE_ADD_PRINTER_DRIVER #x10000000) + +(defconstant-exported PRINTER_CHANGE_SET_PRINTER_DRIVER #x20000000) + +(defconstant-exported PRINTER_CHANGE_DELETE_PRINTER_DRIVER #x40000000) + +(defconstant-exported PRINTER_CHANGE_PRINTER_DRIVER #x70000000) + +(defconstant-exported PRINTER_CHANGE_TIMEOUT #x80000000) + +(defconstant-exported PRINTER_CHANGE_ALL #x7777FFFF) + +(defconstant-exported PRINTER_NOTIFY_INFO_DISCARDED 1) + +(defconstant-exported PRINTER_ALL_ACCESS (cl:logior #xF0000 4 8)) + +(defconstant-exported PRINTER_READ (cl:logior #x20000 8)) + +(defconstant-exported PRINTER_WRITE (cl:logior #x20000 8)) + +(defconstant-exported PRINTER_EXECUTE (cl:logior #x20000 8)) + +(defconstant-exported NO_PRIORITY 0) + +(defconstant-exported MAX_PRIORITY 99) + +(defconstant-exported MIN_PRIORITY 1) + +(defconstant-exported DEF_PRIORITY 1) + +(defconstant-exported PORT_TYPE_WRITE 1) + +(defconstant-exported PORT_TYPE_READ 2) + +(defconstant-exported PORT_TYPE_REDIRECTED 4) + +(defconstant-exported PORT_TYPE_NET_ATTACHED 8) + +(defconstant-exported SERVER_ACCESS_ADMINISTER 1) + +(defconstant-exported SERVER_ACCESS_ENUMERATE 2) + +(defconstant-exported SERVER_ALL_ACCESS (cl:logior #xF0000 1 2)) + +(defconstant-exported SERVER_READ (cl:logior #x20000 2)) + +(defconstant-exported SERVER_WRITE (cl:logior #x20000 1 2)) + +(defconstant-exported SERVER_EXECUTE (cl:logior #x20000 2)) + +(defconstant-exported PORT_STATUS_TYPE_ERROR 1) + +(defconstant-exported PORT_STATUS_TYPE_WARNING 2) + +(defconstant-exported PORT_STATUS_TYPE_INFO 3) + +(defconstant-exported PORT_STATUS_OFFLINE 1) + +(defconstant-exported PORT_STATUS_PAPER_JAM 2) + +(defconstant-exported PORT_STATUS_PAPER_OUT 3) + +(defconstant-exported PORT_STATUS_OUTPUT_BIN_FULL 4) + +(defconstant-exported PORT_STATUS_PAPER_PROBLEM 5) + +(defconstant-exported PORT_STATUS_NO_TONER 6) + +(defconstant-exported PORT_STATUS_DOOR_OPEN 7) + +(defconstant-exported PORT_STATUS_USER_INTERVENTION 8) + +(defconstant-exported PORT_STATUS_OUT_OF_MEMORY 9) + +(defconstant-exported PORT_STATUS_TONER_LOW 10) + +(defconstant-exported PORT_STATUS_WARMING_UP 11) + +(defconstant-exported PORT_STATUS_POWER_SAVE 12) + +(defcstructex-exported ADDJOB_INFO_1A + (Path :string) + (JobId :unsigned-long)) + + + + + + + +(defcstructex-exported ADDJOB_INFO_1W + (Path :pointer) + (JobId :unsigned-long)) + + + + + + + +(defcstructex-exported DATATYPES_INFO_1A + (pName :string)) + + + + + + + +(defcstructex-exported DATATYPES_INFO_1W + (pName :pointer)) + + + + + + + +(defcstructex-exported JOB_INFO_1A + (JobId :unsigned-long) + (pPrinterName :string) + (pMachineName :string) + (pUserName :string) + (pDocument :string) + (pDatatype :string) + (pStatus :string) + (Status :unsigned-long) + (Priority :unsigned-long) + (Position :unsigned-long) + (TotalPages :unsigned-long) + (PagesPrinted :unsigned-long) + (Submitted SYSTEMTIME)) + + + + + + + +(defcstructex-exported JOB_INFO_1W + (JobId :unsigned-long) + (pPrinterName :pointer) + (pMachineName :pointer) + (pUserName :pointer) + (pDocument :pointer) + (pDatatype :pointer) + (pStatus :pointer) + (Status :unsigned-long) + (Priority :unsigned-long) + (Position :unsigned-long) + (TotalPages :unsigned-long) + (PagesPrinted :unsigned-long) + (Submitted SYSTEMTIME)) + + + + + + + +(defcstructex-exported JOB_INFO_2A + (JobId :unsigned-long) + (pPrinterName :string) + (pMachineName :string) + (pUserName :string) + (pDocument :string) + (pNotifyName :string) + (pDatatype :string) + (pPrintProcessor :string) + (pParameters :string) + (pDriverName :string) + (pDevMode :pointer) + (pStatus :string) + (pSecurityDescriptor :pointer) + (Status :unsigned-long) + (Priority :unsigned-long) + (Position :unsigned-long) + (StartTime :unsigned-long) + (UntilTime :unsigned-long) + (TotalPages :unsigned-long) + (Size :unsigned-long) + (Submitted SYSTEMTIME) + (Time :unsigned-long) + (PagesPrinted :unsigned-long)) + + + + + + + +(defcstructex-exported JOB_INFO_2W + (JobId :unsigned-long) + (pPrinterName :pointer) + (pMachineName :pointer) + (pUserName :pointer) + (pDocument :pointer) + (pNotifyName :pointer) + (pDatatype :pointer) + (pPrintProcessor :pointer) + (pParameters :pointer) + (pDriverName :pointer) + (pDevMode :pointer) + (pStatus :pointer) + (pSecurityDescriptor :pointer) + (Status :unsigned-long) + (Priority :unsigned-long) + (Position :unsigned-long) + (StartTime :unsigned-long) + (UntilTime :unsigned-long) + (TotalPages :unsigned-long) + (Size :unsigned-long) + (Submitted SYSTEMTIME) + (Time :unsigned-long) + (PagesPrinted :unsigned-long)) + + + + + + + +(defcstructex-exported DOC_INFO_1A + (pDocName :string) + (pOutputFile :string) + (pDatatype :string)) + + + + + + + +(defcstructex-exported DOC_INFO_1W + (pDocName :pointer) + (pOutputFile :pointer) + (pDatatype :pointer)) + + + + + + + +(defcstructex-exported DOC_INFO_2A + (pDocName :string) + (pOutputFile :string) + (pDatatype :string) + (dwMode :unsigned-long) + (JobId :unsigned-long)) + + + + + + + +(defcstructex-exported DOC_INFO_2W + (pDocName :pointer) + (pOutputFile :pointer) + (pDatatype :pointer) + (dwMode :unsigned-long) + (JobId :unsigned-long)) + + + + + + + +(defcstructex-exported DRIVER_INFO_1A + (pName :string)) + + + + + + + +(defcstructex-exported DRIVER_INFO_1W + (pName :pointer)) + + + + + + + +(defcstructex-exported DRIVER_INFO_2A + (cVersion :unsigned-long) + (pName :string) + (pEnvironment :string) + (pDriverPath :string) + (pDataFile :string) + (pConfigFile :string)) + + + + + + + +(defcstructex-exported DRIVER_INFO_2W + (cVersion :unsigned-long) + (pName :pointer) + (pEnvironment :pointer) + (pDriverPath :pointer) + (pDataFile :pointer) + (pConfigFile :pointer)) + + + + + + + +(defcstructex-exported DRIVER_INFO_3A + (cVersion :unsigned-long) + (pName :string) + (pEnvironment :string) + (pDriverPath :string) + (pDataFile :string) + (pConfigFile :string) + (pHelpFile :string) + (pDependentFiles :string) + (pMonitorName :string) + (pDefaultDataType :string)) + + + + + + + +(defcstructex-exported DRIVER_INFO_3W + (cVersion :unsigned-long) + (pName :pointer) + (pEnvironment :pointer) + (pDriverPath :pointer) + (pDataFile :pointer) + (pConfigFile :pointer) + (pHelpFile :pointer) + (pDependentFiles :pointer) + (pMonitorName :pointer) + (pDefaultDataType :pointer)) + + + + + + + +(defcstructex-exported MONITOR_INFO_1A + (pName :string)) + + + + + + + +(defcstructex-exported MONITOR_INFO_1W + (pName :pointer)) + + + + + + + +(defcstructex-exported PORT_INFO_1A + (pName :string)) + + + + + + + +(defcstructex-exported PORT_INFO_1W + (pName :pointer)) + + + + + + + +(defcstructex-exported MONITOR_INFO_2A + (pName :string) + (pEnvironment :string) + (pDLLName :string)) + + + + + + + +(defcstructex-exported MONITOR_INFO_2W + (pName :pointer) + (pEnvironment :pointer) + (pDLLName :pointer)) + + + + + + + +(defcstructex-exported PORT_INFO_2A + (pPortName :string) + (pMonitorName :string) + (pDescription :string) + (fPortType :unsigned-long) + (Reserved :unsigned-long)) + + + + + + + +(defcstructex-exported PORT_INFO_2W + (pPortName :pointer) + (pMonitorName :pointer) + (pDescription :pointer) + (fPortType :unsigned-long) + (Reserved :unsigned-long)) + + + + + + + +(defcstructex-exported PORT_INFO_3A + (dwStatus :unsigned-long) + (pszStatus :string) + (dwSeverity :unsigned-long)) + + + + + + + +(defcstructex-exported PORT_INFO_3W + (dwStatus :unsigned-long) + (pszStatus :pointer) + (dwSeverity :unsigned-long)) + + + + + + + +(defcstructex-exported PRINTER_INFO_1A + (Flags :unsigned-long) + (pDescription :string) + (pName :string) + (pComment :string)) + + + + + + + +(defcstructex-exported PRINTER_INFO_1W + (Flags :unsigned-long) + (pDescription :pointer) + (pName :pointer) + (pComment :pointer)) + + + + + + + +(defcstructex-exported PRINTER_INFO_2A + (pServerName :string) + (pPrinterName :string) + (pShareName :string) + (pPortName :string) + (pDriverName :string) + (pComment :string) + (pLocation :string) + (pDevMode :pointer) + (pSepFile :string) + (pPrintProcessor :string) + (pDatatype :string) + (pParameters :string) + (pSecurityDescriptor :pointer) + (Attributes :unsigned-long) + (Priority :unsigned-long) + (DefaultPriority :unsigned-long) + (StartTime :unsigned-long) + (UntilTime :unsigned-long) + (Status :unsigned-long) + (cJobs :unsigned-long) + (AveragePPM :unsigned-long)) + + + + + + + +(defcstructex-exported PRINTER_INFO_2W + (pServerName :pointer) + (pPrinterName :pointer) + (pShareName :pointer) + (pPortName :pointer) + (pDriverName :pointer) + (pComment :pointer) + (pLocation :pointer) + (pDevMode :pointer) + (pSepFile :pointer) + (pPrintProcessor :pointer) + (pDatatype :pointer) + (pParameters :pointer) + (pSecurityDescriptor :pointer) + (Attributes :unsigned-long) + (Priority :unsigned-long) + (DefaultPriority :unsigned-long) + (StartTime :unsigned-long) + (UntilTime :unsigned-long) + (Status :unsigned-long) + (cJobs :unsigned-long) + (AveragePPM :unsigned-long)) + + + + + + + +(defcstructex-exported PRINTER_INFO_3 + (pSecurityDescriptor :pointer)) + + + + + + + +(defcstructex-exported PRINTER_INFO_4A + (pPrinterName :string) + (pServerName :string) + (Attributes :unsigned-long)) + + + + + + + +(defcstructex-exported PRINTER_INFO_4W + (pPrinterName :pointer) + (pServerName :pointer) + (Attributes :unsigned-long)) + + + + + + + +(defcstructex-exported PRINTER_INFO_5A + (pPrinterName :string) + (pPortName :string) + (Attributes :unsigned-long) + (DeviceNotSelectedTimeout :unsigned-long) + (TransmissionRetryTimeout :unsigned-long)) + + + + + + + +(defcstructex-exported PRINTER_INFO_5W + (pPrinterName :pointer) + (pPortName :pointer) + (Attributes :unsigned-long) + (DeviceNotSelectedTimeout :unsigned-long) + (TransmissionRetryTimeout :unsigned-long)) + + + + + + + +(defcstructex-exported PRINTER_INFO_6 + (dwStatus :unsigned-long)) + + + + + + + +(defcstructex-exported PRINTPROCESSOR_INFO_1A + (pName :string)) + + + + + + + +(defcstructex-exported PRINTPROCESSOR_INFO_1W + (pName :pointer)) + + + + + + + +(defcstructex-exported PRINTER_NOTIFY_INFO_DATA + (Type :unsigned-short) + (Field :unsigned-short) + (Reserved :unsigned-long) + (Id :unsigned-long) + (NotifyData :pointer)) + + + + + + + +(cffi:defcunion PRINTER_NOTIFY_INFO_DATA_NotifyData + (adwData :pointer) + (Data :pointer)) + +(defcstructex-exported PRINTER_NOTIFY_INFO_DATA_NotifyData_Data + (cbBuf :unsigned-long) + (pBuf :pointer)) + +(defcstructex-exported PRINTER_NOTIFY_INFO + (Version :unsigned-long) + (Flags :unsigned-long) + (Count :unsigned-long) + (aData :pointer)) + + + + + + + +(defcstructex-exported FORM_INFO_1A + (Flags :unsigned-long) + (pName :string) + (Size :pointer) + (ImageableArea RECTL)) + + + + + + + +(defcstructex-exported FORM_INFO_1W + (Flags :unsigned-long) + (pName :pointer) + (Size :pointer) + (ImageableArea RECTL)) + + + + + + + +(defcstructex-exported PRINTER_DEFAULTSA + (pDatatype :string) + (pDevMode :pointer) + (DesiredAccess :unsigned-long)) + + + + + + + +(defcstructex-exported PRINTER_DEFAULTSW + (pDatatype :pointer) + (pDevMode :pointer) + (DesiredAccess :unsigned-long)) + + diff --git a/w32api-aux.lisp b/w32api-aux.lisp new file mode 100644 index 0000000..5e876de --- /dev/null +++ b/w32api-aux.lisp @@ -0,0 +1,16 @@ + +(in-package w32api) + +(lutilities:defmacro-exported %require-module (module-file-title &optional module-symbol) + (when (not module-symbol) + (setf module-symbol (intern (string-upcase module-file-title) "KEYWORD") )) + `(progn (w32apimod::load-module-from-file ,module-file-title) + (w32apimod::enable-module ,module-symbol))) + +(lutilities:defmacro-exported %require-all-modules () + `(w32apimod::enable-all-modules t)) + +;;(progn (cl:import 'luciffi::defcallback) +;; (cl:export 'luciffi::defcallback )) + +(%require-module "base") diff --git a/w32api-module.lisp b/w32api-module.lisp index 016eaa4..f528b28 100644 --- a/w32api-module.lisp +++ b/w32api-module.lisp @@ -14,12 +14,16 @@ (defvar *w32api-module-path* (or #.*compile-file-truename* #.*load-truename*)) +(defun make-module-package-name (name) + (intern (concatenate 'string + (string-upcase "cl-w32api.module.") + (symbol-name name)) (symbol-package name))) + (defmacro-exported define-w32api-module (name &rest module-names) - (let ((new-package-name (intern (concatenate 'string - (string-upcase "cl-w32api.module.") - (symbol-name name)) (symbol-package name)))) + (let ((new-package-name (make-module-package-name name))) `(progn (defpackage ,new-package-name - (:use :cl :lutilities :luciffi :cl-w32api.module :cl-w32api.utils)) + (:use :cl :lutilities :luciffi :cl-w32api.types + :cl-w32api.module :cl-w32api.utils)) (eval-when (:load-toplevel :execute) (let ((new-package (find-package ',new-package-name))) ,@(loop for module-name in module-names @@ -27,13 +31,19 @@ new-package)))) ))) +(defmacro without-package-variance-warnings (&body body) + `(eval-when (:compile-toplevel :load-toplevel :execute) + (handler-bind (#+sbcl(sb-int:package-at-variance #'muffle-warning)) + ,@body))) + (defmacro-exported w32api-sync-exported-names () `(eval-when (:load-toplevel :execute) (let ((w32api-package (find-package 'w32api))) (when w32api-package - (do-external-symbols (s (find-package *package*)) - (import s w32api-package) - (export s w32api-package)))))) + (without-package-variance-warnings + (do-external-symbols (s (find-package *package*)) + (import s w32api-package) + (export s w32api-package))))))) (defun-exported load-module-from-file (filename) (let ((path-of-this-file *w32api-module-path*) @@ -89,3 +99,14 @@ (fmakunbound 'load-module-from-file) (fmakunbound 'load-all-modules) ) + + +(defmacro-exported require-and-inherit-module (module-file-title &optional module-symbol) + (when (not module-symbol) + (setf module-symbol (intern (string-upcase module-file-title) "KEYWORD") )) + `(progn + (w32apimod::load-module-from-file ,module-file-title) + (w32apimod::enable-module ,module-symbol) + (use-package ',(make-module-package-name module-symbol)))) + + diff --git a/w32api-types.lisp b/w32api-types.lisp new file mode 100644 index 0000000..20f2cc7 --- /dev/null +++ b/w32api-types.lisp @@ -0,0 +1,106 @@ + +(defpackage cl-w32api.types + (:use :cl :lucifer.luciffi)) +(in-package cl-w32api.types) + + +;;string types + +(defvar *win32-astring-encoding* :cp1251) +(defvar *win32-wstring-encoding* :ucs-2le) + +(define-foreign-type w32api-astring-type (cffi::foreign-string-type) + () + (:simple-parser ASTRING)) +(export 'astring) + +(defmethod translate-to-foreign :around (s (type w32api-astring-type)) + (let ((luciffi::*default-foreign-encoding* *win32-astring-encoding*)) + (if (null s) + (null-pointer) + (call-next-method)))) + +(defmethod translate-from-foreign :around (ptr (type w32api-astring-type)) + (let ((luciffi::*default-foreign-encoding* *win32-astring-encoding*)) + (if (null-pointer-p ptr) + nil + (call-next-method)))) + +(define-foreign-type w32api-wstring-type (cffi::foreign-string-type) + () + (:simple-parser WSTRING)) +(export 'wstring) + +(defmethod translate-to-foreign :around (s (type w32api-wstring-type)) + (let ((luciffi::*default-foreign-encoding* *win32-wstring-encoding*)) + (if (null s) + (null-pointer) + (call-next-method)))) + +(defmethod translate-from-foreign :around (ptr (type w32api-wstring-type)) + (let ((luciffi::*default-foreign-encoding* *win32-wstring-encoding*)) + (if (null-pointer-p ptr) + nil + (call-next-method)))) + +;;handle types + +(define-foreign-type w32api-handle-type () + () + (:actual-type :pointer) + (:simple-parser handle)) +(export 'handle) + +(defmethod translate-to-foreign (s (type w32api-handle-type)) + (cond + ((null s) (luciffi:null-pointer)) + ((integerp s) (luciffi:make-pointer s)) + ((luciffi:pointerp s) s) + (t (error "Not a pointer: ~a" s)))) + +(defmethod translate-from-foreign :around (ptr (type w32api-handle-type)) + (let ((luciffi::*default-foreign-encoding* *win32-wstring-encoding*)) + (if (null-pointer-p ptr) + nil + (call-next-method)))) + +;;flag types +#| +(define-foreign-type w32api-flag-type () + ((available-flags :initarg :flag :reader available-flags)) + (:actual-type :unsigned-int)) + +(defmethod translate-to-foreign (s (type w32api-flag-type)) + (let ((available-flags (available-flags type))) + (cond + ((integerp s) s) + ((listp s) + (apply #'logior (mapcar (lambda (x) + (cond + ((symbolp x) + (or (cadr (assoc x available-flags :test #'eql)) + (error "Unrecognizable-flag: ~a ." x))) + (t x))) s)))))) +(defmethod translate-from-foreign (v (type w32api-flag-type)) + (let ((available-flags (available-flags type))) + (loop for (flag-symbol flag-value) in available-flags + if (equal (logior v flag-value) flag-value) + collecting flag-symbol into total-symbol-list + and collecting flag-value into total-value-list + end + finally (let ((rest-values (logxor v (apply #'logior total-value-list)))) + (when (not (zerop rest-values)) + (setf total-symbol-list (nconc total-symbol-list + (list rest-values)))) + (return total-symbol-list))))) + +(lutilities:defmacro-exported define-flags-type + (name available-flags &optional documentation) + (declare (ignore documentation)) + (cffi::warn-if-kw-or-belongs-to-cl name) + `(eval-when (:compile-toplevel :load-toplevel :execute) + (cffi::notice-foreign-type + ',name (make-instance 'w32api-flag-type :flag ',available-flags)))) + +|# +;;(lutilities:defexport define diff --git a/w32api-utils.lisp b/w32api-utils.lisp index f2c3494..c984ab6 100644 --- a/w32api-utils.lisp +++ b/w32api-utils.lisp @@ -16,6 +16,17 @@ (declare (ignore name base-type documentation)) `(defexport defctype ,@(cdr form))) +;;wrong -- TODO: process struct name from arg. +(defmacro-exported defcstructex-exported (&whole form name-and-options &body fields) + (declare (ignorable)) + `(progn + (eval-when (:compile-toplevel :load-toplevel :execute) + (export ',(if (atom name-and-options) + name-and-options + (car name-and-options)))) + (defcstruct-extended ,@(cdr form)))) + +;;wrong -- TODO: process lisp-name from arg. (defmacro-exported defcfunex-exported (&whole form (c-name lisp-name &rest other-options) return-type &body args) (declare (ignorable c-name other-options return-type args)) @@ -24,34 +35,13 @@ (export ',lisp-name)) (defcfun-extended ,@(cdr form)))) -(defun ansi-pp-fn (form) - `(let ((luciffi::*default-foreign-encoding* +win32-string-encoding+)) - ,form )) - -(defun unicode-pp-fn (form) - `(let ((luciffi::*default-foreign-encoding* +win32-wstring-encoding+)) - ,form )) - - -(defmacro-exported defcfunex-a-exported - ((c-name lisp-name &rest other-options) return-type &body args) - (declare (ignorable c-name other-options return-type args)) - `(progn - (eval-when (:compile-toplevel :load-toplevel :execute) - (export ',lisp-name)) - (defcfun-extended-with-fn (,c-name ,lisp-name ,@other-options) - ,return-type ,#'ansi-pp-fn ,@args))) - -(defmacro-exported defcfunex-w-exported - ((c-name lisp-name &rest other-options) return-type &body args) - (declare (ignorable c-name other-options return-type args)) - `(progn - (eval-when (:compile-toplevel :load-toplevel :execute) - (export ',lisp-name)) - (defcfun-extended-with-fn (,c-name ,lisp-name ,@other-options) - ,return-type ,#'unicode-pp-fn ,@args))) - - (defmacro-exported define-abbrev-exported (short long) - `(defmacro-exported ,short (&rest args) - `(,',long ,@args))) + `(progn (eval-when (:compile-toplevel :load-toplevel :execute) + (export ',short)) + (eval-when (:load-toplevel :execute) + (cond + ((macro-function ',long) (setf (macro-function ',short) + (macro-function ',long))) + ((fdefinition ',long) (setf (fdefinition ',short) + (fdefinition ',long))) + (t (error "~S is not defined!" ',long)))))) diff --git a/w32api.lisp b/w32api.lisp index f85a973..8f26178 100644 --- a/w32api.lisp +++ b/w32api.lisp @@ -1,6 +1,10 @@ (in-package cl-user) (defpackage cl-w32api - (:nicknames w32api)) + (:nicknames w32api) + (:use :cl)) +(defpackage cl-w32api-user + (:nicknames w32api-user) + (:use :cl :cl-w32api :luciffi)) -- 2.11.4.GIT