// -*- Mode : c++ -*-
//
// SUMMARY  :
// USAGE    :
// ORG      :
// AUTHOR   : Frederic Hecht
// E-MAIL   : hecht@ann.jussieu.fr
//

/*

 This file is part of Freefem++

 Freefem++ 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.

 Freefem++  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 Freefem++; if not, write to the Free Software
 Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 */
#include  <complex>
#include  <string>
#include  <iostream>
#include  "error.hpp"
#include  <cctype>
#include  <cstdlib>
#include  <map>
#include "AFunction.hpp"
//class pfes;
#include  <iomanip>
#include "lg.tab.hpp"
#include "lex.hpp"

extern YYSTYPE *plglval;

//  New version of macro expantion more classical
//  and more  simple
// FH Jan. 2005

static  bool debugmacro = false;

int  setMarkdown(const char * fn)
  {
    if(fn) {
        size_t l =  strnlen(fn,32768);
        return strcasecmp(".md",fn+l-3) == 0  ;
    }
    else
        return 0;
  };

void  mylex::Add(Key k,int i)
{
    Check(!i,k,"mot clef");
    Add(k,i,0);
}

// <<mylex_Add_Key_aType>>
void  mylex::Add(Key k,aType t)
{
    Check(!t,k,"type");

    // TYPE defined at [[file:../lglib/lg.ypp::token type TYPE]]
    Add(k,TYPE,t);
}

void  mylex::AddF(Key k,aType t)
{
    Check(!t,k,"FUNCTION");
    Add(k,FUNCTION,t);
}
void  mylex::AddSpace(Key k,aType t)
{
    Check(!t,k,"FESPACE");
    Add(k,FESPACE,t);
}

// <<mylex_InMotClef>> looks in MotClef for the token contained in buf (buf is set by by [[mylex_basescan]]) and returns
// its type as t and the grammar token id as r (eg [[file:~/ff/src/lglib/lg.ypp::TYPE]]).

bool mylex::InMotClef  (aType & t, int & r) const
{
    const_iterator i= MotClef.find(buf);
    if (i== MotClef.end())
    {
        t=0;
        r=ID;
        return false;
    }
    else
    {
        r=i->second.first;
        t=i->second.second;
        ffassert(r);
        return true;
    }
}

// alh - 5/4/15 - <<mylex::InMotClef_string>> [[file:lex.hpp::InMotClef_string]] Same as [[mylex_InMotClef]], but checks
// another buffer than buf
bool mylex::InMotClef(const char *b,aType &t,int &r)const
{
    const_iterator i=MotClef.find(b);
    if(i==MotClef.end())
    {
        t=0;
        r=ID;
        return false;
    }
    else
    {
        r=i->second.first;
        t=i->second.second;
        ffassert(r);
        return true;
    }
}

// <<mylex_Add_Key_int_aType>>
void  mylex::Add(Key k,int r,aType t)
{
    iterator ii= MotClef.find(k);
    ffassert(ii==MotClef.end());
    MotClef.insert(pair<const Key,Value>(k,Value(r,t)));
}

// <<dump>>
void mylex::dump(ostream & f )
{
    const_iterator i=MotClef.begin(),e=MotClef.end();
    for (; i != e; i++)
    {
        f << "      " << i->first << " " << i->second.first << " " <<  i->second.second->name() << endl;
    }
}

inline bool isNLCR(istream & f,int c)
{
    // eat  CR NL or NL CR paire
    int cc= f.peek();
    bool ret=(c == 10 || c == 13) ;
    if(ret && ( cc != c) && (cc == 10 || cc == 13) )
        f.get();
    return ret;
}

