fast_excel 0.4.1 → 0.5.0

data/libxlsxwriter/src/table.c

@@ -0,0 +1,304 @@
+/*****************************************************************************
+ * table - A library for creating Excel XLSX table files.
+ *
+ * Used in conjunction with the libxlsxwriter library.
+ *
+ * Copyright 2014-2022, John McNamara, jmcnamara@cpan.org. See LICENSE.txt.
+ *
+ */
+
+#include "xlsxwriter/xmlwriter.h"
+#include "xlsxwriter/worksheet.h"
+#include "xlsxwriter/table.h"
+#include "xlsxwriter/utility.h"
+
+/*
+ * Forward declarations.
+ */
+
+/*****************************************************************************
+ *
+ * Private functions.
+ *
+ ****************************************************************************/
+
+/*
+ * Create a new table object.
+ */
+lxw_table *
+lxw_table_new(void)
+{
+    lxw_table *table = calloc(1, sizeof(lxw_table));
+    GOTO_LABEL_ON_MEM_ERROR(table, mem_error);
+
+    return table;
+
+mem_error:
+    lxw_table_free(table);
+    return NULL;
+}
+
+/*
+ * Free a table object.
+ */
+void
+lxw_table_free(lxw_table *table)
+{
+    if (!table)
+        return;
+
+    free(table);
+}
+
+/*****************************************************************************
+ *
+ * XML functions.
+ *
+ ****************************************************************************/
+
+/*
+ * Write the XML declaration.
+ */
+STATIC void
+_table_xml_declaration(lxw_table *self)
+{
+    lxw_xml_declaration(self->file);
+}
+
+/*
+ * Write the <table> element.
+ */
+STATIC void
+_table_write_table(lxw_table *self)
+{
+    struct xml_attribute_list attributes;
+    struct xml_attribute *attribute;
+    char xmlns[] =
+        "http://schemas.openxmlformats.org/spreadsheetml/2006/main";
+    lxw_table_obj *table_obj = self->table_obj;
+
+    LXW_INIT_ATTRIBUTES();
+
+    LXW_PUSH_ATTRIBUTES_STR("xmlns", xmlns);
+    LXW_PUSH_ATTRIBUTES_INT("id", table_obj->id);
+
+    if (table_obj->name)
+        LXW_PUSH_ATTRIBUTES_STR("name", table_obj->name);
+    else
+        LXW_PUSH_ATTRIBUTES_STR("name", "Table1");
+
+    if (table_obj->name)
+        LXW_PUSH_ATTRIBUTES_STR("displayName", table_obj->name);
+    else
+        LXW_PUSH_ATTRIBUTES_STR("displayName", "Table1");
+
+    LXW_PUSH_ATTRIBUTES_STR("ref", table_obj->sqref);
+
+    if (table_obj->no_header_row)
+        LXW_PUSH_ATTRIBUTES_STR("headerRowCount", "0");
+
+    if (table_obj->total_row)
+        LXW_PUSH_ATTRIBUTES_STR("totalsRowCount", "1");
+    else
+        LXW_PUSH_ATTRIBUTES_STR("totalsRowShown", "0");
+
+    lxw_xml_start_tag(self->file, "table", &attributes);
+
+    LXW_FREE_ATTRIBUTES();
+}
+
+/*
+ * Write the <autoFilter> element.
+ */
+STATIC void
+_table_write_auto_filter(lxw_table *self)
+{
+    struct xml_attribute_list attributes;
+    struct xml_attribute *attribute;
+
+    if (self->table_obj->no_autofilter)
+        return;
+
+    LXW_INIT_ATTRIBUTES();
+    LXW_PUSH_ATTRIBUTES_STR("ref", self->table_obj->filter_sqref);
+
+    lxw_xml_empty_tag(self->file, "autoFilter", &attributes);
+
+    LXW_FREE_ATTRIBUTES();
+}
+
+/*
+ * Write the <tableColumn> element.
+ */
+STATIC void
+_table_write_table_column(lxw_table *self, uint16_t id,
+                          lxw_table_column *column)
+{
+    struct xml_attribute_list attributes;
+    struct xml_attribute *attribute;
+    int32_t dfx_id;
+
+    LXW_INIT_ATTRIBUTES();
+    LXW_PUSH_ATTRIBUTES_INT("id", id);
+
+    LXW_PUSH_ATTRIBUTES_STR("name", column->header);
+
+    if (column->total_string) {
+        LXW_PUSH_ATTRIBUTES_STR("totalsRowLabel", column->total_string);
+    }
+    else if (column->total_function) {
+        if (column->total_function == LXW_TABLE_FUNCTION_AVERAGE)
+            LXW_PUSH_ATTRIBUTES_STR("totalsRowFunction", "average");
+        if (column->total_function == LXW_TABLE_FUNCTION_COUNT_NUMS)
+            LXW_PUSH_ATTRIBUTES_STR("totalsRowFunction", "countNums");
+        if (column->total_function == LXW_TABLE_FUNCTION_COUNT)
+            LXW_PUSH_ATTRIBUTES_STR("totalsRowFunction", "count");
+        if (column->total_function == LXW_TABLE_FUNCTION_MAX)
+            LXW_PUSH_ATTRIBUTES_STR("totalsRowFunction", "max");
+        if (column->total_function == LXW_TABLE_FUNCTION_MIN)
+            LXW_PUSH_ATTRIBUTES_STR("totalsRowFunction", "min");
+        if (column->total_function == LXW_TABLE_FUNCTION_STD_DEV)
+            LXW_PUSH_ATTRIBUTES_STR("totalsRowFunction", "stdDev");
+        if (column->total_function == LXW_TABLE_FUNCTION_SUM)
+            LXW_PUSH_ATTRIBUTES_STR("totalsRowFunction", "sum");
+        if (column->total_function == LXW_TABLE_FUNCTION_VAR)
+            LXW_PUSH_ATTRIBUTES_STR("totalsRowFunction", "var");
+    }
+
+    if (column->format) {
+        dfx_id = lxw_format_get_dxf_index(column->format);
+        LXW_PUSH_ATTRIBUTES_INT("dataDxfId", dfx_id);
+    }
+
+    if (column->formula) {
+        lxw_xml_start_tag(self->file, "tableColumn", &attributes);
+        lxw_xml_data_element(self->file, "calculatedColumnFormula",
+                             column->formula, NULL);
+        lxw_xml_end_tag(self->file, "tableColumn");
+    }
+    else {
+        lxw_xml_empty_tag(self->file, "tableColumn", &attributes);
+    }
+
+    LXW_FREE_ATTRIBUTES();
+}
+
+/*
+ * Write the <tableColumns> element.
+ */
+STATIC void
+_table_write_table_columns(lxw_table *self)
+{
+    struct xml_attribute_list attributes;
+    struct xml_attribute *attribute;
+    uint16_t i;
+    uint16_t num_cols = self->table_obj->num_cols;
+    lxw_table_column **columns = self->table_obj->columns;
+
+    LXW_INIT_ATTRIBUTES();
+    LXW_PUSH_ATTRIBUTES_INT("count", num_cols);
+
+    lxw_xml_start_tag(self->file, "tableColumns", &attributes);
+
+    for (i = 0; i < num_cols; i++)
+        _table_write_table_column(self, i + 1, columns[i]);
+
+    lxw_xml_end_tag(self->file, "tableColumns");
+
+    LXW_FREE_ATTRIBUTES();
+}
+
+/*
+ * Write the <tableStyleInfo> element.
+ */
+STATIC void
+_table_write_table_style_info(lxw_table *self)
+{
+    struct xml_attribute_list attributes;
+    struct xml_attribute *attribute;
+    char name[LXW_ATTR_32];
+    lxw_table_obj *table_obj = self->table_obj;
+
+    LXW_INIT_ATTRIBUTES();
+
+    if (table_obj->style_type == LXW_TABLE_STYLE_TYPE_LIGHT) {
+        if (table_obj->style_type_number != 0) {
+            lxw_snprintf(name, LXW_ATTR_32, "TableStyleLight%d",
+                         table_obj->style_type_number);
+            LXW_PUSH_ATTRIBUTES_STR("name", name);
+        }
+    }
+    else if (table_obj->style_type == LXW_TABLE_STYLE_TYPE_MEDIUM) {
+        lxw_snprintf(name, LXW_ATTR_32, "TableStyleMedium%d",
+                     table_obj->style_type_number);
+        LXW_PUSH_ATTRIBUTES_STR("name", name);
+    }
+    else if (table_obj->style_type == LXW_TABLE_STYLE_TYPE_DARK) {
+        lxw_snprintf(name, LXW_ATTR_32, "TableStyleDark%d",
+                     table_obj->style_type_number);
+        LXW_PUSH_ATTRIBUTES_STR("name", name);
+    }
+    else {
+        LXW_PUSH_ATTRIBUTES_STR("name", "TableStyleMedium9");
+    }
+
+    if (table_obj->first_column)
+        LXW_PUSH_ATTRIBUTES_STR("showFirstColumn", "1");
+    else
+        LXW_PUSH_ATTRIBUTES_STR("showFirstColumn", "0");
+
+    if (table_obj->last_column)
+        LXW_PUSH_ATTRIBUTES_STR("showLastColumn", "1");
+    else
+        LXW_PUSH_ATTRIBUTES_STR("showLastColumn", "0");
+
+    if (table_obj->no_banded_rows)
+        LXW_PUSH_ATTRIBUTES_STR("showRowStripes", "0");
+    else
+        LXW_PUSH_ATTRIBUTES_STR("showRowStripes", "1");
+
+    if (table_obj->banded_columns)
+        LXW_PUSH_ATTRIBUTES_STR("showColumnStripes", "1");
+    else
+        LXW_PUSH_ATTRIBUTES_STR("showColumnStripes", "0");
+
+    lxw_xml_empty_tag(self->file, "tableStyleInfo", &attributes);
+
+    LXW_FREE_ATTRIBUTES();
+}
+
+/*****************************************************************************
+ *
+ * XML file assembly functions.
+ *
+ ****************************************************************************/
+
+/*
+ * Assemble and write the XML file.
+ */
+void
+lxw_table_assemble_xml_file(lxw_table *self)
+{
+    /* Write the XML declaration. */
+    _table_xml_declaration(self);
+
+    /* Write the table element. */
+    _table_write_table(self);
+
+    /* Write the autoFilter element. */
+    _table_write_auto_filter(self);
+
+    /* Write the tableColumns element. */
+    _table_write_table_columns(self);
+
+    /* Write the tableStyleInfo element. */
+    _table_write_table_style_info(self);
+
+    lxw_xml_end_tag(self->file, "table");
+}
+
+/*****************************************************************************
+ *
+ * Public functions.
+ *
+ ****************************************************************************/

