Skip to content
Snippets Groups Projects
Commit 600dd6c4 authored by Dean Samuel Schmitz's avatar Dean Samuel Schmitz
Browse files

Deleted unnecessary Files

parent 5e3ef98f
No related branches found
No related tags found
No related merge requests found
#include <sicstus/sicstus.h>
/* ex_glue.h is generated by splfr from the foreign/[2,3] facts.
Always include the glue header in your foreign resource code.
*/
#include "test_glue.h"
/* c1(+integer, [-integer]) */
SP_integer c1(SP_integer a)
{
return(a+100);
}
/* c2(-integer) */
void c2(SP_integer *a)
{
*a = 99;
}
/* c11(+atom, [-atom]) */
SP_atom c11(SP_atom a)
{
return(a);
}
/* c21(+atom, -atom) */
void c21(SP_atom a, SP_atom *b)
{
*b = a;
}
/* c3(+float, [-float]) */
double c3(double a)
{
return(a+9.0);
}
/* c4(-float) */
void c4(double *a)
{
*a = 9.9;
}
/* c5(string, [-string]) */
char const * c5(char const * a)
{
return(a);
}
/* c6(-string) */
void c6(char const * *a)
{
*a = "99";
}
/* -*- Mode:Prolog; coding:iso-8859-1; indent-tabs-mode:nil; prolog-indent-width:8; prolog-paren-indent:4; tab-width:8; -*- */
foreign_resource(test, [c1, c2, c11, c21, c3, c4, c5, c6]).
foreign(c1, c, c1(+integer, [-integer])).
foreign(c2, c, c2(-integer)).
foreign(c11, c, c11(+atom, [-atom])).
foreign(c21, c, c21(+atom, -atom)).
foreign(c3, c, c3(+float, [-float])).
foreign(c4, c, c4(-float)).
foreign(c5, c, c5(+string,[-string])).
foreign(c6, c, c6(-string)).
:- load_foreign_resource(test).
\ No newline at end of file
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment