libDtSearch: Untangle large numbers of TASK_ macros that were all unused code
authorPeter Howkins <flibble@users.sf.net>
Fri, 29 Jun 2018 00:45:29 +0000 (01:45 +0100)
committerPeter Howkins <flibble@users.sf.net>
Fri, 29 Jun 2018 00:45:29 +0000 (01:45 +0100)
69 files changed:
cde/lib/DtSearch/raima/cmtype.c
cde/lib/DtSearch/raima/connect.c
cde/lib/DtSearch/raima/cotype.c
cde/lib/DtSearch/raima/crget.c
cde/lib/DtSearch/raima/crread.c
cde/lib/DtSearch/raima/crset.c
cde/lib/DtSearch/raima/crtype.c
cde/lib/DtSearch/raima/crwrite.c
cde/lib/DtSearch/raima/csmget.c
cde/lib/DtSearch/raima/csmread.c
cde/lib/DtSearch/raima/csmset.c
cde/lib/DtSearch/raima/csmwrite.c
cde/lib/DtSearch/raima/csoget.c
cde/lib/DtSearch/raima/csoread.c
cde/lib/DtSearch/raima/csoset.c
cde/lib/DtSearch/raima/csowrite.c
cde/lib/DtSearch/raima/dbdpath.c
cde/lib/DtSearch/raima/dbfpath.c
cde/lib/DtSearch/raima/dblfcns.c
cde/lib/DtSearch/raima/dblog.c
cde/lib/DtSearch/raima/dbtaf.c
cde/lib/DtSearch/raima/dbtype.h
cde/lib/DtSearch/raima/dbuserid.c
cde/lib/DtSearch/raima/delete.c
cde/lib/DtSearch/raima/destroy.c
cde/lib/DtSearch/raima/discon.c
cde/lib/DtSearch/raima/disdel.c
cde/lib/DtSearch/raima/fillnew.c
cde/lib/DtSearch/raima/findco.c
cde/lib/DtSearch/raima/findfm.c
cde/lib/DtSearch/raima/findlm.c
cde/lib/DtSearch/raima/findnm.c
cde/lib/DtSearch/raima/findpm.c
cde/lib/DtSearch/raima/initial.c
cde/lib/DtSearch/raima/ismember.c
cde/lib/DtSearch/raima/isowner.c
cde/lib/DtSearch/raima/keydel.c
cde/lib/DtSearch/raima/keyexist.c
cde/lib/DtSearch/raima/keyfcns.c
cde/lib/DtSearch/raima/keyfind.c
cde/lib/DtSearch/raima/keyfrst.c
cde/lib/DtSearch/raima/keylast.c
cde/lib/DtSearch/raima/keynext.c
cde/lib/DtSearch/raima/keyprev.c
cde/lib/DtSearch/raima/keystore.c
cde/lib/DtSearch/raima/makenew.c
cde/lib/DtSearch/raima/mapchar.c
cde/lib/DtSearch/raima/members.c
cde/lib/DtSearch/raima/options.c
cde/lib/DtSearch/raima/pathfcns.c
cde/lib/DtSearch/raima/recfrst.c
cde/lib/DtSearch/raima/reclast.c
cde/lib/DtSearch/raima/recnext.c
cde/lib/DtSearch/raima/recprev.c
cde/lib/DtSearch/raima/recread.c
cde/lib/DtSearch/raima/recset.c
cde/lib/DtSearch/raima/recwrite.c
cde/lib/DtSearch/raima/renfile.c
cde/lib/DtSearch/raima/rwcurr.c
cde/lib/DtSearch/raima/setdb.c
cde/lib/DtSearch/raima/setmm.c
cde/lib/DtSearch/raima/setmo.c
cde/lib/DtSearch/raima/setmr.c
cde/lib/DtSearch/raima/setom.c
cde/lib/DtSearch/raima/setoo.c
cde/lib/DtSearch/raima/setor.c
cde/lib/DtSearch/raima/setrm.c
cde/lib/DtSearch/raima/setro.c
cde/lib/DtSearch/raima/startup.c

index 05b7487fa608727b49a29bbcbdc1ee9a873cae75..9b7e33ffe1277456fc4d372815b9da89e3269771 100644 (file)
 /* Get current member type
 */
 int
-d_cmtype(set, cmtype TASK_PARM DBN_PARM)
+d_cmtype(set, cmtype DBN_PARM)
 int set;
 int *cmtype;
