kix32 demolib.kix $__UDF="udfGreeting" $__P1="Good morning" $__P2="Richard"

; UDF library calling demo.
 
; This sample script shows how to write a KiXtart library to allow functions to be called
; arbitrarily from the command line as well as from scripts.
 
; This is the simplest version, with no parameter checking or help
 
Function udfDemo()
	"Called function udfDemo_1 OK" ?
	Exit 0
EndFunction
 
Function udfGreeting($sTimeOfDay,$sUserName)
	$sTimeOfDay+" "+$sUserName+", welcome to the ACME network."+@CRLF
	Exit 0
EndFunction
 
;---------------------------------------------------------------------------------------------
; Stand-alone function call.
; This code is executed when the library is called with $__UDF set.
; This is intended to allow the library functions to be called directly
; from the command line.
If IsDeclared($__UDF)
	BREAK ON
	$=SetOption("Explicit","ON")
	Dim $iParamIndex,$sParams,$sQuote
	$sQuote='"'
	$iParamIndex=1
	While Execute("Exit IsDeclared($$__P"+$iParamIndex+")")
		$=Execute("$$sParams=$$sParams+','+$$sQuote+$$__P"+$iParamIndex+"+$$sQuote")
		$iParamIndex=$iParamIndex+1
	Loop
	Exit Execute($__UDF+"("+SubStr($sParams,2)+")")
EndIf
 
; vim600: filetype=kix ts=4 sw=4 ai fdc=4 fdm=marker