X-Git-Url: http://git.silcnet.org/gitweb/?a=blobdiff_plain;f=apps%2Fsilcer%2Fsrc%2Fgtkurl.c;fp=apps%2Fsilcer%2Fsrc%2Fgtkurl.c;h=0000000000000000000000000000000000000000;hb=72c2de619079457f7a68100eb13385275a424a23;hp=567c379b5154a3e793d9c3ed441e46e9008050ae;hpb=e7b6c157b80152bf9fb9266e6bdd93f9fb0db776;p=runtime.git

diff --git a/apps/silcer/src/gtkurl.c b/apps/silcer/src/gtkurl.c
deleted file mode 100644
index 567c379b..00000000
--- a/apps/silcer/src/gtkurl.c
+++ /dev/null
@@ -1,587 +0,0 @@
-/* GtkUrl - A addon for GtkText that enables colored and clickable URLs
- * Copyright (C) 2001 Benedikt Roth <Benedikt.Roth@bratislav.de>  
- *   Based on code from 
- *   gtkspell - a spell-checking addon for GtkText
- *   Copyright (c) 2000 Evan Martin.
- * 
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser 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
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser 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
- */
-
-#define GTKURL_USE_GNOME
-
-#include <gtk/gtk.h>
-#ifdef GTKURL_USE_GNOME
-#include <gnome.h>
-#endif /* GTKURL_USE_GNOME */
-#include <stdio.h>
-#include <string.h>
-#include <ctype.h>
-#include <unistd.h>
-
-#include "gtkurl.h"
-
-/* FIXME? */
-static GdkColor highlight = { 0, 0, 0, 255*256 };
-
-enum {
-  GTKURL_NO_URL,
-  GTKURL_URL,
-  GTKURL_HOST
-};
-
-
-static void entry_insert_cb(GtkText *gtktext, gchar *newtext, guint len, guint *ppos, gpointer d);
-static void entry_delete_cb(GtkText *gtktext, gint start, gint end, gpointer d);
-static gint button_press_intercept_cb(GtkText *gtktext, GdkEvent *e, gpointer d);
-
-static void popup_menu(GtkText *gtktext, GdkEventButton *eb);
-static GtkMenu *make_menu(gchar *url);
-
-static gboolean visit_url_gnome_cb( GtkWidget *widget, gpointer *data);
-static int my_poptParseArgvString(const char * s, int * argcPtr, char *** argvPtr);
-static gboolean visit_url_cmd_cb( GtkWidget *widget, gpointer *data);
-
-static gboolean check_at(GtkText *gtktext, gint from_pos);
-static gchar *get_word_from_pos(GtkText* gtktext, gint pos, gint *pstart, gint *pend);
-static gchar *get_curword(GtkText* gtktext, gint *pstart, gint *pend);
-
-static void change_color(GtkText *gtktext, gint start, gint end, GdkColor *color);
-
-static gboolean iswordsep(gchar c);
-static gint is_url(gchar* word);
-
-
-
-void gtkurl_attach(GtkText *gtktext)
-{
-   gtk_signal_connect(GTK_OBJECT(gtktext), "insert-text",
- 		     GTK_SIGNAL_FUNC(entry_insert_cb), NULL);
-   gtk_signal_connect_after(GTK_OBJECT(gtktext), "delete-text",
-			    GTK_SIGNAL_FUNC(entry_delete_cb), NULL);
-   gtk_signal_connect(GTK_OBJECT(gtktext), "button-press-event",
-		      GTK_SIGNAL_FUNC(button_press_intercept_cb), NULL);
-}
-
-
-void gtkurl_detach(GtkText *gtktext)
-{
-  gtk_signal_disconnect_by_func(GTK_OBJECT(gtktext),
-				GTK_SIGNAL_FUNC(entry_insert_cb), NULL);
-  gtk_signal_disconnect_by_func(GTK_OBJECT(gtktext),
-				GTK_SIGNAL_FUNC(entry_delete_cb), NULL);
-  gtk_signal_disconnect_by_func(GTK_OBJECT(gtktext), 
-				GTK_SIGNAL_FUNC(button_press_intercept_cb), NULL);
-  
-  gtkurl_uncheck_all(gtktext);
-}
-
-
-void gtkurl_check_all(GtkText *gtktext)
-{
-  guint origpos;
-  guint pos = 0;
-  guint len;
-  float adj_value;
-
-  len = gtk_text_get_length(gtktext);
-  
-  adj_value = gtktext->vadj->value;
-  gtk_text_freeze(gtktext);
-  origpos = gtk_editable_get_position(GTK_EDITABLE(gtktext));
-
-  while (pos < len) 
-    { 
-      while (pos < len && iswordsep(GTK_TEXT_INDEX(gtktext, pos)))
-	pos++;
-      while (pos < len && !iswordsep(GTK_TEXT_INDEX(gtktext, pos)))
-	pos++;
-      if (pos > 0)
-	check_at(gtktext, pos-1);
-    }
-
-  gtk_text_thaw(gtktext);
-  gtk_editable_set_position(GTK_EDITABLE(gtktext), origpos);
-}
-
-
-void gtkurl_uncheck_all(GtkText *gtktext)
-{
-  gint origpos;
-  gchar *text;
-  gfloat adj_value;
-
-  adj_value = gtktext->vadj->value;
-  gtk_text_freeze(gtktext);
-  origpos = gtk_editable_get_position(GTK_EDITABLE(gtktext));
-  text = gtk_editable_get_chars(GTK_EDITABLE(gtktext), 0, -1);
-  gtk_text_set_point(gtktext, 0);
-  gtk_text_forward_delete(gtktext, gtk_text_get_length(gtktext));
-  gtk_text_insert(gtktext, NULL, NULL, NULL, text, strlen(text));
-  gtk_text_thaw(gtktext);
-
-  gtk_editable_set_position(GTK_EDITABLE(gtktext), origpos);
-  gtk_adjustment_set_value(gtktext->vadj, adj_value);
-}
-
-
-static void entry_insert_cb(GtkText *gtktext, gchar *newtext, guint len, guint *ppos, gpointer d)
-{
-  gint origpos;
-
-  gtk_signal_handler_block_by_func(GTK_OBJECT(gtktext),
-				   GTK_SIGNAL_FUNC(entry_insert_cb), 
-				   NULL );
-  
-  gtk_text_insert(GTK_TEXT(gtktext), NULL,
-		  &(GTK_WIDGET(gtktext)->style->fg[0]), NULL, newtext, len);
-
-  gtk_signal_handler_unblock_by_func(GTK_OBJECT(gtktext),
-				     GTK_SIGNAL_FUNC(entry_insert_cb),
-				     NULL);
-  
-  gtk_signal_emit_stop_by_name(GTK_OBJECT(gtktext), "insert-text");
-  *ppos += len;
-
-  origpos = gtk_editable_get_position(GTK_EDITABLE(gtktext));
-
-  if (iswordsep(newtext[0])) 
-    {
-      /* did we just end a word? */
-      if (*ppos >= 2) check_at(gtktext, *ppos-2);
-      
-      /* did we just split a word? */
-      if (*ppos < gtk_text_get_length(gtktext))
-	check_at(gtktext, *ppos+1);
-    } 
-  else 
-    {
-      /* check as they type, *except* if they're typing at the end (the most
-       * common case.
-       */
-      if (*ppos < gtk_text_get_length(gtktext) && !iswordsep(GTK_TEXT_INDEX(gtktext, *ppos)))
-	check_at(gtktext, *ppos-1);
-    }
-
-  gtk_editable_set_position(GTK_EDITABLE(gtktext), origpos);
-  gtk_editable_select_region(GTK_EDITABLE(gtktext), origpos, origpos);
-}
-
-
-static void entry_delete_cb(GtkText *gtktext, gint start, gint end, gpointer d)
-{
-  gint origpos;
-  
-  origpos = gtk_editable_get_position(GTK_EDITABLE(gtktext));
-  check_at(gtktext, start-1);
-  gtk_editable_set_position(GTK_EDITABLE(gtktext), origpos);
-  gtk_editable_select_region(GTK_EDITABLE(gtktext), origpos, origpos);
-  /* this is to *UNDO* the selection, in case they were holding shift
-   * while hitting backspace. */
-}
-
-
-/* ok, this is pretty wacky:
- * we need to let the right-mouse-click go through, so it moves the cursor, 
- * but we *can't* let it go through, because GtkText interprets rightclicks as
- * weird selection modifiers.
- *
- * so what do we do?  forge rightclicks as leftclicks, then popup the menu. 
- * HACK HACK HACK. 
- */
-static gint button_press_intercept_cb(GtkText *gtktext, GdkEvent *e, gpointer d)
-{
-  GdkEventButton *eb;
-  gboolean retval;
-  
-  if (e->type != GDK_BUTTON_PRESS) return FALSE;
-  eb = (GdkEventButton*) e;
-
-  if (eb->button != 3)
-    return FALSE;
-
-  /* forge the leftclick */
-  eb->button = 1;
-
-  gtk_signal_handler_block_by_func(GTK_OBJECT(gtktext), 
-				   GTK_SIGNAL_FUNC(button_press_intercept_cb), d);
-  gtk_signal_emit_by_name(GTK_OBJECT(gtktext), "button-press-event",
-			  e, &retval);
-  gtk_signal_handler_unblock_by_func(GTK_OBJECT(gtktext), 
-				     GTK_SIGNAL_FUNC(button_press_intercept_cb), d);
-  gtk_signal_emit_stop_by_name(GTK_OBJECT(gtktext), "button-press-event");
-
-  /* now do the menu wackiness */
-  popup_menu(gtktext, eb);
-  return TRUE;
-}
-
-
-static void popup_menu(GtkText *gtktext, GdkEventButton *eb)
-{
-  gchar *buf;
-  
-  buf = get_curword(gtktext, NULL, NULL);
-  
-  gtk_menu_popup(make_menu(buf), NULL, NULL, NULL, NULL,
-		 eb->button, eb->time);
-}
-
-
-static GtkMenu *make_menu(gchar *url)
-{
-  GtkWidget *menu, *item;
-  gchar *caption;
-  gchar *s = "http://";
-  gchar *cmd;
-
-  switch( is_url(url) )
-    {
-    case GTKURL_URL:
-      url = g_strdup_printf("%s", url);
-      break;
-    case GTKURL_HOST: 
-      url = g_strdup_printf("%s%s", s, url);
-      break;
-    }	  
-
-  menu = gtk_menu_new(); 
-  
-  caption = g_strdup_printf("%s", url);
-  item = gtk_menu_item_new_with_label(caption);
-  g_free(caption);
-  gtk_widget_set_sensitive( GTK_WIDGET(item), FALSE);
-  /* I'd like to make it so this item is never selectable, like
-   * the menu titles in the GNOME panel... unfortunately, the GNOME
-   * panel creates their own custom widget to do this! */
-  gtk_widget_show(item);
-  gtk_menu_append(GTK_MENU(menu), item);
-  
-  item = gtk_menu_item_new();
-  gtk_widget_show(item);
-  gtk_menu_append(GTK_MENU(menu), item);
-
-#ifdef GTKURL_USE_GNOME
-  item = gtk_menu_item_new_with_label(_("Open with GNOME URL Handler"));
-  gtk_signal_connect(GTK_OBJECT(item), "activate", 
-		     GTK_SIGNAL_FUNC(visit_url_gnome_cb), g_strdup(url) );
-  gtk_menu_append(GTK_MENU(menu), item);
-  gtk_widget_show(item);
-#endif /* GTKURL_USE_GNOME */
-    
-  item = gtk_menu_item_new_with_label(_("Open with Netscape (Existing)"));
-  cmd = g_strdup_printf("netscape -remote 'openURL(%s)'", url);
-  gtk_signal_connect(GTK_OBJECT(item), "activate",
-		     GTK_SIGNAL_FUNC(visit_url_cmd_cb), g_strdup(cmd) );
-  g_free(cmd);
-  gtk_menu_append(GTK_MENU(menu), item);
-  gtk_widget_show(item);
-
-  item = gtk_menu_item_new_with_label(_("Open with Netscape (New Window)"));
-  cmd = g_strdup_printf("netscape -remote 'openURL(%s,new-window)'", url);
-  gtk_signal_connect(GTK_OBJECT(item), "activate",
-		     GTK_SIGNAL_FUNC(visit_url_cmd_cb), g_strdup(cmd) );
-  g_free(cmd);
-  gtk_menu_append(GTK_MENU(menu), item);
-  gtk_widget_show(item);
-
-  item = gtk_menu_item_new_with_label(_("Open with Netscape (Run New)"));
-  cmd = g_strdup_printf("netscape %s", url);
-  gtk_signal_connect(GTK_OBJECT(item), "activate",
-		     GTK_SIGNAL_FUNC(visit_url_cmd_cb), g_strdup(cmd) );
-  g_free(cmd);
-  gtk_menu_append(GTK_MENU(menu), item);
-  gtk_widget_show(item);
-
-  g_free(url);
-  
-  return GTK_MENU(menu);
-}
-
-
-#ifdef GTKURL_USE_GNOME
-static gboolean visit_url_gnome_cb( GtkWidget *widget, gpointer *data)
-{
-  gnome_url_show((gchar *) data);
-  g_free(data);
-  return(TRUE);
-}
-#endif /* GTKURL_USE_GNOME */
-
-
-/* this is taken from gnome-libs 1.2.4 */
-#define POPT_ARGV_ARRAY_GROW_DELTA 5
-
-static int my_poptParseArgvString(const char * s, int * argcPtr, char *** argvPtr)
-{
-    char * buf, * bufStart, * dst;
-    const char * src;
-    char quote = '\0';
-    int argvAlloced = POPT_ARGV_ARRAY_GROW_DELTA;
-    char ** argv = malloc(sizeof(*argv) * argvAlloced);
-    const char ** argv2;
-    int argc = 0;
-    int i, buflen;
-
-    buflen = strlen(s) + 1;
-    bufStart = buf = alloca(buflen);
-    memset(buf, '\0', buflen);
-
-    src = s;
-    argv[argc] = buf;
-
-    while (*src) {
-	if (quote == *src) {
-	    quote = '\0';
-	} else if (quote) {
-	    if (*src == '\\') {
-		src++;
-		if (!*src) {
-		    free(argv);
-		    return 1;
-		}
-		if (*src != quote) *buf++ = '\\';
-	    }
-	    *buf++ = *src;
-	} else if (isspace(*src)) {
-	    if (*argv[argc]) {
-		buf++, argc++;
-		if (argc == argvAlloced) {
-		    argvAlloced += POPT_ARGV_ARRAY_GROW_DELTA;
-		    argv = realloc(argv, sizeof(*argv) * argvAlloced);
-		}
-		argv[argc] = buf;
-	    }
-	} else switch (*src) {
-	  case '"':
-	  case '\'':
-	    quote = *src;
-	    break;
-	  case '\\':
-	    src++;
-	    if (!*src) {
-		free(argv);
-		return 1;
-	    }
-	    /* fallthrough */
-	  default:
-	    *buf++ = *src;
-	}
-
-	src++;
-    }
-
-    if (strlen(argv[argc])) {
-	argc++, buf++;
-    }
-
-    dst = malloc((argc + 1) * sizeof(*argv) + (buf - bufStart));
-    argv2 = (void *) dst;
-    dst += (argc + 1) * sizeof(*argv);
-    memcpy(argv2, argv, argc * sizeof(*argv));
-    argv2[argc] = NULL;
-    memcpy(dst, bufStart, buf - bufStart);
-
-    for (i = 0; i < argc; i++) {
-	argv2[i] = dst + (argv[i] - bufStart);
-    }
-
-    free(argv);
-
-    *argvPtr = (char **)argv2;	/* XXX don't change the API */
-    *argcPtr = argc;
-
-    return 0;
-}
-
-
-static gboolean visit_url_cmd_cb( GtkWidget *widget, gpointer *data)
-{
-  int pid;
-  char **argv;
-  int argc;
-
-  if (my_poptParseArgvString ( (const char *)data, &argc, &argv) != 0)
-    return -1;
-
-  pid = fork ();
-  if (pid == -1)
-    return -1;
-  if (pid == 0)
-    {
-      execvp (argv[0], argv);
-      _exit (0);
-    } else
-      {
-	free (argv);
-	return pid;
-      }
-  
-  g_free(data);
-
-  return(TRUE);
-}
-
-
-static gboolean check_at(GtkText *gtktext, gint from_pos)
-{
-  gint start, end;
-  gchar *buf;
-  
-  if ( ! (buf = get_word_from_pos(gtktext, from_pos, &start, &end)) ) 
-      return FALSE;
-  
-  if ( is_url(buf) ) 
-    {
-      if (highlight.pixel == 0) 
-	{
-	  /* add an entry for the highlight in the color map. */
-	  GdkColormap *gc = gtk_widget_get_colormap(GTK_WIDGET(gtktext));
-	  gdk_colormap_alloc_color(gc, &highlight, FALSE, TRUE);;
-	}
-      change_color(gtktext, start, end, &highlight);
-      return(TRUE);
-    } 
-  else 
-    { 
-      change_color(gtktext, start, end, &(GTK_WIDGET(gtktext)->style->fg[0]));
-      return(FALSE);
-    }
-}
-
-
-static gchar *get_word_from_pos(GtkText* gtktext, gint pos, gint *pstart, gint *pend)
-{
-  GString *word = g_string_new("");
-  gint start, end;
-  gchar ch;
-  
-  if (iswordsep(GTK_TEXT_INDEX(gtktext, pos))) 
-    return(NULL);
-
-  /* Get start and end position from the word */
-  for (start = pos; start >= 0; --start) 
-    if (iswordsep(GTK_TEXT_INDEX(gtktext, start))) 
-      break;
-  start++;
-  
-  for (end = pos; end < gtk_text_get_length(gtktext); end++) 
-    if (iswordsep(GTK_TEXT_INDEX(gtktext, end)) )
-      break;
-
-  /* Be sure to not include punctation marks etc. */
-  for ( ;end>start; end-- )
-    {
-      ch = GTK_TEXT_INDEX(gtktext, end-1); 
-      if( isalpha(ch) || isdigit(ch) || ch == ':' )
-	break;
-    }
-
-  /* Get the word (everyting between start and end */
-  for (pos = start; pos < end; pos++)
-    g_string_append_c( word, GTK_TEXT_INDEX(gtktext, pos) );
-
-  if (pstart) 
-    *pstart = start;
-  if (pend) 
-    *pend = end;
-  
-  return(word->str);
-}
-
-
-static gchar *get_curword(GtkText* gtktext, gint *pstart, gint *pend)
-{
-  gint pos = gtk_editable_get_position(GTK_EDITABLE(gtktext));
-  return(get_word_from_pos(gtktext, pos, pstart, pend));
-}
-
-
-static void change_color(GtkText *gtktext, gint start, gint end, GdkColor *color)
-{
-  gchar *newtext;
-
-  /* So we don't need spaces at the very end of the text */
-  if ( end == gtk_text_get_length(GTK_TEXT(gtktext))+1 )
-    end--;
-
-  newtext = gtk_editable_get_chars(GTK_EDITABLE(gtktext), start, end);
-    
-  gtk_text_freeze(gtktext);
-  gtk_signal_handler_block_by_func(GTK_OBJECT(gtktext),  
-				   GTK_SIGNAL_FUNC(entry_insert_cb), NULL); 
-	
-  gtk_text_set_point(gtktext, start);
-  gtk_text_forward_delete(gtktext, end-start);
-
-  if (newtext && end-start > 0)
-    gtk_text_insert(gtktext, NULL, color, NULL, newtext, end-start); 
-
-  gtk_signal_handler_unblock_by_func(GTK_OBJECT(gtktext), 
-				     GTK_SIGNAL_FUNC(entry_insert_cb), NULL); 
-  gtk_text_thaw(gtktext);
-  g_free(newtext);
-}
-
-
-static gboolean iswordsep(gchar c)
-{
-/* 	return !isalpha(c) && c != '\''; */
-  return( isspace(c) );
-}
-
-
-static gint is_url(gchar* word)
-{
-     gint len;
-     if (!word)
-	  return GTKURL_NO_URL;
-
-   len = strlen (word);
-
-   if (!strncasecmp (word, "irc://", 6))
-      return GTKURL_URL;
-
-   if (!strncasecmp (word, "irc.", 4))
-      return GTKURL_URL;
-
-   if (!strncasecmp (word, "ftp.", 4))
-      return GTKURL_URL;
-
-   if (!strncasecmp (word, "ftp:", 4))
-      return GTKURL_URL;
-
-   if (!strncasecmp (word, "www.", 4))
-      return GTKURL_URL;
-
-   if (!strncasecmp (word, "http:", 5))
-      return GTKURL_URL;
-
-   if (!strncasecmp (word, "https:", 6))
-      return GTKURL_URL;
-
-   if (!strncasecmp (word + len - 4, ".org", 4))
-      return GTKURL_HOST;
-
-   if (!strncasecmp (word + len - 4, ".net", 4))
-      return GTKURL_HOST;
-
-   if (!strncasecmp (word + len - 4, ".com", 4))
-      return GTKURL_HOST;
-
-   if (!strncasecmp (word + len - 4, ".edu", 4))
-      return GTKURL_HOST;
-
-   return GTKURL_NO_URL;
-}