UN INTERPRÉTEUR POUR RATIONNELS DE GRANDES TAILLES

/*******************************************************************************
*  Opera : calculs arithmétiques avec des nombres rationnels de grande taille  *
*  On a ici les 4 opérations de base  -  par : pgl10  -   utilisation : Opera  *              
*******************************************************************************/

#include "Opera.h"

void aide() {
    aout("\nOpera : les seules commandes valides sont de type : \n");
    aout("> a = 123456789 ( nombre entier de longueur et signe quelconques )\n");
    aout("> b = 123 / 456 ( num et den de longueurs et signes quelconques. )\n");
    aout("> n = a ? b ( où ? est l'un des opérateurs suivants : +  -  *  / )\n");
    aout("> exit : fin de session en mode conversationnel\n");
}    

int main(int argc, char *argv[]) {

    char var[5];
    int fin; 
    BigRa nbr, *ptr;

    aout("\nOpera : calculs arithmétiques avec des nombres rationnels de grande taille\n");
    lect = 0;
    if(argc == 2) {
        pFile=fopen(argv[1], "r");
        lect = 1;
    }
    if(lect == 0) {
    aout("Pour le mode d'emploi consulez le fichier Opera.txt\n");
    aout("Pour une aide immédiate entrez : aide\n");
    }
    initra();
    fin = 0;
    for(;;) {
        fin = lire(cmd);
        if(lect == 1) {
            if(strcmp(cmd, cda) == 0) break;
            strcpy(cda, cmd);
            cout << endl << "> " << cmd << endl;
        }
        else if(fin != 0) break;
        if(strcmp(cmd, "aide") == 0) {aide(); continue;}
        if(nomvar(cmd, var, cdn) != 0) continue;
        ptr = &nbr;
        if(calcul(cdn, ptr) != 0) continue;
        cout << endl;
        nbr.afficher();
        cout << endl;
        ajouterra(var, nbr);
        if(fin != 0) break;
    }
    cout << endl << "fin" << endl;
    if(argc==2) {
        fclose(pFile);
        system("pause");
    }
    return 0;
}