X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fwin32.lisp;h=c970412c17e185b49600fbfcec44c6d6553ef824;hb=12a0ad4e13fd09f7809d0eb9066498c447674fbb;hp=fb3d5c120f82a65ee22642fdded497b52a65b520;hpb=9a82b26397de09d67372f34158090c2284fd1411;p=sbcl.git diff --git a/src/code/win32.lisp b/src/code/win32.lisp index fb3d5c1..c970412 100644 --- a/src/code/win32.lisp +++ b/src/code/win32.lisp @@ -118,7 +118,7 @@ (unless (zerop (peek-console-input handle (cast buf (* t)) - input-record-size (addr avail))) + 1 (addr avail))) (return-from handle-listen (plusp avail))) ;; FIXME-SOCKETS: Try again here with WSAEventSelect in case @@ -432,14 +432,16 @@ err-code (get-last-error-message err-code)))) -(defun get-folder-pathname (csidl) +(defun get-folder-namestring (csidl) "http://msdn.microsoft.com/library/en-us/shellcc/platform/shell/reference/functions/shgetfolderpath.asp" (with-alien ((apath (* char) (make-system-buffer (1+ max_path)))) (syscall (("SHGetFolderPath" 20 t) int handle int handle dword (* char)) - (parse-native-namestring - (concatenate 'string (cast-and-free apath) "\\")) + (concatenate 'string (cast-and-free apath) "\\") 0 csidl 0 0 apath))) +(defun get-folder-pathname (csidl) + (parse-native-namestring (get-folder-namestring csidl))) + (defun sb!unix:posix-getcwd () (with-alien ((apath (* char) (make-system-buffer (1+ max_path)))) (with-sysfun (afunc ("GetCurrentDirectory" 8 t) dword dword (* char)) @@ -564,7 +566,7 @@ #!-sb-fluid (declaim (inline get-time-of-day)) (defun get-time-of-day () - "Return the number of seconds and microseconds since the beginning og the + "Return the number of seconds and microseconds since the beginning of the UNIX epoch: January 1st 1970." (with-alien ((system-time filetime)) (syscall (("GetSystemTimeAsFileTime" 4) void (* filetime))