Compiler/Simple file inclusion pre processor: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (→{{header|Raku}}: missed one) |
Thundergnat (talk | contribs) m (→{{header|Raku}}: more generic, less dependent on exact names) |
||
Line 468: | Line 468: | ||
<lang perl6>unit sub MAIN ($file-name); |
<lang perl6>unit sub MAIN ($file-name); |
||
my $file = slurp $file-name; |
my $file = slurp $file-name; |
||
$file.=subst(/[^^|['{{' \s*]] '#include' \s+ (\S+) \s* '}}'?/, {run(« |
$file.=subst(/[^^|['{{' \s*]] '#include' \s+ (\S+) \s* '}}'?/, {run(«$*EXECUTABLE-NAME $*PROGRAM-NAME $0», :out).out.slurp(:close).trim}, :g); |
||
put $file</lang> |
put $file</lang> |
||