CAPI.ns

Newspeak3
'CAPI'
class CAPI platform: platform = (
(* The generic C language API module. Defines classes for modeling C language artifacts and the facilities for accessing the artifacts.

   Copyright 2008 Cadence Design Systems, Inc.

   Licensed under the Apache License, Version 2.0 (the ''License''); you may not use this file except in compliance with the License.  You may obtain a copy of the License at  http://www.apache.org/licenses/LICENSE-2.0
*)
|
	public (* bogus *) Alien = platform squeak Alien.
	public (* bogus *) Callback = platform squeak Callback.
	protected Map = platform squeak Dictionary.
	protected List = platform squeak OrderedCollection.
	protected libraries = List new.
	protected exportedFunctions = Map new: 100.
|#ACCESSBOGUS) (
class CFunction library: theLibrary <CLibrary> name: theName <Symbol> argc: numArgs <Integer> = (
(* Represents a C function. *)
|
	library = theLibrary.
	public name = theName.
	argc = numArgs.
	protected alien
|) (
api = (
	^outer CAPI
)
ensureLinkage = (
	self isLinked ifFalse: [alien:: library linkFunction: name]
)
isLinked ^<Boolean> = (
	^alien notNil and: [alien isPointer  (* When this becomes an IllegalAlien, it will be false *)]
)
reportIncorrectNumberOfArguments: argumentsGiven <Integer> = (
	error:
		name,
		': incorrect number of arguments (',
		argumentsGiven printString,
		' instead of ',
		argc printString,
		')'
)
public resetForNewImageSession = (
	alien:: nil
)
public signedValue ^<Integer> = (
	(* Invoke the function with zero arguments and return an Integer produced by interpreting the first four bytes of the result as a signed integer. Fail if the receiver expects a different number of arguments. *)
	^value asSignedLong
)
public signedValue: arg <Alien | Integer> ^<Integer> = (
	(* Invoke the function with 1 argument and return an Integer produced by interpreting the first four bytes of the result as a signed integer. Fail if the receiver expects a different number of arguments. *)
	^(value: arg) asSignedLong
)
public signedValue: arg1 <Alien | Integer> value: arg2 <Alien | Integer> ^<Integer> = (
	(* Invoke the function with 2 arguments and return an Integer produced by interpreting the first four bytes of the result as a signed integer. Fail if the receiver expects a different number of arguments. *)
	^(value: arg1 value: arg2) asSignedLong
)
public signedValue: arg1 <Alien | Integer> value: arg2 <Alien | Integer> value: arg3 <Alien | Integer> ^<Integer> = (
	(* Invoke the function with 3 arguments and return an Integer produced by interpreting the first four bytes of the result as a signed integer. Fail if the receiver expects a different number of arguments. *)
	^(value: arg1 value: arg2 value: arg3) asSignedLong
)
public signedValue: arg1 <Alien | Integer> value: arg2 <Alien | Integer> value: arg3 <Alien | Integer> value: arg4 <Alien | Integer> ^<Integer> = (
	(* Invoke the function with 4 arguments and return an Integer produced by interpreting the first four bytes of the result as a signed integer. Fail if the receiver expects a different number of arguments. *)
	^(value: arg1 value: arg2 value: arg3 value: arg4) asSignedLong
)
public signedValue: arg1 <Alien | Integer> value: arg2 <Alien | Integer> value: arg3 <Alien | Integer> value: arg4 <Alien | Integer> value: arg5 <Alien | Integer> ^<Integer> = (
	(* Invoke the function with 5 arguments and return an Integer produced by interpreting the first four bytes of the result as a signed integer. Fail if the receiver expects a different number of arguments. *)
	^(value: arg1 value: arg2 value: arg3 value: arg4 value: arg5) asSignedLong
)
public signedValue: arg1 <Alien | Integer> value: arg2 <Alien | Integer> value: arg3 <Alien | Integer> value: arg4 <Alien | Integer> value: arg5 <Alien | Integer> value: arg6 <Alien | Integer> ^<Integer> = (
	(* Invoke the function with 6 arguments and return an Integer produced by interpreting the first four bytes of the result as a signed integer. Fail if the receiver expects a different number of arguments. *)
	^(value: arg1 value: arg2 value: arg3 value: arg4 value: arg5 value: arg6) asSignedLong
)
public signedValue: arg1 <Alien | Integer> value: arg2 <Alien | Integer> value: arg3 <Alien | Integer> value: arg4 <Alien | Integer> value: arg5 <Alien | Integer> value: arg6 <Alien | Integer> value: arg7 <Alien | Integer> ^<Integer> = (
	(* Invoke the function with 7 arguments and return an Integer produced by interpreting the first four bytes of the result as a signed integer. Fail if the receiver expects a different number of arguments. *)
	^(value: arg1 value: arg2 value: arg3 value: arg4 value: arg5 value: arg6 value: arg7) asSignedLong
)
public signedValue: arg1 <Alien | Integer> value: arg2 <Alien | Integer> value: arg3 <Alien | Integer> value: arg4 <Alien | Integer> value: arg5 <Alien | Integer> value: arg6 <Alien | Integer> value: arg7 <Alien | Integer> value: arg8 <Alien | Integer> ^<Integer> = (
	(* Invoke the function with 8 arguments and return an Integer produced by interpreting the first four bytes of the result as a signed integer. Fail if the receiver expects a different number of arguments. *)
	^(value: arg1 value: arg2 value: arg3 value: arg4 value: arg5 value: arg6 value: arg7 value: arg8) asSignedLong
)
public signedValue: arg1 <Alien | Integer> value: arg2 <Alien | Integer> value: arg3 <Alien | Integer> value: arg4 <Alien | Integer> value: arg5 <Alien | Integer> value: arg6 <Alien | Integer> value: arg7 <Alien | Integer> value: arg8 <Alien | Integer> value: arg9 <Alien | Integer> ^<Integer> = (
	(* Invoke the function with 9 arguments and return an Integer produced by interpreting the first four bytes of the result as a signed integer. Fail if the receiver expects a different number of arguments. *)
	^(value: arg1 value: arg2 value: arg3 value: arg4 value: arg5 value: arg6 value: arg7 value: arg8 value: arg9) asSignedLong
)
public signedValue: arg1 <Alien | Integer> value: arg2 <Alien | Integer> value: arg3 <Alien | Integer> value: arg4 <Alien | Integer> value: arg5 <Alien | Integer> value: arg6 <Alien | Integer> value: arg7 <Alien | Integer> value: arg8 <Alien | Integer> value: arg9 <Alien | Integer> value: arg10 <Alien | Integer> ^<Integer> = (
	(* Invoke the function with 10 arguments and return an Integer produced by interpreting the first four bytes of the result as a signed integer. Fail if the receiver expects a different number of arguments. *)
	^(value: arg1 value: arg2 value: arg3 value: arg4 value: arg5 value: arg6 value: arg7 value: arg8 value: arg9 value: arg10) asSignedLong
)
public signedValue: arg1 <Alien | Integer> value: arg2 <Alien | Integer> value: arg3 <Alien | Integer> value: arg4 <Alien | Integer> value: arg5 <Alien | Integer> value: arg6 <Alien | Integer> value: arg7 <Alien | Integer> value: arg8 <Alien | Integer> value: arg9 <Alien | Integer> value: arg10 <Alien | Integer> value: arg11 <Alien | Integer> ^<Integer> = (
	(* Invoke the function with 11 arguments and return an Integer produced by interpreting the first four bytes of the result as a signed integer. Fail if the receiver expects a different number of arguments. *)
	^(value: arg1 value: arg2 value: arg3 value: arg4 value: arg5 value: arg6 value: arg7 value: arg8 value: arg9 value: arg10 value: arg11) asSignedLong
)
public signedValue: arg1 <Alien | Integer> value: arg2 <Alien | Integer> value: arg3 <Alien | Integer> value: arg4 <Alien | Integer> value: arg5 <Alien | Integer> value: arg6 <Alien | Integer> value: arg7 <Alien | Integer> value: arg8 <Alien | Integer> value: arg9 <Alien | Integer> value: arg10 <Alien | Integer> value: arg11 <Alien | Integer> value: arg12 <Alien | Integer> ^<Integer> = (
	(* Invoke the function with 12 arguments and return an Integer produced by interpreting the first four bytes of the result as a signed integer. Fail if the receiver expects a different number of arguments. *)
	^(value: arg1 value: arg2 value: arg3 value: arg4 value: arg5 value: arg6 value: arg7 value: arg8 value: arg9 value: arg10 value: arg11 value: arg12) asSignedLong
)
public signedValueWithArguments: args <Array[Alien | Integer]> ^<Alien> = (
	(* Invoke the function with the elements of the args array as the arguments and return an Integer equal to the first four bytes of the result interpreted as a signed integer. Fail if the receiver expects a different number of arguments. *)
	^(valueWithArguments: args) asSignedLong
)
public unsignedValue ^<Integer> = (
	(* Invoke the function with zero arguments and return an Integer produced by interpreting the first four bytes of the result as an unsigned integer. Fail if the receiver expects a different number of arguments. *)
	^value asUnsignedLong
)
public unsignedValue: arg <Alien | Integer> ^<Integer> = (
	(* Invoke the function with 1 argument and return an Integer produced by interpreting the first four bytes of the result as an unsigned integer. Fail if the receiver expects a different number of arguments. *)
	^(value: arg) asUnsignedLong
)
public unsignedValue: arg1 <Alien | Integer> value: arg2 <Alien | Integer> ^<Integer> = (
	(* Invoke the function with 2 arguments and return an Integer produced by interpreting the first four bytes of the result as an unsigned integer. Fail if the receiver expects a different number of arguments. *)
	^(value: arg1 value: arg2) asUnsignedLong
)
public unsignedValue: arg1 <Alien | Integer> value: arg2 <Alien | Integer> value: arg3 <Alien | Integer> ^<Integer> = (
	(* Invoke the function with 3 arguments and return an Integer produced by interpreting the first four bytes of the result as an unsigned integer. Fail if the receiver expects a different number of arguments. *)
	^(value: arg1 value: arg2 value: arg3) asUnsignedLong
)
public unsignedValue: arg1 <Alien | Integer> value: arg2 <Alien | Integer> value: arg3 <Alien | Integer> value: arg4 <Alien | Integer> ^<Integer> = (
	(* Invoke the function with 4 arguments and return an Integer produced by interpreting the first four bytes of the result as an unsigned integer. Fail if the receiver expects a different number of arguments. *)
	^(value: arg1 value: arg2 value: arg3 value: arg4) asUnsignedLong
)
public unsignedValue: arg1 <Alien | Integer> value: arg2 <Alien | Integer> value: arg3 <Alien | Integer> value: arg4 <Alien | Integer> value: arg5 <Alien | Integer> ^<Integer> = (
	(* Invoke the function with 5 arguments and return an Integer produced by interpreting the first four bytes of the result as an unsigned integer. Fail if the receiver expects a different number of arguments. *)
	^(value: arg1 value: arg2 value: arg3 value: arg4 value: arg5) asUnsignedLong
)
public unsignedValue: arg1 <Alien | Integer> value: arg2 <Alien | Integer> value: arg3 <Alien | Integer> value: arg4 <Alien | Integer> value: arg5 <Alien | Integer> value: arg6 <Alien | Integer> ^<Integer> = (
	(* Invoke the function with 6 arguments and return an Integer produced by interpreting the first four bytes of the result as an unsigned integer. Fail if the receiver expects a different number of arguments. *)
	^(value: arg1 value: arg2 value: arg3 value: arg4 value: arg5 value: arg6) asUnsignedLong
)
public unsignedValue: arg1 <Alien | Integer> value: arg2 <Alien | Integer> value: arg3 <Alien | Integer> value: arg4 <Alien | Integer> value: arg5 <Alien | Integer> value: arg6 <Alien | Integer> value: arg7 <Alien | Integer> ^<Integer> = (
	(* Invoke the function with 7 arguments and return an Integer produced by interpreting the first four bytes of the result as an unsigned integer. Fail if the receiver expects a different number of arguments. *)
	^(value: arg1 value: arg2 value: arg3 value: arg4 value: arg5 value: arg6 value: arg7) asUnsignedLong
)
public unsignedValue: arg1 <Alien | Integer> value: arg2 <Alien | Integer> value: arg3 <Alien | Integer> value: arg4 <Alien | Integer> value: arg5 <Alien | Integer> value: arg6 <Alien | Integer> value: arg7 <Alien | Integer> value: arg8 <Alien | Integer> ^<Integer> = (
	(* Invoke the function with 8 arguments and return an Integer produced by interpreting the first four bytes of the result as an unsigned integer. Fail if the receiver expects a different number of arguments. *)
	^(value: arg1 value: arg2 value: arg3 value: arg4 value: arg5 value: arg6 value: arg7 value: arg8) asUnsignedLong
)
public unsignedValue: arg1 <Alien | Integer> value: arg2 <Alien | Integer> value: arg3 <Alien | Integer> value: arg4 <Alien | Integer> value: arg5 <Alien | Integer> value: arg6 <Alien | Integer> value: arg7 <Alien | Integer> value: arg8 <Alien | Integer> value: arg9 <Alien | Integer> ^<Integer> = (
	(* Invoke the function with 9 arguments and return an Integer produced by interpreting the first four bytes of the result as an unsigned integer. Fail if the receiver expects a different number of arguments. *)
	^(value: arg1 value: arg2 value: arg3 value: arg4 value: arg5 value: arg6 value: arg7 value: arg8 value: arg9) asUnsignedLong
)
public unsignedValue: arg1 <Alien | Integer> value: arg2 <Alien | Integer> value: arg3 <Alien | Integer> value: arg4 <Alien | Integer> value: arg5 <Alien | Integer> value: arg6 <Alien | Integer> value: arg7 <Alien | Integer> value: arg8 <Alien | Integer> value: arg9 <Alien | Integer> value: arg10 <Alien | Integer> ^<Integer> = (
	(* Invoke the function with 10 arguments and return an Integer produced by interpreting the first four bytes of the result as an unsigned integer. Fail if the receiver expects a different number of arguments. *)
	^(value: arg1 value: arg2 value: arg3 value: arg4 value: arg5 value: arg6 value: arg7 value: arg8 value: arg9 value: arg10) asUnsignedLong
)
public unsignedValue: arg1 <Alien | Integer> value: arg2 <Alien | Integer> value: arg3 <Alien | Integer> value: arg4 <Alien | Integer> value: arg5 <Alien | Integer> value: arg6 <Alien | Integer> value: arg7 <Alien | Integer> value: arg8 <Alien | Integer> value: arg9 <Alien | Integer> value: arg10 <Alien | Integer> value: arg11 <Alien | Integer> ^<Integer> = (
	(* Invoke the function with 11 arguments and return an Integer produced by interpreting the first four bytes of the result as an unsigned integer. Fail if the receiver expects a different number of arguments. *)
	^(value: arg1 value: arg2 value: arg3 value: arg4 value: arg5 value: arg6 value: arg7 value: arg8 value: arg9 value: arg10 value: arg11) asUnsignedLong
)
public unsignedValue: arg1 <Alien | Integer> value: arg2 <Alien | Integer> value: arg3 <Alien | Integer> value: arg4 <Alien | Integer> value: arg5 <Alien | Integer> value: arg6 <Alien | Integer> value: arg7 <Alien | Integer> value: arg8 <Alien | Integer> value: arg9 <Alien | Integer> value: arg10 <Alien | Integer> value: arg11 <Alien | Integer> value: arg12 <Alien | Integer> ^<Integer> = (
	(* Invoke the function with 12 arguments and return an Integer produced by interpreting the first four bytes of the result as an unsigned integer. Fail if the receiver expects a different number of arguments. *)
	^(value: arg1 value: arg2 value: arg3 value: arg4 value: arg5 value: arg6 value: arg7 value: arg8 value: arg9 value: arg10 value: arg11 value: arg12) asUnsignedLong
)
public unsignedValueWithArguments: args <Array[Alien | Integer]> ^<Alien> = (
	(* Invoke the function with the elements of the args array as the arguments and return an Integer equal to the first four bytes of the result interpreted as an unsigned integer. Fail if the receiver expects a different number of arguments. *)
	^(valueWithArguments: args) asUnsignedLong
)
public value ^<Alien> = (
	(* Invoke the function with zero arguments and return an Alien with the result. Fail if the receiver expects a different number of arguments. *)
	| result |
	argc = 0 ifFalse: [^reportIncorrectNumberOfArguments: 0].
	ensureLinkage.
	result:: Alien new: 4.
	alien primFFICallResult: result.
	^result
)
public value: arg <Alien | Integer> ^<Alien> = (
	(* Invoke the function with 1 argument and return an Alien with the result. Fail if the receiver expects a different number of arguments. *)
	| result |
	argc = 1 ifFalse: [^reportIncorrectNumberOfArguments: 1].
	ensureLinkage.
	result:: Alien new: 4.
	alien primFFICallResult: result with: arg.
	^result
)
public value: arg1 <Alien | Integer> value: arg2 <Alien | Integer> ^<Alien> = (
	(* Invoke the function with 2 arguments and return an Alien with the result. Fail if the receiver expects a different number of arguments. *)
	| result |
	argc = 2 ifFalse: [^reportIncorrectNumberOfArguments: 2].
	ensureLinkage.
	result:: Alien new: 4.
	alien primFFICallResult: result with: arg1 with: arg2.
	^result
)
public value: arg1 <Alien | Integer> value: arg2 <Alien | Integer> value: arg3 <Alien | Integer> ^<Alien> = (
	(* Invoke the function with 3 arguments and return an Alien with the result. Fail if the receiver expects a different number of arguments. *)
	| result |
	argc = 3 ifFalse: [^reportIncorrectNumberOfArguments: 3].
	ensureLinkage.
	result:: Alien new: 4.
	alien primFFICallResult: result with: arg1 with: arg2 with: arg3.
	^result
)
public value: arg1 <Alien | Integer> value: arg2 <Alien | Integer> value: arg3 <Alien | Integer> value: arg4 <Alien | Integer> ^<Alien> = (
	(* Invoke the function with 4 arguments and return an Alien with the result. Fail if the receiver expects a different number of arguments. *)
	| result |
	argc = 4 ifFalse: [^reportIncorrectNumberOfArguments: 4].
	ensureLinkage.
	result:: Alien new: 4.
	alien primFFICallResult: result with: arg1 with: arg2 with: arg3 with: arg4.
	^result
)
public value: arg1 <Alien | Integer> value: arg2 <Alien | Integer> value: arg3 <Alien | Integer> value: arg4 <Alien | Integer> value: arg5 <Alien | Integer> ^<Alien> = (
	(* Invoke the function with 5 arguments and return an Alien with the result. Fail if the receiver expects a different number of arguments. *)
	| result |
	argc = 5 ifFalse: [^reportIncorrectNumberOfArguments: 5].
	ensureLinkage.
	result:: Alien new: 4.
	alien primFFICallResult: result with: arg1 with: arg2 with: arg3 with: arg4 with: arg5.
	^result
)
public value: arg1 <Alien | Integer> value: arg2 <Alien | Integer> value: arg3 <Alien | Integer> value: arg4 <Alien | Integer> value: arg5 <Alien | Integer> value: arg6 <Alien | Integer> ^<Alien> = (
	(* Invoke the function with 6 arguments and return an Alien with the result. Fail if the receiver expects a different number of arguments. *)
	| result |
	argc = 6 ifFalse: [^reportIncorrectNumberOfArguments: 6].
	ensureLinkage.
	result:: Alien new: 4.
	alien primFFICallResult: result with: arg1 with: arg2 with: arg3 with: arg4 with: arg5 with: arg6.
	^result
)
public value: arg1 <Alien | Integer> value: arg2 <Alien | Integer> value: arg3 <Alien | Integer> value: arg4 <Alien | Integer> value: arg5 <Alien | Integer> value: arg6 <Alien | Integer> value: arg7 <Alien | Integer> ^<Alien> = (
	(* Invoke the function with 7 arguments and return an Alien with the result. Fail if the receiver expects a different number of arguments. *)
	| result |
	argc = 7 ifFalse: [^reportIncorrectNumberOfArguments: 7].
	ensureLinkage.
	result:: Alien new: 4.
	alien primFFICallResult: result with: arg1 with: arg2 with: arg3 with: arg4 with: arg5 with: arg6 with: arg7.
	^result
)
public value: arg1 <Alien | Integer> value: arg2 <Alien | Integer> value: arg3 <Alien | Integer> value: arg4 <Alien | Integer> value: arg5 <Alien | Integer> value: arg6 <Alien | Integer> value: arg7 <Alien | Integer> value: arg8 <Alien | Integer> ^<Alien> = (
	(* Invoke the function with 8 arguments and return an Alien with the result. Fail if the receiver expects a different number of arguments. *)
	| result |
	argc = 8 ifFalse: [^reportIncorrectNumberOfArguments: 8].
	ensureLinkage.
	result:: Alien new: 4.
	alien primFFICallResult: result with: arg1 with: arg2 with: arg3 with: arg4 with: arg5 with: arg6 with: arg7 with: arg8.
	^result
)
public value: arg1 <Alien | Integer> value: arg2 <Alien | Integer> value: arg3 <Alien | Integer> value: arg4 <Alien | Integer> value: arg5 <Alien | Integer> value: arg6 <Alien | Integer> value: arg7 <Alien | Integer> value: arg8 <Alien | Integer> value: arg9 <Alien | Integer> ^<Alien> = (
	(* Invoke the function with 9 arguments and return an Alien with the result. Fail if the receiver expects a different number of arguments. *)
	| result |
	argc = 9 ifFalse: [^reportIncorrectNumberOfArguments: 9].
	ensureLinkage.
	result:: Alien new: 4.
	alien primFFICallResult: result with: arg1 with: arg2 with: arg3 with: arg4 with: arg5 with: arg6 with: arg7 with: arg8 with: arg9.
	^result
)
public value: arg1 <Alien | Integer> value: arg2 <Alien | Integer> value: arg3 <Alien | Integer> value: arg4 <Alien | Integer> value: arg5 <Alien | Integer> value: arg6 <Alien | Integer> value: arg7 <Alien | Integer> value: arg8 <Alien | Integer> value: arg9 <Alien | Integer> value: arg10 <Alien | Integer> ^<Alien> = (
	(* Invoke the function with 10 arguments and return an Alien with the result. Fail if the receiver expects a different number of arguments. *)
	| result |
	argc = 10 ifFalse: [^reportIncorrectNumberOfArguments: 10].
	ensureLinkage.
	result:: Alien new: 4.
	alien primFFICallResult: result with: arg1 with: arg2 with: arg3 with: arg4 with: arg5 with: arg6 with: arg7 with: arg8 with: arg9 with: arg10.
	^result
)
public value: arg1 <Alien | Integer> value: arg2 <Alien | Integer> value: arg3 <Alien | Integer> value: arg4 <Alien | Integer> value: arg5 <Alien | Integer> value: arg6 <Alien | Integer> value: arg7 <Alien | Integer> value: arg8 <Alien | Integer> value: arg9 <Alien | Integer> value: arg10 <Alien | Integer> value: arg11 <Alien | Integer> ^<Alien> = (
	(* Invoke the function with 11 arguments and return an Alien with the result. Fail if the receiver expects a different number of arguments. *)
	| result |
	argc = 11 ifFalse: [^reportIncorrectNumberOfArguments: 11].
	ensureLinkage.
	result:: Alien new: 4.
	alien primFFICallResult: result with: arg1 with: arg2 with: arg3 with: arg4 with: arg5 with: arg6 with: arg7 with: arg8 with: arg9 with: arg10 with: arg11.
	^result
)
public value: arg1 <Alien | Integer> value: arg2 <Alien | Integer> value: arg3 <Alien | Integer> value: arg4 <Alien | Integer> value: arg5 <Alien | Integer> value: arg6 <Alien | Integer> value: arg7 <Alien | Integer> value: arg8 <Alien | Integer> value: arg9 <Alien | Integer> value: arg10 <Alien | Integer> value: arg11 <Alien | Integer> value: arg12 <Alien | Integer> ^<Alien> = (
	(* Invoke the function with 12 arguments and return an Alien with the result. Fail if the receiver expects a different number of arguments. *)
	| result |
	argc = 12 ifFalse: [^reportIncorrectNumberOfArguments: 12].
	ensureLinkage.
	result:: Alien new: 4.
	alien primFFICallResult: result with: arg1 with: arg2 with: arg3 with: arg4 with: arg5 with: arg6 with: arg7 with: arg8 with: arg9 with: arg10 with: arg11 with: arg12.
	^result
)
public valueWithArguments: args <Array[Alien | Integer]> ^<Alien> = (
	(* Invoke the function with the elements of the args array as the arguments and return an Alien with the result. Fail if the receiver expects a different number of arguments. *)
	| result |
	argc = args size ifFalse: [^reportIncorrectNumberOfArguments: args size].
	ensureLinkage.
	result:: Alien new: 4.
	alien primFFICallResult: result withArguments: args.
	^result
)
) : (
)
class CLibrary name: theName <String> = (
(* Represents an external dynamically linked library. *)
|
	dllName = theName.
	protected functions = Map new.
	protected alien
|) (
api = (
	^outer CAPI
)
createAlien = (
	^Alien forPointer: (Alien primLoadLibrary: dllName)
)
ensureLinkage = (
	self isLinked ifFalse: [alien:: createAlien]
)
public exportFunctionsTo: capi <CAPI> = (
	(* Subclasses can redefine this to export some of their functions so that they are available by sending the corresponding messages directly to the api instance. *)
)
functionClass ^<Class> = (
	(* Class used for instances of functions managed by this library. *)
	^CFunction
)
functionNamed: functionName <Symbol> argc: argc <Integer> ^ <Self functionClass> = (
	^functions
		at: functionName
		(* ifPresent: [:e |] *) (* uncomment when CAPI uses goodthink libs *)
		ifAbsentPut: [functionClass library: self name: functionName argc: argc]
)
isLinked ^<Boolean> = (
	^alien notNil and: [alien isPointer (* When this becomes an IllegalAlien, it will be false *)]
)
public linkFunction: symbol <String> ^<Alien> = (
	(* Look up the function named by the argument in the underlying DLL and answer an Alien pointing to the function. This message is intended for the use by CFunctions and not by application code. *)
	ensureLinkage.
	^Alien forPointer: (alien primFindSymbol: symbol)
)
public resetForNewImageSession = (
	alien:: nil.
	functions do: [:each | each resetForNewImageSession]
)
unlink = (
	alien notNil ifTrue:
		[alien free.
		alien:: nil]
)
) : (
)
class CMacro name: theName <Symbol> expansion: tokens <Array> = (
(* Represents a C macro. For now, we expect that expansion is a single Integer value. *)
|
	name = theName.
	expansion = tokens.
|) (
api = (
	^outer CAPI
)
value = (
	| head |
	head:: expansion first.
	head isKindOfNumber ifFalse: [error: 'expansion is not a number'].
	^head
)
) : (
name: name <Symbol> value: value <Number> = (
	^self name: name expansion: {value}
)
)
addLibrary: library <CLibrary> = (
	(* Add the library to the list of libraries this API manages. Make library functions available at the API level. *)
	libraries add: library.
	library exportFunctionsTo: self
)
addLibraryNoImport: library <CLibrary> = (
	(* Add the library to the list of libraries this API manages. Do not make library functions available at the API level. *)
	libraries add: library.
)
bits: selectors <Array[Selector]> ^<Integer> = (
	(* Send all selectors from the argument array to the receiver as messages, expecting each to answer an integer value. Combine the answers using bitOr and return the result. This is a convenience for writing the equivalent of C-style bit combinations such as (MASK1 | MASK2 | MASK3) as (api bits: {#MASK1. #MASK2. #MASK3}). *)
	^selectors inject: 0 into: [:mask :each | mask bitOr: (self perform: each)]
)
doesNotUnderstand: message = (
	((exportedFunctions includesKey: message selector)
		and: [message arguments isEmpty])
		ifTrue: [^exportedFunctions at: message selector].
	^super doesNotUnderstand: message
)
public exportFunction: function <CFunction> = (
	exportFunction: function as: function name
)
public exportFunction: function <CFunction> as: name <Symbol> = (
	exportedFunctions at: name put: function
)
public resetForNewImageSession = (
	libraries do: [:each | each resetForNewImageSession]
)
) : (
)