/*
 *							Copyright 1997 IC-Parc
 * ECLiPSe LIBRARY MODULE
 *
 * $Id: eg_cc_handle.cc,v 1.2 1998/02/26 17:25:22 js10 Exp $
 *
 *
 * IDENTIFICATION:	minimain.c
 *
 * AUTHOR:		Joachim Schimpf
 * AUTHOR:		Stefano Novello
 *
 * CONTENTS:		name/arity
 *
 * DESCRIPTION:
 *	Example of using handles
 */

#include	"eclipseclass.h"


double my_array[5] = {1.1, 2.2, 3.3, 4.4, 5.5};

main()
{
    ec_init();

    EC_ref X;
    post_goal(
	term(EC_functor(",",2),
	    term(EC_functor("xget",3),
		handle(&ec_xt_double_arr, my_array),
	    	3,
		X),
	    term(EC_functor("writeln",1), X)
	)
    );

    EC_resume();

    ec_cleanup(0);
}