From 2bc804b5b864296caea22a2eda0bb69c4fcb2266 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Fri, 3 Jun 2016 21:11:00 -0700 Subject: [PATCH] factor: more FUNCTION: renames and unit test fixes. --- core/alien/c-types/c-types-tests.factor | 8 +- ffi/cuda/demos/hello-world/hello-world.factor | 2 +- ffi/cuda/demos/prefix-sum/prefix-sum.factor | 2 +- ffi/cuda/syntax/syntax.factor | 2 +- ffi/lua/lua.factor | 4 +- ffi/openal/openal.factor | 2 +- ffi/openssl/libcrypto/libcrypto.factor | 10 +- .../directx/d3dx11async/d3dx11async.factor | 24 +- ffi/windows/directx/xact3/xact3.factor | 8 +- ffi/windows/directx/xaudio2/xaudio2.factor | 14 +- ffi/windows/gdiplus/gdiplus.factor | 153 +++++----- ffi/windows/kernel32/kernel32.factor | 18 +- ffi/windows/opengl32/opengl32.factor | 8 +- ffi/windows/user32/user32.factor | 28 +- ffi/windows/winsock/winsock.factor | 28 +- frameworks/db/postgresql/ffi/ffi.factor | 42 +-- frameworks/db/sqlite/ffi/ffi.factor | 4 +- language/alien/parser/parser-tests.factor | 2 +- .../prettyprint/prettyprint-tests.factor | 6 +- language/alien/prettyprint/prettyprint.factor | 4 +- libs/math/blas/ffi/ffi.factor | 288 +++++++++--------- unmaintained/cryptlib/libcl/libcl.factor | 4 +- 22 files changed, 323 insertions(+), 338 deletions(-) diff --git a/core/alien/c-types/c-types-tests.factor b/core/alien/c-types/c-types-tests.factor index 13947c0bee..576c872466 100644 --- a/core/alien/c-types/c-types-tests.factor +++ b/core/alien/c-types/c-types-tests.factor @@ -108,8 +108,8 @@ must-fail-with "IN: alien.c-types.tests USE: alien.syntax USE: alien.c-types - CALLBACK: void cb987 ( ) - CALLBACK: void cb987 ( )" eval( -- ) + CALLBACK: void cb987 ( ) ; + CALLBACK: void cb987 ( ) ;" eval( -- ) ] [ error>> error>> redefine-error? ] must-fail-with @@ -118,8 +118,8 @@ must-fail-with "IN: alien.c-types.tests USE: alien.syntax USE: alien.c-types - FUNCTION: void func987 ( ) - FUNCTION: void func987 ( )" eval( -- ) + FUNCTION: void func987 ( ) ; + FUNCTION: void func987 ( ) ;" eval( -- ) ] [ error>> error>> redefine-error? ] must-fail-with diff --git a/ffi/cuda/demos/hello-world/hello-world.factor b/ffi/cuda/demos/hello-world/hello-world.factor index ef410df80b..2fb1e07183 100644 --- a/ffi/cuda/demos/hello-world/hello-world.factor +++ b/ffi/cuda/demos/hello-world/hello-world.factor @@ -8,7 +8,7 @@ IN: cuda.demos.hello-world CUDA-LIBRARY: hello cuda32 "vocab:cuda/demos/hello-world/hello.ptx" -CUDA-FUNCTION: helloWorld ( char* string-ptr ) +CUDA-FUNCTION: helloWorld ( char* string-ptr ) ; : cuda-hello-world ( -- ) init-cuda diff --git a/ffi/cuda/demos/prefix-sum/prefix-sum.factor b/ffi/cuda/demos/prefix-sum/prefix-sum.factor index cbda5e8883..4670eff313 100644 --- a/ffi/cuda/demos/prefix-sum/prefix-sum.factor +++ b/ffi/cuda/demos/prefix-sum/prefix-sum.factor @@ -5,7 +5,7 @@ IN: cuda.demos.prefix-sum CUDA-LIBRARY: prefix-sum cuda32 "vocab:cuda/demos/prefix-sum/prefix-sum.ptx" -CUDA-FUNCTION: prefix_sum_block ( uint* in, uint* out, uint n ) +CUDA-FUNCTION: prefix_sum_block ( uint* in, uint* out, uint n ) ; :: cuda-prefix-sum ( -- ) init-cuda diff --git a/ffi/cuda/syntax/syntax.factor b/ffi/cuda/syntax/syntax.factor index 6c886b751e..c32637518c 100644 --- a/ffi/cuda/syntax/syntax.factor +++ b/ffi/cuda/syntax/syntax.factor @@ -11,7 +11,7 @@ SYNTAX: CUDA-LIBRARY: SYNTAX: CUDA-FUNCTION: scan-token [ create-word-in current-cuda-library get ] keep - scan-c-args define-cuda-function ; + scan-c-args ";" expect define-cuda-function ; SYNTAX: CUDA-GLOBAL: scan-token [ create-word-in current-cuda-library get ] keep diff --git a/ffi/lua/lua.factor b/ffi/lua/lua.factor index 6a9aec42eb..8c69c81054 100644 --- a/ffi/lua/lua.factor +++ b/ffi/lua/lua.factor @@ -108,8 +108,8 @@ FUNCTION: void lua_pushnumber ( lua_State* L, lua_Number n ) ; FUNCTION: void lua_pushinteger ( lua_State* L, lua_Integer n ) ; FUNCTION: void lua_pushlstring ( lua_State* L, char* s, size_t l ) ; FUNCTION: void lua_pushstring ( lua_State* L, c-string[ascii] s ) ; -! FUNCTION: c-string[ascii] lua_pushvfstring ( lua_State* L, c-string[ascii] fmt, va_list argp ) -! FUNCTION: c-string[ascii] lua_pushfstring ( lua_State* L, c-string[ascii] fmt, ... ) +! FUNCTION: c-string[ascii] lua_pushvfstring ( lua_State* L, c-string[ascii] fmt, va_list argp ) ; +! FUNCTION: c-string[ascii] lua_pushfstring ( lua_State* L, c-string[ascii] fmt, ... ) ; FUNCTION: void lua_pushcclosure ( lua_State* L, lua_CFunction fn, int n ) ; FUNCTION: void lua_pushboolean ( lua_State* L, int b ) ; FUNCTION: void lua_pushlightuserdata ( lua_State* L, void* p ) ; diff --git a/ffi/openal/openal.factor b/ffi/openal/openal.factor index ef51ba9218..ffcc4f27fd 100755 --- a/ffi/openal/openal.factor +++ b/ffi/openal/openal.factor @@ -116,7 +116,7 @@ FUNCTION: ALboolean alGetBoolean ( ALenum param ) ; FUNCTION: ALint alGetInteger ( ALenum param ) ; FUNCTION: ALfloat alGetFloat ( ALenum param ) ; FUNCTION: ALdouble alGetDouble ( ALenum param ) ; -FUNCTION: ALenum alGetError ( ) ; +FUNCTION: ALenum alGetError ( ) ; FUNCTION: ALboolean alIsExtensionPresent ( ALchar* extname ) ; FUNCTION: void* alGetProcAddress ( ALchar* fname ) ; FUNCTION: ALenum alGetEnumValue ( ALchar* ename ) ; diff --git a/ffi/openssl/libcrypto/libcrypto.factor b/ffi/openssl/libcrypto/libcrypto.factor index 5d01963ca5..865f4a5249 100644 --- a/ffi/openssl/libcrypto/libcrypto.factor +++ b/ffi/openssl/libcrypto/libcrypto.factor @@ -116,13 +116,13 @@ FUNCTION: int BIO_write ( void* b, void* buf, int len ) ; FUNCTION: int BIO_puts ( BIO* bio, c-string buf ) ; -FUNCTION: ulong ERR_get_error ( ) ; +FUNCTION: ulong ERR_get_error ( ) ; FUNCTION: void ERR_clear_error ( ) ; FUNCTION: c-string ERR_error_string ( ulong e, void* buf ) ; -FUNCTION: void* BIO_f_buffer ( ) ; +FUNCTION: void* BIO_f_buffer ( ) ; ! =============================================== ! evp.h @@ -140,12 +140,12 @@ STRUCT: EVP_MD_CTX { md_data void* } ; ! Initialize ciphers and digest tables -FUNCTION: void OpenSSL_add_all_ciphers ( ) ; +FUNCTION: void OpenSSL_add_all_ciphers ( ) ; -FUNCTION: void OpenSSL_add_all_digests ( ) ; +FUNCTION: void OpenSSL_add_all_digests ( ) ; ! Clean them up before exiting -FUNCTION: void EVP_cleanup ( ) ; +FUNCTION: void EVP_cleanup ( ) ; FUNCTION: EVP_MD* EVP_get_digestbyname ( c-string name ) ; diff --git a/ffi/windows/directx/d3dx11async/d3dx11async.factor b/ffi/windows/directx/d3dx11async/d3dx11async.factor index e317036c87..2381b4e8f2 100644 --- a/ffi/windows/directx/d3dx11async/d3dx11async.factor +++ b/ffi/windows/directx/d3dx11async/d3dx11async.factor @@ -6,44 +6,44 @@ IN: windows.directx.d3dx11async LIBRARY: d3dx11 FUNCTION: HRESULT D3DX11CompileFromFileA ( LPCSTR pSrcFile, D3D10_SHADER_MACRO* pDefines, LPD3D10INCLUDE pInclude, - LPCSTR pFunctionName, LPCSTR pProfile, UINT Flags1, UINT Flags2, ID3DX11ThreadPump* pPump, ID3D10Blob** ppShader, ID3D10Blob** ppErrorMsgs, HRESULT* pHResult ) + LPCSTR pFunctionName, LPCSTR pProfile, UINT Flags1, UINT Flags2, ID3DX11ThreadPump* pPump, ID3D10Blob** ppShader, ID3D10Blob** ppErrorMsgs, HRESULT* pHResult ) ; FUNCTION: HRESULT D3DX11CompileFromFileW ( LPCWSTR pSrcFile, D3D10_SHADER_MACRO* pDefines, LPD3D10INCLUDE pInclude, - LPCSTR pFunctionName, LPCSTR pProfile, UINT Flags1, UINT Flags2, ID3DX11ThreadPump* pPump, ID3D10Blob** ppShader, ID3D10Blob** ppErrorMsgs, HRESULT* pHResult ) + LPCSTR pFunctionName, LPCSTR pProfile, UINT Flags1, UINT Flags2, ID3DX11ThreadPump* pPump, ID3D10Blob** ppShader, ID3D10Blob** ppErrorMsgs, HRESULT* pHResult ) ; ALIAS: D3DX11CompileFromFile D3DX11CompileFromFileW FUNCTION: HRESULT D3DX11CompileFromResourceA ( HMODULE hSrcModule, LPCSTR pSrcResource, LPCSTR pSrcFileName, D3D10_SHADER_MACRO* pDefines, - LPD3D10INCLUDE pInclude, LPCSTR pFunctionName, LPCSTR pProfile, UINT Flags1, UINT Flags2, ID3DX11ThreadPump* pPump, ID3D10Blob** ppShader, ID3D10Blob** ppErrorMsgs, HRESULT* pHResult ) + LPD3D10INCLUDE pInclude, LPCSTR pFunctionName, LPCSTR pProfile, UINT Flags1, UINT Flags2, ID3DX11ThreadPump* pPump, ID3D10Blob** ppShader, ID3D10Blob** ppErrorMsgs, HRESULT* pHResult ) ; FUNCTION: HRESULT D3DX11CompileFromResourceW ( HMODULE hSrcModule, LPCWSTR pSrcResource, LPCWSTR pSrcFileName, D3D10_SHADER_MACRO* pDefines, - LPD3D10INCLUDE pInclude, LPCSTR pFunctionName, LPCSTR pProfile, UINT Flags1, UINT Flags2, ID3DX11ThreadPump* pPump, ID3D10Blob** ppShader, ID3D10Blob** ppErrorMsgs, HRESULT* pHResult ) + LPD3D10INCLUDE pInclude, LPCSTR pFunctionName, LPCSTR pProfile, UINT Flags1, UINT Flags2, ID3DX11ThreadPump* pPump, ID3D10Blob** ppShader, ID3D10Blob** ppErrorMsgs, HRESULT* pHResult ) ; ALIAS: D3DX11CompileFromResource D3DX11CompileFromResourceW FUNCTION: HRESULT D3DX11CompileFromMemory ( LPCSTR pSrcData, SIZE_T SrcDataLen, LPCSTR pFileName, D3D10_SHADER_MACRO* pDefines, LPD3D10INCLUDE pInclude, - LPCSTR pFunctionName, LPCSTR pProfile, UINT Flags1, UINT Flags2, ID3DX11ThreadPump* pPump, ID3D10Blob** ppShader, ID3D10Blob** ppErrorMsgs, HRESULT* pHResult ) + LPCSTR pFunctionName, LPCSTR pProfile, UINT Flags1, UINT Flags2, ID3DX11ThreadPump* pPump, ID3D10Blob** ppShader, ID3D10Blob** ppErrorMsgs, HRESULT* pHResult ) ; FUNCTION: HRESULT D3DX11PreprocessShaderFromFileA ( LPCSTR pFileName, D3D10_SHADER_MACRO* pDefines, - LPD3D10INCLUDE pInclude, ID3DX11ThreadPump* pPump, ID3D10Blob** ppShaderText, ID3D10Blob** ppErrorMsgs, HRESULT* pHResult ) + LPD3D10INCLUDE pInclude, ID3DX11ThreadPump* pPump, ID3D10Blob** ppShaderText, ID3D10Blob** ppErrorMsgs, HRESULT* pHResult ) ; FUNCTION: HRESULT D3DX11PreprocessShaderFromFileW ( LPCWSTR pFileName, D3D10_SHADER_MACRO* pDefines, - LPD3D10INCLUDE pInclude, ID3DX11ThreadPump* pPump, ID3D10Blob** ppShaderText, ID3D10Blob** ppErrorMsgs, HRESULT* pHResult ) + LPD3D10INCLUDE pInclude, ID3DX11ThreadPump* pPump, ID3D10Blob** ppShaderText, ID3D10Blob** ppErrorMsgs, HRESULT* pHResult ) ; FUNCTION: HRESULT D3DX11PreprocessShaderFromMemory ( LPCSTR pSrcData, SIZE_T SrcDataSize, LPCSTR pFileName, D3D10_SHADER_MACRO* pDefines, - LPD3D10INCLUDE pInclude, ID3DX11ThreadPump* pPump, ID3D10Blob** ppShaderText, ID3D10Blob** ppErrorMsgs, HRESULT* pHResult ) + LPD3D10INCLUDE pInclude, ID3DX11ThreadPump* pPump, ID3D10Blob** ppShaderText, ID3D10Blob** ppErrorMsgs, HRESULT* pHResult ) ; FUNCTION: HRESULT D3DX11PreprocessShaderFromResourceA ( HMODULE hModule, LPCSTR pResourceName, LPCSTR pSrcFileName, D3D10_SHADER_MACRO* pDefines, - LPD3D10INCLUDE pInclude, ID3DX11ThreadPump* pPump, ID3D10Blob** ppShaderText, ID3D10Blob** ppErrorMsgs, HRESULT* pHResult ) + LPD3D10INCLUDE pInclude, ID3DX11ThreadPump* pPump, ID3D10Blob** ppShaderText, ID3D10Blob** ppErrorMsgs, HRESULT* pHResult ) ; FUNCTION: HRESULT D3DX11PreprocessShaderFromResourceW ( HMODULE hModule, LPCWSTR pResourceName, LPCWSTR pSrcFileName, D3D10_SHADER_MACRO* pDefines, - LPD3D10INCLUDE pInclude, ID3DX11ThreadPump* pPump, ID3D10Blob** ppShaderText, ID3D10Blob** ppErrorMsgs, HRESULT* pHResult ) + LPD3D10INCLUDE pInclude, ID3DX11ThreadPump* pPump, ID3D10Blob** ppShaderText, ID3D10Blob** ppErrorMsgs, HRESULT* pHResult ) ; ALIAS: D3DX11PreprocessShaderFromFile D3DX11PreprocessShaderFromFileW ALIAS: D3DX11PreprocessShaderFromResource D3DX11PreprocessShaderFromResourceW FUNCTION: HRESULT D3DX11CreateAsyncCompilerProcessor ( LPCSTR pFileName, D3D10_SHADER_MACRO* pDefines, LPD3D10INCLUDE pInclude, LPCSTR pFunctionName, LPCSTR pProfile, UINT Flags1, UINT Flags2, - ID3D10Blob** ppCompiledShader, ID3D10Blob** ppErrorBuffer, ID3DX11DataProcessor** ppProcessor ) + ID3D10Blob** ppCompiledShader, ID3D10Blob** ppErrorBuffer, ID3DX11DataProcessor** ppProcessor ) ; FUNCTION: HRESULT D3DX11CreateAsyncShaderPreprocessProcessor ( LPCSTR pFileName, D3D10_SHADER_MACRO* pDefines, LPD3D10INCLUDE pInclude, - ID3D10Blob** ppShaderText, ID3D10Blob** ppErrorBuffer, ID3DX11DataProcessor** ppProcessor ) + ID3D10Blob** ppShaderText, ID3D10Blob** ppErrorBuffer, ID3DX11DataProcessor** ppProcessor ) ; FUNCTION: HRESULT D3DX11CreateAsyncFileLoaderW ( LPCWSTR pFileName, ID3DX11DataLoader** ppDataLoader ) ; FUNCTION: HRESULT D3DX11CreateAsyncFileLoaderA ( LPCSTR pFileName, ID3DX11DataLoader** ppDataLoader ) ; diff --git a/ffi/windows/directx/xact3/xact3.factor b/ffi/windows/directx/xact3/xact3.factor index a83a75f85f..5f5b62af45 100644 --- a/ffi/windows/directx/xact3/xact3.factor +++ b/ffi/windows/directx/xact3/xact3.factor @@ -377,10 +377,10 @@ COM-INTERFACE: IXACT3Wave f {00000000-0000-0000-0000-000000000000} : XACT_CUESTATE_PAUSED ( -- z ) XACT_STATE_PAUSED ; inline COM-INTERFACE: IXACT3Cue f {00000000-0000-0000-0000-000000000000} - HRESULT Play ( ) + HRESULT Play ( ) HRESULT Stop ( DWORD dwFlags ) HRESULT GetState ( DWORD* pdwState ) - HRESULT Destroy ( ) + HRESULT Destroy ( ) HRESULT SetMatrixCoefficients ( UINT32 uSrcChannelCount, UINT32 uDstChannelCount, float* pMatrixCoefficients ) XACTVARIABLEINDEX GetVariableIndex ( PCSTR szFriendlyName ) HRESULT SetVariable ( XACTVARIABLEINDEX nIndex, XACTVARIABLEVALUE nValue ) @@ -408,8 +408,8 @@ COM-INTERFACE: IXACT3Engine IUnknown {b1ee676a-d9cd-4d2a-89a8-fa53eb9e480b} HRESULT GetRendererDetails ( XACTINDEX nRendererIndex, LPXACT_RENDERER_DETAILS pRendererDetails ) HRESULT GetFinalMixFormat ( WAVEFORMATEXTENSIBLE* pFinalMixFormat ) HRESULT Initialize ( XACT_RUNTIME_PARAMETERS* pParams ) - HRESULT ShutDown ( ) - HRESULT DoWork ( ) + HRESULT ShutDown ( ) + HRESULT DoWork ( ) HRESULT CreateSoundBank ( void* pvBuffer, DWORD dwSize, DWORD dwFlags, DWORD dwAllocAttributes, IXACT3SoundBank** ppSoundBank ) HRESULT CreateInMemoryWaveBank ( void* pvBuffer, DWORD dwSize, DWORD dwFlags, DWORD dwAllocAttributes, IXACT3WaveBank** ppWaveBank ) HRESULT CreateStreamingWaveBank ( XACT_WAVEBANK_STREAMING_PARAMETERS* pParms, IXACT3WaveBank** ppWaveBank ) diff --git a/ffi/windows/directx/xaudio2/xaudio2.factor b/ffi/windows/directx/xaudio2/xaudio2.factor index cd9a3901c0..2d4a372eef 100644 --- a/ffi/windows/directx/xaudio2/xaudio2.factor +++ b/ffi/windows/directx/xaudio2/xaudio2.factor @@ -235,8 +235,8 @@ COM-INTERFACE: IXAudio2 IUnknown {8bcf1f58-9fe7-4583-8ac6-e2adc465c8bb} UINT32 Flags UINT32 DeviceIndex, XAUDIO2_EFFECT_CHAIN* pEffectChain ) - HRESULT StartEngine ( ) - void StopEngine ( ) + HRESULT StartEngine ( ) + void StopEngine ( ) HRESULT CommitChanges ( UINT32 OperationSet ) void GetPerformanceData ( XAUDIO2_PERFORMANCE_DATA* pPerfData ) void SetDebugConfiguration ( XAUDIO2_DEBUG_CONFIGURATION* pDebugConfiguration, void* pReserved ) ; @@ -282,7 +282,7 @@ COM-INTERFACE: IXAudio2Voice f {00000000-0000-0000-0000-000000000000} UINT32 SourceChannels, UINT32 DestinationChannels, FLOAT* pLevelMatrix ) - void DestroyVoice ( ) ; + void DestroyVoice ( ) ; COM-INTERFACE: IXAudio2SourceVoice IXAudio2Voice {00000000-0000-0000-0000-000000000000} HRESULT Start ( UINT32 Flags, UINT32 OperationSet ) @@ -300,14 +300,14 @@ COM-INTERFACE: IXAudio2SubmixVoice IXAudio2Voice {00000000-0000-0000-0000-000000 COM-INTERFACE: IXAudio2MasteringVoice IXAudio2Voice {00000000-0000-0000-0000-000000000000} ; COM-INTERFACE: IXAudio2EngineCallback f {00000000-0000-0000-0000-000000000000} - void OnProcessingPassStart ( ) - void OnProcessingPassEnd ( ) + void OnProcessingPassStart ( ) + void OnProcessingPassEnd ( ) void OnCriticalError ( HRESULT Error ) ; COM-INTERFACE: IXAudio2VoiceCallback f {00000000-0000-0000-0000-000000000000} void OnVoiceProcessingPassStart ( UINT32 BytesRequired ) - void OnVoiceProcessingPassEnd ( ) - void OnStreamEnd ( ) + void OnVoiceProcessingPassEnd ( ) + void OnStreamEnd ( ) void OnBufferStart ( void* pBufferContext ) void OnBufferEnd ( void* pBufferContext ) void OnLoopEnd ( void* pBufferContext ) diff --git a/ffi/windows/gdiplus/gdiplus.factor b/ffi/windows/gdiplus/gdiplus.factor index 69b2ba623a..f08254cdea 100644 --- a/ffi/windows/gdiplus/gdiplus.factor +++ b/ffi/windows/gdiplus/gdiplus.factor @@ -957,8 +957,7 @@ FUNCTION: GpStatus GdipSetAdjustableArrowCapWidth ( GpAdjustableArrowCap* x, REA FUNCTION: GpStatus GdipBitmapApplyEffect ( GpBitmap* x, CGpEffect* x, RECT* x, BOOL x, VOID** x, INT* x ) ; FUNCTION: GpStatus GdipBitmapCreateApplyEffect ( GpBitmap** x, INT x, CGpEffect* x, RECT* x, RECT* x, GpBitmap** x, BOOL x, VOID** x, INT* x ) ; FUNCTION: GpStatus GdipBitmapGetPixel ( GpBitmap* x, INT x, INT x, ARGB* x ) ; -FUNCTION: GpStatus GdipBitmapLockBits ( GpBitmap* x, GpRect* x, UINT x, - PixelFormat x, BitmapData* x ) +FUNCTION: GpStatus GdipBitmapLockBits ( GpBitmap* x, GpRect* x, UINT x, PixelFormat x, BitmapData* x ) ; FUNCTION: GpStatus GdipBitmapSetPixel ( GpBitmap* x, INT x, INT x, ARGB x ) ; FUNCTION: GpStatus GdipBitmapSetResolution ( GpBitmap* x, REAL x, REAL x ) ; FUNCTION: GpStatus GdipBitmapUnlockBits ( GpBitmap* x, BitmapData* x ) ; @@ -971,8 +970,7 @@ FUNCTION: GpStatus GdipCreateBitmapFromGraphics ( INT x, INT x, GpGraphics* x, G FUNCTION: GpStatus GdipCreateBitmapFromHBITMAP ( HBITMAP x, HPALETTE x, GpBitmap** x ) ; FUNCTION: GpStatus GdipCreateBitmapFromHICON ( HICON x, GpBitmap** x ) ; FUNCTION: GpStatus GdipCreateBitmapFromResource ( HINSTANCE x, WCHAR* x, GpBitmap** x ) ; -FUNCTION: GpStatus GdipCreateBitmapFromScan0 ( INT x, INT x, INT x, PixelFormat x, BYTE* x, - GpBitmap** x ) +FUNCTION: GpStatus GdipCreateBitmapFromScan0 ( INT x, INT x, INT x, PixelFormat x, BYTE* x, GpBitmap** x ) ; FUNCTION: GpStatus GdipCreateBitmapFromStream ( IStream* x, GpBitmap** x ) ; FUNCTION: GpStatus GdipCreateBitmapFromStreamICM ( IStream* x, GpBitmap** x ) ; FUNCTION: GpStatus GdipCreateHBITMAPFromBitmap ( GpBitmap* x, HBITMAP* x, ARGB x ) ; @@ -986,30 +984,26 @@ FUNCTION: GpStatus GdipDeleteBrush ( GpBrush* x ) ; FUNCTION: GpStatus GdipGetBrushType ( GpBrush* x, GpBrushType* x ) ; -FUNCTION: GpStatus GdipCreateCachedBitmap ( GpBitmap* x, GpGraphics* x, - GpCachedBitmap** x ) +FUNCTION: GpStatus GdipCreateCachedBitmap ( GpBitmap* x, GpGraphics* x, GpCachedBitmap** x ) ; FUNCTION: GpStatus GdipDeleteCachedBitmap ( GpCachedBitmap* x ) ; FUNCTION: GpStatus GdipDrawCachedBitmap ( GpGraphics* x, GpCachedBitmap* x, INT x, INT x ) ; FUNCTION: GpStatus GdipCloneCustomLineCap ( GpCustomLineCap* x, GpCustomLineCap** x ) ; -FUNCTION: GpStatus GdipCreateCustomLineCap ( GpPath* x, GpPath* x, GpLineCap x, REAL x, - GpCustomLineCap** x ) +FUNCTION: GpStatus GdipCreateCustomLineCap ( GpPath* x, GpPath* x, GpLineCap x, REAL x, GpCustomLineCap** x ) ; FUNCTION: GpStatus GdipDeleteCustomLineCap ( GpCustomLineCap* x ) ; FUNCTION: GpStatus GdipGetCustomLineCapBaseCap ( GpCustomLineCap* x, GpLineCap* x ) ; FUNCTION: GpStatus GdipSetCustomLineCapBaseCap ( GpCustomLineCap* x, GpLineCap x ) ; FUNCTION: GpStatus GdipGetCustomLineCapBaseInset ( GpCustomLineCap* x, REAL* x ) ; FUNCTION: GpStatus GdipSetCustomLineCapBaseInset ( GpCustomLineCap* x, REAL x ) ; -FUNCTION: GpStatus GdipSetCustomLineCapStrokeCaps ( GpCustomLineCap* x, GpLineCap x, - GpLineCap x ) +FUNCTION: GpStatus GdipSetCustomLineCapStrokeCaps ( GpCustomLineCap* x, GpLineCap x, GpLineCap x ) ; FUNCTION: GpStatus GdipGetCustomLineCapStrokeJoin ( GpCustomLineCap* x, GpLineJoin* x ) ; FUNCTION: GpStatus GdipSetCustomLineCapStrokeJoin ( GpCustomLineCap* x, GpLineJoin x ) ; FUNCTION: GpStatus GdipGetCustomLineCapWidthScale ( GpCustomLineCap* x, REAL* x ) ; FUNCTION: GpStatus GdipSetCustomLineCapWidthScale ( GpCustomLineCap* x, REAL x ) ; FUNCTION: GpStatus GdipCloneFont ( GpFont* x, GpFont** x ) ; -FUNCTION: GpStatus GdipCreateFont ( GpFontFamily* x, REAL x, INT x, GpUnit x, - GpFont** x ) +FUNCTION: GpStatus GdipCreateFont ( GpFontFamily* x, REAL x, INT x, GpUnit x, GpFont** x ) ; FUNCTION: GpStatus GdipCreateFontFromDC ( HDC x, GpFont** x ) ; FUNCTION: GpStatus GdipCreateFontFromLogfontA ( HDC x, LOGFONTA* x, GpFont** x ) ; FUNCTION: GpStatus GdipCreateFontFromLogfontW ( HDC x, LOGFONTW* x, GpFont** x ) ; @@ -1020,8 +1014,7 @@ FUNCTION: GpStatus GdipGetFamily ( GpFont* x, GpFontFamily** x ) ; FUNCTION: GpStatus GdipGetFontUnit ( GpFont* x, GpUnit* x ) ; FUNCTION: GpStatus GdipGetFontSize ( GpFont* x, REAL* x ) ; FUNCTION: GpStatus GdipGetFontStyle ( GpFont* x, INT* x ) ; -FUNCTION: GpStatus GdipGetFontHeight ( GpFont* x, GpGraphics* x, - REAL* x ) +FUNCTION: GpStatus GdipGetFontHeight ( GpFont* x, GpGraphics* x, REAL* x ) ; FUNCTION: GpStatus GdipGetFontHeightGivenDPI ( GpFont* x, REAL x, REAL* x ) ; @@ -1029,16 +1022,12 @@ FUNCTION: GpStatus GdipNewInstalledFontCollection ( GpFontCollection** x ) ; FUNCTION: GpStatus GdipNewPrivateFontCollection ( GpFontCollection** x ) ; FUNCTION: GpStatus GdipDeletePrivateFontCollection ( GpFontCollection** x ) ; FUNCTION: GpStatus GdipPrivateAddFontFile ( GpFontCollection* x, WCHAR* x ) ; -FUNCTION: GpStatus GdipPrivateAddMemoryFont ( GpFontCollection* x, - void* x, INT x ) +FUNCTION: GpStatus GdipPrivateAddMemoryFont ( GpFontCollection* x, void* x, INT x ) ; FUNCTION: GpStatus GdipGetFontCollectionFamilyCount ( GpFontCollection* x, INT* x ) ; -FUNCTION: GpStatus GdipGetFontCollectionFamilyList ( GpFontCollection* x, INT x, - GpFontFamily** x, INT* x ) - +FUNCTION: GpStatus GdipGetFontCollectionFamilyList ( GpFontCollection* x, INT x, GpFontFamily** x, INT* x ) ; FUNCTION: GpStatus GdipCloneFontFamily ( GpFontFamily* x, GpFontFamily** x ) ; -FUNCTION: GpStatus GdipCreateFontFamilyFromName ( WCHAR* x, - GpFontCollection* x, GpFontFamily** x ) +FUNCTION: GpStatus GdipCreateFontFamilyFromName ( WCHAR* x, GpFontCollection* x, GpFontFamily** x ) ; FUNCTION: GpStatus GdipDeleteFontFamily ( GpFontFamily* x ) ; FUNCTION: GpStatus GdipGetFamilyName ( GpFontFamily* x, WCHAR* x, LANGID x ) ; FUNCTION: GpStatus GdipGetCellAscent ( GpFontFamily* x, INT x, UINT16* x ) ; @@ -1079,8 +1068,7 @@ FUNCTION: GpStatus GdipDrawCurve2 ( GpGraphics* x, GpPen* x, GpPointF* x, INT x, FUNCTION: GpStatus GdipDrawCurve2I ( GpGraphics* x, GpPen* x, GpPoint* x, INT x, REAL x ) ; FUNCTION: GpStatus GdipDrawCurve3 ( GpGraphics* x, GpPen* x, GpPointF* x, INT x, INT x, INT x, REAL x ) ; FUNCTION: GpStatus GdipDrawCurve3I ( GpGraphics* x, GpPen* x, GpPoint* x, INT x, INT x, INT x, REAL x ) ; -FUNCTION: GpStatus GdipDrawDriverString ( GpGraphics* x, UINT16* x, INT x, - GpFont* x, GpBrush* x, GpPointF* x, INT x, GpMatrix* x ) +FUNCTION: GpStatus GdipDrawDriverString ( GpGraphics* x, UINT16* x, INT x, GpFont* x, GpBrush* x, GpPointF* x, INT x, GpMatrix* x ) ; FUNCTION: GpStatus GdipDrawEllipse ( GpGraphics* x, GpPen* x, REAL x, REAL x, REAL x, REAL x ) ; FUNCTION: GpStatus GdipDrawEllipseI ( GpGraphics* x, GpPen* x, INT x, INT x, INT x, INT x ) ; FUNCTION: GpStatus GdipDrawImage ( GpGraphics* x, GpImage* x, REAL x, REAL x ) ; @@ -1091,18 +1079,16 @@ FUNCTION: GpStatus GdipDrawImagePoints ( GpGraphics* x, GpImage* x, GpPointF* x, FUNCTION: GpStatus GdipDrawImagePointsI ( GpGraphics* x, GpImage* x, GpPoint* x, INT x ) ; FUNCTION: GpStatus GdipDrawImagePointsRect ( GpGraphics* x, GpImage* x, GpPointF* x, INT x, REAL x, REAL x, REAL x, REAL x, GpUnit x, - GpImageAttributes* x, DrawImageAbort x, VOID* x ) + GpImageAttributes* x, DrawImageAbort x, VOID* x ) ; FUNCTION: GpStatus GdipDrawImagePointsRectI ( GpGraphics* x, GpImage* x, GpPoint* x, INT x, INT x, INT x, INT x, INT x, GpUnit x, - GpImageAttributes* x, DrawImageAbort x, VOID* x ) + GpImageAttributes* x, DrawImageAbort x, VOID* x ) ; FUNCTION: GpStatus GdipDrawImageRect ( GpGraphics* x, GpImage* x, REAL x, REAL x, REAL x, REAL x ) ; FUNCTION: GpStatus GdipDrawImageRectI ( GpGraphics* x, GpImage* x, INT x, INT x, INT x, INT x ) ; FUNCTION: GpStatus GdipDrawImageRectRect ( GpGraphics* x, GpImage* x, REAL x, REAL x, REAL x, - REAL x, REAL x, REAL x, REAL x, REAL x, GpUnit x, GpImageAttributes* x, DrawImageAbort x, - VOID* x ) + REAL x, REAL x, REAL x, REAL x, REAL x, GpUnit x, GpImageAttributes* x, DrawImageAbort x, VOID* x ) ; FUNCTION: GpStatus GdipDrawImageRectRectI ( GpGraphics* x, GpImage* x, INT x, INT x, INT x, - INT x, INT x, INT x, INT x, INT x, GpUnit x, GpImageAttributes* x, DrawImageAbort x, - VOID* x ) + INT x, INT x, INT x, INT x, INT x, GpUnit x, GpImageAttributes* x, DrawImageAbort x, VOID* x ) ; FUNCTION: GpStatus GdipDrawLine ( GpGraphics* x, GpPen* x, REAL x, REAL x, REAL x, REAL x ) ; FUNCTION: GpStatus GdipDrawLineI ( GpGraphics* x, GpPen* x, INT x, INT x, INT x, INT x ) ; FUNCTION: GpStatus GdipDrawLines ( GpGraphics* x, GpPen* x, GpPointF* x, INT x ) ; @@ -1117,21 +1103,20 @@ FUNCTION: GpStatus GdipDrawRectangleI ( GpGraphics* x, GpPen* x, INT x, INT x, I FUNCTION: GpStatus GdipDrawRectangles ( GpGraphics* x, GpPen* x, GpRectF* x, INT x ) ; FUNCTION: GpStatus GdipDrawRectanglesI ( GpGraphics* x, GpPen* x, GpRect* x, INT x ) ; FUNCTION: GpStatus GdipDrawString ( GpGraphics* x, WCHAR* x, INT x, - GpFont* x, GpRectF* x, GpStringFormat* x, - GpBrush* x ) + GpFont* x, GpRectF* x, GpStringFormat* x, GpBrush* x ) ; FUNCTION: GpStatus GdipFillClosedCurve2 ( GpGraphics* x, GpBrush* x, GpPointF* x, INT x, - REAL x, GpFillMode x ) + REAL x, GpFillMode x ) ; FUNCTION: GpStatus GdipFillClosedCurve2I ( GpGraphics* x, GpBrush* x, GpPoint* x, INT x, - REAL x, GpFillMode x ) + REAL x, GpFillMode x ) ; FUNCTION: GpStatus GdipFillEllipse ( GpGraphics* x, GpBrush* x, REAL x, REAL x, REAL x, REAL x ) ; FUNCTION: GpStatus GdipFillEllipseI ( GpGraphics* x, GpBrush* x, INT x, INT x, INT x, INT x ) ; FUNCTION: GpStatus GdipFillPath ( GpGraphics* x, GpBrush* x, GpPath* x ) ; FUNCTION: GpStatus GdipFillPie ( GpGraphics* x, GpBrush* x, REAL x, REAL x, REAL x, REAL x, REAL x, REAL x ) ; FUNCTION: GpStatus GdipFillPieI ( GpGraphics* x, GpBrush* x, INT x, INT x, INT x, INT x, REAL x, REAL x ) ; FUNCTION: GpStatus GdipFillPolygon ( GpGraphics* x, GpBrush* x, GpPointF* x, - INT x, GpFillMode x ) + INT x, GpFillMode x ) ; FUNCTION: GpStatus GdipFillPolygonI ( GpGraphics* x, GpBrush* x, GpPoint* x, - INT x, GpFillMode x ) + INT x, GpFillMode x ) ; FUNCTION: GpStatus GdipFillPolygon2 ( GpGraphics* x, GpBrush* x, GpPointF* x, INT x ) ; FUNCTION: GpStatus GdipFillPolygon2I ( GpGraphics* x, GpBrush* x, GpPoint* x, INT x ) ; FUNCTION: GpStatus GdipFillRectangle ( GpGraphics* x, GpBrush* x, REAL x, REAL x, REAL x, REAL x ) ; @@ -1169,18 +1154,18 @@ FUNCTION: GpStatus GdipIsVisibleRect ( GpGraphics* x, REAL x, REAL x, REAL x, RE FUNCTION: GpStatus GdipIsVisibleRectI ( GpGraphics* x, INT x, INT x, INT x, INT x, BOOL* x ) ; FUNCTION: GpStatus GdipMeasureCharacterRanges ( GpGraphics* x, WCHAR* x, INT x, GpFont* x, GpRectF* x, GpStringFormat* x, INT x, - GpRegion** x ) + GpRegion** x ) ; FUNCTION: GpStatus GdipMeasureDriverString ( GpGraphics* x, UINT16* x, INT x, - GpFont* x, GpPointF* x, INT x, GpMatrix* x, GpRectF* x ) + GpFont* x, GpPointF* x, INT x, GpMatrix* x, GpRectF* x ) ; FUNCTION: GpStatus GdipMeasureString ( GpGraphics* x, WCHAR* x, INT x, - GpFont* x, GpRectF* x, GpStringFormat* x, GpRectF* x, INT* x, INT* x ) + GpFont* x, GpRectF* x, GpStringFormat* x, GpRectF* x, INT* x, INT* x ) ; FUNCTION: GpStatus GdipMultiplyWorldTransform ( GpGraphics* x, GpMatrix* x, GpMatrixOrder x ) ; FUNCTION: GpStatus GdipRecordMetafileFileName ( WCHAR* x, HDC x, EmfType x, - GpRectF* x, MetafileFrameUnit x, WCHAR* x, GpMetafile** x ) + GpRectF* x, MetafileFrameUnit x, WCHAR* x, GpMetafile** x ) ; FUNCTION: GpStatus GdipRecordMetafileFileNameI ( WCHAR* x, HDC x, EmfType x, - GpRect* x, MetafileFrameUnit x, WCHAR* x, GpMetafile** x ) + GpRect* x, MetafileFrameUnit x, WCHAR* x, GpMetafile** x ) ; FUNCTION: GpStatus GdipRecordMetafileI ( HDC x, EmfType x, GpRect* x, - MetafileFrameUnit x, WCHAR* x, GpMetafile** x ) + MetafileFrameUnit x, WCHAR* x, GpMetafile** x ) ; FUNCTION: GpStatus GdipReleaseDC ( GpGraphics* x, HDC x ) ; FUNCTION: GpStatus GdipResetClip ( GpGraphics* x ) ; FUNCTION: GpStatus GdipResetWorldTransform ( GpGraphics* x ) ; @@ -1206,9 +1191,9 @@ FUNCTION: GpStatus GdipSetTextContrast ( GpGraphics* x, UINT x ) ; FUNCTION: GpStatus GdipSetTextRenderingHint ( GpGraphics* x, TextRenderingHint x ) ; FUNCTION: GpStatus GdipSetWorldTransform ( GpGraphics* x, GpMatrix* x ) ; FUNCTION: GpStatus GdipTransformPoints ( GpGraphics* x, GpCoordinateSpace x, GpCoordinateSpace x, - GpPointF* x, INT x ) + GpPointF* x, INT x ) ; FUNCTION: GpStatus GdipTransformPointsI ( GpGraphics* x, GpCoordinateSpace x, GpCoordinateSpace x, - GpPoint* x, INT x ) + GpPoint* x, INT x ) ; FUNCTION: GpStatus GdipTranslateClip ( GpGraphics* x, REAL x, REAL x ) ; FUNCTION: GpStatus GdipTranslateClipI ( GpGraphics* x, INT x, INT x ) ; FUNCTION: GpStatus GdipTranslateWorldTransform ( GpGraphics* x, REAL x, REAL x, GpMatrixOrder x ) ; @@ -1253,14 +1238,14 @@ FUNCTION: GpStatus GdipClosePathFigure ( GpPath* x ) ; FUNCTION: GpStatus GdipClosePathFigures ( GpPath* x ) ; FUNCTION: GpStatus GdipCreatePath ( GpFillMode x, GpPath** x ) ; FUNCTION: GpStatus GdipCreatePath2 ( GpPointF* x, BYTE* x, INT x, - GpFillMode x, GpPath** x ) + GpFillMode x, GpPath** x ) ; FUNCTION: GpStatus GdipCreatePath2I ( GpPoint* x, BYTE* x, INT x, GpFillMode x, GpPath** x ) ; FUNCTION: GpStatus GdipDeletePath ( GpPath* x ) ; FUNCTION: GpStatus GdipFlattenPath ( GpPath* x, GpMatrix* x, REAL x ) ; FUNCTION: GpStatus GdipIsOutlineVisiblePathPoint ( GpPath* x, REAL x, REAL x, GpPen* x, - GpGraphics* x, BOOL* x ) + GpGraphics* x, BOOL* x ) ; FUNCTION: GpStatus GdipIsOutlineVisiblePathPointI ( GpPath* x, INT x, INT x, GpPen* x, - GpGraphics* x, BOOL* x ) + GpGraphics* x, BOOL* x ) ; FUNCTION: GpStatus GdipIsVisiblePathPoint ( GpPath* x, REAL x, REAL x, GpGraphics* x, BOOL* x ) ; FUNCTION: GpStatus GdipIsVisiblePathPointI ( GpPath* x, INT x, INT x, GpGraphics* x, BOOL* x ) ; FUNCTION: GpStatus GdipGetPathData ( GpPath* x, GpPathData* x ) ; @@ -1279,7 +1264,7 @@ FUNCTION: GpStatus GdipSetPathMarker ( GpPath* x ) ; FUNCTION: GpStatus GdipStartPathFigure ( GpPath* x ) ; FUNCTION: GpStatus GdipTransformPath ( GpPath* x, GpMatrix* x ) ; FUNCTION: GpStatus GdipWarpPath ( GpPath* x, GpMatrix* x, GpPointF* x, INT x, REAL x, - REAL x, REAL x, REAL x, WarpMode x, REAL x ) + REAL x, REAL x, REAL x, WarpMode x, REAL x ) ; FUNCTION: GpStatus GdipWidenPath ( GpPath* x, GpPen* x, GpMatrix* x, REAL x ) ; @@ -1328,7 +1313,7 @@ FUNCTION: GpStatus GdipLoadImageFromStreamICM ( IStream* x, GpImage** x ) ; FUNCTION: GpStatus GdipRemovePropertyItem ( GpImage* x, PROPID x ) ; FUNCTION: GpStatus GdipSaveImageToFile ( GpImage* x, WCHAR* x, CLSID* x, EncoderParameters* x ) ; FUNCTION: GpStatus GdipSaveImageToStream ( GpImage* x, IStream* x, - CLSID* x, EncoderParameters* x ) + CLSID* x, EncoderParameters* x ) ; FUNCTION: GpStatus GdipSetImagePalette ( GpImage* x, ColorPalette* x ) ; FUNCTION: GpStatus GdipSetPropertyItem ( GpImage* x, PropertyItem* x ) ; @@ -1336,59 +1321,59 @@ FUNCTION: GpStatus GdipSetPropertyItem ( GpImage* x, PropertyItem* x ) ; FUNCTION: GpStatus GdipCreateImageAttributes ( GpImageAttributes** x ) ; FUNCTION: GpStatus GdipDisposeImageAttributes ( GpImageAttributes* x ) ; FUNCTION: GpStatus GdipSetImageAttributesCachedBackground ( GpImageAttributes* x, - BOOL x ) + BOOL x ) ; FUNCTION: GpStatus GdipSetImageAttributesColorKeys ( GpImageAttributes* x, - ColorAdjustType x, BOOL x, ARGB x, ARGB x ) + ColorAdjustType x, BOOL x, ARGB x, ARGB x ) ; FUNCTION: GpStatus GdipSetImageAttributesColorMatrix ( GpImageAttributes* x, ColorAdjustType x, BOOL x, ColorMatrix* x, ColorMatrix* x, - ColorMatrixFlags x ) + ColorMatrixFlags x ) ; FUNCTION: GpStatus GdipSetImageAttributesGamma ( GpImageAttributes* x, - ColorAdjustType x, BOOL x, REAL x ) + ColorAdjustType x, BOOL x, REAL x ) ; FUNCTION: GpStatus GdipSetImageAttributesNoOp ( GpImageAttributes* x, - ColorAdjustType x, BOOL x ) + ColorAdjustType x, BOOL x ) ; FUNCTION: GpStatus GdipSetImageAttributesOutputChannel ( GpImageAttributes* x, - ColorAdjustType x, BOOL x, ColorChannelFlags x ) + ColorAdjustType x, BOOL x, ColorChannelFlags x ) ; FUNCTION: GpStatus GdipSetImageAttributesOutputChannelColorProfile ( - GpImageAttributes* x, ColorAdjustType x, BOOL x, WCHAR* x ) + GpImageAttributes* x, ColorAdjustType x, BOOL x, WCHAR* x ) ; FUNCTION: GpStatus GdipSetImageAttributesRemapTable ( GpImageAttributes* x, - ColorAdjustType x, BOOL x, UINT x, ColorMap* x ) + ColorAdjustType x, BOOL x, UINT x, ColorMap* x ) ; FUNCTION: GpStatus GdipSetImageAttributesThreshold ( GpImageAttributes* x, - ColorAdjustType x, BOOL x, REAL x ) + ColorAdjustType x, BOOL x, REAL x ) ; FUNCTION: GpStatus GdipSetImageAttributesToIdentity ( GpImageAttributes* x, - ColorAdjustType x ) + ColorAdjustType x ) ; FUNCTION: GpStatus GdipSetImageAttributesWrapMode ( GpImageAttributes* x, GpWrapMode x, - ARGB x, BOOL x ) + ARGB x, BOOL x ) ; FUNCTION: GpStatus GdipCreateLineBrush ( GpPointF* x, GpPointF* x, - ARGB x, ARGB x, GpWrapMode x, GpLineGradient** x ) + ARGB x, ARGB x, GpWrapMode x, GpLineGradient** x ) ; FUNCTION: GpStatus GdipCreateLineBrushI ( GpPoint* x, GpPoint* x, - ARGB x, ARGB x, GpWrapMode x, GpLineGradient** x ) + ARGB x, ARGB x, GpWrapMode x, GpLineGradient** x ) ; FUNCTION: GpStatus GdipCreateLineBrushFromRect ( GpRectF* x, ARGB x, ARGB x, - LinearGradientMode x, GpWrapMode x, GpLineGradient** x ) + LinearGradientMode x, GpWrapMode x, GpLineGradient** x ) ; FUNCTION: GpStatus GdipCreateLineBrushFromRectI ( GpRect* x, ARGB x, ARGB x, - LinearGradientMode x, GpWrapMode x, GpLineGradient** x ) + LinearGradientMode x, GpWrapMode x, GpLineGradient** x ) ; FUNCTION: GpStatus GdipCreateLineBrushFromRectWithAngle ( GpRectF* x, - ARGB x, ARGB x, REAL x, BOOL x, GpWrapMode x, GpLineGradient** x ) + ARGB x, ARGB x, REAL x, BOOL x, GpWrapMode x, GpLineGradient** x ) ; FUNCTION: GpStatus GdipCreateLineBrushFromRectWithAngleI ( GpRect* x, - ARGB x, ARGB x, REAL x, BOOL x, GpWrapMode x, GpLineGradient** x ) + ARGB x, ARGB x, REAL x, BOOL x, GpWrapMode x, GpLineGradient** x ) ; FUNCTION: GpStatus GdipGetLineColors ( GpLineGradient* x, ARGB* x ) ; FUNCTION: GpStatus GdipGetLineGammaCorrection ( GpLineGradient* x, BOOL* x ) ; FUNCTION: GpStatus GdipGetLineRect ( GpLineGradient* x, GpRectF* x ) ; FUNCTION: GpStatus GdipGetLineRectI ( GpLineGradient* x, GpRect* x ) ; FUNCTION: GpStatus GdipGetLineWrapMode ( GpLineGradient* x, GpWrapMode* x ) ; FUNCTION: GpStatus GdipSetLineBlend ( GpLineGradient* x, REAL* x, - REAL* x, INT x ) + REAL* x, INT x ) ; FUNCTION: GpStatus GdipGetLineBlend ( GpLineGradient* x, REAL* x, REAL* x, INT x ) ; FUNCTION: GpStatus GdipGetLineBlendCount ( GpLineGradient* x, INT* x ) ; FUNCTION: GpStatus GdipSetLinePresetBlend ( GpLineGradient* x, ARGB* x, - REAL* x, INT x ) + REAL* x, INT x ) ; FUNCTION: GpStatus GdipGetLinePresetBlend ( GpLineGradient* x, ARGB* x, REAL* x, INT x ) ; FUNCTION: GpStatus GdipGetLinePresetBlendCount ( GpLineGradient* x, INT* x ) ; FUNCTION: GpStatus GdipResetLineTransform ( GpLineGradient* x ) ; FUNCTION: GpStatus GdipRotateLineTransform ( GpLineGradient* x, REAL x, GpMatrixOrder x ) ; FUNCTION: GpStatus GdipScaleLineTransform ( GpLineGradient* x, REAL x, REAL x, - GpMatrixOrder x ) + GpMatrixOrder x ) ; FUNCTION: GpStatus GdipSetLineColors ( GpLineGradient* x, ARGB x, ARGB x ) ; FUNCTION: GpStatus GdipSetLineGammaCorrection ( GpLineGradient* x, BOOL x ) ; FUNCTION: GpStatus GdipSetLineSigmaBlend ( GpLineGradient* x, REAL x, REAL x ) ; @@ -1396,7 +1381,7 @@ FUNCTION: GpStatus GdipSetLineTransform ( GpLineGradient* x, GpMatrix* x ) ; FUNCTION: GpStatus GdipSetLineLinearBlend ( GpLineGradient* x, REAL x, REAL x ) ; FUNCTION: GpStatus GdipSetLineWrapMode ( GpLineGradient* x, GpWrapMode x ) ; FUNCTION: GpStatus GdipTranslateLineTransform ( GpLineGradient* x, REAL x, REAL x, - GpMatrixOrder x ) + GpMatrixOrder x ) ; FUNCTION: GpStatus GdipCloneMatrix ( GpMatrix* x, GpMatrix** x ) ; @@ -1423,14 +1408,14 @@ FUNCTION: GpStatus GdipVectorTransformMatrixPointsI ( GpMatrix* x, GpPoint* x, I FUNCTION: GpStatus GdipConvertToEmfPlus ( GpGraphics* x, GpMetafile* x, INT* x, - EmfType x, WCHAR* x, GpMetafile** x ) + EmfType x, WCHAR* x, GpMetafile** x ) ; FUNCTION: GpStatus GdipConvertToEmfPlusToFile ( GpGraphics* x, GpMetafile* x, INT* x, WCHAR* x, EmfType x, WCHAR* x, GpMetafile** x ) ; FUNCTION: GpStatus GdipConvertToEmfPlusToStream ( GpGraphics* x, GpMetafile* x, INT* x, IStream* x, EmfType x, WCHAR* x, GpMetafile** x ) ; FUNCTION: GpStatus GdipCreateMetafileFromEmf ( HENHMETAFILE x, BOOL x, GpMetafile** x ) ; FUNCTION: GpStatus GdipCreateMetafileFromWmf ( HMETAFILE x, BOOL x, - WmfPlaceableFileHeader* x, GpMetafile** x ) + WmfPlaceableFileHeader* x, GpMetafile** x ) ; FUNCTION: GpStatus GdipCreateMetafileFromWmfFile ( WCHAR* x, WmfPlaceableFileHeader* x, - GpMetafile** x ) + GpMetafile** x ) ; FUNCTION: GpStatus GdipCreateMetafileFromFile ( WCHAR* x, GpMetafile** x ) ; FUNCTION: GpStatus GdipCreateMetafileFromStream ( IStream* x, GpMetafile** x ) ; FUNCTION: GpStatus GdipSetMetafileDownLevelRasterizationLimit ( GpMetafile* x, UINT x ) ; @@ -1450,7 +1435,7 @@ FUNCTION: void GdiplusNotificationUnhook ( ULONG_PTR x ) ; FUNCTION: GpStatus GdipCreatePathGradient ( GpPointF* x, INT x, GpWrapMode x, GpPathGradient** x ) ; FUNCTION: GpStatus GdipCreatePathGradientI ( GpPoint* x, INT x, GpWrapMode x, GpPathGradient** x ) ; FUNCTION: GpStatus GdipCreatePathGradientFromPath ( GpPath* x, - GpPathGradient** x ) + GpPathGradient** x ) ; FUNCTION: GpStatus GdipGetPathGradientBlend ( GpPathGradient* x, REAL* x, REAL* x, INT x ) ; FUNCTION: GpStatus GdipGetPathGradientBlendCount ( GpPathGradient* x, INT* x ) ; FUNCTION: GpStatus GdipGetPathGradientCenterColor ( GpPathGradient* x, ARGB* x ) ; @@ -1460,11 +1445,11 @@ FUNCTION: GpStatus GdipGetPathGradientFocusScales ( GpPathGradient* x, REAL* x, FUNCTION: GpStatus GdipGetPathGradientGammaCorrection ( GpPathGradient* x, BOOL* x ) ; FUNCTION: GpStatus GdipGetPathGradientPointCount ( GpPathGradient* x, INT* x ) ; FUNCTION: GpStatus GdipSetPathGradientPresetBlend ( GpPathGradient* x, - ARGB* x, REAL* x, INT x ) + ARGB* x, REAL* x, INT x ) ; FUNCTION: GpStatus GdipGetPathGradientRect ( GpPathGradient* x, GpRectF* x ) ; FUNCTION: GpStatus GdipGetPathGradientRectI ( GpPathGradient* x, GpRect* x ) ; FUNCTION: GpStatus GdipGetPathGradientSurroundColorsWithCount ( GpPathGradient* x, - ARGB* x, INT* x ) + ARGB* x, INT* x ) ; FUNCTION: GpStatus GdipGetPathGradientWrapMode ( GpPathGradient* x, GpWrapMode* x ) ; FUNCTION: GpStatus GdipSetPathGradientBlend ( GpPathGradient* x, REAL* x, REAL* x, INT x ) ; FUNCTION: GpStatus GdipSetPathGradientCenterColor ( GpPathGradient* x, ARGB x ) ; @@ -1474,7 +1459,7 @@ FUNCTION: GpStatus GdipSetPathGradientFocusScales ( GpPathGradient* x, REAL x, R FUNCTION: GpStatus GdipSetPathGradientGammaCorrection ( GpPathGradient* x, BOOL x ) ; FUNCTION: GpStatus GdipSetPathGradientSigmaBlend ( GpPathGradient* x, REAL x, REAL x ) ; FUNCTION: GpStatus GdipSetPathGradientSurroundColorsWithCount ( GpPathGradient* x, - ARGB* x, INT* x ) + ARGB* x, INT* x ) ; FUNCTION: GpStatus GdipSetPathGradientWrapMode ( GpPathGradient* x, GpWrapMode x ) ; FUNCTION: GpStatus GdipGetPathGradientSurroundColorCount ( GpPathGradient* x, INT* x ) ; @@ -1482,7 +1467,7 @@ FUNCTION: GpStatus GdipGetPathGradientSurroundColorCount ( GpPathGradient* x, IN FUNCTION: GpStatus GdipCreatePathIter ( GpPathIterator** x, GpPath* x ) ; FUNCTION: GpStatus GdipDeletePathIter ( GpPathIterator* x ) ; FUNCTION: GpStatus GdipPathIterCopyData ( GpPathIterator* x, INT* x, GpPointF* x, BYTE* x, - INT x, INT x ) + INT x, INT x ) ; FUNCTION: GpStatus GdipPathIterGetCount ( GpPathIterator* x, INT* x ) ; FUNCTION: GpStatus GdipPathIterGetSubpathCount ( GpPathIterator* x, INT* x ) ; FUNCTION: GpStatus GdipPathIterEnumerate ( GpPathIterator* x, INT* x, GpPointF* x, BYTE* x, INT x ) ; @@ -1578,12 +1563,12 @@ FUNCTION: GpStatus GdipCreateStringFormat ( INT x, LANGID x, GpStringFormat** x FUNCTION: GpStatus GdipDeleteStringFormat ( GpStringFormat* x ) ; FUNCTION: GpStatus GdipGetStringFormatAlign ( GpStringFormat* x, StringAlignment* x ) ; FUNCTION: GpStatus GdipGetStringFormatDigitSubstitution ( GpStringFormat* x, LANGID* x, - StringDigitSubstitute* x ) + StringDigitSubstitute* x ) ; FUNCTION: GpStatus GdipGetStringFormatFlags ( GpStringFormat* x, INT* x ) ; FUNCTION: GpStatus GdipGetStringFormatHotkeyPrefix ( GpStringFormat* x, INT* x ) ; FUNCTION: GpStatus GdipGetStringFormatLineAlign ( GpStringFormat* x, StringAlignment* x ) ; FUNCTION: GpStatus GdipGetStringFormatMeasurableCharacterRangeCount ( - GpStringFormat* x, INT* x ) + GpStringFormat* x, INT* x ) ; FUNCTION: GpStatus GdipGetStringFormatTabStopCount ( GpStringFormat* x, INT* x ) ; FUNCTION: GpStatus GdipGetStringFormatTabStops ( GpStringFormat* x, INT x, REAL* x, REAL* x ) ; FUNCTION: GpStatus GdipGetStringFormatTrimming ( GpStringFormat* x, StringTrimming* x ) ; @@ -1592,7 +1577,7 @@ FUNCTION: GpStatus GdipSetStringFormatDigitSubstitution ( GpStringFormat* x, LAN FUNCTION: GpStatus GdipSetStringFormatHotkeyPrefix ( GpStringFormat* x, INT x ) ; FUNCTION: GpStatus GdipSetStringFormatLineAlign ( GpStringFormat* x, StringAlignment x ) ; FUNCTION: GpStatus GdipSetStringFormatMeasurableCharacterRanges ( - GpStringFormat* x, INT x, CharacterRange* x ) + GpStringFormat* x, INT x, CharacterRange* x ) ; FUNCTION: GpStatus GdipSetStringFormatTabStops ( GpStringFormat* x, REAL x, INT x, REAL* x ) ; FUNCTION: GpStatus GdipSetStringFormatTrimming ( GpStringFormat* x, StringTrimming x ) ; FUNCTION: GpStatus GdipSetStringFormatFlags ( GpStringFormat* x, INT x ) ; @@ -1604,20 +1589,20 @@ FUNCTION: GpStatus GdipCreateTexture ( GpImage* x, GpWrapMode x, GpTexture** x ) FUNCTION: GpStatus GdipCreateTexture2 ( GpImage* x, GpWrapMode x, REAL x, REAL x, REAL x, REAL x, GpTexture** x ) ; FUNCTION: GpStatus GdipCreateTexture2I ( GpImage* x, GpWrapMode x, INT x, INT x, INT x, INT x, GpTexture** x ) ; FUNCTION: GpStatus GdipCreateTextureIA ( GpImage* x, GpImageAttributes* x, - REAL x, REAL x, REAL x, REAL x, GpTexture** x ) + REAL x, REAL x, REAL x, REAL x, GpTexture** x ) ; FUNCTION: GpStatus GdipCreateTextureIAI ( GpImage* x, GpImageAttributes* x, - INT x, INT x, INT x, INT x, GpTexture** x ) + INT x, INT x, INT x, INT x, GpTexture** x ) ; FUNCTION: GpStatus GdipGetTextureTransform ( GpTexture* x, GpMatrix* x ) ; FUNCTION: GpStatus GdipGetTextureWrapMode ( GpTexture* x, GpWrapMode* x ) ; FUNCTION: GpStatus GdipMultiplyTextureTransform ( GpTexture* x, - GpMatrix* x, GpMatrixOrder x ) + GpMatrix* x, GpMatrixOrder x ) ; FUNCTION: GpStatus GdipResetTextureTransform ( GpTexture* x ) ; FUNCTION: GpStatus GdipRotateTextureTransform ( GpTexture* x, REAL x, GpMatrixOrder x ) ; FUNCTION: GpStatus GdipScaleTextureTransform ( GpTexture* x, REAL x, REAL x, GpMatrixOrder x ) ; FUNCTION: GpStatus GdipSetTextureTransform ( GpTexture* x, GpMatrix* x ) ; FUNCTION: GpStatus GdipSetTextureWrapMode ( GpTexture* x, GpWrapMode x ) ; FUNCTION: GpStatus GdipTranslateTextureTransform ( GpTexture* x, REAL x, REAL x, - GpMatrixOrder x ) + GpMatrixOrder x ) ; FUNCTION: GpStatus GdipCreateStreamOnFile ( WCHAR* x, UINT x, IStream** x ) ; diff --git a/ffi/windows/kernel32/kernel32.factor b/ffi/windows/kernel32/kernel32.factor index 2ea060fc35..fb234d1c50 100644 --- a/ffi/windows/kernel32/kernel32.factor +++ b/ffi/windows/kernel32/kernel32.factor @@ -960,7 +960,7 @@ FUNCTION: HANDLE CreateFileMappingW ( HANDLE hFile, DWORD flProtect, DWORD dwMaximumSizeHigh, DWORD dwMaximumSizeLow, - LPCTSTR lpName ) + LPCTSTR lpName ) ; ALIAS: CreateFileMapping CreateFileMappingW ! FUNCTION: CreateHardLinkA @@ -1015,7 +1015,7 @@ FUNCTION: BOOL CreateProcessW ( LPCTSTR lpApplicationname, LPVOID lpEnvironment, LPCTSTR lpCurrentDirectory, LPSTARTUPINFO lpStartupInfo, - LPPROCESS_INFORMATION lpProcessInformation ) + LPPROCESS_INFORMATION lpProcessInformation ) ; ALIAS: CreateProcess CreateProcessW ! FUNCTION: CreateProcessInternalA ! FUNCTION: CreateProcessInternalW @@ -1026,7 +1026,7 @@ FUNCTION: HANDLE CreateRemoteThread ( HANDLE hProcess, LPVOID lpStartAddress, LPVOID lpParameter, DWORD dwCreationFlags, - LPDWORD lpThreadId ) + LPDWORD lpThreadId ) ; ! FUNCTION: CreateSemaphoreA ! FUNCTION: CreateSemaphoreW ! FUNCTION: CreateSocketHandle @@ -1086,7 +1086,7 @@ FUNCTION: BOOL DuplicateHandle ( LPHANDLE lpTargetHandle, DWORD dwDesiredAccess, BOOL bInheritHandle, - DWORD dwOptions ) + DWORD dwOptions ) ; CONSTANT: DUPLICATE_CLOSE_SOURCE 1 CONSTANT: DUPLICATE_SAME_ACCESS 2 @@ -1154,7 +1154,7 @@ FUNCTION: BOOL FindClose ( HANDLE hFindFile ) ; FUNCTION: BOOL FindCloseChangeNotification ( HANDLE hChangeHandle ) ; FUNCTION: HANDLE FindFirstChangeNotificationW ( LPCTSTR lpPathName, BOOL bWatchSubtree, - DWORD dwNotifyFilter ) + DWORD dwNotifyFilter ) ; ALIAS: FindFirstChangeNotification FindFirstChangeNotificationW ! FUNCTION: FindFirstFileA ! FUNCTION: FindFirstFileExA @@ -1238,7 +1238,7 @@ FUNCTION: DWORD FormatMessageW ( LPTSTR lpBuffer, DWORD nSize, void* Arguments - ) + ) ; ALIAS: FormatMessage FormatMessageW @@ -1661,14 +1661,14 @@ FUNCTION: LPVOID MapViewOfFile ( HANDLE hFileMappingObject, DWORD dwDesiredAccess, DWORD dwFileOffsetHigh, DWORD dwFileOffsetLow, - SIZE_T dwNumberOfBytesToMap ) + SIZE_T dwNumberOfBytesToMap ) ; FUNCTION: LPVOID MapViewOfFileEx ( HANDLE hFileMappingObject, DWORD dwDesiredAccess, DWORD dwFileOffsetHigh, DWORD dwFileOffsetLow, SIZE_T dwNumberOfBytesToMap, - LPVOID lpBaseAddress ) + LPVOID lpBaseAddress ) ; ! FUNCTION: Module32First ! FUNCTION: Module32FirstW @@ -1695,7 +1695,7 @@ ALIAS: MoveFile MoveFileW ! FUNCTION: HFILE OpenFile ( LPCTSTR lpFileName, LPOFSTRUCT lpReOpenBuff, UINT uStyle ) ; FUNCTION: HANDLE OpenFileMappingW ( DWORD dwDesiredAccess, BOOL bInheritHandle, - LPCTSTR lpName ) + LPCTSTR lpName ) ; ALIAS: OpenFileMapping OpenFileMappingW ! FUNCTION: OpenJobObjectA ! FUNCTION: OpenJobObjectW diff --git a/ffi/windows/opengl32/opengl32.factor b/ffi/windows/opengl32/opengl32.factor index 18f75f6141..642b834060 100644 --- a/ffi/windows/opengl32/opengl32.factor +++ b/ffi/windows/opengl32/opengl32.factor @@ -57,7 +57,7 @@ FUNCTION: BOOL wglMakeCurrent ( HDC hDC, HGLRC hglrc ) ; ! WGL_ARB_extensions_string extension -GL-FUNCTION: c-string wglGetExtensionsStringARB { } ( HDC hDC ) +GL-FUNCTION: c-string wglGetExtensionsStringARB { } ( HDC hDC ) ; ! WGL_ARB_pixel_format extension @@ -121,7 +121,7 @@ GL-FUNCTION: BOOL wglGetPixelFormatAttribivARB { } ( UINT nAttributes, int* piAttributes, int* piValues - ) + ) ; GL-FUNCTION: BOOL wglGetPixelFormatAttribfvARB { } ( HDC hdc, @@ -130,7 +130,7 @@ GL-FUNCTION: BOOL wglGetPixelFormatAttribfvARB { } ( UINT nAttributes, int* piAttributes, FLOAT* pfValues - ) + ) ; GL-FUNCTION: BOOL wglChoosePixelFormatARB { } ( HDC hdc, @@ -139,7 +139,7 @@ GL-FUNCTION: BOOL wglChoosePixelFormatARB { } ( UINT nMaxFormats, int* piFormats, UINT* nNumFormats - ) + ) ; ! WGL_ARB_multisample extension diff --git a/ffi/windows/user32/user32.factor b/ffi/windows/user32/user32.factor index 744f2451aa..ebb492b54e 100644 --- a/ffi/windows/user32/user32.factor +++ b/ffi/windows/user32/user32.factor @@ -1124,7 +1124,7 @@ FUNCTION: HWND CreateWindowExW ( HWND hWndParent, HMENU hMenu, HINSTANCE hInstance, - LPVOID lpParam ) + LPVOID lpParam ) ; ALIAS: CreateWindowEx CreateWindowExW @@ -1211,7 +1211,7 @@ ALIAS: DispatchMessage DispatchMessageW FUNCTION: BOOL DrawAnimatedRects ( HWND hWnd, int idAni, RECT* lprcFrom, RECT* lprcTo ) ; -! FUNCTION: BOOL DrawCaption ( HWND hWnd, HDC hdc, LPRECT lprc, UINT uFlags ) +! FUNCTION: BOOL DrawCaption ( HWND hWnd, HDC hdc, LPRECT lprc, UINT uFlags ) ; ! FUNCTION: DrawEdge ! FUNCTION: DrawFocusRect @@ -1249,7 +1249,7 @@ FUNCTION: UINT EnumClipboardFormats ( UINT format ) ; ! FUNCTION: EnumDesktopWindows ! FUNCTION: EnumDisplayDevicesA ! FUNCTION: EnumDisplayDevicesW -! FUNCTION: BOOL EnumDisplayMonitors ( HDC hdc, LPCRECT lprcClip, MONITORENUMPROC lpfnEnum, LPARAM dwData ) +! FUNCTION: BOOL EnumDisplayMonitors ( HDC hdc, LPCRECT lprcClip, MONITORENUMPROC lpfnEnum, LPARAM dwData ) ; ! FUNCTION: EnumDisplaySettingsA ! FUNCTION: EnumDisplaySettingsExA ! FUNCTION: EnumDisplaySettingsExW @@ -1411,7 +1411,7 @@ FUNCTION: HMENU GetSystemMenu ( HWND hWnd, BOOL bRevert ) ; FUNCTION: HWND GetTopWindow ( HWND hWnd ) ; -! FUNCTION: BOOL GetUpdateRect ( HWND hWnd, LPRECT lpRect, BOOL bErase ) +! FUNCTION: BOOL GetUpdateRect ( HWND hWnd, LPRECT lpRect, BOOL bErase ) ; FUNCTION: int GetUpdateRgn ( HWND hWnd, HRGN hRgn, BOOL bErase ) ; @@ -1506,11 +1506,11 @@ FUNCTION: HACCEL LoadAcceleratorsW ( HINSTANCE hInstance, LPCTSTR lpTableName ) ! FUNCTION: LoadCursorFromFileW -! FUNCTION: HCURSOR LoadCursorW ( HINSTANCE hInstance, LPCWSTR lpCursorName ) +! FUNCTION: HCURSOR LoadCursorW ( HINSTANCE hInstance, LPCWSTR lpCursorName ) ; FUNCTION: HCURSOR LoadCursorW ( HINSTANCE hInstance, ushort lpCursorName ) ; ALIAS: LoadCursor LoadCursorW -! FUNCTION: HICON LoadIconA ( HINSTANCE hInstance, LPCTSTR lpIconName ) +! FUNCTION: HICON LoadIconA ( HINSTANCE hInstance, LPCTSTR lpIconName ) ; FUNCTION: HICON LoadIconW ( HINSTANCE hInstance, LPCTSTR lpIconName ) ; ALIAS: LoadIcon LoadIconW @@ -1555,29 +1555,29 @@ FUNCTION: int MessageBoxA ( HWND hWnd, LPCSTR lpText, LPCSTR lpCaption, - UINT uType ) + UINT uType ) ; FUNCTION: int MessageBoxW ( HWND hWnd, LPCWSTR lpText, LPCWSTR lpCaption, - UINT uType ) + UINT uType ) ; FUNCTION: int MessageBoxExA ( HWND hWnd, LPCSTR lpText, LPCSTR lpCaption, UINT uType, - WORD wLanguageId ) + WORD wLanguageId ) ; FUNCTION: int MessageBoxExW ( HWND hWnd, LPCWSTR lpText, LPCWSTR lpCaption, UINT uType, - WORD wLanguageId ) + WORD wLanguageId ) ; -! FUNCTION: int MessageBoxIndirectA ( MSGBOXPARAMSA* params ) -! FUNCTION: int MessageBoxIndirectW ( MSGBOXPARAMSW* params ) +! FUNCTION: int MessageBoxIndirectA ( MSGBOXPARAMSA* params ) ; +! FUNCTION: int MessageBoxIndirectW ( MSGBOXPARAMSW* params ) ; ALIAS: MessageBox MessageBoxW @@ -1604,7 +1604,7 @@ FUNCTION: BOOL MoveWindow ( int Y, int nWidth, int nHeight, - BOOL bRepaint ) + BOOL bRepaint ) ; ! FUNCTION: MsgWaitForMultipleObjects ! FUNCTION: MsgWaitForMultipleObjectsEx @@ -1694,7 +1694,7 @@ FUNCTION: int ReleaseDC ( HWND hWnd, HDC hDC ) ; ! FUNCTION: SendDlgItemMessageW ! FUNCTION: SendIMEMessageExA ! FUNCTION: SendIMEMessageExW -! FUNCTION: UINT SendInput ( UINT nInputs, LPINPUT pInputs, int cbSize ) +! FUNCTION: UINT SendInput ( UINT nInputs, LPINPUT pInputs, int cbSize ) ; FUNCTION: LRESULT SendMessageW ( HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam ) ; ALIAS: SendMessage SendMessageW ! FUNCTION: SendMessageCallbackA diff --git a/ffi/windows/winsock/winsock.factor b/ffi/windows/winsock/winsock.factor index ad1f56dac1..0208e2e582 100644 --- a/ffi/windows/winsock/winsock.factor +++ b/ffi/windows/winsock/winsock.factor @@ -182,7 +182,7 @@ FUNCTION: c-string inet_ntoa ( int in-addr ) ; FUNCTION: int getaddrinfo ( c-string nodename, c-string servername, addrinfo* hints, - addrinfo** res ) + addrinfo** res ) ; FUNCTION: void freeaddrinfo ( addrinfo* ai ) ; @@ -310,7 +310,7 @@ FUNCTION: SOCKET WSAAccept ( SOCKET s, sockaddr* addr, LPINT addrlen, LPCONDITIONPROC lpfnCondition, - DWORD dwCallbackData ) + DWORD dwCallbackData ) ; ! FUNCTION: INT WSAAddressToString ( LPSOCKADDR lpsaAddress, DWORD dwAddressLength, LPWSAPROTOCOL_INFO lpProtocolInfo, LPTSTR lpszAddressString, LPDWORD lpdwAddressStringLength ) ; @@ -323,23 +323,23 @@ FUNCTION: int WSAConnect ( SOCKET s, LPWSABUF lpCallerData, LPWSABUF lpCalleeData, LPQOS lpSQOS, - LPQOS lpGQOS ) + LPQOS lpGQOS ) ; FUNCTION: WSAEVENT WSACreateEvent ( ) ; ! FUNCTION: INT WSAEnumNameSpaceProviders ( LPDWORD lpdwBufferLength, LPWSANAMESPACE_INFO lpnspBuffer ) ; FUNCTION: int WSAEnumNetworkEvents ( SOCKET s, WSAEVENT hEventObject, - LPWSANETWORKEVENTS lpNetworkEvents ) + LPWSANETWORKEVENTS lpNetworkEvents ) ; ! FUNCTION: int WSAEnumProtocols ( LPINT lpiProtocols, LPWSAPROTOCOL_INFO lpProtocolBuffer, LPDWORD lpwdBufferLength ) ; FUNCTION: int WSAEventSelect ( SOCKET s, WSAEVENT hEventObject, - long lNetworkEvents ) + long lNetworkEvents ) ; FUNCTION: int WSAGetLastError ( ) ; FUNCTION: BOOL WSAGetOverlappedResult ( SOCKET s, LPWSAOVERLAPPED lpOverlapped, LPDWORD lpcbTransfer, BOOL fWait, - LPDWORD lpdwFlags ) + LPDWORD lpdwFlags ) ; TYPEDEF: void* LPWSAOVERLAPPED_COMPLETION_ROUTINE FUNCTION: int WSAIoctl ( SOCKET s, @@ -350,7 +350,7 @@ FUNCTION: int WSAIoctl ( SOCKET s, DWORD cbOutBuffer, LPDWORD lpcbBytesReturned, LPWSAOVERLAPPED lpOverlapped, - LPWSAOVERLAPPED_COMPLETION_ROUTINE lpCompletionRoutine ) + LPWSAOVERLAPPED_COMPLETION_ROUTINE lpCompletionRoutine ) ; FUNCTION: int WSARecv ( SOCKET s, LPWSABUF lpBuffers, @@ -358,7 +358,7 @@ FUNCTION: int WSARecv ( SOCKET s, LPDWORD lpNumberOfBytesRecvd, LPDWORD lpFlags, LPWSAOVERLAPPED lpOverlapped, - LPWSAOVERLAPPED_COMPLETION_ROUTINE lpCompletionRoutine ) + LPWSAOVERLAPPED_COMPLETION_ROUTINE lpCompletionRoutine ) ; FUNCTION: int WSARecvFrom ( SOCKET s, LPWSABUF lpBuffers, @@ -368,7 +368,7 @@ FUNCTION: int WSARecvFrom ( SOCKET s, sockaddr* lpFrom, LPINT lpFromlen, LPWSAOVERLAPPED lpOverlapped, - LPWSAOVERLAPPED_COMPLETION_ROUTINE lpCompletionRoutine ) + LPWSAOVERLAPPED_COMPLETION_ROUTINE lpCompletionRoutine ) ; FUNCTION: BOOL WSAResetEvent ( WSAEVENT hEvent ) ; FUNCTION: int WSASend ( SOCKET s, @@ -377,7 +377,7 @@ FUNCTION: int WSASend ( SOCKET s, LPDWORD lpNumberOfBytesSent, LPDWORD lpFlags, LPWSAOVERLAPPED lpOverlapped, - LPWSAOVERLAPPED_COMPLETION_ROUTINE lpCompletionRoutine ) + LPWSAOVERLAPPED_COMPLETION_ROUTINE lpCompletionRoutine ) ; FUNCTION: int WSASendTo ( SOCKET s, LPWSABUF lpBuffers, @@ -387,7 +387,7 @@ FUNCTION: int WSASendTo ( SOCKET s, sockaddr* lpTo, int iToLen, LPWSAOVERLAPPED lpOverlapped, - LPWSAOVERLAPPED_COMPLETION_ROUTINE lpCompletionRoutine ) + LPWSAOVERLAPPED_COMPLETION_ROUTINE lpCompletionRoutine ) ; FUNCTION: int WSAStartup ( WORD version, LPWSADATA out-data ) ; @@ -396,14 +396,14 @@ FUNCTION: SOCKET WSASocketW ( int af, int protocol, LPWSAPROTOCOL_INFOW lpProtocolInfo, GROUP g, - DWORD flags ) + DWORD flags ) ; ALIAS: WSASocket WSASocketW FUNCTION: DWORD WSAWaitForMultipleEvents ( DWORD cEvents, WSAEVENT* lphEvents, BOOL fWaitAll, DWORD dwTimeout, - BOOL fAlertable ) + BOOL fAlertable ) ; LIBRARY: mswsock @@ -415,7 +415,7 @@ FUNCTION: int AcceptEx ( SOCKET listen, DWORD addr-len, DWORD remote-len, LPDWORD out-len, - LPOVERLAPPED overlapped ) + LPOVERLAPPED overlapped ) ; FUNCTION: void GetAcceptExSockaddrs ( PVOID lpOutputBuffer, diff --git a/frameworks/db/postgresql/ffi/ffi.factor b/frameworks/db/postgresql/ffi/ffi.factor index 21c9d3860f..12876d984a 100644 --- a/frameworks/db/postgresql/ffi/ffi.factor +++ b/frameworks/db/postgresql/ffi/ffi.factor @@ -85,7 +85,7 @@ FUNCTION: PGconn* PQconnectdb ( c-string conninfo ) ; FUNCTION: PGconn* PQsetdbLogin ( c-string pghost, c-string pgport, c-string pgoptions, c-string pgtty, c-string dbName, - c-string login, c-string pwd ) + c-string login, c-string pwd ) ; : PQsetdb ( M_PGHOST M_PGPORT M_PGOPT M_PGTTY M_DBNAME -- PGconn* ) f f PQsetdbLogin ; @@ -126,9 +126,9 @@ FUNCTION: c-string PQoptions ( PGconn* conn ) ; FUNCTION: ConnStatusType PQstatus ( PGconn* conn ) ; FUNCTION: PGTransactionStatusType PQtransactionStatus ( PGconn* conn ) ; FUNCTION: c-string PQparameterStatus ( PGconn* conn, - c-string paramName ) + c-string paramName ) ; FUNCTION: int PQprotocolVersion ( PGconn* conn ) ; -! FUNCTION: int PQServerVersion ( PGconn* conn ) +! FUNCTION: int PQServerVersion ( PGconn* conn ) ; FUNCTION: c-string PQerrorMessage ( PGconn* conn ) ; FUNCTION: int PQsocket ( PGconn* conn ) ; FUNCTION: int PQbackendPID ( PGconn* conn ) ; @@ -144,7 +144,7 @@ FUNCTION: void PQinitSSL ( int do_init ) ; ! Set verbosity for PQerrorMessage and PQresultErrorMessage FUNCTION: PGVerbosity PQsetErrorVerbosity ( PGconn* conn, - PGVerbosity verbosity ) + PGVerbosity verbosity ) ; ! Enable/disable tracing FUNCTION: void PQtrace ( PGconn* conn, FILE* debug_port ) ; @@ -160,10 +160,10 @@ FUNCTION: void PQuntrace ( PGconn* conn ) ; ! Override default notice handling routines ! FUNCTION: PQnoticeReceiver PQsetNoticeReceiver ( PGconn* conn, ! PQnoticeReceiver proc, - ! void* arg ) + ! void* arg ) ; ! FUNCTION: PQnoticeProcessor PQsetNoticeProcessor ( PGconn* conn, ! PQnoticeProcessor proc, - ! void* arg ) + ! void* arg ) ; ! END BROKEN ! === in fe-exec.c === @@ -177,17 +177,17 @@ FUNCTION: PGresult* PQexecParams ( PGconn* conn, c-string* paramValues, int* paramLengths, int* paramFormats, - int resultFormat ) + int resultFormat ) ; FUNCTION: PGresult* PQprepare ( PGconn* conn, c-string stmtName, c-string query, int nParams, - Oid* paramTypes ) + Oid* paramTypes ) ; FUNCTION: PGresult* PQexecPrepared ( PGconn* conn, c-string stmtName, int nParams, c-string* paramValues, int* paramLengths, int* paramFormats, - int resultFormat ) + int resultFormat ) ; ! Interface for multiple-result or asynchronous queries FUNCTION: int PQsendQuery ( PGconn* conn, c-string query ) ; @@ -198,17 +198,17 @@ FUNCTION: int PQsendQueryParams ( PGconn* conn, c-string* paramValues, int* paramLengths, int* paramFormats, - int resultFormat ) + int resultFormat ) ; FUNCTION: PGresult* PQsendPrepare ( PGconn* conn, c-string stmtName, c-string query, int nParams, - Oid* paramTypes ) + Oid* paramTypes ) ; FUNCTION: int PQsendQueryPrepared ( PGconn* conn, c-string stmtName, int nParams, c-string* paramValues, int *paramLengths, int *paramFormats, - int resultFormat ) + int resultFormat ) ; FUNCTION: PGresult* PQgetResult ( PGconn* conn ) ; ! Routines for managing an asynchronous query @@ -247,7 +247,7 @@ FUNCTION: PGresult* PQfn ( PGconn* conn, int* result_len, int result_is_int, PQArgBlock* args, - int nargs ) + int nargs ) ; ! Accessor functions for PGresult objects FUNCTION: ExecStatusType PQresultStatus ( PGresult* res ) ; @@ -269,7 +269,7 @@ FUNCTION: c-string PQcmdStatus ( PGresult* res ) ; FUNCTION: c-string PQoidStatus ( PGresult* res ) ; FUNCTION: Oid PQoidValue ( PGresult* res ) ; FUNCTION: c-string PQcmdTuples ( PGresult* res ) ; -! FUNCTION: c-string PQgetvalue ( PGresult* res, int tup_num, int field_num ) +! FUNCTION: c-string PQgetvalue ( PGresult* res, int tup_num, int field_num ) ; FUNCTION: void* PQgetvalue ( PGresult* res, int tup_num, int field_num ) ; FUNCTION: int PQgetlength ( PGresult* res, int tup_num, int field_num ) ; FUNCTION: int PQgetisnull ( PGresult* res, int tup_num, int field_num ) ; @@ -293,16 +293,16 @@ FUNCTION: PGresult* PQmakeEmptyPGresult ( PGconn* conn, ExecStatusType status ) ! Quoting strings before inclusion in queries. FUNCTION: size_t PQescapeStringConn ( PGconn* conn, c-string to, c-string from, size_t length, - int* error ) + int* error ) ; FUNCTION: c-string PQescapeByteaConn ( PGconn* conn, c-string from, size_t length, - size_t* to_length ) + size_t* to_length ) ; FUNCTION: void* PQunescapeBytea ( c-string strtext, size_t* retbuflen ) ; -! FUNCTION: c-string PQunescapeBytea ( c-string strtext, size_t* retbuflen ) +! FUNCTION: c-string PQunescapeBytea ( c-string strtext, size_t* retbuflen ) ; ! These forms are deprecated! FUNCTION: size_t PQescapeString ( void* to, c-string from, size_t length ) ; FUNCTION: c-string PQescapeBytea ( c-string bintext, size_t binlen, - size_t* bytealen ) + size_t* bytealen ) ; ! === in fe-print.c === @@ -314,13 +314,13 @@ FUNCTION: void PQdisplayTuples ( PGresult* res, int fillAlign, c-string fieldSep, int printHeader, - int quiet ) + int quiet ) ; FUNCTION: void PQprintTuples ( PGresult* res, FILE* fout, int printAttName, int terseOutput, - int width ) + int width ) ; ! === in fe-lobj.c === ! Large-object access routines @@ -330,7 +330,7 @@ FUNCTION: int lo_read ( PGconn* conn, int fd, c-string buf, size_t len ) ; FUNCTION: int lo_write ( PGconn* conn, int fd, c-string buf, size_t len ) ; FUNCTION: int lo_lseek ( PGconn* conn, int fd, int offset, int whence ) ; FUNCTION: Oid lo_creat ( PGconn* conn, int mode ) ; -! FUNCTION: Oid lo_creat ( PGconn* conn, Oid lobjId ) +! FUNCTION: Oid lo_creat ( PGconn* conn, Oid lobjId ) ; FUNCTION: int lo_tell ( PGconn* conn, int fd ) ; FUNCTION: int lo_unlink ( PGconn* conn, Oid lobjId ) ; FUNCTION: Oid lo_import ( PGconn* conn, c-string filename ) ; diff --git a/frameworks/db/sqlite/ffi/ffi.factor b/frameworks/db/sqlite/ffi/ffi.factor index 8e48653730..67efc2ed46 100644 --- a/frameworks/db/sqlite/ffi/ffi.factor +++ b/frameworks/db/sqlite/ffi/ffi.factor @@ -120,7 +120,7 @@ FUNCTION: int sqlite3_bind_int ( sqlite3_stmt* pStmt, int index, int n ) ; FUNCTION: int sqlite3_bind_int64 ( sqlite3_stmt* pStmt, int index, sqlite3_int64 n ) ; ! Bind the same function as above, but for unsigned 64bit integers FUNCTION-ALIAS: sqlite3-bind-uint64 - int sqlite3_bind_int64 ( sqlite3_stmt* pStmt, int index, sqlite3_uint64 in64 ) + int sqlite3_bind_int64 ( sqlite3_stmt* pStmt, int index, sqlite3_uint64 in64 ) ; FUNCTION: int sqlite3_bind_null ( sqlite3_stmt* pStmt, int n ) ; FUNCTION: int sqlite3_bind_text ( sqlite3_stmt* pStmt, int index, c-string text, int len, int destructor ) ; FUNCTION: int sqlite3_bind_parameter_index ( sqlite3_stmt* pStmt, c-string name ) ; @@ -133,7 +133,7 @@ FUNCTION: int sqlite3_column_int ( sqlite3_stmt* pStmt, int col ) ; FUNCTION: sqlite3_int64 sqlite3_column_int64 ( sqlite3_stmt* pStmt, int col ) ; ! Bind the same function as above, but for unsigned 64bit integers FUNCTION-ALIAS: sqlite3-column-uint64 - sqlite3_uint64 sqlite3_column_int64 ( sqlite3_stmt* pStmt, int col ) + sqlite3_uint64 sqlite3_column_int64 ( sqlite3_stmt* pStmt, int col ) ; FUNCTION: double sqlite3_column_double ( sqlite3_stmt* pStmt, int col ) ; FUNCTION: c-string sqlite3_column_name ( sqlite3_stmt* pStmt, int col ) ; FUNCTION: c-string sqlite3_column_text ( sqlite3_stmt* pStmt, int col ) ; diff --git a/language/alien/parser/parser-tests.factor b/language/alien/parser/parser-tests.factor index 71ebbd782e..ded306bf2c 100644 --- a/language/alien/parser/parser-tests.factor +++ b/language/alien/parser/parser-tests.factor @@ -88,7 +88,7 @@ FUNCTION: void* alien-parser-function-effect-test ( int *arg1, float arg2 ) ; { t } [ \ alien-parser-function-effect-test inline? ] unit-test -FUNCTION-ALIAS: (alien-parser-function-effect-test) void* alien-parser-function-effect-test ( int *arg1, float arg2 ) +FUNCTION-ALIAS: (alien-parser-function-effect-test) void* alien-parser-function-effect-test ( int *arg1, float arg2 ) ; { ( arg1 arg2 -- void* ) } [ \ (alien-parser-function-effect-test) "declared-effect" word-prop diff --git a/language/alien/prettyprint/prettyprint-tests.factor b/language/alien/prettyprint/prettyprint-tests.factor index 209a854312..18370aba66 100644 --- a/language/alien/prettyprint/prettyprint-tests.factor +++ b/language/alien/prettyprint/prettyprint-tests.factor @@ -9,18 +9,18 @@ FUNCTION: int function_test ( float x, int[4][FOO] y, char* z, ushort *w ) ; { "USING: alien.c-types alien.syntax ; IN: alien.prettyprint.tests FUNCTION: int function_test - ( float x, int[4][FOO] y, char* z, ushort* w ) + ( float x, int[4][FOO] y, char* z, ushort* w ) ; " } [ [ \ function_test see ] with-string-writer ] unit-test FUNCTION-ALIAS: function-test int function_test - ( float x, int[4][FOO] y, char* z, ushort *w ) + ( float x, int[4][FOO] y, char* z, ushort *w ) ; { "USING: alien.c-types alien.syntax ; IN: alien.prettyprint.tests FUNCTION-ALIAS: function-test int function_test - ( float x, int[4][FOO] y, char* z, ushort* w ) + ( float x, int[4][FOO] y, char* z, ushort* w ) ; " } [ [ \ function-test see ] with-string-writer ] unit-test diff --git a/language/alien/prettyprint/prettyprint.factor b/language/alien/prettyprint/prettyprint.factor index 6905e6b454..361ab15cc3 100644 --- a/language/alien/prettyprint/prettyprint.factor +++ b/language/alien/prettyprint/prettyprint.factor @@ -74,7 +74,7 @@ M: typedef-word synopsis* > fourth ] [ stack-effect in>> ] bi pprint-function-args - ")" text block> + ")" text ";" text block> ] tri ; inline M: alien-function-alias-word definer @@ -114,7 +114,7 @@ M: alien-callback-type-word synopsis* > first second ] [ "callback-effect" word-prop in>> ] bi pprint-function-args - ")" text block> + ")" text ";" text block> ] } cleave ; diff --git a/libs/math/blas/ffi/ffi.factor b/libs/math/blas/ffi/ffi.factor index 365b9faa4a..6d284d4809 100644 --- a/libs/math/blas/ffi/ffi.factor +++ b/libs/math/blas/ffi/ffi.factor @@ -14,507 +14,507 @@ LIBRARY: blas ! Level 1 BLAS (scalar-vector and vector-vector) FUNCTION: REAL SDSDOT - ( INTEGER N, REAL ALPHA, REAL(*) X, INTEGER INCX, REAL(*) Y, INTEGER INCY ) + ( INTEGER N, REAL ALPHA, REAL(*) X, INTEGER INCX, REAL(*) Y, INTEGER INCY ) ; FUNCTION: DOUBLE-PRECISION DSDOT - ( INTEGER N, DOUBLE-PRECISION(*) X, INTEGER INCX, REAL(*) Y, INTEGER INCY ) + ( INTEGER N, DOUBLE-PRECISION(*) X, INTEGER INCX, REAL(*) Y, INTEGER INCY ) ; FUNCTION: REAL SDOT - ( INTEGER N, REAL(*) X, INTEGER INCX, REAL(*) Y, INTEGER INCY ) + ( INTEGER N, REAL(*) X, INTEGER INCX, REAL(*) Y, INTEGER INCY ) ; FUNCTION: DOUBLE-PRECISION DDOT - ( INTEGER N, DOUBLE-PRECISION(*) X, INTEGER INCX, DOUBLE-PRECISION(*) Y, INTEGER INCY ) + ( INTEGER N, DOUBLE-PRECISION(*) X, INTEGER INCX, DOUBLE-PRECISION(*) Y, INTEGER INCY ) ; FUNCTION: COMPLEX CDOTU - ( INTEGER N, COMPLEX(*) X, INTEGER INCX, COMPLEX(*) Y, INTEGER INCY ) + ( INTEGER N, COMPLEX(*) X, INTEGER INCX, COMPLEX(*) Y, INTEGER INCY ) ; FUNCTION: COMPLEX CDOTC - ( INTEGER N, COMPLEX(*) X, INTEGER INCX, COMPLEX(*) Y, INTEGER INCY ) + ( INTEGER N, COMPLEX(*) X, INTEGER INCX, COMPLEX(*) Y, INTEGER INCY ) ; FUNCTION: DOUBLE-COMPLEX ZDOTU - ( INTEGER N, DOUBLE-COMPLEX(*) X, INTEGER INCX, DOUBLE-COMPLEX(*) Y, INTEGER INCY ) + ( INTEGER N, DOUBLE-COMPLEX(*) X, INTEGER INCX, DOUBLE-COMPLEX(*) Y, INTEGER INCY ) ; FUNCTION: DOUBLE-COMPLEX ZDOTC - ( INTEGER N, DOUBLE-COMPLEX(*) X, INTEGER INCX, DOUBLE-COMPLEX(*) Y, INTEGER INCY ) + ( INTEGER N, DOUBLE-COMPLEX(*) X, INTEGER INCX, DOUBLE-COMPLEX(*) Y, INTEGER INCY ) ; FUNCTION: REAL SNRM2 - ( INTEGER N, REAL(*) X, INTEGER INCX ) + ( INTEGER N, REAL(*) X, INTEGER INCX ) ; FUNCTION: REAL SASUM - ( INTEGER N, REAL(*) X, INTEGER INCX ) + ( INTEGER N, REAL(*) X, INTEGER INCX ) ; FUNCTION: DOUBLE-PRECISION DNRM2 - ( INTEGER N, DOUBLE-PRECISION(*) X, INTEGER INCX ) + ( INTEGER N, DOUBLE-PRECISION(*) X, INTEGER INCX ) ; FUNCTION: DOUBLE-PRECISION DASUM - ( INTEGER N, DOUBLE-PRECISION(*) X, INTEGER INCX ) + ( INTEGER N, DOUBLE-PRECISION(*) X, INTEGER INCX ) ; FUNCTION: REAL SCNRM2 - ( INTEGER N, COMPLEX(*) X, INTEGER INCX ) + ( INTEGER N, COMPLEX(*) X, INTEGER INCX ) ; FUNCTION: REAL SCASUM - ( INTEGER N, COMPLEX(*) X, INTEGER INCX ) + ( INTEGER N, COMPLEX(*) X, INTEGER INCX ) ; FUNCTION: DOUBLE-PRECISION DZNRM2 - ( INTEGER N, DOUBLE-COMPLEX(*) X, INTEGER INCX ) + ( INTEGER N, DOUBLE-COMPLEX(*) X, INTEGER INCX ) ; FUNCTION: DOUBLE-PRECISION DZASUM - ( INTEGER N, DOUBLE-COMPLEX(*) X, INTEGER INCX ) + ( INTEGER N, DOUBLE-COMPLEX(*) X, INTEGER INCX ) ; FUNCTION: INTEGER ISAMAX - ( INTEGER N, REAL(*) X, INTEGER INCX ) + ( INTEGER N, REAL(*) X, INTEGER INCX ) ; FUNCTION: INTEGER IDAMAX - ( INTEGER N, DOUBLE-PRECISION(*) X, INTEGER INCX ) + ( INTEGER N, DOUBLE-PRECISION(*) X, INTEGER INCX ) ; FUNCTION: INTEGER ICAMAX - ( INTEGER N, COMPLEX(*) X, INTEGER INCX ) + ( INTEGER N, COMPLEX(*) X, INTEGER INCX ) ; FUNCTION: INTEGER IZAMAX - ( INTEGER N, DOUBLE-COMPLEX(*) X, INTEGER INCX ) + ( INTEGER N, DOUBLE-COMPLEX(*) X, INTEGER INCX ) ; SUBROUTINE: SSWAP - ( INTEGER N, REAL(*) X, INTEGER INCX, REAL(*) Y, INTEGER INCY ) + ( INTEGER N, REAL(*) X, INTEGER INCX, REAL(*) Y, INTEGER INCY ) ; SUBROUTINE: SCOPY - ( INTEGER N, REAL(*) X, INTEGER INCX, REAL(*) Y, INTEGER INCY ) + ( INTEGER N, REAL(*) X, INTEGER INCX, REAL(*) Y, INTEGER INCY ) ; SUBROUTINE: SAXPY - ( INTEGER N, REAL ALPHA, REAL(*) X, INTEGER INCX, REAL(*) Y, INTEGER INCY ) + ( INTEGER N, REAL ALPHA, REAL(*) X, INTEGER INCX, REAL(*) Y, INTEGER INCY ) ; SUBROUTINE: DSWAP - ( INTEGER N, DOUBLE-PRECISION(*) X, INTEGER INCX, DOUBLE-PRECISION(*) Y, INTEGER INCY ) + ( INTEGER N, DOUBLE-PRECISION(*) X, INTEGER INCX, DOUBLE-PRECISION(*) Y, INTEGER INCY ) ; SUBROUTINE: DCOPY - ( INTEGER N, DOUBLE-PRECISION(*) X, INTEGER INCX, DOUBLE-PRECISION(*) Y, INTEGER INCY ) + ( INTEGER N, DOUBLE-PRECISION(*) X, INTEGER INCX, DOUBLE-PRECISION(*) Y, INTEGER INCY ) ; SUBROUTINE: DAXPY - ( INTEGER N, DOUBLE-PRECISION ALPHA, DOUBLE-PRECISION(*) X, INTEGER INCX, DOUBLE-PRECISION(*) Y, INTEGER INCY ) + ( INTEGER N, DOUBLE-PRECISION ALPHA, DOUBLE-PRECISION(*) X, INTEGER INCX, DOUBLE-PRECISION(*) Y, INTEGER INCY ) ; SUBROUTINE: CSWAP - ( INTEGER N, COMPLEX(*) X, INTEGER INCX, COMPLEX(*) Y, INTEGER INCY ) + ( INTEGER N, COMPLEX(*) X, INTEGER INCX, COMPLEX(*) Y, INTEGER INCY ) ; SUBROUTINE: CCOPY - ( INTEGER N, COMPLEX(*) X, INTEGER INCX, COMPLEX(*) Y, INTEGER INCY ) + ( INTEGER N, COMPLEX(*) X, INTEGER INCX, COMPLEX(*) Y, INTEGER INCY ) ; SUBROUTINE: CAXPY - ( INTEGER N, COMPLEX ALPHA, COMPLEX(*) X, INTEGER INCX, COMPLEX(*) Y, INTEGER INCY ) + ( INTEGER N, COMPLEX ALPHA, COMPLEX(*) X, INTEGER INCX, COMPLEX(*) Y, INTEGER INCY ) ; SUBROUTINE: ZSWAP - ( INTEGER N, DOUBLE-COMPLEX(*) X, INTEGER INCX, DOUBLE-COMPLEX(*) Y, INTEGER INCY ) + ( INTEGER N, DOUBLE-COMPLEX(*) X, INTEGER INCX, DOUBLE-COMPLEX(*) Y, INTEGER INCY ) ; SUBROUTINE: ZCOPY - ( INTEGER N, DOUBLE-COMPLEX(*) X, INTEGER INCX, DOUBLE-COMPLEX(*) Y, INTEGER INCY ) + ( INTEGER N, DOUBLE-COMPLEX(*) X, INTEGER INCX, DOUBLE-COMPLEX(*) Y, INTEGER INCY ) ; SUBROUTINE: ZAXPY - ( INTEGER N, DOUBLE-COMPLEX ALPHA, DOUBLE-COMPLEX(*) X, INTEGER INCX, DOUBLE-COMPLEX(*) Y, INTEGER INCY ) + ( INTEGER N, DOUBLE-COMPLEX ALPHA, DOUBLE-COMPLEX(*) X, INTEGER INCX, DOUBLE-COMPLEX(*) Y, INTEGER INCY ) ; SUBROUTINE: SSCAL - ( INTEGER N, REAL ALPHA, REAL(*) X, INTEGER INCX ) + ( INTEGER N, REAL ALPHA, REAL(*) X, INTEGER INCX ) ; SUBROUTINE: DSCAL - ( INTEGER N, DOUBLE-PRECISION ALPHA, DOUBLE-PRECISION(*) X, INTEGER INCX ) + ( INTEGER N, DOUBLE-PRECISION ALPHA, DOUBLE-PRECISION(*) X, INTEGER INCX ) ; SUBROUTINE: CSCAL - ( INTEGER N, COMPLEX ALPHA, COMPLEX(*) X, INTEGER INCX ) + ( INTEGER N, COMPLEX ALPHA, COMPLEX(*) X, INTEGER INCX ) ; SUBROUTINE: ZSCAL - ( INTEGER N, DOUBLE-COMPLEX ALPHA, DOUBLE-COMPLEX(*) X, INTEGER INCX ) + ( INTEGER N, DOUBLE-COMPLEX ALPHA, DOUBLE-COMPLEX(*) X, INTEGER INCX ) ; SUBROUTINE: CSSCAL - ( INTEGER N, REAL ALPHA, COMPLEX(*) X, INTEGER INCX ) + ( INTEGER N, REAL ALPHA, COMPLEX(*) X, INTEGER INCX ) ; SUBROUTINE: ZDSCAL - ( INTEGER N, DOUBLE-PRECISION ALPHA, DOUBLE-COMPLEX(*) X, INTEGER INCX ) + ( INTEGER N, DOUBLE-PRECISION ALPHA, DOUBLE-COMPLEX(*) X, INTEGER INCX ) ; SUBROUTINE: SROTG - ( REAL(*) A, REAL(*) B, REAL(*) C, REAL(*) S ) + ( REAL(*) A, REAL(*) B, REAL(*) C, REAL(*) S ) ; SUBROUTINE: SROTMG - ( REAL(*) D1, REAL(*) D2, REAL(*) B1, REAL B2, REAL(*) P ) + ( REAL(*) D1, REAL(*) D2, REAL(*) B1, REAL B2, REAL(*) P ) ; SUBROUTINE: SROT - ( INTEGER N, REAL(*) X, INTEGER INCX, REAL(*) Y, INTEGER INCY, REAL C, REAL S ) + ( INTEGER N, REAL(*) X, INTEGER INCX, REAL(*) Y, INTEGER INCY, REAL C, REAL S ) ; SUBROUTINE: SROTM - ( INTEGER N, REAL(*) X, INTEGER INCX, REAL(*) Y, INTEGER INCY, REAL(*) P ) + ( INTEGER N, REAL(*) X, INTEGER INCX, REAL(*) Y, INTEGER INCY, REAL(*) P ) ; SUBROUTINE: DROTG - ( DOUBLE-PRECISION(*) A, DOUBLE-PRECISION(*) B, DOUBLE-PRECISION(*) C, DOUBLE-PRECISION(*) S ) + ( DOUBLE-PRECISION(*) A, DOUBLE-PRECISION(*) B, DOUBLE-PRECISION(*) C, DOUBLE-PRECISION(*) S ) ; SUBROUTINE: DROTMG - ( DOUBLE-PRECISION(*) D1, DOUBLE-PRECISION(*) D2, DOUBLE-PRECISION(*) B1, DOUBLE-PRECISION B2, DOUBLE-PRECISION(*) P ) + ( DOUBLE-PRECISION(*) D1, DOUBLE-PRECISION(*) D2, DOUBLE-PRECISION(*) B1, DOUBLE-PRECISION B2, DOUBLE-PRECISION(*) P ) ; SUBROUTINE: DROT - ( INTEGER N, DOUBLE-PRECISION(*) X, INTEGER INCX, DOUBLE-PRECISION(*) Y, INTEGER INCY, DOUBLE-PRECISION C, DOUBLE-PRECISION S ) + ( INTEGER N, DOUBLE-PRECISION(*) X, INTEGER INCX, DOUBLE-PRECISION(*) Y, INTEGER INCY, DOUBLE-PRECISION C, DOUBLE-PRECISION S ) ; SUBROUTINE: DROTM - ( INTEGER N, DOUBLE-PRECISION(*) X, INTEGER INCX, DOUBLE-PRECISION(*) Y, INTEGER INCY, DOUBLE-PRECISION(*) P ) + ( INTEGER N, DOUBLE-PRECISION(*) X, INTEGER INCX, DOUBLE-PRECISION(*) Y, INTEGER INCY, DOUBLE-PRECISION(*) P ) ; -! LEVEL 2 BLAS (MATRIX-VECTOR) +! LEVEL 2 BLAS (MATRIX-VECTOR) ; SUBROUTINE: SGEMV ( CHARACTER*1 TRANSA, INTEGER M, INTEGER N, REAL ALPHA, REAL(*) A, INTEGER LDA, REAL(*) X, INTEGER INCX, REAL BETA, - REAL(*) Y, INTEGER INCY ) + REAL(*) Y, INTEGER INCY ) ; SUBROUTINE: SGBMV ( CHARACTER*1 TRANSA, INTEGER M, INTEGER N, INTEGER KL, INTEGER KU, REAL ALPHA, REAL(*) A, INTEGER LDA, REAL(*) X, - INTEGER INCX, REAL BETA, REAL(*) Y, INTEGER INCY ) + INTEGER INCX, REAL BETA, REAL(*) Y, INTEGER INCY ) ; SUBROUTINE: STRMV ( CHARACTER*1 UPLO, CHARACTER*1 TRANSA, CHARACTER*1 DIAG, INTEGER N, REAL(*) A, INTEGER LDA, - REAL(*) X, INTEGER INCX ) + REAL(*) X, INTEGER INCX ) ; SUBROUTINE: STBMV ( CHARACTER*1 UPLO, CHARACTER*1 TRANSA, CHARACTER*1 DIAG, INTEGER N, INTEGER K, REAL(*) A, INTEGER LDA, - REAL(*) X, INTEGER INCX ) + REAL(*) X, INTEGER INCX ) ; SUBROUTINE: STPMV ( CHARACTER*1 UPLO, CHARACTER*1 TRANSA, CHARACTER*1 DIAG, - INTEGER N, REAL(*) AP, REAL(*) X, INTEGER INCX ) + INTEGER N, REAL(*) AP, REAL(*) X, INTEGER INCX ) ; SUBROUTINE: STRSV ( CHARACTER*1 UPLO, CHARACTER*1 TRANSA, CHARACTER*1 DIAG, INTEGER N, REAL(*) A, INTEGER LDA, REAL(*) X, - INTEGER INCX ) + INTEGER INCX ) ; SUBROUTINE: STBSV ( CHARACTER*1 UPLO, CHARACTER*1 TRANSA, CHARACTER*1 DIAG, INTEGER N, INTEGER K, REAL(*) A, INTEGER LDA, - REAL(*) X, INTEGER INCX ) + REAL(*) X, INTEGER INCX ) ; SUBROUTINE: STPSV ( CHARACTER*1 UPLO, CHARACTER*1 TRANSA, CHARACTER*1 DIAG, - INTEGER N, REAL(*) AP, REAL(*) X, INTEGER INCX ) + INTEGER N, REAL(*) AP, REAL(*) X, INTEGER INCX ) ; SUBROUTINE: DGEMV ( CHARACTER*1 TRANSA, INTEGER M, INTEGER N, DOUBLE-PRECISION ALPHA, DOUBLE-PRECISION(*) A, INTEGER LDA, DOUBLE-PRECISION(*) X, INTEGER INCX, DOUBLE-PRECISION BETA, - DOUBLE-PRECISION(*) Y, INTEGER INCY ) + DOUBLE-PRECISION(*) Y, INTEGER INCY ) ; SUBROUTINE: DGBMV ( CHARACTER*1 TRANSA, INTEGER M, INTEGER N, INTEGER KL, INTEGER KU, DOUBLE-PRECISION ALPHA, DOUBLE-PRECISION(*) A, INTEGER LDA, DOUBLE-PRECISION(*) X, - INTEGER INCX, DOUBLE-PRECISION BETA, DOUBLE-PRECISION(*) Y, INTEGER INCY ) + INTEGER INCX, DOUBLE-PRECISION BETA, DOUBLE-PRECISION(*) Y, INTEGER INCY ) ; SUBROUTINE: DTRMV ( CHARACTER*1 UPLO, CHARACTER*1 TRANSA, CHARACTER*1 DIAG, INTEGER N, DOUBLE-PRECISION(*) A, INTEGER LDA, - DOUBLE-PRECISION(*) X, INTEGER INCX ) + DOUBLE-PRECISION(*) X, INTEGER INCX ) ; SUBROUTINE: DTBMV ( CHARACTER*1 UPLO, CHARACTER*1 TRANSA, CHARACTER*1 DIAG, INTEGER N, INTEGER K, DOUBLE-PRECISION(*) A, INTEGER LDA, - DOUBLE-PRECISION(*) X, INTEGER INCX ) + DOUBLE-PRECISION(*) X, INTEGER INCX ) ; SUBROUTINE: DTPMV ( CHARACTER*1 UPLO, CHARACTER*1 TRANSA, CHARACTER*1 DIAG, - INTEGER N, DOUBLE-PRECISION(*) AP, DOUBLE-PRECISION(*) X, INTEGER INCX ) + INTEGER N, DOUBLE-PRECISION(*) AP, DOUBLE-PRECISION(*) X, INTEGER INCX ) ; SUBROUTINE: DTRSV ( CHARACTER*1 UPLO, CHARACTER*1 TRANSA, CHARACTER*1 DIAG, INTEGER N, DOUBLE-PRECISION(*) A, INTEGER LDA, DOUBLE-PRECISION(*) X, - INTEGER INCX ) + INTEGER INCX ) ; SUBROUTINE: DTBSV ( CHARACTER*1 UPLO, CHARACTER*1 TRANSA, CHARACTER*1 DIAG, INTEGER N, INTEGER K, DOUBLE-PRECISION(*) A, INTEGER LDA, - DOUBLE-PRECISION(*) X, INTEGER INCX ) + DOUBLE-PRECISION(*) X, INTEGER INCX ) ; SUBROUTINE: DTPSV ( CHARACTER*1 UPLO, CHARACTER*1 TRANSA, CHARACTER*1 DIAG, - INTEGER N, DOUBLE-PRECISION(*) AP, DOUBLE-PRECISION(*) X, INTEGER INCX ) + INTEGER N, DOUBLE-PRECISION(*) AP, DOUBLE-PRECISION(*) X, INTEGER INCX ) ; SUBROUTINE: CGEMV ( CHARACTER*1 TRANSA, INTEGER M, INTEGER N, COMPLEX ALPHA, COMPLEX(*) A, INTEGER LDA, COMPLEX(*) X, INTEGER INCX, COMPLEX BETA, - COMPLEX(*) Y, INTEGER INCY ) + COMPLEX(*) Y, INTEGER INCY ) ; SUBROUTINE: CGBMV ( CHARACTER*1 TRANSA, INTEGER M, INTEGER N, INTEGER KL, INTEGER KU, COMPLEX ALPHA, COMPLEX(*) A, INTEGER LDA, COMPLEX(*) X, - INTEGER INCX, COMPLEX BETA, COMPLEX(*) Y, INTEGER INCY ) + INTEGER INCX, COMPLEX BETA, COMPLEX(*) Y, INTEGER INCY ) ; SUBROUTINE: CTRMV ( CHARACTER*1 UPLO, CHARACTER*1 TRANSA, CHARACTER*1 DIAG, INTEGER N, COMPLEX(*) A, INTEGER LDA, - COMPLEX(*) X, INTEGER INCX ) + COMPLEX(*) X, INTEGER INCX ) ; SUBROUTINE: CTBMV ( CHARACTER*1 UPLO, CHARACTER*1 TRANSA, CHARACTER*1 DIAG, INTEGER N, INTEGER K, COMPLEX(*) A, INTEGER LDA, - COMPLEX(*) X, INTEGER INCX ) + COMPLEX(*) X, INTEGER INCX ) ; SUBROUTINE: CTPMV ( CHARACTER*1 UPLO, CHARACTER*1 TRANSA, CHARACTER*1 DIAG, - INTEGER N, COMPLEX(*) AP, COMPLEX(*) X, INTEGER INCX ) + INTEGER N, COMPLEX(*) AP, COMPLEX(*) X, INTEGER INCX ) ; SUBROUTINE: CTRSV ( CHARACTER*1 UPLO, CHARACTER*1 TRANSA, CHARACTER*1 DIAG, INTEGER N, COMPLEX(*) A, INTEGER LDA, COMPLEX(*) X, - INTEGER INCX ) + INTEGER INCX ) ; SUBROUTINE: CTBSV ( CHARACTER*1 UPLO, CHARACTER*1 TRANSA, CHARACTER*1 DIAG, INTEGER N, INTEGER K, COMPLEX(*) A, INTEGER LDA, - COMPLEX(*) X, INTEGER INCX ) + COMPLEX(*) X, INTEGER INCX ) ; SUBROUTINE: CTPSV ( CHARACTER*1 UPLO, CHARACTER*1 TRANSA, CHARACTER*1 DIAG, - INTEGER N, COMPLEX(*) AP, COMPLEX(*) X, INTEGER INCX ) + INTEGER N, COMPLEX(*) AP, COMPLEX(*) X, INTEGER INCX ) ; SUBROUTINE: ZGEMV ( CHARACTER*1 TRANSA, INTEGER M, INTEGER N, DOUBLE-COMPLEX ALPHA, DOUBLE-COMPLEX(*) A, INTEGER LDA, DOUBLE-COMPLEX(*) X, INTEGER INCX, DOUBLE-COMPLEX BETA, - DOUBLE-COMPLEX(*) Y, INTEGER INCY ) + DOUBLE-COMPLEX(*) Y, INTEGER INCY ) ; SUBROUTINE: ZGBMV ( CHARACTER*1 TRANSA, INTEGER M, INTEGER N, INTEGER KL, INTEGER KU, DOUBLE-COMPLEX ALPHA, DOUBLE-COMPLEX(*) A, INTEGER LDA, DOUBLE-COMPLEX(*) X, - INTEGER INCX, DOUBLE-COMPLEX BETA, DOUBLE-COMPLEX(*) Y, INTEGER INCY ) + INTEGER INCX, DOUBLE-COMPLEX BETA, DOUBLE-COMPLEX(*) Y, INTEGER INCY ) ; SUBROUTINE: ZTRMV ( CHARACTER*1 UPLO, CHARACTER*1 TRANSA, CHARACTER*1 DIAG, INTEGER N, DOUBLE-COMPLEX(*) A, INTEGER LDA, - DOUBLE-COMPLEX(*) X, INTEGER INCX ) + DOUBLE-COMPLEX(*) X, INTEGER INCX ) ; SUBROUTINE: ZTBMV ( CHARACTER*1 UPLO, CHARACTER*1 TRANSA, CHARACTER*1 DIAG, INTEGER N, INTEGER K, DOUBLE-COMPLEX(*) A, INTEGER LDA, - DOUBLE-COMPLEX(*) X, INTEGER INCX ) + DOUBLE-COMPLEX(*) X, INTEGER INCX ) ; SUBROUTINE: ZTPMV ( CHARACTER*1 UPLO, CHARACTER*1 TRANSA, CHARACTER*1 DIAG, - INTEGER N, DOUBLE-COMPLEX(*) AP, DOUBLE-COMPLEX(*) X, INTEGER INCX ) + INTEGER N, DOUBLE-COMPLEX(*) AP, DOUBLE-COMPLEX(*) X, INTEGER INCX ) ; SUBROUTINE: ZTRSV ( CHARACTER*1 UPLO, CHARACTER*1 TRANSA, CHARACTER*1 DIAG, INTEGER N, DOUBLE-COMPLEX(*) A, INTEGER LDA, DOUBLE-COMPLEX(*) X, - INTEGER INCX ) + INTEGER INCX ) ; SUBROUTINE: ZTBSV ( CHARACTER*1 UPLO, CHARACTER*1 TRANSA, CHARACTER*1 DIAG, INTEGER N, INTEGER K, DOUBLE-COMPLEX(*) A, INTEGER LDA, - DOUBLE-COMPLEX(*) X, INTEGER INCX ) + DOUBLE-COMPLEX(*) X, INTEGER INCX ) ; SUBROUTINE: ZTPSV ( CHARACTER*1 UPLO, CHARACTER*1 TRANSA, CHARACTER*1 DIAG, - INTEGER N, DOUBLE-COMPLEX(*) AP, DOUBLE-COMPLEX(*) X, INTEGER INCX ) + INTEGER N, DOUBLE-COMPLEX(*) AP, DOUBLE-COMPLEX(*) X, INTEGER INCX ) ; SUBROUTINE: SSYMV ( CHARACTER*1 UPLO, INTEGER N, REAL ALPHA, REAL(*) A, INTEGER LDA, REAL(*) X, INTEGER INCX, - REAL BETA, REAL(*) Y, INTEGER INCY ) + REAL BETA, REAL(*) Y, INTEGER INCY ) ; SUBROUTINE: SSBMV ( CHARACTER*1 UPLO, INTEGER N, INTEGER K, REAL ALPHA, REAL(*) A, INTEGER LDA, REAL(*) X, INTEGER INCX, - REAL BETA, REAL(*) Y, INTEGER INCY ) + REAL BETA, REAL(*) Y, INTEGER INCY ) ; SUBROUTINE: SSPMV ( CHARACTER*1 UPLO, INTEGER N, REAL ALPHA, REAL(*) AP, REAL(*) X, INTEGER INCX, - REAL BETA, REAL(*) Y, INTEGER INCY ) + REAL BETA, REAL(*) Y, INTEGER INCY ) ; SUBROUTINE: SGER ( INTEGER M, INTEGER N, REAL ALPHA, REAL(*) X, INTEGER INCX, - REAL(*) Y, INTEGER INCY, REAL(*) A, INTEGER LDA ) + REAL(*) Y, INTEGER INCY, REAL(*) A, INTEGER LDA ) ; SUBROUTINE: SSYR ( CHARACTER*1 UPLO, INTEGER N, REAL ALPHA, REAL(*) X, - INTEGER INCX, REAL(*) A, INTEGER LDA ) + INTEGER INCX, REAL(*) A, INTEGER LDA ) ; SUBROUTINE: SSPR ( CHARACTER*1 UPLO, INTEGER N, REAL ALPHA, REAL(*) X, - INTEGER INCX, REAL(*) AP ) + INTEGER INCX, REAL(*) AP ) ; SUBROUTINE: SSYR2 ( CHARACTER*1 UPLO, INTEGER N, REAL ALPHA, REAL(*) X, INTEGER INCX, REAL(*) Y, INTEGER INCY, REAL(*) A, - INTEGER LDA ) + INTEGER LDA ) ; SUBROUTINE: SSPR2 ( CHARACTER*1 UPLO, INTEGER N, REAL ALPHA, REAL(*) X, - INTEGER INCX, REAL(*) Y, INTEGER INCY, REAL(*) A ) + INTEGER INCX, REAL(*) Y, INTEGER INCY, REAL(*) A ) ; SUBROUTINE: DSYMV ( CHARACTER*1 UPLO, INTEGER N, DOUBLE-PRECISION ALPHA, DOUBLE-PRECISION(*) A, INTEGER LDA, DOUBLE-PRECISION(*) X, INTEGER INCX, - DOUBLE-PRECISION BETA, DOUBLE-PRECISION(*) Y, INTEGER INCY ) + DOUBLE-PRECISION BETA, DOUBLE-PRECISION(*) Y, INTEGER INCY ) ; SUBROUTINE: DSBMV ( CHARACTER*1 UPLO, INTEGER N, INTEGER K, DOUBLE-PRECISION ALPHA, DOUBLE-PRECISION(*) A, INTEGER LDA, DOUBLE-PRECISION(*) X, INTEGER INCX, - DOUBLE-PRECISION BETA, DOUBLE-PRECISION(*) Y, INTEGER INCY ) + DOUBLE-PRECISION BETA, DOUBLE-PRECISION(*) Y, INTEGER INCY ) ; SUBROUTINE: DSPMV ( CHARACTER*1 UPLO, INTEGER N, DOUBLE-PRECISION ALPHA, DOUBLE-PRECISION(*) AP, DOUBLE-PRECISION(*) X, INTEGER INCX, - DOUBLE-PRECISION BETA, DOUBLE-PRECISION(*) Y, INTEGER INCY ) + DOUBLE-PRECISION BETA, DOUBLE-PRECISION(*) Y, INTEGER INCY ) ; SUBROUTINE: DGER ( INTEGER M, INTEGER N, DOUBLE-PRECISION ALPHA, DOUBLE-PRECISION(*) X, INTEGER INCX, - DOUBLE-PRECISION(*) Y, INTEGER INCY, DOUBLE-PRECISION(*) A, INTEGER LDA ) + DOUBLE-PRECISION(*) Y, INTEGER INCY, DOUBLE-PRECISION(*) A, INTEGER LDA ) ; SUBROUTINE: DSYR ( CHARACTER*1 UPLO, INTEGER N, DOUBLE-PRECISION ALPHA, DOUBLE-PRECISION(*) X, - INTEGER INCX, DOUBLE-PRECISION(*) A, INTEGER LDA ) + INTEGER INCX, DOUBLE-PRECISION(*) A, INTEGER LDA ) ; SUBROUTINE: DSPR ( CHARACTER*1 UPLO, INTEGER N, DOUBLE-PRECISION ALPHA, DOUBLE-PRECISION(*) X, - INTEGER INCX, DOUBLE-PRECISION(*) AP ) + INTEGER INCX, DOUBLE-PRECISION(*) AP ) ; SUBROUTINE: DSYR2 ( CHARACTER*1 UPLO, INTEGER N, DOUBLE-PRECISION ALPHA, DOUBLE-PRECISION(*) X, INTEGER INCX, DOUBLE-PRECISION(*) Y, INTEGER INCY, DOUBLE-PRECISION(*) A, - INTEGER LDA ) + INTEGER LDA ) ; SUBROUTINE: DSPR2 ( CHARACTER*1 UPLO, INTEGER N, DOUBLE-PRECISION ALPHA, DOUBLE-PRECISION(*) X, - INTEGER INCX, DOUBLE-PRECISION(*) Y, INTEGER INCY, DOUBLE-PRECISION(*) A ) + INTEGER INCX, DOUBLE-PRECISION(*) Y, INTEGER INCY, DOUBLE-PRECISION(*) A ) ; SUBROUTINE: CHEMV ( CHARACTER*1 UPLO, INTEGER N, COMPLEX ALPHA, COMPLEX(*) A, INTEGER LDA, COMPLEX(*) X, INTEGER INCX, - COMPLEX BETA, COMPLEX(*) Y, INTEGER INCY ) + COMPLEX BETA, COMPLEX(*) Y, INTEGER INCY ) ; SUBROUTINE: CHBMV ( CHARACTER*1 UPLO, INTEGER N, INTEGER K, COMPLEX ALPHA, COMPLEX(*) A, INTEGER LDA, COMPLEX(*) X, INTEGER INCX, - COMPLEX BETA, COMPLEX(*) Y, INTEGER INCY ) + COMPLEX BETA, COMPLEX(*) Y, INTEGER INCY ) ; SUBROUTINE: CHPMV ( CHARACTER*1 UPLO, INTEGER N, COMPLEX ALPHA, COMPLEX(*) AP, COMPLEX(*) X, INTEGER INCX, - COMPLEX BETA, COMPLEX(*) Y, INTEGER INCY ) + COMPLEX BETA, COMPLEX(*) Y, INTEGER INCY ) ; SUBROUTINE: CGERU ( INTEGER M, INTEGER N, COMPLEX ALPHA, COMPLEX(*) X, INTEGER INCX, - COMPLEX(*) Y, INTEGER INCY, COMPLEX(*) A, INTEGER LDA ) + COMPLEX(*) Y, INTEGER INCY, COMPLEX(*) A, INTEGER LDA ) ; SUBROUTINE: CGERC ( INTEGER M, INTEGER N, COMPLEX ALPHA, COMPLEX(*) X, INTEGER INCX, - COMPLEX(*) Y, INTEGER INCY, COMPLEX(*) A, INTEGER LDA ) + COMPLEX(*) Y, INTEGER INCY, COMPLEX(*) A, INTEGER LDA ) ; SUBROUTINE: CHER ( CHARACTER*1 UPLO, INTEGER N, REAL ALPHA, COMPLEX(*) X, INTEGER INCX, - COMPLEX(*) A, INTEGER LDA ) + COMPLEX(*) A, INTEGER LDA ) ; SUBROUTINE: CHPR ( CHARACTER*1 UPLO, INTEGER N, REAL ALPHA, COMPLEX(*) X, - INTEGER INCX, COMPLEX(*) A ) + INTEGER INCX, COMPLEX(*) A ) ; SUBROUTINE: CHER2 ( CHARACTER*1 UPLO, INTEGER N, COMPLEX ALPHA, COMPLEX(*) X, INTEGER INCX, - COMPLEX(*) Y, INTEGER INCY, COMPLEX(*) A, INTEGER LDA ) + COMPLEX(*) Y, INTEGER INCY, COMPLEX(*) A, INTEGER LDA ) ; SUBROUTINE: CHPR2 ( CHARACTER*1 UPLO, INTEGER N, COMPLEX ALPHA, COMPLEX(*) X, INTEGER INCX, - COMPLEX(*) Y, INTEGER INCY, COMPLEX(*) AP ) + COMPLEX(*) Y, INTEGER INCY, COMPLEX(*) AP ) ; SUBROUTINE: ZHEMV ( CHARACTER*1 UPLO, INTEGER N, DOUBLE-COMPLEX ALPHA, DOUBLE-COMPLEX(*) A, INTEGER LDA, DOUBLE-COMPLEX(*) X, INTEGER INCX, - DOUBLE-COMPLEX BETA, DOUBLE-COMPLEX(*) Y, INTEGER INCY ) + DOUBLE-COMPLEX BETA, DOUBLE-COMPLEX(*) Y, INTEGER INCY ) ; SUBROUTINE: ZHBMV ( CHARACTER*1 UPLO, INTEGER N, INTEGER K, DOUBLE-COMPLEX ALPHA, DOUBLE-COMPLEX(*) A, INTEGER LDA, DOUBLE-COMPLEX(*) X, INTEGER INCX, - DOUBLE-COMPLEX BETA, DOUBLE-COMPLEX(*) Y, INTEGER INCY ) + DOUBLE-COMPLEX BETA, DOUBLE-COMPLEX(*) Y, INTEGER INCY ) ; SUBROUTINE: ZHPMV ( CHARACTER*1 UPLO, INTEGER N, DOUBLE-COMPLEX ALPHA, DOUBLE-COMPLEX(*) AP, DOUBLE-COMPLEX(*) X, INTEGER INCX, - DOUBLE-COMPLEX BETA, DOUBLE-COMPLEX(*) Y, INTEGER INCY ) + DOUBLE-COMPLEX BETA, DOUBLE-COMPLEX(*) Y, INTEGER INCY ) ; SUBROUTINE: ZGERU ( INTEGER M, INTEGER N, DOUBLE-COMPLEX ALPHA, DOUBLE-COMPLEX(*) X, INTEGER INCX, - DOUBLE-COMPLEX(*) Y, INTEGER INCY, DOUBLE-COMPLEX(*) A, INTEGER LDA ) + DOUBLE-COMPLEX(*) Y, INTEGER INCY, DOUBLE-COMPLEX(*) A, INTEGER LDA ) ; SUBROUTINE: ZGERC ( INTEGER M, INTEGER N, DOUBLE-COMPLEX ALPHA, DOUBLE-COMPLEX(*) X, INTEGER INCX, - DOUBLE-COMPLEX(*) Y, INTEGER INCY, DOUBLE-COMPLEX(*) A, INTEGER LDA ) + DOUBLE-COMPLEX(*) Y, INTEGER INCY, DOUBLE-COMPLEX(*) A, INTEGER LDA ) ; SUBROUTINE: ZHER ( CHARACTER*1 UPLO, INTEGER N, REAL ALPHA, DOUBLE-COMPLEX(*) X, INTEGER INCX, - DOUBLE-COMPLEX(*) A, INTEGER LDA ) + DOUBLE-COMPLEX(*) A, INTEGER LDA ) ; SUBROUTINE: ZHPR ( CHARACTER*1 UPLO, INTEGER N, REAL ALPHA, DOUBLE-COMPLEX(*) X, - INTEGER INCX, DOUBLE-COMPLEX(*) A ) + INTEGER INCX, DOUBLE-COMPLEX(*) A ) ; SUBROUTINE: ZHER2 ( CHARACTER*1 UPLO, INTEGER N, DOUBLE-COMPLEX ALPHA, DOUBLE-COMPLEX(*) X, INTEGER INCX, - DOUBLE-COMPLEX(*) Y, INTEGER INCY, DOUBLE-COMPLEX(*) A, INTEGER LDA ) + DOUBLE-COMPLEX(*) Y, INTEGER INCY, DOUBLE-COMPLEX(*) A, INTEGER LDA ) ; SUBROUTINE: ZHPR2 ( CHARACTER*1 UPLO, INTEGER N, DOUBLE-COMPLEX ALPHA, DOUBLE-COMPLEX(*) X, INTEGER INCX, - DOUBLE-COMPLEX(*) Y, INTEGER INCY, DOUBLE-COMPLEX(*) AP ) + DOUBLE-COMPLEX(*) Y, INTEGER INCY, DOUBLE-COMPLEX(*) AP ) ; -! LEVEL 3 BLAS (MATRIX-MATRIX) +! LEVEL 3 BLAS (MATRIX-MATRIX) ; SUBROUTINE: SGEMM ( CHARACTER*1 TRANSA, CHARACTER*1 TRANSB, INTEGER M, INTEGER N, INTEGER K, REAL ALPHA, REAL(*) A, INTEGER LDA, REAL(*) B, INTEGER LDB, - REAL BETA, REAL(*) C, INTEGER LDC ) + REAL BETA, REAL(*) C, INTEGER LDC ) ; SUBROUTINE: SSYMM ( CHARACTER*1 SIDE, CHARACTER*1 UPLO, INTEGER M, INTEGER N, REAL ALPHA, REAL(*) A, INTEGER LDA, REAL(*) B, INTEGER LDB, REAL BETA, - REAL(*) C, INTEGER LDC ) + REAL(*) C, INTEGER LDC ) ; SUBROUTINE: SSYRK ( CHARACTER*1 UPLO, CHARACTER*1 TRANS, INTEGER N, INTEGER K, REAL ALPHA, REAL(*) A, INTEGER LDA, - REAL BETA, REAL(*) C, INTEGER LDC ) + REAL BETA, REAL(*) C, INTEGER LDC ) ; SUBROUTINE: SSYR2K ( CHARACTER*1 UPLO, CHARACTER*1 TRANS, INTEGER N, INTEGER K, REAL ALPHA, REAL(*) A, INTEGER LDA, REAL(*) B, INTEGER LDB, REAL BETA, - REAL(*) C, INTEGER LDC ) + REAL(*) C, INTEGER LDC ) ; SUBROUTINE: STRMM ( CHARACTER*1 SIDE, CHARACTER*1 UPLO, CHARACTER*1 TRANSA, CHARACTER*1 DIAG, INTEGER M, INTEGER N, REAL ALPHA, REAL(*) A, INTEGER LDA, - REAL(*) B, INTEGER LDB ) + REAL(*) B, INTEGER LDB ) ; SUBROUTINE: STRSM ( CHARACTER*1 SIDE, CHARACTER*1 UPLO, CHARACTER*1 TRANSA, CHARACTER*1 DIAG, INTEGER M, INTEGER N, REAL ALPHA, REAL(*) A, INTEGER LDA, - REAL(*) B, INTEGER LDB ) + REAL(*) B, INTEGER LDB ) ; SUBROUTINE: DGEMM ( CHARACTER*1 TRANSA, CHARACTER*1 TRANSB, INTEGER M, INTEGER N, INTEGER K, DOUBLE-PRECISION ALPHA, DOUBLE-PRECISION(*) A, INTEGER LDA, DOUBLE-PRECISION(*) B, INTEGER LDB, - DOUBLE-PRECISION BETA, DOUBLE-PRECISION(*) C, INTEGER LDC ) + DOUBLE-PRECISION BETA, DOUBLE-PRECISION(*) C, INTEGER LDC ) ; SUBROUTINE: DSYMM ( CHARACTER*1 SIDE, CHARACTER*1 UPLO, INTEGER M, INTEGER N, DOUBLE-PRECISION ALPHA, DOUBLE-PRECISION(*) A, INTEGER LDA, DOUBLE-PRECISION(*) B, INTEGER LDB, DOUBLE-PRECISION BETA, - DOUBLE-PRECISION(*) C, INTEGER LDC ) + DOUBLE-PRECISION(*) C, INTEGER LDC ) ; SUBROUTINE: DSYRK ( CHARACTER*1 UPLO, CHARACTER*1 TRANS, INTEGER N, INTEGER K, DOUBLE-PRECISION ALPHA, DOUBLE-PRECISION(*) A, INTEGER LDA, - DOUBLE-PRECISION BETA, DOUBLE-PRECISION(*) C, INTEGER LDC ) + DOUBLE-PRECISION BETA, DOUBLE-PRECISION(*) C, INTEGER LDC ) ; SUBROUTINE: DSYR2K ( CHARACTER*1 UPLO, CHARACTER*1 TRANS, INTEGER N, INTEGER K, DOUBLE-PRECISION ALPHA, DOUBLE-PRECISION(*) A, INTEGER LDA, DOUBLE-PRECISION(*) B, INTEGER LDB, DOUBLE-PRECISION BETA, - DOUBLE-PRECISION(*) C, INTEGER LDC ) + DOUBLE-PRECISION(*) C, INTEGER LDC ) ; SUBROUTINE: DTRMM ( CHARACTER*1 SIDE, CHARACTER*1 UPLO, CHARACTER*1 TRANSA, CHARACTER*1 DIAG, INTEGER M, INTEGER N, DOUBLE-PRECISION ALPHA, DOUBLE-PRECISION(*) A, INTEGER LDA, - DOUBLE-PRECISION(*) B, INTEGER LDB ) + DOUBLE-PRECISION(*) B, INTEGER LDB ) ; SUBROUTINE: DTRSM ( CHARACTER*1 SIDE, CHARACTER*1 UPLO, CHARACTER*1 TRANSA, CHARACTER*1 DIAG, INTEGER M, INTEGER N, DOUBLE-PRECISION ALPHA, DOUBLE-PRECISION(*) A, INTEGER LDA, - DOUBLE-PRECISION(*) B, INTEGER LDB ) + DOUBLE-PRECISION(*) B, INTEGER LDB ) ; SUBROUTINE: CGEMM ( CHARACTER*1 TRANSA, CHARACTER*1 TRANSB, INTEGER M, INTEGER N, INTEGER K, COMPLEX ALPHA, COMPLEX(*) A, INTEGER LDA, COMPLEX(*) B, INTEGER LDB, - COMPLEX BETA, COMPLEX(*) C, INTEGER LDC ) + COMPLEX BETA, COMPLEX(*) C, INTEGER LDC ) ; SUBROUTINE: CSYMM ( CHARACTER*1 SIDE, CHARACTER*1 UPLO, INTEGER M, INTEGER N, COMPLEX ALPHA, COMPLEX(*) A, INTEGER LDA, COMPLEX(*) B, INTEGER LDB, COMPLEX BETA, - COMPLEX(*) C, INTEGER LDC ) + COMPLEX(*) C, INTEGER LDC ) ; SUBROUTINE: CSYRK ( CHARACTER*1 UPLO, CHARACTER*1 TRANS, INTEGER N, INTEGER K, COMPLEX ALPHA, COMPLEX(*) A, INTEGER LDA, - COMPLEX BETA, COMPLEX(*) C, INTEGER LDC ) + COMPLEX BETA, COMPLEX(*) C, INTEGER LDC ) ; SUBROUTINE: CSYR2K ( CHARACTER*1 UPLO, CHARACTER*1 TRANS, INTEGER N, INTEGER K, COMPLEX ALPHA, COMPLEX(*) A, INTEGER LDA, COMPLEX(*) B, INTEGER LDB, COMPLEX BETA, - COMPLEX(*) C, INTEGER LDC ) + COMPLEX(*) C, INTEGER LDC ) ; SUBROUTINE: CTRMM ( CHARACTER*1 SIDE, CHARACTER*1 UPLO, CHARACTER*1 TRANSA, CHARACTER*1 DIAG, INTEGER M, INTEGER N, COMPLEX ALPHA, COMPLEX(*) A, INTEGER LDA, - COMPLEX(*) B, INTEGER LDB ) + COMPLEX(*) B, INTEGER LDB ) ; SUBROUTINE: CTRSM ( CHARACTER*1 SIDE, CHARACTER*1 UPLO, CHARACTER*1 TRANSA, CHARACTER*1 DIAG, INTEGER M, INTEGER N, COMPLEX ALPHA, COMPLEX(*) A, INTEGER LDA, - COMPLEX(*) B, INTEGER LDB ) + COMPLEX(*) B, INTEGER LDB ) ; SUBROUTINE: ZGEMM ( CHARACTER*1 TRANSA, CHARACTER*1 TRANSB, INTEGER M, INTEGER N, INTEGER K, DOUBLE-COMPLEX ALPHA, DOUBLE-COMPLEX(*) A, INTEGER LDA, DOUBLE-COMPLEX(*) B, INTEGER LDB, - DOUBLE-COMPLEX BETA, DOUBLE-COMPLEX(*) C, INTEGER LDC ) + DOUBLE-COMPLEX BETA, DOUBLE-COMPLEX(*) C, INTEGER LDC ) ; SUBROUTINE: ZSYMM ( CHARACTER*1 SIDE, CHARACTER*1 UPLO, INTEGER M, INTEGER N, DOUBLE-COMPLEX ALPHA, DOUBLE-COMPLEX(*) A, INTEGER LDA, DOUBLE-COMPLEX(*) B, INTEGER LDB, DOUBLE-COMPLEX BETA, - DOUBLE-COMPLEX(*) C, INTEGER LDC ) + DOUBLE-COMPLEX(*) C, INTEGER LDC ) ; SUBROUTINE: ZSYRK ( CHARACTER*1 UPLO, CHARACTER*1 TRANS, INTEGER N, INTEGER K, DOUBLE-COMPLEX ALPHA, DOUBLE-COMPLEX(*) A, INTEGER LDA, - DOUBLE-COMPLEX BETA, DOUBLE-COMPLEX(*) C, INTEGER LDC ) + DOUBLE-COMPLEX BETA, DOUBLE-COMPLEX(*) C, INTEGER LDC ) ; SUBROUTINE: ZSYR2K ( CHARACTER*1 UPLO, CHARACTER*1 TRANS, INTEGER N, INTEGER K, DOUBLE-COMPLEX ALPHA, DOUBLE-COMPLEX(*) A, INTEGER LDA, DOUBLE-COMPLEX(*) B, INTEGER LDB, DOUBLE-COMPLEX BETA, - DOUBLE-COMPLEX(*) C, INTEGER LDC ) + DOUBLE-COMPLEX(*) C, INTEGER LDC ) ; SUBROUTINE: ZTRMM ( CHARACTER*1 SIDE, CHARACTER*1 UPLO, CHARACTER*1 TRANSA, CHARACTER*1 DIAG, INTEGER M, INTEGER N, DOUBLE-COMPLEX ALPHA, DOUBLE-COMPLEX(*) A, INTEGER LDA, - DOUBLE-COMPLEX(*) B, INTEGER LDB ) + DOUBLE-COMPLEX(*) B, INTEGER LDB ) ; SUBROUTINE: ZTRSM ( CHARACTER*1 SIDE, CHARACTER*1 UPLO, CHARACTER*1 TRANSA, CHARACTER*1 DIAG, INTEGER M, INTEGER N, DOUBLE-COMPLEX ALPHA, DOUBLE-COMPLEX(*) A, INTEGER LDA, - DOUBLE-COMPLEX(*) B, INTEGER LDB ) + DOUBLE-COMPLEX(*) B, INTEGER LDB ) ; SUBROUTINE: CHEMM ( CHARACTER*1 SIDE, CHARACTER*1 UPLO, INTEGER M, INTEGER N, COMPLEX ALPHA, COMPLEX(*) A, INTEGER LDA, COMPLEX(*) B, INTEGER LDB, COMPLEX BETA, - COMPLEX(*) C, INTEGER LDC ) + COMPLEX(*) C, INTEGER LDC ) ; SUBROUTINE: CHERK ( CHARACTER*1 UPLO, CHARACTER*1 TRANS, INTEGER N, INTEGER K, REAL ALPHA, COMPLEX(*) A, INTEGER LDA, - REAL BETA, COMPLEX(*) C, INTEGER LDC ) + REAL BETA, COMPLEX(*) C, INTEGER LDC ) ; SUBROUTINE: CHER2K ( CHARACTER*1 UPLO, CHARACTER*1 TRANS, INTEGER N, INTEGER K, COMPLEX ALPHA, COMPLEX(*) A, INTEGER LDA, COMPLEX(*) B, INTEGER LDB, REAL BETA, - COMPLEX(*) C, INTEGER LDC ) + COMPLEX(*) C, INTEGER LDC ) ; SUBROUTINE: ZHEMM ( CHARACTER*1 SIDE, CHARACTER*1 UPLO, INTEGER M, INTEGER N, DOUBLE-COMPLEX ALPHA, DOUBLE-COMPLEX(*) A, INTEGER LDA, DOUBLE-COMPLEX(*) B, INTEGER LDB, DOUBLE-COMPLEX BETA, - DOUBLE-COMPLEX(*) C, INTEGER LDC ) + DOUBLE-COMPLEX(*) C, INTEGER LDC ) ; SUBROUTINE: ZHERK ( CHARACTER*1 UPLO, CHARACTER*1 TRANS, INTEGER N, INTEGER K, REAL ALPHA, DOUBLE-COMPLEX(*) A, INTEGER LDA, - REAL BETA, DOUBLE-COMPLEX(*) C, INTEGER LDC ) + REAL BETA, DOUBLE-COMPLEX(*) C, INTEGER LDC ) ; SUBROUTINE: ZHER2K ( CHARACTER*1 UPLO, CHARACTER*1 TRANS, INTEGER N, INTEGER K, DOUBLE-COMPLEX ALPHA, DOUBLE-COMPLEX(*) A, INTEGER LDA, DOUBLE-COMPLEX(*) B, INTEGER LDB, REAL BETA, - DOUBLE-COMPLEX(*) C, INTEGER LDC ) + DOUBLE-COMPLEX(*) C, INTEGER LDC ) ; diff --git a/unmaintained/cryptlib/libcl/libcl.factor b/unmaintained/cryptlib/libcl/libcl.factor index 634d766cf6..c80526716b 100644 --- a/unmaintained/cryptlib/libcl/libcl.factor +++ b/unmaintained/cryptlib/libcl/libcl.factor @@ -995,8 +995,8 @@ LIBRARY: libcl ! =============================================== ! Initialise and shut down cryptlib -FUNCTION: C_RET cryptInit ( ) ; -FUNCTION: C_RET cryptEnd ( ) ; +FUNCTION: C_RET cryptInit ( ) ; +FUNCTION: C_RET cryptEnd ( ) ; ! Create and destroy an encryption context