GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-12-24 11:42:35 +01:00
Code Issues Projects Releases Wiki Activity

Update TenDRA output postprocessing and default options

Browse Source
This commit is contained in:
Pragmatic Software 2015-01-16 17:29:41 -08:00
parent 925f2292e0
commit e0359cba32
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
modules/compiler_vm/languages/tendra.pm
View File

@ -11,12 +11,10 @@ sub initialize {
$self->{sourcefile} = 'prog.c';
$self->{execfile} = 'prog';
$self->{default_options} = '-Xp';
$self->{default_options} = '-Xp -Yansi';
$self->{cmdline} = 'tcc -Wa,-32 -Wl,-melf_i386 -g $sourcefile $options -o $execfile';
$self->{prelude} = <<'END';
#define _XOPEN_SOURCE 9001
#define __USE_XOPEN
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
@ -32,4 +30,17 @@ sub initialize {
END
}
sub postprocess_output {
my $self = shift;
$self->SUPER::postprocess_output;
$self->{output} =~ s/^\[Warning: Directory 'c89' already defined.\]\s*//;
$self->{output} =~ s/\s*Warning: Directory 'c89' already defined.//g;
if (not exists $self->{options}->{'-paste'} or not (defined $self->{got_run} and $self->{got_run} eq 'paste')) {
$self->{output} =~ s/"$self->{sourcefile}", line \d+:\s*//g;
$self->{output} =~ s/Warning:\s+\[/Warning: [/g;
}
}
1;