GitHub
/
pbot
mirror of https://github.com/pragma-/pbot.git
3
0
Fork 0
Code Issues Projects Releases Wiki Activity

Add -noheaders option to disable pre-included headers

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->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} = "";
while ($self->{code} =~ s/(?:^|(?<=\s))-include\s+(\S+)\s+//) {
@ -97,7 +98,7 @@ sub preprocess_code {
my $self = shift;
$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};