ENDIF

IF TALLY(total$, "concat") OR nolex THEN
	WRITELN "char *__b2c__concat(int n, ...) { static char *buf[__b2c_STRING_FUNC] = { NULL }; static int idx = 0; long length = 0, buflen = 0, cnew; char *next; va_list ap; if (n == 0) { return (EmptyString); } idx++;" TO g_FUNCTIONS
	WRITELN "if (idx == __b2c_STRING_FUNC) { idx = 0; } va_start (ap, n); if(buf[idx]) { buflen = *(uint32_t*)(buf[idx]-__b2c__BUFOFFSET + 4); } while (n) { next = va_arg (ap, char *); if (next) { cnew = __b2c__len (next);" TO g_FUNCTIONS
	WRITELN "if(length+cnew >= buflen) { buf[idx] = (char *) __b2c_str_realloc (buf[idx], length + cnew); buflen = *(uint32_t*)(buf[idx]-__b2c__BUFOFFSET + 4); } memcpy(buf[idx] + length, next, cnew); length += cnew; }" TO g_FUNCTIONS
	WRITELN "n--; } va_end (ap); __b2c__SETLEN (buf[idx], length); buf[idx][length] = '\\0'; return ((char *) buf[idx]); }" TO g_FUNCTIONS
	WRITELN "char *__b2c__concat2 (int total, ...) { long length = 0, state = 0, offset = 0, buflen, cnew, flen; char *first, *next, *buffer, *forg; va_list ap; va_start (ap, total); buffer = va_arg (ap, char *); total--; if (total == 0) { return (EmptyString); }" TO g_FUNCTIONS

	WRITELN "first = buffer; flen = __b2c__len (first); forg = first; if (((uintptr_t) buffer & 1) && __b2c__INRANGE (buffer)) { buflen = *(uint32_t *) (buffer - __b2c__BUFOFFSET + 4); } else { buflen = flen; } next = va_arg (ap, char *); total--; if (total == 0)" TO g_FUNCTIONS
	WRITELN "{ return (first); } while (1) { if (next) { if (next == forg) { cnew = flen; } else { cnew = __b2c__len (next); } if (flen + length + cnew >= buflen) { buffer = (char *) __b2c_str_realloc (buffer, flen + length + cnew); buflen = *(uint32_t *) (buffer - __b2c__BUFOFFSET + 4);" TO g_FUNCTIONS
	WRITELN "first = buffer + offset; } if (next != forg) { if (state == 0) { memmove (buffer + length + cnew, first, flen); offset = length + cnew; first = buffer + offset; memmove (buffer + length, next, cnew); } else { memmove (buffer + flen + length, next, cnew); }" TO g_FUNCTIONS
	WRITELN "length += cnew; } else { if (state == 0) { state++; } else { memmove (buffer + flen + length, first, flen); length += cnew; } } } if (total) { next = va_arg (ap, char *); total--; } else { break; } } va_end (ap); if (state) { length += flen; }" TO g_FUNCTIONS
	WRITELN "__b2c__SETLEN (buffer, length); buffer[length] = '\\0'; return ((char *) buffer); }" TO g_FUNCTIONS
ENDIF

IF TALLY(total$, "count") OR nolex THEN
	WRITELN "long __b2c__count (int l, char *k, char *x, unsigned int y) { long i, z = 0; if (__b2c__option_utf8) { while (*x) { if (__b2c__utf8toasc (x) == y) { z++; } if ((*x & 0xF0) == 0xF0) { x += 4; }" TO g_FUNCTIONS
	WRITELN "else if ((*x & 0xE0) == 0xE0) { x += 3; } else if ((*x & 0xC0) == 0xC0) { x += 2; } else if ((*x & 0x80) == 0) { x++; } else { ERROR = 38; RUNTIMEFERR (\"COUNT\", ERROR, k, l); return(0); } } } else " TO g_FUNCTIONS
	WRITELN "{ for (i = 0; x[i] != '\\0'; i++) { if (x[i] == y) { z++; } } } return z; }" TO g_FUNCTIONS
ENDIF

