# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1366376712 -10800
# Node ID 96c55e665a55c5314066b99a6f0a614e303b13c6
# Parent  4912cac99455283b5f967bd875e4f640e9a64686
Improve TFdoc syntax.

diff -r 4912cac99455 -r 96c55e665a55 docs/tfdoc.pl
--- a/docs/tfdoc.pl	Fri Apr 19 15:29:41 2013 +0300
+++ b/docs/tfdoc.pl	Fri Apr 19 16:05:12 2013 +0300
@@ -2,7 +2,7 @@
 #
 # TFDoc for extending GgrTF DocBook manual with embedded TF docs.
 # Programmed by Matti 'ccr' Hamalainen <ccr@tnsp.org>
-# (C) Copyright 2009 Tecnic Software productions (TNSP)
+# (C) Copyright 2009-2013 Tecnic Software productions (TNSP)
 #
 use strict;
 use warnings;
@@ -22,14 +22,30 @@
 }
 
 my %xentities = (
-  "&" => "amp",
+  "&" => "&amp;",
+  "§" => "",
 );
 
 sub xmlentities2($)
 {
   my $value = $_[0];
-  $value =~ s/$_/\&$xentities{$_}\;/g foreach (keys %xentities);
-  return $value;
+  $value =~ s/$_/$xentities{$_}/g foreach (keys %xentities);
+
+  my $str = "";
+  my $state = 0;
+  foreach my $qch (split(//, $value))
+  {
+    if ($qch eq "\$")
+    {
+      $state = !$state;
+      $str .= ($state ? "<emphasis>" : "</emphasis>");
+    }
+    else
+    {
+      $str .= $qch;
+    }
+  }
+  return $str;
 }