1 files changed, 548 insertions, 0 deletions

diff --git a/fluid/codeview_panel.cxx b/fluid/codeview_panel.cxx
new file mode 100644
index 000000000..0ca8c0d3a
--- /dev/null
+++ b/fluid/codeview_panel.cxx
@@ -0,0 +1,548 @@
+//
+// Code dialogs for the Fast Light Tool Kit (FLTK).
+//
+// Copyright 1998-2023 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
+//
+
+// generated by Fast Light User Interface Designer (fluid) version 1.0400
+
+#include "codeview_panel.h"
+#include "fluid.h"
+#include "file.h"
+#include "../src/flstring.h"
+#include <FL/Fl_Tabs.H>
+#include <FL/Fl_Button.H>
+static char *cv_source_filename = NULL;
+static char *cv_header_filename = NULL;
+static char *cv_design_filename = NULL;
+int cv_code_choice;
+extern void select_only(Fl_Type *o);
+extern void reveal_in_browser(Fl_Type *t);
+
+/**
+ Update the header and source code highlighting depending on the
+ currently selected object
+ 
+ The Code View system offers an immediate preview of the code
+ files that will be generated by FLUID. It also marks the code
+ generated for the last selected item in the header and the source
+ file.
+*/
+void update_codeview_position() {
+  if (!codeview_panel || !codeview_panel->visible())
+      return;
+    if (cv_autoposition->value()==0)
+      return;
+    if (codeview_panel && codeview_panel->visible() && Fl_Type::current) {
+      int pos0 = 0, pos1 = 0;
+      if (cv_source->visible_r()) {
+        switch (cv_code_choice) {
+          case 0: // prolog: not yet (include statements)
+            pos0 = Fl_Type::current->code1_start;
+            pos1 = Fl_Type::current->code2_end;
+            break;
+          case 1: // static: callbacks, menu declarations
+            pos0 = Fl_Type::current->code_static_start;
+            pos1 = Fl_Type::current->code_static_end;
+            break;
+          case 2: // code: entire implementation block including children
+            pos0 = Fl_Type::current->code1_start;
+            pos1 = Fl_Type::current->code2_end;
+            break;
+          case 3: // code1: all implementation code before the children
+            pos0 = Fl_Type::current->code1_start;
+            pos1 = Fl_Type::current->code1_end;
+            break;
+          case 4: // code1: all implementation code before the children
+            pos0 = Fl_Type::current->code2_start;
+            pos1 = Fl_Type::current->code2_end;
+            break;
+        }
+        if (pos0>=0) {
+          if (pos1<pos0)
+            pos1 = cv_source->buffer()->line_end(pos0);
+          cv_source->buffer()->highlight(pos0, pos1);
+          int line = cv_source->buffer()->count_lines(0, pos0);
+          cv_source->scroll(line, 0);
+        }
+      }
+      if (cv_header->visible_r()) {
+        switch (cv_code_choice) {
+          case 0: // prolog: not yet (include statements)
+          case 1: // static: callbacks, menu declarations
+            pos0 = Fl_Type::current->header_static_start;
+            pos1 = Fl_Type::current->header_static_end;
+            break;
+          case 2: // code: entire implementation block including children
+            pos0 = Fl_Type::current->header1_start;
+            pos1 = Fl_Type::current->header2_end;
+            break;
+          case 3: // code1: all implementation code before the children
+            pos0 = Fl_Type::current->header1_start;
+            pos1 = Fl_Type::current->header1_end;
+            break;
+          case 4: // code1: all implementation code before the children
+            pos0 = Fl_Type::current->header2_start;
+            pos1 = Fl_Type::current->header2_end;
+            break;
+        }
+        if (pos0>=0) {
+          if (pos1<pos0)
+            pos1 = cv_header->buffer()->line_end(pos0);
+          cv_header->buffer()->highlight(pos0, pos1);
+          int line = cv_header->buffer()->count_lines(0, pos0);
+          cv_header->scroll(line, 0);
+        }
+      }
+      if (cv_project->visible_r()) {
+        switch (cv_code_choice) {
+          case 0: // prolog: not yet (include statements)
+          case 1: // static: callbacks, menu declarations
+          case 2: // code: entire implementation block including children
+            pos0 = Fl_Type::current->proj1_start;
+            pos1 = Fl_Type::current->proj2_end;
+            break;
+          case 3: // code1: all implementation code before the children
+            pos0 = Fl_Type::current->proj1_start;
+            pos1 = Fl_Type::current->proj1_end;
+            break;
+          case 4: // code1: all implementation code before the children
+            pos0 = Fl_Type::current->proj2_start;
+            pos1 = Fl_Type::current->proj2_end;
+            break;
+        }
+        if (pos0>=0) {
+          if (pos1<pos0)
+            pos1 = cv_project->buffer()->line_end(pos0);
+          cv_project->buffer()->highlight(pos0, pos1);
+          int line = cv_project->buffer()->count_lines(0, pos0);
+          cv_project->scroll(line, 0);
+        }
+      }
+    }
+}
+
+/**
+ Callback to update the codeview position.
+*/
+void update_codeview_position_cb(class Fl_Tabs*, void*) {
+  // make sure that the selected tab shows the current view
+    update_codeview_cb(0,0);
+    // highlight the selected widget in the selected tab
+    update_codeview_position();
+}
+
+/**
+ Generate a header, source, strings, or design file in a temporary directory
+ and load those into the Code Viewer widgets.
+*/
+void update_codeview_cb(class Fl_Button*, void*) {
+  if (!codeview_panel || !codeview_panel->visible())
+      return;
+
+    if (!cv_source_filename) {
+      cv_source_filename = (char*)malloc(FL_PATH_MAX);
+      fl_strlcpy(cv_source_filename, get_tmpdir().c_str(), FL_PATH_MAX);
+      fl_strlcat(cv_source_filename, "codeview_tmp.cxx", FL_PATH_MAX);
+    }
+    if (!cv_header_filename) {
+      cv_header_filename = (char*)malloc(FL_PATH_MAX);
+      fl_strlcpy(cv_header_filename, get_tmpdir().c_str(), FL_PATH_MAX);
+      fl_strlcat(cv_header_filename, "codeview_tmp.h", FL_PATH_MAX);
+    }
+    if (!cv_design_filename) {
+      cv_design_filename = (char*)malloc(FL_PATH_MAX);
+      fl_strlcpy(cv_design_filename, get_tmpdir().c_str(), FL_PATH_MAX);
+      fl_strlcat(cv_design_filename, "codeview_tmp.fl", FL_PATH_MAX);
+    }
+
+    if (cv_project->visible_r()) {
+      write_file(cv_design_filename, false, true);
+      int top = cv_project->top_line();
+      cv_project->buffer()->loadfile(cv_design_filename);
+      cv_project->scroll(top, 0);
+    } else if (cv_strings->visible_r()) {
+      static const char *exts[] = { ".txt", ".po", ".msg" };
+      char fn[FL_PATH_MAX+1];
+      fl_strlcpy(fn, get_tmpdir().c_str(), FL_PATH_MAX);
+      fl_strlcat(fn, "strings", FL_PATH_MAX);
+      fl_filename_setext(fn, FL_PATH_MAX, exts[g_project.i18n_type]);
+      write_strings(fn);
+      int top = cv_strings->top_line();
+      cv_strings->buffer()->loadfile(fn);
+      cv_strings->scroll(top, 0);
+    } else if (cv_source->visible_r() || cv_header->visible_r()) {
+      Fl_String code_file_name_bak = g_project.code_file_name;
+      g_project.code_file_name = cv_source_filename;
+      Fl_String header_file_name_bak = g_project.header_file_name;
+      g_project.header_file_name = cv_header_filename;
+
+      // generate the code and load the files
+      Fd_Code_Writer f;
+      // generate files
+      if (f.write_code(cv_source_filename, cv_header_filename, true))
+      {
+        // load file into source editor
+        int pos = cv_source->top_line();
+        cv_source->buffer()->loadfile(cv_source_filename);
+        cv_source->scroll(pos, 0);
+        // load file into header editor
+        pos = cv_header->top_line();
+        cv_header->buffer()->loadfile(cv_header_filename);
+        cv_header->scroll(pos, 0);
+        // update the source code highlighting
+        update_codeview_position();
+      }
+
+      g_project.code_file_name = code_file_name_bak;
+      g_project.header_file_name = header_file_name_bak;
+    }
+}
+
+/**
+ This is called by the timer itself
+*/
+void update_codeview_timer(void*) {
+  update_codeview_cb(0,0);
+}
+
+void codeview_defer_update() {
+  // we will only update earliest 0.5 seconds after the last change, and only
+      // if no other change was made, so dragging a widget will not generate any
+      // CPU load
+      Fl::remove_timeout(update_codeview_timer, 0);
+      Fl::add_timeout(0.5, update_codeview_timer, 0);
+}
+
+/**
+ Show or hide the source code preview.
+ The state is stored in the app preferences.
+*/
+void codeview_toggle_visibility() {
+  if (!codeview_panel) {
+      make_codeview();
+      codeview_panel->callback((Fl_Callback*)toggle_codeview_cb);
+      Fl_Preferences svp(fluid_prefs, "codeview");
+      int autorefresh;
+      svp.get("autorefresh", autorefresh, 1);
+      cv_autorefresh->value(autorefresh);
+      int autoposition;
+      svp.get("autoposition", autoposition, 1);
+      cv_autoposition->value(autoposition);
+      int tab;
+      svp.get("tab", tab, 0);
+      if (tab>=0 && tab<cv_tab->children()) cv_tab->value(cv_tab->child(tab));
+      svp.get("code_choice", cv_code_choice, 2);
+      cv_code_choice_w->value(cv_code_choice_w->find_item_with_argument(cv_code_choice));
+      if (!position_window(codeview_panel,"codeview_pos", 0, 320, 120, 550, 500)) return;
+    }
+
+    if (codeview_panel->visible()) {
+      codeview_panel->hide();
+      codeview_item->label("Show Code View");
+    } else {
+      codeview_panel->show();
+      codeview_item->label("Hide Code View");
+      update_codeview_cb(0,0);
+    }
+}
+
+Fl_Double_Window *codeview_panel=(Fl_Double_Window *)0;
+
+Fl_Tabs *cv_tab=(Fl_Tabs *)0;
+
+Fl_Group *cv_source_tab=(Fl_Group *)0;
+
+CodeViewer *cv_source=(CodeViewer *)0;
+
+CodeViewer *cv_header=(CodeViewer *)0;
+
+TextViewer *cv_strings=(TextViewer *)0;
+
+TextViewer *cv_project=(TextViewer *)0;
+
+Fl_Group *cv_find_row=(Fl_Group *)0;
+
+Fl_Button *cv_find_text_case=(Fl_Button *)0;
+
+Fl_Input *cv_find_text=(Fl_Input *)0;
+
+static void cb_cv_find_text(Fl_Input* o, void*) {
+  Fl_Text_Display *e = NULL;
+  if (cv_source->visible_r()) {
+    e = cv_source;
+  } else if (cv_header->visible_r()) {
+    e = cv_header;
+  } else if (cv_project->visible_r()) {
+    e = cv_project;
+  }
+  if (e) {
+    Fl_Text_Buffer *b = e->buffer();
+    int pos = e->insert_position();
+    int found = b->search_forward(pos, o->value(), &pos, cv_find_text_case->value());
+    if (found) {
+      b->select(pos, pos + (int)strlen(o->value()));
+      e->insert_position(pos);
+      e->show_insert_position();
+    }
+  }
+}
+
+static void cb_(Fl_Button*, void*) {
+  Fl_Text_Display *e = NULL;
+  if (cv_source->visible_r()) {
+    e = cv_source;
+  } else if (cv_header->visible_r()) {
+    e = cv_header;
+  } else if (cv_project->visible_r()) {
+    e = cv_project;
+  }
+  if (e) {
+    const char *needle = cv_find_text->value();
+    Fl_Text_Buffer *b = e->buffer();
+    int pos = e->insert_position()-1;
+    if (pos < 0) pos = b->length()-1;
+    int found = b->search_backward(pos, needle, &pos, cv_find_text_case->value());
+    if (!found)
+      found = b->search_backward(b->length()-1, needle, &pos, cv_find_text_case->value());
+    if (found) {
+      b->select(pos, pos + (int)strlen(needle));
+      e->insert_position(pos);
+      e->show_insert_position();
+    }
+  }
+}
+
+static void cb_1(Fl_Button*, void*) {
+  Fl_Text_Display *e = NULL;
+  if (cv_source->visible_r()) {
+    e = cv_source;
+  } else if (cv_header->visible_r()) {
+    e = cv_header;
+  } else if (cv_project->visible_r()) {
+    e = cv_project;
+  }
+  if (e) {
+    const char *needle = cv_find_text->value();
+    Fl_Text_Buffer *b = e->buffer();
+    int pos = e->insert_position() + 1;
+    if (pos+1 >= b->length()) pos = 0;
+    int found = b->search_forward(pos, needle, &pos, cv_find_text_case->value());
+    if (!found && (pos > 0))
+      found = b->search_forward(0, needle, &pos, cv_find_text_case->value());
+    if (found) {
+      b->select(pos, pos + (int)strlen(needle));
+      e->insert_position(pos);
+      e->show_insert_position();
+    }
+  }
+}
+
+static void cb_Reveal(Fl_Button*, void*) {
+  if (codeview_panel && codeview_panel->visible()) {
+    Fl_Type *node = NULL;
+    if (cv_source->visible_r())
+      node = Fl_Type::find_in_text(0, cv_source->insert_position());
+    else if (cv_header->visible_r())
+      node = Fl_Type::find_in_text(1, cv_header->insert_position());
+    else if (cv_project->visible_r())
+      node = Fl_Type::find_in_text(2, cv_project->insert_position());
+    if (node) {
+      select_only(node);
+      reveal_in_browser(node);
+      if (Fl::event_clicks()==1) // double click
+        node->open();
+    }
+  }
+}
+
+Fl_Group *cv_settings_row=(Fl_Group *)0;
+
+Fl_Light_Button *cv_autorefresh=(Fl_Light_Button *)0;
+
+Fl_Light_Button *cv_autoposition=(Fl_Light_Button *)0;
+
+Fl_Choice *cv_code_choice_w=(Fl_Choice *)0;
+
+static void cb_cv_code_choice_w(Fl_Choice* o, void*) {
+  cv_code_choice = (int)o->mvalue()->argument();
+  update_codeview_position();
+}
+
+Fl_Menu_Item menu_cv_code_choice_w[] = {
+ {"prolog", 0,  0, (void*)(0), 16, (uchar)FL_NORMAL_LABEL, 0, 11, 0},
+ {"static", 0,  0, (void*)(1), 0, (uchar)FL_NORMAL_LABEL, 0, 11, 0},
+ {"code", 0,  0, (void*)(2), 0, (uchar)FL_NORMAL_LABEL, 0, 11, 0},
+ {"code 1", 0,  0, (void*)(3), 0, (uchar)FL_NORMAL_LABEL, 0, 11, 0},
+ {"code 2", 0,  0, (void*)(4), 0, (uchar)FL_NORMAL_LABEL, 0, 11, 0},
+ {0,0,0,0,0,0,0,0,0}
+};
+
+Fl_Double_Window* make_codeview() {
+  { codeview_panel = new Fl_Double_Window(520, 515, "Code View");
+    codeview_panel->callback((Fl_Callback*)toggle_codeview_cb);
+    codeview_panel->align(Fl_Align(FL_ALIGN_CLIP|FL_ALIGN_INSIDE));
+    { cv_tab = new Fl_Tabs(10, 10, 500, 440);
+      cv_tab->selection_color((Fl_Color)4);
+      cv_tab->labelcolor(FL_BACKGROUND2_COLOR);
+      cv_tab->callback((Fl_Callback*)update_codeview_position_cb);
+      { cv_source_tab = new Fl_Group(10, 35, 500, 415, "Source");
+        cv_source_tab->labelsize(13);
+        { CodeViewer* o = cv_source = new CodeViewer(10, 40, 500, 410);
+          cv_source->box(FL_DOWN_FRAME);
+          cv_source->color(FL_BACKGROUND2_COLOR);
+          cv_source->selection_color(FL_SELECTION_COLOR);
+          cv_source->labeltype(FL_NORMAL_LABEL);
+          cv_source->labelfont(0);
+          cv_source->labelsize(14);
+          cv_source->labelcolor(FL_FOREGROUND_COLOR);
+          cv_source->textfont(4);
+          cv_source->textsize(11);
+          cv_source->align(Fl_Align(FL_ALIGN_TOP));
+          cv_source->when(FL_WHEN_RELEASE);
+          Fl_Group::current()->resizable(cv_source);
+          o->linenumber_width(60);
+          o->linenumber_size(o->Fl_Text_Display::textsize());
+        } // CodeViewer* cv_source
+        cv_source_tab->end();
+        Fl_Group::current()->resizable(cv_source_tab);
+      } // Fl_Group* cv_source_tab
+      { Fl_Group* o = new Fl_Group(10, 35, 500, 415, "Header");
+        o->labelsize(13);
+        o->hide();
+        { CodeViewer* o = cv_header = new CodeViewer(10, 40, 500, 410);
+          cv_header->box(FL_DOWN_FRAME);
+          cv_header->color(FL_BACKGROUND2_COLOR);
+          cv_header->selection_color(FL_SELECTION_COLOR);
+          cv_header->labeltype(FL_NORMAL_LABEL);
+          cv_header->labelfont(0);
+          cv_header->labelsize(14);
+          cv_header->labelcolor(FL_FOREGROUND_COLOR);
+          cv_header->textfont(4);
+          cv_header->textsize(11);
+          cv_header->align(Fl_Align(FL_ALIGN_TOP));
+          cv_header->when(FL_WHEN_RELEASE);
+          Fl_Group::current()->resizable(cv_header);
+          o->linenumber_width(60);
+          o->linenumber_size(o->Fl_Text_Display::textsize());
+        } // CodeViewer* cv_header
+        o->end();
+      } // Fl_Group* o
+      { Fl_Group* o = new Fl_Group(10, 35, 500, 415, "Strings");
+        o->labelsize(13);
+        o->hide();
+        { TextViewer* o = cv_strings = new TextViewer(10, 40, 500, 410);
+          cv_strings->box(FL_DOWN_FRAME);
+          cv_strings->color(FL_BACKGROUND2_COLOR);
+          cv_strings->selection_color(FL_SELECTION_COLOR);
+          cv_strings->labeltype(FL_NORMAL_LABEL);
+          cv_strings->labelfont(0);
+          cv_strings->labelsize(14);
+          cv_strings->labelcolor(FL_FOREGROUND_COLOR);
+          cv_strings->textfont(4);
+          cv_strings->textsize(11);
+          cv_strings->align(Fl_Align(FL_ALIGN_TOP));
+          cv_strings->when(FL_WHEN_RELEASE);
+          Fl_Group::current()->resizable(cv_strings);
+          o->linenumber_width(60);
+          o->linenumber_size(o->Fl_Text_Display::textsize());
+        } // TextViewer* cv_strings
+        o->end();
+      } // Fl_Group* o
+      { Fl_Group* o = new Fl_Group(10, 35, 500, 415, "Project");
+        o->labelsize(13);
+        o->hide();
+        { TextViewer* o = cv_project = new TextViewer(10, 40, 500, 410);
+          cv_project->box(FL_DOWN_FRAME);
+          cv_project->color(FL_BACKGROUND2_COLOR);
+          cv_project->selection_color(FL_SELECTION_COLOR);
+          cv_project->labeltype(FL_NORMAL_LABEL);
+          cv_project->labelfont(0);
+          cv_project->labelsize(14);
+          cv_project->labelcolor(FL_FOREGROUND_COLOR);
+          cv_project->textfont(4);
+          cv_project->textsize(11);
+          cv_project->align(Fl_Align(FL_ALIGN_TOP));
+          cv_project->when(FL_WHEN_RELEASE);
+          Fl_Group::current()->resizable(cv_project);
+          o->linenumber_width(60);
+          o->linenumber_size(o->Fl_Text_Display::textsize());
+        } // TextViewer* cv_project
+        o->end();
+      } // Fl_Group* o
+      cv_tab->end();
+      Fl_Group::current()->resizable(cv_tab);
+    } // Fl_Tabs* cv_tab
+    { cv_find_row = new Fl_Group(10, 460, 500, 20);
+      { cv_find_text_case = new Fl_Button(244, 460, 25, 20, "aA");
+        cv_find_text_case->type(1);
+        cv_find_text_case->labelsize(11);
+      } // Fl_Button* cv_find_text_case
+      { cv_find_text = new Fl_Input(40, 460, 200, 20, "Find:");
+        cv_find_text->labelsize(11);
+        cv_find_text->textsize(11);
+        cv_find_text->callback((Fl_Callback*)cb_cv_find_text);
+        cv_find_text->when(FL_WHEN_RELEASE | FL_WHEN_ENTER_KEY_CHANGED);
+      } // Fl_Input* cv_find_text
+      { Fl_Button* o = new Fl_Button(273, 460, 25, 20, "<<");
+        o->labelsize(11);
+        o->callback((Fl_Callback*)cb_);
+      } // Fl_Button* o
+      { Fl_Button* o = new Fl_Button(298, 460, 25, 20, ">>");
+        o->labelsize(11);
+        o->callback((Fl_Callback*)cb_1);
+      } // Fl_Button* o
+      { Fl_Button* o = new Fl_Button(327, 460, 61, 20, "Reveal");
+        o->labelsize(11);
+        o->callback((Fl_Callback*)cb_Reveal);
+      } // Fl_Button* o
+      { Fl_Box* o = new Fl_Box(490, 460, 20, 20);
+        Fl_Group::current()->resizable(o);
+      } // Fl_Box* o
+      cv_find_row->end();
+    } // Fl_Group* cv_find_row
+    { cv_settings_row = new Fl_Group(10, 485, 500, 20);
+      { Fl_Button* o = new Fl_Button(10, 485, 61, 20, "Refresh");
+        o->labelsize(11);
+        o->callback((Fl_Callback*)update_codeview_cb);
+      } // Fl_Button* o
+      { Fl_Light_Button* o = cv_autorefresh = new Fl_Light_Button(77, 485, 91, 20, "Auto-Refresh");
+        cv_autorefresh->labelsize(11);
+        o->callback((Fl_Callback*)update_codeview_cb);
+      } // Fl_Light_Button* cv_autorefresh
+      { cv_autoposition = new Fl_Light_Button(172, 485, 89, 20, "Auto-Position");
+        cv_autoposition->labelsize(11);
+      } // Fl_Light_Button* cv_autoposition
+      { cv_code_choice_w = new Fl_Choice(265, 485, 70, 20);
+        cv_code_choice_w->down_box(FL_BORDER_BOX);
+        cv_code_choice_w->labelsize(11);
+        cv_code_choice_w->textsize(11);
+        cv_code_choice_w->callback((Fl_Callback*)cb_cv_code_choice_w);
+        cv_code_choice_w->menu(menu_cv_code_choice_w);
+      } // Fl_Choice* cv_code_choice_w
+      { Fl_Box* o = new Fl_Box(375, 485, 80, 20);
+        Fl_Group::current()->resizable(o);
+      } // Fl_Box* o
+      { Fl_Button* o = new Fl_Button(460, 485, 50, 20, "Close");
+        o->labelsize(11);
+        o->callback((Fl_Callback*)toggle_codeview_b_cb);
+      } // Fl_Button* o
+      cv_settings_row->end();
+    } // Fl_Group* cv_settings_row
+    codeview_panel->size_range(384, 120);
+    codeview_panel->end();
+  } // Fl_Double_Window* codeview_panel
+  return codeview_panel;
+}
+
+//