int mylex::EatCommentAndSpace(string *data)
{
//    extern int  typeofscript ;
// if data is !0 then add reading char in data
// return the last read char c
//  --------------------
    int c,c1,c2,caux,sep=0,cnl=3;
    string nnn;
    int echomd=echo && (verbosity>4);
/*
 =0  no markdown block
 pilesource[level].typeofscript==1;  => markdown file
 */
    const int space=(int) ' ';
    // incomment : loop if !=0
    // markdown FH 22 mai 2024
    // incomment = .  => // comment
    // incomment = 2 => /* */ comment
    // incomment = 3 => markdown comment
    int incomment =1, inmarkdown= pilesource[level].typeofscript==1;
    if (firsttime)
    {
        if( inmarkdown) incomment=3; // start with markdown !!!
        firsttime=false;
        if(echo && inmarkdown==0) cout << setw(5) <<linenumber << this->sep() ;
        if(echo && inmarkdown) cout << "\n...MD..@:"<<inmarkdown <<"\n\n";
    }
    auto LineNumber = [&]() {
        int ret=0;
        c = source().peek();
        int nc=0;
        while ( c == 10 || c == 13 )
        {
            if( nc >2) break;
            cnl++;
            nc++;
            sep=space;
            c = source().get();
            if(isNLCR(source(),c)) cnl=1,c='\n';
            if (echo) cout << (char) c;
            if(c=='\n')
            {
                linenumber++;
                if (echo) cout << setw(5) <<linenumber << this->sep() ;
            };
            if(data) *data+=char(c);
            c=source().peek();
        }
    };
    auto  PushBack = [&](string s) {
        for (auto i = s.rbegin(); i != s.rend(); ++i)
         source().putback(*i);
    };
    auto  RemoveLF = [&](string s)
    {
        if( *(s.end()-1) =='\r')
            s.erase( s.end()-1);
        return s;
    };
    auto  GetLine = [&](string nnn) {
        // begin of line !!!
        getline(source(),nnn,'\n');
        LineNumber();
        
    };
     auto eatspaces= [&]() {
        c = source().peek();
        
        // eat spaces
        while (isspace(c) || c == 0 || c == 10 || c == 13 )
        {
            cnl++;
            sep=space;
            c = source().get();
            if(isNLCR(source(),c)) cnl=1,c='\n';
            if (echo) cout << (char) c;
            if(c=='\n')
            {
                linenumber++;
                if (echo) cout << setw(5) <<linenumber << this->sep() ;
            };
            if(data) *data+=char(c);
            c=source().peek();
        }};
    
    auto ifblock = [&](char mark) {// begin end markdown block !!!
        int ret  =0;
        char mark3[4]={mark,mark,mark,0};
        if(c==mark && cnl==1) {
                source().get();
                int c1=source().get();
                int c2=source().get();
                if( c1==mark && c2==mark) {
                    getline(source(),nnn,'\n'); // get end of line
                    if(data) *data += mark3+nnn;
                    if (echomd) cout << mark3<< nnn  ;
                    linenumber++;
                    //if(echo) cout << "\n\n...MD..." << nnn << ":" << incomment << "\n\n";
                    if (echomd) cout << "\n" << setw(5) <<linenumber << this->sep() ;
                    eatspaces();
                    ret= 1;
                }
                else {source().putback(c);source().putback(c);source().putback(c);}
            }
        return ret;
    };
    int count=0;
    do  // loop on type of comment !!
    {
       // cout << "incomment"<< incomment << " "<< int(c) << " " << c << endl;
        ffassert(count++<10000);
        eatspaces();
        // eat markdown <CR>~~~ or comment
        if(incomment==1 && (ifblock('~')==1 ||ifblock('`')==1 )) {
            LineNumber();// eat CR ???
            incomment=3;// in markdown
            cnl=1; // starting line !!
        }
        if(incomment==1)
        {// normal case
            if(c=='/')
            {
                c = source().get();
                caux=source().peek();
                if(caux =='/') {// ex:
                    source().get();
                    getline(source(),nnn,'\n'); // eat \n
                    if (echo) cout << "//"<< nnn  ;
                    if(data) *data+="//"+nnn;
                    source().putback('\n');
                    LineNumber();
                    eatspaces();
                }
                else if (caux == '*' ) incomment = 2;// in /*
                else {source().putback(c);incomment=0;} // a Char not in comment
            }
            else incomment=0;
        }
        if(incomment==2) // in /* ..*/
        {
            
            sep=space;
            if (echo) cout << "/*" ;
            if(data) *data+="/*";
            
            do
            {
                c=source().get();
                if(isNLCR(source(),c)) c='\n';
                if (echo) cout << (char) c ;
                if(data) *data+=char(c);
                if(c=='\n')
                {
                    linenumber++;
                    if (echo) cout << setw(5) <<linenumber << this->sep() ;
                };
                caux = source().peek();
            }
            while(c != EOF && !(c=='*' && caux=='/') ) ;
            if(c != EOF)
            {
                c = source().get();
                if (echo) cout << (char) c ;
                if(data) *data+=char(c);
            }
            else erreur( " Unterminated comment");
            incomment=1; // end comment /* */
        }
        else if( incomment == 3)
        { // warning tart at  begin of line  end eat all the line
            int end =0;
            sep=space;
            do
            {
                getline(source(),nnn,'\n');//  get line
                if(echomd) cout << linenumber << " ::: " << nnn << endl;
                linenumber++;
                if(data) *data+=nnn+'\n';
                //  search end
                if (nnn.find("~~~freefem")==0 ||nnn.find("```freefem")==0) // we find => end MD
                    end = 1;
               //  cr eat by getline
                cnl=1; // starting line !!
            }
            while(!source().eof()  && end == 0 ) ;
            if (echo) cout << "\n" << setw(5) <<linenumber << this->sep() ;
            incomment=1;
            // if(end==1 && c != EOF)// end of MD part..-> recall EatCommentAndSpace
            //     c = EatCommentAndSpace(data);
            
        }
    }
    while (incomment);
    
    
    return (c==EOF) ? c : sep;
}

