Subversion Repositories i650

//////////////////////////////////////////////////////////////////////////////////
// IBM 650 Reconstruction in Verilog (i650)
// 
// This file is part of the IBM 650 Reconstruction in Verilog (i650) project
// http:////www.opencores.org/project,i650
//
// Description: An implementation of SOAP 2 for the IBM 650.
// 
// Additional Comments: .
//
// Copyright (c) 2015 Robert Abeles
//
// This source file is free software; you can redistribute it
// and/or modify it under the terms of the GNU Lesser General
// Public License as published by the Free Software Foundation;
// either version 2.1 of the License, or (at your option) any
// later version.
//
// This source 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 Lesser General Public License for more
// details.
//
// You should have received a copy of the GNU Lesser General
// Public License along with this source; if not, download it
// from http://www.opencores.org/lgpl.shtml
//////////////////////////////////////////////////////////////////////////////////
 
#include <getopt.h>
#include "soap2.h"
 
static void usage() {
    cout << "Usage: ibm650_soap2 [options] source_file" << endl;
    cout << "Options" << endl;
    cout << "  -h, --help           Print this message and exit." << endl;
    cout << "  -c, --punch_comments Punches comment cards." << endl;
    cout << "  -e, --punch_800x     Punches 800x cards." << endl;
    cout << "  -p, --punch_pseudo   Punches pseudo op cards." << endl;
    cout << "  -k, --check_object   Compare generated object to 7-word deck." << endl;
}
 
int main(int argc, char *argv[]) {
    ifstream file_source, file_check;
    ofstream file_list, file_obj;
    string name_prefix, name_source, name_list, name_obj, name_check;
    int ch;
    int help_flag = 0;
    int err_flag  = 0;
    int flags     = 0;
 
    static struct option longopts[] = {
        { "help",           no_argument,    NULL,   'h' },
        { "punch_comments", no_argument,    NULL,   'c' },
        { "punch_800x",     no_argument,    NULL,   'e' },
        { "punch_pseudo",   no_argument,    NULL,   'p' },
        { "check_object",   no_argument,    NULL,   'k' },
        { NULL,             0,              NULL,     0 }
    };
 
    while ((ch = ::getopt_long(argc, argv, "hcepk", longopts, NULL)) != -1)
        switch (ch) {
            case 'h':
                help_flag = 1;
                break;
            case 'c':
                flags |= asmflag_c;
                break;
            case 'e':
                flags |= asmflag_e;
                break;
            case 'p':
                flags |= asmflag_p;
                break;
            case 'k':
                flags |= asmflag_k;
                break;
            default:
                err_flag = 1;
                break;
    }
    argc -= optind;
    argv += optind;
    if (argc == 0) {
        cout << "Error: Missing source_file." << endl;
        err_flag = 1;
    }
    if (argc > 1) {
        cout << "Error: Extraneous argument(s)." << endl;
        err_flag = 1;
    }
    if (err_flag) {
        usage();
        return -1;
    }
    if (help_flag) {
        usage();
        return 0;
    }
    name_source = argv[0];
    if (string::npos != name_source.rfind('.')) {
        name_prefix = name_source.substr(0, name_source.rfind('.'));
        if (name_prefix.empty()) {
            cout << "Error: Malformed source_file." << endl;
            err_flag = 1;
        }
    } else {
        name_prefix = name_source;
    }
    name_list = name_prefix + ".listing";
    name_obj  = name_prefix + ".obj";
    name_check= name_prefix + ".7wd";
    file_source.open(name_source);
    if (!file_source) {
        cout << "Error: Unable to open source_file." << endl;
        err_flag = 1;
    }
    file_list.open(name_list);
    if (!file_list) {
        cout << "Error: Unable to open list_file." << endl;
        err_flag = 1;
    }
    file_obj.open(name_obj);
    if (!file_obj) {
        cout << "Error: Unable to open obj_file." << endl;
        err_flag = 1;
    }
    if (flags & asmflag_k) {
        file_check.open(name_check);
        if (!file_check) {
            cout << "Error: Unable to open check_file." << endl;
            err_flag = 1;
        }
    }
    if (err_flag) {
        usage();
        return -1;
    }
    soap2 myasm(cs_bcd48+cs_bcd48_f, flags, file_source, file_obj, file_list, file_check);
    return 0;
}