From 7553b7f9d4dddc2235c137d41de8ce22547bebe3 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Wed, 1 Jul 2015 17:36:37 +0200
Subject: Initial commit

---
 clCCall_12.icl | 308 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 308 insertions(+)
 create mode 100644 clCCall_12.icl

(limited to 'clCCall_12.icl')

diff --git a/clCCall_12.icl b/clCCall_12.icl
new file mode 100644
index 0000000..f307960
--- /dev/null
+++ b/clCCall_12.icl
@@ -0,0 +1,308 @@
+implementation module clCCall_12
+
+import	StdClass, StdInt
+from	StdIOCommon	import :: Modifiers{..}
+from	ostoolbox	import :: OSToolbox
+import code from "cCCallSystem_121.o", 
+				 "cCCallWindows_121.o",
+				 "cCrossCallWindows_121.o", 
+				 "cCrossCall_121.o", 
+				 "cdebug_121.o", 
+				 "cpicture_121.o",
+				 "util_121.o"
+
+
+::	CSTR	:==  Int
+::	ACCLPTR	:==  Int
+
+MaxRand				:== 32767
+
+WinHelpKey			:== 5
+WinEscapeKey		:== 27
+WinReturnKey		:== 13
+WinTabKey			:== 9
+WinDelKey			:== 127
+WinBackSpKey		:== 8
+WinEndKey			:== 4
+WinBeginKey			:== 1
+WinPgDownKey		:== 12
+WinPgUpKey			:== 11
+WinRightKey			:== 29
+WinLeftKey			:== 28
+WinDownKey			:== 31
+WinUpKey			:== 30
+WinF1Key			:==	1001
+WinF2Key			:==	1002
+WinF3Key			:==	1003
+WinF4Key			:==	1004
+WinF5Key			:==	1005
+WinF6Key			:==	1006
+WinF7Key			:==	1007
+WinF8Key			:==	1008
+WinF9Key			:==	1009
+WinF10Key			:==	1010
+WinF11Key			:==	1011
+WinF12Key			:==	1012
+
+CTRLBIT				:== 4
+ALTBIT				:== 2
+SHIFTBIT			:== 1
+
+KEYREPEAT			:== 4
+KEYUP				:== 2
+KEYDOWN				:== 1
+
+BUTTONUP			:== 50
+BUTTONSTILLDOWN		:== 40
+BUTTONTRIPLEDOWN	:== 3
+BUTTONDOUBLEDOWN	:== 2
+BUTTONDOWN			:== 1
+BUTTONSTILLUP		:== 0		/* PA: new constant for passing mouse move events. */
+
+
+//	PA: moved from windowevent.icl because also used by menuCrossCall_12
+toModifiers :: !Int -> Modifiers
+toModifiers i
+	=	{	shiftDown	= shifton
+		,	optionDown	= alton
+		,	commandDown	= ctrlon
+		,	controlDown	= ctrlon
+		,	altDown		= alton
+		}
+where
+	shifton	= i bitand SHIFTBIT <> 0
+	alton	= i bitand ALTBIT   <> 0
+	ctrlon	= i bitand CTRLBIT  <> 0
+
+
+winLaunchApp ::  !{#Char} !Bool !*OSToolbox -> ( !Bool, !*OSToolbox)
+winLaunchApp _ _ _
+	= code
+	{
+		.inline WinLaunchApp
+			ccall WinLaunchApp "SII-II"
+		.end
+	}
+
+winLaunchApp2 :: !{#Char} !{#Char} !Bool !*OSToolbox -> ( !Bool, !*OSToolbox)
+winLaunchApp2 _ _ _ _
+	= code
+	{
+		.inline WinLaunchApp2
+			ccall WinLaunchApp2 "SSII-II"
+		.end
+	}
+
+winCallProcess ::  !CSTR !CSTR !CSTR !CSTR !CSTR !CSTR !*OSToolbox -> ( !Bool, !Int, !*OSToolbox)
+winCallProcess _ _ _ _ _ _ _
+	= code
+	{
+		.inline WinCallProcess
+			ccall WinCallProcess "IIIIIII-III"
+		.end
+	}
+
+winGetModulePath ::  {#Char}
+winGetModulePath
+	= code
+	{
+		.inline WinGetModulePath
+			ccall WinGetModulePath "-S"
+		.end
+	}
+
+winFileModifiedDate ::  !{#Char} -> ( !Bool, !Int, !Int, !Int, !Int, !Int, !Int)
+winFileModifiedDate _
+	= code
+	{
+		.inline WinFileModifiedDate
+			ccall WinFileModifiedDate "S-IIIIIII"
+		.end
+	}
+
+winFileExists ::  !{#Char} ->  Bool
+winFileExists _
+	= code
+	{
+		.inline WinFileExists
+			ccall WinFileExists "S-I"
+		.end
+	}
+
+winBeep :: !*OSToolbox -> *OSToolbox
+winBeep tb
+	= code
+	{
+		.inline WinBeep
+			ccall WinBeep "I-I"
+		.end
+	}
+
+rand ::  Int
+rand
+	= code
+	{
+		.inline Rand
+			ccall Rand "-I"
+		.end
+	}
+
+winReleaseCString ::  !CSTR !*OSToolbox ->  *OSToolbox
+winReleaseCString _ _
+	= code
+	{
+		.inline WinReleaseCString
+			ccall WinReleaseCString "II-I"
+		.end
+	}
+
+winGetCStringAndFree ::  !CSTR !*OSToolbox -> ( !{#Char}, !*OSToolbox)
+winGetCStringAndFree _ _
+	= code
+	{
+		.inline WinGetCStringAndFree
+			ccall WinGetCStringAndFree "II-SI"
+		.end
+	}
+
+winGetCString ::  !CSTR !*OSToolbox -> ( !{#Char}, !*OSToolbox)
+winGetCString _ _
+	= code
+	{
+		.inline WinGetCString
+			ccall WinGetCString "II-SI"
+		.end
+	}
+
+winMakeCString ::  !{#Char} !*OSToolbox -> ( !CSTR, !*OSToolbox)
+winMakeCString _ _
+	= code
+	{
+		.inline WinMakeCString
+			ccall WinMakeCString "SI-II"
+		.end
+	}
+
+winGetAppPath ::  CSTR
+winGetAppPath
+	= code
+	{
+		.inline WinGetAppPath
+			ccall WinGetAppPath "-I"
+		.end
+	}
+
+winSetDoubleDownDist ::  !Int !*OSToolbox ->  *OSToolbox
+winSetDoubleDownDist _ _
+	= code
+	{
+		.inline WinSetDoubleDownDist
+			ccall WinSetDoubleDownDist "II-I"
+		.end
+	}
+
+winGetHorzResolution ::  Int
+winGetHorzResolution
+	= code
+	{
+		.inline WinGetHorzResolution
+			ccall WinGetHorzResolution "-I"
+		.end
+	}
+
+winGetVertResolution ::  Int
+winGetVertResolution
+	= code
+	{
+		.inline WinGetVertResolution
+			ccall WinGetVertResolution "-I"
+		.end
+	}
+
+winMaxFixedWindowSize :: ( !Int, !Int)
+winMaxFixedWindowSize
+	= code
+	{
+		.inline WinMaxFixedWindowSize
+			ccall WinMaxFixedWindowSize "-II"
+		.end
+	}
+
+winMaxScrollWindowSize :: ( !Int, !Int)
+winMaxScrollWindowSize
+	= code
+	{
+		.inline WinMaxScrollWindowSize
+			ccall WinMaxScrollWindowSize "-II"
+		.end
+	}
+
+//	PA: interface added for determining screen width and height.
+winScreenYSize :: !*OSToolbox -> (!Int,!*OSToolbox)
+winScreenYSize _
+	= code
+	{	
+		.inline WinScreenYSize
+			ccall WinScreenYSize "I-II"
+		.end
+	}
+
+winScreenXSize :: !*OSToolbox -> (!Int,!*OSToolbox)
+winScreenXSize _
+	= code
+	{	
+		.inline WinScreenXSize
+			ccall WinScreenXSize "I-II"
+		.end
+	}
+
+winMinimumWinSize :: ( !Int, !Int)
+winMinimumWinSize
+	= code
+	{
+		.inline WinMinimumWinSize
+			ccall WinMinimumWinSize "-II"
+		.end
+	}
+
+//	PA: function added to get system metrics for width and height of scrollbars.
+winScrollbarSize :: !*OSToolbox -> ( !Int, !Int, !*OSToolbox )
+winScrollbarSize _
+	= code
+	{	
+		.inline WinScrollbarSize
+			ccall WinScrollbarSize "I-III"
+		.end
+	}
+
+/*	PA: two new routines (win(M/S)DIClientToOuterSizeDims added to convert between the
+		client and outer size of (M/S)DI windows. The Int argument contains the style flags 
+		of the window.
+*/
+winMDIClientToOuterSizeDims :: !Int !*OSToolbox -> (!Int,!Int,!*OSToolbox)
+winMDIClientToOuterSizeDims _ _
+	= code
+	{
+		.inline WinMDIClientToOuterSizeDims
+			ccall WinMDIClientToOuterSizeDims "II-III"
+		.end
+	}
+
+winSDIClientToOuterSizeDims :: !Int !*OSToolbox -> (!Int,!Int,!*OSToolbox)
+winSDIClientToOuterSizeDims _ _
+	= code
+	{
+		.inline WinSDIClientToOuterSizeDims
+			ccall WinSDIClientToOuterSizeDims "II-III"
+		.end
+	}
+
+
+winPlaySound :: !{#Char} !*OSToolbox -> (!Bool,!*OSToolbox)
+winPlaySound _ _
+	= code
+	{
+		.inline WinPlaySound
+			ccall WinPlaySound "SI-II"
+		.end
+	}
-- 
cgit v1.2.3