// <<mylex_basescan>>
int mylex::basescanprint(int lvl)
{
    int r=basescan();
    if (! lexdebug && echo && lvl==0 ) print(cout);
    return r;
}
int mylex::basescan()
{
    //  extern long mpirank;

    int c;
    buf[0]=0;
    buf[1]=0;
    buf[2]=0;
    buf[3]=0;
debut:
    TheCurrentLine=linenumber;
    // modif FH
    EatCommentAndSpace(); // [[mylex::EatCommentAndSpace]]
    c =source().get(); // the current char
    char nc = source().peek(); // next char
    buf[0]=c;
    buf[1]=nc;
    buf[2]=0;
    int ret = c;
    if (c == EOF)
    {
        if (close() )  goto debut;
        buf[0]=0;
        return ENDOFFILE;
    }

    // <<found_a_number>>
    else if (isdigit(c) || (c=='.' && isdigit(nc)))
    {
        int i=1;
        buf[0]=c;
        bool real= (c=='.');
        while ( isdigit(nc) && i < 1024 ) buf[i++]=source().get(),nc=source().peek();
        if (!real && (nc == '.')) real=true,buf[i++]=source().get(),nc=source().peek();
        while ( isdigit(nc) && i < 1024 ) buf[i++]=source().get(),nc=source().peek();
        if (nc =='E' || nc =='e' || nc =='D' || nc =='d')
        {
            real=true;
            buf[i++]=source().get(),nc=source().peek();
            if (nc =='+' || nc =='-' || isdigit(nc))  buf[i++]=source().get(),nc=source().peek();
            while ( isdigit(nc) && i < 1024 ) buf[i++]=source().get(),nc=source().peek();
        }
        if (i>= 1024) erreur("Number too long");

        buf[i]=0;
        if (nc=='i' )
        {
            buf[i++]=source().get(),buf[i]=0,plglval->dnum = atof(buf),ret=CNUM;
        }
        else if (real)
            plglval->dnum = atof(buf),ret=DNUM;
        else
            plglval->lnum = atol(buf),ret=LNUM;//  FH 12/2022 

        if(lexdebug) cout << " NUM : " << buf  << " "<<endl;
    }

    // <<found_an_identifier>>
    else if (isalpha(c) || c=='\\')
    {
        ret =  ID;
        int i;
        for (i = 1; i < 1024 && isalnum(source().peek()); i++)
            buf[i]=source().get();
        if (i == 1024) erreur ("Identifier too long");
        buf[i] = 0;
    }

    // <<found_a_string>>
    else if (c=='"')
    {
        int i;
        char cc,ccc;
        for (     i = 0,cc=source().peek();
                  i < 1024 &&  ( (isprint(cc)|isspace(cc)) && cc !='\n'  && cc !='"');
                  cc=source().peek(),++i
            )
        {
            if ( cc == '\\')  //   escape
            {
                cc= source().get();
                cc= source().get();
                ccc= source().peek();
                switch (cc)
                {
                case 'n':
                    buf[i]='\n';
                    break;
                case 'r':
                    buf[i]='\r';
                    break;
                case 'f':
                    buf[i]='\f';
                    break;
                case 't':
                    buf[i]='\t';
                    break;
                case 'a':
                    buf[i]='\a';
                    break;
                case 10:
                case 13:
                    cc='\n';
                    if(ccc!=cc && (ccc==10 || ccc==13)) source().get();// NL CR eat ...
                    linenumber++;
                default :
                    buf[i]=cc  ;
                    break;
                }
            }
            else
                buf[i] = source().get();
        }
        if (i == 1024) erreur ("String too long");
        buf[i] = 0;
        if(source().get() != '"') erreur("End of String could not be found");
        plglval->str = newcopy(buf);
        if(lexdebug)  cout << "STRING=" << '"' << buf << '"' << endl;

        ret= STRING;
    }

    // Anything else (eg brackets and operators)
    else
    {
        ret = c;
        switch(c)
        {

        case '{':
        case '%':
        case '}':
        case '(':
        case ')':
        case '[':
        case ']':
        case ',':
        case ';':
        case '#':
            break;
        case '*':
            if (nc == '=') ret=MULEQ;
            break;
        case '/':
            if (nc == '=') ret=DIVEQ;
            break;
        case '^':
        case '~':
        case '\'':
        case '_':
        case '?':
            break;
        case '.':
            if (nc == '*') ret = DOTSTAR;
            else if (nc == '/') ret = DOTSLASH;
            break;
        case ':':
            if (nc == '=') ret= SET;
            break;
        case '&':
            if (nc == '&') ret= AND;
            break;
        case '|':
            if (nc == '|') ret= OR;
            break;
        case '!':
            if (nc == '=') ret=NE;
            break;
        case '<':
            if (nc == '=') ret=LE;
            if (nc == '<') ret=LTLT;
            if (nc == '>') ret= NE;
            break;
        case '>':
            if (nc == '=') ret=GE;
            if (nc == '>') ret=GTGT;
            break;
        case '=':
            if (nc == '=')
                ret=EQ;
            break;
        case '-':
            if (nc == '>') ret=ARROW;
            if (nc == '-') ret=MOINSMOINS;
            if (nc == '=') ret=MOINSEQ;
            break;
        case '+':
            if (nc == '+') ret=PLUSPLUS;
            if (nc == '=') ret=PLUSEQ;
            break;
        default:
            cerr << "'" << (char) c << (char) nc << "' <=> " << (int) c << " is " ;
            erreur (" Unexpected character");
        }
        if( (ret == DOTSTAR) || (ret==DOTSLASH))
        {
            source().get();
            nc = source().peek();
            if(nc == '=' )
            {
                buf[2]='=';// ad FH 19 april 2012 (bug in macro )
                buf[3]=0;
                source().get();
                ret = (ret == DOTSTAR) ?DOTMULEQ : DOTDIVEQ;
            }
        }
        else if (ret!=c) source().get();
        else buf[1] = 0;
        strcpy(plglval->oper,buf);
        if(lexdebug)  cout << "Special '" <<  plglval->oper << "' " << ret << " ";
    }
    typetoken=ret;
    return ret;
}

// <<mylex_scan1>>
int mylex::scan1()
{

    // extern long mpirank;
// bool echo = mpirank == 0;

    int ret= basescan(); // [[mylex_basescan]]
    if(debugmacro)  cout << " scan1 " << ret << " " << token() << " " << ID << endl;
    while ( ret == ID  && (
                SetMacro(ret) // correction mars 2014 FH
                ||  CallMacro(ret) // correction mars 2014 FH
                || IFMacro(ret)
            )
          )
        ; // correction mars 2014 FH

    return ret;
}

