Output Sr/Se (source/end of source) macros

These should be defined by the user and interpreted by troff.

1 files changed, 5 insertions, 2 deletions

diff --git a/re b/re
index 8e0677e..934a137 100755
--- a/re
+++ b/re
@@ -100,10 +100,10 @@ while (<$fh>) {
 	if ($bytes == $ref_bytes) {
 		shift @references;
 		my $file = $files{$bytes};
-		my $end = shift @{$file_locations{$file}};
+		my $end = shift @{$file_locations{$file}} || '';
 		my $loc = $locations{$bytes};
 
-		print "\n$file:$loc-$end\n";
+		print ".Sr $file $loc-$end\n";
 
 		seek $handles{$file}, $loc, 0;
 		local $_;
@@ -113,6 +113,9 @@ while (<$fh>) {
 			last if $end and $bytes > $end;
 			print;
 		}
+
+		print ".Se\n";
+
 		next;
 	}
 normal: