steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

factor: more FUNCTION: renames and unit test fixes.

locals-and-roots
Doug Coleman 2016-06-03 21:11:00 -07:00
parent cc419c9814
commit 2bc804b5b8
22 changed files with 323 additions and 338 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
core/alien/c-types/c-types-tests.factor
View File

@ -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

2
ffi/cuda/demos/hello-world/hello-world.factor
View File

@ -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

2
ffi/cuda/demos/prefix-sum/prefix-sum.factor
View File

@ -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

2
ffi/cuda/syntax/syntax.factor
View File

@ -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

4
ffi/lua/lua.factor
View File

@ -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 ) ;

2
ffi/openal/openal.factor
View File

@ -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 ) ;

10
ffi/openssl/libcrypto/libcrypto.factor
View File

@ -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 ) ;

24
ffi/windows/directx/d3dx11async/d3dx11async.factor
View File

@ -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 ) ;

8
ffi/windows/directx/xact3/xact3.factor
View File

@ -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 )

14
ffi/windows/directx/xaudio2/xaudio2.factor
View File

@ -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 )

153
ffi/windows/gdiplus/gdiplus.factor
View File

@ -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 ) ;

18
ffi/windows/kernel32/kernel32.factor
View File

@ -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

8
ffi/windows/opengl32/opengl32.factor
View File

@ -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

28
ffi/windows/user32/user32.factor
View File

@ -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

28
ffi/windows/winsock/winsock.factor
View File

@ -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,

42
frameworks/db/postgresql/ffi/ffi.factor
View File

@ -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 ) ;

4
frameworks/db/sqlite/ffi/ffi.factor
View File

@ -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 ) ;

2
language/alien/parser/parser-tests.factor
View File

@ -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

6
language/alien/prettyprint/prettyprint-tests.factor
View File

@ -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

4
language/alien/prettyprint/prettyprint.factor
View File

@ -74,7 +74,7 @@ M: typedef-word synopsis*
<block "(" text
[ def>> 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*
<block "(" text
[ def>> first second ] [ "callback-effect" word-prop in>> ] bi
pprint-function-args
")" text block>
")" text ";" text block>
]
} cleave ;

288
libs/math/blas/ffi/ffi.factor
View File

@ -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 ) ;

4
unmaintained/cryptlib/libcl/libcl.factor
View File

@ -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