src/misc/messages.cpp

/*
 *  Copyright (C) 2002-2020  The DOSBox Team
 *
 *  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.
 *
 *  This program 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 this program; if not, write to the Free Software Foundation, Inc.,
 *  51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
 */


#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "dosbox.h"
#include "cross.h"
#include "support.h"
#include "setup.h"
#include "control.h"
#include <list>
#include <string>
using namespace std;



#define LINE_IN_MAXLEN 2048

struct MessageBlock {
        string name;
        string val;
        MessageBlock(const char* _name, const char* _val):
        name(_name),val(_val){}
};

static list<MessageBlock> Lang;
typedef list<MessageBlock>::iterator itmb;

void MSG_Add(const char * _name, const char* _val) {
        /* Find the message */
        for(itmb tel=Lang.begin();tel!=Lang.end();++tel) {
                if((*tel).name==_name) { 
//                      LOG_MSG("double entry for %s",_name); //Message file might be loaded before default text messages
                        return;
                }
        }
        /* if the message doesn't exist add it */
        Lang.push_back(MessageBlock(_name,_val));
}

void MSG_Replace(const char * _name, const char* _val) {
        /* Find the message */
        for(itmb tel=Lang.begin();tel!=Lang.end();++tel) {
                if((*tel).name==_name) { 
                        Lang.erase(tel);
                        break;
                }
        }
        /* Even if the message doesn't exist add it */
        Lang.push_back(MessageBlock(_name,_val));
}

void LoadMessageFile(const char * fname) {
        if (!fname) return;
        if(*fname=='\0') return;//empty string=no languagefile

        LOG(LOG_MISC,LOG_DEBUG)("Loading message file %s",fname);

        FILE * mfile=fopen(fname,"rt");
        /* This should never happen and since other modules depend on this use a normal printf */
        if (!mfile) {
                E_Exit("MSG:Can't load messages: %s",fname);
        }
        char linein[LINE_IN_MAXLEN];
        char name[LINE_IN_MAXLEN];
        char string[LINE_IN_MAXLEN*10];
        /* Start out with empty strings */
        name[0]=0;string[0]=0;
        while(fgets(linein, LINE_IN_MAXLEN, mfile)!=0) {
                /* Parse the read line */
                /* First remove characters 10 and 13 from the line */
                char * parser=linein;
                char * writer=linein;

                while (*parser) {
                        if (*parser != 10 && *parser != 13)
                                *writer++ = *parser;

                        parser++;
                }
                *writer=0;

                /* New string name */
                if (linein[0]==':') {
                        string[0]=0;
                        strcpy(name,linein+1);
                /* End of string marker */
                } else if (linein[0]=='.') {
                        /* Replace/Add the string to the internal languagefile */
                        /* Remove last newline (marker is \n.\n) */
                        size_t ll = strlen(string);
                        if(ll && string[ll - 1] == '\n') string[ll - 1] = 0; //Second if should not be needed, but better be safe.
                        MSG_Replace(name,string);
                } else {
                /* Normal string to be added */
                        strcat(string,linein);
                        strcat(string,"\n");
                }
        }
        fclose(mfile);
}

const char * MSG_Get(char const * msg) {
        for(itmb tel=Lang.begin();tel!=Lang.end();++tel){
                if((*tel).name==msg)
                {
                        return  (*tel).val.c_str();
                }
        }
        return msg;
}


bool MSG_Write(const char * location) {
        FILE* out=fopen(location,"w+t");
        if(out==NULL) return false;//maybe an error?
        for(itmb tel=Lang.begin();tel!=Lang.end();++tel){
                fprintf(out,":%s\n%s\n.\n",(*tel).name.c_str(),(*tel).val.c_str());
        }
        fclose(out);
        return true;
}

void MSG_Init() {
        Section_prop *section=static_cast<Section_prop *>(control->GetSection("dosbox"));

        if (control->opt_lang != "") {
                LoadMessageFile(control->opt_lang.c_str());
        }
        else {
                Prop_path* pathprop = section->Get_path("language");
                if (pathprop != NULL) LoadMessageFile(pathprop->realpath.c_str());
        }
}