// <<mylex_scan>>
int mylex::scan(int lvl)
{

    int ret= scan1();

    // ID defined at [[file:../lglib/lg.ypp::ID]] and detected at [[found_an_identifier]]
    if ( ret == ID)
    {
        if (! InMotClef(plglval->type,ret))
        {
            int ft = FindType(buf);

            // FESPACE, FESPACE1, FESPACE3 defined at [[file:../lglib/lg.ypp::FESPACE]]
            // Morice (june :: 2022)- Added VGFESPACE : Vector generic FESpace             -->  pvectgenericfes
            //                      - Added GFESPACE  : generic FESpace  ( A enlever ???)  -->  pgenericfes
            int feid3[8]  = { ID,FESPACE1,FESPACE,FESPACE3,FESPACES,FESPACEL,VGFESPACE,GFESPACE};

            ffassert ( ft >= 0 && ft <= 7 );
            ret =  feid3[ft];
            plglval->str = newcopy(buf);
        }
    }

    if ( ret =='{')
    {
        listMacroDef->push_back( MapMacroDef() );
    }
    else if (ret == '}')
    {
        listMacroDef->pop_back( );
    }

    if (! lexdebug && echo && lvl==0 ) print(cout);

    return ret;
}

string mylex::token() const
{
    int i=-1;
    string f;

    // found at [[found_a_string]]
    if (typetoken == STRING)
    {
        f += '"';
        while (buf[++i])
            if (buf[i]=='\n') f +=  "\\n";
            else if (buf[i]=='"') f += "\\\"";
            else f +=  buf[i] ;
        f+= '"';
    }
    else
        while (buf[++i])
            if (buf[i]=='\n') f += "\\n";
            else f += buf[i] ;
    return f;
}

void mylex::print(ostream &f) const
{
    int i=-1;
    int k=0;
    if (typetoken == STRING)
    {

        f <<'"';
        while (buf[++i])
        {
            k++;
            if (buf[i]=='\n') k++, f << "\\n";
            else if (buf[i]=='"') k++,f << "\\\"";
            else f << buf[i] ;
            if ( k%50==49) f << "\n  ... : ";
        }
        f << '"';
    }
    else
        while (buf[++i])
            if (buf[i]=='\n') f << "\\n";
            else f << buf[i] ;

}

char * mylex::match(int i)
{
    if ( i != basescanprint() )
    {
        cerr << " we waiting for a '" << char(i) <<"'" << endl;
        ErrorScan(" err macro ");
    };
    return buf;
}

