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

use macros instead of hard-wired numbers for the 3rd argument of Yap_plwrite()

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@703 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
stasinos 2002-11-21 15:54:38 +00:00
parent 3e0216413a
commit fc684b3be7
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
library/mpi/mpi.c
View File

@ -9,14 +9,14 @@
************************************************************************** **************************************************************************
* * * *
* File: mpi.c * * File: mpi.c *
* Last rev: $Date: 2002-11-18 18:16:51 $ * * Last rev: $Date: 2002-11-21 15:54:38 $ *
* mods: * * mods: *
* comments: Interface to an MPI library * * comments: Interface to an MPI library *
* * * *
*************************************************************************/ *************************************************************************/
#ifndef lint #ifndef lint
static char *rcsid = "$Header: /Users/vitor/Yap/yap-cvsbackup/library/mpi/mpi.c,v 1.16 2002-11-18 18:16:51 vsc Exp $"; static char *rcsid = "$Header: /Users/vitor/Yap/yap-cvsbackup/library/mpi/mpi.c,v 1.17 2002-11-21 15:54:38 stasinos Exp $";
#endif #endif
#include "Yap.h" #include "Yap.h"
@ -315,7 +315,7 @@ p_mpi_send() /* mpi_send(+data, +destination, +tag) */
bufptr = 0; bufptr = 0;
/* Turn the term into its ASCII representation */ /* Turn the term into its ASCII representation */
Yap_plwrite( t_data, mpi_putc, 5 ); Yap_plwrite( t_data, mpi_putc, Quote_illegal_f|Handle_vars_f );
bufstrlen = (size_t)bufptr; bufstrlen = (size_t)bufptr;
/* The buf is not NULL-terminated and does not have the /* The buf is not NULL-terminated and does not have the
@ -457,7 +457,7 @@ p_mpi_receive() /* mpi_receive(-data, ?orig, ?tag) */
/* check up on mpi_parse(): /* check up on mpi_parse():
convert the newly-parsed term back to text and print */ convert the newly-parsed term back to text and print */
bufptr = 0; bufptr = 0;
Yap_plwrite( t_data, mpi_putc, 5 ); Yap_plwrite( t_data, mpi_putc, Quote_illegal_f|Handle_vars_f );
mpi_putc( 0, '.' ); mpi_putc( 0, '.' );
mpi_putc( 0, ' ' ); mpi_putc( 0, ' ' );
buf[bufptr] = 0; buf[bufptr] = 0;
@ -498,7 +498,7 @@ p_mpi_bcast3() /* mpi_bcast( ?data, +root, +max_size ) */
} }
bufptr = 0; bufptr = 0;
/* Turn the term into its ASCII representation */ /* Turn the term into its ASCII representation */
Yap_plwrite( t_data, mpi_putc, 5 ); Yap_plwrite( t_data, mpi_putc, Quote_illegal_f|Handle_vars_f );
/* NULL-terminate the string and add the ". " termination /* NULL-terminate the string and add the ". " termination
required by the parser. */ required by the parser. */
buf[bufptr] = 0; buf[bufptr] = 0;
@ -585,7 +585,7 @@ p_mpi_bcast2() /* mpi_bcast( ?data, +root ) */
} }
bufptr = 0; bufptr = 0;
/* Turn the term into its ASCII representation */ /* Turn the term into its ASCII representation */
Yap_plwrite( t_data, mpi_putc, 5 ); Yap_plwrite( t_data, mpi_putc, Quote_illegal_f|Handle_vars_f );
/* NULL-terminate the string and add the ". " termination /* NULL-terminate the string and add the ". " termination
required by the parser. */ required by the parser. */
buf[bufptr] = 0; buf[bufptr] = 0;