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

fix recent typos

Browse Source
This commit is contained in:
Vitor Santos Costa 2015-01-05 12:21:58 +00:00
parent 77c2d53445
commit 5053cfb571
5 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
library/dialect/swi/fli/blobs.c
View File

@ -250,7 +250,7 @@ PL_unregister_blob_type(PL_blob_t *type)
{ {
fprintf(stderr,"PL_unregister_blob_type not implemented yet\n"); fprintf(stderr,"PL_unregister_blob_type not implemented yet\n");
return FALSE; return FALSE;
xs} }
void void
Yap_install_blobs(void) Yap_install_blobs(void)

7
library/mpi/Makefile.in
View File

@ -106,12 +106,17 @@ mpe.o: $(srcdir)/mpe.c
.depend: $(HEADERS) $(C_SOURCES) .depend: $(HEADERS) $(C_SOURCES)
-@if test "$(GCC)" = yes; then\ -@if test "$(GCC)" = yes; then\
$(CC) -MM $(CFLAGS) -I$(srcdir)/include -i ../.. $(C_SOURCES) > .depend;\ $(CC) -MM $(CFLAGS) -I$(srcdir)/include -I ../.. $(C_SOURCES) > .depend;\
else\ else\
makedepend -f - -- $(CFLAGS) -I$(srcdir)/include -- $(C_SOURCES) |\ makedepend -f - -- $(CFLAGS) -I$(srcdir)/include -- $(C_SOURCES) |\
sed 's|.*/\([^:]*\):|\1:|' > .depend ;\ sed 's|.*/\([^:]*\):|\1:|' > .depend ;\
fi fi
install: all install-examples
@if test "$(SOBJS)" = ""; then echo ""; else $(INSTALL_PROGRAM) $(SOBJS) $(DESTDIR)$(YAPLIBDIR); fi
install-examples:
clean: clean:
$(RM) $(RUBBISH) $(RM) $(RUBBISH)

9
misc/sysgraph
View File

@ -274,13 +274,16 @@ take_line( Line, NS, AS, FS ) :-
take_line( Line, NS, AS, FS ) :- take_line( Line, NS, AS, FS ) :-
append( _, [ "YAP_UserCPredicate", NS, FS, AS|_], Line), !. append( _, [ "YAP_UserCPredicate", NS, FS, AS|_], Line), !.
take_line( Line, NS, AS, FS ) :- take_line( Line, NS, AS, FS ) :-
append( _, [ "PRED", NS, AS, FS|_], Line), !. append( _, [ "PRED", NS0, AS, FS|_], Line), !,
append( ["pl_", NS0, AS, "_va"], NS ).
take_line( Line, NS, AS, FS ) :- take_line( Line, NS, AS, FS ) :-
append( _, [ "PRED_IMPL", NS, AS, FS|_], Line), !. append( _, [ "PRED_IMPL", NS0, AS, FS|_], Line), !,
append( ["pl_", NS0, AS, "_va"], NS ).
take_line( Line, NS, AS, FS ) :- take_line( Line, NS, AS, FS ) :-
append( _, [ "PL_register_foreign", NS, AS, FS|_], Line), !. append( _, [ "PL_register_foreign", NS, AS, FS|_], Line), !.
take_line( Line, NS, AS, FS ) :- take_line( Line, NS, AS, FS ) :-
append( _, [ "PRED_DEF", NS, AS, FS|_], Line), !. append( _, [ "PRED_DEF", NS0, AS, FS|_], Line), !,
append( ["pl_", NS0, AS, "_va"], NS ).
take_line( Line, NS, AS, FS ) :- take_line( Line, NS, AS, FS ) :-
append( _, [ "FRG", NS, AS, FS|_], Line), !. append( _, [ "FRG", NS, AS, FS|_], Line), !.
% from odbc % from odbc

1
pl/consult.yap
View File

@ -953,7 +953,6 @@ source_file(Mod:Pred, FileName) :-
%% @} %% @}
%% @{ %% @{
{
/** @addtogroup YAPLibraries Library Predicates /** @addtogroup YAPLibraries Library Predicates

2
pl/protect.yap
View File

@ -22,7 +22,7 @@
'$protect' :- '$protect' :-
fail, fail,
'$system_mod'( M ), '$system_mod'( M ),
'$current_predicate'(A, M, T0, Flags), '$current_predicate'(_A, M, T0, Flags),
NFlags is Flags \/ 0x00004000, NFlags is Flags \/ 0x00004000,
'$flags'(M:T0, Flags, NFlags), '$flags'(M:T0, Flags, NFlags),
fail. fail.