bool mylex::AddMacro(string m,string def)
{
    bool ok=1;
    char *macroname=newcopy(m.c_str());
    int nbparam =0;
    MacroData macroparm;
    macroparm.f="";
    macroparm.l=0;
    macroparm.d.push_back(def);
    MapMacroDef & MacroDef =listMacroDef->back();
    MapMacroDef::const_iterator i=MacroDef.find(macroname);
    if(verbosity>3) cout << " add macro "<< m << "->" << def << endl;
    if ( i == MacroDef.end() )
        MacroDef[macroname]=macroparm;
    else
    {
        cerr << " Error add macro varf: "<< m << "->" << def << " the macro exist"<< endl;
        ErrorScan("Error in AddMacro parameters");
        ok = false;
    }
    return ok;
}
bool mylex::SetMacro(int &ret)
{
    char endmacro[]="EndMacro";
    char newmacro[]="NewMacro";

    bool rt=false;
    int oldmacro=1;
    if(strncmp(buf,"debugmacro",10)==0 )
    {
        debugmacro = true;
        rt=true;
        ret= basescan();
        
    }
    else if(strncmp(buf,"nodebugmacro",12)==0 )
    {
        debugmacro = false;
        rt=true;
        ret= basescan();
        
    }
    else if (strncmp(buf,"macro",6)==0 || (oldmacro=strncmp(buf,newmacro,9))==0 )
    {
        if(echo)  print(cout);
        char *macroname=newcopy(match(ID));
        int nbparam =0;
        MacroData macroparm;

        int rr=basescanprint();
        string def;
        if (rr!='(')
            def += buf;
        else
        {
            // a '(' after macro name
            rr =  basescanprint();

            if (rr != ')' )
                do
                {
                    if (nbparam++>= 100)
                    {
                        cerr << "in macro " <<macroname << endl;
                        ErrorScan(" Too much (more than 100) parameters");
                    }

                    if (rr != ID)
                    {
                        cerr <<" Erreur waiting of an ID: " << buf << " " << rr <<  endl;
                        erreur("in macro def: waiting for a ID");
                    }
                    macroparm.d.push_back(buf);
                    rr =  basescanprint();
                    if (rr  == ')') break;
                    if ( rr != ',') erreur("in macro def: waiting  , or  ) ");
                    rr =  basescanprint();

                }
                while(1);
        }
        int kmacro=0;

        macroparm.l = linenumber;
        macroparm.f = file();
        do
        {
            int lk=0,nl=0;
            string item;
            int i = source().get();
            if (i == EOF)
            {
                cerr << "in macro " <<macroname <<  endl;
                ErrorScan(" ENDOFFILE in macro definition. remark:a macro end with // or EndMacro");
            }
            int ii = source().peek();
            if(isNLCR(source(),i))
            {
                linenumber++;
                nl=1;
                i = '\n'; // normalize CR/CRLF to LF so stored body always uses '\n'
            }
            else if(isalpha(i) && isalpha(ii) )  //  Modif F.H
            {
                item = char(i);
                i = source().get();
                while(isalpha(i))
                {
                    item += char(i);
                    i = source().get();
                }
                if (i == 10 || i == 13)
                {
                    linenumber++;
                    nl=1;
                }
                if( item == newmacro)  kmacro++;
                if( item == endmacro)
                {
                    if (kmacro==0)
                    {
                        if(echo)cout <<item ;
                        source().putback(i);
                        break;
                    }
                    kmacro--;
                }
                if(echo) cout << item ;
                def += item;
                item ="";
                ii = source().peek();
            }

            if(oldmacro)
            {
                if (i == '/' && ii == '/')
                {
                    source().putback('/');
                    break;
                }
            }

            def +=char(i);
            if(echo)cout << char(i) ;
            if(echo && nl==1) cout << setw(5) <<linenumber << " # " ;

        }
        while(1);
        macroparm.d.push_back(def);
        if(verbosity>999|| debugmacro) cout <<" macro : " << macroname<< ", def =  :"<< def << endl;
        if (nbparam)
            if(echo) cout << " )  " ;
        MapMacroDef & MacroDef =listMacroDef->back();
        MapMacroDef::const_iterator i=MacroDef.find(macroname);
        if ( i == MacroDef.end() )
            MacroDef[macroname]=macroparm;
        else
        {
            cerr << "ERREUR in macro name:" <<macroname << endl;
            ErrorScan(" The macro already exists, sorry");
        }
        rt=true;
        ret= basescan();
    }
    return rt;
}
std::string trim(std::string s, const char* t = " \t\n\r\f\v")
{
    s.erase(0, s.find_first_not_of(t));
    s.erase(s.find_last_not_of(t) + 1);
    return s;
}
bool mylex::IFMacroId(bool isnot,string & id,bool withval ,string &val)
{ //  check value
    bool rt=false;
    bool exist=false;
    MapMacroDef::const_iterator j;
    for (list<MapMacroDef>::const_iterator i=listMacroDef->begin(); i != listMacroDef->end(); i++)
    {
        j=i->find(id.c_str());
        if( j != i->end())
        {
            exist =true;
            break;
        }
    }
    
    if(withval && exist)
    {
        const MacroData  & macroparm= j->second;
        if(macroparm.d.size()>0)
        {
            const string & mval = macroparm.d[macroparm.d.size()-1];
            if(debugmacro)  cout << " check IFMACRO '"<< val << "' '"<< mval <<"'"<<endl;
            exist = trim(mval) == trim(val);
            
        }
    }
    if(debugmacro)  cout << " check IFMACRO '"<< id << "' exist "<< exist << " isnot "
                         << isnot   <<endl;
    return exist == (isnot==0);
}
bool mylex::IFMacroArgs(int lvl)
{  //  wait for  string : ([!]ID [,val] )
    bool isnot=0;
    if (! lexdebug && echo  ) print(cout);
    string val;
    int rr=basescanprint();
    if (rr!='(')
    {
        ErrorScan(" missing '(' after IFMACRO ");
    }
    rr=basescanprint();
    if(rr=='(')
    { // (..) *([&|] ())
        source().putback('(');
    
        bool ok=IFMacroArgs(lvl+1);
        while ((rr=basescanprint()))
            if( rr=='&')
                ok = IFMacroArgs(lvl+1) && ok;
            else if( rr=='|')
                ok = IFMacroArgs(lvl+1) || ok;
            else if ( rr== ')') break;
            else  ErrorScan(" missing '& | )' after IFMACRO expression ");
        return ok;
    }
    else {
    if( rr=='!')
    {
        isnot =1;
        rr=basescanprint();
    }
    if (rr != ID)
        cerr <<"IFMACRO: Erreur waiting of an ID: " << buf << " " << rr <<  endl;
    string id =buf;
    int withval=0;
    rr=basescanprint();
    if( rr == ',')
    {
        while(1)
        {
            int i = source().get();
            if (i == EOF)
            {
                cerr << "in IFMACRO " <<id <<  endl;
                ErrorScan(" ENDOFFILE in IFMACRO definition. remark:a end with ENDIFMACRO ");
            }
            
            if( char(i) ==')') break;
            val +=char(i);
            withval=1;
            
        }
        if (! lexdebug && echo  ) cout << val;
        source().putback(')');
        rr=basescanprint();
    }
    
    if (rr!=')')
    {
        ErrorScan(" missing ')' after IFMACRO(macro)  ");
    }
    return IFMacroId(isnot,id,withval,val);
    }
}
bool mylex::IFMacro(int &ret)
{
    // A faire !!!! F.H
    bool rt=false;
    const char *ifm="IFMACRO";
    const char *ife="ENDIFMACRO";
    int kif=0;
    int isnot=0;
    int lgifm=0;
    if (strncmp(buf,ifm,8)==0  )
    {
        rt=true; //  we see IFMACRO
/*
        if (! lexdebug && echo  ) print(cout);
        string val;
        int rr=basescanprint();
        if (rr!='(')
        {
            ErrorScan(" missing '(' after IFMACRO ");
        }
        rr=basescanprint();
        if( rr=='!')
        {
            isnot =1;
            rr=basescanprint();
        }
        if (rr != ID)
            cerr <<"IFMACRO: Erreur waiting of an ID: " << buf << " " << rr <<  endl;
        string id =buf;
        int withval=0;
        rr=basescanprint();
        if( rr == ',')
        {
            while(1)
            {
                int i = source().get();
                if (i == EOF)
                {
                    cerr << "in IFMACRO " <<id <<  endl;
                    ErrorScan(" ENDOFFILE in IFMACRO definition. remark:a end with ENDIFMACRO ");
                }

                if( char(i) ==')') break;
                val +=char(i);
                withval=1;

            }
            if (! lexdebug && echo  ) cout << val;
            source().putback(')');
            rr=basescanprint();
        }

        if (rr!=')')
        {
            ErrorScan(" missing ')' after IFMACRO(macro)  ");
        }
 */
        bool ok=IFMacroArgs();//
        int kmacro=0;
        if(debugmacro) cout << " IFMacro:: " << linenumber << endl;
        lgifm=linenumber;
        string def;
        do
        {
            int lk=0,nl=0;
            string item;
            int i = source().get();

            if (i == EOF)
            {
                cerr << "in IFMACRO " << linenumber <<  endl;
                ErrorScan(" ENDOFFILE in IFMACRO definition. remark:a end with ENDIFMACRO ");
            }
            int ii = source().peek();
            //
            if(isNLCR(source(),i))
            {
                linenumber++;
                nl=1;
                i = '\n'; // normalize CR/CRLF to LF so stored body always uses '\n'
            }
            //
            else if(isalpha(i) && isalpha(ii) )  //  Modif F.H
            {
                //def +=char(i);
                item = char(i);
                i = source().get();
                while(isalpha(i))
                {
                    item += char(i);
                    i = source().get();
                }
                if( item == ifm)  kif++;
                if( item == ife)
                {
                    if (kif==0)
                    {
                        source().putback(i);
                        break;
                    }
                    kif--;
                }
                if(echo) cout << item ;
                def += item;
                item ="";

                ii = source().peek();
            }



            def +=char(i);
            if(echo)cout << char(i) ;
            if(echo && nl==1) cout << setw(5) <<linenumber << " & " ;
        }
        while(1);
      
        if (! lexdebug && echo  ) cout  << ife ;
        /*
        bool exist=false;
        MapMacroDef::const_iterator j;
        for (list<MapMacroDef>::const_iterator i=listMacroDef->begin(); i != listMacroDef->end(); i++)
        {
            j=i->find(id.c_str());
            if( j != i->end())
            {
                exist =true;
                break;
            }
        }

        if(withval && exist)
        {
            const MacroData  & macroparm= j->second;
            if(macroparm.d.size()>0)
            {
                const string & mval = macroparm.d[macroparm.d.size()-1];
                if(debugmacro)  cout << " check IFMACRO '"<< val << "' '"<< mval <<"'"<<endl;
                exist = trim(mval) == trim(val);
                rt=true;
            }
        }
        if(debugmacro)  cout << "IFMacro def: " << def << "\n .. exist "<< exist  << " " << isnot << " "<< (exist == (isnot==0)) << " \n....\n";
*/
        if(ok) //exist == (isnot==0))
        {
            input(def,new string(file()),lgifm);
        }
        ret =  scan1();
    }
    return rt;
}

