mathematical 1.3.0 → 1.4.0

data/ext/mathematical/mtex2MML/deps/uthash/utarray.h

@@ -37,6 +37,7 @@ SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 #include <stddef.h>  /* size_t */
 #include <string.h>  /* memset, etc */
 #include <stdlib.h>  /* exit */
+#include "../strdup/strdup.h"
 
 #define oom() exit(-1)
 

data/ext/mathematical/mtex2MML/src/{color_definitions.c → colors.c}

@@ -1,7 +1,6 @@
-#include "parse_extras.h"
-#include "../deps/uthash/uthash.h"
+#include "colors.h"
 
-void create_css_colors(struct css_colors **colors)
+void mtex2MML_create_css_colors(struct css_colors **colors)
 {
   const char **n, **h,
         *names[] = { "\"Apricot\"","\"Aquamarine\"","\"Bittersweet\"",

data/ext/mathematical/mtex2MML/src/colors.h

@@ -0,0 +1,23 @@
+#ifndef COLORS_H
+#define COLORS_H
+
+#include "../deps/uthash/uthash.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+struct css_colors {
+  char name[22];             /* key */
+  char color[10];
+  UT_hash_handle hh;         /* makes this structure hashable */
+};
+
+/* Assemble a mapping of color names */
+void mtex2MML_create_css_colors(struct css_colors **colors);
+
+#ifdef __cplusplus
+}
+#endif
+
+#endif /* ! COLORS_H */

data/ext/mathematical/mtex2MML/src/em.c

@@ -0,0 +1,99 @@
+#include "em.h"
+#include <stdio.h>
+#include <stdlib.h>
+#include "../deps/strdup/strdup.h"
+#include "../deps/uthash/utstring.h"
+
+float mtex2MML_extract_number_from_pxstring(char * str)
+{
+  float dbl;
+  int match = 0;
+
+  match = sscanf (str, "%*[^-0123456789]%f", &dbl);
+  if (match == 1) {
+    return dbl;
+  }
+
+  /* must not be a float */
+  sscanf (str, "%d", &match);
+  return (float) match;
+}
+
+char *mtex2MML_extract_string_from_pxstring(char * str)
+{
+  char *pixel;
+  float dbl;
+  pixel = malloc(3*sizeof(char));
+  sscanf (str, "%f%s", &dbl, pixel);
+  return pixel;
+}
+
+char *mtex2MML_dbl2em(char *str)
+{
+  float dbl;
+  char *em_str;
+  UT_string *em;
+  utstring_new(em);
+
+  dbl = mtex2MML_extract_number_from_pxstring(str);
+  dbl *= 0.056;
+
+  utstring_printf(em, "%.3fem", dbl);
+  em_str = strdup(utstring_body(em));
+
+  utstring_free(em);
+
+  return em_str;
+}
+
+char *mtex2MML_double_pixel(float f, char *pixel)
+{
+  float dbl;
+  char *em_str;
+  UT_string *em;
+  utstring_new(em);
+
+  dbl = f * 2;
+  utstring_printf(em, "%.3f%s", dbl, pixel);
+  em_str = strdup(utstring_body(em));
+
+  utstring_free(em);
+
+  return em_str;
+}
+
+char *mtex2MML_implement_skew(char *base_str, char *em_skew, char *pattern)
+{
+  char *skew_mathml_str;
+  UT_string *skew_mathml;
+  utstring_new(skew_mathml);
+
+  utstring_printf(skew_mathml, "%s%s%s", "<mrow><mrow><mrow><mover><mrow>", base_str, "<mspace width=\"");
+  utstring_printf(skew_mathml, "%s%s%s", em_skew, "\" /></mrow>", "<mo stretchy=\"false\">");
+  utstring_printf(skew_mathml, "%s%s%s", pattern, "</mo></mover></mrow><mspace width=\"-", em_skew);
+  utstring_printf(skew_mathml, "%s", "\" /></mrow><mrow></mrow></mrow>");
+
+  skew_mathml_str = strdup(utstring_body(skew_mathml));
+
+  utstring_free(skew_mathml);
+
+  return skew_mathml_str;
+}
+
+char *mtex2MML_root_pos_to_em(char * str)
+{
+  float dbl;
+  char *em_str;
+  UT_string *em;
+  utstring_new(em);
+
+  dbl = mtex2MML_extract_number_from_pxstring(str);
+  dbl /= 15;
+
+  utstring_printf(em, "%.3fem", dbl);
+  em_str = strdup(utstring_body(em));
+
+  utstring_free(em);
+
+  return em_str;
+}

