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

fix scripts 

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@348 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-02-06 17:35:26 +00:00
parent 293fdf9061
commit 6b29480d4a
4 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
H/Regs.h
View File

@ -10,7 +10,7 @@
* File: Regs.h * * File: Regs.h *
* mods: * * mods: *
* comments: YAP abstract machine registers * * comments: YAP abstract machine registers *
* version: $Id: Regs.h,v 1.12 2002-02-01 15:48:17 vsc Exp $ * * version: $Id: Regs.h,v 1.13 2002-02-06 17:35:25 vsc Exp $ *
*************************************************************************/ *************************************************************************/
@ -336,7 +336,7 @@ EXTERN inline void restore_TR(void) {
TR = REGS.TR_; TR = REGS.TR_;
} }
#elif defined(__GNUC__) && defined(mips) && defined(VSC_UNDEFINED) #elif defined(__GNUC__) && defined(mips)
#define P REGS.P_ /* prolog machine program counter */ #define P REGS.P_ /* prolog machine program counter */
#define YENV REGS.YENV_ /* current environment (may differ from ENV) */ #define YENV REGS.YENV_ /* current environment (may differ from ENV) */

3
console/yap.c
View File

@ -211,7 +211,7 @@ parse_yap_arguments(int argc, char *argv[], yap_init_args *init_args)
char *p; char *p;
int BootMode = YAP_BOOT_FROM_SAVED_CODE; int BootMode = YAP_BOOT_FROM_SAVED_CODE;
int *ssize; int *ssize;
while (--argc > 0) while (--argc > 0)
{ {
p = *++argv; p = *++argv;
@ -348,6 +348,7 @@ parse_yap_arguments(int argc, char *argv[], yap_init_args *init_args)
argc = 1; argc = 1;
} }
init_args->YapPrologBootFile = *argv; init_args->YapPrologBootFile = *argv;
argv++;
init_args->HaltAfterConsult = TRUE; init_args->HaltAfterConsult = TRUE;
break; break;
case 'l': case 'l':

12
docs/yap.tex
View File

@ -6196,11 +6196,13 @@ close(mauri_tripa).
yes yes
?- ?-
@end example @end example
We first opened a stream in write mode and gave it an alias. Next, we We execute three commands. First, we open a stream in write mode and
set @code{user_error} to the stream via the alias. Note that after we give it an alias, in this case @code{mauri_tripa}. Next, we set
did so prompts from the system were redirected to the stream @code{user_error} to the stream via the alias. Note that after we did so
@code{mauri_tripa}. Last, when we closed the stream we automatically prompts from the system were redirected to the stream
redirect the @code{user_error} alias to the original @code{stderr}. @code{mauri_tripa}. Last, we close the stream. At this point, YAP
automatically redirects the @code{user_error} alias to the original
@code{stderr}.
@item user_input @item user_input
@findex user_input (yap_flag/2 option) @findex user_input (yap_flag/2 option)

2
pl/consult.yap
View File

@ -232,7 +232,7 @@ reconsult(Fs) :-
( '$access_yap_flags'(15, 0) -> true ; halt). ( '$access_yap_flags'(15, 0) -> true ; halt).
'$skip_unix_comments'(Stream) :- '$skip_unix_comments'(Stream) :-
'$peek_byte'(Stream, 0'#), !, % 35 is ASCII for # '$peek'(Stream, 0'#), !, % 35 is ASCII for #
'$get0_line_codes'(Stream, _), '$get0_line_codes'(Stream, _),
'$skip_unix_comments'(Stream). '$skip_unix_comments'(Stream).
'$skip_unix_comments'(_). '$skip_unix_comments'(_).