if [[ ${TOTAL//concat/} != ${TOTAL} || ${NOLEX} -eq 1 ]]
then
    echo "char *__b2c__concat(int n, ...) { static char *buf[__b2c_STRING_FUNC] = { NULL }; static int idx = 0; long length = 0, buflen = 0, cnew; char *next; va_list ap; if (n == 0) { return (EmptyString); } idx++;" >> $g_FUNCTIONS
    echo "if (idx == __b2c_STRING_FUNC) { idx = 0; } va_start (ap, n); if(buf[idx]) { buflen = *(uint32_t*)(buf[idx]-__b2c__BUFOFFSET + 4); } while (n) { next = va_arg (ap, char *); if (next) { cnew = __b2c__len (next);" >> $g_FUNCTIONS
    echo "if(length+cnew >= buflen) { buf[idx] = (char *) __b2c_str_realloc (buf[idx], length + cnew); buflen = *(uint32_t*)(buf[idx]-__b2c__BUFOFFSET + 4); } memcpy(buf[idx] + length, next, cnew); length += cnew; }" >> $g_FUNCTIONS
    echo "n--; } va_end (ap); __b2c__SETLEN (buf[idx], length); buf[idx][length] = '\0'; return ((char *) buf[idx]); }" >> $g_FUNCTIONS
    echo "char *__b2c__concat2 (int total, ...) { long length = 0, state = 0, offset = 0, buflen, cnew, flen; char *first, *next, *buffer, *forg; va_list ap; va_start (ap, total); buffer = va_arg (ap, char *); total--; if (total == 0) { return (EmptyString); }" >> $g_FUNCTIONS

    echo "first = buffer; flen = __b2c__len (first); forg = first; if (((uintptr_t) buffer & 1) && __b2c__INRANGE (buffer)) { buflen = *(uint32_t *) (buffer - __b2c__BUFOFFSET + 4); } else { buflen = flen; } next = va_arg (ap, char *); total--; if (total == 0)" >> $g_FUNCTIONS
    echo "{ return (first); } while (1) { if (next) { if (next == forg) { cnew = flen; } else { cnew = __b2c__len (next); } if (flen + length + cnew >= buflen) { buffer = (char *) __b2c_str_realloc (buffer, flen + length + cnew); buflen = *(uint32_t *) (buffer - __b2c__BUFOFFSET + 4);" >> $g_FUNCTIONS
    echo "first = buffer + offset; } if (next != forg) { if (state == 0) { memmove (buffer + length + cnew, first, flen); offset = length + cnew; first = buffer + offset; memmove (buffer + length, next, cnew); } else { memmove (buffer + flen + length, next, cnew); }" >> $g_FUNCTIONS
    echo "length += cnew; } else { if (state == 0) { state++; } else { memmove (buffer + flen + length, first, flen); length += cnew; } } } if (total) { next = va_arg (ap, char *); total--; } else { break; } } va_end (ap); if (state) { length += flen; }" >> $g_FUNCTIONS
    echo "__b2c__SETLEN (buffer, length); buffer[length] = '\0'; return ((char *) buffer); }" >> $g_FUNCTIONS
fi

if [[ ${TOTAL//count/} != ${TOTAL} || ${NOLEX} -eq 1 ]]
then
    echo "long __b2c__count (int l, char *k, char *x, unsigned int y) { long i, z = 0; if (__b2c__option_utf8) { while (*x) { if (__b2c__utf8toasc (x) == y) { z++; } if ((*x & 0xF0) == 0xF0) { x += 4; }" >> $g_FUNCTIONS
    echo "else if ((*x & 0xE0) == 0xE0) { x += 3; } else if ((*x & 0xC0) == 0xC0) { x += 2; } else if ((*x & 0x80) == 0) { x++; } else { ERROR = 38; RUNTIMEFERR (\"COUNT\", ERROR, k, l); return(0); } } } else " >> $g_FUNCTIONS
    echo "{ for (i = 0; x[i] != '\0'; i++) { if (x[i] == y) { z++; } } } return z; }" >> $g_FUNCTIONS

+-------------------------------+
| 4.6.1 beta
+-------------------------------+
- Imp: added support for Haiku OS (all versions)
- Imp: extended BETWEEN functionality with BEYOND (all versions)
- Imp: added command line parameter '-r' to execute resulting binary after succesfull compilation (all versions)
- Imp: GUI functions now support TK as a backend (BaCon version)
- Imp: performance improvements in REGEX, WALK$, REPLACE$, EXTRACT$ (all versions)
- Imp: GETFILE can use optional FTYPE keyword to retrieve filetype (all versions)
- Imp: performance improvements in string concatenation (all versions)
- Fix: check on duplicate SUB or FUNCTION names (all versions - kudos rikky)
- Fix: memory leak in handling local string arrays (BaCon version)
- Fix: regression and improvement in RUN statement (BaCon resp. Shell version)
- Fix: type check in DECLARE/GLOBAL/LOCAL too strict (all versions - kudos rikky)
- Fix: syntax highlighting fixes (BaCon version, FLTK version)

November 1, 2022 - 4.6 stable