sorter programe seems to be working

diff --git a/lib/geseml.c b/lib/geseml.c
index 6916ae00e712dd80c9771afd80d6e4d984164777..ca2941c316dd4a9d5f05c1e5b83fea04b0773346 100644 (file)
--- a/lib/geseml.c
+++ b/lib/geseml.c
@@ -239,6 +239,8 @@ PUBLIC _Bool eml_todoqfile(TRATYP **list)
 
 _Bool done;
 REFTYP **domlist;
+const char *tobedone="tobedone";
+const char *todo="todo";
 
 done=false;
 domlist=(REFTYP **)0;
@@ -271,7 +273,7 @@ if (domlist!=(REFTYP **)0) {
     while (proceed==true) {
       switch (phase) {
         case 0  :       //Opening qfile
-          if ((qfile=eml_createqfile(qname,"todo"))==(FILE *)0) 
+          if ((qfile=eml_createqfile(qname,tobedone))==(FILE *)0) 
             phase=999;  //Trouble trouble
           break;
         case 1  :       //Opening qfile
@@ -288,6 +290,9 @@ if (domlist!=(REFTYP **)0) {
         case 2  :       //Closing file
           (void) eml_closeqfile(qfile);
           break;
+        case 3  :       //file ready, renaming file, 
+          (void) eml_renameqfile(qname,tobedone,todo);
+          break;
         default :       //SAFE Guard
           proceed=false;
           break;

diff --git a/lib/unieml.c b/lib/unieml.c
index 550c2854a9c95891c4a2ed06a197f1eefe95b90f..d2d9afe07464d4549c423bdb38c9064a7421a1e5 100644 (file)
--- a/lib/unieml.c
+++ b/lib/unieml.c
@@ -159,7 +159,7 @@ return done;
 /*      directory.                                      */
 /*                                                      */
 /********************************************************/
-PUBLIC _Bool eml_renameqfile(char *qfilename,char *oldext,char *newext)
+PUBLIC _Bool eml_renameqfile(char *qfilename,const char *oldext,const char *newext)
 
 {
 #define OPEP    "unieml.c:eml_renameqfile,"
@@ -221,7 +221,7 @@ return done;
 /*      directory.                                      */
 /*                                                      */
 /********************************************************/
-PUBLIC FILE *eml_createqfile(char *qfilename,char *ext)
+PUBLIC FILE *eml_createqfile(char *qfilename,const char *ext)
 
 {
 #define OPEP    "unieml.c:eml_createqfile,"

diff --git a/lib/unieml.h b/lib/unieml.h
index 7982015645ff33df62c4e55d3a6f38bb4195e16d..962573a0a0d3df03c2827800a36dd454a8d73d29 100644 (file)
--- a/lib/unieml.h
+++ b/lib/unieml.h
@@ -52,10 +52,10 @@ extern int eml_removecrlf(char *string);
 extern _Bool eml_deleteqfile(char *qfilename);
 
 //procedure to change qfile extension
-extern _Bool eml_renameqfile(char *qfilename,char *oldext,char *newext);
+extern _Bool eml_renameqfile(char *qfilename,const char *oldext,const char *newext);
 
 //procedure to open a file within queue directory
-extern FILE *eml_createqfile(char *qfilename,char *ext);
+extern FILE *eml_createqfile(char *qfilename,const char *ext);
 
 //procedure to close a file within the queue directory
 extern int eml_closeqfile(FILE *qfile);