Changeset 628


Ignore:
Timestamp:
2008/09/21 02:01:36 (4 years ago)
Author:
egtra
Message:

winnls.ab, winsvc.abを追加

Location:
trunk/ab5.0/ablib/src
Files:
2 added
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/ab5.0/ablib/src/api_system.sbp

    r599 r628  
    33#ifdef UNICODE 
    44Const _FuncName_AddAtom = "AddAtomW" 
    5 Const _FuncName_CompareString = "CompareStringW" 
    65Const _FuncName_CopyFile = "CopyFileW" 
    76Const _FuncName_CreateDirectory = "CreateDirectoryW" 
    … …  
    2827Const _FuncName_GetComputerName = "GetComputerNameW" 
    2928Const _FuncName_GetCurrentDirectory = "GetCurrentDirectoryW" 
    30 Const _FuncName_GetDateFormat = "GetDateFormatW" 
    3129Const _FuncName_GetDiskFreeSpace = "GetDiskFreeSpaceW" 
    3230Const _FuncName_GetDiskFreeSpaceEx = "GetDiskFreeSpaceExW" 
    … …  
    5048Const _FuncName_GetTempFileName = "GetTempFileNameW" 
    5149Const _FuncName_GetTempPath = "GetTempPathW" 
    52 Const _FuncName_GetTimeFormat = "GetTimeFormatW" 
    5350Const _FuncName_GetUserName = "GetUserNameW" 
    5451Const _FuncName_GetVersionEx = "GetVersionExW" 
    5552Const _FuncName_GetWindowsDirectory = "GetWindowsDirectoryW" 
    56 Const _FuncName_LCMapString = "LCMapStringW" 
    5753Const _FuncName_LoadLibrary = "LoadLibraryW" 
    5854Const _FuncName_LoadLibraryEx = "LoadLibraryExW" 
    … …  
    7672#else 
    7773Const _FuncName_AddAtom = "AddAtomA" 
    78 Const _FuncName_CompareString = "CompareStringA" 
    7974Const _FuncName_CopyFile = "CopyFileA" 
    8075Const _FuncName_CreateDirectory = "CreateDirectoryA" 
    … …  
    105100Const _FuncName_GetComputerName = "GetComputerNameA" 
    106101Const _FuncName_GetCurrentDirectory = "GetCurrentDirectoryA" 
    107 Const _FuncName_GetDateFormat = "GetDateFormatA" 
    108102Const _FuncName_GetDiskFreeSpace = "GetDiskFreeSpaceA" 
    109103Const _FuncName_GetDiskFreeSpaceEx = "GetDiskFreeSpaceExA" 
    … …  
    123117Const _FuncName_GetTempFileName = "GetTempFileNameA" 
    124118Const _FuncName_GetTempPath = "GetTempPathA" 
    125 Const _FuncName_GetTimeFormat = "GetTimeFormatA" 
    126119Const _FuncName_GetUserName = "GetUserNameA" 
    127120Const _FuncName_GetVersionEx = "GetVersionExA" 
    128121Const _FuncName_GetWindowsDirectory = "GetWindowsDirectoryA" 
    129 Const _FuncName_LCMapString = "LCMapStringA" 
    130122Const _FuncName_LoadLibrary = "LoadLibraryA" 
    131123Const _FuncName_LoadLibraryEx = "LoadLibraryExA" 
    … …  
    207199Const GPTR =                GMEM_FIXED or GMEM_ZEROINIT 
    208200Const GMEM_DISCARDED =      &H4000 
    209  
    210 ' Locale flag 
    211 Const LOCALE_NOUSEROVERRIDE = &H80000000 
    212201 
    213202'Critical Section 
    … …  
    272261#endif 
    273262 
    274  
    275263Declare Function Beep Lib "kernel32" (dwFreq As DWord, dwDuration As DWord) As BOOL 
    276264Declare Function CloseHandle Lib "kernel32" (hObject As HANDLE) As BOOL 
    277265 
    278266Declare Function CompareFileTime Lib "kernel32" (ByRef FileTime1 As FILETIME, ByRef FileTime2 As FILETIME) As Long 
    279  
    280 Const NORM_IGNORECASE =     &H00000001 
    281 Const NORM_IGNORENONSPACE = &H00000002 
    282 Const NORM_IGNORESYMBOLS =  &H00000004 
    283 Const SORT_STRINGSORT =     &H00001000 
    284 Const NORM_IGNOREKANATYPE = &H00010000 
    285 Const NORM_IGNOREWIDTH =    &H00020000 
    286 Const CSTR_LESS_THAN =    1 
    287 Const CSTR_EQUAL =        2 
    288 Const CSTR_GREATER_THAN = 3 
    289 Declare Function CompareString Lib "kernel32" Alias _FuncName_CompareString (Locale As LCID, dwCmpFlags As DWord, pString1 As PCTSTR, cchCount1 As Long, pString2 As PCTSTR, cchCount2 As Long) As Long 
    290267 
    291268Declare Function CopyFile Lib "kernel32" Alias _FuncName_CopyFile (pExistingFileName As PCTSTR, pNewFileName As PCTSTR, bFailIfExists As BOOL) As BOOL 
    … …  
    294271Declare Function CreateMutex Lib "kernel32" Alias _FuncName_CreateMutex (lpMutexAttributes As *SECURITY_ATTRIBUTES, bInitialOwner As BOOL, lpName As PCTSTR) As HANDLE 
    295272Declare Function CreatePipe Lib "Kernel32" ( 
    296     ByRef hReadPipe As HANDLE, 
    297     ByRef hWritePipe As HANDLE, 
    298     ByVal pPipeAttributes As *SECURITY_ATTRIBUTES, 
    299     ByVal nSize As DWord) As Long 
     273    ByRef hReadPipe As HANDLE, 
     274    ByRef hWritePipe As HANDLE, 
     275    ByVal pPipeAttributes As *SECURITY_ATTRIBUTES, 
     276    ByVal nSize As DWord) As Long 
    300277Declare Function CreateSemaphore Lib "kernel32" Alias _FuncName_CreateSemaphore (pSemaphoreAttributes As *SECURITY_ATTRIBUTES, lInitialCount As Long, lMaximumCount As Long, pName As PCTSTR) As HANDLE 
    301278 
    … …  
    517494Declare Function GetCurrentThreadId Lib "kernel32" () As DWord 
    518495 
    519 Const DATE_SHORTDATE =        &H00000001 
    520 Const DATE_LONGDATE =         &H00000002 
    521 Const DATE_USE_ALT_CALENDAR = &H00000004 
    522 Declare Function GetDateFormat Lib "kernel32" Alias _FuncName_GetDateFormat (Locale As LCID, dwFlags As DWord, ByRef Date As SYSTEMTIME, pFormat As PCTSTR, pDateStr As PTSTR, cchDate As Long) As Long 
    523  
    524496Declare Function GetDiskFreeSpace Lib "kernel32" Alias _FuncName_GetDiskFreeSpace (pRootPathName As PCTSTR, lpSectorsPerCluster As *DWord, pBytesPerSector As *DWord, pNumberOfFreeClusters As *DWord, pTotalNumberOfClusters As *DWord) As BOOL 
    525497Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias _FuncName_GetDiskFreeSpaceEx (pDirectoryName As PCTSTR, ByRef lpFreeBytesAvailableToCaller As ULARGE_INTEGER, ByRef TotalNumberOfBytes As ULARGE_INTEGER, ByRef TotalNumberOfFreeBytes As ULARGE_INTEGER) As BOOL 
    … …  
    656628Declare Function GetTickCount Lib "kernel32" () As DWord 
    657629 
    658 Const TIME_NOMINUTESORSECONDS  = &H00000001 
    659 Const TIME_NOSECONDS           = &H00000002 
    660 Const TIME_NOTIMEMARKER        = &H00000004 
    661 Const TIME_FORCE24HOURFORMAT   = &H00000008 
    662 Declare Function GetTimeFormat Lib "kernel32" Alias _FuncName_GetTimeFormat (Locale As LCID, dwFlags As DWord, ByRef Time As SYSTEMTIME, lpFormat As PCTSTR, lpTimeStr As PTSTR, cchTime As DWord) As BOOL 
    663 Declare Function GetUserDefaultLCID Lib "kernel32" () As LCID 
    664630Declare Function GetUserName Lib "advapi32" Alias _FuncName_GetUserName (pBuffer As PTSTR, ByRef nSize As DWord) As BOOL 
    665631Declare Function GetVersionEx Lib "kernel32" Alias _FuncName_GetVersionEx (ByRef VersionInformation As OSVERSIONINFO) As BOOL 
    … …  
    696662Declare Function IsBadReadPtr Lib "kernel32" (lp As VoidPtr, ucb As ULONG_PTR) As BOOL 
    697663Declare Function IsBadWritePtr Lib "kernel32" (lp As VoidPtr, ucb As ULONG_PTR) As BOOL 
    698 Declare Function IsDBCSLeadByte Lib "kernel32" (TestChar As Byte) As BOOL 
    699664 
    700665#ifdef _WIN64 
    701666Declare Function IsWow64Process Lib "kernel32" (hProcess As HANDLE, ByRef bWow64Process As BOOL) As BOOL 
    702667#endif 
    703  
    704 Const LCMAP_LOWERCASE           = &H00000100  ' lower case letters 
    705 Const LCMAP_UPPERCASE           = &H00000200  ' upper case letters 
    706 Const LCMAP_SORTKEY             = &H00000400  ' WC sort key (normalize) 
    707 Const LCMAP_BYTEREV             = &H00000800  ' byte reversal 
    708 Const LCMAP_HIRAGANA            = &H00100000  ' map katakana to hiragana 
    709 Const LCMAP_KATAKANA            = &H00200000  ' map hiragana to katakana 
    710 Const LCMAP_HALFWIDTH           = &H00400000  ' map double byte to single byte 
    711 Const LCMAP_FULLWIDTH           = &H00800000  ' map single byte to double byte 
    712 Const LCMAP_LINGUISTIC_CASING   = &H01000000  ' use linguistic rules for casing 
    713 Const LCMAP_SIMPLIFIED_CHINESE  = &H02000000  ' map traditional chinese to simplified chinese 
    714 Const LCMAP_TRADITIONAL_CHINESE = &H04000000  ' map simplified chinese to traditional chinese 
    715 Declare Function LCMapString Lib "kernel32" Alias _FuncName_LCMapString (Locale As LCID, dwMapFlags As DWord, lpSrcStr As LPCTSTR, cchSrc As Long, lpDestStr As LPTSTR, cchDest As Long) As Long 
    716668 
    717669Declare Sub LeaveCriticalSection Lib "kernel32" (ByRef lpCriticalSection As CRITICAL_SECTION) 
    … …  
    755707) As Long 
    756708 
    757 Const CP_ACP        = 0      'default to ANSI code page 
    758 Const CP_OEMCP      = 1      'default to OEM  code page 
    759 Const CP_MACCP      = 2      'default to MAC  code page 
    760 Const CP_THREAD_ACP = 3      'current thread's ANSI code page 
    761 Const CP_SYMBOL     = 42     'SYMBOL translations 
    762 Const CP_UTF7       = 65000  'UTF-7 translation 
    763 Const CP_UTF8       = 65001  'UTF-8 translation 
    764  
    765 Declare Function MultiByteToWideChar Lib "kernel32" (CodePage As DWord, dwFlags As DWord, pMultiByteStr As PCSTR, cchMultiByte As Long, pWideCharStr As PWSTR, cchWideChar As Long) As Long 
    766709Declare Function OpenEvent Lib "kernel32" Alias _FuncName_OpenEvent (dwDesiredAccess As DWord, bInheritHandle As BOOL, lpName As LPCTSTR) As HANDLE 
    767710Declare Function OpenMutex Lib "kernel32" Alias _FuncName_OpenMutex (dwDesiredAccess As DWord, bInheritHandle As BOOL, lpName As LPCTSTR) As HANDLE 
    … …  
    831774Declare Function TerminateProcess Lib "kernel32" (hProcess As HANDLE, dwExitCode As DWord) As BOOL 
    832775Declare Function TerminateThread Lib "kernel32" (hThread As HANDLE, dwExitCode As DWord) As BOOL 
     776 
     777Const TLS_OUT_OF_INDEXES = &hffffffff As DWord 
    833778Declare Function TlsAlloc Lib "kernel32" () As DWord 
    834779Declare Function TlsFree Lib "kernel32" (dwTlsIndex As DWord) As BOOL 
    … …  
    870815Declare Function WaitForSingleObjectEx Lib "kernel32" (hHandle As HANDLE, dwMilliseconds As DWord, bAlertable As BOOL) As DWord 
    871816 
    872 Const WC_COMPOSITECHECK    = &H00000200 
    873 Const WC_DISCARDNS         = &H00000010 
    874 Const WC_SEPCHARS          = &H00000020 
    875 Const WC_DEFAULTCHAR       = &H00000040 
    876 Const WC_NO_BEST_FIT_CHARS = &H00000400 
    877 Declare Function WideCharToMultiByte Lib "Kernel32" ( 
    878     CodePage As DWord, 
    879     dwFlags As DWord, 
    880     pWideCharStr As PCWSTR, 
    881     cchWideChar As Long, 
    882     pMultiByteStr As PSTR, 
    883     cbMultiByte As Long, 
    884     pDefaultChar As PCSTR, 
    885     pUsedDefaultChar As *BOOL 
    886 ) As Long 
    887  
    888817Declare Function WriteFile Lib "kernel32" (hFile As HANDLE, lpBuffer As VoidPtr, nNumberOfBytesToWrite As DWord, lpNumberOfBytesWritten As *DWord, ByRef pOverlapped As OVERLAPPED) As BOOL 
    889818Declare Sub ZeroMemory Lib "kernel32" Alias "RtlZeroMemory" (Destination As VoidPtr, dwLength As DWord) 

  • trunk/ab5.0/ablib/src/basic/command.sbp

    r497 r628  
    5959 
    6060Macro MSGBOX(hwnd As HWND, str As String)(title As String, boxType As DWord, ByRef retAns As DWord) 
    61 '   Dim ret = MessageBox(hwnd, ToTCStr(str), ToTCStr(title), boxType) 
    62 '   If VarPtr(retAns) Then 
    63 '       retAns = ret 
    64 '   End If 
     61    Dim ret = MessageBox(hwnd, ToTCStr(str), ToTCStr(title), boxType) 
     62    If VarPtr(retAns) Then 
     63        retAns = ret 
     64    End If 
    6565End Macro 
    6666 
    … …  
    136136Macro CLOSE()(FileNumber As Long) 
    137137    FileNumber-- 
     138    ActiveBasic.Detail.ThrowIfInvaildFileNum(FileNumber) 
    138139 
    139140    If _System_hFile(FileNumber) Then 
    … …  
    148149Sub INPUT_FromFile(FileNumber As Long) 
    149150    FileNumber-- 
     151    ActiveBasic.Detail.ThrowIfInvaildFileNum(FileNumber) 
    150152 
    151153    Dim i = 0 As Long 
    … …  
    238240    Dim dwAccessByte As DWord 
    239241    FileNumber-- 
     242    ActiveBasic.Detail.ThrowIfInvaildFileNum(FileNumber) 
    240243 
    241244    WriteFile(_System_hFile(FileNumber), StrPtr(buf), Len(buf), VarPtr(dwAccessByte), ByVal 0) 
    … …  
    404407Macro FIELD(FileNumber As Long, FieldSize As Long) 
    405408    FileNumber-- 
     409    ActiveBasic.Detail.ThrowIfInvaildFileNum(FileNumber) 
    406410    _System_FieldSize(FileNumber)=FieldSize 
    407411End Macro 
    … …  
    410414 
    411415    FileNumber-- 
     416    ActiveBasic.Detail.ThrowIfInvaildFileNum(FileNumber) 
    412417    RecodeNumber-- 
    413418 
    … …  
    425430 
    426431    FileNumber-- 
     432    ActiveBasic.Detail.ThrowIfInvaildFileNum(FileNumber) 
    427433    RecodeNumber-- 
    428434 

  • trunk/ab5.0/ablib/src/basic/function.sbp

    r589 r628  
    123123*/ 
    124124Function Sgn(n As Double) As Long 
    125 '   Sgn = ActiveBasic..Math.Sign(n) 
     125'   Sgn = ActiveBasic.Math.Sign(n) 
    126126End Function 
    127127 
    … …  
    205205        Return New String(t, 2) 
    206206    Else 
    207         Throw New System.ArgumentOutOfRangeException("ChrW: c is invalid Unicode code point.", "c") 
     207        Throw New System.ArgumentOutOfRangeException("ChrW: c is invalid unicode code point.", "c") 
    208208    End If 
    209209End Function 
    … …  
    665665Function Eof(FileNum As Long) As Long 
    666666    FileNum-- 
     667    ActiveBasic.Detail.ThrowIfInvaildFileNum(FileNum) 
    667668    Dim dwCurrent = SetFilePointer(_System_hFile(FileNum), 0,NULL, FILE_CURRENT) 
    668669    Dim dwEnd = SetFilePointer(_System_hFile(FileNum), 0, NULL, FILE_END) 
    … …  
    677678 
    678679Function Lof(FileNum As Long) As Long 
    679     Lof = GetFileSize(_System_hFile(FileNum-1), 0) 
     680    FileNum-- 
     681    ActiveBasic.Detail.ThrowIfInvaildFileNum(FileNum) 
     682    Lof = GetFileSize(_System_hFile(FileNum), 0) 
    680683End Function 
    681684 
    682685Function Loc(FileNum As Long) As Long 
    683686    FileNum-- 
    684  
     687    ActiveBasic.Detail.ThrowIfInvaildFileNum(FileNum) 
    685688    Dim NowPos = SetFilePointer(_System_hFile(FileNum), 0, 0, FILE_CURRENT) 
    686689    Dim BeginPos = SetFilePointer(_System_hFile(FileNum), 0, 0, FILE_BEGIN) 
    … …  
    690693End Function 
    691694 
     695Namespace ActiveBasic 
     696Namespace Detail 
     697 
     698Sub ThrowIfInvaildFileNum(n As Long) 
     699    If n < 0 Or n > 255 Then 
     700        Throw New System.ArgumentOutOfRangeException("FileNum", "Invalid file number") 
     701    ElseIf _System_hFile(n) = 0 Then 
     702        Throw New System.InvalidOperationException("File number " & Str$(n + 1) & "is not opend.") 
     703    End If 
     704End Sub 
     705 
     706End Namespace 
     707End Namespace 
    692708 
    693709'------------------ 

  • trunk/ab5.0/ablib/src/windows.sbp

    r575 r628  
    44TypeDef LPOLESTR = *OLECHAR 
    55TypeDef LPCOLESTR = *OLECHAR 
    6  
    7 TypeDef LANGID = Word 
    8 TypeDef LCID = DWord 
    9 TypeDef LCTYPE = DWord 
    10 TypeDef LGRPID = DWord 
    116 
    127TypeDef PROPID = DWord 
    … …  
    1712#require <api_gdi.sbp> 
    1813#require <api_window.sbp> 
     14#require <winnls.ab> 
    1915#require <api_shell.sbp> 
    2016#require <api_msg.sbp> 
    … …  
    2622 
    2723#require <api_mmsys.sbp> 
     24#require <api_commdlg.sbp> 
    2825#require <ole2.ab> 
    29 #require <api_commdlg.sbp> 
    30  
     26#require <winsvc.ab> 
    3127#require <api_imm.sbp> 
    3228 
Note: See TracChangeset for help on using the changeset viewer.