mirror of
https://github.com/pragma-/pbot.git
synced 2024-11-23 20:39:26 +01:00
61 lines
1.5 KiB
Perl
Executable File
61 lines
1.5 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use warnings;
|
|
use strict;
|
|
|
|
package tendra;
|
|
use parent '_c_base';
|
|
|
|
sub initialize {
|
|
my ($self, %conf) = @_;
|
|
|
|
$self->{sourcefile} = 'prog.c';
|
|
$self->{execfile} = 'prog';
|
|
$self->{default_options} = '-Xp -Yansi';
|
|
$self->{cmdline} = 'tcc $sourcefile $options -o $execfile';
|
|
|
|
$self->{prelude} = <<'END';
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <float.h>
|
|
#include <math.h>
|
|
#include <limits.h>
|
|
#include <errno.h>
|
|
#include <ctype.h>
|
|
#include <assert.h>
|
|
#include <locale.h>
|
|
#include <setjmp.h>
|
|
#include <signal.h>
|
|
#include <time.h>
|
|
#include <stdarg.h>
|
|
#include <stddef.h>
|
|
|
|
#define print_last_statement(s) s
|
|
|
|
END
|
|
}
|
|
|
|
sub postprocess_output {
|
|
my $self = shift;
|
|
$self->SUPER::postprocess_output;
|
|
|
|
$self->{output} =~ s/^\n+//mg;
|
|
|
|
$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'}) and (not defined $self->{got_run} or $self->{got_run} ne 'paste')) {
|
|
$self->{output} =~ s/"$self->{sourcefile}", line \d+:\s*//g;
|
|
$self->{output} =~ s/Error:\s+\[/Error: [/g;
|
|
$self->{output} =~ s/Warning:\s+\[/Warning: [/g;
|
|
$self->{output} =~ s/^\[\s+(Warning|Error)/[$1/;
|
|
}
|
|
|
|
if ($self->{channel} =~ m/^#/) {
|
|
$self->{output} =~ s/^/[Notice: TenDRA is missing support for candide extensions; use `cc` or `clang` instead.]\n/ unless $self->{output} =~ m/^tcc: Version/;
|
|
}
|
|
}
|
|
|
|
1;
|