Changeset 337
- Timestamp:
- Sep 22, 2007, 12:32:25 PM (17 years ago)
- Location:
- trunk
- Files:
-
- 5 added
- 13 deleted
- 8 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Include/Classes/ActiveBasic/Windows/CriticalSection.ab
r335 r337 1 1 'Classes/ActiveBasic/Windows/CriticalSection.ab 2 3 #require <Classes/System/index.ab>4 2 5 3 Namespace ActiveBasic -
trunk/Include/Classes/System/Environment.ab
r268 r337 2 2 3 3 #require <api_psapi.sbp> 4 #require <Classes/System/OperatingSystem.ab>5 #require <Classes/ActiveBasic/Windows/index.ab>6 4 7 5 Declare Function _System_SetEnvironmentVariable Lib "kernel32" Alias _FuncName_SetEnvironmentVariable (lpName As LPCTSTR, lpValue As LPTSTR) As BOOL -
trunk/Include/Classes/System/IO/Directory.ab
r327 r337 26 26 End Function 27 27 28 Static Function GetAccessControl(path As String, includeSections As AccessControlSections) As DirectorySecurity28 Static Function GetAccessControl(path As String, includeSections As System.Security.AccessControl.AccessControlSections) As DirectorySecurity 29 29 End Function 30 30 -
trunk/Include/Classes/System/IO/FileStream.ab
r336 r337 297 297 End Sub 298 298 299 Override Function Read( ByRef buffer[] AsByte, offset As Long, count As Long) As Long299 Override Function Read( buffer As *Byte, offset As Long, count As Long) As Long 300 300 If This.CanRead() Then 301 301 Dim ret As DWord … … 316 316 End Function 317 317 318 Override Function ReadByte() As Long319 Dim b As Byte320 Dim ret = Read(b, 0, 1)321 If ret <> 0 Then322 Return b As Long323 Else324 Return -1325 End If326 End Function327 318 /* ReferenceEquals*/ 328 319 … … 388 379 End Sub 389 380 390 Override Sub Write( ByRef buffer[] AsByte, offset As Long, count As Long)381 Override Sub Write(buffer As *Byte, offset As Long, count As Long) 391 382 If This.CanWrite() Then 392 383 Dim ret As DWord … … 405 396 End Sub 406 397 407 Override Sub WriteByte(b As Byte)408 Write(b, 0, 1)409 End Sub410 411 398 Protected 412 399 Override Function CreateWaitHandle() As System.Threading.WaitHandle -
trunk/Include/Classes/System/IO/Stream.ab
r271 r337 46 46 Virtual Sub EndWrite(ByRef asyncResult As System.IAsyncResult): End Sub 47 47 Abstract Sub Flush() 48 Abstract Function Read( ByRef buffer[] AsByte, offset As Long, count As Long) As Long48 Abstract Function Read(buffer As *Byte, offset As Long, count As Long) As Long 49 49 50 50 Virtual Function ReadByte() As Long 51 51 Dim b As Byte 52 Dim ret = Read( b, 0, 1)52 Dim ret = Read(VarPtr(b), 0, 1) 53 53 If ret <> 0 Then 54 54 Return b … … 60 60 Abstract Function Seek(offset As Int64, origin As SeekOrigin) As Long 61 61 Abstract Sub SetLength(value As Int64) 62 Abstract Sub Write( ByRef buffer[] AsByte, offset As Long, count As Long)62 Abstract Sub Write(buffer As *Byte, offset As Long, count As Long) 63 63 64 64 Virtual Sub WriteByte(b As Byte) 65 Write( b, 0, 1)65 Write(VarPtr(b), 0, 1) 66 66 End Sub 67 67 Protected -
trunk/Include/Classes/index.ab
r275 r337 1 ' コンパイルに最低限必要なファイル 2 3 #require "./ActiveBasic/index.ab" 4 #require "./System/index.ab" 1 #require "./ActiveBasic/Core/TypeInfo.ab" 2 #require "./ActiveBasic/Math/Math.ab" 3 #require "./ActiveBasic/Strings/SPrintF.ab" 4 #require "./ActiveBasic/Strings/Strings.ab" 5 #require "./ActiveBasic/Windows/CriticalSection.ab" 6 #require "./ActiveBasic/Windows/WindowHandle.sbp" 7 #require "./ActiveBasic/Windows/Windows.ab" 8 #require "./System/Blittable.ab" 9 #require "./System/DateTime.ab" 10 #require "./System/Delegate.ab" 11 #require "./System/Environment.ab" 12 #require "./System/Math.ab" 13 #require "./System/misc.ab" 14 #require "./System/Object.ab" 15 #require "./System/OperatingSystem.ab" 16 #require "./System/String.ab" 17 #require "./System/TimeSpan.ab" 18 #require "./System/TypeInfo.ab" 19 #require "./System/Version.ab" 20 #require "./System/Collections/ArrayList.ab" 21 #require "./System/Collections/misc.ab" 22 #require "./System/Collections/Generic/Dictionary.ab" 23 #require "./System/Collections/Generic/List.ab" 24 /* 25 #require "./System/Data/Odbc/Odbc.ab" 26 */ 27 #require "./System/Diagnostics/base.ab" 28 #require "./System/Diagnostics/Debug.ab" 29 #require "./System/Diagnostics/Trace.ab" 30 #require "./System/Diagnostics/TraceListener.ab" 31 #require "./System/Diagnostics/TraceListenerCollection.ab" 32 /* 33 #require "./System/Drawing/CharacterRange.ab" 34 #require "./System/Drawing/Color.ab" 35 #require "./System/Drawing/Font.ab" 36 #require "./System/Drawing/Graphics.ab" 37 #require "./System/Drawing/Image.ab" 38 #require "./System/Drawing/misc.ab" 39 #require "./System/Drawing/Point.ab" 40 #require "./System/Drawing/PointF.ab" 41 #require "./System/Drawing/Rectangle.ab" 42 #require "./System/Drawing/RectangleF.ab" 43 #require "./System/Drawing/Size.ab" 44 #require "./System/Drawing/SizeF.ab" 45 #require "./System/Drawing/Drawing2D/Matrix.ab" 46 #require "./System/Drawing/Drawing2D/misc.ab" 47 #require "./System/Drawing/Imaging/MetafileHeader.ab" 48 #require "./System/Drawing/Imaging/misc.ab" 49 #require "./System/Drawing/Text/misc.ab" 50 */ 51 #require "./System/IO/Directory.ab" 52 #require "./System/IO/DirectoryInfo.ab" 53 #require "./System/IO/DirectorySecurity.ab" 54 #require "./System/IO/DriveInfo.ab" 55 #require "./System/IO/File.ab" 56 #require "./System/IO/FileInfo.ab" 57 #require "./System/IO/FileStream.ab" 58 #require "./System/IO/FileSystemInfo.ab" 59 #require "./System/IO/misc.ab" 60 #require "./System/IO/Path.ab" 61 #require "./System/IO/Stream.ab" 62 #require "./System/IO/StreamReader.ab" 63 #require "./System/IO/StreamWriter.ab" 64 #require "./System/Media/SystemSound.ab" 65 #require "./System/Media/SystemSounds.ab" 66 #require "./System/Runtime/InteropServices/GCHandle.ab" 67 #require "./System/Security/AccessControl/misc.ab" 68 #require "./System/Text/StringBuilder.ab" 69 #require "./System/Threading/Thread.ab" 70 #require "./System/Threading/WaitHandle.ab" 71 #require "./System/Windows/Forms/Application.ab" 72 #require "./System/Windows/Forms/Control.ab" 73 #require "./System/Windows/Forms/CreateParams.ab" 74 #require "./System/Windows/Forms/Message.ab" 75 #require "./System/Windows/Forms/MessageBox.ab" 76 #require "./System/Windows/Forms/misc.ab" 77 #require "./System/Windows/Forms/PaintEventArgs.ab" -
trunk/Include/api_sql.sbp
r300 r337 14 14 TypeDef SQLINTEGER = Long 15 15 TypeDef SQLUINTEGER = DWord 16 TypeDef SQLSMALLINT = Integer 17 TypeDef SQLUSMALLINT = Word 16 18 #ifdef _WIN64 17 19 TypeDef SQLLEN = Int64 -
trunk/TestCase/SimpleTestCase/SPrintFTest.ab
r335 r337 2 2 ' Test case of SPrintF Function and etc... 3 3 '-------------------------------------------------------------------- 4 5 #require <Classes/ActiveBasic/Strings/SPrintF.ab>6 4 7 5 Imports ActiveBasic.Strings
Note:
See TracChangeset
for help on using the changeset viewer.