//|
//| Copyright (C) Articque Informatique
//| All rights reserved. Duplication and distribution prohibited.
//| Les Roches, 37230 Fondettes France
//| Telephone +33 02.47.49.90.49
//| Fax +33 02.47.49.91.49
//| E-Mail: info@articque.com
//|

#include <stdio.h>
#include <string.h>
#include <mk4.h>
#include <mk4str.h>

int main (int argc, char **argv)
{
  long idx;
  //
  printf("  ---  Removing file\n");
  remove("metakit_tutorial.db");
  //
  printf("  ---  3) Create database and view\n");
  c4_Storage database("metakit_tutorial.db", true);
  c4_View maps=database.GetAs("maps[mid:S,mwidth:I,mheight:I,mpath:S]");
  //
  printf("  ---  4) Add rows to the view 'maps'\n");
  c4_StringProp mid("mid"),mpath("mpath");
  c4_IntProp mwidth("mwidth"),mheight("mheight");
  c4_Row maprow;
  mid(maprow)="A";
  mwidth(maprow)=10;
  mheight(maprow)=10;
  mpath(maprow)="/home/MapA.vxf";
  maps.Add(maprow);
  mid(maprow)="B";
  mwidth(maprow)=20;
  mheight(maprow)=20;
  mpath(maprow)="/home/MapB.vxf";
  maps.Add(maprow);
  mid(maprow)="C";
  mwidth(maprow)=30;
  mheight(maprow)=30;
  mpath(maprow)="/home/MapC.vxf";
  maps.Add(maprow);
  //
  printf("  ---  5) Save file\n");
  database.Commit();
  //
  printf("  ---  6) Retreive with SelectRange\n");
  c4_Row selectrow_start,selectrow_end;
  c4_View tableselect;
  mwidth(selectrow_start)=20;
  mwidth(selectrow_end)=30;
  tableselect=maps.SelectRange(selectrow_start,selectrow_end);
  for (idx=0;idx<tableselect.GetSize();idx++)
    printf("map %s has width=%d\n",
      (const char*)mid(tableselect[idx]),
      (long)mwidth(tableselect[idx]));
  //
  printf("  ---  7) Add another view and its data\n");
  c4_View datas=database.GetAs("datas[did:S,dmapid:S,dpath:S]");
  c4_StringProp did("did"),dmapid("dmapid"),dpath("dpath");
  c4_Row  datarow;
  did(datarow)="1";
  dmapid(datarow)="A";
  dpath(datarow)="/home/A1.txt";
  datas.Add(datarow);
  did(datarow)="2";
  dmapid(datarow)="A";
  dpath(datarow)="/home/A2.txt";
  datas.Add(datarow);
  did(datarow)="3";
  dmapid(datarow)="B";
  dpath(datarow)="/home/B1.txt";
  datas.Add(datarow);
  did(datarow)="4";
  dmapid(datarow)="B";
  dpath(datarow)="/home/B2.txt";
  datas.Add(datarow);
  did(datarow)="5";
  dmapid(datarow)="C";
  dpath(datarow)="/home/C1.txt";
  datas.Add(datarow);
  database.Commit();
  //
  printf("  --- 8) Find datas with mapid='B'\n");
  long idxsearch=-1;
  c4_Row findrow;
  dmapid(findrow)="B";
  while(1)
  {
    idxsearch=datas.Find(findrow,idxsearch+1);
    if (idxsearch>=0)
      printf("DATA %s has dmapid=%s\n",
        (const char*)dpath(datas[idxsearch]),
        (const char*)dmapid(datas[idxsearch]));
    else
      break;
  }
  //
  printf("  ---  9) Retrieve information using a relation\n");
  c4_View relation;
  relation=(datas.Rename(dmapid,mid)).Join(mid,tableselect);
  for (idx=0;idx<relation.GetSize();idx++)
    printf("DATA %s is applied to map %s (width=%d)\n",
      (const char*)dpath(relation[idx]),
      (const char*)mpath(relation[idx]),
      (long)mwidth(relation[idx]));
  //
  printf("  ---  10) Searching manually\n");
  c4_Row strrow;
  const char*strdata;
  const char*expr="ome/B";
  for (idx=0;idx<datas.GetSize();idx++)
  {
    strdata=(const char*)dpath(datas[idx]);
    if (strstr(strdata,expr)!=NULL)
      printf("map %s has the string '%s' in the path\n",strdata,expr);
  }
  //
  printf("  ---  11) Removing rows\n");
  c4_Row delrow;
  dmapid(delrow)="A";
  while(1)
  {
    idxsearch=datas.Find(delrow,0);
    if (idxsearch>=0)
    {
      printf("DATA %s at idx=%d is deleted\n",
        (const char*)dpath(datas[idxsearch]),idxsearch);
      datas.RemoveAt(idxsearch);
    }
    else
      break;
  }
  //
  printf("  ---  12) Updating view content\n");
  c4_Row updaterow;
  mid(updaterow)="E";
  mwidth(updaterow)=90;
  mheight(updaterow)=90;
  mpath(updaterow)="/home/MapE.vxf";
  maps.SetAt(2,updaterow);
  printf("new content :\n");
  for (idx=0;idx<maps.GetSize();idx++)
  {
    printf("%s | %d | %d | %s\n",
      (const char*)mid(maps[idx]),
      (long)mwidth(maps[idx]),
      (long)mheight(maps[idx]),
      (const char*)mpath(maps[idx]));
  }
#ifdef WIN32
  {
    char tmp[500];
    gets(tmp);
  }
#endif
}