summaryrefslogtreecommitdiff
path: root/doc/gdoc
diff options
context:
space:
mode:
authorDariusz Michaluk <d.michaluk@samsung.com>2024-02-13 15:44:51 +0100
committerDariusz Michaluk <d.michaluk@samsung.com>2024-02-14 10:46:44 +0100
commitc28e9eeaa4dccef63b3b237ebe8a8b5abb23e335 (patch)
tree504a1953b56446487f4759d3a5f348bbeb925461 /doc/gdoc
parent1778d37a3eec1209d7c9c064318f3ff8c5132490 (diff)
parent031996ef501f8c3d0532f7df1c38cf2e540a4f11 (diff)
downloadlibtasn1-c28e9eeaa4dccef63b3b237ebe8a8b5abb23e335.tar.gz
libtasn1-c28e9eeaa4dccef63b3b237ebe8a8b5abb23e335.tar.bz2
libtasn1-c28e9eeaa4dccef63b3b237ebe8a8b5abb23e335.zip
Change-Id: I893fd2c90c487d6e13b0b10e25b2cafc408da180
Diffstat (limited to 'doc/gdoc')
-rwxr-xr-xdoc/gdoc28
1 files changed, 14 insertions, 14 deletions
diff --git a/doc/gdoc b/doc/gdoc
index e3db762..7be36e7 100755
--- a/doc/gdoc
+++ b/doc/gdoc
@@ -1,8 +1,8 @@
-eval '(exit $?0)' && eval 'exec perl "$0" ${1+"$@"}'
- & eval 'exec perl "$0" $argv:q'
+eval '(exit $?0)' && eval 'exec perl -S "$0" ${1+"$@"}'
+ & eval 'exec perl -S "$0" $argv:q'
if 0;
-## Copyright (c) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 Simon Josefsson
+## Copyright (c) 2002-2021 Simon Josefsson
## added -texinfo, -listfunc, -pkg-name
## man page revamp
## various improvements
@@ -23,7 +23,7 @@ eval '(exit $?0)' && eval 'exec perl "$0" ${1+"$@"}'
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
-# along with this program. If not, see <http://www.gnu.org/licenses/>.
+# along with this program. If not, see <https://www.gnu.org/licenses/>.
# This will read a C source code file and scan for embedded comments
# in the style of gnome comments (+minor extensions - see below).
@@ -97,21 +97,21 @@ eval '(exit $?0)' && eval 'exec perl "$0" ${1+"$@"}'
# * my_function
# **/
#
-# If the Description: header tag is ommitted, then there must be a blank line
+# If the Description: header tag is omitted, then there must be a blank line
# after the last parameter specification.
# e.g.
# /**
# * my_function - does my stuff
# * @my_arg: its mine damnit
# *
-# * Does my stuff explained.
+# * Does my stuff explained.
# */
#
# or, could also use:
# /**
# * my_function - does my stuff
# * @my_arg: its mine damnit
-# * Description: Does my stuff explained.
+# * Description: Does my stuff explained.
# */
# etc.
#
@@ -302,8 +302,8 @@ sub dump_section {
# parameterlist => @list of parameters
# parameters => %parameter descriptions
# sectionlist => @list of sections
-# sections => %descriont descriptions
-#
+# sections => %section descriptions
+#
sub just_highlight {
my $contents = join "\n", @_;
@@ -704,11 +704,11 @@ sub output_man {
print ".SH \"REPORTING BUGS\"\n";
print "Report bugs to <". $args{'bugsto'} . ">.\n";
print ".br\n";
- print "General guidelines for reporting bugs: http://www.gnu.org/gethelp/\n";
+ print "General guidelines for reporting bugs: https://www.gnu.org/gethelp/\n";
print ".br\n";
if ($args{'pkgname'}) {
print $args{'pkgname'} . " home page: " .
- "http://www.gnu.org/software/" . $args{'module'} . "/\n";
+ "https://www.gnu.org/software/" . $args{'module'} . "/\n";
}
print "\n";
}
@@ -739,7 +739,7 @@ sub output_man {
print "should give you access to the complete manual.\n";
print "As an alternative you may obtain the manual from:\n";
print ".IP\n";
- print ".B http://www.gnu.org/software/" . $args{'module'} . "/manual/\n";
+ print ".B https://www.gnu.org/software/" . $args{'module'} . "/manual/\n";
print ".PP\n";
}
}
@@ -1006,7 +1006,7 @@ foreach $file (@ARGV) {
$contents .= $1."\n";
}
} else {
- # i dont know - bad line? ignore.
+ # i don't know - bad line? ignore.
print STDERR "warning: $lineno: Bad line: $_";
}
} elsif ($state == 3) { # scanning for function { (end of prototype)
@@ -1062,7 +1062,7 @@ foreach $file (@ARGV) {
$state = 0;
}
-
+
}
}