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:34:36 +00:00
parent 455522e89e
commit 39d62eedbe
3 changed files with 73 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ase/awk/rex.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: rex.c,v 1.57 2007-02-04 04:40:33 bacon Exp $ * $Id: rex.c,v 1.58 2007-02-04 05:34:36 bacon Exp $
* *
* {License} * {License}
*/ */
@ -532,6 +532,17 @@ static int __build_atom (__builder_t* builder)
if (builder->ptn.curc.type == CT_EOF) return 0; if (builder->ptn.curc.type == CT_EOF) return 0;
if (builder->ptn.curc.type == CT_SPECIAL &&
builder->ptn.curc.value == ASE_T(')'))
{
/* due to the character reader, the right parenthesis
* is returned as a special character at the top level.
* however, it doesn't have to be special if not following
* the left parenthesis. so the coversion is performed
* here. i believe, this approach is fairly ugly */
builder->ptn.curc.type = CT_NORMAL;
}
if (builder->ptn.curc.type == CT_SPECIAL) if (builder->ptn.curc.type == CT_SPECIAL)
{ {
if (builder->ptn.curc.value == ASE_T('(')) if (builder->ptn.curc.value == ASE_T('('))

32
ase/doc/ase.man
View File

@ -6,16 +6,29 @@ ASE is a library implementing various programming languages for embedding purpos
=== Source === === Source ===
ase - the root directory of the ase project [[[
ase/awk - AWK module * ase - the root directory of the ase project
ase/lsp - lisp module * ase/awk - AWK module
ase/com - COM interface source code for ASE modules * ase/lsp - lisp module
ase/test/awk - * ase/com - COM interface source code for ASE modules
ase/test/lsp - * ase/test/awk -
ase/test/com - * ase/test/lsp -
ase/etc - * ase/test/com -
ase/doc - * ase/etc -
* ase/doc -
]]]
[[[
* ase - the root directory of the ase project
* ase/awk - AWK module
* ase/lsp - lisp module
* ase/com - COM interface source code for ASE modules
* ase/test/awk -
* ase/test/lsp -
* ase/test/com -
* ase/etc -
* ase/doc -
]]]
{{{ {{{
#if defined(__BORLANDC__) #if defined(__BORLANDC__)
#pragma hdrstop #pragma hdrstop
@ -31,5 +44,4 @@ ase_awk_t* ase_awk_open (
{ {
ase_awk_t* awk; ase_awk_t* awk;
} }
}}} }}}

40
ase/rel/doc.awk
View File

@ -1,6 +1,7 @@
global header, mode; global header, mode;
global empty_line_count; global empty_line_count;
global para_started; global para_started;
global list_count;
BEGIN { BEGIN {
header = 1; header = 1;
@ -15,6 +16,7 @@ BEGIN {
print "</html>"; print "</html>";
print "</head>"; print "</head>";
print "<link href='doc.css' rel='stylesheet' type='text/css' />";
} }
header && /^\.[[:alpha:]]+[[:space:]]/ { header && /^\.[[:alpha:]]+[[:space:]]/ {
@ -96,9 +98,20 @@ header && !/^\.[[:alpha:]]+[[:space:]]/ {
print "</p>"; print "</p>";
para_started = 0; para_started = 0;
} }
print "<pre>"; print "<pre class='code'>";
mode = 1; mode = 1;
} }
else if (/\[\[\[/)
{
if (para_started)
{
print "</p>";
para_started = 0;
}
print "<ul>";
mode = 2;
list_count = 0;
}
else else
{ {
if (!para_started > 0) if (!para_started > 0)
@ -131,6 +144,31 @@ header && !/^\.[[:alpha:]]+[[:space:]]/ {
print $0; print $0;
} }
} }
else if (mode == 2)
{
if (/^]]]$/)
{
# )))
print "</li>";
print "</ul>";
mode = 0;
}
else if (/^\* [^[:space:]]+/)
{
gsub ("<", "\\&lt;");
gsub (">", "\\&gt;");
if (list_count > 0) print "</li>";
print "<li>";
print substr ($0, 3, length($0)-2);
list_count++;
}
else
{
gsub ("<", "\\&lt;");
gsub (">", "\\&gt;");
print $0;
}
}
} }
END { END {