data/ext/mathematical/mtex2MML/src/em.h

@@ -0,0 +1,31 @@
+#ifndef EM_H
+#define EM_H
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+/* given a pixel string, retrieve the numeric portion from it */
+float mtex2MML_extract_number_from_pxstring(char * str);
+
+/* given a pixel string, retrieve the pixel type portion from it */
+char *mtex2MML_extract_string_from_pxstring(char * str);
+
+/* given a number, return it as an em */
+char *mtex2MML_dbl2em(char *str);
+
+/* given a number, return it as a root position
+   taken straight from MathJax */
+char *mtex2MML_root_pos_to_em(char * str);
+
+/* given a number and a pixel string, return the doubled number */
+char *mtex2MML_double_pixel(float f, char *pixel);
+
+/* construct a skew sequence */
+char *mtex2MML_implement_skew(char *base_str, char *em_skew, char *pattern);
+
+#ifdef __cplusplus
+}
+#endif
+
+#endif /* ! EM_H */

data/ext/mathematical/mtex2MML/src/{parse_extras.c → environment.c}

@@ -3,7 +3,8 @@
 #include <string.h>
 #include <math.h>
 
-#include "parse_extras.h"
+#include "../deps/strdup/strdup.h"
+#include "environment.h"
 #include "string_extras.h"
 
 static const char *BEGIN = "\\begin";
@@ -15,9 +16,9 @@ const char *HLINE = "\\hline", *HDASHLINE = "\\hdashline",
              *CR_SEPARATOR = "\\cr",
               *NEWLINE_SEPARATOR = "\\newline",
                *EM_PATTERN_BEGIN = "\\[", *EM_PATTERN_END = "]",
-               *NOTAG = "\\notag", *NONUMBER = "\\nonumber";
+                *NOTAG = "\\notag", *NONUMBER = "\\nonumber";
 
