1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89
| #include <stdio.h>
#include <stdlib.h>
#include <ctype.h>
#include <string.h>
#define TOKEN_STR_SIZE 128
#define TOKEN_NAN 0
#define TOKEN_INTEGER 1
/*
** La fonction utilise une double conversion pour déterminer
** le type du jeton qui lui est passé. Si, après les conversions chaîne vers
** nombre et nombre vers chaîne, la chaîne d'entrée est égale à la chaîne
** de sortie alors le jeton est nombre sous forme de chaîne de caractère.
*/
int main(int argc, char *argv[])
{
char *token, str_integer[TOKEN_STR_SIZE];
long long nb_integer;
int i, base, shift;
if (argc == 2)
token = argv[1];
else
return(-1);
fprintf(stdout, "Token: '%s'\n", token);
/* Définition du décallage par défaut */
shift = 0;
/* Initialisation des tampons pour les chaînes de sortie */
for (i = 0; i < TOKEN_STR_SIZE; i++)
str_integer[i] = 0;
for (i = 0; token[i] != 0; i++)
token[i] = tolower(token[i]);
/* Test la présence de l'opérateur unaire '-' */
if (token[0] == '-')
shift = 1;
/* Détermination de la base du système de numération */
if (token[shift++] == '0')
{
if (token[shift] == 'x')
base = 16;
else if (token[shift] >= '0' && token[shift] <= '7')
base = 8;
else
base = 0;
}
else
base = 10;
if (base == 0)
return(-2);
/* Chaîne vers nombre entier */
nb_integer = strtoll(token, NULL, base);
/* Nombre entier vers chaîne */
if (shift == 2 && (base == 8 || base == 16))
nb_integer = -nb_integer;
if (base == 8)
{
if (shift == 2)
snprintf(str_integer, TOKEN_STR_SIZE, "-0%llo", nb_integer);
else
snprintf(str_integer, TOKEN_STR_SIZE, "0%llo", nb_integer);
}
else if (base == 10)
snprintf(str_integer, TOKEN_STR_SIZE, "%lld", nb_integer);
else if (base == 16)
{
if (shift == 2)
snprintf(str_integer, TOKEN_STR_SIZE, "-0x%llx", nb_integer);
else
snprintf(str_integer, TOKEN_STR_SIZE, "0x%llx", nb_integer);
}
fprintf(stdout, "Integer: '%s'\n", str_integer);
if (strcmp(token,str_integer) == 0)
{
fprintf(stdout, "\nC'est un nombre entier en base '%d'.\n", base);
return(TOKEN_INTEGER);
}
return(TOKEN_NAN);
} |
Partager