Changeset c871d5 in git

Timestamp:

Dec 18, 2008, 5:17:51 PM (14 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '00e2e9c41af3fde1273eb3633f4c0c7c3db2579d')

Children:

3f9d402d5db722260876fe4b288d58be66aa0a70

Parents:

6a3faf55bc9aa5ff67a7b99d63dbcd3983df5b68

Message:

*hannes: generate See also in SEE ALSO: refs


git-svn-id: file:///usr/local/Singular/svn/trunk@11264 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• doc/pl2doc.pl (modified) (3 diffs)

doc/pl2doc.pl

@@ -1 +1 @@
 #!/usr/local/bin/perl
-# $Id: pl2doc.pl,v 1.22 2005-05-06 15:51:14 Singular Exp $
+# $Id: pl2doc.pl,v 1.23 2008-12-18 16:17:51 Singular Exp $
 ###################################################################
 #  Computer Algebra System SINGULAR
@@ -471 +471 @@
   my @refs = split (/[,;\.]+/, $refs);
   my $ref;
-  print $FH "\@c ref\n";
+  print $FH "\@c ref\nSee also:\n";
   $ref = shift @refs;
   print $FH "\@ref{$ref}";
@@ -478 +478 @@
     $ref =~ s/^\s*//;
     $ref =~ s/\s*$//;
-    print $FH ", \@ref{$ref}"  if ($ref =~ /\w/);
-  }
-  print $FH "\n\@c ref\n\n";
-
+    print $FH "; \@ref{$ref}"  if ($ref =~ /\w/);
+  }
+  print $FH "\.\n\@c ref\n\n";
 }