From 0f00ceae954941930a4c2315c6950fcd8fbba5d0 Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Sat, 24 Jan 2015 19:01:44 -0800
Subject: [PATCH] Add -noheaders option to disable pre-included headers

---
 modules/compiler_vm/languages/_c_base.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/modules/compiler_vm/languages/_c_base.pm b/modules/compiler_vm/languages/_c_base.pm
index 9fb1ab43..29f3c9c7 100755
--- a/modules/compiler_vm/languages/_c_base.pm
+++ b/modules/compiler_vm/languages/_c_base.pm
@@ -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};