head 1.2;
access;
symbols
perseant-exfatfs-base-20250801:1.2
perseant-exfatfs-base-20240630:1.2
cjep_sun2x:1.2.0.44
cjep_sun2x-base:1.2
cjep_staticlib_x-base1:1.2
cjep_staticlib_x:1.2.0.42
cjep_staticlib_x-base:1.2
phil-wifi-20200421:1.2
phil-wifi-20200411:1.2
phil-wifi-20200406:1.2
pgoyette-compat-merge-20190127:1.2
pgoyette-compat-20190127:1.2
pgoyette-compat-20190118:1.2
pgoyette-compat-1226:1.2
pgoyette-compat-1126:1.2
pgoyette-compat-1020:1.2
pgoyette-compat-0930:1.2
pgoyette-compat-0906:1.2
pgoyette-compat-0728:1.2
pgoyette-compat-0625:1.2
pgoyette-compat-0521:1.2
pgoyette-compat-0502:1.2
pgoyette-compat-0422:1.2
pgoyette-compat-0415:1.2
pgoyette-compat-0407:1.2
pgoyette-compat-0330:1.2
pgoyette-compat-0322:1.2
pgoyette-compat-0315:1.2
pgoyette-compat:1.2.0.40
pgoyette-compat-base:1.2
perseant-stdc-iso10646:1.2.0.38
perseant-stdc-iso10646-base:1.2
prg-localcount2-base3:1.2
prg-localcount2-base2:1.2
prg-localcount2-base1:1.2
prg-localcount2:1.2.0.36
prg-localcount2-base:1.2
pgoyette-localcount-20170426:1.2
bouyer-socketcan-base1:1.2
pgoyette-localcount-20170320:1.2
bouyer-socketcan:1.2.0.34
bouyer-socketcan-base:1.2
pgoyette-localcount-20170107:1.2
pgoyette-localcount-20161104:1.2
localcount-20160914:1.2
pgoyette-localcount-20160806:1.2
pgoyette-localcount-20160726:1.2
pgoyette-localcount:1.2.0.32
pgoyette-localcount-base:1.2
netbsd-5-2-3-RELEASE:1.2
netbsd-5-1-5-RELEASE:1.2
yamt-pagecache-base9:1.2
yamt-pagecache-tag8:1.2
tls-earlyentropy:1.2.0.28
tls-earlyentropy-base:1.2
riastradh-xf86-video-intel-2-7-1-pre-2-21-15:1.2
riastradh-drm2-base3:1.2
netbsd-5-2-2-RELEASE:1.2
netbsd-5-1-4-RELEASE:1.2
netbsd-5-2-1-RELEASE:1.2
netbsd-5-1-3-RELEASE:1.2
agc-symver:1.2.0.30
agc-symver-base:1.2
tls-maxphys-base:1.2
yamt-pagecache-base8:1.2
netbsd-5-2:1.2.0.26
yamt-pagecache-base7:1.2
netbsd-5-2-RELEASE:1.2
netbsd-5-2-RC1:1.2
yamt-pagecache-base6:1.2
yamt-pagecache-base5:1.2
yamt-pagecache-base4:1.2
netbsd-5-1-2-RELEASE:1.2
netbsd-5-1-1-RELEASE:1.2
yamt-pagecache-base3:1.2
yamt-pagecache-base2:1.2
yamt-pagecache:1.2.0.24
yamt-pagecache-base:1.2
bouyer-quota2-nbase:1.2
bouyer-quota2:1.2.0.22
bouyer-quota2-base:1.2
matt-nb5-pq3:1.2.0.20
matt-nb5-pq3-base:1.2
netbsd-5-1:1.2.0.18
netbsd-5-1-RELEASE:1.2
netbsd-5-1-RC4:1.2
netbsd-5-1-RC3:1.2
netbsd-5-1-RC2:1.2
netbsd-5-1-RC1:1.2
netbsd-5-0-2-RELEASE:1.2
netbsd-5-0-1-RELEASE:1.2
jym-xensuspend-nbase:1.2
netbsd-5-0:1.2.0.16
netbsd-5-0-RELEASE:1.2
netbsd-5-0-RC4:1.2
netbsd-5-0-RC3:1.2
netbsd-5-0-RC2:1.2
jym-xensuspend:1.2.0.14
jym-xensuspend-base:1.2
netbsd-5-0-RC1:1.2
netbsd-5:1.2.0.12
netbsd-5-base:1.2
mjf-devfs2:1.2.0.10
mjf-devfs2-base:1.2
yamt-pf42-base4:1.2
yamt-pf42-base3:1.2
hpcarm-cleanup-nbase:1.2
yamt-pf42-base2:1.2
yamt-pf42:1.2.0.8
yamt-pf42-base:1.2
keiichi-mipv6:1.2.0.6
keiichi-mipv6-base:1.2
cube-autoconf:1.2.0.4
cube-autoconf-base:1.2
hpcarm-cleanup:1.2.0.2
hpcarm-cleanup-base:1.2
gawk-3-1-3-before-remove:1.1.1.1
gawk-3-1-3:1.1.1.1
FSF:1.1.1;
locks; strict;
comment @# @;
1.2
date 2004.03.26.17.16.26; author jdolecek; state dead;
branches;
next 1.1;
1.1
date 2003.10.06.15.51.06; author wiz; state Exp;
branches
1.1.1.1;
next ;
1.1.1.1
date 2003.10.06.15.51.06; author wiz; state Exp;
branches;
next ;
desc
@@
1.2
log
@delete GNU gawk 3.1.3 sources. they are available in cvs with
"cvs co -r gawk-3-1-3-before-remove src/gnu/dist/gawk".
@
text
@function SetUpServer() {
TopHeader = "Walk through a maze"
TopDoc = "\
Please choose one of the following actions:
\
"
TopFooter = ""
srand()
}
function HandleGET() {
if (MENU[2] == "AboutServer") {
Document = "If your browser has a VRML 2 plugin,\
this server shows you a simple VRML scene."
} else if (MENU[2] == "VRMLtest") {
XSIZE = YSIZE = 11 # initially, everything is wall
for (y = 0; y < YSIZE; y++)
for (x = 0; x < XSIZE; x++)
Maze[x, y] = "#"
delete Maze[0, 1] # entry is not wall
delete Maze[XSIZE-1, YSIZE-2] # exit is not wall
MakeMaze(1, 1)
Document = "\
#VRML V2.0 utf8\n\
Group {\n\
children [\n\
PointLight {\n\
ambientIntensity 0.2\n\
color 0.7 0.7 0.7\n\
location 0.0 8.0 10.0\n\
}\n\
DEF B1 Background {\n\
skyColor [0 0 0, 1.0 1.0 1.0 ]\n\
skyAngle 1.6\n\
groundColor [1 1 1, 0.8 0.8 0.8, 0.2 0.2 0.2 ]\n\
groundAngle [ 1.2 1.57 ]\n\
}\n\
DEF Wall Shape {\n\
geometry Box {size 1 1 1}\n\
appearance Appearance { material Material { diffuseColor 0 0 1 } }\n\
}\n\
DEF Entry Viewpoint {\n\
position 0.5 1.0 5.0\n\
orientation 0.0 0.0 -1.0 0.52\n\
}\n"
for (i in Maze) {
split(i, t, SUBSEP)
Document = Document " Transform { translation "
Document = Document t[1] " 0 -" t[2] " children USE Wall }\n"
}
Document = Document " ] # end of group for world\n}"
Reason = "OK" ORS "Content-type: model/vrml"
Header = Footer = ""
}
}
function MakeMaze(x, y) {
delete Maze[x, y] # here we are, we have no wall here
p = 0 # count unvisited fields in all directions
if (x-2 SUBSEP y in Maze) d[p++] = "-x"
if (x SUBSEP y-2 in Maze) d[p++] = "-y"
if (x+2 SUBSEP y in Maze) d[p++] = "+x"
if (x SUBSEP y+2 in Maze) d[p++] = "+y"
if (p>0) { # if there are univisited fields, go there
p = int(p*rand()) # choose one unvisited field at random
if (d[p] == "-x") { delete Maze[x - 1, y]; MakeMaze(x - 2, y)
} else if (d[p] == "-y") { delete Maze[x, y - 1]; MakeMaze(x, y - 2)
} else if (d[p] == "+x") { delete Maze[x + 1, y]; MakeMaze(x + 2, y)
} else if (d[p] == "+y") { delete Maze[x, y + 1]; MakeMaze(x, y + 2)
} # we are back from recursion
MakeMaze(x, y); # try again while there are unvisited fields
}
}
@
1.1
log
@Initial revision
@
text
@@
1.1.1.1
log
@Initial import of gawk-3.1.3.
Seven releases since the last import, so the ChangeLog is quite big;
please refer to the NEWS file included in the import for details.
Among others, this also addresses PR 23054.
@
text
@@