hyung-hwan/qse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
hyung-hwan 2007-02-04 05:03:01 +00:00
parent f41ff496b1
commit 455522e89e
2 changed files with 95 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ase/doc/ase.man
View File

@ -17,7 +17,19 @@ ase/etc -
ase/doc - ase/doc -
{{{ {{{
hello #if defined(__BORLANDC__)
mr monkey... #pragma hdrstop
#include <stdio.h> #define Library
#endif
#include <ase/awk/awk_i.h>
static void __free_afn (void* awk, void* afn);
ase_awk_t* ase_awk_open (
const ase_awk_prmfns_t* prmfns, void* custom_data, int* errnum)
{
ase_awk_t* awk;
}
}}} }}}

102
ase/rel/doc.awk
View File

@ -1,13 +1,17 @@
global header, mode; global header, mode;
global empty_line_count;
global para_started;
BEGIN { BEGIN {
header = 1; header = 1;
mode = 0; mode = 0;
empty_line_count = 0;
para_started = 0;
output=ARGV[0]; output=ARGV[0];
gsub (/\.man/, ".html", output); gsub (/\.man/, ".html", output);
print "OUTPUT TO: " output; #print "OUTPUT TO: " output;
print "</html>"; print "</html>";
print "</head>"; print "</head>";
@ -32,37 +36,91 @@ header && !/^\.[[:alpha:]]+[[:space:]]/ {
if (mode == 0) if (mode == 0)
{ {
if (/^== [^=]+ ==$/) if (/^$/)
{ {
text=substr($0, 3, length($0)-4); # empty line
print "<h2>" text "</h2>"; if (para_started)
} {
else if (/^=== [^=]+ ===$/) para_started = 0;
{ print "</p>";
text=substr($0, 4, length($0)-6); }
print "<h3>" text "</h3>"; empty_line_count++;
}
else if (/^\{\{\{$/)
{
print "<pre>";
mode = 1;
}
else if (/^$/)
{
print "<br>";
} }
else else
{ {
gsub ("<", "\\&lt;"); if (/^= [^=]+ =$/)
gsub (">", "\\&gt;"); {
print $0; if (para_started)
print "<br>"; {
print "</p>";
para_started = 0;
}
text=substr($0, 2, length($0)-2);
print "<h1>" text "</h1>";
}
else if (/^== [^=]+ ==$/)
{
if (para_started)
{
print "</p>";
para_started = 0;
}
text=substr($0, 3, length($0)-4);
print "<h2>" text "</h2>";
}
else if (/^=== [^=]+ ===$/)
{
if (para_started)
{
print "</p>";
para_started = 0;
}
text=substr($0, 4, length($0)-6);
print "<h3>" text "</h3>";
}
else if (/^==== [^=]+ ====$/)
{
if (para_started)
{
print "</p>";
para_started = 0;
}
text=substr($0, 5, length($0)-8);
print "<h34" text "</h4>";
}
else if (/^\{\{\{$/)
{
# {{{
if (para_started)
{
print "</p>";
para_started = 0;
}
print "<pre>";
mode = 1;
}
else
{
if (!para_started > 0)
{
print "<p>";
para_started = 1;
}
gsub ("<", "\\&lt;");
gsub (">", "\\&gt;");
print $0;
print "<br>";
}
empty_line_count = 0;
} }
} }
else if (mode == 1) else if (mode == 1)
{ {
if (/^}}}$/) if (/^}}}$/)
{ {
# }}}
print "</pre>"; print "</pre>";
mode = 0; mode = 0;
} }