data/libxlsxwriter/src/theme.c

@@ -3,7 +3,7 @@
  *
  * Used in conjunction with the libxlsxwriter library.
  *
- * Copyright 2014-2019, John McNamara, jmcnamara@cpan.org. See LICENSE.txt.
+ * Copyright 2014-2022, John McNamara, jmcnamara@cpan.org. See LICENSE.txt.
  *
  */
 

data/libxlsxwriter/src/utility.c

@@ -3,18 +3,27 @@
  *
  * Used in conjunction with the libxlsxwriter library.
  *
- * Copyright 2014-2019, John McNamara, jmcnamara@cpan.org. See LICENSE.txt.
+ * Copyright 2014-2022, John McNamara, jmcnamara@cpan.org. See LICENSE.txt.
  *
  */
 
+#ifdef USE_FMEMOPEN
+#define _POSIX_C_SOURCE 200809L
+#endif
+
 #include <ctype.h>
 #include <stdio.h>
 #include <string.h>
 #include <stdint.h>
 #include <stdlib.h>
 #include "xlsxwriter.h"
+#include "xlsxwriter/common.h"
 #include "xlsxwriter/third_party/tmpfileplus.h"
 
+#ifdef USE_DTOA_LIBRARY
+#include "xlsxwriter/third_party/emyg_dtoa.h"
+#endif
+
 char *error_strings[LXW_MAX_ERRNO + 1] = {
     "No error.",
     "Memory error, failed to malloc() required memory.",
@@ -27,19 +36,20 @@ char *error_strings[LXW_MAX_ERRNO + 1] = {
     "Zip error ZIP_INTERNALERROR while creating the xlsx file.",
     "File error or unknown zip error when adding sub file to xlsx file.",
     "Unknown zip error when closing xlsx file.",
+    "Feature is not currently supported in this configuration.",
     "NULL function parameter ignored.",
     "Function parameter validation error.",
     "Worksheet name exceeds Excel's limit of 31 characters.",
     "Worksheet name cannot contain invalid characters: '[ ] : * ? / \\'",
     "Worksheet name cannot start or end with an apostrophe.",
     "Worksheet name is already in use.",
-    "Worksheet name 'History' is reserved by Excel.",
     "Parameter exceeds Excel's limit of 32 characters.",
     "Parameter exceeds Excel's limit of 128 characters.",
     "Parameter exceeds Excel's limit of 255 characters.",
     "String exceeds Excel's limit of 32,767 characters.",
     "Error finding internal string index.",
     "Worksheet row or column index out of range.",
+    "Maximum hyperlink length (2079) exceeded.",
     "Maximum number of worksheet URLs (65530) exceeded.",
     "Couldn't read image dimensions or DPI.",
     "Unknown error number."
@@ -62,7 +72,7 @@ lxw_col_to_name(char *col_name, lxw_col_t col_num, uint8_t absolute)
 {
     uint8_t pos = 0;
     size_t len;
-    uint8_t i;
+    size_t i;
 
     /* Change from 0 index to 1 index. */
     col_num++;
@@ -312,10 +322,11 @@ lxw_name_to_col_2(const char *col_str)
 }
 
 /*
- * Convert a lxw_datetime struct to an Excel serial date.
+ * Convert a lxw_datetime struct to an Excel serial date, with a 1900
+ * or 1904 epoch.
  */
 double
-lxw_datetime_to_excel_date(lxw_datetime *datetime, uint8_t date_1904)
+lxw_datetime_to_excel_date_epoch(lxw_datetime *datetime, uint8_t date_1904)
 {
     int year = datetime->year;
     int month = datetime->month;
@@ -392,7 +403,7 @@ lxw_datetime_to_excel_date(lxw_datetime *datetime, uint8_t date_1904)
     /* Add days for all previous years.  */
     days += range * 365;
     /* Add 4 year leapdays. */
-    days += (range) / 4;
+    days += range / 4;
     /* Remove 100 year leapdays. */
     days -= (range + offset) / 100;
     /* Add 400 year leapdays. */
@@ -407,6 +418,43 @@ lxw_datetime_to_excel_date(lxw_datetime *datetime, uint8_t date_1904)
     return days + seconds;
 }
 
+/*
+ * Convert a lxw_datetime struct to an Excel serial date, for the 1900 epoch.
+ */
+double
+lxw_datetime_to_excel_datetime(lxw_datetime *datetime)
+{
+    return lxw_datetime_to_excel_date_epoch(datetime, LXW_FALSE);
+}
+
+/*
+ * Convert a unix datetime (1970/01/01 epoch) to an Excel serial date, with a
+ * 1900 epoch.
+ */
+double
+lxw_unixtime_to_excel_date(int64_t unixtime)
+{
+    return lxw_unixtime_to_excel_date_epoch(unixtime, LXW_FALSE);
+}
+
+/*
+ * Convert a unix datetime (1970/01/01 epoch) to an Excel serial date, with a
+ * 1900 or 1904 epoch.
+ */
+double
+lxw_unixtime_to_excel_date_epoch(int64_t unixtime, uint8_t date_1904)
+{
+    double excel_datetime = 0.0;
+    double epoch = date_1904 ? 24107.0 : 25568.0;
+
+    excel_datetime = epoch + (unixtime / (24 * 60 * 60.0));
+
+    if (!date_1904 && excel_datetime >= 60.0)
+        excel_datetime = excel_datetime + 1.0;
+
+    return excel_datetime;
+}
+
 /* Simple strdup() implementation since it isn't ANSI C. */
 char *
 lxw_strdup(const char *str)
@@ -524,7 +572,7 @@ lxw_quote_sheetname(const char *str)
  * version if required for safety or portability.
  */
 FILE *
-lxw_tmpfile(char *tmpdir)
+lxw_tmpfile(const char *tmpdir)
 {
 #ifndef USE_STANDARD_TMPFILE
     return tmpfileplus(tmpdir, NULL, NULL, 0);
@@ -534,34 +582,40 @@ lxw_tmpfile(char *tmpdir)
 #endif
 }
 
+/**
+ * Return a memory-backed file if supported, otherwise a temporary one
+ */
+FILE *
+lxw_get_filehandle(char **buf, size_t *size, const char *tmpdir)
+{
+    static size_t s;
+    if (!size)
+        size = &s;
+    *buf = NULL;
+    *size = 0;
+#ifdef USE_FMEMOPEN
+    (void) tmpdir;
+    return open_memstream(buf, size);
+#else
+    return lxw_tmpfile(tmpdir);
+#endif
+}
+
 /*
- * Sample function to handle sprintf of doubles for locale portable code. This
- * is usually handled by a lxw_sprintf_dbl() macro but it can be replaced with
- * a function of the same name.
- *
- * The code below is a simplified example that changes numbers like 123,45 to
- * 123.45. End-users can replace this with something more rigorous if
- * required.
+ * Use third party function to handle sprintf of doubles for locale portable
+ * code.
  */
-#ifdef USE_DOUBLE_FUNCTION
+#ifdef USE_DTOA_LIBRARY
 int
 lxw_sprintf_dbl(char *data, double number)
 {
-    char *tmp;
-
-    lxw_snprintf(data, LXW_ATTR_32, "%.16g", number);
-
-    /* Replace comma with decimal point. */
-    tmp = strchr(data, ',');
-    if (tmp)
-        *tmp = '.';
-
+    emyg_dtoa(number, data);
     return 0;
 }
 #endif
 
 /*
- * Retrieve runtime library version
+ * Retrieve runtime library version.
  */
 const char *
 lxw_version(void)
@@ -570,33 +624,79 @@ lxw_version(void)
 }
 
 /*
- * Hash a worksheet password. Based on the algorithm provided by Daniel Rentz
- * of OpenOffice.
+ * Retrieve runtime library version ID.
  */
 uint16_t
-lxw_hash_password(const char *password)
+lxw_version_id(void)
 {
-    size_t count;
-    uint8_t i;
-    uint16_t hash = 0x0000;
-
-    count = strlen(password);
+    return LXW_VERSION_ID;
+}
 
-    for (i = 0; i < count; i++) {
-        uint32_t low_15;
-        uint32_t high_15;
-        uint32_t letter = password[i] << (i + 1);
+/*
+ * Hash a worksheet password. Based on the algorithm in ECMA-376-4:2016,
+ * Office Open XML File Formats - Transitional Migration Features,
+ * Additional attributes for workbookProtection element (Part 1, §18.2.29).
+ */
+uint16_t
+lxw_hash_password(const char *password)
+{
+    uint16_t byte_count = (uint16_t) strlen(password);
+    uint16_t hash = 0;
+    const char *p = &password[byte_count];
 
-        low_15 = letter & 0x7fff;
-        high_15 = letter & (0x7fff << 15);
-        high_15 = high_15 >> 15;
-        letter = low_15 | high_15;
+    if (!byte_count)
+        return hash;
 
-        hash ^= letter;
+    while (p-- != password) {
+        hash = ((hash >> 14) & 0x01) | ((hash << 1) & 0x7fff);
+        hash ^= *p & 0xFF;
     }
 
-    hash ^= count;
+    hash = ((hash >> 14) & 0x01) | ((hash << 1) & 0x7fff);
+    hash ^= byte_count;
     hash ^= 0xCE4B;
 
     return hash;
 }
+
+/* Make a simple portable version of fopen() for Windows. */
+#ifdef __MINGW32__
+#undef _WIN32
+#endif
+
+#ifdef _WIN32
+
+#include <windows.h>
+
+FILE *
+lxw_fopen(const char *filename, const char *mode)
+{
+    int n;
+    wchar_t wide_filename[_MAX_PATH + 1] = L"";
+    wchar_t wide_mode[_MAX_PATH + 1] = L"";
+
+    n = MultiByteToWideChar(CP_UTF8, 0, filename, (int) strlen(filename),
+                            wide_filename, _MAX_PATH);
+
+    if (n == 0) {
+        LXW_ERROR("MultiByteToWideChar error: filename");
+        return NULL;
+    }
+
+    n = MultiByteToWideChar(CP_UTF8, 0, mode, (int) strlen(mode),
+                            wide_mode, _MAX_PATH);
+
+    if (n == 0) {
+        LXW_ERROR("MultiByteToWideChar error: mode");
+        return NULL;
+    }
+
+    return _wfopen(wide_filename, wide_mode);
+}
+#else
+FILE *
+lxw_fopen(const char *filename, const char *mode)
+{
+    return fopen(filename, mode);
+}
+#endif