Tailorization of flpsed

Import of the upstream sources from

  Repository: /home/cvs
  Module:     flpsed
  Revision:   2004-06-25 18:14:05 by hofmann

1 files changed, 427 insertions, 0 deletions

diff --git a/src/PSEditWidget.cxx b/src/PSEditWidget.cxx
new file mode 100644
index 0000000..55373f5
--- /dev/null
+++ b/src/PSEditWidget.cxx
@@ -0,0 +1,427 @@
+// 
+// "$Id: PSEditWidget.cxx,v 1.8 2004/06/25 18:14:05 hofmann Exp $"
+//
+// PSEditWidget routines.
+//
+// Copyright 2004 by Johannes Hofmann
+//
+// This library is free software; you can redistribute it and/or
+// modify it under the terms of the GNU Library General Public
+// License as published by the Free Software Foundation; either
+// version 2 of the License, or (at your option) any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+// Library General Public License for more details.
+//
+// You should have received a copy of the GNU Library General Public
+// License along with this library; if not, write to the Free Software
+// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
+// USA.
+//
+
+#include <stdio.h>
+#include <string.h>
+#include <unistd.h>
+#include <signal.h>
+#include <stdlib.h>
+#include <sys/types.h>
+#include <sys/wait.h>
+#include <fcntl.h>
+#include <errno.h>
+
+#include <FL/Fl.H>
+#include <FL/fl_draw.H>
+#include <FL/x.H>
+
+#include "PSEditWidget.H"
+
+#define PS_POS_FORMAT       "newpath %d %d moveto %% PSEditWidget\n"
+#define PS_TEXT_FORMAT      "(%s) show %% PSEditWidget\n"
+#define PS_FONT_SIZE_FORMAT "/HelveticaNeue-Roman findfont %d scalefont setfont %% PSEditWidget\n"
+#define PS_GLYPH_FORMAT     "/%s glyphshow %% PSEditWidget\n"
+
+static struct {
+  const char *glyph;
+  const char *c;
+} glyph_char[] = {
+  {"adieresis", "ä"}, 
+  {"Adieresis", "Ä"}, 
+  {"odieresis", "ö"}, 
+  {"Odieresis", "Ö"}, 
+  {"udieresis", "ü"}, 
+  {"Udieresis", "Ü"}, 
+  {"germandbls", "ß"}, 
+  {"parenleft", "("}, 
+  {"parenright", ")"}, 
+  {NULL, NULL}};
+
+static const char * glyph_to_char(char *glyph) {
+  int i=0;
+
+  while(glyph_char[i].glyph != NULL) {
+    if (strcmp(glyph_char[i].glyph, glyph) == 0) {
+      return glyph_char[i].c;
+      }
+    i++;
+  }
+  
+  return NULL;
+}
+
+static const char * char_to_glyph(char *c) {
+  int i=0;
+  
+  while(glyph_char[i].glyph != NULL) {
+    if (strncmp(glyph_char[i].c, c, 1) == 0) {
+      return glyph_char[i].glyph;
+    }
+    i++;
+  }
+  
+  return NULL;
+}
+
+void PSEditWidget::clear_text() {
+  cur_text = NULL;
+  for (int i = 0; i < max_pages; i++) {
+    if (text[i]) {
+      delete(text[i]);
+      text[i] = NULL;
+    }
+  }
+}
+
+void PSEditWidget::draw() {
+  GsWidget::draw();
+  if (text[page]) {
+    text[page]->draw(x() ,y());
+  }
+}
+
+PSEditWidget::PSEditWidget(int X,int Y,int W, int H) : GsWidget(X, Y, W, H) {
+  max_pages = 32;
+  text = (PSText**) malloc(sizeof(PSText*) * max_pages);
+  for (int i = 0; i < max_pages; i++) {
+    text[i] = NULL;
+  }
+  cur_text = NULL;
+  cur_size = 12;
+  mod = 0;
+  loaded = 0;
+}
+  
+int PSEditWidget::next() {
+  if (page >= max_pages) {
+    max_pages = max_pages * 2;
+    text = (PSText**) realloc(text, sizeof(PSText*) * max_pages);
+    for (int i = max_pages / 2; i < max_pages; i++) {
+      text[i] = NULL;
+    }
+  }
+  cur_text = NULL;
+  GsWidget::next();
+}  
+
+void PSEditWidget::new_text(int x1, int y1, const char *s, int p) {
+  cur_text = new PSText(this, x1, y1, s, cur_size);
+  if (text[p]) {
+    text[p]->append(cur_text);
+  } else {
+    text[p] = cur_text;
+  }
+  redraw();
+  mod = 1;
+}
+
+void PSEditWidget::new_text(int x1, int y1, const char *s) {
+  new_text(x1, y1, s, page);
+}
+
+int PSEditWidget::set_cur_text(int x1, int y1) {
+  if (text[page]) {
+    cur_text = text[page]->get_match(x1, y1);
+    if (cur_text) {
+      redraw();
+      return 0;
+    }
+  }
+  return 1;
+}
+
+void PSEditWidget::append_text(const char *s) {
+  if (cur_text && s) {
+    cur_text->append_text(s);
+    mod = 1;
+    redraw();
+  }
+}
+
+void PSEditWidget::move(int x1, int y1) {
+  if (cur_text) {
+    cur_text->move(x1, y1);
+    mod = 1;
+    redraw();
+  }
+}
+
+void PSEditWidget::rm_char() {
+  if (cur_text) {
+    cur_text->rm_char();
+    mod = 1;
+    redraw();
+  }
+}
+
+int PSEditWidget::ps_to_display_x(int x1) {
+  return (int) ((float) x1 * xdpi / 72.0);
+}
+
+int PSEditWidget::ps_to_display_y(int y1) {
+  return (int) ((float) (paper_y - y1) * xdpi / 72.0);
+}
+
+int PSEditWidget::ps_x(int x1) {
+  return (int) ((float) x1 * 72.0 / xdpi);
+}
+
+int PSEditWidget::ps_y(int y1) {
+  return paper_y - (int)((float) y1 * 72.0 / ydpi);
+}
+
+int PSEditWidget::reload() {
+  cur_text = NULL;
+  return GsWidget::reload();
+}
+
+int PSEditWidget::load(char *f) {
+  FILE *fp = fopen(f, "r");
+  char tmpname[256];
+  char linebuf[1024];
+  int p = 1;
+  int x1, y1;
+  char *s, *e, glyph[1024];
+  int size, ret;
+  
+  strncpy(tmpname, "/tmp/PSEditWidgetXXXXXX.ps", 256);
+  tmp_fd = mkstemps(tmpname, 3);
+  if (tmp_fd < 0) {
+    fprintf(stderr, "Could not create temporary file (errno %d).\n", errno);
+    return 1;
+  }
+  unlink(tmpname);
+
+  clear_text();
+
+  while (fgets(linebuf, 1024, fp) != NULL) {
+    
+    if (strcmp(linebuf, "showpage\n") == 0) {
+      p++;
+    }
+    
+    if (strstr(linebuf, "% PSEditWidget")) {
+      if (sscanf(linebuf, PS_FONT_SIZE_FORMAT, &size) == 1) {
+	set_cur_size(size);
+      } else if (sscanf(linebuf, PS_POS_FORMAT, &x1, &y1) == 2) {
+	new_text(ps_to_display_x(x1), ps_to_display_y(y1), "", p);
+      } else if (sscanf(linebuf, PS_GLYPH_FORMAT, glyph) == 1) {
+	fprintf(stderr, "GLYPH %s\n", glyph);
+	append_text(glyph_to_char(glyph));
+      } else if ((s = strchr(linebuf, '(')) &&
+		 (e = strrchr(linebuf, ')'))) {
+	*e = '\0';
+	s++;
+	append_text(s);
+      }
+    } else {
+      ret = write(tmp_fd, linebuf, strlen(linebuf));
+      if (ret != strlen(linebuf)) {
+	fprintf(stderr, "Error while writing to temporary file\n");
+      }
+    }
+  }
+  fclose(fp);
+  lseek(tmp_fd, 0L, SEEK_SET);
+
+  mod = 0;
+  loaded = 1;
+  return GsWidget::load(tmp_fd);
+}
+
+void PSEditWidget::to_ps(FILE *f, int p) {
+  if (!text[p]) {
+    return;
+  }
+  
+  text[p]->to_ps(f);
+}
+
+int PSEditWidget::save(const char* savefile) {
+  if (!file_loaded()) {
+    return 1;
+  }
+  FILE *fp = fdopen(tmp_fd, "r");
+  rewind(fp);
+  FILE *sfp = fopen(savefile, "w");
+  char linebuf[1024];
+  int p = 1;
+  
+  while (fgets(linebuf, 1024, fp) != NULL) {
+    if (strcmp(linebuf, "showpage\n") == 0) {
+      to_ps(sfp, p);
+      p++;
+    }
+    fprintf(sfp, "%s", linebuf);
+  }
+  
+  fclose(sfp);
+  mod = 0;
+  return 0;
+}
+
+int PSEditWidget::modified() {
+  return mod;
+}
+
+int PSEditWidget::file_loaded() {
+  return loaded;
+}
+
+void PSEditWidget::set_cur_size(int s) {
+  cur_size = s;
+}
+
+void PSEditWidget::set_size(int s) {
+  set_cur_size(s);
+  if (cur_text) {
+    cur_text->size = s;
+    redraw();
+  }
+}
+
+int PSEditWidget::get_size() {
+  if (cur_text) {
+    return cur_text->size;
+  } else {
+    return cur_size;
+  }
+}
+
+
+
+
+PSText::PSText(PSEditWidget *g, int x1, int y1, const char *s1, int size1) {
+  x = x1;
+  y = y1;
+  s = strdup(s1);
+  c = FL_BLACK;
+  size = size1;
+  next = NULL;
+  gsew = g;
+}
+
+PSText::~PSText() {
+  if (next) {
+    delete(next);
+  }
+  if (s) {
+    free(s);
+  }
+}
+  
+void PSText::append_text(const char*s1) {
+  int len = (s?strlen(s):0) + strlen(s1) + 1;
+  char *tmp = (char*) malloc(len);
+  
+  strncpy(tmp, s?s:"", len);
+  strncat(tmp, s1, len - strlen(tmp));
+  
+  if (s) {
+    free(s);
+  }
+  
+  s = tmp;
+}
+
+void PSText::rm_char() {
+  if (s && strlen(s) > 0) {
+    s[strlen(s) - 1] = '\0';
+  }
+}
+
+void PSText::move(int x1, int y1) {
+  x = x1;
+  y = y1;
+}
+
+void PSText::append(PSText *g) {
+  PSText *p = this;
+  while (p->next) {
+    p = p->next;
+  }
+  p->next = g;
+}
+
+PSText *PSText::get_match(int x1, int y1) {
+  if (abs(x - x1) < 10 && abs(y - y1) < 10) {
+    return this;
+  } else if (next) {
+    return next->get_match(x1, y1);
+  } else {
+      return NULL;
+  }
+}
+
+void PSText::draw(int off_x,int off_y) {
+  PSText *p = this;
+  fl_color(c);
+  fl_font(FL_HELVETICA, size);
+  fl_draw(s, x + off_x, y + off_y);
+  if (gsew->cur_text == this) {
+    fl_draw_box(FL_BORDER_FRAME, x+off_x-1, y+off_y-fl_height()+fl_descent(), fl_width(s)+2, fl_height(), FL_BLACK);
+  }
+  if (p->next) {
+    p->next->draw(off_x, off_y);
+  }
+}
+
+void PSText::string_to_ps(FILE *f, char *s) {
+  const char *glyph;
+  
+  if (strlen(s) == 0) {
+    return;
+  } else if ((glyph = char_to_glyph(s)) != NULL) {
+    fprintf(f, PS_GLYPH_FORMAT, glyph);
+    string_to_ps(f, &(s[1]));
+    return;
+  } else {
+    for(int i=0; i<strlen(s); i++) {
+      if ((glyph = char_to_glyph(&(s[i]))) != NULL) {
+	char *s1 = strdup(s);
+	s1[i] = '\0';
+	fprintf(f, PS_TEXT_FORMAT, s1);
+	free(s1);
+	string_to_ps(f, &(s[i]));
+	return;
+	}
+    }
+    fprintf(f, PS_TEXT_FORMAT, s);
+  }
+  return;
+}
+  
+void PSText::to_ps(FILE *f) {
+  if (strcmp(s, "") != 0) {
+    fprintf(f, PS_FONT_SIZE_FORMAT, size);
+    fprintf(f, PS_POS_FORMAT, gsew->ps_x(x), gsew->ps_y(y));
+    string_to_ps(f, s);
+  }
+  
+  if (next) {
+    next->to_ps(f);
+  }
+}
+
+
+