+# Use lowercase also for non-ascii chars
+sub mylc($)
+{
+ my ($msg) = @_;
+ return(encode('utf-8',lc(decode('utf-8', $msg))));
+}
+
+sub replaceSynopsis($)
+{
+ my ($string) = @_;
+
+ return ($string) if ($string !~ /^(.*)\.\.\.(.*)$/);
+ my ($before, $after) = ($1, $2);
+ return $string if (($before =~ /\.$/) || ($after =~ /^\./));
+ return("$before…$after");
+}