Skip to content

Commit 054a5f0

Browse files
SkarsnikAlexDaniel
authored andcommitted
Some changes
Committing whatever we have live.
1 parent 45293f8 commit 054a5f0

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

bin/Nativecallable.p6

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -13,20 +13,20 @@ method help($msg) {
1313
sub run-gptrixie($header-file) {
1414
my %output = get-output $GPTrixie-BIN, --all, --silent, $header-file;
1515
if %output<output>.lines > 20 {
16-
return but FileStore(%(Result.pm6 => %output<output>))
16+
return but FileStore(%(GPTrixiefied.pm6 => "#Generated by App::GPTrixie\n" ~ %output<output>))
1717
}
1818
my @pruned-output;
1919
@pruned-output = %output<output>.lines.grep: { $_ and not .starts-with: # };
2020
if @pruned-output10 {
2121
return (@pruned-output.map: {.subst(/\s+/, " ", :g)}).join: \n;
2222
}
2323
my $definitive-output //= %output<output>;
24-
but FileStore(%(Result.pm6 => $definitive-output))
24+
but FileStore(%(GPTrixified.pm6 => "#Generated by App::GPTrixie\n" ~ $definitive-output))
2525
}
2626

2727
multi method irc-to-me($msg where /^ \s* $<code>=.+ /) {
2828
my $code = self.process-code: $<code>, $msg;
29-
my $header-file = write-code \n ~ $code; # TODO “\n” is a workaround
29+
my $header-file = write-code \n#include <stddef.h>\n#include <stdbool.h>\n ~ $code;
3030
LEAVE unlink $_ with $header-file;
3131
run-gptrixie($header-file)
3232
}

0 commit comments

Comments
 (0)