diff options
author | John Ankarström <john@ankarstrom.se> | 2021-07-10 17:35:21 +0200 |
---|---|---|
committer | John Ankarström <john@ankarstrom.se> | 2021-07-10 17:35:21 +0200 |
commit | 8542895c95954f8bd015ba8436371a6bbdcf78c7 (patch) | |
tree | 5e8e114c1b447b66a41ae9380bfbd5f6308b0aa8 | |
parent | f473f77b8b0e6d57dec65ec30bc3fbc2534007fc (diff) | |
download | ref-8542895c95954f8bd015ba8436371a6bbdcf78c7.tar.gz |
Rename project to ref
-rw-r--r-- | greet.ms | 2 | ||||
-rwxr-xr-x | ref (renamed from re) | 6 | ||||
-rw-r--r-- | ref.tmac (renamed from re.tmac) | 0 |
3 files changed, 4 insertions, 4 deletions
@@ -1,4 +1,4 @@ -.so re.tmac +.so ref.tmac .TL .BI greet , an example C program @@ -1,6 +1,6 @@ #!/usr/bin/perl -# re -- reference-based literate programming system +# ref -- reference-based literate programming system use strict; use warnings; @@ -57,7 +57,7 @@ for (@references) { } $bytes{$file} += length($_); } - } elsif ($ident =~ m{^/(.*)/$}) { + } elsif ($ident =~ m{^/(.*?)/?$}) { my $rx = new POSIX::Regex($1); seek $handles{$file}, 0, 0; $bytes{$file} = 0; @@ -104,7 +104,7 @@ while (<$fh>) { my $end = shift @{$file_locations{$file}} || ''; my $loc = $locations{$bytes}; - print ".Sr $file $loc-$end\n"; + print ".Sr \"$file\" $loc $end\n"; seek $handles{$file}, $loc, 0; local $_; |