#include <stdio.h>
#include <fstream>
#include <iostream>
#include <vector>
#include <string>
#include <stdlib.h>
using namespace std;

string select_word (string& s)
 {
  int i;
  string st;
  i=s.find_first_not_of(' ');
  if (s[i]=='\"')
   {
    i=s.find_first_of('\"',1);
    st=s.substr(1,i-1);
    s.erase (0,i+2);
    return st;
   }
  if (s[i]!='\"')
   {
    i=s.find_first_of(' ');
    st=s.substr(0,i);
    s.erase (0,i+1);
    return st;
   }
 }
 
string new_list_name()
{
  char* S;
 S=new char [11];
 strcpy(S, "list_XXXXXX");
 S=mktemp(S);
 return S;
}

//-------------------------------------------------------------------------------------------------------------------------------------------------------
//----------------------------------------------------------------------- Class Element -----------------------------------------------------------------
//-------------------------------------------------------------------------------------------------------------------------------------------------------

class Element
{
 private:
  string a;
 public:
   Element (string a): a(a) {}

   void writeln (ostream& f)
   {
    f<<a;
   }

   void println (istream& f, int n)
   {
    int i;
    for (i=0; i<n; getline (f,a), i++);
    cout<<a<<endl;
   }
};

//-------------------------------------------------------------------------------------------------------------------------------------------------------
//----------------------------------------------------------------------- Class List --------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------------------------------------------------------------

class List
{
  public:
   List* parent;
   vector<List*> SonDirs;
   string name;
   string filename;

//-------------------------------------------------------------------------------------------------------------------------------------------------------

   List(string s1, string s2) //constructer #1
   {
    int pos;
    parent=NULL;
    SonDirs.clear();
    name=s1;
    filename=s2;
   }

//-------------------------------------------------------------------------------------------------------------------------------------------------------

  ~List() //destructer
   {
    SonDirs.clear();
   }

//-------------------------------------------------------------------------------------------------------------------------------------------------------

   void LinkList (List *l1, List *l2) //adding list l2 to tree l1
   {
    l1->SonDirs.push_back (l2);
    l2->parent=l1;
   }

//-------------------------------------------------------------------------------------------------------------------------------------------------------

   void AddElem(Element e) //adding element to current list
   {
    ofstream f;
    f.open(filename.c_str(), ios::app);
    e.writeln (f);
    f.close();
   }

//-------------------------------------------------------------------------------------------------------------------------------------------------------

   void abcfg_build (ofstream& ab)
    {
     ab<<name<<'-'<<filename<<endl;
     ab<<SonDirs.size()<<endl;
     for(int i=0; i<SonDirs.size();i++) SonDirs[i]->abcfg_build(ab);
    }

   void show_lists (int k)
    {
    int i,p;
for(p=0;p<k;p++,cout<<" ");
cout<<name<<endl;
for(int i=0; i<SonDirs.size();i++) SonDirs[i]->show_lists(k+1);
    }

//-------------------------------------------------------------------------------------------------------------------------------------------------------

   void show_contacts()
  {
     string s;
     int i;
     ifstream f;

    f.open(filename.c_str(), ios::in);
while (getline (f,s)) cout<<s<<endl;
    f.close();
  }

//-------------------------------------------------------------------------------------------------------------------------------------------------------

