From df98a21091be82d3d74318b7da93c793df10ac4b Mon Sep 17 00:00:00 2001 From: "Jean-Marc Pigeon (Delson)" Date: Thu, 15 May 2025 15:25:31 -0400 Subject: [PATCH] sorter programe seems to be working --- lib/geseml.c | 7 ++++++- lib/unieml.c | 4 ++-- lib/unieml.h | 4 ++-- 3 files changed, 10 insertions(+), 5 deletions(-) diff --git a/lib/geseml.c b/lib/geseml.c index 6916ae0..ca2941c 100644 --- 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 550c285..d2d9afe 100644 --- 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 7982015..962573a 100644 --- 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); -- 2.47.3