#!/usr/bin/perl

# SPDX-FileCopyrightText: 2021 Pragmatic Software <pragma78@gmail.com>
# SPDX-License-Identifier: MIT

use warnings;
use strict;

package Languages::tendra;
use parent 'Languages::_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->{no_gdb_extensions} = 1;

  $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;