   void edit_contact(string s, int n)
 {
   string str,temp;
   int i=0;
   ifstream f;
   ofstream ftemp;

for (i=0; i<=4; i++)
 {
  temp=select_word(s);
  str.append(temp);
  if (i!=4) str.append(", ");
 }

  s=str;
  i=0;
  temp=new_list_name();
  ftemp.open(temp.c_str(), ios::out);
  f.open(filename.c_str(), ios::in);

  while (getline (f,str))
   {
    if (i==n) ftemp<<s<<endl; else ftemp<<str<<endl;
    i++;
   }

  f.close();
  ftemp.close();

  s="mv "+temp+" "+filename;
  system (s.c_str());

  remove (temp.c_str());
 }

//-------------------------------------------------------------------------------------------------------------------------------------------------------

void make_contact_copy(string dest_filename,int n,int b)
{
  ifstream fdest,fsource;
  ofstream ftemp;
  string s,str,temp;
  int i=0;
 fsource.open(filename.c_str(), ios::in);

 if (n==0)
  {
   if (b) getline (fsource,s);
   else
    {
     getline (fsource,s);
     delete_contact(n);
    }
  }
 else
  while (getline (fsource,str))
   {
    if ((i==n-1)&&(b==1)) getline (fsource,s);
    if ((i==n-1)&&(b==0)) {getline (fsource,s); delete_contact(n);}
    i++;
   }
 fsource.close();
   temp=new_list_name();
   ftemp.open(temp.c_str(), ios::out);
   fdest.open(dest_filename.c_str(), ios::in);
  while (getline (fdest,str)) ftemp<<str<<endl;
  ftemp<<s<<endl;
   ftemp.close();
   fdest.close();

  s="mv "+temp+" "+dest_filename;
  system (s.c_str());

  remove (temp.c_str());
}

//-------------------------------------------------------------------------------------------------------------------------------------------------------

void find_contact (string s)
{
  fstream f,ftemp1, ftemp2, ftemp3,ftemp4;
  string sn,str,temp1,temp2;
  int i,n,k;
//------------------------- surname ------------------
  temp1=new_list_name();
  temp2=new_list_name();
  f.open(filename.c_str(), ios::in);
  ftemp1.open(temp1.c_str(), ios::out);

i=0;k=1;

sn=select_word(s);//surname
if (sn=="\"\"") k=0; else k=1;
if ((sn.size()!=1)&&(k!=0))
{
n=-1;
//cout<<"*"<<sn<<"*";
 while (getline (f,str))
  {
   i=str.find(sn);
   n++;
   if (i>=0) ftemp1<<"|"<<n<<"| "<<str<<endl;
  }
}

f.close();
ftemp1.close();

//------------------------- name ---------------------
ftemp1.open(temp1.c_str(), ios::in);
ftemp2.open(temp2.c_str(), ios::out);

   if (s.size()>1) sn=select_word(s); else k=0;//name
   if (sn=="\"\"") k=0; else k=1;
   if ((sn.size()!=0)&&(k!=0))
   {
    while (getline (ftemp1,str))
     {
      i=str.find(sn);
      if (i>=0) ftemp2<<str<<endl;
     }
   }
   else
   {
    while (getline (ftemp1,str))
     {
      ftemp2<<str<<endl;
     }
   }
ftemp1.close();
ftemp2.close();

//------------------------- second name --------------
ftemp3.open(temp2.c_str(), ios::in);
ftemp2.open(temp1.c_str(), ios::out);
if (s.size()>1) sn=select_word(s); else k=0;//second name
if (sn=="\"\"") k=0; else k=1;
if ((sn.size()!=0)&&(k!=0))
 {
  while (getline (ftemp3,str))
   {
    i=str.find(sn);
    if (i>=0) ftemp2<<str<<endl;
   }
 }
else
 {
  while (getline (ftemp1,str))
   {
    ftemp2<<str<<endl;
   }
 }

ftemp3.close();
ftemp2.close();

   ftemp4.open(temp1.c_str(), ios::in);
   cout<<"               Founded:"<<endl;
 while (getline (ftemp4,s)) cout<<s<<endl;
   ftemp4.close();

remove (temp1.c_str());
remove (temp2.c_str());
}

//-------------------------------------------------------------------------------------------------------------------------------------------------------

   void delete_contact(int n)
  {
   string temp,s;
   int i=0;
   ifstream f;
   ofstream ftemp;

  temp=new_list_name();
  ftemp.open(temp.c_str(), ios::out);
  f.open(filename.c_str(), ios::in);

  while (getline (f,s))
   {
    if (i!=n) ftemp<<s<<endl;
    i++;
   }

   f.close();
   ftemp.close();

   s="mv "+temp+" "+filename;
   system (s.c_str());

   remove (temp.c_str());
  }

//-------------------------------------------------------------------------------------------------------------------------------------------------------

   void copy_sons (List* R)
 {
  string nam,namf,sys;
  List* K;
  int i;

   for(i=0;i<R->SonDirs.size();i++) 
  {

    namf=new_list_name();
    sys="cp "+R->SonDirs[i]->filename+" "+namf;
    system (sys.c_str());
    nam="copy_of_"+R->SonDirs[i]->name;
    K=new List(nam,namf);

   LinkList (this,K);
   if (R->SonDirs[i]->SonDirs.size()!=0)
    {
     R=R->SonDirs[i];
     SonDirs[i]->copy_sons(R);
     return;
    }
  }
 }

