factor: more FUNCTION: renames and unit test fixes.

2016-06-03 21:11:00 -07:00 · 2016-06-03 21:11:00 -07:00 · 2bc804b5b8
parent cc419c9814
commit 2bc804b5b8
22 changed files with 323 additions and 338 deletions
--- 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 ( ) ;
-    CALLBACK: void cb987 ( )" eval( -- )
+    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 ( ) ;
-    FUNCTION: void func987 ( )" eval( -- )
+    FUNCTION: void func987 ( ) ;" eval( -- )
 ]
 [ error>> error>> redefine-error? ]
 must-fail-with
--- 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
--- 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
--- 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
--- 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_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_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 ) ;
--- 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 ) ;
--- 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 ) ;
--- 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 ) ;
--- 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 ShutDown ( )
-    HRESULT DoWork (  )
+    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 )
--- 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 (   )
+    HRESULT StartEngine ( )
-    void StopEngine (   )
+    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 OnProcessingPassStart ( )
-    void OnProcessingPassEnd (   )
+    void OnProcessingPassEnd ( )
    void OnCriticalError ( HRESULT Error ) ;
 COM-INTERFACE: IXAudio2VoiceCallback f {00000000-0000-0000-0000-000000000000}
    void OnVoiceProcessingPassStart ( UINT32 BytesRequired )
-    void OnVoiceProcessingPassEnd (   )
+    void OnVoiceProcessingPassEnd ( )
-    void OnStreamEnd (   )
+    void OnStreamEnd ( )
    void OnBufferStart ( void* pBufferContext )
    void OnBufferEnd ( void* pBufferContext )
    void OnLoopEnd ( void* pBufferContext )
--- 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,
+FUNCTION: GpStatus GdipBitmapLockBits ( GpBitmap* x, GpRect* x, UINT x, PixelFormat x, BitmapData* 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,
+FUNCTION: GpStatus GdipCreateBitmapFromScan0 ( INT x, INT x, INT x, PixelFormat x, BYTE* x, GpBitmap** 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,
+FUNCTION: GpStatus GdipCreateCachedBitmap ( GpBitmap* x, GpGraphics* x, GpCachedBitmap** 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,
+FUNCTION: GpStatus GdipCreateCustomLineCap ( GpPath* x, GpPath* x, GpLineCap x, REAL x, GpCustomLineCap** 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,
+FUNCTION: GpStatus GdipSetCustomLineCapStrokeCaps ( GpCustomLineCap* x, GpLineCap 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,
+FUNCTION: GpStatus GdipCreateFont ( GpFontFamily* x,  REAL x,  INT x,  GpUnit x, GpFont** 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,
+FUNCTION: GpStatus GdipGetFontHeight ( GpFont* x,  GpGraphics* x, REAL* 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,
+FUNCTION: GpStatus GdipPrivateAddMemoryFont ( GpFontCollection* x, void* x, INT x ) ;
                 void* x, INT x )
 FUNCTION: GpStatus GdipGetFontCollectionFamilyCount ( GpFontCollection* x,  INT* x ) ;
-FUNCTION: GpStatus GdipGetFontCollectionFamilyList ( GpFontCollection* x,  INT x,
+FUNCTION: GpStatus GdipGetFontCollectionFamilyList ( GpFontCollection* x,  INT x, GpFontFamily** x,  INT* x ) ;
                 GpFontFamily** x,  INT* x )
 FUNCTION: GpStatus GdipCloneFontFamily ( GpFontFamily* x,  GpFontFamily** x ) ;
-FUNCTION: GpStatus GdipCreateFontFamilyFromName ( WCHAR* x,
+FUNCTION: GpStatus GdipCreateFontFamilyFromName ( WCHAR* x, GpFontCollection* x,  GpFontFamily** 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,
+FUNCTION: GpStatus GdipDrawDriverString ( GpGraphics* x, UINT16* x, INT x, GpFont* x, GpBrush* x, GpPointF* x, INT x, GpMatrix* 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,
+             REAL x, REAL x, REAL x, REAL x, REAL x, GpUnit x, GpImageAttributes* x, DrawImageAbort x, VOID* 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,
+             INT x, INT x, INT x, INT x, INT x, GpUnit x, GpImageAttributes* x, DrawImageAbort x, VOID* 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,
+             GpFont* x, GpRectF* x,  GpStringFormat* x, GpBrush* 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 ) ;
--- 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
--- 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
--- 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 MessageBoxIndirectA ( MSGBOXPARAMSA* params ) ;
-! FUNCTION: int MessageBoxIndirectW ( MSGBOXPARAMSW* 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
--- 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,
--- 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 ) ;
--- 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 ) ;
--- 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
--- 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
--- a/language/alien/prettyprint/prettyprint.factor
+++ b/language/alien/prettyprint/prettyprint.factor
@ -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 ;
--- 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 ) ;
--- 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 cryptInit ( ) ;
-FUNCTION: C_RET cryptEnd (  ) ;
+FUNCTION: C_RET cryptEnd ( ) ;
 ! Create and destroy an encryption context