From 999ec05afc744c5b7cb9098ec871594c24035113 Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Fri, 16 Jan 2015 22:23:28 -0800
Subject: [PATCH] Show cmdline in pastes

---
 modules/compiler_vm/languages/_default.pm | 24 +++++++++++------------
 1 file changed, 11 insertions(+), 13 deletions(-)

diff --git a/modules/compiler_vm/languages/_default.pm b/modules/compiler_vm/languages/_default.pm
index 74576902..fa37d550 100755
--- a/modules/compiler_vm/languages/_default.pm
+++ b/modules/compiler_vm/languages/_default.pm
@@ -86,25 +86,24 @@ sub show_output {
   }
 
   if(exists $self->{options}->{'-paste'}  or (defined $self->{got_run} and $self->{got_run} eq "paste")) {
-    my $flags = "";
+    my $cmdline = $self->{cmdline};
 
-=cut
-    $extracted_args =~ s/-paste //g;
-    if(length $extracted_args) {
-      $extracted_args =~ s/\s*$//;
-      $flags .= '[' . $extracted_args . '] ';
-    }
+    $cmdline =~ s/\$sourcefile/$self->{sourcefile}/g;
+    $cmdline =~ s/\$execfile/$self->{execfile}/g;
 
-    if(length $args) {
-      $flags .= "gcc " . $args . " -o $self->{execfile} $self->{sourcefile}";
+    if (length $self->{cmdline_options}) {
+      $cmdline =~ s/\$options/$self->{cmdline_options}/g;
     } else {
-      $flags .= $languages{$lang} . " -o $self->{execfile} $self->{sourcefile}"; 
+      if (length $self->{default_options}) {
+        $cmdline =~ s/\$options/$self->{default_options}/g;
+      } else {
+        $cmdline =~ s/\$options\s+//g;
+      }
     }
-=cut
 
     my $pretty_code = $self->pretty_format($self->{code});
 
-    $pretty_code .= "\n\n/************* COMPILER FLAGS *************\n$flags\n************** COMPILER FLAGS *************/\n"; 
+    $pretty_code .= "\n\n/************* CMDLINE *************\n$cmdline\n************** CMDLINE *************/\n"; 
 
     $output =~ s/\s+$//;
     $pretty_code .= "\n/************* OUTPUT *************\n$output\n************** OUTPUT *************/\n"; 
@@ -215,7 +214,6 @@ sub execute {
   my $pretty_code = $self->pretty_format($self->{code});
 
   my $cmdline = $self->{cmdline};
-  $cmdline .= ' -paste' if exists $self->{options}->{'-paste'};
 
   $cmdline =~ s/\$sourcefile/$self->{sourcefile}/g;
   $cmdline =~ s/\$execfile/$self->{execfile}/g;