-int determine_environment(const char *environment)
+int mtex2MML_determine_environment(const char *environment)
 {
   if (strstr(environment, "\\end{smallmatrix}") != NULL) {
     return ENV_SMALLMATRIX;
@@ -44,28 +45,27 @@ int determine_environment(const char *environment)
   return OTHER;
 }
 
-int identify_eqn_number(envType environment_type, char *line)
+int mtex2MML_identify_eqn_number(envType environment_type, char *line)
 {
-  // some environments have labelling for every row.
-  // supress it if it has a \notag or \nonumber
+  /* some environments have labelling for every row.
+     supress it if it has a \notag or \nonumber */
   if (environment_type == ENV_EQUATION || \
       environment_type == ENV_ALIGN || \
       environment_type == ENV_ALIGNAT ||
       environment_type == ENV_EQNARRAY) {
-        if (line == NULL)
-        return 1;
-        else
-     return !(strstr(line, NOTAG) != NULL || \
-             strstr(line, NONUMBER) != NULL);
-  }
-  else {
+    if (line == NULL) {
+      return 1;
+    } else
+      return !(strstr(line, NOTAG) != NULL || \
+               strstr(line, NONUMBER) != NULL);
+  } else {
     return 0;
   }
 }
 
-void env_replacements(UT_array **environment_data_stack, encaseType * encase, const char *environment)
+void mtex2MML_env_replacements(UT_array **environment_data_stack, encaseType **encase, const char *environment)
 {
-  // if not an environment, don't bother going on
+  /* if not an environment, don't bother going on */
   if ((strstr(environment, BEGIN) == NULL && strstr(environment, END) == NULL) || strstr(environment, BEGIN_SVG)) {
     return;
   }
@@ -79,12 +79,12 @@ void env_replacements(UT_array **environment_data_stack, encaseType * encase, co
         *temp = "", **prev_stack_item,
          *a, *em_str;
 
-  int rowlines_stack_len = 0, em_offset = 0, eqn = 0, i = 0, insertion_idx = 0;
+  unsigned int rowlines_stack_len = 0, eqn = 0, i = 0, insertion_idx = 0;
 
   char *dupe_environment = strdup(environment);
   char *line = strtok(dupe_environment, "\n");
 
-  // set up the array stack
+  /* set up the array stack */
   utarray_new(array_stack, &ut_str_icd);
   utarray_new(row_spacing_stack, &ut_str_icd);
   utarray_new(rowlines_stack, &ut_str_icd);
@@ -94,7 +94,7 @@ void env_replacements(UT_array **environment_data_stack, encaseType * encase, co
     utarray_push_back(array_stack, &line);
 
     if (strstr(line, END) != NULL) {
-      envType environment_type = determine_environment(line);
+      envType environment_type = mtex2MML_determine_environment(line);
 
       while (utarray_len(array_stack) > 0) {
         prev_stack_item = (char **)utarray_back(array_stack);
@@ -102,34 +102,34 @@ void env_replacements(UT_array **environment_data_stack, encaseType * encase, co
         rowlines_stack_len = utarray_len(rowlines_stack);
         at_top = strstr(*prev_stack_item, BEGIN);
 
-        // we've reached the top, but there looks like there might be some data
+        /* we've reached the top, but there looks like there might be some data */
         if (at_top != NULL && strstr(*prev_stack_item, LINE_SEPARATOR) == NULL && \
             strstr(*prev_stack_item, CR_SEPARATOR) == NULL && \
             strstr(*prev_stack_item, NEWLINE_SEPARATOR) == NULL) {
           if (strstr(*prev_stack_item, HLINE) != NULL || strstr(*prev_stack_item, HDASHLINE) != NULL) {
-            *encase = TOPENCLOSE;
+            *encase = (encaseType*)TOPENCLOSE;
           }
-          // TODO: not super confident this is bulletproof
+          /* TODO: not super confident this is bulletproof */
           if (rowlines_stack_len == 0) {
-            eqn = identify_eqn_number(environment_type, *prev_stack_item);
+            eqn = mtex2MML_identify_eqn_number(environment_type, *prev_stack_item);
             utarray_push_back(eqn_number_stack, &eqn);
           }
           break;
         }
 
-        // these environments are a bit...special. they still use
-        // the same line separators, so they tend to mess with "proper"
-        // labelled environments, because they exist within \begin{equation}
-        // if we find one, erase all the stored row info.
+        /* these environments are a bit...special. they still use
+           the same line separators, so they tend to mess with "proper"
+           labelled environments, because they exist within \begin{equation}
+           if we find one, erase all the stored row info. */
         if (strstr(*prev_stack_item, "\\eqalign") != NULL || \
-        strstr(*prev_stack_item, "\\split") != NULL) {
+            strstr(*prev_stack_item, "\\split") != NULL) {
           for (i = rowlines_stack_len; i > 1; i--) {
             utarray_pop_back(rowlines_stack);
             utarray_pop_back(eqn_number_stack);
           }
         }
 
-        // looking for a hline/hdashline match
+        /* looking for a hline/hdashline match */
         if (strstr(*prev_stack_item, HLINE) != NULL) {
           if (rowlines_stack_len > 0) {
             utarray_pop_back(rowlines_stack);
@@ -147,24 +147,24 @@ void env_replacements(UT_array **environment_data_stack, encaseType * encase, co
           utarray_push_back(rowlines_stack, &a);
         }
 
-        eqn = identify_eqn_number(environment_type, *prev_stack_item);
+        eqn = mtex2MML_identify_eqn_number(environment_type, *prev_stack_item);
         utarray_push_back(eqn_number_stack, &eqn);
 
-        // if there's a line break...
+        /* if there's a line break... */
         if (strstr(*prev_stack_item, LINE_SEPARATOR) != NULL || \
             strstr(*prev_stack_item, CR_SEPARATOR) != NULL || \
             strstr(*prev_stack_item, NEWLINE_SEPARATOR) != NULL) {
-          // ...with an emphasis match, add it...
+          /* ...with an emphasis match, add it... */
           if ( (tok = strstr(*prev_stack_item, EM_PATTERN_BEGIN)) != NULL) {
-            temp = tok + 2; // skip the first part ("\[")
+            temp = tok + 2; /* skip the first part ("\[") */
             if ( (tok = strstr(temp, EM_PATTERN_END)) != NULL) {
-              em_offset = (int)(tok - temp);
-              char *s = strndup(temp, em_offset);
+              mtex2MML_remove_last_char(temp);
+              char *s = strdup(temp);
               utarray_push_back(row_spacing_stack, &s);
               free(s);
             }
           }
-          // ...otherwise, use the default emphasis
+          /* ...otherwise, use the default emphasis */
           else {
             if (environment_type == ENV_SMALLMATRIX) {
               em_str = "0.2em";
@@ -181,25 +181,25 @@ void env_replacements(UT_array **environment_data_stack, encaseType * encase, co
           }
         }
 
-        // make sure to pop at the end here; it messes with some references in Travis/Ubuntu for some reason
+        /* make sure to pop at the end here; it messes with some references in Travis/Ubuntu for some reason */
         utarray_pop_back(array_stack);
 
-        // we've reached the top, so stop.
+        /* we've reached the top, so stop. */
         if (at_top != NULL) {
           break;
         }
       }
 
-      // some environments only have one label for the whole environment,
-      // rather than a label per row. in that case, jam a label
-      // in the middle.
+      /* some environments only have one label for the whole environment,
+         rather than a label per row. in that case, jam a label
+         in the middle. */
       if (environment_type == ENV_GATHER || environment_type == ENV_MULTLINE) {
         insertion_idx = ceil(utarray_len(eqn_number_stack) / 2);
         eqn = 1;
         utarray_insert(eqn_number_stack, &eqn, insertion_idx);
         utarray_pop_back(eqn_number_stack);
       }
-      perform_replacement(environment_data_stack, rowlines_stack, environment_type, eqn_number_stack, row_spacing_stack);
+      mtex2MML_perform_replacement(environment_data_stack, rowlines_stack, environment_type, eqn_number_stack, row_spacing_stack);
 
       utarray_clear(row_spacing_stack);
       utarray_clear(rowlines_stack);
@@ -218,27 +218,29 @@ void env_replacements(UT_array **environment_data_stack, encaseType * encase, co
   free(dupe_environment);
 }
 
-void perform_replacement(UT_array **environment_data_stack, UT_array *rowlines_stack, envType environment_type, UT_array *eqn_number_stack, UT_array *row_spacing_stack)
+void mtex2MML_perform_replacement(UT_array **environment_data_stack, UT_array *rowlines_stack, envType environment_type, UT_array *eqn_number_stack, UT_array *row_spacing_stack)
 {
   char *a, *attr_rowlines, *attr_rowspacing;
   envdata_t env_data;
 
-  // we cut the last char because we can always skip the first row
-  if (utarray_len(rowlines_stack) != 0)
+  /* we cut the last char because we can always skip the first row */
+  if (utarray_len(rowlines_stack) != 0) {
     utarray_pop_back(rowlines_stack);
+  }
 
-  if (utarray_len(eqn_number_stack) > 1)
+  if (utarray_len(eqn_number_stack) > 1) {
     utarray_erase(eqn_number_stack, 0, 1);
+  }
 
-  int line_count = utarray_len(rowlines_stack);
+  unsigned int line_count = utarray_len(rowlines_stack);
 
-  // empty rowlines should be reset
+  /* empty rowlines should be reset */
   if (line_count == 0) {
     a = "none";
     utarray_push_back(rowlines_stack, &a);
   }
 
-  // given the row_attribute values, construct an attribute list (separated by spaces)
+  /* given the row_attribute values, construct an attribute list (separated by spaces) */
   UT_string *l;
   utstring_new(l);
   char **o=NULL;
@@ -250,10 +252,10 @@ void perform_replacement(UT_array **environment_data_stack, UT_array *rowlines_s
 
   attr_rowlines = utstring_body(l);
   if (strlen(attr_rowlines) > 0) {
-    remove_last_char(attr_rowlines); // remove the final space
+    mtex2MML_remove_last_char(attr_rowlines); /* remove the final space */
   }
 
-  // given the row_spacing values, construct an attribute list (separated by spaces)
+  /* given the row_spacing values, construct an attribute list (separated by spaces) */
   UT_string *s;
   utstring_new(s);
   char **p=NULL;
@@ -269,7 +271,7 @@ void perform_replacement(UT_array **environment_data_stack, UT_array *rowlines_s
 
   attr_rowspacing = utstring_body(s);
   if (strlen(attr_rowspacing) > 0) {
-    remove_last_char(attr_rowspacing); // remove the final space
+    mtex2MML_remove_last_char(attr_rowspacing); /* remove the final space */
   } else {
     if (environment_type == ENV_SMALLMATRIX) {
       attr_rowspacing = "0.2em";
@@ -280,7 +282,7 @@ void perform_replacement(UT_array **environment_data_stack, UT_array *rowlines_s
     }
   }
 
-  // store pertinent metadata
+  /* store pertinent metadata */
   env_data.rowspacing = attr_rowspacing;
   env_data.rowlines = attr_rowlines;
   env_data.environment_type = environment_type;
@@ -292,23 +294,23 @@ void perform_replacement(UT_array **environment_data_stack, UT_array *rowlines_s
   utstring_free(s);
 }
 
-const char *vertical_pipe_extract(const char *string)
+char *mtex2MML_vertical_pipe_extract(char *string)
 {
   char *dupe = strdup(string);
   UT_string *columnlines, *border;
   char *previous_column = "", *attr_columnlines, *attr_border;
-  int i = 0;
+  unsigned int i = 0;
 
   utstring_new(columnlines);
   utstring_new(border);
 
-  // the first character (if it exists) determines the frame border
+  /* the first character (if it exists) determines the frame border */
   if (strncmp(dupe, "s", 1) == 0) {
     utstring_printf(columnlines, "%s", "frame=\"solid\" columnlines=\"");
-    remove_first_char(dupe);
+    mtex2MML_remove_first_char(dupe);
   } else if (strncmp(dupe, "d", 1) == 0) {
     utstring_printf(columnlines, "%s", "frame=\"dashed\" columnlines=\"");
-    remove_first_char(dupe);
+    mtex2MML_remove_first_char(dupe);
   } else {
     utstring_printf(columnlines, "%s", "columnlines=\"");
   }
@@ -323,8 +325,9 @@ const char *vertical_pipe_extract(const char *string)
       previous_column = "d";
       utstring_printf(border, "%s ", "dashed");
     } else {
-      if (i >= 1) { // we must skip the first blank col
-        // only if there is no previous border should a border be considered, eg. "cc", not "c|c"
+      /* we must skip the first blank col only if there is no previous border
+         should a border be considered, eg. "cc", not "c|c" */
+      if (i >= 1) {
         if (strncmp(previous_column, "s", 1) != 0 && strncmp(previous_column, "d", 1) != 0) {
           utstring_printf(border, "%s ", "none");
         }
@@ -338,11 +341,11 @@ const char *vertical_pipe_extract(const char *string)
 
   attr_border = utstring_body(border);
   if (strlen(attr_border) > 0) {
-    remove_last_char(attr_border); // remove the final space
+    mtex2MML_remove_last_char(attr_border); /* remove the final space */
   }
   utstring_printf(columnlines, "%s", attr_border);
 
-  // an empty string here angers Lasem, so let's remember to add 'none'
+  /* an empty string here angers Lasem, so let's remember to add 'none' */
   if (utstring_len(border) == 0) {
     utstring_printf(columnlines, "%s", "none");
   }
@@ -355,7 +358,7 @@ const char *vertical_pipe_extract(const char *string)
   return attr_columnlines;
 }
 
-const char *remove_excess_pipe_chars(const char *string)
+char *mtex2MML_remove_excess_pipe_chars(char *string)
 {
   UT_string *columnalign;
   utstring_new(columnalign);
@@ -376,15 +379,15 @@ const char *remove_excess_pipe_chars(const char *string)
   utstring_free(columnalign);
 
   if (strlen(attr_columnalign) > 0) {
-    remove_last_char(attr_columnalign); // remove the final space
+    mtex2MML_remove_last_char(attr_columnalign); /* remove the final space */
   }
 
   return attr_columnalign;
 }
 
-const char *combine_row_data(UT_array **environment_data_stack)
+char *mtex2MML_combine_row_data(UT_array **environment_data_stack)
 {
-  // if no information was provided, give a standard sizing
+  /* if no information was provided, give a standard sizing */
   if (utarray_len(*environment_data_stack) == 0) {
     const char* s = "rowspacing=\"0.5ex\" rowlines=\"none\"";
     char* c = (char*)malloc(strlen(s) + 1);
@@ -400,7 +403,7 @@ const char *combine_row_data(UT_array **environment_data_stack)
   UT_string *row_attr_data;
   utstring_new(row_attr_data);
 
-  // combine the row spacing and row lines data
+  /* combine the row spacing and row lines data */
   utstring_printf(row_attr_data, "%s%s\" %s\"", "rowspacing=\"", row_spacing_data, row_lines_data);
 
   row_attr = strdup(utstring_body(row_attr_data));
@@ -411,9 +414,9 @@ const char *combine_row_data(UT_array **environment_data_stack)
   return row_attr;
 }
 
-int fetch_eqn_number(UT_array **environment_data_stack)
+int mtex2MML_fetch_eqn_number(UT_array **environment_data_stack)
 {
-  // if no information was provided, expect nothing
+  /* if no information was provided, expect nothing */
   if (utarray_len(*environment_data_stack) == 0) {
     return 0;
   }
@@ -429,94 +432,7 @@ int fetch_eqn_number(UT_array **environment_data_stack)
   return *e;
 }
 
-float extract_number_from_pxstring(const char * str)
-{
-  float dbl;
-  int match = 0;
-
-  match = sscanf (str, "%*[^-0123456789]%f", &dbl);
-  if (match == 1) {
-    return dbl;
-  }
-
-  // must not be a float.
-  sscanf (str, "%d", &match);
-  return (float) match;
-}
-
-const char *extract_string_from_pxstring(const char * str)
-{
-  char *pixel;
-  float dbl;
-  pixel = malloc(3*sizeof(char));
-  sscanf (str, "%f%s", &dbl, pixel);
-  return pixel;
-}
-
-const char * dbl2em(const char *str)
-{
-  UT_string *em;
-  utstring_new(em);
-
-  float dbl = extract_number_from_pxstring(str);
-  dbl *= 0.056;
-
-  utstring_printf(em, "%.3fem", dbl);
-  char * em_str = strdup(utstring_body(em));
-
-  utstring_free(em);
-
-  return em_str;
-}
-
-const char * double_pixel(float f, char *pixel)
-{
-  UT_string *em;
-  utstring_new(em);
-
-  float dbl = f * 2;
-  utstring_printf(em, "%.3f%s", dbl, pixel);
-  char * em_str = strdup(utstring_body(em));
-
-  utstring_free(em);
-
-  return em_str;
-}
-
-const char * implement_skew(char *base_str, char *em_skew, char *pattern)
-{
-  UT_string *skew_mathml;
-  utstring_new(skew_mathml);
-
-  utstring_printf(skew_mathml, "%s%s%s", "<mrow><mrow><mrow><mover><mrow>", base_str, "<mspace width=\"");
-  utstring_printf(skew_mathml, "%s%s%s", em_skew, "\" /></mrow>", "<mo stretchy=\"false\">");
-  utstring_printf(skew_mathml, "%s%s%s", pattern, "</mo></mover></mrow><mspace width=\"-", em_skew);
-  utstring_printf(skew_mathml, "%s", "\" /></mrow><mrow></mrow></mrow>");
-
-  char * skew_mathml_str = strdup(utstring_body(skew_mathml));
-
-  utstring_free(skew_mathml);
-
-  return skew_mathml_str;
-}
-
-const char * root_pos_to_em(const char * str)
-{
-  UT_string *em;
-  utstring_new(em);
-
-  float dbl = extract_number_from_pxstring(str);
-  dbl /= 15;
-
-  utstring_printf(em, "%.3fem", dbl);
-  char * em_str = strdup(utstring_body(em));
-
-  utstring_free(em);
-
-  return em_str;
-}
-
-envType current_env_type(UT_array **environment_data_stack)
+envType mtex2MML_current_env_type(UT_array **environment_data_stack)
 {
   if (utarray_len(*environment_data_stack) == 0) {
     return -1;
@@ -527,7 +443,7 @@ envType current_env_type(UT_array **environment_data_stack)
   return row_data_elem->environment_type;
 }
 
-int current_env_line_count(UT_array **environment_data_stack)
+int mtex2MML_current_env_line_count(UT_array **environment_data_stack)
 {
   if (utarray_len(*environment_data_stack) == 0) {
     return -1;