OpenXM/src/ox_toolkit/cmo.c - diff

Return to cmo.c CVS log

Up to [local] / OpenXM / src / ox_toolkit

version 1.1, 2000/10/10 05:23:20

version 1.3, 2000/12/14 01:39:31

Line 1

/* -*- mode: C; coding: euc-japan -*- */

/* $OpenXM$ */

/* $OpenXM: OpenXM/src/ox_toolkit/cmo.c,v 1.2 2000/10/12 15:50:10 ohara Exp $ */

This module includes functions for sending/receiveng CMO's.

Line 11

#include <stdlib.h>

#include <stdarg.h>

#include <string.h>

#include <unistd.h>

#include <errno.h>

#include <fcntl.h>

#include <sys/file.h>

#include "mysocket.h"

#include "ox_toolkit.h"

#include "parse.h"

static cell* new_cell();

static char* new_string_set_cmo_null();

static char* new_string_set_cmo_int32(int integer);

static char* new_string_set_cmo_list(cmo_list *c);

Line 80 cmo_list *list_appendl(cmo_list* this, ...)

Line 73 cmo_list *list_appendl(cmo_list* this, ...)

cmo *ob;

va_list ap;

va_start(ap, this);

if (this == NULL) {

this = new_cmo_list();

}

while((ob = va_arg(ap, cmo *)) != NULL) {

list_append(this, ob);

}

Line 269 cmo_error2* new_cmo_error2(cmo* ob)

Line 265 cmo_error2* new_cmo_error2(cmo* ob)

return c;

}

/* cmo と string (ここではC言語のstring) の変換関数群 */

/* Following functions translate cmo's to (asciiz) strings. */

static char *new_string_set_cmo_zz(cmo_zz *c)

{

return mpz_get_str(NULL, 10, c->mpz);