Added KDE3 version of ktechlab

git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/applications/ktechlab@1095338 283d02a7-25f6-0310-bc7c-ecb5cbfe19da

1 files changed, 205 insertions, 0 deletions

diff --git a/src/languages/sdcc.cpp b/src/languages/sdcc.cpp
new file mode 100644
index 0000000..553e974
--- /dev/null
+++ b/src/languages/sdcc.cpp
@@ -0,0 +1,205 @@
+/***************************************************************************
+ *   Copyright (C) 2005 by David Saxton                                    *
+ *   david@bluehaze.org                                                    *
+ *                                                                         *
+ *   This program is free software; you can redistribute it and/or modify  *
+ *   it under the terms of the GNU General Public License as published by  *
+ *   the Free Software Foundation; either version 2 of the License, or     *
+ *   (at your option) any later version.                                   *
+ ***************************************************************************/
+
+#include "asminfo.h"
+#include "languagemanager.h"
+#include "logview.h"
+#include "microinfo.h"
+#include "microlibrary.h"
+#include "sdcc.h"
+#include "src/core/ktlconfig.h"
+
+#include <klocale.h>
+#include <kmessagebox.h>
+#include <kprocess.h>
+
+SDCC::SDCC( ProcessChain * processChain, KTechlab * parent )
+	: ExternalLanguage( processChain, parent, "SDCC" )
+{
+	m_successfulMessage = i18n("*** Compilation successful ***");
+	m_failedMessage = i18n("*** Compilation failed ***");
+}
+
+
+SDCC::~SDCC()
+{
+}
+
+
+void SDCC::processInput( ProcessOptions options )
+{
+	resetLanguageProcess();
+	
+	MicroInfo * info = MicroLibrary::self()->microInfoWithID( options.m_picID );
+	if (!info)
+	{
+		outputError( i18n("Could not find PIC with ID \"%1\".").arg(options.m_picID) );
+		return;
+	}
+	
+	m_processOptions = options;
+	
+	*m_languageProcess << ("sdcc");
+	
+	
+	//BEGIN Pass custom sdcc options
+#define ARG(text,option) if ( KTLConfig::text() ) *m_languageProcess << ( QString("--%1").arg(option) );
+	// General
+	ARG( sDCC_nostdlib,				"nostdlib" )
+	ARG( sDCC_nostdinc,				"nostdinc" )
+	ARG( sDCC_less_pedantic,		"less-pedantic" )
+	ARG( sDCC_std_c89,				"std-c89" )
+	ARG( sDCC_std_c99,				"std-c99" )
+	
+	// Code generation
+	ARG( sDCC_stack_auto,			"stack-auto" )
+	ARG( sDCC_int_long_reent,		"int-long-reent" )
+	ARG( sDCC_float_reent,			"float-reent" )
+	ARG( sDCC_fommit_frame_pointer,	"fommit-frame-pointer" )
+	ARG( sDCC_no_xinit_opt,			"no-xinit-opt" )
+	ARG( sDCC_all_callee_saves,		"all-callee-saves" )
+	
+	// Optimization
+	ARG( sDCC_nooverlay,			"nooverlay" )
+	ARG( sDCC_nogcse,				"nogcse" )
+	ARG( sDCC_nolabelopt,			"nolabelopt" )
+	ARG( sDCC_noinvariant,			"noinvariant" )
+	ARG( sDCC_noinduction,			"noinduction" )
+	ARG( sDCC_no_peep,				"no-peep" )
+	ARG( sDCC_noloopreverse,		"noloopreverse" )
+	ARG( sDCC_opt_code_size,		"opt-code-size" )
+	ARG( sDCC_opt_code_speed,		"opt-code-speed" )
+	ARG( sDCC_peep_asm,				"peep-asm" )
+	ARG( sDCC_nojtbound,			"nojtbound" )
+	
+	// PIC16 Specific
+	if ( info->instructionSet()->set() == AsmInfo::PIC16 )
+	{
+		ARG( sDCC_nodefaultlibs,		"nodefaultlibs" )
+		ARG( sDCC_pno_banksel,			"pno-banksel" )
+		ARG( sDCC_pstack_model_large,	"pstack-model=large" )
+		ARG( sDCC_debug_xtra,			"debug-xtra" )
+		ARG( sDCC_denable_peeps,		"denable-peeps" )
+		ARG( sDCC_calltree,				"calltree" )
+		ARG( sDCC_fstack,				"fstack" )
+		ARG( sDCC_optimize_goto,		"optimize-goto" )
+		ARG( sDCC_optimize_cmp,			"optimize-cmp" )
+		ARG( sDCC_optimize_df,			"optimize-df" )
+	}
+#undef ARG
+
+	if ( !KTLConfig::miscSDCCOptions().isEmpty() )
+		*m_languageProcess << ( KTLConfig::miscSDCCOptions() );
+	//END Pass custom sdcc options
+	
+	
+	*m_languageProcess << ("--debug"); // Enable debugging symbol output
+	*m_languageProcess << ("-S"); // Compile only; do not assemble or link
+	
+	QString asmSwitch;
+	switch ( info->instructionSet()->set() )
+	{
+		case AsmInfo::PIC12:
+			// Last time I checked, SDCC doesn't support Pic12, and probably never will, but whatever...
+			asmSwitch = "-mpic12";
+			break;
+		case AsmInfo::PIC14:
+			asmSwitch = "-mpic14";
+			break;
+		case AsmInfo::PIC16:
+			asmSwitch = "-mpic16";
+			break;
+	}
+	
+	*m_languageProcess << (asmSwitch);
+	
+	*m_languageProcess << ( "-"+options.m_picID.lower() );
+	
+	*m_languageProcess << ( options.inputFiles().first() );
+	
+	*m_languageProcess << ("-o");
+	*m_languageProcess << ( options.intermediaryOutput() );
+	
+	if ( !start() )
+	{
+		KMessageBox::sorry( LanguageManager::self()->logView(), i18n("Compilation failed. Please check you have sdcc installed.") );
+		processInitFailed();
+		return;
+	}
+}
+
+
+bool SDCC::isError( const QString &message ) const
+{
+	return false;
+}
+
+
+bool SDCC::isStderrOutputFatal( const QString & message ) const
+{
+	if ( message.startsWith("Processor:") )
+		return false;
+	
+	return true;
+}
+
+
+bool SDCC::isWarning( const QString &message ) const
+{
+	return false;
+}
+
+
+ProcessOptions::ProcessPath::Path SDCC::outputPath( ProcessOptions::ProcessPath::Path inputPath ) const
+{
+	switch (inputPath)
+	{
+		case ProcessOptions::ProcessPath::C_AssemblyRelocatable:
+			return ProcessOptions::ProcessPath::None;
+			
+		case ProcessOptions::ProcessPath::C_Library:
+			return ProcessOptions::ProcessPath::AssemblyRelocatable_Library;
+			
+		case ProcessOptions::ProcessPath::C_Object:
+			return ProcessOptions::ProcessPath::AssemblyRelocatable_Object;
+			
+		case ProcessOptions::ProcessPath::C_PIC:
+			return ProcessOptions::ProcessPath::AssemblyAbsolute_PIC;
+			
+		case ProcessOptions::ProcessPath::C_Program:
+			return ProcessOptions::ProcessPath::AssemblyRelocatable_Program;
+			
+		case ProcessOptions::ProcessPath::AssemblyAbsolute_PIC:
+		case ProcessOptions::ProcessPath::AssemblyAbsolute_Program:
+		case ProcessOptions::ProcessPath::AssemblyRelocatable_Library:
+		case ProcessOptions::ProcessPath::AssemblyRelocatable_Object:
+		case ProcessOptions::ProcessPath::AssemblyRelocatable_PIC:
+		case ProcessOptions::ProcessPath::AssemblyRelocatable_Program:
+		case ProcessOptions::ProcessPath::FlowCode_AssemblyAbsolute:
+		case ProcessOptions::ProcessPath::FlowCode_Microbe:
+		case ProcessOptions::ProcessPath::FlowCode_PIC:
+		case ProcessOptions::ProcessPath::FlowCode_Program:
+		case ProcessOptions::ProcessPath::Microbe_AssemblyAbsolute:
+		case ProcessOptions::ProcessPath::Microbe_PIC:
+		case ProcessOptions::ProcessPath::Microbe_Program:
+		case ProcessOptions::ProcessPath::Object_Disassembly:
+		case ProcessOptions::ProcessPath::Object_Library:
+		case ProcessOptions::ProcessPath::Object_PIC:
+		case ProcessOptions::ProcessPath::Object_Program:
+		case ProcessOptions::ProcessPath::PIC_AssemblyAbsolute:
+		case ProcessOptions::ProcessPath::Program_Disassembly:
+		case ProcessOptions::ProcessPath::Program_PIC:
+		case ProcessOptions::ProcessPath::Invalid:
+		case ProcessOptions::ProcessPath::None:
+			return ProcessOptions::ProcessPath::Invalid;
+	}
+	
+	return ProcessOptions::ProcessPath::Invalid;
+}