bool mylex::CallMacro(int &ret)
{
    // New Version with direct macro expansion
    // FH  jan 2005
    // -----------------------------------------
//  add Stringification,FILE, LINE  march 2014 FH..
    if(strncmp(buf,"Stringification",16)==0)
    {
        if(debugmacro) cout <<"call Stringification : " << buf << endl;

        if(echo) cout << buf << "(" ;
        string p,cmm;
        int lvll=0;
        match('(');

        int kend=')';
        while (1)
        {
            cmm="";
            int sep =  EatCommentAndSpace(&cmm);
            p += cmm;
            int rr = scan1();// do macro expantion
            if(lvll && rr==')') lvll--; //   if ( then  we eat next )
            else if (rr=='(') lvll++ ;  //  eat next
            else if (lvll<=0)
            {
                if (rr==kend ) break;
                else if  (rr==')' || rr==',')
                {
                    cerr << "Error in Stringification  "
                         << ", we wait for "<< char(kend) << " and we get  " << char(rr)<< endl;
                    ErrorScan(" Wrong number of parameter in  Stringification call");
                }
            }
            if(debugmacro)cout << " ..." << rr << " " << token()<< " " << level << endl;
            if (rr==ENDOFFILE) ErrorScan(" Stringification in macro ");
            if(echo) cout << token();
            p += token();
        }
        if(echo) cout << p << ")";
        plglval->str = newcopy(p.c_str());
        ret = STRING;

        return false;
    }

    // <<FILE_macro>>
    else if(strncmp(buf,"FILE",5)==0)
    {
        if(echo) cout << buf  ;
        plglval->str = newcopy(filename() );
        ret = STRING;
        return false;
    }

    // <<LINE_macro>>
    else if(strncmp(buf,"LINE",5)==0)
    {
        if(echo) cout << buf  ;
        plglval->lnum = linenumber;
        ret=LNUM;
        return false;
    }
    else
        for (list<MapMacroDef>::const_iterator i=listMacroDef->begin(); i != listMacroDef->end(); i++)
        {
            MapMacroDef::const_iterator j= i->find(buf);

            if (j != i->end())
            {
                const MacroData  & macroparm= j->second;
                int nbparam= macroparm.d.size()-1;
                if(debugmacro) cout <<"call macro : " << buf << endl;
                string * macronn= newstring(" macro: ");
                *macronn+= buf;
                *macronn+=" in ";
                *macronn+= macroparm.f;
                if(echo) cout << buf  ;
                MapMacroParam  lp;
                if (nbparam > 0 )
                {
                    match('(');

                    for (int k=0; k<nbparam; k++)
                    {
                        string p;
                        int kend= ( k+1 == nbparam) ? ')' : ',';
                        int lvl=0;
                        int lvll=0;
                        while (1)
                        {
                            int sep =  EatCommentAndSpace();
                            int rr = basescanprint();// basescan -> scan1 change 2/2/2007  ( not change to pass macro name as a parameter)
                            if ( (rr=='}') && (--lvll==0) )
                                continue; // remove first {
                            else if ( (rr=='{') && (++lvll==1) )
                                continue; // remove last }
                            else if(lvll==0) //  count the open close () []
                            {
                                if(lvl && rr==')') lvl--; //   if ( then  we eat next )
                                else if(lvl && rr==']') lvl--; //   if ( then  we eat next )
                                else if (rr=='(') lvl++ ;  //  eat next
                                else if (rr=='[') lvl++ ;  //  eat next
                                else if (lvl<=0)
                                {
                                    if (rr==kend ) break;
                                    else if  (rr==')' || rr==',')   // Correction FH 2/06/2004
                                    {
                                        cerr << "Error in macro expansion "<< j->first
                                             << ", we wait for "<< char(kend) << " and we get  " << char(rr)<< endl;
                                        cerr << " number of macro parameter in definition is " << nbparam << endl;
                                        ErrorScan(" Wrong number of parameter in  macro call");
                                    }
                                }
                            }

                            if (rr==ENDOFFILE) ErrorScan(" ENDOFFILE in macro usage");
                            if(sep==' ') p+=' ';
                            p += token(); // Correction FH 2/06/2004 of string parameter

                        }
                        if(debugmacro)
                            cout << "macro arg "<< k << " :" << macroparm.d[k] << " -> " <<  p << endl;
                        lp.insert(pair<string,string>(macroparm.d[k],p));
                    }
                }
                if(debugmacro)
                    cout <<   " input in : -> " << macroparm.d[nbparam]  << " <-> " << nbparam << endl;
                input(macroparm.d[nbparam],0,macroparm.l);//  no file no error here FH.
                // ici il faut faire la substitution  de parameter
                // -----------------------------------------------
                string expandtxt;
                string currentexpand;
                string leftexpand;
                string rightexpand;
                string ReadCommentAndSpace;
                bool echosave=echo;
                char buf2[256];
				const char *ifm="IFMACRO";
    			const char *ifs="Stringification";
                bool inifmacro = 0;
                bool isconc = 0;
                int nbparenth = 0;
                while(1)
                {
                	ReadCommentAndSpace = "";
                    int c= EatCommentAndSpace(&ReadCommentAndSpace); // eat comment to save it;
                    if (c == EOF) {
                    	expandtxt+=currentexpand+ReadCommentAndSpace;
                    	break;
                    }
					ret = basescan();
                    if(debugmacro)  cout << " ret = " << ret << token() << endl;
                    if(ret== ENDOFFILE) {
                    	expandtxt+=currentexpand+ReadCommentAndSpace;
                    	break;
                    }
                    if (inifmacro && (ret == '('))
                      nbparenth++;
                    if (inifmacro && (ret == ')'))
                      nbparenth--;
                    if (nbparam && (ret != '#') && (ret != ')' || !inifmacro))
                    {
                    	if (strncmp(buf,ifm,8)==0 || strncmp(buf,ifs,15)==0)
	                    	inifmacro = 1;

                    	if (!isconc) {
                        	MapMacroParam::const_iterator j=lp.find(buf);
                        	if ( j !=  lp.end()) {
                            	expandtxt+=currentexpand+ReadCommentAndSpace;
                            	currentexpand=j->second;
                        	}
                        	else {
                            	expandtxt+=currentexpand+ReadCommentAndSpace;
                            	currentexpand=token();
                        	}
                    	}
                        if (isconc) {
							MapMacroParam::const_iterator j=lp.find(buf);
                        	if ( j !=  lp.end()) {
                            	rightexpand=j->second;

								if (rightexpand[0] == ' ')
									rightexpand.erase(0, 1);
                            }
                        	else
                            	rightexpand=token();

                        	currentexpand = leftexpand+rightexpand;
                        	if (!inifmacro)
                        	for (list<MapMacroDef>::const_iterator i=listMacroDef->begin(); i != listMacroDef->end(); i++) {


								while (currentexpand[0] == ' ')
									currentexpand.erase(0, 1);

            					MapMacroDef::const_iterator j= i->find(currentexpand.c_str());
								if (j != i->end()) {
									const MacroData  & macroparm= j->second;
									if (macroparm.d.size() == 1) {
										currentexpand = macroparm.d[0];
									if (currentexpand[currentexpand.size()-1] == ' ')
										currentexpand.resize(currentexpand.size()-1);
									}
								}
                        	}
                        	isconc = 0;
                        }
                    }
                    else if (ret!='#') {  //  macro concatenation operator
                    	if (ret == ')' && inifmacro && nbparenth == 0)
                    		inifmacro = 0;
                    	if (!isconc) {
                        	expandtxt+=currentexpand+ReadCommentAndSpace;
                        	currentexpand=token();
                    	}

                    }
                    else {
                    	leftexpand = currentexpand;
                    	isconc = 1;
                    }
                }
                echo=echosave;
                if(debugmacro) cout <<" (macro) eadin : " << expandtxt << endl;
                input(expandtxt,macronn,macroparm.l);
                ret =  scan1(); // Correction FH 6/06/2004 of string parameter
                return true;
            }
        }
    return false;
}

