/*  $Id: hello.c,v 1.1 2002/03/05 09:22:43 jan Exp $

    Part of SWI-Prolog

    Author:        Jan Wielemaker and Anjo Anjewierden
    E-mail:        jan@swi.psy.uva.nl
    WWW:           http://www.swi-prolog.org
    Copyright (C): 1985-2002, University of Amsterdam

    This library is free software; you can redistribute it and/or
    modify it under the terms of the GNU Lesser General Public
    License as published by the Free Software Foundation; either
    version 2.1 of the License, or (at your option) any later version.

    This library is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
    Lesser General Public License for more details.

    You should have received a copy of the GNU Lesser General Public
    License along with this library; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
*/

/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Very small test and demo to check the foreign interface. After
installing SWI-Prolog, run

	% plld -o hello -shared hello.c
	% pl
	?- load_foreign_library(hello).
	?- hello(world).
	Hello World
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */

#include <stdio.h>
#include <SWI-Prolog.h>

foreign_t
hello(term_t to)
{ char *s;

  if ( PL_get_atom_chars(to, &s) )
    printf("Hello %s\n", s);

  return TRUE;
}


install_t
install()
{ PL_register_foreign("hello", 1, hello, 0);
}
