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 *
* Last rev: $Date: 2002-11-18 18:16:51 $ *
* Last rev: $Date: 2002-11-21 15:54:38 $ *
* mods: *
* comments: Interface to an MPI library *
* *
*************************************************************************/
#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
#include "Yap.h"
@ -315,7 +315,7 @@ p_mpi_send() /* mpi_send(+data, +destination, +tag) */
bufptr = 0;
/* 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;
/* 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():
convert the newly-parsed term back to text and print */
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, ' ' );
buf[bufptr] = 0;
@ -498,7 +498,7 @@ p_mpi_bcast3() /* mpi_bcast( ?data, +root, +max_size ) */
}
bufptr = 0;
/* 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
required by the parser. */
buf[bufptr] = 0;
@ -585,7 +585,7 @@ p_mpi_bcast2() /* mpi_bcast( ?data, +root ) */
}
bufptr = 0;
/* 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
required by the parser. */
buf[bufptr] = 0;