LAview.LaTeX-Struct/test/tex/ltable_test.c

178 lines
6.2 KiB
C
Raw Normal View History

2014-04-09 17:43:14 +04:00
///@cond INTERNAL
#include <stdio.h>
#include <glib.h>
#include <glib/gprintf.h>
#include <locale.h>
#include "txr-texparser.h"
int main (int argc, char *argv[])
{
GError *parse_error = NULL;
GError *error = NULL;
gchar *contents = NULL,
*generated = NULL,
*generated_etalon = NULL;
TXRGlob *doc = NULL;
TXRGlobIter it;
setlocale (LC_ALL, "");
#if (!GLIB_CHECK_VERSION (2, 36, 0))
g_type_init ();
#endif
/* warning stub */
g_assert (4 == argc || 5 == argc);
/* load file contents
*/
if (!g_file_get_contents (argv[1], &contents, NULL, &error))
{
g_printf ("Unable to read file: %s\n", error->message);
goto err;
}
g_assert ((contents == NULL && error != NULL)
|| (contents != NULL && error == NULL));
if (!g_file_get_contents (argv[2], &generated_etalon, NULL, &error))
{
g_printf ("Unable to read file: %s\n", error->message);
goto err;
}
g_assert ((generated_etalon == NULL && error != NULL)
|| (generated_etalon != NULL && error == NULL));
/* parse TeX */
doc = txr_parse (contents, &parse_error);
if (parse_error)
{
g_print ("Error parsing TeX document: %s\n", parse_error->message);
goto err;
}
else
{
puts ("TeX document successfully parsed\n");
}
/* Perform several col/row operations */
g_printf ("Walk through all objects\n");
for (it = txr_glob_first (doc); it; it = txr_glob_iter_next (it))
{
g_printf ("%s\n", G_OBJECT_TYPE_NAME (*it));
if (!g_strcmp0 ("TXRLongtable", G_OBJECT_TYPE_NAME (*it)))
{
TXRLongtable *ltable = TXR_LONGTABLE (*it);
guint last_row = txr_col_params_length (txr_longtable_get_col_params (ltable)) - 1;
if (!g_strcmp0 ("rm0row", argv[3]))
txr_longtable_remove_col (ltable, 0, TXR_TABLE_OP_LINE_STYLE_BORDER | TXR_TABLE_OP_LINE_STYLE_DBLLINES);
else if (!g_strcmp0 ("rm1row", argv[3]))
txr_longtable_remove_col (ltable, 1, TXR_TABLE_OP_LINE_STYLE_BORDER | TXR_TABLE_OP_LINE_STYLE_DBLLINES);
else if (!g_strcmp0 ("rm1000row", argv[3]))
txr_longtable_remove_col (ltable, 1000, TXR_TABLE_OP_LINE_STYLE_BORDER | TXR_TABLE_OP_LINE_STYLE_DBLLINES);
else if (!g_strcmp0 ("rm_last_row", argv[3]))
txr_longtable_remove_col (ltable, last_row, TXR_TABLE_OP_LINE_STYLE_BORDER | TXR_TABLE_OP_LINE_STYLE_DBLLINES);
else if (!g_strcmp0 ("clone_0_0", argv[3]))
txr_longtable_clone_col (ltable, 0, 0, TRUE, TXR_TABLE_OP_LINE_STYLE_BORDER | TXR_TABLE_OP_LINE_STYLE_DBLLINES);
else if (!g_strcmp0 ("clone_0_1", argv[3]))
txr_longtable_clone_col (ltable, 0, 1, FALSE, TXR_TABLE_OP_LINE_STYLE_BORDER | TXR_TABLE_OP_LINE_STYLE_DBLLINES);
else if (!g_strcmp0 ("clone_1_0", argv[3]))
txr_longtable_clone_col (ltable, 1, 0, TRUE, TXR_TABLE_OP_LINE_STYLE_BORDER | TXR_TABLE_OP_LINE_STYLE_DBLLINES);
else if (!g_strcmp0 ("clone_0_last", argv[3]))
txr_longtable_clone_col (ltable, 0, last_row, FALSE, TXR_TABLE_OP_LINE_STYLE_BORDER | TXR_TABLE_OP_LINE_STYLE_DBLLINES);
else if (!g_strcmp0 ("clone_last_0", argv[3]))
txr_longtable_clone_col (ltable, last_row, 0, TRUE, TXR_TABLE_OP_LINE_STYLE_BORDER | TXR_TABLE_OP_LINE_STYLE_DBLLINES);
else if (!g_strcmp0 ("clone_0_lastp1", argv[3]))
txr_longtable_clone_col (ltable, 0, last_row + 1, FALSE, TXR_TABLE_OP_LINE_STYLE_BORDER | TXR_TABLE_OP_LINE_STYLE_DBLLINES);
else if (!g_strcmp0 ("clone_lastp1_0", argv[3]))
txr_longtable_clone_col (ltable, last_row + 1, 0, TRUE, TXR_TABLE_OP_LINE_STYLE_BORDER | TXR_TABLE_OP_LINE_STYLE_DBLLINES);
else if (!g_strcmp0 ("clone_0_1000", argv[3]))
txr_longtable_clone_col (ltable, 0, 1000, FALSE, TXR_TABLE_OP_LINE_STYLE_BORDER | TXR_TABLE_OP_LINE_STYLE_DBLLINES);
else if (!g_strcmp0 ("clone_1000_0", argv[3]))
txr_longtable_clone_col (ltable, 1000, 0, TRUE, TXR_TABLE_OP_LINE_STYLE_BORDER | TXR_TABLE_OP_LINE_STYLE_DBLLINES);
else if (!g_strcmp0 ("append_row0", argv[3]))
{
TXRSubtable *table = txr_longtable_get_table (ltable);
if (table)
{
TXRSubtableIter table_it;
TXRRow *row;
table_it = txr_subtable_first (table);
if (table_it && NULL != (row = TXR_ROW (*table_it)))
txr_subtable_append (table, txr_row_clone (row),
TXR_TABLE_OP_LINE_STYLE_BORDER | TXR_TABLE_OP_LINE_STYLE_DBLLINES);
}
}
else
{
g_print ("Incorrect operation '%s' specified.\n", argv[3]);
goto err;
}
}
else if (!g_strcmp0 ("TXRTabular", G_OBJECT_TYPE_NAME (*it)))
{
TXRTabular *tabular = TXR_TABULAR (*it);
if (!g_strcmp0 ("append_row0", argv[3]))
{
TXRSubtable *table = txr_tabular_get_table (tabular);
if (table)
{
TXRSubtableIter table_it;
TXRRow *row;
table_it = txr_subtable_first (table);
if (table_it && NULL != (row = TXR_ROW (*table_it)))
txr_subtable_append (table, txr_row_clone (row),
TXR_TABLE_OP_LINE_STYLE_BORDER | TXR_TABLE_OP_LINE_STYLE_DBLLINES);
}
}
}
}
g_printf ("end of objects\n\n");
/* generate plain-TeX document */
generated = txr_glob_gen (doc);
if (!g_strcmp0 (generated_etalon, generated))
g_printf ("Etalon and generated text are EQUAL ;-)\n");
else
g_printf ("Etalon and generated text are NOT EQUAL ;-(\n");
g_printf ("--- Generated plain-TeX (generated) ---\n%s", generated);
if (argv[4])
g_file_set_contents (argv[4], generated, -1, NULL);
err:
//end:
g_free (contents);
g_free (generated);
g_free (generated_etalon);
if (parse_error)
{
g_error_free (parse_error);
}
if (error)
{
g_error_free (error);
}
txr_glob_unref (doc);
return 0;
}
///@endcond