Browse Source

Changed name to fpc

michael 27 years ago
parent
commit
f347826099
6 changed files with 161 additions and 153 deletions
  1. 4 4
      docs/fpc-html.tex
  2. 107 0
      docs/fpc.perl
  3. 25 20
      docs/fpc.sty
  4. 3 2
      docs/fpc.sty.doc
  5. 22 20
      docs/fpcman.sty
  6. 0 107
      docs/fpk.perl

+ 4 - 4
docs/fpk-html.tex → docs/fpc-html.tex

@@ -19,7 +19,7 @@
 %   Boston, MA 02111-1307, USA. 
 %   Boston, MA 02111-1307, USA. 
 %
 %
 % Dummy
 % Dummy
-\newenvironment{FPKList}{\begin{description}}{\end{description}}
+\newenvironment{FPCList}{\begin{description}}{\end{description}}
 \newcommand{\functionl}[7]{
 \newcommand{\functionl}[7]{
 \subsection{#1}
 \subsection{#1}
 \label{fu:#2}
 \label{fu:#2}
@@ -85,7 +85,7 @@
 \newcommand{\docversion}[1]{}
 \newcommand{\docversion}[1]{}
 \newcommand{\unitdescription}[1]{}
 \newcommand{\unitdescription}[1]{}
 \newcommand{\unitversion}[1]{}
 \newcommand{\unitversion}[1]{}
-\newcommand{\fpk}{Free Pascal }
+\newcommand{\fpc}{Free Pascal }
 \newcommand{\gnu}{gnu }
 \newcommand{\gnu}{gnu }
 %
 %
 % Useful references.
 % Useful references.
@@ -108,9 +108,9 @@
 % For Code examples (complete programs only)
 % For Code examples (complete programs only)
 \newenvironment{CodEx}{}{}
 \newenvironment{CodEx}{}{}
 % For Tables.
 % 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)
 % 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.
 % Commands to reference these things.
 %
 %

+ 107 - 0
docs/fpc.perl

@@ -0,0 +1,107 @@
+# FPC.PERL script. Accompagnies fpc.sty
+# by Michael Van Canneyt <[email protected]>
+# 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...

+ 25 - 20
docs/fpk.sty → docs/fpc.sty

@@ -18,17 +18,17 @@
 %   write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 %   write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 %   Boston, MA 02111-1307, USA. 
 %   Boston, MA 02111-1307, USA. 
 %
 %
-\ProvidesPackage{fpk}[1996/12/09]
+\ProvidesPackage{fpc}[1996/12/09]
 \NeedsTeXFormat{LaTeX2e}
 \NeedsTeXFormat{LaTeX2e}
 \ExecuteOptions{titlepage}
 \ExecuteOptions{titlepage}
 % First, all definitions for latex only.
 % 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
 % 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}%
 \renewcommand\maketitle{\begin{titlepage}%
   \let\footnotesize\small
   \let\footnotesize\small
   \let\footnoterule\relax
   \let\footnoterule\relax
@@ -38,8 +38,8 @@
   \noindent \rule{\linewidth}{1.5mm}\\%
   \noindent \rule{\linewidth}{1.5mm}\\%
   {\raggedleft\large%
   {\raggedleft\large%
       \begin{tabular}[t]{r}%
       \begin{tabular}[t]{r}%
-        \@FPKDescription \\
-        \@FPKVersion \\
+        \@FPCDescription \\
+        \@FPCVersion \\
         \@date
         \@date
       \end{tabular}\par}%
       \end{tabular}\par}%
    \vskip 5cm%
    \vskip 5cm%
@@ -64,12 +64,12 @@
 {1pt}%
 {1pt}%
 {\normalfont\large\sffamily\bfseries}}
 {\normalfont\large\sffamily\bfseries}}
 % Now, Let's define the \procedure and \function commands.
 % Now, Let's define the \procedure and \function commands.
-\newcommand{\FPKlabel}[1]{%
+\newcommand{\FPClabel}[1]{%
 \raggedleft\makebox[0pt][r]{\textsf{#1:}}
 \raggedleft\makebox[0pt][r]{\textsf{#1:}}
 }
 }
-\newenvironment{FPKList}
+\newenvironment{FPCList}
 {\begin{list}{}{%
 {\begin{list}{}{%
-\renewcommand{\makelabel}[1]{\FPKlabel{##1}\hfil\relax}
+\renewcommand{\makelabel}[1]{\FPClabel{##1}\hfil\relax}
  \setlength{\labelwidth}{0pt}%
  \setlength{\labelwidth}{0pt}%
  \setlength{\leftmargin}{0pt}}%
  \setlength{\leftmargin}{0pt}}%
  \setlength{\labelsep}{0pt}%
  \setlength{\labelsep}{0pt}%
@@ -84,7 +84,7 @@
 \raisebox{1ex}{\rule{\linewidth}{0.5mm}}
 \raisebox{1ex}{\rule{\linewidth}{0.5mm}}
 \label{fu:#2}
 \label{fu:#2}
 \index{#1}
 \index{#1}
-\begin{FPKList}
+\begin{FPCList}
 \item[Declaration]
 \item[Declaration]
 \texttt {Function #1  #3  : #4;}
 \texttt {Function #1  #3  : #4;}
 \item[Description]
 \item[Description]
@@ -93,14 +93,14 @@
 #6
 #6
 \item[See also]
 \item[See also]
 #7
 #7
-\end{FPKList}
+\end{FPCList}
 }
 }
 \newcommand{\procedurel}[6]{
 \newcommand{\procedurel}[6]{
 \subsection{#1}
 \subsection{#1}
 \raisebox{1ex}{\rule{\linewidth}{0.5mm}}
 \raisebox{1ex}{\rule{\linewidth}{0.5mm}}
 \label{pro:#2}
 \label{pro:#2}
 \index{#1}
 \index{#1}
-\begin{FPKList}
+\begin{FPCList}
 \item[Declaration]
 \item[Declaration]
 \texttt {Procedure #1  #3;}
 \texttt {Procedure #1  #3;}
 \item[Description]
 \item[Description]
@@ -109,7 +109,7 @@
 #5
 #5
 \item[See also]
 \item[See also]
 #6
 #6
-\end{FPKList}
+\end{FPCList}
 }
 }
 % define a capital version, 
 % define a capital version, 
 % for function/command which has no options passed to it.
 % for function/command which has no options passed to it.
@@ -152,6 +152,7 @@
 \newcommand{\progref}{\htmladdnormallink{Programmers' guide}{../prog/prog.html}\ }
 \newcommand{\progref}{\htmladdnormallink{Programmers' guide}{../prog/prog.html}\ }
 \newcommand{\refref}{\htmladdnormallink{Reference guide}{../ref/ref.html}\ }
 \newcommand{\refref}{\htmladdnormallink{Reference guide}{../ref/ref.html}\ }
 \newcommand{\userref}{\htmladdnormallink{Users' guide}{../user/user.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{\seecrt}{\htmladdnormallink{CRT}{../crt/crt.html}}
 \newcommand{\seelinux}{\htmladdnormallink{Linux}{../linux/linux.html}}
 \newcommand{\seelinux}{\htmladdnormallink{Linux}{../linux/linux.html}}
 \newcommand{\seestrings}{\htmladdnormallink{strings}{../strings/strings.html}}
 \newcommand{\seestrings}{\htmladdnormallink{strings}{../strings/strings.html}}
@@ -167,9 +168,9 @@
 % For Code examples (complete programs only)
 % For Code examples (complete programs only)
 \newenvironment{CodEx}{}{}
 \newenvironment{CodEx}{}{}
 % For Tables.
 % 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)
 % 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.
 % Commands to reference these things.
 %
 %
@@ -183,6 +184,10 @@
 \newcommand{\ostwo}{\textsc{os/2}\ }
 \newcommand{\ostwo}{\textsc{os/2}\ }
 \newcommand{\windows}{\textsc{Windows}\ }
 \newcommand{\windows}{\textsc{Windows}\ }
 \newcommand{\windowsnt}{\textsc{WindowsNT}\ }
 \newcommand{\windowsnt}{\textsc{WindowsNT}\ }
-\newcommand{\fpk}{Free Pascal\ }
+\newcommand{\fpc}{Free Pascal\ }
 \newcommand{\gnu}{\textsc{gnu}\ }
 \newcommand{\gnu}{\textsc{gnu}\ }
-% end of fpk.sty
+%
+% Some versions 
+%
+\newcommand{\fpcversion}{0.99.7}
+% end of fpc.sty

+ 3 - 2
docs/fpk.sty.doc → docs/fpc.sty.doc

@@ -1,4 +1,4 @@
-fpk.sty defines the following:
+fpc.sty defines the following:
 
 
 \procedure{name}{args}{desc}{errs}{seealso}
 \procedure{name}{args}{desc}{errs}{seealso}
 \Procedure{name}{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 : 
 produces a reference to a UNIX man page. as in : 
 man (sec)
 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.
 the compiler.
 
 
 Then it defines also
 Then it defines also
@@ -60,6 +60,7 @@ Then it defines also
 \msdos
 \msdos
 \ostwo
 \ostwo
 \windowsnt
 \windowsnt
+\windows
 commands, which just typeset in small caps the name of the OS's...
 commands, which just typeset in small caps the name of the OS's...
 
 
 I think that's about it.
 I think that's about it.

+ 22 - 20
docs/fpkman.sty → docs/fpcman.sty

@@ -18,17 +18,17 @@
 %   write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 %   write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 %   Boston, MA 02111-1307, USA. 
 %   Boston, MA 02111-1307, USA. 
 %
 %
-\ProvidesPackage{fpkman}[1997/06/25]
+\ProvidesPackage{fpcman}[1997/06/25]
 \NeedsTeXFormat{LaTeX2e}
 \NeedsTeXFormat{LaTeX2e}
 \ExecuteOptions{titlepage}
 \ExecuteOptions{titlepage}
 % First, all definitions for latex only.
 % 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
 % 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}%
 \renewcommand\maketitle{\begin{titlepage}%
   \let\footnotesize\small
   \let\footnotesize\small
   \let\footnoterule\relax
   \let\footnoterule\relax
@@ -38,8 +38,8 @@
   \noindent \rule{\linewidth}{1.5mm}\\%
   \noindent \rule{\linewidth}{1.5mm}\\%
   {\raggedleft\large%
   {\raggedleft\large%
       \begin{tabular}[t]{r}%
       \begin{tabular}[t]{r}%
-        \@FPKDescription \\
-        \@FPKVersion \\
+        \@FPCDescription \\
+        \@FPCVersion \\
         \@date
         \@date
       \end{tabular}\par}%
       \end{tabular}\par}%
    \vskip 5cm%
    \vskip 5cm%
@@ -57,12 +57,12 @@
 % redefine the subsection command to leave less space, 
 % redefine the subsection command to leave less space, 
 %and to use sans serif
 %and to use sans serif
 % Now, Let's define the \procedure and \function commands.
 % Now, Let's define the \procedure and \function commands.
-\newcommand{\FPKlabel}[1]{%
+\newcommand{\FPClabel}[1]{%
 \raggedleft\makebox[0pt][r]{\textsf{#1:}}
 \raggedleft\makebox[0pt][r]{\textsf{#1:}}
 }
 }
-\newenvironment{FPKList}
+\newenvironment{FPCList}
 {\begin{list}{}{%
 {\begin{list}{}{%
-\renewcommand{\makelabel}[1]{\FPKlabel{##1}\hfil\relax}
+\renewcommand{\makelabel}[1]{\FPClabel{##1}\hfil\relax}
  \setlength{\labelwidth}{0pt}%
  \setlength{\labelwidth}{0pt}%
  \setlength{\leftmargin}{0pt}}%
  \setlength{\leftmargin}{0pt}}%
  \setlength{\labelsep}{0pt}%
  \setlength{\labelsep}{0pt}%
@@ -73,7 +73,7 @@
 \raisebox{1ex}{\rule{\linewidth}{0.5mm}}
 \raisebox{1ex}{\rule{\linewidth}{0.5mm}}
 \label{fu:#1}
 \label{fu:#1}
 \index{#1}
 \index{#1}
-\begin{FPKList}
+\begin{FPCList}
 \item[Declaration]
 \item[Declaration]
 \texttt {Function #1  #2  : #3;}
 \texttt {Function #1  #2  : #3;}
 \item[Description]
 \item[Description]
@@ -82,14 +82,14 @@
 #5
 #5
 \item[See also]
 \item[See also]
 #6
 #6
-\end{FPKList}
+\end{FPCList}
 }
 }
 \newcommand{\procedure}[5]{
 \newcommand{\procedure}[5]{
 \subsection{#1}
 \subsection{#1}
 \raisebox{1ex}{\rule{\linewidth}{0.5mm}}
 \raisebox{1ex}{\rule{\linewidth}{0.5mm}}
 \label{pro:#1}
 \label{pro:#1}
 \index{#1}
 \index{#1}
-\begin{FPKList}
+\begin{FPCList}
 \item[Declaration]
 \item[Declaration]
 \texttt {Function #1  #2;}
 \texttt {Function #1  #2;}
 \item[Description]
 \item[Description]
@@ -98,7 +98,7 @@
 #4
 #4
 \item[See also]
 \item[See also]
 #5
 #5
-\end{FPKList}
+\end{FPCList}
 }
 }
 % define a capital version, 
 % define a capital version, 
 % for function/command which has no options passed to it.
 % for function/command which has no options passed to it.
@@ -137,9 +137,9 @@
 % For Code examples (complete programs only)
 % For Code examples (complete programs only)
 \newenvironment{CodEx}{}{}
 \newenvironment{CodEx}{}{}
 % For Tables.
 % 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)
 % 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.
 % Commands to reference these things.
 %
 %
@@ -151,6 +151,8 @@
 \newcommand{\ostwo}{\textsc{os/2}\ }
 \newcommand{\ostwo}{\textsc{os/2}\ }
 \newcommand{\windowsnt}{\textsc{WindowsNT}\ }
 \newcommand{\windowsnt}{\textsc{WindowsNT}\ }
 \newcommand{\windows}{\textsc{Windows}\ }
 \newcommand{\windows}{\textsc{Windows}\ }
-\newcommand{\fpk}{Free Pascal\ }
+\newcommand{\fpc}{Free Pascal\ }
 \newcommand{\gnu}{\textsc{gnu}\ }
 \newcommand{\gnu}{\textsc{gnu}\ }
-% end of fpkman.sty
+%
+\newcommand{\fpcversion}{0.99.1}
+% end of fpcman.sty

+ 0 - 107
docs/fpk.perl

@@ -1,107 +0,0 @@
-# FPK.PERL script. Accompagnies fpk.sty
-# by Michael Van Canneyt <[email protected]>
-# 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...