\n""" % (l,d,w))
dump.write("%s\t%d\t%d\t%d\n" % (number, l, d, w))
else: # virtual entries for cave systems
dplong.write("""
%s
""" % find_name(cave))
dplong.write("""
%.1f
%.1f
%.1f
\n""" % (l,d,w))
def parse_csvfile():
caveslist = []
print "Calculating SMK-system extent... ",
os.popen("cavern -v7 ../loser/smk-system.svx -o noinfo/smk-system.3d")
l,d,w = map(float, chomp(os.popen(CS_BINARY + " noinfo/smk-system -c ").read()).split("\t"))
caveslist.append(["", l,d,w, {"Name" : "Schwarzmooskogelhöhlensystem", "Autogen file" : ""}])
print "done\nParsing CSV file"
cavetabfile = file("noinfo/CAVETAB2.CSV")
fieldnames=chomp(cavetabfile.next()).replace('"','').split(",")
cavetab = csv.DictReader(cavetabfile, fieldnames)
# Gratuitiously complicated progress bar widget.
k = 0
m = 1
L = 498 #L = len(cavetabfile.readlines()) doesn't work
print "0"+50*"-"+"100%\n|",
for cave in cavetab:
if((50*m)/L > k):
sys.stdout.write("=")
sys.stdout.flush()
k = k + 1
m = m + 1
if(cave["Multiple entrances"] not in ["", "yes"]): continue
number = find_effective_number(cave)
if((cave["Area"]=="1626") and (number not in ['LA11', 'LA12'])): continue
prefix = dataset_prefix(number.lower())
stats = os.popen(CS_BINARY + " noinfo/all -cs " + prefix).read()
if(stats.find("No") != -1):
continue # don't trust the rather erratic data in the table
#if(cave["Length"]): print number, "length:", cave["Length"]
#if(cave["Depth"]): print number, "depth:", cave["Depth"]
#if(cave["Extent"]): print number, "extent:", cave["Extent"]
else:
try:
l,d,w = map(float, chomp(stats).split("\t"))
caveslist.append([number,l,d,w,cave])
except:
print "Error on", number
raise
print "|%d\nWriting output file" % m
return caveslist
# Main routine:
# this doesn't seem to work, and is deprectaed anyway
#if (not os.access('CS_BINARY', os.X_OK)):
# print "%s not executable - skipping %s" % (CS_BINARY,__file__)
# exit(1)
caveslist = parse_csvfile()
dplong = file("dplong.htm", "w")
dump = file("noinfo/lengths.dat", "w")
dplong.write("""
CUCC's deepest and longest caves
Lengths and depths of caves in the 1623 area
This page lists the lengths, depths and horizontal extents of those caves on
the plateau for which we have survey centerline data. At present, that's only
%d out of 250 or so, but the missing ones are mostly very small and obscure;
the notable exceptions are some caves explored by other groups (35, LA25,
BS17), and CUCC caves 71, 92, 96 and 97.
The eighteen caves that now comprise the Schwarzmooskogel master system (32, 40,
41, 78, 87, 88, 107, 115, 136, 142, 143, 144, 161, 204, 258 and 264) are listed separately in the table,
although in some cases the divisions are more historical than structural or logical;
but for comparison I have also included the measurements of the whole system.
In these tables "length" means the total length of survey legs, not just the
horizontal components, but "extent" is the maximum horizontal distance between
any two survey stations. (If anyone knows a good algorithm for finding the
maximum 3D spatial diameter of a set of points, and is willing to implement it,
please do so!)
""" % len(caveslist))
for cave in caveslist:
print_caveline(*cave)
dplong.write("""
The plateau's %d deepest caves
Kat. Nr.
Name
Length (m)
Depth (m)
Extent (m)
""" % N)
dump.close()
dump = cStringIO.StringIO() # just throw it away!
caveslist.sort(lambda u, v: cmp(v[2],u[2]))
for cave in caveslist[:N]:
print_caveline(*cave)
dplong.write("""
The plateau's %d longest caves
Kat. Nr.
Name
Length (m)
Depth (m)
Extent (m)
""" % N)
caveslist.sort(lambda u, v: cmp(v[1],u[1]))
for cave in caveslist[:N]:
print_caveline(*cave)
dplong.write("""
This page used to house a list of the deepest and longest caves in Austria,
with ours highlighted. Rather than maintaining our own independent database, it
seems much more sensible to link to the much more frequently updated list here maintained by Theo
Pfarr. For comparison, Bob Gulden of the American NSS maintains a list here of the world's longest
caves.