Fluid: Rebuilding most of the widget directory.

One file per logical unit.
Namespaces.
Non-static data member initializers to never
get an uninitialized field again.

1 files changed, 254 insertions, 0 deletions

diff --git a/fluid/widgets/Code_Editor.cxx b/fluid/widgets/Code_Editor.cxx
new file mode 100644
index 000000000..a145b5055
--- /dev/null
+++ b/fluid/widgets/Code_Editor.cxx
@@ -0,0 +1,254 @@
+//
+// Code editor widget for the Fast Light Tool Kit (FLTK).
+// Syntax highlighting rewritten by erco@seriss.com 09/15/20.
+//
+// Copyright 1998-2025 by Bill Spitzak and others.
+//
+// This library is free software. Distribution and use rights are outlined in
+// the file "COPYING" which should have been included with this file.  If this
+// file is missing or damaged, see the license at:
+//
+//     https://www.fltk.org/COPYING.php
+//
+// Please see the following page on how to report bugs and issues:
+//
+//     https://www.fltk.org/bugs.php
+//
+
+//
+// Include necessary headers...
+//
+
+#include "widgets/Code_Editor.h"
+
+using namespace fld;
+using namespace fld::widget;
+
+// ---- Code_Editor implementation
+
+/**
+ Lookup table for all supported styles.
+ Every table entry describes a rendering style for the corresponding text.
+ */
+Fl_Text_Display::Style_Table_Entry Code_Editor::styletable[] = {   // Style table
+                  { FL_FOREGROUND_COLOR, FL_COURIER,        11 }, // A - Plain
+                  { FL_DARK_GREEN,       FL_COURIER_ITALIC, 11 }, // B - Line comments
+                  { FL_DARK_GREEN,       FL_COURIER_ITALIC, 11 }, // C - Block comments
+                  { FL_BLUE,             FL_COURIER,        11 }, // D - Strings
+                  { FL_DARK_RED,         FL_COURIER,        11 }, // E - Directives
+                  { FL_DARK_RED,         FL_COURIER_BOLD,   11 }, // F - Types
+                  { FL_BLUE,             FL_COURIER_BOLD,   11 }, // G - Keywords
+                  { 220, /* med cyan */  FL_COURIER,        11 }  // H - Single quote chars
+                };
+
+/**
+ Parse text and produce style data.
+ \param[in] in_tbuff text buffer to parse
+ \param[inout] in_sbuff style buffer we modify
+ \param[in] in_len byte length to parse
+ \param[in] in_style starting style letter
+ */
+void Code_Editor::style_parse(const char *in_tbuff,         // text buffer to parse
+                             char       *in_sbuff,         // style buffer we modify
+                             int         in_len,           // byte length to parse
+                             char        in_style) {       // starting style letter
+  // Style letters:
+  //
+  // 'A' - Plain
+  // 'B' - Line comments  // ..
+  // 'C' - Block comments /*..*/
+  // 'D' - Strings        "xxx"
+  // 'E' - Directives     #define, #include..
+  // 'F' - Types          void, char..
+  // 'G' - Keywords       if, while..
+  // 'H' - Chars          'x'
+
+  Style_Parser sp;
+  sp.tbuff  = in_tbuff;
+  sp.sbuff  = in_sbuff;
+  sp.len    = in_len;
+  sp.style  = in_style;
+  sp.lwhite = 1;        // 1:while parsing over leading white and first char past, 0:past white
+  sp.col    = 0;
+  sp.last   = 0;
+
+  // Loop through the code, updating style buffer
+  char c;
+  while ( sp.len > 0 ) {
+    c = sp.tbuff[0];  // current char
+    if ( sp.style == 'C' ) {                              // Started in middle of comment block?
+      if ( !sp.parse_block_comment() ) break;
+    } else if ( strncmp(sp.tbuff, "/*", 2)==0 ) {         // C style comment block?
+      if ( !sp.parse_block_comment() ) break;
+    } else if ( c == '\\' ) {                             // Backslash escape char?
+      if ( !sp.parse_escape() ) break;
+    } else if ( strncmp(sp.tbuff, "//", 2)==0 ) {         // Line comment?
+      if ( !sp.parse_line_comment() ) break;
+    } else if ( c == '"' ) {                              // Start of double quoted string?
+      if ( !sp.parse_quoted_string('"', 'D') ) break;
+    } else if ( c == '\'' ) {                             // Start of single quoted string?
+      if ( !sp.parse_quoted_string('\'', 'H') ) break;
+    } else if ( c == '#' && sp.lwhite ) {                 // Start of '#' directive?
+      if ( !sp.parse_directive() ) break;
+    } else if ( !sp.last && (islower(c) || c == '_') ) {  // Possible C/C++ keyword?
+      if ( !sp.parse_keyword() ) break;
+    } else {                                              // All other chars?
+      if ( !sp.parse_all_else() ) break;
+    }
+  }
+}
+
+/**
+ Update unfinished styles.
+ */
+void Code_Editor::style_unfinished_cb(int, void*) {
+}
+
+/**
+ Update the style buffer.
+ \param[in] pos insert position in text
+ \param[in] nInserted number of bytes inserted
+ \param[in] nDeleted number of bytes deleted
+ \param[in] cbArg pointer back to the code editor
+ */
+void Code_Editor::style_update(int pos, int nInserted, int nDeleted,
+                              int /*nRestyled*/, const char * /*deletedText*/,
+                              void *cbArg) {
+  Code_Editor *editor = (Code_Editor*)cbArg;
+  char       *style,                         // Style data
+             *text;                          // Text data
+
+
+  // If this is just a selection change, just unselect the style buffer...
+  if (nInserted == 0 && nDeleted == 0) {
+    editor->mStyleBuffer->unselect();
+    return;
+  }
+
+  // Track changes in the text buffer...
+  if (nInserted > 0) {
+    // Insert characters into the style buffer...
+    style = new char[nInserted + 1];
+    memset(style, 'A', nInserted);
+    style[nInserted] = '\0';
+
+    editor->mStyleBuffer->replace(pos, pos + nDeleted, style);
+    delete[] style;
+  } else {
+    // Just delete characters in the style buffer...
+    editor->mStyleBuffer->remove(pos, pos + nDeleted);
+  }
+
+  // Select the area that was just updated to avoid unnecessary
+  // callbacks...
+  editor->mStyleBuffer->select(pos, pos + nInserted - nDeleted);
+
+  // Reparse whole buffer, don't get cute. Maybe optimize range later
+  int len = editor->buffer()->length();
+  text  = editor->mBuffer->text_range(0, len);
+  style = editor->mStyleBuffer->text_range(0, len);
+
+  style_parse(text, style, editor->mBuffer->length(), 'A');
+
+  editor->mStyleBuffer->replace(0, len, style);
+  editor->redisplay_range(0, len);
+  editor->redraw();
+
+  free(text);
+  free(style);
+}
+
+/**
+ Find the right indentation depth after pressing the Enter key.
+ \param[in] e pointer back to the code editor
+ */
+int Code_Editor::auto_indent(int, Code_Editor* e) {
+  if (e->buffer()->selected()) {
+    e->insert_position(e->buffer()->primary_selection()->start());
+    e->buffer()->remove_selection();
+  }
+
+  int pos = e->insert_position();
+  int start = e->line_start(pos);
+  char *text = e->buffer()->text_range(start, pos);
+  char *ptr;
+
+  for (ptr = text; isspace(*ptr); ptr ++) {/*empty*/}
+  *ptr = '\0';
+  if (*text) {
+    // use only a single 'insert' call to avoid redraw issues
+    size_t n = strlen(text);
+    char *b = (char*)malloc(n+2);
+    *b = '\n';
+    strcpy(b+1, text);
+    e->insert(b);
+    free(b);
+  } else {
+    e->insert("\n");
+  }
+  e->show_insert_position();
+  e->set_changed();
+  if (e->when()&FL_WHEN_CHANGED) e->do_callback(FL_REASON_CHANGED);
+
+  free(text);
+
+  return 1;
+}
+
+/**
+ Create a Code_Editor widget.
+ \param[in] X, Y, W, H position and size of the widget
+ \param[in] L optional label
+ */
+Code_Editor::Code_Editor(int X, int Y, int W, int H, const char *L) :
+  Fl_Text_Editor(X, Y, W, H, L) {
+  buffer(new Fl_Text_Buffer);
+
+  char *style = new char[mBuffer->length() + 1];
+  char *text = mBuffer->text();
+
+  memset(style, 'A', mBuffer->length());
+  style[mBuffer->length()] = '\0';
+
+  highlight_data(new Fl_Text_Buffer(mBuffer->length()), styletable,
+                 sizeof(styletable) / sizeof(styletable[0]),
+                 'A', style_unfinished_cb, this);
+
+  style_parse(text, style, mBuffer->length(), 'A');
+
+  mStyleBuffer->text(style);
+  delete[] style;
+  free(text);
+
+  mBuffer->add_modify_callback(style_update, this);
+  add_key_binding(FL_Enter, FL_TEXT_EDITOR_ANY_STATE,
+                  (Fl_Text_Editor::Key_Func)auto_indent);
+}
+
+/**
+ Destroy a Code_Editor widget.
+ */
+Code_Editor::~Code_Editor() {
+  Fl_Text_Buffer *buf = mStyleBuffer;
+  mStyleBuffer = 0;
+  delete buf;
+
+  buf = mBuffer;
+  buffer(0);
+  delete buf;
+}
+
+/**
+ Attempt to make the fluid code editor widget honor textsize setting.
+ This works by updating the fontsizes in the style table.
+ \param[in] s the new general height of the text font
+ */
+void Code_Editor::textsize(Fl_Fontsize s) {
+  Fl_Text_Editor::textsize(s); // call base class method
+  // now attempt to update our styletable to honor the new size...
+  int entries = sizeof(styletable) / sizeof(styletable[0]);
+  for(int iter = 0; iter < entries; iter++) {
+    styletable[iter].size = s;
+  }
+} // textsize
+