← Back to branch summary

~ubuntu-branches/ubuntu/feisty/fpc/feisty

« back to all changes in this revision

Viewing changes to fpcdocs/old/fpc.perl

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2007-01-27 20:08:50 UTC
  • mfrom: (1.2.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20070127200850-9mrptaqqjsx9nwa7
Tags: 2.0.4-5
* Fixed Build-Depends.
* Add myself to Uploaders in debian/control.
* Make sure that the sources are really patched before building them.
* Build unit 'libc' on powerpc too.

Show diffs side-by-side

added added

removed removed

Lines of Context:
fpcdocs/old/fpc.perl
 
1
#!/usr/bin/perl
 
2
# FPC.PERL script. Accompagnies fpc.sty
 
3
# by Michael Van Canneyt <michael@tfdec1.fys.kuleuven.ac.be>
 
4
# December 1996
 
5
#
 
6
# Extension to LaTeX2HTML, to translate fpc style commands.
 
7
#
 
8
 
 
9
package main;
 
10
 
 
11
$fpcresult='';
 
12
 
 
13
sub FPCinternalproc{
 
14
local ($name, $decl, $desc, $errors, $seealso) = @_ ;
 
15
local ($result) = '';
 
16
 
 
17
 $result  = "<H2>$name</H2>\n<P>\n" ;
 
18
 $result .= "<H3>Declaration:</H3>\n<P>\n<TT>$decl</TT>\n<P>\n" ;
 
19
 $result .= "<H3>Description:</H3>\n<P>\n$desc\n<P>\n" ;
 
20
 $result .= "<H3>Errors:</H3>\n<P>\n$errors\n<P>\n" ;
 
21
 $result .= "<H3>See Also:</H3>\n<P>\n$seealso\n<P>\n" ;
 
22
 $result ;
 
23
}
 
24
 
 
25
sub FPCListing{
 
26
local ($name, $decl, $desc, $errors, $seealso) = @_ ;
 
27
local ($result) = '';
 
28
 
 
29
 $result  = "<H2>$name</H2>\n<P>\n" ;
 
30
 $result .= "<H3>Declaration:</H3>\n<P>\n<TT>$decl</TT>\n<P>\n" ;
 
31
 $result .= "<H3>Description:</H3>\n<P>\n$desc\n<P>\n" ;
 
32
 $result .= "<H3>Errors:</H3>\n<P>\n$errors\n<P>\n" ;
 
33
 $result .= "<H3>See Also:</H3>\n<P>\n$seealso\n<P>\n" ;
 
34
 $result ;
 
35
}
 
36
 
 
37
sub do_cmd_procedure
 
38
{
 
39
 $fpcresult  = "<H2>$_[0]</H2>\n<P>\n" ;
 
40
 $fpcresult .= "<H3>Declaration:</H3>\n<P>\n<TT>Procedure $_[0] $_[1]</TT>\n<P>\n" ;
 
41
 $fpcresult .= "<H3>Description:</H3>\n<P>\n$_[2]\n<P>\n" ;
 
42
 $fpcresult .= "<H3>Errors:</H3>\n<P>\n$_[3]\n<P>\n" ;
 
43
 $fpcresult .= "<H3>See Also:</H3>\n<P>\n$_[4]\n<P>\n" ;
 
44
 $fpcresult ;
 
45
}
 
46
 
 
47
sub do_cmd_Procedure
 
48
{
 
49
 $fpcresult  = "<H2>$_[0]</H2>\n<P>\n" ;
 
50
 $fpcresult .= "<H3>Declaration:</H3>\n<P>\n<TT>Procedure $_[0];</TT>\n<P>\n" ;
 
51
 $fpcresult .= "<H3>Description:</H3>\n<P>\n$_[1]\n<P>\n" ;
 
52
 $fpcresult .= "<H3>Errors:</H3>\n<P>\n$_[2]\n<P>\n" ;
 
53
 $fpcresult .= "<H3>See Also:</H3>\n<P>\n$_[3]\n<P>\n" ;
 
54
 $fpcresult ;
 
55
}
 
56
 
 
57
sub do_cmd_Function
 
58
{
 
59
 $fpcresult  = "<H2>$_[0]</H2>\n<P>\n" ;
 
60
 $fpcresult .= "<H3>Declaration:</H3>\n<P>\n<TT>Function $_[0] : $_[1]</TT>\n<P>\n" ;
 
61
 $fpcresult .= "<H3>Description:</H3>\n<P>\n$_[2]\n<P>\n" ;
 
62
 $fpcresult .= "<H3>Errors:</H3>\n<P>\n$_[3]\n<P>\n" ;
 
63
 $fpcresult .= "<H3>See Also:</H3>\n<P>\n$_[4]\n<P>\n" ;
 
64
 $fpcresult ;
 
65
}
 
66
 
 
67
sub do_cmd_function
 
68
{
 
69
 $fpcresult  = "<H2>$_[0]</H2>\n<P>\n" ;
 
70
 $fpcresult .= "<H3>Declaration:</H3>\n<P>\n<TT>Function $_[0] $_[1] : $_[2]</TT>\n<P>\n" ;
 
71
 $fpcresult .= "<H3>Description:</H3>\n<P>\n$_[3]\n<P>\n" ;
 
72
 $fpcresult .= "<H3>Errors:</H3>\n<P>\n$_[4]\n<P>\n" ;
 
73
 $fpcresult .= "<H3>See Also:</H3>\n<P>\n$_[5]\n<P>\n" ;
 
74
 $fpcresult ;
 
75
}
 
76
 
 
77
sub do_cmd_var{
 
78
local ($_) = @_;
 
79
"<TT>$_</TT>" ;
 
80
}
 
81
 
 
82
sub do_cmd_linux{
 
83
"LinuX" ;
 
84
}
 
85
 
 
86
sub do_cmd_dos{
 
87
"DOS" ;
 
88
}
 
89
 
 
90
sub do_cmd_msdos{
 
91
"MS-DOS" ;
 
92
}
 
93
 
 
94
sub do_cmd_windowsnt{
 
95
"Windows NT" ;
 
96
}
 
97
 
 
98
sub do_cmd_ostwo{
 
99
"OS/2" ;
 
100
}
 
101
 
 
102
sub do_cmd_seep{
 
103
"" ;
 
104
}
 
105
 
 
106
sub do_cmd_seef{
 
107
"" ;
 
108
}
 
109
 
 
110
sub do_cmd_seem{
 
111
"" ;
 
112
}
 
113
 
 
114
# For testing purposes
 
115
# print do_cmd_procedure ("Proc1","decl1","desc1","err1","see1");
 
116
# print do_cmd_Procedure ("Proc2","desc2","err2","see2");
 
117
# print do_cmd_function  ("Fun1","fdecl1","ftype1","fdesc1","ferr1","fsee1");
 
118
# print do_cmd_Function  ("Fun2","ftype2","fdesc2","ferr2","fsee2");
 
119
 
 
120
1; # required...
 
 
b'\\ No newline at end of file'