diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

cmake and jit

Browse Source
This commit is contained in:
Vítor Santos Costa
2015-01-26 04:02:46 +00:00
parent 9d4b59f7d6
commit bc1e70758e
49 changed files with 1397 additions and 1311 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
library/CMakeLists.txt
View File

@@ -59,6 +59,7 @@ set (LIBRARY_PL
)
add_subdirectory(clp)
add_subdirectory(dialect)
add_subdirectory(lammpi)
add_subdirectory(matlab)
add_subdirectory(matrix)

12
library/dialect/CMakeLists.txt Normal file
View File

@@ -0,0 +1,12 @@
set (DIALECTS_PL
bprolog.yap
commons.yap
hprolog.yap
swi.yap
)
add_subdirectory(swi)
install(FILES ${DIALECTS_PL}
DESTINATION ${libpl}/dialect
)

66
library/lammpi/CMakeLists.txt
View File

@@ -1,8 +1,15 @@
macro_optional_find_package (MPI OFF)
macro_log_feature (MPI_C_FOUND "mpi"
"MPI Distributed Parallel Programming"
"http://gmplib.org")
if (MPI_C_FOUND)
set (MPI_SOURCES
hash.c prologterms2c.c yap_mpi.c)
macro_optional_find_package(MPI ON)
macro_log_feature (MPI_C_FOUND "Mpi"
"Use Mpi System"
"http://www.mpi.org" FALSE)
if (MPI_C_FOUND)
# === Variables ===
#
# This module will set the following variables per language in your
# project, where <lang> is one of C, CXX, or Fortran:
#
@@ -27,5 +34,52 @@ if (MPI_C_FOUND)
# before the executable to run.
# MPIEXEC_POSTFLAGS Flags to pass to MPIEXEC after other flags
#
endif (MPI_C_FOUND)
# === Usage ===
#
# To use this module, simply call FindMPI from a CMakeLists.txt file, or
# run find_package(MPI), then run CMake. If you are happy with the
# auto- detected configuration for your language, then you're done. If
# not, you have two options:
#
# ::
#
# 1. Set MPI_<lang>_COMPILER to the MPI wrapper (mpicc, etc.) of your
# choice and reconfigure. FindMPI will attempt to determine all the
# necessary variables using THAT compiler's compile and link flags.
# 2. If this fails, or if your MPI implementation does not come with
# a compiler wrapper, then set both MPI_<lang>_LIBRARIES and
# MPI_<lang>_INCLUDE_PATH. You may also set any other variables
# listed above, but these two are required. This will circumvent
# autodetection entirely.
#
# When configuration is successful, MPI_<lang>_COMPILER will be set to
# the compiler wrapper for <lang>, if it was found. MPI_<lang>_FOUND
# and other variables above will be set if any MPI implementation was
# found for <lang>, regardless of whether a compiler was found.
#
# When using MPIEXEC to execute MPI applications, you should typically
# use all of the MPIEXEC flags as follows:
#
# ::
#
# ${MPIEXEC} ${MPIEXEC_NUMPROC_FLAG} PROCS
# ${MPIEXEC_PREFLAGS} EXECUTABLE ${MPIEXEC_POSTFLAGS} ARGS
#
# where PROCS is the number of processors on which to execute the
# program, EXECUTABLE is the MPI program, and ARGS are the arguments to
# pass to the MPI program.
#
add_library (yap_mpi SHARED ${MPI_SOURCES})
target_link_libraries(yap_mpi libYap ${MPI_LIBRARIES})
set_target_properties (yap_mpi PROPERTIES PREFIX "")
include_directories (${MPI_INCLUDE_DIRS})
install(TARGETS yap_mpi
LIBRARY DESTINATION ${dlls}
)
endif (MPI_C_FOUND)

112
library/matrix/matrix.c
View File

