Parse line-continuations when reading definitions.units.patched

load-units.pl

@@ -22,23 +22,33 @@
 
 my $skip_british = 0;
 my @todo;
+my $continued = '';
 
 while (<F>) {
 	# skip over locale specific parts
 	$skip_british = 1 if /^!var UNITS_ENGLISH GB/;
 	$skip_british = 0 if /^!endvar/;
 	next if ($skip_british);
 
+	if (/\s*(.*)\\$/) {
+		$continued .= $1;
+		next;
+	} elsif ($continued) {
+		s/^\s*//;
+		$_ = "$continued$_";
+		$continued = '';
+	}
+
 	s/#.*//;
 	s/\s+$//;
 	next if /^\s*$/; # skip emtpy lines
 	next if /^!/; # skip pragmas
 	next if /^\+/; # skip units from non-SI systems
-	next if /^[0-9]/; # skip over table contents
-	next if /^\s/; # skip over table contents/continued lines
+	#next if /^[0-9]/; # skip over table contents
+	#next if /^\s/; # skip over table contents/continued lines
 	unless (/^(\S+)\s+(.*)/) {
-		print "skipping $_\n";
-		next;
+		print "unknown line $_\n";
+		exit 1;
 	}
 
 	my ($unit, $def) = ($1, $2);