version 1.1, 2000/10/10 05:23:21 |
version 1.2, 2000/11/18 05:46:10 |
|
|
/* -*- mode: C; coding: euc-japan -*- */ |
/* -*- mode: C; coding: euc-japan -*- */ |
/* $OpenXM$ */ |
/* $OpenXM: OpenXM/src/ox_toolkit/print.c,v 1.1 2000/10/10 05:23:21 ohara Exp $ */ |
|
|
/* |
/* |
Functions in this module print a given CMO to console. |
Functions in this module print a given CMO to console. |
Line 49 void print_cmo(cmo* c) |
|
Line 49 void print_cmo(cmo* c) |
|
fprintf(stderr, ")"); |
fprintf(stderr, ")"); |
break; |
break; |
default: |
default: |
fprintf(stderr, "print_cmo() does not know how to print.\n"); |
fprintf(stderr, "\nprint_cmo() does not know how to print cmo of type %d.\n", tag); |
} |
} |
} |
} |
|
|
Line 61 static void print_cmo_int32(cmo_int32* c) |
|
Line 61 static void print_cmo_int32(cmo_int32* c) |
|
static void print_cmo_list(cmo_list* this) |
static void print_cmo_list(cmo_list* this) |
{ |
{ |
cell* cp = list_first(this); |
cell* cp = list_first(this); |
|
fprintf(stderr, "[%d]", list_length(this)); |
while(!list_endof(this, cp)) { |
while(!list_endof(this, cp)) { |
fprintf(stderr, ", "); |
fprintf(stderr, ", "); |
print_cmo(cp->cmo); |
print_cmo(cp->cmo); |