GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-10-03 01:48:38 +02:00
Code Issues Projects Releases Wiki Activity

Add -noheaders option to disable pre-included headers

Browse Source
This commit is contained in:
Pragmatic Software 2015-01-24 19:01:44 -08:00
parent a53b5473ae
commit 0f00ceae95
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
modules/compiler_vm/languages/_c_base.pm
View File

@ -63,6 +63,7 @@ sub process_custom_options {
$self->{code} = $self->{code}; $self->{code} = $self->{code};
$self->add_option("-nomain") if $self->{code} =~ s/(?:^|(?<=\s))-nomain\s*//i; $self->add_option("-nomain") if $self->{code} =~ s/(?:^|(?<=\s))-nomain\s*//i;
$self->add_option("-noheaders") if $self->{code} =~ s/(?:^|(?<=\s))-noheaders\s*//i;
$self->{include_options} = ""; $self->{include_options} = "";
while ($self->{code} =~ s/(?:^|(?<=\s))-include\s+(\S+)\s+//) { while ($self->{code} =~ s/(?:^|(?<=\s))-include\s+(\S+)\s+//) {
@ -97,7 +98,7 @@ sub preprocess_code {
my $self = shift; my $self = shift;
$self->SUPER::preprocess_code; $self->SUPER::preprocess_code;
my $default_prelude = $self->{prelude}; my $default_prelude = exists $self->{options}->{'-noheaders'} ? '' : $self->{prelude};
$self->{code} = $self->{include_options} . $self->{code}; $self->{code} = $self->{include_options} . $self->{code};