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}
*/
@ -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_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.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 ===
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 -
[[[
* 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 -
]]]
[[[
* 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__)
#pragma hdrstop
@ -31,5 +44,4 @@ ase_awk_t* ase_awk_open (
{
ase_awk_t* awk;
}
}}}

40
ase/rel/doc.awk
View File

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