-TASK_DECL
 DBN_DECL
 {
    char *mrec;
index e3feb3f70a46a1cdb9eebb9bb676cc8f3484e59a..74583dac00a294c6eae2b21e057a51025866e9d6 100644 (file)
@@ -71,9 +71,8 @@ typedef struct {
 /* Connect the current record as member of set
 */
 int
-d_connect(set TASK_PARM DBN_PARM)
+d_connect(set DBN_PARM)
 int set; /* Set constant */
-TASK_DECL
 DBN_DECL /* Database number */
 {
    MEM_PTR crmp;          /* current record's member pointer */
index de669d4f7abe8246ae2aa95a7f3b956e1c0b339b..ceb1ff4aa8c6af155ba002e71fa287692e61309c 100644 (file)
 /* Get current owner type
 */
 int
-d_cotype(set, cotype TASK_PARM DBN_PARM)
+d_cotype(set, cotype DBN_PARM)
 int set;
 int *cotype;
-TASK_DECL
 DBN_DECL
 {
    char *orec;
index 11b4f1aa19b9c4a2c3689c823bb37ef354532875..cf629fde05ee924209a092e2b2b94a80713d7e17 100644 (file)
@@ -50,9 +50,8 @@
 /* Get current record
 */
 int
-d_crget(dba TASK_PARM DBN_PARM)
+d_crget(dba DBN_PARM)
 DB_ADDR *dba; /* db address of record to become current */
-TASK_DECL
 DBN_DECL
 {
    DB_ENTER(DB_ID TASK_ID LOCK_SET(RECORD_NOIO));
index 365f779a8ae2376ef40c1431444e5ce3ba1fbdb9..076750abdb0b1c5d05a5a564a19572e5e41b48ab 100644 (file)
 /* Read data from field  of current record
 */
 int
-d_crread(field, data TASK_PARM DBN_PARM)
+d_crread(field, data DBN_PARM)
 long field; /* Field constant */
 char *data; /* Data area to contain field contents */
-TASK_DECL
 DBN_DECL    /* database number */
 {
    int fld, rec;
index 2df1fd6f119d22ad9f32bf57bd58793fdeb0a235..7ba6e40e3fec17e8d31318c9c0e334768f61e092 100644 (file)
@@ -50,9 +50,8 @@
 /* Set current record
 */
 int
-d_crset(dba TASK_PARM DBN_PARM)
+d_crset(dba DBN_PARM)
 DB_ADDR *dba; /* db address of record to become current */
-TASK_DECL
 DBN_DECL
 {
    DB_ENTER(DB_ID TASK_ID LOCK_SET(RECORD_IO));
index 107ca7fb6ec1aa6c46dc14fb695d6a9f3333c172..7acdd1d7473959bcc8f04fa0079d299476525199 100644 (file)
@@ -50,9 +50,8 @@
 /* Get current record type
 */
 int
-d_crtype(crtype TASK_PARM DBN_PARM)
+d_crtype(crtype DBN_PARM)
 int *crtype;
-TASK_DECL
 DBN_DECL
 {
    INT crt;
index 4329c70e6bef5acafad774ed5c1024c9620c39df..5834f16fc3a3a25c3fc04f0115274c5377891bc5 100644 (file)
 /* Write data to a field  in the current record
 */
 int
-d_crwrite(field, data TASK_PARM DBN_PARM)
+d_crwrite(field, data DBN_PARM)
 long field; /* field constant */
 char *data; /* data area to contain field contents */
-TASK_DECL
 DBN_DECL    /* database number */
 {
    int stat, fld, rec;
index 009a2426d57c564cea6b16c1e0e273e945a2ced8..6a8d522162f5ca04e8bddfb5881a960ab9b8843c 100644 (file)
 /* Get current set member
 */
 int
-d_csmget(set, dba TASK_PARM DBN_PARM)
+d_csmget(set, dba DBN_PARM)
 int set;      /* Set table entry */
 DB_ADDR *dba; /* db address of record to become current */
-TASK_DECL
 DBN_DECL      /* database number */
 {
    SET_ENTRY *set_ptr;
index a885e56175d9daee7e6a13781623af0afc7f9f20..e8bea559ac5c9f83b30e528abb0c9b81430cd14e 100644 (file)
 /* Read data from field of current set member
 */
 int
-d_csmread(set, field, data TASK_PARM DBN_PARM)
+d_csmread(set, field, data DBN_PARM)
 int set;    /* Set constant */
 long field; /* Field constant */
 char *data; /* Data area to contain field contents */
-TASK_DECL
 DBN_DECL    /* database number */
 {
    int fld, rec;
index abb04bf8b734e9a98b52e80b97cbd471d329ce6d..933e8abc70eb86d0d44093e30ad6ab4cc19af3e8 100644 (file)
 /* Set current set member
 */
 int
-d_csmset(set, dba TASK_PARM DBN_PARM)
+d_csmset(set, dba DBN_PARM)
 int set;      /* Set table entry */
 DB_ADDR *dba; /* db address of record to become current */
-TASK_DECL
 DBN_DECL      /* database number */
 {
    INT type;
index b3ac6ce7c18713c43ad1119b1e0a93e825f7ce0c..5c6e2e5fc27df357cbc1f57fdeb29fdf00d405cf 100644 (file)
 /* Write data to a field in the current set member
 */
 int
-d_csmwrite(set, field, data TASK_PARM DBN_PARM)
+d_csmwrite(set, field, data DBN_PARM)
 int set;    /* Set constant */
 long field; /* Field constant */
 const char *data; /* Data area to contain field contents */
-TASK_DECL
 DBN_DECL    /* database number */
 {
    int stat, fld, rec;
index d3bf7d195bb1f0d084f26d91c58724e636f9cc62..d49845de3e0bdffca1dfa1bde455f0d123eb36bc 100644 (file)
 /* Get current set owner
 */
 int
-d_csoget(set, dba TASK_PARM DBN_PARM)
+d_csoget(set, dba DBN_PARM)
 int set;      /* Set table entry */
 DB_ADDR *dba; /* db address of record to become current */
-TASK_DECL
 DBN_DECL      /* database number */
 {
    SET_ENTRY *set_ptr;
index c2c11ffef951a22bcf3f6e601713fe0b50c290de..2f76c1a20d6ee6705460d62d4f9aeedfe5bdfc62 100644 (file)
 /* Read data from field  of current set owner
 */
 int
-d_csoread(set, field, data TASK_PARM DBN_PARM)
+d_csoread(set, field, data DBN_PARM)
 int set;    /* Set constant */
 long field; /* Field constant */
 char *data; /* Data area to contain field contents */
-TASK_DECL
 DBN_DECL    /* database number */
 {
    int fld, rec;
index 8937c21030a0da862a23628dc43477e2ae89cddd..9f567ee20c01c0bb3d8601b67c0f72a35299d5d9 100644 (file)
 /* Set current set owner
 */
 int
-d_csoset(set, dba TASK_PARM DBN_PARM)
+d_csoset(set, dba DBN_PARM)
 int set;      /* Set table entry */
 DB_ADDR *dba; /* db address of record to become current */
-TASK_DECL
 DBN_DECL      /* database number */
 {
    INT type;
index 8d28f0fc68e421b4fafd76c17634a00b94a7d7ff..db3db3dd1ccb71cc65a0b23b4cd1aa7bd70bc20f 100644 (file)
 /* Write data to a field in the current set owner
 */
 int
-d_csowrite(set, field, data TASK_PARM DBN_PARM)
+d_csowrite(set, field, data DBN_PARM)
 int set;    /* Set constant */
 long field; /* Field constant */
 const char *data; /* Data area to contain field contents */
-TASK_DECL
 DBN_DECL    /* database number */
 {
    int stat, fld, rec;
index ea98f13580f0117d4d57c7e65eb4556017a0a87a..23ca1b574078b7051be6b3ca259e7b84a1c69590 100644 (file)
@@ -50,9 +50,8 @@
 /* Set Database Dictionary Path
 */
 int
-d_dbdpath(path TASK_PARM)
+d_dbdpath(path)
 const char *path;
-TASK_DECL
 {
    DB_ENTER(NO_DB_ID TASK_ID LOCK_SET(LOCK_NONE));
 
index 334cec6571227311cbf0d3c2bbc3e66fd46f5e9d..f66eccb18aabb0b1c26e2bd96508e223d8b264a3 100644 (file)
@@ -50,9 +50,8 @@
 /* Set Database Files Path
 */
 int
-d_dbfpath(path TASK_PARM)
+d_dbfpath(path)
 const char *path;
-TASK_DECL
 {
    DB_ENTER(NO_DB_ID TASK_ID LOCK_SET(LOCK_NONE));
 
index f590ccc84f4e3c9bbf038608f896e3a5ae2a48ac..8394fbf25b4138064031ae81e0f9a957ea6f2d9d 100644 (file)
@@ -209,10 +209,9 @@ static int recovery_check(P0);
 /* Open db_VISTA database
 */
 int
-d_open(dbnames, opentype TASK_PARM)
+d_open(dbnames, opentype)
 const char *dbnames;
 const char *opentype;
-TASK_DECL
 {
    DB_ENTER(NO_DB_ID TASK_ID LOCK_SET(LOCK_ALL));
 #ifdef DEBUG_DBLF
@@ -222,7 +221,7 @@ TASK_DECL
    }
 #endif
 
-   if ( dbopen ) d_close(TASK_ONLY);
+   if ( dbopen ) d_close();
 
 
 
@@ -376,8 +375,7 @@ const char *dbnames;
 /* Close database
 */
 int
-d_close(TASK_ONLY)
-TASK_DECL
+d_close()
 {
    int i;
 
index 1cad26d2fd2d36187fd14d2e6bf43a82adf3ab09..764e86d4e0697f32b68be18c9c946c3d5558e5f0 100644 (file)
@@ -49,9 +49,8 @@
 
 /* Set database log file name/path
 */
-d_dblog(log TASK_PARM)
+d_dblog(log)
 const char *log;
-TASK_DECL
 {
    DB_ENTER(NO_DB_ID TASK_ID LOCK_SET(LOCK_NONE));
 
index b250d02d559205a11c1bc915929b08fa64edef6b..f75e5fed93877efbbf4dcebc935099dc8de695c6 100644 (file)
@@ -52,9 +52,8 @@ static char VISTATAF[] = "vista.taf";
 
 /* Set database transaction activity file name/path
 */
-d_dbtaf(taf TASK_PARM)
+d_dbtaf(taf)
 const char *taf;
-TASK_DECL
 {
    char dbtaf[FILENMLEN];
    int len;
index ba9e0dcf31bb2caa224cc967bfa44b5fab78d299..7eba96844437944a40af6ab836be8ef35420a7b1 100644 (file)
@@ -350,15 +350,6 @@ typedef struct RN_ENTRY_S {
 #define         DBN_DECL                int dbn;
 #define         TABLE_SIZE(size)        DB_REF(size)
 
-/* DBN_PARM... and TASK_PARM... are used for function interfaces */
-#define  TASK_PARM              /**/
-#define  TASK_PARM_DBN          /**/
-#define  TASK_ONLY              /**/
-#define  TASK_DECL              /**/
-#define  TASK_PTR_DECL          /**/
-#define  TASK_DBN_ONLY          DBN_ONLY
-
-
 /* Country code table definition */
 typedef struct CNTRY_TBL_S {
    unsigned char out_chr;
@@ -486,17 +477,14 @@ typedef struct MESSAGE_S {
 #define COMMA
 #endif                                  /* COMMA */
 
-#define TASK_PARAM /**/
 #define TASK_ID /**/
-#define TASK_PTR_ID /**/
-#define NO_TASK_ID /**/
 
 #define LOCK_PARAM /**/
 #define LOCK_PARM /**/
 #define LOCK_DECL /**/
 #define LOCK_SET(a) /**/
 
-#define TDTL_PARAM DBN_PARAM TASK_PARAM LOCK_PARAM
+#define TDTL_PARAM DBN_PARAM LOCK_PARAM
 
 #define DB_ENTER(TDTL_PARAM) if ( startup(TDTL_PARAM) != S_OKAY ) { return( db_status ); } else
 
index a1cd709a55ce981c82011c791d07df43c41e75a5..e76123a8c0de68066ec823a633612fd3ed5faad6 100644 (file)
@@ -52,9 +52,8 @@
 /* Set Database User Identifier
 */
 int
-d_dbuserid(id TASK_PARM)
+d_dbuserid(id)
 const char *id;
-TASK_DECL
 {
    const char *chk_id;
 
index 091dd98ce15a00a8781080b870e9b56d22d9361b..d76d0d754f171b4a9c930f5b80b0317621911bfe 100644 (file)
@@ -53,8 +53,7 @@ static DB_ADDR zap_dba = NULL_DBA;
 /* Delete the current record, with error checking
 */
 int
-d_delete(TASK_DBN_ONLY)
-TASK_DECL
+d_delete(dbn)
 DBN_DECL
 {
    int st_lc, mt_lc;           /* loop control */
index a21ded9b47f58c9cf1a08be5f9f06592c93e7574..c068a29bf99b63fd1b6bd37c7b4ec24e305f5243 100644 (file)
@@ -55,9 +55,8 @@
    of the database
 */
 int
-d_destroy(dbname TASK_PARM)
+d_destroy(dbname)
 const char *dbname;
-TASK_DECL
 {
    int ft_lc;                  /* loop control */
    FILE_ENTRY *file_ptr;
@@ -65,7 +64,7 @@ TASK_DECL
    DB_ENTER(NO_DB_ID TASK_ID LOCK_SET(LOCK_ALL));
 
    /* database must be closed (might be multiple databases open) */
-   if ( dbopen ) d_close(TASK_ONLY);
+   if ( dbopen ) d_close();
 
    /* prepare for the inittab and read in the database tables */
    if ((initdbt(dbname) != S_OKAY) || (inittab() != S_OKAY))
index bda69e63784d1fc64b0cc915c32d34efec401ba7..fe922c57bcac794a1017fa330811651c12d9a64b 100644 (file)
@@ -65,9 +65,8 @@ typedef struct {
 /* Disconnect the current member of set
 */
 int
-d_discon(nset TASK_PARM DBN_PARM)
+d_discon(nset DBN_PARM)
 int nset; /* set number */
-TASK_DECL
 DBN_DECL  /* database number */
 {
    SET_PTR cosp;          /* current owner's set pointer */
index b751d68aac166d9798ebbc37a4bd42cd9096d62d..0107ebde76cc758fa16bba5ea6d57fea86101286 100644 (file)
@@ -51,8 +51,7 @@
 /* Disconnect from all sets (owner and member) and delete record
 */
 int
-d_disdel(TASK_DBN_ONLY)
-TASK_DECL
+d_disdel(dbn)
 DBN_DECL
 {
    int rectype, nset, cset;
@@ -65,11 +64,11 @@ DBN_DECL
 
    DB_ENTER(DB_ID TASK_ID LOCK_SET(SET_IO));
 
-   if ( d_crtype(&rectype TASK_PARM DBN_PARM) != S_OKAY )
+   if ( d_crtype(&rectype DBN_PARM) != S_OKAY )
       RETURN( db_status );
    rectype += NUM2INT(-RECMARK, rt_offset);
 
-   d_crget(&dba TASK_PARM DBN_PARM);
+   d_crget(&dba DBN_PARM);
    for (set = 0, set_ptr = &set_table[ORIGIN(st_offset)];
        set < TABLE_SIZE(Size_st);
        ++set, ++set_ptr) {
@@ -81,11 +80,11 @@ DBN_DECL
       mdba = *cm_ptr;
       if (set_ptr->st_own_rt == rectype) {
         /* disconnect all member records from set s */
-        d_setor(nset TASK_PARM DBN_PARM);
-        while (d_findfm(nset TASK_PARM DBN_PARM) == S_OKAY)
-           if (d_discon(nset TASK_PARM DBN_PARM) < S_OKAY)
+        d_setor(nset DBN_PARM);
+        while (d_findfm(nset DBN_PARM) == S_OKAY)
+           if (d_discon(nset DBN_PARM) < S_OKAY)
                  RETURN (db_status);
-        d_setro(nset TASK_PARM DBN_PARM);
+        d_setro(nset DBN_PARM);
       }
       for (mem = set_ptr->st_members, memtot = mem + set_ptr->st_memtot,
                                                mem_ptr = &member_table[mem];
@@ -93,9 +92,9 @@ DBN_DECL
           ++mem, ++mem_ptr) {
         if (mem_ptr->mt_record == rectype) {
            /* disconnect current record from set */
-           if (d_ismember(nset TASK_PARM DBN_PARM) == S_OKAY) {
-              d_csmset(nset, &dba TASK_PARM DBN_PARM);
-              if (d_discon(nset TASK_PARM DBN_PARM) < S_OKAY)
+           if (d_ismember(nset DBN_PARM) == S_OKAY) {
+              d_csmset(nset, &dba DBN_PARM);
+              if (d_discon(nset DBN_PARM) < S_OKAY)
                  RETURN (db_status);
            }
         }
@@ -113,6 +112,6 @@ DBN_DECL
       else
         *cm_ptr = mdba;
    }
-   RETURN( d_delete(TASK_DBN_ONLY) );
+   RETURN( d_delete(dbn) );
 }
 /* vpp -nOS2 -dUNIX -nBSD -nVANILLA_BSD -nVMS -nMEMLOCK -nWINDOWS -nFAR_ALLOC -f/usr/users/master/config/nonwin disdel.c */
index 3605a63ea5bf07c76040a5d539882545d05ee4d5..74db7a7ca9365d1fbd866ef551737af4058d6df8 100644 (file)
 /* Create and fill a new record
 */
 int
-d_fillnew( nrec, recval TASK_PARM DBN_PARM )
+d_fillnew( nrec, recval DBN_PARM )
 int nrec;       /* record number */
 const char *recval; /* record value */
-TASK_DECL
 DBN_DECL      /* database number */
 {
    DB_ADDR db_addr;
@@ -89,7 +88,7 @@ DBN_DECL      /* database number */
         else
            key_bldcom(fld, (char *)recval, ptr = key, FALSE); /* Don't complement */
         d_keyfind(FLDMARK*(long)recnum + (fld - rec_ptr->rt_fields), ptr 
-                     TASK_PARM DBN_PARM);
+                     DBN_PARM);
         curr_rec = db_addr;
         if ( db_status == S_OKAY ) 
            RETURN( db_status = S_DUPLICATE );
index 76325ad29b21d53a7fe614ebb24f2e39ae3463ba..9e2273d1d1b13ba9fef6e364f7368a21253d0f45 100644 (file)
@@ -50,9 +50,8 @@
 /* Find owner of current record
 */
 int
-d_findco(nset TASK_PARM DBN_PARM)
+d_findco(nset DBN_PARM)
 int nset;
-TASK_DECL
 DBN_DECL
 {
    int set;
index 584875d2efa6e062e8c66ef8005f13c471fc4807..7b71ed94a22bf0f916e7f6fcdf30737c996357dc 100644 (file)
@@ -50,9 +50,8 @@
 /* Find first member of set
 */
 int
-d_findfm(nset TASK_PARM DBN_PARM)
+d_findfm(nset DBN_PARM)
 int nset;
-TASK_DECL
 DBN_DECL
 {
    char setp[SETPSIZE];
index 5715099fa5d10a6f3445186bd2ce4f6f5786a8dc..eff13de4a8b91e3f7a2adc31a6122929c376a4f2 100644 (file)
@@ -50,9 +50,8 @@
 /* Find last member of set
 */
 int
-d_findlm(nset TASK_PARM DBN_PARM)
+d_findlm(nset DBN_PARM)
 int nset;
-TASK_DECL
 DBN_DECL
 {
    char setp[SETPSIZE];
index 1c56e8c6081fb840b30d7b863273727a87edc586..f8c87b9f8768712856c835d715c69a30bba62c84 100644 (file)
@@ -50,9 +50,8 @@
 /* Find next member of set
 */
 int
-d_findnm(nset TASK_PARM DBN_PARM)
+d_findnm(nset DBN_PARM)
 int nset;
-TASK_DECL
 DBN_DECL
 {
    int set;
@@ -73,7 +72,7 @@ DBN_DECL
 
    /* find first member if no current member */
    if ( !*(cm_ptr = &curr_mem[set]) )
-      RETURN( d_findfm(nset TASK_PARM DBN_PARM) );
+      RETURN( d_findfm(nset DBN_PARM) );
 
    /* read current member of set and get member pointer from record */
    if ((dio_read(*cm_ptr, (char * *)&recp, NOPGHOLD) != S_OKAY) ||
index cd4a3d66301a1a3276b2bb233422375bec54fe8c..4f57b98881c1bc6be2d72acc92dad0fb6f64bd15 100644 (file)
@@ -50,9 +50,8 @@
 /* Find previous member of set
 */
 int
-d_findpm(nset TASK_PARM DBN_PARM)
+d_findpm(nset DBN_PARM)
 int nset;
-TASK_DECL
 DBN_DECL
 {
    int set;
@@ -73,7 +72,7 @@ DBN_DECL
 
    /* find last member if no current member */
    if ( !*(cm_ptr = &curr_mem[set]) )
-      RETURN( d_findlm(nset TASK_PARM DBN_PARM) );
+      RETURN( d_findlm(nset DBN_PARM) );
 
    /* read current member of set and get member pointer from record */
    if ((dio_read(*cm_ptr, (char * *)&recp, NOPGHOLD) != S_OKAY) ||
index 270ce019569100bf348e41ab6f878e87aacc43b6..b619e5063b1311685493cbfd7dd63af3abdaca1c 100644 (file)
@@ -89,8 +89,7 @@ extern int max_open_files;            /* see dio.c */
 /* Database initialization function
 */
 int
-d_initialize(TASK_DBN_ONLY)
-TASK_DECL
+d_initialize(dbn)
 DBN_DECL
 {
    FILE_NO fno;
@@ -102,7 +101,7 @@ DBN_DECL
    else {
       /* initialize db files in file_table */
       for (fno = 0; fno < DB_REF(Size_ft); ++fno) {
-        if ( d_initfile(fno TASK_PARM DBN_PARM) != S_OKAY )
+        if ( d_initfile(fno DBN_PARM) != S_OKAY )
            break;
       }
    }
@@ -114,9 +113,8 @@ DBN_DECL
 /* Initialize database file
 */
 int
-d_initfile(fno TASK_PARM DBN_PARM)
+d_initfile(fno DBN_PARM)
 FILE_NO fno; /* file table entry of file to be initialized */
-TASK_DECL
 DBN_DECL
 {
    INIT_PAGE_P Page;
index 1f0e4f28146d9dc826f7a4f440f8b0527755890d..c6650d113f9472065ca9b76a58c9b4d1d4b58dd9 100644 (file)
@@ -51,9 +51,8 @@
 /* Check to see if current record is a connected member of SET
 */
 int
-d_ismember(set TASK_PARM DBN_PARM)
+d_ismember(set DBN_PARM)
 int set;  /* set table entry */
-TASK_DECL
 DBN_DECL  /* database number */
 {
    char crmp[MEMPSIZE];   /* current record's member pointer */
index e2441efdb1e8aaef9e87cdac34d038f50dfdcf98..fcbb587202e6ff5601f94af7db7d08ae6e182d4b 100644 (file)
@@ -51,9 +51,8 @@
 /* Check to see if current record is a owner of non-empty SET
 */
 int
-d_isowner(set TASK_PARM DBN_PARM)
+d_isowner(set DBN_PARM)
 int set;  /* set table entry */
-TASK_DECL
 DBN_DECL  /* database number */
 {
    char crsp[SETPSIZE];   /* current record's set pointer */
index cbdca8ad5e557fb497ce2b13bf7c2ce8b3362d01..4f6be7dd5288ef5d4daa23d4290f9dca7e92e6d8 100644 (file)
@@ -54,9 +54,8 @@
 /* Delete optional key value
 */
 int
-d_keydel(field TASK_PARM DBN_PARM)
+d_keydel(field DBN_PARM)
 long field; /* key field constant */
-TASK_DECL
 DBN_DECL    /* database number */
 {
    int fld;        /* field number */
@@ -74,7 +73,7 @@ DBN_DECL    /* database number */
       RETURN( db_status );
 
    /* ensure current record is valid for this field */
-   d_crtype(&rn TASK_PARM DBN_PARM);
+   d_crtype(&rn DBN_PARM);
 
    if (rec != NUM2INT(rn - RECMARK, rt_offset))
       RETURN( dberr(S_BADFIELD) );
index e053e4c333afab8e49a8973c834f835a8085a8bf..77089a1cd3142ecf3ecb4383323e9d3e0954c9c1 100644 (file)
@@ -46,9 +46,8 @@
 /* Check for optional key existence
 */
 int
-d_keyexist(field TASK_PARM DBN_PARM)
+d_keyexist(field DBN_PARM)
 long field; /* key field constant */
-TASK_DECL
 DBN_DECL    /* database number */
 {
    int fld;        /* field number */
@@ -64,7 +63,7 @@ DBN_DECL    /* database number */
       RETURN( db_status );
 
    /* ensure current record is valid for this field */
-   d_crtype(&rn TASK_PARM DBN_PARM);
+   d_crtype(&rn DBN_PARM);
 
    if (rec != NUM2INT(rn - RECMARK, rt_offset))
       RETURN( dberr(S_BADFIELD) );
index 025a1b3e4810929e6929a614b7089a938dd5214e..a629a7fac426b9d3187018eb92d45b0757950198 100644 (file)
@@ -1140,9 +1140,8 @@ int n;
 /* Read value of last key scanned
 */
 int
-d_keyread(key_val TASK_PARM)
+d_keyread(key_val)
 char *key_val;
-TASK_DECL
 {
    int kt_lc;                  /* loop control */
 #ifndef         NO_FLOAT
index 6369a84ea8e21d618606199406b5c9609cdcd0bb..5a5b065fb7e57383a8de6bfde0f8efba20968ce4 100644 (file)
@@ -57,10 +57,9 @@ static void chk_desc_key(P1(int) Pi(FIELD_ENTRY *)
 /* Find record thru key field
 */
 int
-d_keyfind(field, fldval TASK_PARM DBN_PARM)
+d_keyfind(field, fldval DBN_PARM)
 long  field;  /* field constant */
 const char *fldval; /* value of the data field */
-TASK_DECL
 DBN_DECL      /* database number */
 {
    int fld, rec;
index 3e062059c3fa3389cf1c567575fc0ad1fe138499..319f4c231a88d3532f3e08f9784742e182162c5e 100644 (file)
@@ -51,9 +51,8 @@
 /* Find first key 
 */
 int
-d_keyfrst(field TASK_PARM DBN_PARM)
+d_keyfrst(field DBN_PARM)
 long field;   /* field constant */
-TASK_DECL
 DBN_DECL      /* database number */
 {
    int fld, rec;
index 973c36bd4c5f8cd580b69273940564e708272396..ada80ff37d2c766a39e9b6f069a6409856c4da79 100644 (file)
@@ -51,9 +51,8 @@
 /* Find last key 
 */
 int
-d_keylast(field TASK_PARM DBN_PARM)
+d_keylast(field DBN_PARM)
 long field;   /* field constant */
-TASK_DECL
 DBN_DECL     /* database number */
 {
    int fld, rec;
index b1b9beabc0c92ee04630161e77fc321461b1e65b..fcf23cb3afc1ffce5206c67e27b6de9b43c77619 100644 (file)
@@ -52,9 +52,8 @@
 /* Find next record thru key field
 */
 int
-d_keynext(field TASK_PARM DBN_PARM)
+d_keynext(field DBN_PARM)
 long field;  /* field constant */
-TASK_DECL
 DBN_DECL     /* database number */
 {
    int fld, rec;
index 9e9f14ffa4c2794f36ac86db6a3c19229fcc47ac..dc6ea2c8ae6685c4b6912e2c318bc1831ad9c4e1 100644 (file)
@@ -52,9 +52,8 @@
 /* Find previous record thru key field
 */
 int
-d_keyprev(field TASK_PARM DBN_PARM)
+d_keyprev(field DBN_PARM)
 long field;   /* field constant */
-TASK_DECL
 DBN_DECL     /* database number */
 {
    int fld, rec;
index 7057951a73e8e2cad8a77906170f740bc7e8a581..5d08206bb5114da914d8a51cb0c6690b0e28af55 100644 (file)
@@ -53,9 +53,8 @@
 /* Store optional key value
 */
 int
-d_keystore(field TASK_PARM DBN_PARM)
+d_keystore(field DBN_PARM)
 long field; /* key field constant */
-TASK_DECL
 DBN_DECL    /* database number */
 {
    int fld;        /* field number */
@@ -77,7 +76,7 @@ DBN_DECL    /* database number */
       RETURN( dberr(S_NOCR) );
 
    /* ensure current record is valid for this field */
-   d_crtype(&rn TASK_PARM DBN_PARM);
+   d_crtype(&rn DBN_PARM);
 
    if (rec != NUM2INT(rn - RECMARK, rt_offset))
       RETURN( dberr(S_BADFIELD) );
index 8fd8edc7ab6cd590ac567da3fa8acd551868ae18..4da0a21a91365a803324e9f84a459dd404227efe 100644 (file)
 /* Set the value of a key field
 */
 int
-d_setkey( field, fldvalue TASK_PARM DBN_PARM )
+d_setkey( field, fldvalue DBN_PARM )
 long field;
 const char *fldvalue;
-TASK_DECL
 DBN_DECL
 {
    SK_P *sk_ptr;
@@ -136,9 +135,8 @@ int sk_free()
 /* Create a new empty record
 */
 int
-d_makenew( nrec TASK_PARM DBN_PARM )
+d_makenew( nrec DBN_PARM )
 int nrec;
-TASK_DECL
 DBN_DECL
 {
    DB_ADDR db_addr;
@@ -178,7 +176,7 @@ DBN_DECL
         }
         MEM_LOCK(&sk_ptr->ptr->sk_val);
         d_keyfind(FLDMARK*(long)recnum + (long)(fld - rec_ptr->rt_fields),
-                  sk_ptr->ptr->sk_val.ptr TASK_PARM DBN_PARM);
+                  sk_ptr->ptr->sk_val.ptr DBN_PARM);
         MEM_UNLOCK(&sk_ptr->ptr->sk_val);
         curr_rec = db_addr;
          ll_deaccess(&sk_list);
index f009b110b24ee07ba076f8a36f336f5be7ecc314..8b3b6e3b8a3e6f8736ff5fc58dbd5fc2ea8bc875 100644 (file)
@@ -75,13 +75,12 @@ static int nextc(P1(int));
 
 /* Map ASCII-Characters for output and sorting
 */
-int d_mapchar(inchar,outchar,sort_str,subsort TASK_PARM)
+int d_mapchar(inchar,outchar,sort_str,subsort)
 unsigned char  inchar;     /* value of character to be mapped */
 unsigned char  outchar;    /* output character as    ... */
 const char *sort_str;  /* sort string (max. len = 2) */
 unsigned char  subsort;    /* subsort value, to distinguish between two */
                            /* equal values (e.g. 'a' and 'A', if necessary) */
-TASK_DECL
 {
    int indx;
 
index 6cad5d9e8e9771b36e27b13aa93427c97cf81f88..35f258d4b63fb1431b88efa699540f3a0392c970 100644 (file)
 /* Get number of members of the current set owner
 */
 int
-d_members(set, tot TASK_PARM DBN_PARM)
+d_members(set, tot DBN_PARM)
 int set;     /* Set table entry */
 LONG *tot;   /* total members of set */
-TASK_DECL
 DBN_DECL     /* database number */
 {
    char setp[SETPSIZE];
index 20ba7c406c37d614f1827e5a8d72ee0c3ba8095b..b0aa0f418d7575297690340cd2a9d7ffd8dd9484 100644 (file)
@@ -44,9 +44,8 @@
 /* Turn on db_VISTA runtime options
 */
 int
-d_on_opt(optflag TASK_PARM)
+d_on_opt(optflag)
 int optflag;
-TASK_DECL
 {
    int i;
 
@@ -72,9 +71,8 @@ TASK_DECL
 /* Turn off db_VISTA runtime options
 */
 int
-d_off_opt(optflag TASK_PARM)
+d_off_opt(optflag)
 int optflag;
-TASK_DECL
 {
    int i;
 
index eedac96efeb3a2aa5275c425b18ff9cd50f8ab88..5738bad9162b308f876517571b5c60fb3f7377e1 100644 (file)
@@ -297,9 +297,8 @@ char *path_str;             /* Path to remove filename from */
 
 /* Set Country Table path
 */
-int d_ctbpath(ctb TASK_PARM)
+int d_ctbpath(ctb)
 const char *ctb;
-TASK_DECL
 {
    int i;
 
index dfa733e4371b1cf63a9f4f9155de1e5e69eb1d55..138bd8a103074ce21259ed1513937a9cd65f0439 100644 (file)
@@ -49,9 +49,8 @@
 /* Find first record of type
 */
 int
-d_recfrst( rec TASK_PARM DBN_PARM )
+d_recfrst( rec DBN_PARM )
 int rec;       /* record type/table entry */
-TASK_DECL
 DBN_DECL
 {
    INT rectype;
index 9133b75fcbf37ec118ff68ffc4cf41c5d2bcd605..4e826b2aa8f1c02ad4a57cf37e79cae6a9eb2ef9 100644 (file)
@@ -73,9 +73,8 @@
 /* ======================================================================
    d_reclast - find last record occurrence in database
 */
-int d_reclast( rec TASK_PARM DBN_PARM )
+int d_reclast( rec DBN_PARM )
 int rec;                       /* record # to find last occurrence of */
-TASK_DECL
 DBN_DECL                       /* optional database number */
 {
 /*
index f93a13251114b3df813e088542d4e1075ede9a56..b0df482357b46267faeeb3a6887e7d72de2f284b 100644 (file)
@@ -50,8 +50,7 @@
 /* Find next record of type
 */
 int
-d_recnext(TASK_DBN_ONLY)
-TASK_DECL
+d_recnext(dbn)
 DBN_DECL
 {
    INT rectype;
index 4eb5f3cc66b7800e582fd32d54efbd81dfca1830..fe2a1215949d43969de5c4e651246fc135598ee6 100644 (file)
@@ -73,8 +73,7 @@
 /* ======================================================================
    d_recprev - find previous record via database address
 */
-int d_recprev( TASK_DBN_ONLY )
-TASK_DECL
+int d_recprev( dbn )
 DBN_DECL
 {
 /*
index 1b8f3509222febffb51a1894cf3b11bea2f1ff0f..18afa84608e6fdf27104bf563fbfad40f349c88b 100644 (file)
@@ -52,9 +52,8 @@
 /* Read contents of current record
 */
 int
-d_recread(rec TASK_PARM DBN_PARM)
+d_recread(rec DBN_PARM)
 char *rec; /* ptr to record area */
-TASK_DECL
 DBN_DECL
 {
    INT  rt;     /* record type */
index 2c3abed383c87a4850757c146d74ef7559fc5db9..4b632052322d9b0c700dd31d5ae2c3fd06aeb340 100644 (file)
@@ -71,9 +71,8 @@
 /* ======================================================================
    set record type and database address to current
 */
-int d_recset( rec TASK_PARM DBN_PARM )
+int d_recset( rec DBN_PARM )
 int rec;                       /* record type */
-TASK_DECL
 DBN_DECL
 {
 /*
index f4933eb52ec5f6ee5572e08baae6e002ef196ce5..4549860cc4af742a3e577af8e93dd81a548d4699 100644 (file)
@@ -52,9 +52,8 @@
 /* Write contents to current record
 */
 int
-d_recwrite(rec TASK_PARM DBN_PARM)
+d_recwrite(rec DBN_PARM)
 const char *rec; /* ptr to record area */
-TASK_DECL
 DBN_DECL
 {
    INT  rt;        /* record type */
index f753efd8e459b78f45a73fa954210b28bd8ff9a2..9f6837a3fcd3c096753753bac544437c522be89a 100644 (file)
 /* Rename database file
 */
 int
-d_renfile(dbn, fno, fnm TASK_PARM)
+d_renfile(dbn, fno, fnm)
 const char *dbn;  /* database containing file to be renamed */
 FILE_NO fno;  /* file id number for file to be renamed */
 const char *fnm;  /* new file name */
-TASK_DECL
 {
    REN_ENTRY_P r;
 
index 4bd1c65c75f9939b46135ebd81b4a48b328bf0ba..bc5914d5d7e871c92c22021eb391efcc572dc42e 100644 (file)
 /* Read currency table
 */
 int
-d_rdcurr(currbuff, currsize TASK_PARM)
+d_rdcurr(currbuff, currsize)
 DB_ADDR **currbuff;
 int *currsize;
-TASK_DECL
 {
    int cs;
 
@@ -68,12 +67,11 @@ TASK_DECL
    *currbuff = (DB_ADDR *)ALLOC(NULL, cs*sizeof(DB_ADDR), "currbuff");
    if ( *currbuff == NULL ) RETURN( dberr(S_NOMEMORY) );
    *currsize = cs * sizeof(DB_ADDR);
-   RETURN( d_rerdcurr(currbuff TASK_PARM) );
+   RETURN( d_rerdcurr(currbuff) );
 }
 
-int d_rerdcurr(currbuff TASK_PARM)
+int d_rerdcurr(currbuff)
 DB_ADDR **currbuff;
-TASK_DECL
 {
    DB_ADDR *cb_ptr;
 
@@ -91,9 +89,8 @@ TASK_DECL
 /* Write currency table
 */
 int
-d_wrcurr(currbuff TASK_PARM)
+d_wrcurr(currbuff)
 DB_ADDR *currbuff;
-TASK_DECL
 {
    DB_ADDR *cb_ptr;
 
index cbb06cc6351fb88ceb8347f111afdab5d0640832..7efef59855ea02fde6bfbb45588105b3ba4c071e 100644 (file)
@@ -52,9 +52,8 @@
 /* Set current database
 */
 int
-d_setdb(dbn TASK_PARM)
+d_setdb(dbn)
 int dbn;   /* database number */
-TASK_DECL
 {
    DB_ENTER(DB_ID TASK_ID LOCK_SET(RECORD_NOIO));
 
index 83d76267512ab0781ef4724ed41770192c02ece2..ef2435696b5208e9626bd275ef7ea78aab6bb82c 100644 (file)
 /* Set current member to current member
 */
 int
-d_setmm(sett, sets TASK_PARM DBN_PARM)
+d_setmm(sett, sets DBN_PARM)
 int sett;   /* set table entry number of target member */
 int sets;   /* set table entry number of source member */
-TASK_DECL
 DBN_DECL    /* database number */
 {
    int cmtype; /* current member type */
@@ -64,7 +63,7 @@ DBN_DECL    /* database number */
 
    DB_ENTER(DB_ID TASK_ID LOCK_SET(SET_IO));
 
-   if ((d_cmtype(sets, &cmtype TASK_PARM DBN_PARM) != S_OKAY) ||
+   if ((d_cmtype(sets, &cmtype DBN_PARM) != S_OKAY) ||
        (nset_check(sett, &sett, (SET_ENTRY * *)&set_ptr) != S_OKAY))
       RETURN( db_status );
 
index a14dcb58e309e27b041d51eaa6f213eff2dfddf3..4937c93ed23d0caf9214828b58b6983e87b68598 100644 (file)
 /* Set current member to current owner
 */
 int
-d_setmo(setm, seto TASK_PARM DBN_PARM)
+d_setmo(setm, seto DBN_PARM)
 int setm;   /* set table entry number of member */
 int seto;   /* set table entry number of owner */
-TASK_DECL
 DBN_DECL    /* database number */
 {
    int mem;
index 842ed55261e2f1ef5d9a597dab9096464e777f26..e2bc8fb40701ff1d6654b9e21b9be44be37a7bac 100644 (file)
@@ -50,9 +50,8 @@
 /* Set current member to current record
 */
 int
-d_setmr(set TASK_PARM DBN_PARM)
+d_setmr(set DBN_PARM)
 int set;   /* set table entry number */
-TASK_DECL
 DBN_DECL   /* database number */
 {
    int crtype; /* current record type */
@@ -69,7 +68,7 @@ DBN_DECL   /* database number */
    if ( ! curr_rec )
       RETURN( dberr( S_NOCR ) );
 
-   if ( d_crtype(&crtype TASK_PARM DBN_PARM) != S_OKAY )
+   if ( d_crtype(&crtype DBN_PARM) != S_OKAY )
       RETURN( db_status );
    crtype += NUM2INT(-RECMARK, rt_offset);
 
index 6143647ca5c24826bba363a6a56a79ac60094512..d63e21ac028aa7a9b657550df6967aff85b5cdf5 100644 (file)
 /* Set current owner to current member
 */
 int
-d_setom(nseto, nsetm TASK_PARM DBN_PARM)
+d_setom(nseto, nsetm DBN_PARM)
 int nseto;   /* set table entry number of owner */
 int nsetm;   /* set table entry number of member */
-TASK_DECL
 DBN_DECL    /* database number */
 {
    int seto, setm;
@@ -63,7 +62,7 @@ DBN_DECL    /* database number */
 
    DB_ENTER(DB_ID TASK_ID LOCK_SET(SET_IO));
 
-   if ((d_cmtype(nsetm, &cmtype TASK_PARM DBN_PARM) != S_OKAY) ||
+   if ((d_cmtype(nsetm, &cmtype DBN_PARM) != S_OKAY) ||
        (nset_check(nseto, &seto, (SET_ENTRY * *)&set_ptr) != S_OKAY))
       RETURN( db_status );
    cmtype += NUM2INT(-RECMARK, rt_offset);
index c9b7cc7d6ed9fc1c92f87af0a819a82baed30e74..a649dfaebbb1b89da8ffdcd8047616359495dff7 100644 (file)
 /* Set current owner to current owner
 */
 int
-d_setoo(nsett, nsets TASK_PARM DBN_PARM)
+d_setoo(nsett, nsets DBN_PARM)
 int nsett;   /* set table entry number of target owner */
 int nsets;   /* set table entry number of source owner */
-TASK_DECL
 DBN_DECL    /* database number */
 {
    int sett, sets;
index cac310551e3e5f652ab4491b3e7ee881f97f146b..5f569a8913b6d4321c6a53bb9f7eaa0be3904cd9 100644 (file)
@@ -50,9 +50,8 @@
 /* Set current owner to current record
 */
 int
-d_setor(nset TASK_PARM DBN_PARM)
+d_setor(nset DBN_PARM)
 int nset;  /* set number */
-TASK_DECL
 DBN_DECL   /* database number */
 {
    int set;
@@ -62,7 +61,7 @@ DBN_DECL   /* database number */
    DB_ENTER(DB_ID TASK_ID LOCK_SET(SET_IO));
 
    if ((nset_check(nset, &set, (SET_ENTRY * *)&set_ptr) != S_OKAY) ||
-       (d_crtype(&crtype TASK_PARM DBN_PARM) != S_OKAY))
+       (d_crtype(&crtype DBN_PARM) != S_OKAY))
       RETURN( db_status );
 
    crtype += NUM2INT(-RECMARK, rt_offset);
index ff01448b3c2bd8a85d5a14fc5aba57fe8eaf45cf..53c121f7f895b8ac8638bdb3459bad8cc4c4b608 100644 (file)
@@ -50,9 +50,8 @@
 /* Set current record to current member
 */
 int
-d_setrm(set TASK_PARM DBN_PARM)
+d_setrm(set DBN_PARM)
 int set;   /* set table entry number */
-TASK_DECL
 DBN_DECL   /* database number */
 {
    SET_ENTRY *set_ptr;
index a32e23e4b2fee40723eb244ffe96021851d4cf17..e88e6ea278e69cc05f248b00a783bd16ba3b1056 100644 (file)
@@ -50,9 +50,8 @@
 /* Set current record to current owner
 */
 int
-d_setro(set TASK_PARM DBN_PARM)
+d_setro(set DBN_PARM)
 int set;   /* set table entry number */
-TASK_DECL
 DBN_DECL   /* database number */
 {
    SET_ENTRY *set_ptr;
index 6688f4921fe94634e7e80ec0386f1ad0194bcaec..0d0806d21abdefac4e9f4de38bdf03fa76c32aa2 100644 (file)
@@ -46,9 +46,8 @@
 
 /* Called once at the beginning of each external function
 */
-int startup(DB_ID TASK_PTR_ID LOCK_PARM)
+int startup(DB_ID LOCK_PARM)
 DBN_DECL
-TASK_PTR_DECL
 LOCK_DECL
 {
    db_status = S_OKAY;