common: move CreateValidSGMLID to common

1 files changed, 3 insertions, 26 deletions

diff --git a/gtkdoc-fixxref.in b/gtkdoc-fixxref.in
index 8e9e406..90727a9 100755
--- a/gtkdoc-fixxref.in
+++ b/gtkdoc-fixxref.in
@@ -28,6 +28,9 @@ use strict;
 use bytes;
 use Getopt::Long;
 
+unshift @INC, '@PACKAGE_DATA_DIR@';
+require "gtkdoc-common.pl";
+
 # Options
 
 # name of documentation module
@@ -425,29 +428,3 @@ sub HighlightSourcePostprocess {
 END_OF_HTML
 }
 
-
-#############################################################################
-# Function    : CreateValidSGMLID
-# Description : Creates a valid SGML 'id' from the given string.
-#		NOTE: SGML ids are case-insensitive, so we have a few special
-#		      cases to avoid clashes of ids.
-# Arguments   : $id - the string to be converted into a valid SGML id.
-#############################################################################
-
-sub CreateValidSGMLID {
-    my ($id) = $_[0];
-
-    # Special case, '_' would end up as '' so we use 'gettext-macro' instead.
-    if ($id eq "_") { return "gettext-macro"; }
-
-    $id =~ s/[_ ]/-/g;
-    $id =~ s/[,\.]//g;
-    $id =~ s/^-*//;
-    $id =~ s/::/-/g;
-    $id =~ s/:/--/g;
-
-    # Append ":CAPS" to all all-caps identifiers
-    if ($id !~ /[a-z]/ && $id !~ /-CAPS$/) { $id .= ":CAPS" };
-
-    return $id;
-}