void  mylex::xxxx::open(mylex *lex,const char * ff,int ts)
{

    string dirname;
    typeofscript=ts ? ts: setMarkdown(ff) ;
    
    l=0;
    nf=f=0;
    sep=':';
    // Try to open the given file name without any extra path from [[file:lex.hpp::ffincludedir]]
    if (lex->ffincludedir.empty())
      nf=f= new ifstream(ff,ios_base::binary); //  modif of win32

    // If it worked, set [[file:lex.hpp::filename]] to ff, otherwise try to open it
    // in the same directory as the file which includes it
    if (!f || !*f)
    {
      // if the file is included by another one, it is searched in the same directory
      if (lex->level >= 0) // file is included by another one
      {
        if (f)
        {
          delete f;
          nf=f=0;
        }

        // directory separator can be / (Unix) or \ (Windows)
        string separator = "/\\";

        // parent_filename is the full path to the file which includes filename
        string parent_filename(*lex->pilesource[lex->level].filename);

        // get dirname of parent_filename
        size_t found = parent_filename.find_last_of(separator);
        dirname = parent_filename.substr(0,found+1);

        // try to open dirname/ff
        string dif_ff(dirname+ff);
        nf=f= new ifstream(dif_ff.c_str(),ios_base::binary);
      }
    }

    // If it worked, set [[file:lex.hpp::filename]] to dirname+ff, otherwise try to add path elements from
    // [[file:lex.hpp::ffincludedir]]
    if (!f || !*f)
    {
        if ( f)
        {
            delete f;
            nf=f=0;
        }

        // for every potential path element
        for (ICffincludedir k=lex->ffincludedir.begin();
                k!=lex->ffincludedir.end();
                ++k)
        {
            string dif_ff(*k+ff);
            if (verbosity>=50) lex->cout  << "  --lex open :" << dif_ff << endl;
            nf=f= new ifstream(dif_ff.c_str(),ios_base::binary);
            if ( f)
            {

                // If path works, set [[file:lex.hpp::filename]] and close test stream
                if ( f->good())
                {
                    filename = newstring(dif_ff);
                    break;
                }
                delete f;
                nf=f=0;
            }
        }
    }
    else
        filename=newstring(ff);

    // Error message if no path was right
    if (!f || !*f)
    {
        lex->cout << " Error opening file " <<ff<< " in: " <<endl;
        if (!dirname.empty()) lex->cout << "  -- try  :\"" << dirname+ff << "\"\n";
        for (ICffincludedir k=lex->ffincludedir.begin();
                k!=lex->ffincludedir.end();
                ++k)
            lex->cout  << "  -- try  :\"" << *k+ff  << "\"\n";

        lgerror("lex: Error input opening file ");
    }
}

