string support

This commit is contained in:
Vitor Santos Costa 2014-02-06 21:55:35 +00:00
parent b3aa3e37c6
commit f11b0518a8
3 changed files with 6 additions and 7 deletions

View File

@ -6,7 +6,6 @@
:- module(system, [concat_atom/2,
concat_atom/3,
read_clause/1,
string/1,
chdir/1,
compile_aux_clauses/1,
convert_time/2,
@ -15,8 +14,6 @@
'$set_predicate_attribute'/3,
stamp_date_time/3,
date_time_stamp/2,
format_time/3,
format_time/4,
time_file/2,
flag/3,
require/1,
@ -96,6 +93,7 @@
:- set_prolog_flag(user_flags,silent).
% Time is given as a float in SWI-Prolog.
swi_get_time(FSecs) :- datime(Datime), mktime(Datime, Secs), FSecs is Secs*1.0.
@ -157,8 +155,6 @@ concat_atom(List, New) :-
read_clause(X,Y) :-
read_term(X,Y,[singetons(warning)]).
string(_) :- fail.
bindings_message(V) -->
{ cvt_bindings(V, Bindings) },
prolog:message(query(_YesNo,Bindings)), !.

View File

@ -160,7 +160,7 @@ X_API char* PL_atom_nchars(atom_t a, size_t *len) /* SAM check type */
X_API term_t PL_copy_term_ref(term_t from)
{
CACHE_REGS
return YAP_InitSlot(Yap_GetFromSlot(from PASS_REGS));
return Yap_InitSlot(Yap_GetFromSlot(from PASS_REGS) PASS_REGS);
}
X_API term_t PL_new_term_ref(void)
@ -182,7 +182,7 @@ X_API void PL_reset_term_refs(term_t after)
{
CACHE_REGS
term_t new = Yap_NewSlots(1 PASS_REGS);
YAP_RecoverSlots(after-new);
Yap_RecoverSlots(after-new PASS_REGS);
}
/* begin PL_get_* functions =============================*/

View File

@ -58,3 +58,6 @@ install: all
clean:
rm -f *.o *~ $(OBJS) $(SOBJS) *.BAK
realclean: clean
rm -f Makefile