Retro68/ASFilter/asfilter.cc

158 lines
3.8 KiB
C++
Raw Normal View History

/*
Copyright 2012 Wolfgang Thaller.
This file is part of Retro68.
Retro68 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 3 of the License, or
(at your option) any later version.
Retro68 is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with Retro68. If not, see <http://www.gnu.org/licenses/>.
*/
2012-04-13 18:43:27 +00:00
#include <iostream>
#include <unistd.h>
#include <algorithm>
#include <vector>
#include <string>
#include <functional>
#include <errno.h>
#include <fstream>
using namespace std::placeholders;
#ifdef USE_BOOST_REGEX
#include <boost/regex.hpp>
namespace rx = boost;
#else
#include <regex>
namespace rx = std;
#endif
2012-04-13 18:43:27 +00:00
int main(int argc, char *argv[])
{
std::vector<std::string> argv2;
std::vector<const char*> argv3;
std::copy(argv, argv+argc, std::back_inserter(argv2));
argv2[0] += ".real";
std::string inputFileName;
std::string tempFileName;
char tempFileTemplate[] = "/tmp/filteredXXXXXX.s";
int fd = mkstemps(tempFileTemplate, 2);
tempFileName = tempFileTemplate;
for(auto& p : argv2)
{
if(p.substr(p.length()-2) == ".s")
{
inputFileName = p;
p = tempFileName;
//std::cerr << "Temp file: " << tempFileName << std::endl;
2012-04-13 18:43:27 +00:00
}
}
{
std::ifstream in(inputFileName);
std::ofstream out(tempFileName);
std::string wordS = "[0-9a-f][0-9a-f][0-9a-f][0-9a-f]";
rx::regex jsr("\t(jsr|jra) __magic_inline_(" + wordS + "(_" + wordS + ")*)");
rx::regex word(wordS);
rx::regex rts("\trts");
rx::regex instruction("\t[a-z]+.*");
rx::regex macsbug("# macsbug symbol");
bool hadRts = false;
bool macsbugSymbol = false, macsbugSymbol1;
2012-04-13 18:43:27 +00:00
while(in)
{
std::string line;
std::getline(in, line);
if(!in)
break;
macsbugSymbol1 = false;
rx::smatch match;
// ******* 1. __magic_inline hack for Toolbox calls
//
// PrepareHeaders.hs converts calls to ONEWORDINLINE, TWOWORDINLINE etc. functions
// into "jsr __magic_inline_a123" or "jsr __magic_inline_1234_5678", etc.
// This is converted to a series of dc.w
if(rx::regex_match(line, match, jsr))
2012-04-13 18:43:27 +00:00
{
const rx::sregex_iterator end;
for (rx::sregex_iterator p(line.cbegin(), line.cend(), word);
2012-04-13 18:43:27 +00:00
p != end;
++p)
{
out << "\tdc.w 0x" << p->str() << std::endl;
2012-04-13 18:43:27 +00:00
}
if(match[1] == "jra")
{
out << "rts\n";
hadRts = true;
}
2012-04-13 18:43:27 +00:00
}
// ******* 2. strip unneeded extra rts from "# macsbug symbol" paragraphs
//
// GCC is patche to add something like this to the end of every function:
// # macsbug symbol
// rts
// .byte 132
// .ascii "main"
// .align 2,0
// .short 0
// .size main, .-main
//
// The rts is usually redundant as most functions already end in RTS.
// The following removes the RTS if there has already been an RTS immediately before.
else if(rx::regex_match(line, macsbug))
2012-04-13 18:43:27 +00:00
{
out << line << std::endl;
macsbugSymbol1 = true;
}
else if(rx::regex_match(line, rts))
2012-04-13 18:43:27 +00:00
{
if(!macsbugSymbol || !hadRts)
out << line << std::endl;
hadRts = true;
2012-04-13 18:43:27 +00:00
}
else if(rx::regex_match(line, instruction))
2012-04-13 18:43:27 +00:00
{
hadRts = false;
2012-04-13 18:43:27 +00:00
out << line << std::endl;
}
// Pass through everything else.
2012-04-13 18:43:27 +00:00
else
out << line << std::endl;
macsbugSymbol = macsbugSymbol1;
2012-04-13 18:43:27 +00:00
}
}
close(fd);
std::transform(argv2.begin(), argv2.end(), std::back_inserter(argv3),
[](const std::string& str) { return str.c_str(); });
2012-04-13 18:43:27 +00:00
argv3.push_back(NULL);
execvp(argv3[0], const_cast<char*const*>( argv3.data() ));
perror("execvp");
return 1;
}