1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
/***************************************************************************
* Copyright (C) 2006 Nicolas Hadacek <[email protected]> *
* *
* 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 "jalv2_compile.h"
#include "jalv2.h"
#include "common/common/misc.h"
#include "tools/list/compile_config.h"
TQStringList JALV2::CompileFile::genericArguments(const Compile::Config &config) const
{
TQStringList args;
TQStringList includes = config.includeDirs(Tool::Category::Compiler, TQString(), TQString(), ";");
TQString s = (includes.isEmpty() ? TQString() : includes[0]);
PURL::Directory dir = Compile::Config::directory(group(), Compile::DirectoryType::Header).path();
if ( !dir.isEmpty() ) {
if ( !s.isEmpty() ) s += ";";
s += dir.path();
}
if ( !s.isEmpty() ) {
args += "-s";
args += s;
}
args += "%I";
return args;
}
void JALV2::CompileFile::logStderrLine(const TQString &line)
{
if ( parseErrorLine(line, Compile::ParseErrorData("([^:]*):([0-9]+):\\s*(warning)(.+)", 1, 2, 4, 3)) ) return;
if ( parseErrorLine(line, Compile::ParseErrorData("([^:]*):([0-9]+):\\s*(.+)", 1, 2, 3, Log::LineType::Error)) ) return;
doLog(Log::LineType::Normal, line, TQString(), 0); // unrecognized
}
TQString JALV2::CompileFile::outputFiles() const
{
return "PURL::AsmGPAsm PURL::Hex";
}
|
