divorce/gzz-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

created mirror

Browse Source
This commit is contained in:
whatever
2026-09-14 20:19:29 -04:00
commit 6764738d92
600 changed files with 87187 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
Documentation/wmlinc/art.css Normal file
View File

@@ -0,0 +1,26 @@
body { color: black; background: white;
margin-left: 15%; margin-right: 10%;
text-align: left;
font-size: medium;
}
h1 { margin-left: -15%;}
h2 { margin-left: -15%; margin-top: 2.0em; margin-bottom: 0.5em; }
h3 { margin-left: -7%; margin-top: 0.75em; margin-bottom: 0.5em; }
h4,h5 { margin-left: -0%; margin-top: 0.5em; margin-bottom: 0.25em; }
h1, h2, h3, h4, h5, p, ul { font-family: sans-serif; }
h1, h2, h3, h4, h5 { font-weight: bold; }
h1 { font-size: xx-large; }
h2 { font-size: xx-large; }
h3 { font-size: x-large; }
h4 { font-size: large; }
h5 { font-size: medium; }
dt { font-weight: bold; }
dfn { font-weight: bold; }
code { font-family: monospace; }
.figure { float: right; padding: 1em; padding-bottom: 0em;
border: 1pt solid black; margin-left: 1.5em; }
.figureimg { text-align: center; }
.abstract { width: 60%; text-align: center; }
.algorithm { font-family: serif; background: #00E0E0; margin-left: 1cm;}
span.red { color: red; background: white;}
span.green { color: green; background: white; }

7
Documentation/wmlinc/article.wml Normal file
View File

@@ -0,0 +1,7 @@
#include "common.wml"
#use wml::std::toc style=ol type=11111
<style type="text/css">
#include "art.css"
</style>

56
Documentation/wmlinc/catart.wml Normal file
View File

@@ -0,0 +1,56 @@
#include "common.wml"
<define-tag doctitle endtag=required>
{#TITLE#: %body :##} <H1>%body</H1>
</define-tag>
<:
@sectcounter = (0,0,0,0,0);
sub sectcounter_reset {
my $level = $_[0];
while ($level <= $#sectcounter) {
$sectcounter[$level++] = 0;
}
}
sub sectnum {
my $level = $_[0];
my $rv = "";
while ($level >= 0) {
$rv = "$sectcounter[$level--]." . $rv;
}
return $rv;
}
:>
<define-tag section endtag=required>
<: $sectcounter[%0]++; sectcounter_reset(%0+1);
$num = sectnum(%0); :>
{#MYTOC#: <a href="#SEC<:= $num :>"><:= $num :> %body</a><br> :##}
<h<:= %0 + 2 :>><a name="SEC<:= $num :>"><:= $num :> %body</a></h<:= %0 + 1 :>>
<if <string-neq "%1" ""> <group
{#REF%1#:<a href="#SEC<:= $num :>"><perl>print $num;</perl></a>:##}
/> />
</define-tag>
<define-tag ref>{#REF%0#}</define-tag>
<define-tag s1 endtag=required>
<section 0 %0>%body</section>
</define-tag>
<define-tag s2 endtag=required>
<section 1 %0>%body</section>
</define-tag>
<define-tag s3 endtag=required>
<section 2 %0>%body</section>
</define-tag>
<define-tag s4 endtag=required>
<section 3 %0>%body</section>
</define-tag>
<define-tag s5 endtag=required>
<section 4 %0>%body</section>
</define-tag>
<html>
<head>
<title>{#TITLE#}</title>
<style type="text/css">
#include "art.css"
</style>
</head>

117
Documentation/wmlinc/common.wml Normal file
View File

@@ -0,0 +1,117 @@
<!-- Substitute dimensions so that they are written in a good
font. -->
<define-tag substdims endtag=required>
{: [[s/(?<!>)(d\.+[-\w]+)/<code>\1<\/code>/g]]
%body
:}
</define-tag>
<!-- Link to other GZZ documentation (separate tag needed to allow
NS4-compatible docs to link to NS4-compatible docs and CSS-enhanced
docs to link to CSS-enhanced docs. -->
<if <string-eq $(mode) ns4>
<define-tag docref endtag=required>
<preserve doc>
<a href="../<get-var doc>-ns4.html">%body</a>
</define-tag>
/>
<if <string-neq $(mode) ns4>
<define-tag docref endtag=required>
<preserve doc>
<a href="../<get-var doc>.html">%body</a>
</define-tag>
/>
<!-- inline figure: use like <infigure img="foo.png"> -->
<define-tag infigure>
<preserve img>
<set-var %attributes>
<table border=0 width="100%"> <tr> <th>
<img align="middle" src="<get-var img>">
</table>
<p>
<restore img>
</define-tag>
<!-- Use like <figure img="foo.png" width=...>caption</figure> -->
<!-- A bug-compatible ns4 version of figure. Crude but a must. -->
<if <string-eq $(mode) ns4>
<group
<define-tag figure endtag=required>
<preserve img>
<preserve width>
<set-var %attributes>
<table border=2 frame=box width="<get-var width>">
<tr><th>
<table border=0 width="100%">
<tr> <th> <img src="<get-var img>">
<tr> <th> <p>%body
</table>
</table>
<restore img>
<restore width>
</define-tag>
<define-tag abstract endtag=required>
<h2>Abstract</h2>
<p>
%body
</define-tag>
<define-tag warn>
<p>
<strong>
You are reading an ugly version of this document that doesn't use CSS
to place floats nicely. Figures are shown in a very crude way.
Get Mozilla and see the other version - it's MUCH better.
</strong>
</define-tag>
/>/>
<if <string-neq $(mode) ns4>
<group
<define-tag figure endtag=required>
<preserve img>
<preserve width>
<set-var %attributes>
<div class=figure style="width: <get-var width>">
<div class=figureimg>
<img src="<get-var img>">
</div>
<p>
%body
</div>
<restore img>
<restore width>
</define-tag>
<define-tag abstract endtag=required>
<div class=astract>
<h2 class=abstracthdr>Abstract</h2>
<p>
%body
</div>
</define-tag>
<define-tag warn>
<p>
<strong>
Note that this document contains some formatting that is best rendered
using a true CSS1 standard-compliant browser such as Mozilla; however,
it should work reasonably well with any browser that can at least ignore
CSS that it doesn't understand. Unfortunately, Netscape Navigator 4.7,
for example, doesn't. Well, that's life...
</strong>
<p>
A non-CSS version exists: you can try by compiling this
document from its WML version with some switches.. (if you came here
through the WWW, there should be an alternate link on the referring
page. However, I like
the pretty rendering by Mozilla so much that that's still the default.
</define-tag>
/>
/>
#use wml::std::grid
#use wml::fmt::isolatin