@@ -197,7 +197,7 @@ new_float_matrix(int ndims, int dims[], double data[])
return blob;
}
static int
static YAP_Bool
scan_dims(int ndims, YAP_Term tl, int dims[MAX_DIMS])
{
int i;
@@ -229,7 +229,7 @@ scan_dims(int ndims, YAP_Term tl, int dims[MAX_DIMS])
return TRUE;
}
static int
static YAP_Bool
scan_dims_args(int ndims, YAP_Term tl, int dims[MAX_DIMS])
{
int i;
@@ -253,7 +253,7 @@ scan_dims_args(int ndims, YAP_Term tl, int dims[MAX_DIMS])
return TRUE;
}
static int
static YAP_Bool
cp_int_matrix(YAP_Term tl,YAP_Term matrix)
{
int *mat = (int *)YAP_BlobOfTerm(matrix);
@@ -283,7 +283,7 @@ cp_int_matrix(YAP_Term tl,YAP_Term matrix)
return TRUE;
}
static int
static YAP_Bool
cp_float_matrix(YAP_Term tl,YAP_Term matrix)
{
int *mat = (int *)YAP_BlobOfTerm(matrix);
@@ -317,7 +317,7 @@ cp_float_matrix(YAP_Term tl,YAP_Term matrix)
}
static int
static YAP_Bool
set_int_matrix(YAP_Term matrix,long int set)
{
int *mat = (int *)YAP_BlobOfTerm(matrix);
@@ -330,7 +330,7 @@ set_int_matrix(YAP_Term matrix,long int set)
return TRUE;
}
static int
static YAP_Bool
set_float_matrix(YAP_Term matrix,double set)
{
int *mat = (int *)YAP_BlobOfTerm(matrix);
@@ -343,7 +343,7 @@ set_float_matrix(YAP_Term matrix,double set)
return TRUE;
}
static int
static YAP_Bool
new_ints_matrix(void)
{
int ndims = YAP_IntOfTerm(YAP_ARG1);
@@ -360,7 +360,7 @@ new_ints_matrix(void)
return YAP_Unify(YAP_ARG4, out);
}
static int
static YAP_Bool
new_ints_matrix_set(void)
{
int ndims = YAP_IntOfTerm(YAP_ARG1);
@@ -380,7 +380,7 @@ new_ints_matrix_set(void)
return YAP_Unify(YAP_ARG4, out);
}
static int
static YAP_Bool
new_floats_matrix(void)
{
int ndims = YAP_IntOfTerm(YAP_ARG1);
@@ -396,7 +396,7 @@ new_floats_matrix(void)
return YAP_Unify(YAP_ARG4, out);
}
static int
static YAP_Bool
new_floats_matrix_set(void)
{
int ndims = YAP_IntOfTerm(YAP_ARG1);
@@ -636,7 +636,7 @@ matrix_dec2(int *mat, int *indx)
}
static int
static YAP_Bool
matrix_set(void)
{
int dims[MAX_DIMS], *mat;
@@ -674,7 +674,7 @@ matrix_set(void)
return TRUE;
}
static int
static YAP_Bool
matrix_set2(void)
{
int dims[MAX_DIMS], *mat;
@@ -712,7 +712,7 @@ matrix_set2(void)
return TRUE;
}
static int
static YAP_Bool
matrix_set_all(void)
{
int *mat;
@@ -746,7 +746,7 @@ matrix_set_all(void)
return TRUE;
}
static int
static YAP_Bool
matrix_add(void)
{
int dims[MAX_DIMS], *mat;
@@ -784,7 +784,7 @@ matrix_add(void)
return TRUE;
}
static int
static YAP_Bool
do_matrix_access(void)
{
int dims[MAX_DIMS], *mat;
@@ -803,7 +803,7 @@ do_matrix_access(void)
return YAP_Unify(tf, YAP_ARG3);
}
static int
static YAP_Bool
do_matrix_access2(void)
{
int dims[MAX_DIMS], *mat;
@@ -822,7 +822,7 @@ do_matrix_access2(void)
return YAP_Unify(tf, YAP_ARG2);
}
static int
static YAP_Bool
do_matrix_inc(void)
{
int dims[MAX_DIMS], *mat;
@@ -840,7 +840,7 @@ do_matrix_inc(void)
return TRUE;
}
static int
static YAP_Bool
do_matrix_dec(void)
{
int dims[MAX_DIMS], *mat;
@@ -858,7 +858,7 @@ do_matrix_dec(void)
return TRUE;
}
static int
static YAP_Bool
do_matrix_inc2(void)
{
int dims[MAX_DIMS], *mat;
@@ -876,7 +876,7 @@ do_matrix_inc2(void)
YAP_Unify(matrix_inc2(mat, dims), YAP_ARG3);
}
static int
static YAP_Bool
do_matrix_dec2(void)
{
int dims[MAX_DIMS], *mat;
@@ -894,7 +894,7 @@ do_matrix_dec2(void)
YAP_Unify(matrix_dec2(mat, dims), YAP_ARG3);
}
static int
static YAP_Bool
matrix_to_list(void)
{
int *mat;
@@ -912,7 +912,7 @@ matrix_to_list(void)
return YAP_Unify(YAP_ARG2, tf);
}
static int
static YAP_Bool
matrix_set_base(void)
{
int *mat;
@@ -927,7 +927,7 @@ matrix_set_base(void)
}
static int
static YAP_Bool
matrix_dims(void)
{
int *mat;
@@ -942,7 +942,7 @@ matrix_dims(void)
return YAP_Unify(YAP_ARG2, tf);
}
static int
static YAP_Bool
matrix_dims3(void)
{
int *mat;
@@ -958,7 +958,7 @@ matrix_dims3(void)
return YAP_Unify(YAP_ARG2, tf) && YAP_Unify(YAP_ARG3, tof);
}
static int
static YAP_Bool
matrix_size(void)
{
int *mat;
@@ -971,7 +971,7 @@ matrix_size(void)
return YAP_Unify(YAP_ARG2, YAP_MkIntTerm(mat[MAT_SIZE]));
}
static int
static YAP_Bool
matrix_ndims(void)
{
int *mat;
@@ -984,7 +984,7 @@ matrix_ndims(void)
return YAP_Unify(YAP_ARG2, YAP_MkIntTerm(mat[MAT_NDIMS]));
}
static int
static YAP_Bool
matrix_type(void)
{
int *mat;
@@ -1003,7 +1003,7 @@ matrix_type(void)
return YAP_Unify(YAP_ARG2, tf);
}
static int
static YAP_Bool
matrix_arg_to_offset(void)
{
int indx[MAX_DIMS], *mat;
@@ -1023,7 +1023,7 @@ matrix_arg_to_offset(void)
return YAP_Unify(YAP_ARG3, YAP_MkIntTerm(off));
}
static int
static YAP_Bool
matrix_offset_to_arg(void)
{
int indx[MAX_DIMS], *mat;
@@ -1101,7 +1101,7 @@ scan_min_float(int sz, double *data)
return off;
}
static int
static YAP_Bool
matrix_max(void)
{
int *mat;
@@ -1125,7 +1125,7 @@ matrix_max(void)
return YAP_Unify(YAP_ARG2, tf);
}
static int
static YAP_Bool
matrix_maxarg(void)
{
int indx[MAX_DIMS], *mat;
@@ -1149,7 +1149,7 @@ matrix_maxarg(void)
return YAP_Unify(YAP_ARG2, tf);
}
static int
static YAP_Bool
matrix_min(void)
{
int *mat;
@@ -1173,7 +1173,7 @@ matrix_min(void)
return YAP_Unify(YAP_ARG2, tf);
}
static int
static YAP_Bool
matrix_log_all(void)
{
int *mat;
@@ -1196,7 +1196,7 @@ matrix_log_all(void)
return TRUE;
}
static int
static YAP_Bool
matrix_log_all2(void)
{
int *mat;
@@ -1253,7 +1253,7 @@ matrix_log_all2(void)
return TRUE;
}
static int
static YAP_Bool
matrix_exp_all(void)
{
int *mat;
@@ -1276,7 +1276,7 @@ matrix_exp_all(void)
return TRUE;
}
static int
static YAP_Bool
matrix_exp2_all(void)
{
int *mat;
@@ -1304,7 +1304,7 @@ matrix_exp2_all(void)
return TRUE;
}
static int
static YAP_Bool
matrix_exp_all2(void)
{
int *mat;
@@ -1361,7 +1361,7 @@ matrix_exp_all2(void)
return TRUE;
}
static int
static YAP_Bool
matrix_minarg(void)
{
int indx[MAX_DIMS], *mat;
@@ -1385,7 +1385,7 @@ matrix_minarg(void)
return YAP_Unify(YAP_ARG2, tf);
}
static int
static YAP_Bool
matrix_sum(void)
{
int *mat;
@@ -1448,7 +1448,7 @@ add_double_lines(int total,int nlines,double *mat0,double *matf)
}
}
static int
static YAP_Bool
matrix_agg_lines(void)
{
int *mat;
@@ -1531,7 +1531,7 @@ add_double_cols(int total,int nlines,double *mat0,double *matf)
}
}
static int
static YAP_Bool
matrix_agg_cols(void)
{
int *mat;
@@ -1620,7 +1620,7 @@ div_float_by_lines(int total,int nlines,double *mat1,double *mat2,double *ndata)
}
}
static int
static YAP_Bool
matrix_op_to_lines(void)
{
int *mat1, *mat2;
@@ -1906,7 +1906,7 @@ matrix_double_zdiv_data(double *nmat, int siz, double mat1[], double mat2[])
}
}
static int
static YAP_Bool
matrix_op(void)
{
int *mat1, *mat2;
@@ -2127,7 +2127,7 @@ add_double_by_cols(int total,int nlines,double *mat1,double *mat2,double *ndata)
}
}
static int
static YAP_Bool
matrix_op_to_cols(void)
{
int *mat1, *mat2;
@@ -2208,7 +2208,7 @@ matrix_op_to_cols(void)
return YAP_Unify(YAP_ARG4,tf);
}
static int
static YAP_Bool
matrix_op_to_all(void)
{
int *mat;
@@ -2387,7 +2387,7 @@ matrix_op_to_all(void)
/* given a matrix M and a set of dims, build a new reordered matrix to follow
the new order
*/
static int
static YAP_Bool
matrix_transpose(void)
{
int ndims, i, *dims, *dimsn;
@@ -2469,7 +2469,7 @@ matrix_transpose(void)
/* given a matrix M and a set of dims, fold one of the dimensions of the
matrix on one of the elements
*/
static int
static YAP_Bool
matrix_select(void)
{
int ndims, i, j, newdims, prdim, leftarg, *dims, indx[MAX_DIMS];
@@ -2570,7 +2570,7 @@ matrix_select(void)
/* given a matrix M and a set of N-1 dims, get the first dimension
*/
static int
static YAP_Bool
matrix_column(void)
{
int size, i, ndims, newdims[1];
@@ -2639,7 +2639,7 @@ matrix_column(void)
/* given a matrix M and a set of dims, sum out one of the dimensions
*/
static int
static YAP_Bool
matrix_sum_out(void)
{
int ndims, i, j, newdims, prdim;
@@ -2728,7 +2728,7 @@ matrix_sum_out(void)
/* given a matrix M and a set of dims, sum out one of the dimensions
*/
static int
static YAP_Bool
matrix_sum_out_several(void)
{
int ndims, i, *dims, newdims;
@@ -2821,7 +2821,7 @@ matrix_sum_out_several(void)
/* given a matrix M and a set of dims, sum out one of the dimensions
*/
static int
static YAP_Bool
matrix_sum_out_logs(void)
{
int ndims, i, j, *dims, newdims, prdim;
@@ -2910,7 +2910,7 @@ matrix_sum_out_logs(void)
/* given a matrix M and a set of dims, sum out one of the dimensions
*/
static int
static YAP_Bool
matrix_sum_out_logs_several(void)
{
int ndims, i, *dims, newdims;
@@ -3008,7 +3008,7 @@ matrix_sum_out_logs_several(void)
/* given a matrix M and a set of dims, build a matrix to follow
the new order
*/
static int
static YAP_Bool
matrix_expand(void)
{
int ndims, i, *dims, newdims=0, olddims = 0;
@@ -3110,7 +3110,7 @@ matrix_expand(void)
/* given a matrix M and a set of dims, build contract a matrix to follow
the new order
*/
static int
static YAP_Bool
matrix_set_all_that_disagree(void)
{
int ndims, i, *dims;
@@ -3189,7 +3189,7 @@ matrix_set_all_that_disagree(void)
return YAP_Unify(YAP_ARG5, tf);
}
static int
static YAP_Bool
matrix_m(void)
{
int ndims, i, size;
@@ -3231,7 +3231,7 @@ matrix_m(void)
return YAP_Unify(YAP_ARG2, tm);
}
static int
static YAP_Bool
is_matrix(void)
{
YAP_Term t = YAP_ARG1;

6
library/random/yap_random.c
View File

@@ -26,7 +26,7 @@ void init_random( void );
static short a1 = 27314, b1 = 9213, c1 = 17773;
static int
static YAP_Bool
p_random(void)
{
double fli;
@@ -42,7 +42,7 @@ p_random(void)
return(YAP_Unify(YAP_ARG1, YAP_MkFloatTerm(fli-(int)(fli))));
}
static int
static YAP_Bool
p_setrand(void)
{
a1 = YAP_IntOfTerm(YAP_ARG1);
@@ -51,7 +51,7 @@ p_setrand(void)
return(TRUE);
}
static int
static YAP_Bool
p_getrand(void)
{
return(YAP_Unify(YAP_ARG1,YAP_MkIntTerm(a1)) &&

4
library/regex/regexp.c
View File

@@ -34,7 +34,7 @@
void init_regexp( void );
static int check_regexp(void)
static YAP_Bool check_regexp(void)
{
unsigned int buflen = (unsigned int)YAP_IntOfTerm(YAP_ARG2)+1;
unsigned int sbuflen = (unsigned int)YAP_IntOfTerm(YAP_ARG4)+1;
@@ -81,7 +81,7 @@ static int check_regexp(void)
return(out == 0);
}
static int regexp(void)
static YAP_Bool regexp(void)
{
unsigned int buflen = (unsigned int)YAP_IntOfTerm(YAP_ARG2)+1;
unsigned int sbuflen = (unsigned int)YAP_IntOfTerm(YAP_ARG4)+1;

26
library/rltree/yap_rl.c
View File

@@ -44,7 +44,7 @@ unsigned long int tree_mem=0;
/*
*/
static
int
YAP_Bool
p_rl_new(void) {
YAP_Term t1=YAP_Deref(YAP_ARG1);
YAP_Term t2=YAP_Deref(YAP_ARG2);
@@ -75,7 +75,7 @@ p_rl_new(void) {
*
*/
static
int
YAP_Bool
p_rl_copy(void) {
YAP_Term t1=YAP_Deref(YAP_ARG1); // src
YAP_Term t2=YAP_Deref(YAP_ARG2); // dest
@@ -113,7 +113,7 @@ p_rl_copy(void) {
*
*/
static
int
YAP_Bool
p_rl_size(void) {
YAP_Term t1=YAP_Deref(YAP_ARG1),t_size;
@@ -139,7 +139,7 @@ p_rl_size(void) {
*
*/
static
int
YAP_Bool
p_rl_mem_usage(void) {
YAP_Term t1=YAP_Deref(YAP_ARG1);
@@ -153,7 +153,7 @@ p_rl_mem_usage(void) {
/*
*/
static
int
YAP_Bool
p_rl_free(void) {
YAP_Term t1=YAP_Deref(YAP_ARG1);
@@ -180,7 +180,7 @@ p_rl_free(void) {
*
*/
static
int
YAP_Bool
p_rl_set_in(void) {
YAP_Term t1=YAP_Deref(YAP_ARG1);
@@ -214,7 +214,7 @@ p_rl_set_in(void) {
*
*/
static
int
YAP_Bool
p_rl_in(void) {
YAP_Term t1=YAP_Deref(YAP_ARG1);
@@ -243,7 +243,7 @@ p_rl_in(void) {
*
*/
static
int
YAP_Bool
p_rl_set_out(void) {
YAP_Term t1=YAP_Deref(YAP_ARG1);
@@ -274,7 +274,7 @@ p_rl_set_out(void) {
*
*/
static
int
YAP_Bool
p_rl_freeze(void) {
YAP_Term t1=YAP_Deref(YAP_ARG1);
@@ -304,7 +304,7 @@ p_rl_freeze(void) {
*
*/
static
int
YAP_Bool
p_rl_set_all_in(void) {
YAP_Term t1=YAP_Deref(YAP_ARG1);
@@ -336,7 +336,7 @@ p_rl_set_all_in(void) {
*
*/
static
int
YAP_Bool
p_rl_print(void) {
YAP_Term t1=YAP_Deref(YAP_ARG1);
@@ -372,7 +372,7 @@ yap_back_data_type *back_data;
*
*/
static
int
YAP_Bool
p_rl_b_in2(void) {
YAP_Term t1=YAP_Deref(YAP_ARG1);
@@ -393,7 +393,7 @@ p_rl_b_in2(void) {
return (FALSE);
}
static
int
YAP_Bool
p_rl_b_in1(void) {
YAP_Term t1=YAP_Deref(YAP_ARG1);

48
library/system/sys.c
View File

@@ -162,7 +162,7 @@ WinError(void)
#endif
/* Return time in a structure */
static int
static YAP_Bool
sysmktime(void)
{
@@ -223,7 +223,7 @@ sysmktime(void)
}
/* Return time in a structure */
static int
static YAP_Bool
datime(void)
{
YAP_Term tf, out[6];
@@ -268,7 +268,7 @@ datime(void)
#define BUF_SIZE 1024
/* Return a list of files for a directory */
static int
static YAP_Bool
list_directory(void)
{
YAP_Term tf = YAP_MkAtomTerm(YAP_LookupAtom("[]"));
@@ -339,7 +339,7 @@ list_directory(void)
return YAP_Unify(YAP_ARG2, tf);
}
static int
static YAP_Bool
p_unlink(void)
{
char *fd = (char *)YAP_AtomName(YAP_AtomOfTerm(YAP_ARG1));
@@ -355,7 +355,7 @@ p_unlink(void)
return(TRUE);
}
static int
static YAP_Bool
p_mkdir(void)
{
char *fd = (char *)YAP_AtomName(YAP_AtomOfTerm(YAP_ARG1));
@@ -370,7 +370,7 @@ p_mkdir(void)
return(TRUE);
}
static int
static YAP_Bool
p_rmdir(void)
{
char *fd = (char *)YAP_AtomName(YAP_AtomOfTerm(YAP_ARG1));
@@ -385,7 +385,7 @@ p_rmdir(void)
return(TRUE);
}
static int
static YAP_Bool
rename_file(void)
{
char *s1 = (char *)YAP_AtomName(YAP_AtomOfTerm(YAP_ARG1));
@@ -399,13 +399,13 @@ rename_file(void)
return(TRUE);
}
static int
static YAP_Bool
dir_separator(void)
{
return(YAP_Unify(YAP_ARG1,YAP_MkAtomTerm(YAP_LookupAtom("/"))));
}
static int
static YAP_Bool
file_property(void)
{
const char *fd;
@@ -486,7 +486,7 @@ file_property(void)
/* temporary files */
static int
static YAP_Bool
p_mktemp(void)
{
#if HAVE_MKSTEMP || HAVE_MKTEMP || defined(__MINGW32__) || _MSC_VER
@@ -523,7 +523,7 @@ p_mktemp(void)
return(TRUE);
}
static int
static YAP_Bool
p_tmpnam(void)
{
#if HAVE_MKSTEMP
@@ -547,7 +547,7 @@ p_tmpnam(void)
#endif
}
static int
static YAP_Bool
p_tmpdir(void)
{
#if defined(__MINGW32__) || _MSC_VER
@@ -579,7 +579,7 @@ p_tmpdir(void)
}
/* return YAP's environment */
static int
static YAP_Bool
p_environ(void)
{
#if HAVE_ENVIRON && 0
@@ -646,7 +646,7 @@ close_handle(YAP_Term ti, HANDLE h)
#endif
/* execute a command as a detached process */
static int
static YAP_Bool
execute_command(void)
{
YAP_Term ti = YAP_ARG2, to = YAP_ARG3, te = YAP_ARG4;
@@ -802,7 +802,7 @@ execute_command(void)
}
/* execute a command as a detached process */
static int
static YAP_Bool
do_system(void)
{
char *command = (char *)YAP_AtomName(YAP_AtomOfTerm(YAP_ARG1));
@@ -821,7 +821,7 @@ do_system(void)
/* execute a command as a detached process */
static int
static YAP_Bool
do_shell(void)
{
#if defined(__MINGW32__) || _MSC_VER
@@ -881,7 +881,7 @@ do_shell(void)
}
/* execute a command as a detached process */
static int
static YAP_Bool
p_wait(void)
{
long int pid = YAP_IntOfTerm(YAP_ARG1);
@@ -915,7 +915,7 @@ p_wait(void)
#endif
}
static int
static YAP_Bool
p_sleep(void)
{
YAP_Term ts = YAP_ARG1;
@@ -986,7 +986,7 @@ p_sleep(void)
/* host info */
static int
static YAP_Bool
host_name(void)
{
#if defined(__MINGW32__) || _MSC_VER
@@ -1007,7 +1007,7 @@ host_name(void)
return(YAP_Unify(YAP_ARG1, YAP_MkAtomTerm(YAP_LookupAtom(name))));
}
static int
static YAP_Bool
host_id(void)
{
#if HAVE_GETHOSTID
@@ -1017,7 +1017,7 @@ host_id(void)
#endif
}
static int
static YAP_Bool
pid(void)
{
#if defined(__MINGW32__) || _MSC_VER
@@ -1027,7 +1027,7 @@ pid(void)
#endif
}
static int
static YAP_Bool
win(void)
{
#if defined(__MINGW32__) || _MSC_VER
@@ -1037,7 +1037,7 @@ win(void)
#endif
}
static int
static YAP_Bool
p_kill(void)
{
#if defined(__MINGW32__) || _MSC_VER
@@ -1061,7 +1061,7 @@ p_kill(void)
return(TRUE);
}
static int
static YAP_Bool
error_message(void)
{
#if HAVE_STRERROR

116
library/tries/itries.c
View File

@@ -24,35 +24,35 @@
/* -------------------------- */
void init_itries(void);
static int p_itrie_open(void);
static int p_itrie_close(void);
static int p_itrie_close_all(void);
static int p_itrie_mode(void);
static int p_itrie_timestamp(void);
static int p_itrie_put_entry(void);
static int p_itrie_update_entry(void);
static int p_itrie_check_entry(void);
static int p_itrie_get_entry(void);
static int p_itrie_get_data(void);
static int p_itrie_traverse_init(void);
static int p_itrie_traverse_cont(void);
static int p_itrie_remove_entry(void);
static int p_itrie_remove_subtree(void);
static int p_itrie_add(void);
static int p_itrie_subtract(void);
static int p_itrie_join(void);
static int p_itrie_intersect(void);
static int p_itrie_count_join(void);
static int p_itrie_count_intersect(void);
static int p_itrie_save(void);
static int p_itrie_save_as_trie(void);
static int p_itrie_load(void);
static int p_itrie_save2stream(void);
static int p_itrie_loadFromStream(void);
static int p_itrie_stats(void);
static int p_itrie_max_stats(void);
static int p_itrie_usage(void);
static int p_itrie_print(void);
static YAP_Bool p_itrie_open(void);
static YAP_Bool p_itrie_close(void);
static YAP_Bool p_itrie_close_all(void);
static YAP_Bool p_itrie_mode(void);
static YAP_Bool p_itrie_timestamp(void);
static YAP_Bool p_itrie_put_entry(void);
static YAP_Bool p_itrie_update_entry(void);
static YAP_Bool p_itrie_check_entry(void);
static YAP_Bool p_itrie_get_entry(void);
static YAP_Bool p_itrie_get_data(void);
static YAP_Bool p_itrie_traverse_init(void);
static YAP_Bool p_itrie_traverse_cont(void);
static YAP_Bool p_itrie_remove_entry(void);
static YAP_Bool p_itrie_remove_subtree(void);
static YAP_Bool p_itrie_add(void);
static YAP_Bool p_itrie_subtract(void);
static YAP_Bool p_itrie_join(void);
static YAP_Bool p_itrie_intersect(void);
static YAP_Bool p_itrie_count_join(void);
static YAP_Bool p_itrie_count_intersect(void);
static YAP_Bool p_itrie_save(void);
static YAP_Bool p_itrie_save_as_trie(void);
static YAP_Bool p_itrie_load(void);
static YAP_Bool p_itrie_save2stream(void);
static YAP_Bool p_itrie_loadFromStream(void);
static YAP_Bool p_itrie_stats(void);
static YAP_Bool p_itrie_max_stats(void);
static YAP_Bool p_itrie_usage(void);
static YAP_Bool p_itrie_print(void);
@@ -102,7 +102,7 @@ void init_itries(void) {
/* itrie_open(-Itrie) */
#define arg_itrie YAP_ARG1
static int p_itrie_open(void) {
static YAP_Bool p_itrie_open(void) {
TrEntry itrie;
/* check arg */
@@ -118,7 +118,7 @@ static int p_itrie_open(void) {
/* itrie_close(+Itrie) */
#define arg_itrie YAP_ARG1
static int p_itrie_close(void) {
static YAP_Bool p_itrie_close(void) {
/* check arg */
if (!YAP_IsIntTerm(arg_itrie))
return FALSE;
@@ -131,7 +131,7 @@ static int p_itrie_close(void) {
/* itrie_close_all() */
static int p_itrie_close_all(void) {
static YAP_Bool p_itrie_close_all(void) {
itrie_close_all();
return TRUE;
}
@@ -140,7 +140,7 @@ static int p_itrie_close_all(void) {
/* itrie_mode(+Itrie,?Mode) */
#define arg_itrie YAP_ARG1
#define arg_mode YAP_ARG2
static int p_itrie_mode(void) {
static YAP_Bool p_itrie_mode(void) {
YAP_Term mode_term;
const char *mode_str;
YAP_Int mode;
@@ -191,7 +191,7 @@ static int p_itrie_mode(void) {
/* itrie_timestamp(+Itrie,?Time) */
#define arg_itrie YAP_ARG1
#define arg_time YAP_ARG2
static int p_itrie_timestamp(void) {
static YAP_Bool p_itrie_timestamp(void) {
YAP_Int time;
/* check arg */
@@ -220,7 +220,7 @@ static int p_itrie_timestamp(void) {
/* itrie_put_entry(+Itrie,+Entry) */
#define arg_itrie YAP_ARG1
#define arg_entry YAP_ARG2
static int p_itrie_put_entry(void) {
static YAP_Bool p_itrie_put_entry(void) {
/* check arg */
if (!YAP_IsIntTerm(arg_itrie))
return FALSE;
@@ -236,7 +236,7 @@ static int p_itrie_put_entry(void) {
/* itrie_update_entry(+Itrie,+Entry) */
#define arg_itrie YAP_ARG1
#define arg_entry YAP_ARG2
static int p_itrie_update_entry(void) {
static YAP_Bool p_itrie_update_entry(void) {
/* check arg */
if (!YAP_IsIntTerm(arg_itrie))
return FALSE;
@@ -253,7 +253,7 @@ static int p_itrie_update_entry(void) {
#define arg_itrie YAP_ARG1
#define arg_entry YAP_ARG2
#define arg_ref YAP_ARG3
static int p_itrie_check_entry(void) {
static YAP_Bool p_itrie_check_entry(void) {
TrData data;
/* check arg */
@@ -273,7 +273,7 @@ static int p_itrie_check_entry(void) {
/* itrie_get_entry(+Ref,-Entry) */
#define arg_ref YAP_ARG1
#define arg_entry YAP_ARG2
static int p_itrie_get_entry(void) {
static YAP_Bool p_itrie_get_entry(void) {
YAP_Term entry;
/* check arg */
@@ -291,7 +291,7 @@ static int p_itrie_get_entry(void) {
/* itrie_get_data(+Ref,-Data) */
#define arg_ref YAP_ARG1
#define arg_data YAP_ARG2
static int p_itrie_get_data(void) {
static YAP_Bool p_itrie_get_data(void) {
YAP_Term list;
YAP_Term item;
YAP_Functor f;
@@ -325,7 +325,7 @@ static int p_itrie_get_data(void) {
/* itrie_traverse(+Itrie,-Ref) */
#define arg_itrie YAP_ARG1
#define arg_ref YAP_ARG2
static int p_itrie_traverse_init(void) {
static YAP_Bool p_itrie_traverse_init(void) {
TrData data;
/* check arg */
@@ -346,7 +346,7 @@ static int p_itrie_traverse_init(void) {
/* itrie_traverse(+Itrie,-Ref) */
#define arg_itrie YAP_ARG1
#define arg_ref YAP_ARG2
static int p_itrie_traverse_cont(void) {
static YAP_Bool p_itrie_traverse_cont(void) {
TrData data;
/* traverse itrie */
@@ -362,7 +362,7 @@ static int p_itrie_traverse_cont(void) {
/* itrie_remove_entry(+Ref) */
#define arg_ref YAP_ARG1
static int p_itrie_remove_entry(void) {
static YAP_Bool p_itrie_remove_entry(void) {
/* check arg */
if (!YAP_IsIntTerm(arg_ref))
return FALSE;
@@ -376,7 +376,7 @@ static int p_itrie_remove_entry(void) {
/* itrie_remove_subtree(+Ref) */
#define arg_ref YAP_ARG1
static int p_itrie_remove_subtree(void) {
static YAP_Bool p_itrie_remove_subtree(void) {
/* check arg */
if (!YAP_IsIntTerm(arg_ref))
return FALSE;
@@ -391,7 +391,7 @@ static int p_itrie_remove_subtree(void) {
/* itrie_add(+ItrieDest,+ItrieSource) */
#define arg_itrie_dest YAP_ARG1
#define arg_itrie_source YAP_ARG2
static int p_itrie_add(void) {
static YAP_Bool p_itrie_add(void) {
/* check args */
if (!YAP_IsIntTerm(arg_itrie_dest))
return FALSE;
@@ -409,7 +409,7 @@ static int p_itrie_add(void) {
/* itrie_subtract(+ItrieDest,+ItrieSource) */
#define arg_itrie_dest YAP_ARG1
#define arg_itrie_source YAP_ARG2
static int p_itrie_subtract(void) {
static YAP_Bool p_itrie_subtract(void) {
/* check args */
if (!YAP_IsIntTerm(arg_itrie_dest))
return FALSE;
@@ -427,7 +427,7 @@ static int p_itrie_subtract(void) {
/* itrie_join(+ItrieDest,+ItrieSource) */
#define arg_itrie_dest YAP_ARG1
#define arg_itrie_source YAP_ARG2
static int p_itrie_join(void) {
static YAP_Bool p_itrie_join(void) {
/* check args */
if (!YAP_IsIntTerm(arg_itrie_dest))
return FALSE;
@@ -445,7 +445,7 @@ static int p_itrie_join(void) {
/* itrie_intersect(+ItrieDest,+ItrieSource) */
#define arg_itrie_dest YAP_ARG1
#define arg_itrie_source YAP_ARG2
static int p_itrie_intersect(void) {
static YAP_Bool p_itrie_intersect(void) {
/* check args */
if (!YAP_IsIntTerm(arg_itrie_dest))
return FALSE;
@@ -464,7 +464,7 @@ static int p_itrie_intersect(void) {
#define arg_itrie1 YAP_ARG1
#define arg_itrie2 YAP_ARG2
#define arg_entries YAP_ARG3
static int p_itrie_count_join(void) {
static YAP_Bool p_itrie_count_join(void) {
YAP_Int entries;
/* check args */
@@ -486,7 +486,7 @@ static int p_itrie_count_join(void) {
#define arg_itrie1 YAP_ARG1
#define arg_itrie2 YAP_ARG2
#define arg_entries YAP_ARG3
static int p_itrie_count_intersect(void) {
static YAP_Bool p_itrie_count_intersect(void) {
YAP_Int entries;
/* check args */
@@ -507,7 +507,7 @@ static int p_itrie_count_intersect(void) {
/* itrie_save(+Itrie,+FileName) */
#define arg_itrie YAP_ARG1
#define arg_file YAP_ARG2
static int p_itrie_save(void) {
static YAP_Bool p_itrie_save(void) {
const char *file_str;
FILE *file;
@@ -535,7 +535,7 @@ static int p_itrie_save(void) {
/* itrie_save_as_trie(+Itrie,+FileName) */
#define arg_itrie YAP_ARG1
#define arg_file YAP_ARG2
static int p_itrie_save_as_trie(void) {
static YAP_Bool p_itrie_save_as_trie(void) {
const char *file_str;
FILE *file;
@@ -563,7 +563,7 @@ static int p_itrie_save_as_trie(void) {
/* itrie_load(-Itrie,+FileName) */
#define arg_itrie YAP_ARG1
#define arg_file YAP_ARG2
static int p_itrie_load(void) {
static YAP_Bool p_itrie_load(void) {
TrEntry itrie;
const char *file_str;
FILE *file;
@@ -593,7 +593,7 @@ static int p_itrie_load(void) {
/* itrie_save2stream(+Itrie,+Stream) */
#define arg_itrie YAP_ARG1
#define arg_stream YAP_ARG2
static int p_itrie_save2stream(void) {
static YAP_Bool p_itrie_save2stream(void) {
FILE *file;
/* check args */
@@ -613,7 +613,7 @@ static int p_itrie_save2stream(void) {
/* itrie_loadFromStream(-Itrie,+Stream) */
#define arg_itrie YAP_ARG1
#define arg_stream YAP_ARG2
static int p_itrie_loadFromStream(void) {
static YAP_Bool p_itrie_loadFromStream(void) {
TrEntry itrie;
FILE *file;
@@ -637,7 +637,7 @@ static int p_itrie_loadFromStream(void) {
#define arg_tries YAP_ARG2
#define arg_entries YAP_ARG3
#define arg_nodes YAP_ARG4
static int p_itrie_stats(void) {
static YAP_Bool p_itrie_stats(void) {
YAP_Int memory, tries, entries, nodes;
/* get stats */
@@ -663,7 +663,7 @@ static int p_itrie_stats(void) {
#define arg_tries YAP_ARG2
#define arg_entries YAP_ARG3
#define arg_nodes YAP_ARG4
static int p_itrie_max_stats(void) {
static YAP_Bool p_itrie_max_stats(void) {
YAP_Int memory, tries, entries, nodes;
/* get stats */
@@ -689,7 +689,7 @@ static int p_itrie_max_stats(void) {
#define arg_entries YAP_ARG2
#define arg_nodes YAP_ARG3
#define arg_virtualnodes YAP_ARG4
static int p_itrie_usage(void) {
static YAP_Bool p_itrie_usage(void) {
YAP_Int entries, nodes, virtualnodes;
/* check arg */
@@ -714,7 +714,7 @@ static int p_itrie_usage(void) {
/* itrie_print(+Itrie) */
#define arg_itrie YAP_ARG1
static int p_itrie_print(void) {
static YAP_Bool p_itrie_print(void) {
/* check arg */
if (!YAP_IsIntTerm(arg_itrie))
return FALSE;