Computed limits for all routines according to existing symbols.

git-svn-id: svn://svn.gna.org/svn/chrysalide/trunk@491 abbe820e-26c8-41b2-8c08-b7b2b41f8b0a

1 files changed, 96 insertions, 23 deletions

diff --git a/tools/d2c/qckcall.c b/tools/d2c/qckcall.c
index ce9a0b2..e2e87d2 100644
--- a/tools/d2c/qckcall.c
+++ b/tools/d2c/qckcall.c
@@ -34,44 +34,44 @@
 
 
 
+/* Prépare au besoin la définition d'une macro de transtypage. */
+static char *build_cast_if_needed(const char *);
+
+
+
 /******************************************************************************
 *                                                                             *
-*  Paramètres  : callee = fonction appelée à nomer.                           *
-*                args   = précise si la conversion est la dernière.           *
-*                fd     = descripteur d'un flux ouvert en écriture.           *
-*                bits   = gestionnaire des bits d'encodage.                   *
-*                list   = liste de l'ensemble des fonctions de conversion.    *
-*                pp     = pré-processeur pour les échanges de chaînes.        *
+*  Paramètres  : callee = fonction appelée à nommer.                          *
 *                                                                             *
-*  Description : Réalise un appel à une fonction liée à une instruction.      *
+*  Description : Prépare au besoin la définition d'une macro de transtypage.  *
 *                                                                             *
-*  Retour      : Bilan de l'opération.                                        *
+*  Retour      : Macro de transtypage à libérer après usage ou NULL.          *
 *                                                                             *
 *  Remarques   : -                                                            *
 *                                                                             *
 ******************************************************************************/
 
-bool call_instr_func(const char *callee, const arg_list_t *args, int fd, const coding_bits *bits, const conv_list *list, const pre_processor *pp)
+static char *build_cast_if_needed(const char *callee)
 {
-    bool result;                            /* Bilan à remonter            */
+    char *result;                           /* Macro à retourner           */
     regex_t preg;                           /* Expression régulière        */
     int ret;                                /* Bilan d'une manipulation    */
     regmatch_t pmatch[3];                   /* Correspondances de chaînes  */
     size_t cmplen;                          /* Taille de comparaison       */
-    char *cast;                             /* Macro de transtypage        */
+
+    result = NULL;
 
     ret = regcomp(&preg, "(g_([a-z0-9]*)_instruction)", REG_EXTENDED);
     if (ret != 0)
     {
         fprintf(stderr, "Internal error: bad regular expression.\n");
-        return false;
+        return NULL;
     }
 
     ret = regexec(&preg, callee, sizeof(pmatch) / sizeof(regmatch_t), pmatch, 0);
     if (ret == REG_NOMATCH)
     {
         fprintf(stderr, "Internal error: bad function for dealing wih instruction: '%s'.\n", callee);
-        result = false;
         goto cif_exit;
     }
 
@@ -82,29 +82,102 @@ bool call_instr_func(const char *callee, const arg_list_t *args, int fd, const c
 
     cmplen = MAX(strlen("arch"), pmatch[2].rm_eo - pmatch[2].rm_so);
 
-    if (strncmp("arch", &callee[pmatch[2].rm_so], cmplen) == 0)
-        dprintf(fd, "\t\tif (!%s(instr, ", callee);
+    if (strncmp("arch", &callee[pmatch[2].rm_so], cmplen) != 0)
+    {
+        result = strndup(&callee[pmatch[1].rm_so], pmatch[1].rm_eo - pmatch[1].rm_so);
+
+        result = make_string_upper(result);
+
+    }
+
+ cif_exit:
+
+    regfree(&preg);
+
+    return result;
+
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : callee = fonction appelée à nommer.                          *
+*                args   = précise si la conversion est la dernière.           *
+*                fd     = descripteur d'un flux ouvert en écriture.           *
+*                bits   = gestionnaire des bits d'encodage.                   *
+*                list   = liste de l'ensemble des fonctions de conversion.    *
+*                pp     = pré-processeur pour les échanges de chaînes.        *
+*                                                                             *
+*  Description : Réalise un appel à une fonction liée à une instruction.      *
+*                                                                             *
+*  Retour      : Bilan de l'opération.                                        *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+bool call_instr_func(const char *callee, const arg_list_t *args, int fd, const coding_bits *bits, const conv_list *list, const pre_processor *pp)
+{
+    bool result;                            /* Bilan à remonter            */
+    char *cast;                             /* Macro de transtypage        */
+
+    cast = build_cast_if_needed(callee);
+
+    if (cast == NULL)
+        dprintf(fd, "\t\t%s(instr, ", callee);
 
     else
     {
-        cast = strndup(&callee[pmatch[1].rm_so], pmatch[1].rm_eo - pmatch[1].rm_so);
+        dprintf(fd, "\t\t%s(%s(instr), ", callee, cast);
+        free(cast);
+    }
 
-        cast = make_string_upper(cast);
+    result = define_arg_list(args, fd, bits, list);
 
-        dprintf(fd, "\t\tif (!%s(%s(instr), ", callee, cast);
+    dprintf(fd, ");\n");
 
-        free(cast);
+    return result;
 
+}
+
+
+/******************************************************************************
+*                                                                             *
+*  Paramètres  : callee = fonction appelée à nommer.                          *
+*                args   = précise si la conversion est la dernière.           *
+*                fd     = descripteur d'un flux ouvert en écriture.           *
+*                bits   = gestionnaire des bits d'encodage.                   *
+*                list   = liste de l'ensemble des fonctions de conversion.    *
+*                pp     = pré-processeur pour les échanges de chaînes.        *
+*                                                                             *
+*  Description : Réalise un appel à une fonction liée à une instruction.      *
+*                                                                             *
+*  Retour      : Bilan de l'opération.                                        *
+*                                                                             *
+*  Remarques   : -                                                            *
+*                                                                             *
+******************************************************************************/
+
+bool checked_call_instr_func(const char *callee, const arg_list_t *args, int fd, const coding_bits *bits, const conv_list *list, const pre_processor *pp)
+{
+    bool result;                            /* Bilan à remonter            */
+    char *cast;                             /* Macro de transtypage        */
+
+    cast = build_cast_if_needed(callee);
+
+    if (cast == NULL)
+        dprintf(fd, "\t\tif (!%s(instr, ", callee);
+
+    else
+    {
+        dprintf(fd, "\t\tif (!%s(%s(instr), ", callee, cast);
+        free(cast);
     }
 
     result = define_arg_list(args, fd, bits, list);
 
     dprintf(fd, "))\n");
 
- cif_exit:
-
-    regfree(&preg);
-
     return result;
 
 }