void mylex::xxxx::readin(mylex *lex,const string & s,const string *name, int macroargs)
{
    filename=name;
    macroarg=macroargs;
    l=0;
    nf=f= new istringstream(s.c_str());
   if(verbosity>999) std::cout << " readin :"<< s << "!!!.."<< endl;
    sep='@';
    if (!f || !*f)
    {
        lex->cout << " Error readin string  :" <<s<< endl;
        if(f) delete f;
        nf = f =0;
        lgerror("lex: Error readin macro ");
    }
}

void mylex::xxxx::close()
{
    // ALH_BUG Why does this segfault under Windows? Probably needs valgrind to find out.
#if !defined(ENABLE_FFCS) || !defined(WIN32)
    if(nf) delete nf;
#endif
    if(filename && (macroarg==0)) delete filename; // [[file:lex.hpp::filename]]
    f=nf=0;
}

// <<mylex_input_filename>>

void mylex::input(const char *  filename,int ts)
{
    ffassert(level<99 && level >= -1);
    if (level>=0)
        pilesource[level].l =linenumber;

    pilesource[level+1].open(this,filename,ts);
    pilesource[level+1].l =0;
    linenumber = 1;
    level++;
}

// <<mylex_input_string>>

void mylex::input(const string & str,const string * name,int lg)
{

    ffassert(level<99 && level >= -1);
    if (level>=0)
    {
        pilesource[level].l =linenumber;
    }

    pilesource[level+1].readin(this,str,name);
    linenumber = lg;
    level++;

}

bool mylex::close()
{
    if(debugmacro )
        cout << "\n close " << level ;
    ffassert(level >=0 && level < 100);
    pilesource[level].close(); // [[mylex::xxxx::close]]
    if (--level<0)
        return false;
    linenumber = pilesource[level].l;
    return true;
}

mylex::~mylex()
{
    delete listMacroDef;
    while( ! strdata.empty())
    {
        //  commente july 2005 FH ???. a test plus finement.
        delete [] strdata.top(); // bug  ????? FH  25032005
        strdata.pop();
    }
}

mylex::mylex(ostream & out,bool eecho,const KN<String> *pargs)
    :
    linenumber(1),
    charnumber(0),
    ffincludedir(ffenvironment["includepath"]),
    firsttime(true),
    level(-1),
    echo(eecho && (mpirank == 0) && verbosity),
    cout(out),
    listMacroDef(new list<MapMacroDef>),
    listMacroParam(0)
{
    listMacroDef->push_front(MapMacroDef());
    if(pargs)
    {
        const KN<string> &args=*pargs;
        for (int i=1; i<args.N(); ++i)
        {
            const string &a= args[i];
            size_t id=a.find_first_of("-D");
            if( id == 0)
            {
                size_t ie=a.find_first_of("=");
                if( ie != std::string::npos && ie > 3)
                    AddMacro(a.substr(2,ie-2),a.substr(ie+1,a.length()-ie-1));

            }

        }
    }
};

mylex * Newlex(  ostream & out,bool eecho,KN<String> * args)
{
    return new mylex(out,eecho,args);
}
void Destroylex(mylex * m)
{
    delete m;
}
ostream & mylex::ShowStack(ostream & f)
{
    for (int i=0; i<level; ++i)
        if(  pilesource[i].filename ) f << " \t"<<i<<"\t"<<" in " << *pilesource[i].filename<< " line : " <<  pilesource[i].l << endl;
    return f;
}
