mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 15:47:53 +02:00
Changed name to fpc
This commit is contained in:
michael
parent
8ee1f2fa32
commit
f347826099
@ -19,7 +19,7 @@
|
||||
% Boston, MA 02111-1307, USA.
|
||||
%
|
||||
% Dummy
|
||||
\newenvironment{FPKList}{\begin{description}}{\end{description}}
|
||||
\newenvironment{FPCList}{\begin{description}}{\end{description}}
|
||||
\newcommand{\functionl}[7]{
|
||||
\subsection{#1}
|
||||
\label{fu:#2}
|
||||
@ -85,7 +85,7 @@
|
||||
\newcommand{\docversion}[1]{}
|
||||
\newcommand{\unitdescription}[1]{}
|
||||
\newcommand{\unitversion}[1]{}
|
||||
\newcommand{\fpk}{Free Pascal }
|
||||
\newcommand{\fpc}{Free Pascal }
|
||||
\newcommand{\gnu}{gnu }
|
||||
%
|
||||
% Useful references.
|
||||
@ -108,9 +108,9 @@
|
||||
% For Code examples (complete programs only)
|
||||
\newenvironment{CodEx}{}{}
|
||||
% For Tables.
|
||||
\newenvironment{FPKtable}[2]{\begin{table}\caption{#2}\begin{center}\begin{tabular}{#1}}{\end{tabular}\end{center}\end{table}}
|
||||
\newenvironment{FPCtable}[2]{\begin{table}\caption{#2}\begin{center}\begin{tabular}{#1}}{\end{tabular}\end{center}\end{table}}
|
||||
% The same, but with label in third argument (tab:#3)
|
||||
\newenvironment{FPKltable}[3]{\begin{table}\caption{#2}\label{tab:#3}\begin{center}\begin{tabular}{#1}}{\end{tabular}\end{center}\end{table}}
|
||||
\newenvironment{FPCltable}[3]{\begin{table}\caption{#2}\label{tab:#3}\begin{center}\begin{tabular}{#1}}{\end{tabular}\end{center}\end{table}}
|
||||
%
|
||||
% Commands to reference these things.
|
||||
%
|
||||
107
docs/fpc.perl
Normal file
107
docs/fpc.perl
Normal file
@ -0,0 +1,107 @@
|
||||
# FPC.PERL script. Accompagnies fpc.sty
|
||||
# by Michael Van Canneyt <michael@tfdec1.fys.kuleuven.ac.be>
|
||||
# December 1996
|
||||
#
|
||||
# Extension to LaTeX2HTML, to translate fpc style commands.
|
||||
#
|
||||
|
||||
package main;
|
||||
|
||||
$fpcresult='';
|
||||
|
||||
sub FPCinternalproc{
|
||||
local ($name, $decl, $desc, $errors, $seealso) = @_ ;
|
||||
local ($result) = '';
|
||||
|
||||
$result = "<H2>$name</H2>\n<P>\n" ;
|
||||
$result .= "<H3>Declaration:</H3>\n<P>\n<TT>$decl</TT>\n<P>\n" ;
|
||||
$result .= "<H3>Description:</H3>\n<P>\n$desc\n<P>\n" ;
|
||||
$result .= "<H3>Errors:</H3>\n<P>\n$errors\n<P>\n" ;
|
||||
$result .= "<H3>See Also:</H3>\n<P>\n$seealso\n<P>\n" ;
|
||||
$result ;
|
||||
}
|
||||
|
||||
sub do_cmd_procedure
|
||||
{
|
||||
$fpcresult = "<H2>$_[0]</H2>\n<P>\n" ;
|
||||
$fpcresult .= "<H3>Declaration:</H3>\n<P>\n<TT>Procedure $_[0] $_[1]</TT>\n<P>\n" ;
|
||||
$fpcresult .= "<H3>Description:</H3>\n<P>\n$_[2]\n<P>\n" ;
|
||||
$fpcresult .= "<H3>Errors:</H3>\n<P>\n$_[3]\n<P>\n" ;
|
||||
$fpcresult .= "<H3>See Also:</H3>\n<P>\n$_[4]\n<P>\n" ;
|
||||
$fpcresult ;
|
||||
}
|
||||
|
||||
sub do_cmd_Procedure
|
||||
{
|
||||
$fpcresult = "<H2>$_[0]</H2>\n<P>\n" ;
|
||||
$fpcresult .= "<H3>Declaration:</H3>\n<P>\n<TT>Procedure $_[0];</TT>\n<P>\n" ;
|
||||
$fpcresult .= "<H3>Description:</H3>\n<P>\n$_[1]\n<P>\n" ;
|
||||
$fpcresult .= "<H3>Errors:</H3>\n<P>\n$_[2]\n<P>\n" ;
|
||||
$fpcresult .= "<H3>See Also:</H3>\n<P>\n$_[3]\n<P>\n" ;
|
||||
$fpcresult ;
|
||||
}
|
||||
|
||||
sub do_cmd_Function
|
||||
{
|
||||
$fpcresult = "<H2>$_[0]</H2>\n<P>\n" ;
|
||||
$fpcresult .= "<H3>Declaration:</H3>\n<P>\n<TT>Function $_[0] : $_[1]</TT>\n<P>\n" ;
|
||||
$fpcresult .= "<H3>Description:</H3>\n<P>\n$_[2]\n<P>\n" ;
|
||||
$fpcresult .= "<H3>Errors:</H3>\n<P>\n$_[3]\n<P>\n" ;
|
||||
$fpcresult .= "<H3>See Also:</H3>\n<P>\n$_[4]\n<P>\n" ;
|
||||
$fpcresult ;
|
||||
}
|
||||
|
||||
sub do_cmd_function
|
||||
{
|
||||
$fpcresult = "<H2>$_[0]</H2>\n<P>\n" ;
|
||||
$fpcresult .= "<H3>Declaration:</H3>\n<P>\n<TT>Function $_[0] $_[1] : $_[2]</TT>\n<P>\n" ;
|
||||
$fpcresult .= "<H3>Description:</H3>\n<P>\n$_[3]\n<P>\n" ;
|
||||
$fpcresult .= "<H3>Errors:</H3>\n<P>\n$_[4]\n<P>\n" ;
|
||||
$fpcresult .= "<H3>See Also:</H3>\n<P>\n$_[5]\n<P>\n" ;
|
||||
$fpcresult ;
|
||||
}
|
||||
|
||||
sub do_cmd_var{
|
||||
local ($_) = @_;
|
||||
"<TT>$_</TT>" ;
|
||||
}
|
||||
|
||||
sub do_cmd_linux{
|
||||
"LinuX" ;
|
||||
}
|
||||
|
||||
sub do_cmd_dos{
|
||||
"DOS" ;
|
||||
}
|
||||
|
||||
sub do_cmd_msdos{
|
||||
"MS-DOS" ;
|
||||
}
|
||||
|
||||
sub do_cmd_windowsnt{
|
||||
"Windows NT" ;
|
||||
}
|
||||
|
||||
sub do_cmd_ostwo{
|
||||
"OS/2" ;
|
||||
}
|
||||
|
||||
sub do_cmd_seep{
|
||||
"" ;
|
||||
}
|
||||
|
||||
sub do_cmd_seef{
|
||||
"" ;
|
||||
}
|
||||
|
||||
sub do_cmd_seem{
|
||||
"" ;
|
||||
}
|
||||
|
||||
# For testing purposes
|
||||
# print do_cmd_procedure ("Proc1","decl1","desc1","err1","see1");
|
||||
# print do_cmd_Procedure ("Proc2","desc2","err2","see2");
|
||||
# print do_cmd_function ("Fun1","fdecl1","ftype1","fdesc1","ferr1","fsee1");
|
||||
# print do_cmd_Function ("Fun2","ftype2","fdesc2","ferr2","fsee2");
|
||||
|
||||
1; # required...
|
||||
@ -18,17 +18,17 @@
|
||||
% write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
% Boston, MA 02111-1307, USA.
|
||||
%
|
||||
\ProvidesPackage{fpk}[1996/12/09]
|
||||
\ProvidesPackage{fpc}[1996/12/09]
|
||||
\NeedsTeXFormat{LaTeX2e}
|
||||
\ExecuteOptions{titlepage}
|
||||
% First, all definitions for latex only.
|
||||
\newcommand{\docdescription}[1]{\def\@FPKDescription{#1}}
|
||||
\gdef\@FPKDescription{}%
|
||||
\newcommand{\docversion}[1]{\def\@FPKVersion{#1}}
|
||||
\gdef\@FPKVersion{}%
|
||||
\newcommand{\docdescription}[1]{\def\@FPCDescription{#1}}
|
||||
\gdef\@FPCDescription{}%
|
||||
\newcommand{\docversion}[1]{\def\@FPCVersion{#1}}
|
||||
\gdef\@FPCVersion{}%
|
||||
% For backwards compatibility
|
||||
\newcommand{\unitdescription}[1]{\def\@FPKDescription{#1}}
|
||||
\newcommand{\unitversion}[1]{\def\@FPKVersion{#1}}
|
||||
\newcommand{\unitdescription}[1]{\def\@FPCDescription{#1}}
|
||||
\newcommand{\unitversion}[1]{\def\@FPCVersion{#1}}
|
||||
\renewcommand\maketitle{\begin{titlepage}%
|
||||
\let\footnotesize\small
|
||||
\let\footnoterule\relax
|
||||
@ -38,8 +38,8 @@
|
||||
\noindent \rule{\linewidth}{1.5mm}\\%
|
||||
{\raggedleft\large%
|
||||
\begin{tabular}[t]{r}%
|
||||
\@FPKDescription \\
|
||||
\@FPKVersion \\
|
||||
\@FPCDescription \\
|
||||
\@FPCVersion \\
|
||||
\@date
|
||||
\end{tabular}\par}%
|
||||
\vskip 5cm%
|
||||
@ -64,12 +64,12 @@
|
||||
{1pt}%
|
||||
{\normalfont\large\sffamily\bfseries}}
|
||||
% Now, Let's define the \procedure and \function commands.
|
||||
\newcommand{\FPKlabel}[1]{%
|
||||
\newcommand{\FPClabel}[1]{%
|
||||
\raggedleft\makebox[0pt][r]{\textsf{#1:}}
|
||||
}
|
||||
\newenvironment{FPKList}
|
||||
\newenvironment{FPCList}
|
||||
{\begin{list}{}{%
|
||||
\renewcommand{\makelabel}[1]{\FPKlabel{##1}\hfil\relax}
|
||||
\renewcommand{\makelabel}[1]{\FPClabel{##1}\hfil\relax}
|
||||
\setlength{\labelwidth}{0pt}%
|
||||
\setlength{\leftmargin}{0pt}}%
|
||||
\setlength{\labelsep}{0pt}%
|
||||
@ -84,7 +84,7 @@
|
||||
\raisebox{1ex}{\rule{\linewidth}{0.5mm}}
|
||||
\label{fu:#2}
|
||||
\index{#1}
|
||||
\begin{FPKList}
|
||||
\begin{FPCList}
|
||||
\item[Declaration]
|
||||
\texttt {Function #1 #3 : #4;}
|
||||
\item[Description]
|
||||
@ -93,14 +93,14 @@
|
||||
#6
|
||||
\item[See also]
|
||||
#7
|
||||
\end{FPKList}
|
||||
\end{FPCList}
|
||||
}
|
||||
\newcommand{\procedurel}[6]{
|
||||
\subsection{#1}
|
||||
\raisebox{1ex}{\rule{\linewidth}{0.5mm}}
|
||||
\label{pro:#2}
|
||||
\index{#1}
|
||||
\begin{FPKList}
|
||||
\begin{FPCList}
|
||||
\item[Declaration]
|
||||
\texttt {Procedure #1 #3;}
|
||||
\item[Description]
|
||||
@ -109,7 +109,7 @@
|
||||
#5
|
||||
\item[See also]
|
||||
#6
|
||||
\end{FPKList}
|
||||
\end{FPCList}
|
||||
}
|
||||
% define a capital version,
|
||||
% for function/command which has no options passed to it.
|
||||
@ -152,6 +152,7 @@
|
||||
\newcommand{\progref}{\htmladdnormallink{Programmers' guide}{../prog/prog.html}\ }
|
||||
\newcommand{\refref}{\htmladdnormallink{Reference guide}{../ref/ref.html}\ }
|
||||
\newcommand{\userref}{\htmladdnormallink{Users' guide}{../user/user.html}\ }
|
||||
\newcommand{\unitsref}{\htmladdnormallink{Unit reference}}{../units/units.html}
|
||||
\newcommand{\seecrt}{\htmladdnormallink{CRT}{../crt/crt.html}}
|
||||
\newcommand{\seelinux}{\htmladdnormallink{Linux}{../linux/linux.html}}
|
||||
\newcommand{\seestrings}{\htmladdnormallink{strings}{../strings/strings.html}}
|
||||
@ -167,9 +168,9 @@
|
||||
% For Code examples (complete programs only)
|
||||
\newenvironment{CodEx}{}{}
|
||||
% For Tables.
|
||||
\newenvironment{FPKtable}[2]{\begin{table}\caption{#2}\begin{center}\begin{tabular}{#1}}{\end{tabular}\end{center}\end{table}}
|
||||
\newenvironment{FPCtable}[2]{\begin{table}\caption{#2}\begin{center}\begin{tabular}{#1}}{\end{tabular}\end{center}\end{table}}
|
||||
% The same, but with label in third argument (tab:#3)
|
||||
\newenvironment{FPKltable}[3]{\begin{table}\caption{#2}\label{tab:#3}\begin{center}\begin{tabular}{#1}}{\end{tabular}\end{center}\end{table}}
|
||||
\newenvironment{FPCltable}[3]{\begin{table}\caption{#2}\label{tab:#3}\begin{center}\begin{tabular}{#1}}{\end{tabular}\end{center}\end{table}}
|
||||
%
|
||||
% Commands to reference these things.
|
||||
%
|
||||
@ -183,6 +184,10 @@
|
||||
\newcommand{\ostwo}{\textsc{os/2}\ }
|
||||
\newcommand{\windows}{\textsc{Windows}\ }
|
||||
\newcommand{\windowsnt}{\textsc{WindowsNT}\ }
|
||||
\newcommand{\fpk}{Free Pascal\ }
|
||||
\newcommand{\fpc}{Free Pascal\ }
|
||||
\newcommand{\gnu}{\textsc{gnu}\ }
|
||||
% end of fpk.sty
|
||||
%
|
||||
% Some versions
|
||||
%
|
||||
\newcommand{\fpcversion}{0.99.7}
|
||||
% end of fpc.sty
|
||||
@ -1,4 +1,4 @@
|
||||
fpk.sty defines the following:
|
||||
fpc.sty defines the following:
|
||||
|
||||
\procedure{name}{args}{desc}{errs}{seealso}
|
||||
\Procedure{name}{desc}{errs}{seealso}
|
||||
@ -51,7 +51,7 @@ makes a cross reference (pageref) to procedure name..
|
||||
produces a reference to a UNIX man page. as in :
|
||||
man (sec)
|
||||
|
||||
For nice typesetting it defines also \fpk, which niicely formats the name of
|
||||
For nice typesetting it defines also \fpc, which nicely formats the name of
|
||||
the compiler.
|
||||
|
||||
Then it defines also
|
||||
@ -60,6 +60,7 @@ Then it defines also
|
||||
\msdos
|
||||
\ostwo
|
||||
\windowsnt
|
||||
\windows
|
||||
commands, which just typeset in small caps the name of the OS's...
|
||||
|
||||
I think that's about it.
|
||||
@ -18,17 +18,17 @@
|
||||
% write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
% Boston, MA 02111-1307, USA.
|
||||
%
|
||||
\ProvidesPackage{fpkman}[1997/06/25]
|
||||
\ProvidesPackage{fpcman}[1997/06/25]
|
||||
\NeedsTeXFormat{LaTeX2e}
|
||||
\ExecuteOptions{titlepage}
|
||||
% First, all definitions for latex only.
|
||||
\newcommand{\docdescription}[1]{\def\@FPKDescription{#1}}
|
||||
\gdef\@FPKDescription{}%
|
||||
\newcommand{\docversion}[1]{\def\@FPKVersion{#1}}
|
||||
\gdef\@FPKVersion{}%
|
||||
\newcommand{\docdescription}[1]{\def\@FPCDescription{#1}}
|
||||
\gdef\@FPCDescription{}%
|
||||
\newcommand{\docversion}[1]{\def\@FPCVersion{#1}}
|
||||
\gdef\@FPCVersion{}%
|
||||
% For backwards compatibility
|
||||
\newcommand{\unitdescription}[1]{\def\@FPKDescription{#1}}
|
||||
\newcommand{\unitversion}[1]{\def\@FPKVersion{#1}}
|
||||
\newcommand{\unitdescription}[1]{\def\@FPCDescription{#1}}
|
||||
\newcommand{\unitversion}[1]{\def\@FPCVersion{#1}}
|
||||
\renewcommand\maketitle{\begin{titlepage}%
|
||||
\let\footnotesize\small
|
||||
\let\footnoterule\relax
|
||||
@ -38,8 +38,8 @@
|
||||
\noindent \rule{\linewidth}{1.5mm}\\%
|
||||
{\raggedleft\large%
|
||||
\begin{tabular}[t]{r}%
|
||||
\@FPKDescription \\
|
||||
\@FPKVersion \\
|
||||
\@FPCDescription \\
|
||||
\@FPCVersion \\
|
||||
\@date
|
||||
\end{tabular}\par}%
|
||||
\vskip 5cm%
|
||||
@ -57,12 +57,12 @@
|
||||
% redefine the subsection command to leave less space,
|
||||
%and to use sans serif
|
||||
% Now, Let's define the \procedure and \function commands.
|
||||
\newcommand{\FPKlabel}[1]{%
|
||||
\newcommand{\FPClabel}[1]{%
|
||||
\raggedleft\makebox[0pt][r]{\textsf{#1:}}
|
||||
}
|
||||
\newenvironment{FPKList}
|
||||
\newenvironment{FPCList}
|
||||
{\begin{list}{}{%
|
||||
\renewcommand{\makelabel}[1]{\FPKlabel{##1}\hfil\relax}
|
||||
\renewcommand{\makelabel}[1]{\FPClabel{##1}\hfil\relax}
|
||||
\setlength{\labelwidth}{0pt}%
|
||||
\setlength{\leftmargin}{0pt}}%
|
||||
\setlength{\labelsep}{0pt}%
|
||||
@ -73,7 +73,7 @@
|
||||
\raisebox{1ex}{\rule{\linewidth}{0.5mm}}
|
||||
\label{fu:#1}
|
||||
\index{#1}
|
||||
\begin{FPKList}
|
||||
\begin{FPCList}
|
||||
\item[Declaration]
|
||||
\texttt {Function #1 #2 : #3;}
|
||||
\item[Description]
|
||||
@ -82,14 +82,14 @@
|
||||
#5
|
||||
\item[See also]
|
||||
#6
|
||||
\end{FPKList}
|
||||
\end{FPCList}
|
||||
}
|
||||
\newcommand{\procedure}[5]{
|
||||
\subsection{#1}
|
||||
\raisebox{1ex}{\rule{\linewidth}{0.5mm}}
|
||||
\label{pro:#1}
|
||||
\index{#1}
|
||||
\begin{FPKList}
|
||||
\begin{FPCList}
|
||||
\item[Declaration]
|
||||
\texttt {Function #1 #2;}
|
||||
\item[Description]
|
||||
@ -98,7 +98,7 @@
|
||||
#4
|
||||
\item[See also]
|
||||
#5
|
||||
\end{FPKList}
|
||||
\end{FPCList}
|
||||
}
|
||||
% define a capital version,
|
||||
% for function/command which has no options passed to it.
|
||||
@ -137,9 +137,9 @@
|
||||
% For Code examples (complete programs only)
|
||||
\newenvironment{CodEx}{}{}
|
||||
% For Tables.
|
||||
\newenvironment{FPKtable}[2]{\begin{table}\caption{#2}\begin{center}\begin{tabular}{#1}}{\end{tabular}\end{center}\end{table}}
|
||||
\newenvironment{FPCtable}[2]{\begin{table}\caption{#2}\begin{center}\begin{tabular}{#1}}{\end{tabular}\end{center}\end{table}}
|
||||
% The same, but with label in third argument (tab:#3)
|
||||
\newenvironment{FPKltable}[3]{\begin{table}\caption{#2}\label{tab:#3}\begin{center}\begin{tabular}{#1}}{\end{tabular}\end{center}\end{table}}
|
||||
\newenvironment{FPCltable}[3]{\begin{table}\caption{#2}\label{tab:#3}\begin{center}\begin{tabular}{#1}}{\end{tabular}\end{center}\end{table}}
|
||||
%
|
||||
% Commands to reference these things.
|
||||
%
|
||||
@ -151,6 +151,8 @@
|
||||
\newcommand{\ostwo}{\textsc{os/2}\ }
|
||||
\newcommand{\windowsnt}{\textsc{WindowsNT}\ }
|
||||
\newcommand{\windows}{\textsc{Windows}\ }
|
||||
\newcommand{\fpk}{Free Pascal\ }
|
||||
\newcommand{\fpc}{Free Pascal\ }
|
||||
\newcommand{\gnu}{\textsc{gnu}\ }
|
||||
% end of fpkman.sty
|
||||
%
|
||||
\newcommand{\fpcversion}{0.99.1}
|
||||
% end of fpcman.sty
|
||||
107
docs/fpk.perl
107
docs/fpk.perl
@ -1,107 +0,0 @@
|
||||
# FPK.PERL script. Accompagnies fpk.sty
|
||||
# by Michael Van Canneyt <michael@tfdec1.fys.kuleuven.ac.be>
|
||||
# December 1996
|
||||
#
|
||||
# Extension to LaTeX2HTML, to translate fpk style commands.
|
||||
#
|
||||
|
||||
package main;
|
||||
|
||||
$fpkresult='';
|
||||
|
||||
sub FPKinternalproc{
|
||||
local ($name, $decl, $desc, $errors, $seealso) = @_ ;
|
||||
local ($result) = '';
|
||||
|
||||
$result = "<H2>$name</H2>\n<P>\n" ;
|
||||
$result .= "<H3>Declaration:</H3>\n<P>\n<TT>$decl</TT>\n<P>\n" ;
|
||||
$result .= "<H3>Description:</H3>\n<P>\n$desc\n<P>\n" ;
|
||||
$result .= "<H3>Errors:</H3>\n<P>\n$errors\n<P>\n" ;
|
||||
$result .= "<H3>See Also:</H3>\n<P>\n$seealso\n<P>\n" ;
|
||||
$result ;
|
||||
}
|
||||
|
||||
sub do_cmd_procedure
|
||||
{
|
||||
$fpkresult = "<H2>$_[0]</H2>\n<P>\n" ;
|
||||
$fpkresult .= "<H3>Declaration:</H3>\n<P>\n<TT>Procedure $_[0] $_[1]</TT>\n<P>\n" ;
|
||||
$fpkresult .= "<H3>Description:</H3>\n<P>\n$_[2]\n<P>\n" ;
|
||||
$fpkresult .= "<H3>Errors:</H3>\n<P>\n$_[3]\n<P>\n" ;
|
||||
$fpkresult .= "<H3>See Also:</H3>\n<P>\n$_[4]\n<P>\n" ;
|
||||
$fpkresult ;
|
||||
}
|
||||
|
||||
sub do_cmd_Procedure
|
||||
{
|
||||
$fpkresult = "<H2>$_[0]</H2>\n<P>\n" ;
|
||||
$fpkresult .= "<H3>Declaration:</H3>\n<P>\n<TT>Procedure $_[0];</TT>\n<P>\n" ;
|
||||
$fpkresult .= "<H3>Description:</H3>\n<P>\n$_[1]\n<P>\n" ;
|
||||
$fpkresult .= "<H3>Errors:</H3>\n<P>\n$_[2]\n<P>\n" ;
|
||||
$fpkresult .= "<H3>See Also:</H3>\n<P>\n$_[3]\n<P>\n" ;
|
||||
$fpkresult ;
|
||||
}
|
||||
|
||||
sub do_cmd_Function
|
||||
{
|
||||
$fpkresult = "<H2>$_[0]</H2>\n<P>\n" ;
|
||||
$fpkresult .= "<H3>Declaration:</H3>\n<P>\n<TT>Function $_[0] : $_[1]</TT>\n<P>\n" ;
|
||||
$fpkresult .= "<H3>Description:</H3>\n<P>\n$_[2]\n<P>\n" ;
|
||||
$fpkresult .= "<H3>Errors:</H3>\n<P>\n$_[3]\n<P>\n" ;
|
||||
$fpkresult .= "<H3>See Also:</H3>\n<P>\n$_[4]\n<P>\n" ;
|
||||
$fpkresult ;
|
||||
}
|
||||
|
||||
sub do_cmd_function
|
||||
{
|
||||
$fpkresult = "<H2>$_[0]</H2>\n<P>\n" ;
|
||||
$fpkresult .= "<H3>Declaration:</H3>\n<P>\n<TT>Function $_[0] $_[1] : $_[2]</TT>\n<P>\n" ;
|
||||
$fpkresult .= "<H3>Description:</H3>\n<P>\n$_[3]\n<P>\n" ;
|
||||
$fpkresult .= "<H3>Errors:</H3>\n<P>\n$_[4]\n<P>\n" ;
|
||||
$fpkresult .= "<H3>See Also:</H3>\n<P>\n$_[5]\n<P>\n" ;
|
||||
$fpkresult ;
|
||||
}
|
||||
|
||||
sub do_cmd_var{
|
||||
local ($_) = @_;
|
||||
"<TT>$_</TT>" ;
|
||||
}
|
||||
|
||||
sub do_cmd_linux{
|
||||
"LinuX" ;
|
||||
}
|
||||
|
||||
sub do_cmd_dos{
|
||||
"DOS" ;
|
||||
}
|
||||
|
||||
sub do_cmd_msdos{
|
||||
"MS-DOS" ;
|
||||
}
|
||||
|
||||
sub do_cmd_windowsnt{
|
||||
"Windows NT" ;
|
||||
}
|
||||
|
||||
sub do_cmd_ostwo{
|
||||
"OS/2" ;
|
||||
}
|
||||
|
||||
sub do_cmd_seep{
|
||||
"" ;
|
||||
}
|
||||
|
||||
sub do_cmd_seef{
|
||||
"" ;
|
||||
}
|
||||
|
||||
sub do_cmd_seem{
|
||||
"" ;
|
||||
}
|
||||
|
||||
# For testing purposes
|
||||
# print do_cmd_procedure ("Proc1","decl1","desc1","err1","see1");
|
||||
# print do_cmd_Procedure ("Proc2","desc2","err2","see2");
|
||||
# print do_cmd_function ("Fun1","fdecl1","ftype1","fdesc1","ferr1","fsee1");
|
||||
# print do_cmd_Function ("Fun2","ftype2","fdesc2","ferr2","fsee2");
|
||||
|
||||
1; # required...
|
||||
Loading…
Reference in New Issue
Block a user