  void kill_all_children ()
  {
   int i;
   remove (filename.c_str());
   for(i=0;i<SonDirs.size();i++) SonDirs[i]->kill_all_children();
  }


};

//-------------------------------------------------------------------------------------------------------------------------------------------------------
//----------------------------------------------------------------------- Just functions ----------------------------------------------------------------
//-------------------------------------------------------------------------------------------------------------------------------------------------------

List *L;
// string addr;

void abcfgbuild ()
{
ofstream ab;
ab.open("ab.cfg");
L->abcfg_build(ab);
ab.close();
}


string s_w_f_abcfg (int& i, int& pos, string s)
{
    string st;
    pos=s.find_first_not_of('-',pos);
    i=s.find_first_of('-',pos);
    st=s.substr(pos,i-pos);
    pos=i+1;
    return st;
}


string first_path_extract (string &s)
{
    int i;
    string st;
    if (s.length()==0) return "";
    i=s.find_first_of('/',1);
    st=s.substr(1,i-1);
    s.erase (0,i);
    return st;
}


string last_path_extract (string &s)
{
    int pos,i;
    string st;
    if (s.length()==0) return "";
    pos=s.find_last_not_of('/',pos);
    i=s.find_last_of('/');
    st=s.substr(i+1,pos-i);
    s.erase (i,pos-i+1);
    return st;
}


void abcfg_analise (istream &ab, List *L)
{
 ifstream content;
 List *R;
 char* str;
 char t;
 string s,s1,s2,temp;
 int i=0,pos=0,n=0,o=0;

 getline (ab,s);
 sscanf (s.c_str(),"%d",&n);
 while (n!=0)
 {
  n--;
  getline(ab,s);
  s1=s_w_f_abcfg(i,pos,s);
  s2=s_w_f_abcfg(i,pos,s);

  content.open("content", ios::in);

  while ((content.good())&&(!content.eof()))
   {
    getline(content,temp);
    o=temp==s2;
    if (o) break;
    if (temp.empty()) break;
   }
  if (!o) {cout<<endl<<"  ERROR: not enough files - "<<s2<<endl; exit(1);}
  content.close();

  R=new List(s1,s2);
  L->LinkList(L, R);
  abcfg_analise (ab, R);
 }
 return;
}


List* tree_find (List *L, string s)
{
 int n,pos=0;
 string st;
 pos=s.find_first_of('/');
 if (pos==string::npos) return L;
 st=first_path_extract (s);
 n=L->SonDirs.size();
 if ((n==0)&&(s.length()==0)) return L;
 if ((n==0)&&(s.length()!=0)) return NULL;
 while (n!=0) 
 {
  n--;
  if (L->SonDirs[n]->name.compare (st)==0) return tree_find (L->SonDirs[n], s);
 }
 //return NULL;
 cout<<endl<<"ERROR - wrong path element: /"<<st<<endl;
 exit(1);
}


void new_contact2 (List *R, string s)
{
  Element  * el;
  string st,str;

//surname
 str=select_word(s);
//name
 st=select_word(s);
 str.append(", ");
 str.append(st.c_str());
 str.append(", ");
 
//second name
 st=select_word(s);
 str.append(st.c_str());
 str.append(", ");

//telephone
 st=select_word(s);
 str.append(st.c_str());
 str.append(", ");
 
//e-mail
 st=select_word(s);
 str.append(st.c_str());
 str.append("\n");
 
 el=new Element(str);
 R->AddElem(*el);
}


//-------------------------------------------------------------------------------------------------------------------------------------------------------
//----------------------------------------------------------------------- Main --------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------------------------------------------------------------


