/*   -*- coding: utf-8 -*-  */
/***********************************************************************
 
   Module   : Inist
   Commande : InistExplorComputeParam
   Fichier  : InistExplorComputeParam.c
   Auteur   : DUCLOY
   Date     : 2012
 
************************************************************************/

#include <stdio.h>     /* for printf */
#include <stdlib.h>    /* for exit */
#include "Explor.h"

extern char *optarg;
extern int   optind;
int getopt();

char     *streamSubType;
SxmlNode *streamListSteps;

int main (int argc, char **argv) {
  int cOption;
  Buffer *bufKey;

  char *pathParamFile;
  char *listStepStr;
  char *k;
   while((cOption=getopt(argc,argv,"s:t:"))!=EOF)
     {switch (cOption)
	 {
	 case 's':
	   ExplorStreamCode=optarg;
	   break;
	 case 't':
	   pathParamFile=optarg;
	   break;
	 }
     }
   ExplorParamInit(pathParamFile);

   streamSubType=ExplorGetFromDictK3("Area", ExplorStreamCode, "typeStream");
   listStepStr=ExplorGetFromDictK2(streamSubType, "steps");
   streamListSteps=SxmlFromString(listStepStr);

   ExplorSetDictK3("Area", ExplorStreamCode, "steps", listStepStr );

   printf("<?dilib file=\"%s/Input/%sParam.tab\" ?>\n", ExplorAreaDir, ExplorStreamCode );
   StrDictIteratorReset(ExplorTableParam);
   while ((k=StrDictNext(ExplorTableParam)))
     {
       printf("%s\t%s\n",k, StrDictValue(ExplorTableParam));
     }
}