[llvm-commits] CVS: llvm-www/demo/index.cgi

[anon at cs.uiuc.edu]

Changes in directory llvm-www/demo:

index.cgi updated: 1.95 -> 1.96
---
Log message:

Add support for Fortran.  This fixes PR3708: http://llvm.org/PR3708 , meow!


---
Diffs of the changes:  (+9 -6)

 index.cgi |   15 +++++++++------
 1 files changed, 9 insertions(+), 6 deletions(-)


Index: llvm-www/demo/index.cgi
diff -u llvm-www/demo/index.cgi:1.95 llvm-www/demo/index.cgi:1.96
--- llvm-www/demo/index.cgi:1.95	Tue Mar  3 00:40:36 2009
+++ llvm-www/demo/index.cgi	Wed Mar  4 00:27:29 2009
@@ -151,8 +151,8 @@
 system("touch $ROOT/locked");
 
 print <<END;
-Bitter Melon the cat says, paste a C/C++ program in the text box or upload
-one from your computer, and you can see LLVM compile it, meow!!
+Bitter Melon the cat says, paste a C/C++/Fortran program in the text box or
+upload one from your computer, and you can see LLVM compile it, meow!!
 </td></tr></table><p>
 END
 
@@ -189,7 +189,7 @@
 print "Source language: ",
   $c->radio_group(
     -name    => 'language',
-    -values  => [ 'C', 'C++' ],
+    -values  => [ 'C', 'C++', 'Fortran' ],
     -default => 'C'
   ), "<p>";
 
@@ -295,6 +295,7 @@
     'JO99'             => '.jo9',
     'C'                => '.c',
     'C++'              => '.cc',
+    'Fortran'          => '.f90',
     'preprocessed C'   => '.i',
     'preprocessed C++' => '.ii'
 );
@@ -305,7 +306,9 @@
     '.i'    => 'preprocessed C',
     '.ii'   => 'preprocessed C++',
     '.cc'   => 'C++',
-    '.cpp'  => 'C++'
+    '.cpp'  => 'C++',
+    '.f'    => 'Fortran',
+    '.f90'  => 'Fortran'
 );
 
 my $uploaded_file_name = $c->param('uploaded_file');
@@ -315,7 +318,7 @@
 "You must choose between uploading a file and typing code in. You can't do both at the same time."
         );
     }
-    $uploaded_file_name =~ s/^.*(\.[A-Za-z]+)$/$1/;
+    $uploaded_file_name =~ s/^.*(\.[A-Za-z0-9]+)$/$1/;
     my $language = $languages{$uploaded_file_name};
     $c->param( 'language', $language );
 
@@ -353,7 +356,7 @@
     #$stats = "-Wa,--stats,--time-passes,--info-output-file=$timerFile"
     $stats = "-ftime-report"
 	if ( $c->param('showstats') );
-    try_run( "llvm C/C++ front-end (llvm-gcc)",
+    try_run( "llvm C/C++/Fortran front-end (llvm-gcc)",
 	"llvm-gcc -emit-llvm -msse3 -W -Wall -O2 $stats -o $bytecodeFile -c $inputFile > $outputFile 2>&1",
       $outputFile );