int main (int argc, char** argv)
{
   string temp,com,sys,root,moot,nam,namf,s,st,str,s1,s2,s3;
   List *P,*R,*K;
   int q=0,z,i,pos,w;
   ifstream content,fftemp,f,ab;
   ofstream newf;
   i=0;pos=0;

 if (argc<2) {cout<<" ERROR: not enough arguments."<<endl; return 1; }
 if (argc>2) {cout<<" ERROR: too many arguments."<<endl; return 1; }
  root=argv[1];

  chdir(root.c_str());

  ab.open("ab.cfg", ios::in);
  if (!ab.is_open()){ cout << "  Wrong directory or wrong file. Whatever, I`m leaving."<<endl; return 1;}
  getline(ab,s);
  s1=s_w_f_abcfg(i,pos,s);
  s2=s_w_f_abcfg(i,pos,s);

  L=new List(s1,s2);
  moot="ls "+root+" > content";
  system(moot.c_str());
  content.open("content", ios::in);

  abcfg_analise (ab,L);
  ab.close();
  content.close();
   cout<<"  ab.cfg is correct"<<endl<<endl;
  cout<<endl;

  while (2!=1)
 {
 if (q==1) {cout<<"  Press \"Enter\" to proceed."; getchar();cout<<endl;}
 else {cout<<"  Print \"show_commands\" to see a command list"; q=1;}

 
cout<<endl<<endl<<"  Make a wish"<<endl;
getline(cin,com);
cout<<"  I am to obey, my Master..."<<endl<<endl;
com=com+" ";

str=select_word(com);

if (com.size()<=1) z=0; else z=1;

//---------------------------------------------------- new list ----------------------------------------------------

if (str=="new_list") 
{
 if (z==0)
  {
cout<<" I beg you to input a new list`s logical adress"<<endl;
cin>>str;
cout<<endl;
   nam=last_path_extract (str);
   root=first_path_extract (str);
   if (root==L->name)   {    R=tree_find (L, str);   }
   namf=new_list_name();
   newf.open(namf.c_str(), ios::out);
   newf.close();
   K=new List(nam,namf);
   R->LinkList (R,K);
   abcfgbuild();
  }
 else
  {
   str=select_word(com);
   nam=last_path_extract (str);
   root=first_path_extract (str);
   if (root==L->name)   {    R=tree_find (L, str);   }
   namf=new_list_name();
   newf.open(namf.c_str(), ios::out);
   newf.close();
   K=new List(nam,namf);
   R->LinkList (R,K);
   abcfgbuild();
  }
cout<<endl;
}
 else

//---------------------------------------------------- show lists -----------------------------------------------------
if (str=="show_lists") 
{
 cout<<"          Adress Book Lists          "<<endl;
 L->show_lists(0); cout<<endl;
}

//---------------------------------------------------- show commands --------------------------------------------------
else if (str=="show_commands") 
{
  cout<<endl<<"  Following commands are available:"<<endl<<" new_list"<<endl<<" delete_list"<<endl<<" rename_list"<<endl<<" make_list_copy"<<endl<<" show_lists"<<endl<<" new_contact"<<endl<<" delete_contact"<<endl<<" edit_contact"<<endl<<" make_contact_copy"<<endl<<" move_contact"<<endl<<" find_contact"<<endl<<" show_contacts"<<endl<<" exit"<<endl<<"---"<<endl;
  cout<<" show_commands"<<endl<<endl;
}

//---------------------------------------------------- new contact ----------------------------------------------------
else if (str=="new_contact")
 {
  if (z==0)
   {
    cout<<" Please enter full path to a list for me to add a new contact"<<endl;
getline(cin,str);
cout<<endl;
    //str=select_word(s);
 root=first_path_extract (str);
 if (root==L->name)   {    R=tree_find (L, str);   }
  cout<<" And now plz input a new person`s surname..."<<endl;
 cin>>st;
 str=st;
 str.append(" ");
  cout<<" And now plz input a new person`s name..."<<endl;
 cin>>st;
 str.append(st);
 str.append(" ");
  cout<<" And now plz input a new person`s second name..."<<endl;
 cin>>st;
 str.append(st);
 str.append(" ");
  cout<<" And now plz input a new person`s telephone..."<<endl;
 cin>>st;
 str.append(st);
 str.append(" ");
  cout<<" Plz input a new person`s e-mail..."<<endl;
 cin>>st;
 str.append(st);
   new_contact2 (R,str);
 }
 else
 {
   str=select_word(com);
   root=first_path_extract (str);
   if (root==L->name)   {    R=tree_find (L, str);   }
   new_contact2 (R,com);
 }
}


//---------------------------------------------------- delete_list ----------------------------------------------------
else if (str=="delete_list")
{

 if (z==1)
  {
   str=select_word(com);
  }
 else
  {
   cout<<"  Please enter full path to a list you wish me to delete"<<endl;
   cin>>str;
   getchar();
  }
   if (str.size()==0)
    {
    cout<<"Not enough arguments"; break;
    }
   root=first_path_extract (str);
   if (root==L->name)
      {
       if (str.size()==0)
         {
          cout<<" ERROR: you`re trying to delete a root"<<endl;
          break;
         }
       R=tree_find (L, str);
      }
    R->kill_all_children();
for(i=0;i<R->parent->SonDirs.size();i++) if (R->parent->SonDirs[i]->name==R->name) R->parent->SonDirs.erase(R->parent->SonDirs.begin()+i);
   abcfgbuild();
}


//---------------------------------------------------- rename_list ----------------------------------------------------
else if (str=="rename_list")
{
 if (z==1)
  {
   s1=select_word(com);
   s2=select_word(com);
  if ((s1.size()<1)||(s2.size()<1))
    {
     cout<<" ERROR: Not enough arguments"<<endl; break;
    }
  
  }
 else
  {
   cout<<"  Please enter full path to the list you want to rename"<<endl;
   cin>>s1;
   cout<<"  Please enter full name (path) of the new list"<<endl;
   cin>>s2;
   
   if ((s1.find("\"")<string::npos)||(s2.find("\"")<string::npos))
    {
     cout<<" ERROR: Not enough arguments"<<endl; break;
    }
   
   if (s1==s2)
    {
     cout<< "You can not use the same name. Postfix \"*\" will be added"<<endl;
     s2=s2+"*";
    }
   }
    root=first_path_extract (s1);
    if (root==L->name)
      {
       if (s1.size()==0)
         {
          cout<<" ERROR: you`re trying to move a root"<<endl;
          break;
         }
       R=tree_find (L, s1);
      }
    nam=last_path_extract (s2);
    root=first_path_extract (s2);
    if (root==L->name)
      {
         K=tree_find (L, s2);
      }
      for(i=0;i<R->parent->SonDirs.size();i++) if (R->parent->SonDirs[i]->name==R->name) R->parent->SonDirs.erase(R->parent->SonDirs.begin()+i);
      K->SonDirs.push_back(R);
    R->parent=K;
    R->name=nam;
    abcfgbuild();
if (z==0) getchar();
}

//---------------------------------------------------- make_list_copy -------------------------------------------------
else if (str=="make_list_copy")
{
 if (z==1)
  {
   s1=select_word(com);
   s2=select_word(com);
  }
 else
  {
   cout<<"  Please enter full path to the original list"<<endl;
   cin>>s1;
   cout<<"  Please enter full path to the copied list"<<endl;
   cin>>s2;
  }
  root=first_path_extract (s1);
  if (root==L->name)
   {
    if (s1.size()==0)
     {
      cout<<" ERROR: you`re trying to move a root"<<endl;
      break;
     }
    R=tree_find (L, s1);
   }
  nam=last_path_extract (s2);
  root=first_path_extract (s2);
  if (root==L->name)
  {
   P=tree_find (L,s2);
  }
  namf=new_list_name();
  sys="cp "+R->filename+" "+namf;
  system (sys.c_str());
  K=new List(nam,namf);
  K->LinkList (P,K);
  if(R->SonDirs.size()!=0)
   {
    K->copy_sons(R);
   }
  abcfgbuild();
if (z==0) getchar();
}

//---------------------------------------------------- show_contacts -----------------------------------------------
else if (str=="show_contacts")
{
 if (z==0)
  {
   cout<<"  Please enter full path to a list for me reveal"<<endl;
   cin>>com;
   cout<<endl;
  }
 str=select_word(com);
 root=first_path_extract (str);
 if (root==L->name)
  {
   if (str.size()!=0) K=tree_find (L,str); else K=L;
  }
 cout<<"          "<<K->name<<"`s contact list"<<"          "<<endl;
 K->show_contacts();
 cout<<endl;
 if (z==0) getchar();
}


//---------------------------------------------------- delete_contact ----------------------------------------------
else if (str=="delete_contact")
{
if (z==1)
  {
   str=select_word(com);
   root=first_path_extract (str);
   if (root==L->name)
    {
     if (str.size()!=0) K=tree_find (L,str); else K=L;
    }
   str=select_word(com);
   sscanf (str.c_str(),"%d",&i);
  }
else
  {
   cout<<"  Please enter full path to a list with a contact you want to be deleted"<<endl;
   cin>>str;
   root=first_path_extract (str);
   if (root==L->name)
    {
     if (str.size()!=0) K=tree_find (L,str); else K=L;
    }

   i=0;
   fftemp.open(K->filename.c_str(), ios::in);
   while (getline (fftemp,s)) {cout<<i<<"  "<<s<<endl; i++;}
   fftemp.close();
   cout<<endl;

   cout<<"  Please enter a number of contact you want me to delete"<<endl;
   cin>>str;
   sscanf (str.c_str(),"%d",&i);
  }
   K->delete_contact(i);
   cout<<endl;
   if (z==0) getchar();
}


//---------------------------------------------------- edit_contact ------------------------------------------------
else if (str=="edit_contact")
{
if (z==1)
 {
  s1=select_word(com);
  root=first_path_extract (s1);
  if (root==L->name)
   {
    if (str.size()!=0) K=tree_find (L,s1); else K=L;
   }
  str=select_word(com);
  sscanf (str.c_str(),"%d",&i);
  str=com;
 }
else
 {
  cout<<" Please enter full path to a list from which a contact should be edit"<<endl;
  cin>>s1;


  root=first_path_extract (s1);
  if (root==L->name)
   {
    if (str.size()!=0) K=tree_find (L,s1); else K=L;
   }
  cout<<endl;
  i=0;
  fftemp.open(K->filename.c_str(), ios::in);
  while (getline (fftemp,s)) {cout<<i<<"  "<<s<<endl; i++;}
  fftemp.close();
  cout<<endl;

  cout<<" Please enter contacts number"<<endl;
  cin>>i;
  sscanf (str.c_str(),"%d",&i);

   cout<<" And now plz input a person`s new surname..."<<endl;
   cin>>st;
  str=st;
  str.append(" ");
   cout<<" And now plz input a person`s new name..."<<endl;
   cin>>st;
  str.append(st);
  str.append(" ");
   cout<<" And now plz input a person`s new second name..."<<endl;
   cin>>st;
  str.append(st);
  str.append(" ");
   cout<<" And now plz input a person`s new telephone..."<<endl;
   cin>>st;
  str.append(st);
  str.append(" ");
   cout<<"  Plz input a person`s new e-mail..."<<endl;
   cin>>st;
  str.append(st);
 }

  K->edit_contact(str,i);
  cout<<endl;
if (z==0) getchar();
}

//---------------------------------------------------- make_contact_copy and move_contact --------------------------
else if ((str=="make_contact_copy")||(str=="move_contact"))
{
if (str=="move_contact") w=0; else w=1;
 if (z==1)
  {
str=select_word(com);
  root=first_path_extract (str);
  if (root==L->name)
   {
    if (str.size()!=0) K=tree_find (L,str); else K=L;
   }

  str=select_word(com);
  sscanf (str.c_str(),"%d",&i);

str=select_word(com);
root=first_path_extract (str);
  if (root==L->name)
   {
    if (str.size()!=0) P=tree_find (L,str); else P=L;
   }
 }
else
 {
  cout<<" Please enter full path to a source list"<<endl;
  cin>>str;
  cout<<endl;
  root=first_path_extract (str);
  if (root==L->name)
   {
    if (str.size()!=0) K=tree_find (L,str); else K=L;
   }
  i=0;
  cout<<"              "<<K->name<<"`s numbered contacts:"<<endl;

  fftemp.open(K->filename.c_str(), ios::in);
  while (getline (fftemp,s)) {cout<<i<<"  "<<s<<endl; i++;}
  fftemp.close();
  cout<<endl;

  if (w==1) cout<<" Please choose a contact number to copy"<<endl;
  else cout<<"  Please choose a contact number to move"<<endl;
  cin>>i;

  cout<<" Now please enter full path to a destination list"<<endl;
  cin>>str;
  root=first_path_extract (str);
  if (root==L->name)
   {
    if (str.size()!=0) P=tree_find (L,str); else P=L;
   }
 }
  K->make_contact_copy(P->filename,i,w);
if (z==0) getchar();
}


//---------------------------------------------------- find_contact ------------------------------------------------
else if (str=="find_contact")
{
 if (z==1)
  {
   str=select_word(com);
   s=com;
  }
 else
  {
   cout<<" Please enter full path to a list where to search"<<endl;
   cin>>str;
  }
 root=first_path_extract (str);
  if (root==L->name)
   {
    if (str.size()!=0) K=tree_find (L,str); else K=L;
   }
 if (z==0)
  {
   cout<<"  Please enter a person`s surname to look for..."<<endl;
    getchar();
    getline (cin,st);
    s=st;
    if (st.size()>1)
    {
     s.append(" ");
    }
   cout<<"  And now plz enter a person`s name to look for..."<<endl;
   getline (cin,st);
   s.append(st);
   if (st.size()>1)
    {
     s.append(" ");
    }
   cout<<"  And now plz enter a person`s second name to look for..."<<endl;
   getline (cin,st);
    s.append(st);
    if (st.size()>1)
    {
     s.append(" ");
    }
   }
  K->find_contact(s);
  cout<<endl;
 // if(z==0) getchar();
}


//---------------------------------------------------- exit --------------------------------------------------------
else if (str=="exit")  {cout<<"exit"<<endl;return 0;}



//---------------------------------------------------- execute -----------------------------------------------------
else if (str=="execute")
         {
  ifstream f;
 if (z==0)
  {
   cout<<endl<<"  What file do you want me to use?"<<endl;
   cin>>root;
  }
 else
  {
  root=select_word(com);
  }
 f.open(root.c_str(), ios::in);
 if (!f.is_open()){ cout << "  This file is corrupted. Shame on you. I`m leaving."<<endl<<endl; return 1;}

 while ((f.good())&&(!f.eof()))
  {
   getline(f,s);
   if (s.empty()) break;
   i=0;
   pos=0;
   s.insert(s.length()-1," ");
   st=select_word(s);
  

if (st.compare ("new_list")==0)
//---------------------------------------------------- new list
  {
   str=select_word(s);
   nam=last_path_extract (str);
   root=first_path_extract (str);
   if (root==L->name)   {    R=tree_find (L, str);   }
   namf=new_list_name();
   newf.open(namf.c_str(), ios::out);
   newf.close();
   K=new List(nam,namf);
   R->LinkList (R,K);
   abcfgbuild();
  }
else

//--------------------------------------------------- new_contact
if (st.compare ("new_contact")==0)
  {
   str=select_word(s);
   root=first_path_extract (str);
   if (root==L->name)   {    R=tree_find (L, str);   }
   new_contact2 (R,s);
  }
else

//--------------------------------------------------- show_lists
 if (st.compare ("show_lists")==0)
   {
   cout<<"          Adress Book Lists          "<<endl;
   L->show_lists(0); cout<<endl;
   }
else

//-------------------------------------------------- delete_list
if (st.compare ("delete_list")==0)
{
   str=select_word(s);
   if (str.size()==0)
    {
    cout<<"Not enough arguments"; break;
    }
   root=first_path_extract (str);
   if (root==L->name)
      {
       if (str.size()==0)
         {
          cout<<"ERROR: you`re trying to delete a root"<<endl;
          break;
         }
       R=tree_find (L, str);
      }
    R->kill_all_children();
for(i=0;i<R->parent->SonDirs.size();i++) if (R->parent->SonDirs[i]->name==R->name) R->parent->SonDirs.erase(R->parent->SonDirs.begin()+i);
   abcfgbuild();
}

//-------------------------------------------------- rename_list
else if (st.compare ("rename_list")==0)
{
 s1=select_word(s);
 s2=select_word(s);
 root=first_path_extract (s1);
    if (root==L->name)
      {
       if (s1.size()==0)
         {
          cout<<"ERROR: you`re trying to move a root"<<endl;
          break;
         }
       R=tree_find (L, s1);
      }
    nam=last_path_extract (s2);
    root=first_path_extract (s2);
    if (root==L->name)
      {
         K=tree_find (L, s2);
      }
      for(i=0;i<R->parent->SonDirs.size();i++) if (R->parent->SonDirs[i]->name==R->name) R->parent->SonDirs.erase(R->parent->SonDirs.begin()+i);
      K->SonDirs.push_back(R);
    R->parent=K;
    R->name=nam;
    abcfgbuild();
}

//------------------------------------------------ make_list_copy
else if (st.compare ("make_list_copy")==0)
{
s1=select_word(s);
 s2=select_word(s);
 root=first_path_extract (s1);
    if (root==L->name)
      {
       if (s1.size()==0)
         {
          cout<<"ERROR: you`re trying to move a root"<<endl;
          break;
         }
       R=tree_find (L, s1);
      }
    nam=last_path_extract (s2);
    root=first_path_extract (s2);
    if (root==L->name)
      {
         P=tree_find (L,s2);
      }
   namf=new_list_name();
   sys="cp "+R->filename+" "+namf;
   system (sys.c_str());
   K=new List(nam,namf);
   K->LinkList (P,K);
   if(R->SonDirs.size()!=0)
//    cout<<K->name<<"***"<<endl;
   {
    K->copy_sons(R);
   }
   abcfgbuild();
}

//------------------------------------------------- show_conacts
else if (st.compare ("show_contacts")==0)
  {
  str=select_word(s);
  root=first_path_extract (str);
  if (root==L->name)
   {
    if (str.size()!=0) K=tree_find (L,str); else K=L;
   }
  cout<<"          "<<K->name<<"`s contact list"<<"          "<<endl;
  K->show_contacts();
  cout<<endl;
  }
else

//------------------------------------------------- delete_contact
if (st.compare ("delete_contact")==0)
{
 str=select_word(s);
  root=first_path_extract (str);
  if (root==L->name)
   {
    if (str.size()!=0) K=tree_find (L,str); else K=L;
   }
  str=select_word(s);
  sscanf (str.c_str(),"%d",&i);
  K->delete_contact(i);
  cout<<endl;
}

//-------------------------------------------------- edit_contact
else if (st.compare ("edit_contact")==0)
{
str=select_word(s);
  root=first_path_extract (str);
  if (root==L->name)
   {
    if (str.size()!=0) K=tree_find (L,str); else K=L;
   }
  str=select_word(s);
  sscanf (str.c_str(),"%d",&i);
  K->edit_contact(s,i);
  cout<<endl;
}

//----------------------------------------------- make_contact_copy
else if (st.compare ("make_contact_copy")==0)
{
str=select_word(s);
  root=first_path_extract (str);
  if (root==L->name)
   {
    if (str.size()!=0) K=tree_find (L,str); else K=L;
   }

  str=select_word(s);
  sscanf (str.c_str(),"%d",&i);

str=select_word(s);
root=first_path_extract (str);
  if (root==L->name)
   {
    if (str.size()!=0) P=tree_find (L,str); else P=L;
   }

  K->make_contact_copy(P->filename,i,1);
  cout<<endl;
}
else

//------------------------------------------------- move_contact
if (st.compare ("move_contact")==0)
{
str=select_word(s);
  root=first_path_extract (str);
  if (root==L->name)
   {
    if (str.size()!=0) K=tree_find (L,str); else K=L;
   }

  str=select_word(s);
  sscanf (str.c_str(),"%d",&i);

str=select_word(s);
root=first_path_extract (str);
  if (root==L->name)
   {
    if (str.size()!=0) P=tree_find (L,str); else P=L;
   }

  K->make_contact_copy(P->filename,i,0);// zero instead of one in make_list_copy
  cout<<endl;
}
else

//------------------------------------------------- find_contact

if (st.compare ("find_contact")==0)
{
str=select_word(s);
  root=first_path_extract (str);
  if (root==L->name)
   {
    if (str.size()!=0) K=tree_find (L,str); else K=L;
   }
 K->find_contact(s);
  cout<<endl;
}
else

//----------------------------------------------------- exit
if (st.compare ("exit")==0)  {cout<<"exit"<<endl;return 0;}
else
//------------------------------------------------ invalid command name
 cout<<"\""<<st<<"\""<<" - Invalid command name"<<endl;
}
f.close();
}

else cout<<"\""<<str<<"\""<<" - Invalid command name"<<endl;

}  return 0;
}