From: Nikos Mavrogiannopoulos <nmav@gnutls.org>
Date: Tue, 20 Sep 2011 16:59:12 +0000 (+0200)
Subject: Added missing files
X-Git-Tag: gnutls_3_0_4~90
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=cd0c4c57e7326a36402da2ba05e749eff0c1b534;p=thirdparty%2Fgnutls.git

Added missing files
---

diff --git a/.gitignore b/.gitignore
index 4c10f3bbf1..53b2c2c8d4 100644
--- a/.gitignore
+++ b/.gitignore
@@ -514,3 +514,6 @@ doc/latex/gnutls-enums.tex
 doc/latex/enums
 doc/latex/gnutls.lof
 doc/latex/gnutls.lot
+tests/x509cert-tl
+doc/enums.texi
+doc/enums/
diff --git a/doc/scripts/split-texi.pl b/doc/scripts/split-texi.pl
new file mode 100755
index 0000000000..bd6e11e1c2
--- /dev/null
+++ b/doc/scripts/split-texi.pl
@@ -0,0 +1,57 @@
+#!/usr/bin/perl
+
+$dir = shift;
+$param2 = shift;
+
+if ($param2 ne '') {
+  $enum = 1;
+} else {
+  $enum = 0;
+}
+
+sub key_of_record {
+  local($record) = @_;
+
+  # Split record into lines:
+  my @lines = split /\n/, $record;
+
+  my ($i) = 1;
+  my ($key) = $lines[$i]; 
+
+  if ($enum == 1) {
+    while( !($key =~ m/^$\@float Table,(.*)$/) && ($i < 5)) { $i=$i+1; $key = $lines[$i]; }
+  } else {
+    while( !($key =~ m/^$\\functionTitle\{(.*)\}/) && ($i < 5)) { $i=$i+1; $key = $lines[$i]; }
+  }
+
+  return $key;
+}
+
+if ($enum == 1) {
+  $/="\n\@end float";          # Records are separated by blank lines.
+} else {
+  $/="\n\\end{function}";          # Records are separated by blank lines.
+}
+@records = <>;  # Read in whole file, one record per array element.
+
+mkdir $dir;
+
+@records = sort { key_of_record($a) cmp key_of_record($b) } @records;
+foreach (@records) {
+  $key = $_;
+  if ($enum == 1) {
+    $key =~ m/\@float Table,(.*)/;
+    $key = $1;
+  } else {
+    $key =~ m/\\functionTitle\{(.*)\}/;
+    $key = $1;
+  }
+
+  if (defined $key && $key ne "") {
+    open FILE, "> $dir/$key\n" or die $!;
+    print FILE $_ . "\n";
+    close FILE;
+  }
+} 
+
+#print @records;