#include "cbf.h"#include "cbf_ascii.h"#include "cbf_binary.h"#include "cbf_compress.h"#include "cbf_file.h"#include "cbf_tree.h"#include "cbf_write.h"#include "cbf_write_binary.h"#include "cbf_read_mime.h"#include <stdlib.h>#include <string.h>#include <ctype.h>#include <limits.h>
Go to the source code of this file.
Functions | |
| int | cbf_value_type (char *value) |
| int | cbf_write_datablockname (const cbf_node *datablock, cbf_file *file) |
| int | cbf_write_itemname (const cbf_node *column, cbf_file *file) |
| int | cbf_write_value (cbf_node *column, unsigned int row, cbf_file *file, int isbuffer) |
| int | cbf_write_category (const cbf_node *category, cbf_file *file, int isbuffer) |
| int | cbf_write_node (const cbf_node *node, cbf_file *file, int isbuffer) |
Function Documentation
| int cbf_value_type | ( | char * | value | ) |
Definition at line 142 of file cbf_write.c.
References CBF_ARGUMENT, CBF_TOKEN_DQSTRING, CBF_TOKEN_SCSTRING, CBF_TOKEN_SQSTRING, and CBF_TOKEN_WORD.
Referenced by cbf_write_value().
{
int test [6], C, count;
/* Is the value missing? */
if (!value)
return 0;
/* Is the value valid? */
if ((*value & '\200') != '\200')
return CBF_ARGUMENT;
/* Has the value already been checked? */
if ((value [0] & '\300') == '\300')
return 0;
/* Properties */
memset (test, 0, sizeof (test));
for (count = 1; value [count]; count++)
{
C = toupper (value [count]);
test [0] |= isspace (C);
test [1] |= C == '\n';
test [2] |= C == '\'';
test [3] |= C == '"';
if (count <= 5)
{
test [4] |= C != " DATA_" [count];
test [5] |= C != " LOOP_" [count];
if (count <= 1)
test [0] |= C == '_' || C == '\'' || C == '"' || C == '#';
}
}
test [0] |= strcmp (&value [1], "?") == 0;
test [0] |= strcmp (&value [1], ".") == 0;
/* Simple word? */
if (!test [0] && test [4] && test [5])
*value = CBF_TOKEN_WORD;
else
/* Single line? */
if (!test [1] && (!test [2] || !test [3]))
{
if (!test [2])
*value = CBF_TOKEN_SQSTRING;
else
*value = CBF_TOKEN_DQSTRING;
}
else
/* Multiple lines */
*value = CBF_TOKEN_SCSTRING;
/* Success */
return 0;
}
Definition at line 379 of file cbf_write.c.
References CBF_ARGUMENT, cbf_failnez, cbf_get_filecoordinates(), cbf_write_character(), cbf_write_itemname(), cbf_write_string(), cbf_write_value(), cbf_node_struct::child, cbf_node_struct::children, first, and last.
Referenced by cbf_write_node().
{
unsigned int count, first, last, column, columns, row;
int loop;
/* Check the arguments */
if (!category)
return CBF_ARGUMENT;
/* Print out columns of the same length in loops */
for (first = 0, loop = 1; first < category->children; first = last)
{
columns = 1;
if (category->child [first])
{
for (last = first + 1; last < category->children; last++)
if (category->child [last])
{
if (category->child [last]->children !=
category->child [first]->children)
break;
columns++;
}
/* Make a loop? */
if (columns > 1 || category->child [first]->children > 1)
{
cbf_failnez (cbf_write_string (file, "\nloop_\n"))
loop = 1;
}
else
{
if (loop)
cbf_failnez (cbf_write_character (file, '\n'))
loop = 0;
}
/* Write the items */
for (count = first; count < last; count++)
{
cbf_failnez (cbf_write_itemname (category->child [count], file))
if (loop)
cbf_failnez (cbf_write_character (file, '\n'))
}
/* Write the values */
for (row = 0; row < category->child [first]->children; row++)
{
for (column = first; column < last; column++)
cbf_failnez (cbf_write_value (category->child [column], row,
file, isbuffer))
cbf_failnez (cbf_get_filecoordinates (file, NULL, &column))
if (column)
cbf_failnez (cbf_write_character (file, '\n'))
}
}
}
/* Success */
return 0;
}
Definition at line 232 of file cbf_write.c.
References CBF_ARGUMENT, cbf_failnez, cbf_write_character(), cbf_write_string(), cbf_node_struct::children, and cbf_node_struct::name.
Referenced by cbf_write_node().
{
/* Does the node exist? */
if (!datablock)
return CBF_ARGUMENT;
/* Write the name */
if (datablock->name)
{
cbf_failnez (cbf_write_string (file, "\ndata_"))
cbf_failnez (cbf_write_string (file, datablock->name))
cbf_failnez (cbf_write_character (file, '\n'))
}
else
if (datablock->children)
cbf_failnez (cbf_write_string (file, "\ndata_\n"))
/* Success */
return 0;
}
Definition at line 266 of file cbf_write.c.
References CBF_ARGUMENT, CBF_CATEGORY, cbf_failnez, cbf_find_parent(), cbf_write_character(), cbf_write_string(), and cbf_node_struct::name.
Referenced by cbf_write_category().
{
cbf_node *category;
/* Get the category */
cbf_failnez (cbf_find_parent (&category, column, CBF_CATEGORY))
/* Check that the name is valid */
if (!category->name && !column->name)
return CBF_ARGUMENT;
/* Write the category name */
cbf_failnez (cbf_write_character (file, '_'))
if (category->name)
{
cbf_failnez (cbf_write_string (file, category->name))
cbf_failnez (cbf_write_character (file, '.'))
}
/* Write the column name */
if (column->name)
cbf_failnez (cbf_write_string (file, column->name))
/* Success */
return 0;
}
Definition at line 471 of file cbf_write.c.
References CBF_ARGUMENT, CBF_CATEGORY, CBF_DATABLOCK, cbf_failnez, cbf_flush_characters(), cbf_get_link(), CBF_ROOT, cbf_write_category(), cbf_write_datablockname(), cbf_write_node(), cbf_write_string(), cbf_node_struct::child, cbf_node_struct::children, ENC_NONE, cbf_node_struct::type, and cbf_file::write_encoding.
Referenced by cbf_write_file(), and cbf_write_node().
{
unsigned int count;
/* Follow any links */
node = cbf_get_link (node);
/* Does the node exist? */
if (!node)
return CBF_ARGUMENT;
/* Node type */
switch (node->type)
{
case CBF_ROOT:
cbf_failnez (cbf_write_string (file, "###CBF: VERSION 0.6\n"))
if (file->write_encoding & ENC_NONE)
cbf_failnez (cbf_write_string (file,
"# CBF file written by cbflib v0.6\n"))
else
cbf_failnez (cbf_write_string (file,
"# CIF file written by cbflib v0.6\n"))
break;
case CBF_DATABLOCK:
cbf_failnez (cbf_write_datablockname (node, file))
break;
case CBF_CATEGORY:
cbf_failnez (cbf_write_category (node, file, isbuffer))
break;
default:
return CBF_ARGUMENT;
}
/* Write the children */
if (node->type == CBF_ROOT || node->type == CBF_DATABLOCK)
for (count = 0; count < node->children; count++)
cbf_failnez (cbf_write_node (node->child [count], file, isbuffer))
/* Flush the buffers */
return cbf_flush_characters (file);
}
Definition at line 310 of file cbf_write.c.
References CBF_ARGUMENT, cbf_failnez, cbf_get_columnrow(), cbf_mime_temp(), CBF_NOTFOUND, CBF_TOKEN_BIN, CBF_TOKEN_DQSTRING, CBF_TOKEN_MIME_BIN, CBF_TOKEN_NULL, CBF_TOKEN_SCSTRING, CBF_TOKEN_SQSTRING, CBF_TOKEN_TMP_BIN, CBF_TOKEN_WORD, cbf_value_type(), cbf_write_ascii(), cbf_write_binary(), and cbf_node_struct::children.
Referenced by cbf_write_category().
{
const char *text;
/* Check the arguments */
if (!column)
return CBF_ARGUMENT;
if (row >= column->children)
return CBF_NOTFOUND;
/* Get the value */
cbf_failnez (cbf_get_columnrow (&text, column, row))
/* Missing value? */
if (!text)
return cbf_write_ascii (text, file);
/* Plain ASCII? */
cbf_failnez (cbf_value_type ((char *) text))
if (*text == CBF_TOKEN_WORD ||
*text == CBF_TOKEN_SQSTRING ||
*text == CBF_TOKEN_DQSTRING ||
*text == CBF_TOKEN_SCSTRING ||
*text == CBF_TOKEN_NULL)
return cbf_write_ascii (text, file);
/* Plain binary? */
if (*text == CBF_TOKEN_BIN || *text == CBF_TOKEN_TMP_BIN)
return cbf_write_binary (column, row, file, isbuffer);
/* Undecoded MIME? */
if (*text == CBF_TOKEN_MIME_BIN)
{
/* Convert the value to a normal binary section */
cbf_failnez (cbf_mime_temp (column, row))
return cbf_write_binary (column, row, file, isbuffer);
}
/* Fail */
return CBF_ARGUMENT;
}
