DataMuseum.dk

top - download

    Length: 696 (0x2b8)
    Types: TextFile
    Names: »uulat«

└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
    └─ ⟦this⟧ »EUUGD11/euug-87hel/sec1/uulat/uulat« 

TextFile

#!/bin/awk -f

$1 == "#N"  {
	site = $2;
}
$1 == "#L"  {
	lat = long = coord = "";
	scale = 1;
	for (i = 1; i <= length($0); i++) {
		ch = substr($0,i,1);
		if (ch ~ /[NEWS]/) {
			if (coord == "") break;
			if (ch ~ /[SW]/) coord = -coord;
			if (ch ~ /[NS]/) lat = coord;
			else long = coord;
			if (long > -180 && long < 180 && lat > -90 && lat < 90) {
				map[long " " lat] = map[long " " lat] "," site;
				break;
			}
			coord = "";
			scale = 1;
		}
		if (ch ~ /[0-9]/) {
			len = 1;
			while (substr($0,i+len,1) ~ /[0-9.]/)
				len++;
			coord += substr($0,i,len) / scale;
			scale *= 60;
			i += len - 1;
		}
	}
}
END {
	for (pos in map)
		print pos, "\"" substr(map[pos],2,50) "\"";
}