b984d9191e
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1660 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
86 lines
3.3 KiB
C
86 lines
3.3 KiB
C
/************************************************************************
|
|
* Copyright (c) 2004,2005,2006 Nuno Fonseca. All rights reserved.
|
|
* This code is freely available for academic purposes.
|
|
* If you intend to use it for commercial purposes then please contact the author first.
|
|
*
|
|
* Author: Nuno Fonseca
|
|
* File: prologterms2c.c
|
|
* Last rev: $Id: prologterms2c.h,v 1.1 2006-06-02 04:16:31 nunofonseca Exp $
|
|
* Comments: This file provides a set of functions to convert a prolog term to a C string and back.
|
|
*************************************************************************/
|
|
|
|
#ifndef PROLOGTERMS2C
|
|
#define PROLOGTERMS2C 1
|
|
|
|
#ifndef _yap_c_interface_h
|
|
#include <YapInterface.h>
|
|
//#include <yap_structs.h>
|
|
#endif
|
|
|
|
#ifndef size_t
|
|
#include <unistd.h>
|
|
#endif
|
|
#include <stdarg.h>
|
|
/*
|
|
* Converts a term t into a string.
|
|
* The ascii representation of t is
|
|
* copied to ptr if it occupies less than size. Otherwise the
|
|
* necessary memory is aloccated (dyn_ptr) and the ascii
|
|
* representation of the term is copied to there.
|
|
*/
|
|
char* term2string(char *const ptr,size_t *size, const YAP_Term t);
|
|
/*
|
|
* Converts a string with a ascci representation of a term into a term.
|
|
* The ascii representation of t is
|
|
* copied to ptr if it occupies less than *size. Otherwise the
|
|
* necessary memory is aloccated and the ascii
|
|
* representation of the term is copied to there.
|
|
*/
|
|
YAP_Term string2term(char *const ptr,const size_t *size);
|
|
/*
|
|
* Read a prolog term from a stream
|
|
* (the prolog term must have been writen by the write_term_to_stream)
|
|
*/
|
|
YAP_Term read_term_from_stream(const int fd);
|
|
/*
|
|
* Writes a term to a stream.
|
|
*/
|
|
size_t write_term_to_stream(const int fd,const YAP_Term term);
|
|
/*
|
|
* Changes the size of the buffer to contain at least newsize bytes.
|
|
* Useful to reduce the number of reallocs,mallocs, and frees
|
|
*/
|
|
void change_buffer_size(const size_t newsize);
|
|
|
|
void write_msg(const char *fun,const char *file, int line,const char *format, ...);
|
|
/*********************************************************************************************
|
|
* Macros to manipulate the buffer
|
|
*********************************************************************************************/
|
|
#define BLOCK_SIZE 4*1024
|
|
|
|
// deletes the buffer (all fields) but does not release the memory of the buffer.ptr
|
|
#define DEL_BUFFER {buffer.ptr=NULL;buffer.size=0;buffer.len=0;}
|
|
// informs the prologterm2c module that the buffer is now used and should not be messed
|
|
#define USED_BUFFER() DEL_BUFFER
|
|
// initialize buffer
|
|
#define RESET_BUFFER {buffer.len=0;change_buffer_size(BLOCK_SIZE);buffer.pos=0;}
|
|
#define BUFFER_PTR buffer.ptr
|
|
#define BUFFER_SIZE buffer.size
|
|
#define BUFFER_LEN buffer.len
|
|
#define BUFFER_POS buffer.pos
|
|
// copies two buffers
|
|
#define COPY_BUFFER_DS(src,dst) {dst.size=src.size;dst.len=src.len;dst.ptr=src.ptr;dst.pos=src.pos;}
|
|
|
|
/*********************************************************************************************
|
|
* Buffer
|
|
*********************************************************************************************/
|
|
struct buffer_ds {
|
|
size_t size, // size of the buffer
|
|
len; // size of the string
|
|
char *ptr; // pointer to the buffer
|
|
size_t pos; // position (used while reading)
|
|
};
|
|
extern struct buffer_ds buffer;
|
|
|
|
#endif
|