;
; Test subroutine call.
;
; To run tests:
;
; $ ./build/ano tests/t_call_set.ano > engine/dsl_ano.h
; $ make
; $ ./tests/01_run_tests.sh whatever_binary_make_produces call
;
; @ANO_SCRIPT_NAME		test_call_inst
; @ANO_SCRIPT_VERSION		0.0.1
; @ANO_SCRIPT_DESCRIPTION	Test subroutine call
;
; @ANO_FLAGS_VAR_NAME_SUBS	[ ]
; @ANO_FLAGS_VAR_WARN_UNUSED	[ ]
;
; Copyright (c) 2016-2024, Jani Salonen <salojan@goto10.co>
; All rights reserved.
;

	mov	t_number (1)
	mov	t_string ("The call test")
	mov	t_pointer (NULL)
	mov	t_handle (INVALID)
	mov	t_color (# 0x11, 0x22, 0x33, 0x44)
	mov	t_point (& 1.1, 2.2, 3.3)

	var	[blob] t_blob
	var	[image] t_image

	;
	call	"t_call" ("t_call", t_number, t_string, t_pointer, t_handle, \
		t_color, t_point, t_blob, t_image)
	call	"t_call" ("t_call", 1, "The call test", 2, 3, \
		t_color, t_point, t_blob, t_image)

	;
	mov	_call ("t_call")

	call	_call ("_call", [int] t_number, t_string, t_pointer, t_handle, \
		t_color, t_point, t_blob, t_image)
	call	_call ("_call", [int] 1, [utf-32] "The call test", 2, 3, \
		t_color, t_point, t_blob, t_image)

	;
	exit

function t_call (_msg, _number, _string, _pointer, _handle, _color, _point, _blob, _image) {
	dump	_msg

	dump	_number
	dump	_string
	dump	_pointer
	dump	_handle
	dump	_color
	dump	_point
	dump	_blob
	dump	_image
}