106 lines
3.7 KiB
C
106 lines
3.7 KiB
C
/* ************************************************************************** */
|
|
/* */
|
|
/* ::: :::::::: */
|
|
/* ft_convert.c :+: :+: :+: */
|
|
/* +:+ +:+ +:+ */
|
|
/* By: hulamy <marvin@42.fr> +#+ +:+ +#+ */
|
|
/* +#+#+#+#+#+ +#+ */
|
|
/* Created: 2020/03/12 22:30:05 by hulamy #+# #+# */
|
|
/* Updated: 2020/06/30 00:40:49 by hulamy ### ########.fr */
|
|
/* */
|
|
/* ************************************************************************** */
|
|
|
|
#include "ft_printf.h"
|
|
|
|
/*
|
|
** -convert the next argument into a string according to the following
|
|
** correspondances for diuxXcspefgn :
|
|
** [char] [hhd, hhi, c] [int] [d i c]
|
|
** [short] [hd, hi] [int]
|
|
** [int] [d, i] [int]
|
|
** [long] [ld, li] [long] [ld li]
|
|
** [long long] [lld, lli] [long]
|
|
** [unsigned char] [hhu, hhx, hhX] [unsigned int] [u x X p s]
|
|
** [unsigned short] [hu, hx, hX] [unsigned int]
|
|
** [unsigned int] [u, x, X, p] [unsigned int]
|
|
** [unsigned long] [lu, lx, lX] [unsigned long] [lu lx lX]
|
|
** [unsigned long long][llu, llx, llX] [unsigned long]
|
|
** [char *] [s, hhn]
|
|
** [double] [e, le, f, lf, g, lg]
|
|
** [wint_t] [lc]
|
|
** [wchar_t] [ls]
|
|
** [short *] [hn]
|
|
** [int *] [n]
|
|
** [long *] [ln]
|
|
** [long long *] [lln]
|
|
** -'h' and 'hh', are traited just like regular size because of
|
|
** default promotion, that promote smaller type than int into int
|
|
*/
|
|
|
|
char *conv_i(char c, long int i)
|
|
{
|
|
char *s;
|
|
|
|
if (c == 'c')
|
|
{
|
|
s = ft_strdup("0");
|
|
s[0] = i;
|
|
return (s);
|
|
}
|
|
if (c == 'd' || c == 'i')
|
|
return (ft_itoa(i));
|
|
return (NULL);
|
|
}
|
|
|
|
char *conv_u(char c, unsigned long int i)
|
|
{
|
|
char *s;
|
|
|
|
if (c == 's')
|
|
return (i == 0 ? ft_strdup("(null)") : ft_strdup((char *)i));
|
|
s = ft_utoa(i);
|
|
if (c == 'u')
|
|
return (s);
|
|
if (c == 'x' || c == 'p')
|
|
return (ft_convertbase_free(s, "0123456789", "0123456789abcdef"));
|
|
if (c == 'X')
|
|
return (ft_convertbase_free(s, "0123456789", "0123456789ABCDEF"));
|
|
return (NULL);
|
|
}
|
|
|
|
/*
|
|
** -first a loop to expand all the stars from width and .precision
|
|
** they always expand into int type
|
|
** it's done first because those are the first next args on the va_list
|
|
** -for each kind of specifier there is finally four kinds of conversion :
|
|
** int / long int / unsigned int / unsingned long int
|
|
** -the conversion 'uxX' associated with 'l' are converted with lu, but
|
|
** also are 'p' and 's', without an 'l' flag, that's why there is this little
|
|
** trick on line the line for unsigned int :
|
|
** -'uxXps' && 'lps' will make it looks for 'uxX' and for 'l'
|
|
** (because it will never find a 'p' or a 's' if there are 'uxX' already)
|
|
** or for 'p' and again for 'p', or 's' twice similarly
|
|
*/
|
|
|
|
char *ft_convert(va_list ap, char *type, char **s)
|
|
{
|
|
char *tmp;
|
|
|
|
while (ft_strchr(*s, '*'))
|
|
if (!(ft_expand_star(va_arg(ap, int), s)))
|
|
return (NULL);
|
|
if ((tmp = ft_strchrset(type, "dic")) && ft_strchr(type, 'l'))
|
|
return (conv_i(tmp[0], va_arg(ap, long int)));
|
|
if ((tmp = ft_strchrset(type, "dic")))
|
|
return (conv_i(tmp[0], va_arg(ap, int)));
|
|
if ((tmp = ft_strchrset(type, "uxXps")) && ft_strchrset(type, "lps"))
|
|
return (conv_u(tmp[0], va_arg(ap, unsigned long int)));
|
|
if ((tmp = ft_strchrset(type, "uxX")))
|
|
return (conv_u(tmp[0], va_arg(ap, unsigned int)));
|
|
if (ft_strchr(type, '%'))
|
|
return (ft_strdup("%"));
|
|
if (ft_strchrset(type, "efgn"))
|
|
return (NULL);
|
|
return (NULL);
|
|
}
|