WebSVN – HelenOS – Blame – /trunk/kernel/generic/src/printf/printf_core.c

Rev	Author	Line No.	Line
1271	cejka	1	/*
2071	jermar	2	* Copyright (c) 2001-2004 Jakub Jermar
		3	* Copyright (c) 2006 Josef Cejka
4180	decky	4	* Copyright (c) 2009 Martin Decky
1271	cejka	5	* All rights reserved.
		6	*
		7	* Redistribution and use in source and binary forms, with or without
		8	* modification, are permitted provided that the following conditions
		9	* are met:
		10	*
		11	* - Redistributions of source code must retain the above copyright
		12	* notice, this list of conditions and the following disclaimer.
		13	* - Redistributions in binary form must reproduce the above copyright
		14	* notice, this list of conditions and the following disclaimer in the
		15	* documentation and/or other materials provided with the distribution.
		16	* - The name of the author may not be used to endorse or promote products
		17	* derived from this software without specific prior written permission.
		18	*
		19	* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
		20	* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
		21	* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
		22	* IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
		23	* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
		24	* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
		25	* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
		26	* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
		27	* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
		28	* THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
		29	*/
		30
4180	decky	31	/** @addtogroup generic
1702	cejka	32	* @{
		33	*/
1271	cejka	34	/**
1702	cejka	35	* @file
4180	decky	36	* @brief Printing functions.
1271	cejka	37	*/
		38
		39	#include <printf/printf_core.h>
		40	#include <print.h>
		41	#include <arch/arg.h>
2572	jermar	42	#include <macros.h>
4011	svoboda	43	#include <string.h>
1271	cejka	44	#include <arch.h>
		45
2572	jermar	46	/** show prefixes 0x or 0 */
4180	decky	47	#define __PRINTF_FLAG_PREFIX 0x00000001
2572	jermar	48	/** signed / unsigned number */
4180	decky	49	#define __PRINTF_FLAG_SIGNED 0x00000002
2572	jermar	50	/** print leading zeroes */
4180	decky	51	#define __PRINTF_FLAG_ZEROPADDED 0x00000004
2572	jermar	52	/** align to left */
4180	decky	53	#define __PRINTF_FLAG_LEFTALIGNED 0x00000010
2572	jermar	54	/** always show + sign */
4180	decky	55	#define __PRINTF_FLAG_SHOWPLUS 0x00000020
2572	jermar	56	/** print space instead of plus */
4180	decky	57	#define __PRINTF_FLAG_SPACESIGN 0x00000040
2572	jermar	58	/** show big characters */
4180	decky	59	#define __PRINTF_FLAG_BIGCHARS 0x00000080
2572	jermar	60	/** number has - sign */
4180	decky	61	#define __PRINTF_FLAG_NEGATIVE 0x00000100
1271	cejka	62
2572	jermar	63	/**
		64	* Buffer big enough for 64-bit number printed in base 2, sign, prefix and 0
		65	* to terminate string... (last one is only for better testing end of buffer by
		66	* zero-filling subroutine)
		67	*/
4180	decky	68	#define PRINT_NUMBER_BUFFER_SIZE (64 + 5)
1271	cejka	69
		70	/** Enumeration of possible arguments types.
		71	*/
		72	typedef enum {
		73	PrintfQualifierByte = 0,
		74	PrintfQualifierShort,
		75	PrintfQualifierInt,
		76	PrintfQualifierLong,
		77	PrintfQualifierLongLong,
		78	PrintfQualifierPointer
		79	} qualifier_t;
		80
4180	decky	81	static char nullstr[] = "(NULL)";
2572	jermar	82	static char digits_small[] = "0123456789abcdef";
		83	static char digits_big[] = "0123456789ABCDEF";
1271	cejka	84
4180	decky	85	/** Print one or more UTF-8 characters without adding newline.
2572	jermar	86	*
4180	decky	87	* @param buf Buffer holding UTF-8 characters with size of
		88	* at least size bytes. NULL is not allowed!
		89	* @param size Size of the buffer in bytes.
		90	* @param ps Output method and its data.
		91	*
		92	* @return Number of UTF-8 characters printed.
		93	*
1271	cejka	94	*/
4180	decky	95	static int printf_putnchars_utf8(const char *buf, size_t size,
		96	printf_spec_t *ps)
1271	cejka	97	{
4180	decky	98	return ps->write_utf8((void *) buf, size, ps->data);
1271	cejka	99	}
		100
4180	decky	101	/** Print one or more UTF-32 characters without adding newline.
2572	jermar	102	*
4180	decky	103	* @param buf Buffer holding UTF-32 characters with size of
		104	* at least size bytes. NULL is not allowed!
		105	* @param size Size of the buffer in bytes.
		106	* @param ps Output method and its data.
		107	*
		108	* @return Number of UTF-32 characters printed.
		109	*
1271	cejka	110	*/
4180	decky	111	static int printf_putnchars_utf32(const wchar_t *buf, size_t size,
		112	printf_spec_t *ps)
1271	cejka	113	{
4180	decky	114	return ps->write_utf32((void *) buf, size, ps->data);
		115	}
		116
		117	/** Print UTF-8 string without adding a newline.
		118	*
		119	* @param str UTF-8 string to print.
		120	* @param ps Write function specification and support data.
		121	*
		122	* @return Number of UTF-8 characters printed.
		123	*
		124	*/
		125	static int printf_putstr(const char str, printf_spec_t ps)
		126	{
		127	if (str == NULL)
		128	return printf_putnchars_utf8(nullstr, strlen(nullstr), ps);
1271	cejka	129
4180	decky	130	return ps->write_utf8((void *) str, strlen(str), ps->data);
		131	}
1271	cejka	132
4180	decky	133	/** Print one ASCII character.
		134	*
		135	* @param c ASCII character to be printed.
		136	* @param ps Output method.
		137	*
		138	* @return Number of characters printed.
		139	*
		140	*/
		141	static int printf_putchar(const char ch, printf_spec_t *ps)
		142	{
		143	if (!ascii_check(ch))
		144	return ps->write_utf8((void *) &invalch, 1, ps->data);
		145
		146	return ps->write_utf8(&ch, 1, ps->data);
1271	cejka	147	}
		148
4180	decky	149	/** Print one UTF-32 character.
2572	jermar	150	*
4180	decky	151	* @param c UTF-32 character to be printed.
		152	* @param ps Output method.
2572	jermar	153	*
4180	decky	154	* @return Number of characters printed.
		155	*
1271	cejka	156	*/
4180	decky	157	static int printf_putwchar(const wchar_t ch, printf_spec_t *ps)
1271	cejka	158	{
4180	decky	159	if (!unicode_check(ch))
		160	return ps->write_utf8((void *) &invalch, 1, ps->data);
1271	cejka	161
4185	decky	162	return ps->write_utf32(&ch, sizeof(wchar_t), ps->data);
1271	cejka	163	}
		164
4180	decky	165	/** Print one formatted ASCII character.
2572	jermar	166	*
4180	decky	167	* @param ch Character to print.
		168	* @param width Width modifier.
		169	* @param flags Flags that change the way the character is printed.
2572	jermar	170	*
4180	decky	171	* @return Number of characters printed, negative value on failure.
		172	*
1271	cejka	173	*/
4180	decky	174	static int print_char(const char ch, int width, uint32_t flags, printf_spec_t *ps)
1271	cejka	175	{
4180	decky	176	count_t counter = 0;
1271	cejka	177	if (!(flags & __PRINTF_FLAG_LEFTALIGNED)) {
2572	jermar	178	while (--width > 0) {
		179	/*
		180	* One space is consumed by the character itself, hence
		181	* the predecrement.
		182	*/
4180	decky	183	if (printf_putchar(' ', ps) > 0)
		184	counter++;
1271	cejka	185	}
		186	}
		187
4180	decky	188	if (printf_putchar(ch, ps) > 0)
1604	cejka	189	counter++;
4180	decky	190
		191	while (--width > 0) {
		192	/*
		193	* One space is consumed by the character itself, hence
		194	* the predecrement.
		195	*/
		196	if (printf_putchar(' ', ps) > 0)
		197	counter++;
		198	}
		199
		200	return (int) (counter + 1);
		201	}
1271	cejka	202
4180	decky	203	/** Print one formatted UTF-32 character.
		204	*
		205	* @param ch Character to print.
		206	* @param width Width modifier.
		207	* @param flags Flags that change the way the character is printed.
		208	*
		209	* @return Number of characters printed, negative value on failure.
		210	*
		211	*/
		212	static int print_wchar(const wchar_t ch, int width, uint32_t flags, printf_spec_t *ps)
		213	{
		214	count_t counter = 0;
		215	if (!(flags & __PRINTF_FLAG_LEFTALIGNED)) {
		216	while (--width > 0) {
2572	jermar	217	/*
		218	* One space is consumed by the character itself, hence
		219	* the predecrement.
		220	*/
4180	decky	221	if (printf_putchar(' ', ps) > 0)
		222	counter++;
		223	}
		224	}
		225
		226	if (printf_putwchar(ch, ps) > 0)
		227	counter++;
		228
		229	while (--width > 0) {
		230	/*
		231	* One space is consumed by the character itself, hence
		232	* the predecrement.
		233	*/
1604	cejka	234	if (printf_putchar(' ', ps) > 0)
4180	decky	235	counter++;
1271	cejka	236	}
		237
4180	decky	238	return (int) (counter + 1);
1271	cejka	239	}
		240
4180	decky	241	/** Print UTF-8 string.
2572	jermar	242	*
4180	decky	243	* @param str UTF-8 string to be printed.
		244	* @param width Width modifier.
		245	* @param precision Precision modifier.
		246	* @param flags Flags that modify the way the string is printed.
2572	jermar	247	*
4180	decky	248	* @return Number of UTF-8 characters printed, negative value on failure.
		249	*/
		250	static int print_utf8(char *str, int width, unsigned int precision,
		251	uint32_t flags, printf_spec_t *ps)
1271	cejka	252	{
4180	decky	253	if (str == NULL)
		254	return printf_putstr(nullstr, ps);
4206	svoboda	255
		256	/* Print leading spaces. */
		257	count_t strw = str_length(str);
4180	decky	258	if (precision == 0)
4206	svoboda	259	precision = strw;
4199	svoboda	260
4180	decky	261	count_t counter = 0;
		262	width -= precision;
		263	if (!(flags & __PRINTF_FLAG_LEFTALIGNED)) {
		264	while (width-- > 0) {
		265	if (printf_putchar(' ', ps) == 1)
		266	counter++;
		267	}
		268	}
4199	svoboda	269
1604	cejka	270	int retval;
4206	svoboda	271	size_t size = str_lsize(str, precision);
		272	if ((retval = printf_putnchars_utf8(str, size, ps)) < 0)
4180	decky	273	return -counter;
4206	svoboda	274
4180	decky	275	counter += retval;
4206	svoboda	276
4180	decky	277	while (width-- > 0) {
		278	if (printf_putchar(' ', ps) == 1)
		279	counter++;
1271	cejka	280	}
4199	svoboda	281
4180	decky	282	return ((int) counter);
4206	svoboda	283
4180	decky	284	}
1271	cejka	285
4180	decky	286	/** Print UTF-32 string.
		287	*
		288	* @param str UTF-32 string to be printed.
		289	* @param width Width modifier.
		290	* @param precision Precision modifier.
		291	* @param flags Flags that modify the way the string is printed.
		292	*
		293	* @return Number of UTF-32 characters printed, negative value on failure.
		294	*/
4206	svoboda	295	static int print_utf32(wchar_t *wstr, int width, unsigned int precision,
4180	decky	296	uint32_t flags, printf_spec_t *ps)
		297	{
4206	svoboda	298	if (wstr == NULL)
4180	decky	299	return printf_putstr(nullstr, ps);
4206	svoboda	300
		301	/* Print leading spaces. */
		302	size_t strw = wstr_length(wstr);
4180	decky	303	if (precision == 0)
4206	svoboda	304	precision = strw;
		305
4180	decky	306	count_t counter = 0;
1271	cejka	307	width -= precision;
		308	if (!(flags & __PRINTF_FLAG_LEFTALIGNED)) {
4180	decky	309	while (width-- > 0) {
		310	if (printf_putchar(' ', ps) == 1)
1604	cejka	311	counter++;
1271	cejka	312	}
		313	}
4206	svoboda	314
4180	decky	315	int retval;
4206	svoboda	316	size_t size = min(strw, precision) * sizeof(wchar_t);
		317	if ((retval = printf_putnchars_utf32(wstr, size, ps)) < 0)
1604	cejka	318	return -counter;
4206	svoboda	319
4180	decky	320	counter += retval;
4206	svoboda	321
1271	cejka	322	while (width-- > 0) {
4180	decky	323	if (printf_putchar(' ', ps) == 1)
		324	counter++;
1271	cejka	325	}
4206	svoboda	326
4180	decky	327	return ((int) counter);
1271	cejka	328	}
		329
2572	jermar	330	/** Print a number in a given base.
1271	cejka	331	*
2572	jermar	332	* Print significant digits of a number in given base.
1271	cejka	333	*
4180	decky	334	* @param num Number to print.
		335	* @param width Width modifier.
		336	* @param precision Precision modifier.
		337	* @param base Base to print the number in (must be between 2 and 16).
		338	* @param flags Flags that modify the way the number is printed.
1271	cejka	339	*
4180	decky	340	* @return Number of characters printed.
2572	jermar	341	*
1271	cejka	342	*/
2572	jermar	343	static int print_number(uint64_t num, int width, int precision, int base,
4180	decky	344	uint32_t flags, printf_spec_t *ps)
1271	cejka	345	{
4180	decky	346	char *digits;
		347	if (flags & __PRINTF_FLAG_BIGCHARS)
		348	digits = digits_big;
		349	else
		350	digits = digits_small;
1271	cejka	351
4180	decky	352	char data[PRINT_NUMBER_BUFFER_SIZE];
		353	char *ptr = &data[PRINT_NUMBER_BUFFER_SIZE - 1];
1271	cejka	354
4180	decky	355	/* Size of number with all prefixes and signs */
		356	int size = 0;
		357
		358	/* Put zero at end of string */
		359	*ptr-- = 0;
		360
1271	cejka	361	if (num == 0) {
		362	*ptr-- = '0';
		363	size++;
		364	} else {
		365	do {
		366	*ptr-- = digits[num % base];
		367	size++;
		368	} while (num /= base);
		369	}
		370
4180	decky	371	/* Size of plain number */
		372	int number_size = size;
		373
2572	jermar	374	/*
4180	decky	375	* Collect the sum of all prefixes/signs/etc. to calculate padding and
2572	jermar	376	* leading zeroes.
		377	*/
1271	cejka	378	if (flags & __PRINTF_FLAG_PREFIX) {
		379	switch(base) {
4180	decky	380	case 2:
		381	/* Binary formating is not standard, but usefull */
2070	jermar	382	size += 2;
		383	break;
		384	case 8:
		385	size++;
		386	break;
		387	case 16:
		388	size += 2;
		389	break;
1271	cejka	390	}
		391	}
4180	decky	392
		393	char sgn = 0;
1271	cejka	394	if (flags & __PRINTF_FLAG_SIGNED) {
		395	if (flags & __PRINTF_FLAG_NEGATIVE) {
		396	sgn = '-';
		397	size++;
		398	} else if (flags & __PRINTF_FLAG_SHOWPLUS) {
2572	jermar	399	sgn = '+';
		400	size++;
		401	} else if (flags & __PRINTF_FLAG_SPACESIGN) {
		402	sgn = ' ';
		403	size++;
		404	}
1271	cejka	405	}
4180	decky	406
		407	if (flags & __PRINTF_FLAG_LEFTALIGNED)
1271	cejka	408	flags &= ~__PRINTF_FLAG_ZEROPADDED;
4180	decky	409
2572	jermar	410	/*
4180	decky	411	* If the number is left-aligned or precision is specified then
		412	* padding with zeros is ignored.
2572	jermar	413	*/
1271	cejka	414	if (flags & __PRINTF_FLAG_ZEROPADDED) {
4180	decky	415	if ((precision == 0) && (width > size))
1271	cejka	416	precision = width - size + number_size;
		417	}
4180	decky	418
		419	/* Print leading spaces */
2572	jermar	420	if (number_size > precision) {
4180	decky	421	/* Print the whole number, not only a part */
1271	cejka	422	precision = number_size;
2572	jermar	423	}
4180	decky	424
1271	cejka	425	width -= precision + size - number_size;
4180	decky	426	count_t counter = 0;
1271	cejka	427
		428	if (!(flags & __PRINTF_FLAG_LEFTALIGNED)) {
4180	decky	429	while (width-- > 0) {
		430	if (printf_putchar(' ', ps) == 1)
1604	cejka	431	counter++;
1271	cejka	432	}
		433	}
		434
4180	decky	435	/* Print sign */
1271	cejka	436	if (sgn) {
1604	cejka	437	if (printf_putchar(sgn, ps) == 1)
		438	counter++;
1271	cejka	439	}
		440
4180	decky	441	/* Print prefix */
1271	cejka	442	if (flags & __PRINTF_FLAG_PREFIX) {
		443	switch(base) {
4180	decky	444	case 2:
		445	/* Binary formating is not standard, but usefull */
2070	jermar	446	if (printf_putchar('0', ps) == 1)
		447	counter++;
		448	if (flags & __PRINTF_FLAG_BIGCHARS) {
		449	if (printf_putchar('B', ps) == 1)
1604	cejka	450	counter++;
2070	jermar	451	} else {
		452	if (printf_putchar('b', ps) == 1)
1604	cejka	453	counter++;
2070	jermar	454	}
		455	break;
		456	case 8:
		457	if (printf_putchar('o', ps) == 1)
		458	counter++;
		459	break;
		460	case 16:
		461	if (printf_putchar('0', ps) == 1)
		462	counter++;
		463	if (flags & __PRINTF_FLAG_BIGCHARS) {
		464	if (printf_putchar('X', ps) == 1)
1604	cejka	465	counter++;
2070	jermar	466	} else {
		467	if (printf_putchar('x', ps) == 1)
		468	counter++;
		469	}
		470	break;
1271	cejka	471	}
		472	}
4180	decky	473
		474	/* Print leading zeroes */
1271	cejka	475	precision -= number_size;
4180	decky	476	while (precision-- > 0) {
1604	cejka	477	if (printf_putchar('0', ps) == 1)
		478	counter++;
1271	cejka	479	}
		480
4180	decky	481	/* Print the number itself */
		482	int retval;
		483	if ((retval = printf_putstr(++ptr, ps)) > 0)
1604	cejka	484	counter += retval;
1271	cejka	485
4180	decky	486	/* Print tailing spaces */
1271	cejka	487
4180	decky	488	while (width-- > 0) {
		489	if (printf_putchar(' ', ps) == 1)
1604	cejka	490	counter++;
1271	cejka	491	}
4180	decky	492
		493	return ((int) counter);
1271	cejka	494	}
		495
		496	/** Print formatted string.
		497	*
2572	jermar	498	* Print string formatted according to the fmt parameter and variadic arguments.
		499	* Each formatting directive must have the following form:
1271	cejka	500	*
4180	decky	501	* \% [ FLAGS ] [ WIDTH ] [ .PRECISION ] [ TYPE ] CONVERSION
		502	*
1271	cejka	503	* FLAGS:@n
4180	decky	504	* - "#" Force to print prefix. For \%o conversion, the prefix is 0, for
		505	* \%x and \%X prefixes are 0x and 0X and for conversion \%b the
		506	* prefix is 0b.
1271	cejka	507	*
4180	decky	508	* - "-" Align to left.
1271	cejka	509	*
4180	decky	510	* - "+" Print positive sign just as negative.
1271	cejka	511	*
4180	decky	512	* - " " If the printed number is positive and "+" flag is not set,
		513	* print space in place of sign.
1271	cejka	514	*
4180	decky	515	* - "0" Print 0 as padding instead of spaces. Zeroes are placed between
		516	* sign and the rest of the number. This flag is ignored if "-"
		517	* flag is specified.
		518	*
1271	cejka	519	* WIDTH:@n
4180	decky	520	* - Specify the minimal width of a printed argument. If it is bigger,
		521	* width is ignored. If width is specified with a "*" character instead of
		522	* number, width is taken from parameter list. And integer parameter is
		523	* expected before parameter for processed conversion specification. If
		524	* this value is negative its absolute value is taken and the "-" flag is
		525	* set.
1271	cejka	526	*
		527	* PRECISION:@n
4180	decky	528	* - Value precision. For numbers it specifies minimum valid numbers.
		529	* Smaller numbers are printed with leading zeroes. Bigger numbers are not
		530	* affected. Strings with more than precision characters are cut off. Just
		531	* as with width, an "*" can be used used instead of a number. An integer
		532	* value is then expected in parameters. When both width and precision are
		533	* specified using "*", the first parameter is used for width and the
		534	* second one for precision.
		535	*
1271	cejka	536	* TYPE:@n
4180	decky	537	* - "hh" Signed or unsigned char.@n
		538	* - "h" Signed or unsigned short.@n
		539	* - "" Signed or unsigned int (default value).@n
		540	* - "l" Signed or unsigned long int.@n
		541	* If conversion is "c", the character is wchar_t (UTF-32).@n
		542	* If conversion is "s", the string is wchar_t * (UTF-32).@n
		543	* - "ll" Signed or unsigned long long int.@n
		544	*
1271	cejka	545	* CONVERSION:@n
4180	decky	546	* - % Print percentile character itself.
1271	cejka	547	*
4180	decky	548	* - c Print single character. The character is expected to be plain
		549	* ASCII (e.g. only values 0 .. 127 are valid).@n
		550	* If type is "l", then the character is expected to be UTF-32
		551	* (e.g. values 0 .. 0x10ffff are valid).
1271	cejka	552	*
4180	decky	553	* - s Print zero terminated string. If a NULL value is passed as
		554	* value, "(NULL)" is printed instead.@n
		555	* The string is expected to be correctly encoded UTF-8 (or plain
		556	* ASCII, which is a subset of UTF-8).@n
		557	* If type is "l", then the string is expected to be correctly
		558	* encoded UTF-32.
1271	cejka	559	*
4180	decky	560	* - P, p Print value of a pointer. Void * value is expected and it is
		561	* printed in hexadecimal notation with prefix (as with \%#X / \%#x
		562	* for 32-bit or \%#X / \%#x for 64-bit long pointers).
1271	cejka	563	*
4180	decky	564	* - b Print value as unsigned binary number. Prefix is not printed by
		565	* default. (Nonstandard extension.)
1271	cejka	566	*
4180	decky	567	* - o Print value as unsigned octal number. Prefix is not printed by
		568	* default.
1271	cejka	569	*
4180	decky	570	* - d, i Print signed decimal number. There is no difference between d
		571	* and i conversion.
		572	*
		573	* - u Print unsigned decimal number.
		574	*
		575	* - X, x Print hexadecimal number with upper- or lower-case. Prefix is
		576	* not printed by default.
		577	*
2572	jermar	578	* All other characters from fmt except the formatting directives are printed in
		579	* verbatim.
1271	cejka	580	*
4180	decky	581	* @param fmt Formatting NULL terminated string (UTF-8 or plain ASCII).
		582	*
		583	* @return Number of UTF-8 characters printed, negative value on failure.
		584	*
1271	cejka	585	*/
4180	decky	586	int printf_core(const char fmt, printf_spec_t ps, va_list ap)
1271	cejka	587	{
4206	svoboda	588	size_t i = 0; /* Index of the currently processed character from fmt */
		589	size_t nxt = 0;
		590	size_t j = 0; /* Index to the first not printed nonformating character */
1271	cejka	591
4180	decky	592	wchar_t uc; /* Current UTF-32 character decoded from fmt */
		593	count_t counter = 0; /* Number of UTF-8 characters printed */
		594	int retval; /* Return values from nested functions */
		595
4199	svoboda	596	while (true) {
		597	i = nxt;
4200	svoboda	598	uc = chr_decode(fmt, &nxt, UTF8_NO_LIMIT);
4199	svoboda	599
		600	if (uc == '\0') break;
		601
4180	decky	602	/* Control character */
		603	if (uc == '%') {
		604	/* Print common characters if any processed */
1271	cejka	605	if (i > j) {
4180	decky	606	if ((retval = printf_putnchars_utf8(&fmt[j], i - j, ps)) < 0) {
		607	/* Error */
1271	cejka	608	counter = -counter;
		609	goto out;
		610	}
		611	counter += retval;
		612	}
4180	decky	613
1271	cejka	614	j = i;
		615
4180	decky	616	/* Parse modifiers */
		617	uint32_t flags = 0;
		618	bool end = false;
		619
1271	cejka	620	do {
4199	svoboda	621	i = nxt;
4200	svoboda	622	uc = chr_decode(fmt, &nxt, UTF8_NO_LIMIT);
4183	decky	623	switch (uc) {
2572	jermar	624	case '#':
		625	flags \|= __PRINTF_FLAG_PREFIX;
		626	break;
		627	case '-':
		628	flags \|= __PRINTF_FLAG_LEFTALIGNED;
		629	break;
		630	case '+':
		631	flags \|= __PRINTF_FLAG_SHOWPLUS;
		632	break;
		633	case ' ':
		634	flags \|= __PRINTF_FLAG_SPACESIGN;
		635	break;
		636	case '0':
		637	flags \|= __PRINTF_FLAG_ZEROPADDED;
		638	break;
		639	default:
4180	decky	640	end = true;
		641	};
		642	} while (!end);
1271	cejka	643
4180	decky	644	/* Width & '' operator /
		645	int width = 0;
		646	if (isdigit(uc)) {
4199	svoboda	647	while (true) {
		648	width *= 10;
		649	width += uc - '0';
		650
		651	i = nxt;
4200	svoboda	652	uc = chr_decode(fmt, &nxt, UTF8_NO_LIMIT);
4199	svoboda	653	if (uc == '\0')
		654	break;
4180	decky	655	if (!isdigit(uc))
		656	break;
1271	cejka	657	}
4180	decky	658	} else if (uc == '*') {
		659	/* Get width value from argument list */
4199	svoboda	660	i = nxt;
4200	svoboda	661	uc = chr_decode(fmt, &nxt, UTF8_NO_LIMIT);
3058	decky	662	width = (int) va_arg(ap, int);
1271	cejka	663	if (width < 0) {
4180	decky	664	/* Negative width sets '-' flag */
1271	cejka	665	width *= -1;
		666	flags \|= __PRINTF_FLAG_LEFTALIGNED;
		667	}
		668	}
		669
4180	decky	670	/* Precision and '' operator /
		671	int precision = 0;
		672	if (uc == '.') {
4199	svoboda	673	i = nxt;
4200	svoboda	674	uc = chr_decode(fmt, &nxt, UTF8_NO_LIMIT);
4180	decky	675	if (isdigit(uc)) {
4199	svoboda	676	while (true) {
		677	precision *= 10;
		678	precision += uc - '0';
		679
		680	i = nxt;
4200	svoboda	681	uc = chr_decode(fmt, &nxt, UTF8_NO_LIMIT);
4199	svoboda	682	if (uc == '\0')
		683	break;
4180	decky	684	if (!isdigit(uc))
		685	break;
1271	cejka	686	}
4199	svoboda	687	} else if (uc == '*') {
4180	decky	688	/* Get precision value from the argument list */
4199	svoboda	689	i = nxt;
4200	svoboda	690	uc = chr_decode(fmt, &nxt, UTF8_NO_LIMIT);
3058	decky	691	precision = (int) va_arg(ap, int);
1271	cejka	692	if (precision < 0) {
4180	decky	693	/* Ignore negative precision */
1271	cejka	694	precision = 0;
		695	}
		696	}
		697	}
4180	decky	698
		699	qualifier_t qualifier;
		700
		701	switch (uc) {
		702	/** @todo Unimplemented qualifiers:
		703	* t ptrdiff_t - ISO C 99
1888	jermar	704	*/
4180	decky	705	case 'h':
		706	/* Char or short */
1888	jermar	707	qualifier = PrintfQualifierShort;
4199	svoboda	708	i = nxt;
4200	svoboda	709	uc = chr_decode(fmt, &nxt, UTF8_NO_LIMIT);
4180	decky	710	if (uc == 'h') {
4199	svoboda	711	i = nxt;
4200	svoboda	712	uc = chr_decode(fmt, &nxt, UTF8_NO_LIMIT);
1888	jermar	713	qualifier = PrintfQualifierByte;
		714	}
		715	break;
4180	decky	716	case 'l':
		717	/* Long or long long */
1888	jermar	718	qualifier = PrintfQualifierLong;
4199	svoboda	719	i = nxt;
4200	svoboda	720	uc = chr_decode(fmt, &nxt, UTF8_NO_LIMIT);
4180	decky	721	if (uc == 'l') {
4199	svoboda	722	i = nxt;
4200	svoboda	723	uc = chr_decode(fmt, &nxt, UTF8_NO_LIMIT);
1888	jermar	724	qualifier = PrintfQualifierLongLong;
		725	}
		726	break;
		727	default:
4180	decky	728	/* Default type */
		729	qualifier = PrintfQualifierInt;
		730	}
1271	cejka	731
4180	decky	732	unsigned int base = 10;
		733
		734	switch (uc) {
1888	jermar	735	/*
4180	decky	736	* String and character conversions.
		737	*/
1888	jermar	738	case 's':
4180	decky	739	if (qualifier == PrintfQualifierLong)
		740	retval = print_utf32(va_arg(ap, wchar_t *), width, precision, flags, ps);
		741	else
		742	retval = print_utf8(va_arg(ap, char *), width, precision, flags, ps);
		743
		744	if (retval < 0) {
1888	jermar	745	counter = -counter;
		746	goto out;
4180	decky	747	}
		748
1888	jermar	749	counter += retval;
4199	svoboda	750	j = nxt;
1888	jermar	751	goto next_char;
		752	case 'c':
4180	decky	753	if (qualifier == PrintfQualifierLong)
		754	retval = print_wchar(va_arg(ap, wchar_t), width, flags, ps);
		755	else
		756	retval = print_char(va_arg(ap, unsigned int), width, flags, ps);
		757
2572	jermar	758	if (retval < 0) {
1888	jermar	759	counter = -counter;
		760	goto out;
		761	};
4180	decky	762
1888	jermar	763	counter += retval;
4199	svoboda	764	j = nxt;
1888	jermar	765	goto next_char;
4180	decky	766
		767	/*
1888	jermar	768	* Integer values
		769	*/
4180	decky	770	case 'P':
		771	/* Pointer */
3058	decky	772	flags \|= __PRINTF_FLAG_BIGCHARS;
1888	jermar	773	case 'p':
		774	flags \|= __PRINTF_FLAG_PREFIX;
		775	base = 16;
		776	qualifier = PrintfQualifierPointer;
4180	decky	777	break;
		778	case 'b':
1888	jermar	779	base = 2;
		780	break;
		781	case 'o':
		782	base = 8;
		783	break;
		784	case 'd':
		785	case 'i':
4180	decky	786	flags \|= __PRINTF_FLAG_SIGNED;
1888	jermar	787	case 'u':
		788	break;
		789	case 'X':
		790	flags \|= __PRINTF_FLAG_BIGCHARS;
		791	case 'x':
		792	base = 16;
		793	break;
4180	decky	794
		795	/* Percentile itself */
		796	case '%':
1888	jermar	797	j = i;
		798	goto next_char;
4180	decky	799
1888	jermar	800	/*
		801	* Bad formatting.
		802	*/
		803	default:
2572	jermar	804	/*
		805	* Unknown format. Now, j is the index of '%'
		806	* so we will print whole bad format sequence.
1888	jermar	807	*/
4180	decky	808	goto next_char;
1271	cejka	809	}
4180	decky	810
		811	/* Print integers */
		812	size_t size;
		813	uint64_t number;
1271	cejka	814	switch (qualifier) {
1888	jermar	815	case PrintfQualifierByte:
		816	size = sizeof(unsigned char);
3058	decky	817	number = (uint64_t) va_arg(ap, unsigned int);
1888	jermar	818	break;
		819	case PrintfQualifierShort:
		820	size = sizeof(unsigned short);
3058	decky	821	number = (uint64_t) va_arg(ap, unsigned int);
1888	jermar	822	break;
		823	case PrintfQualifierInt:
		824	size = sizeof(unsigned int);
3058	decky	825	number = (uint64_t) va_arg(ap, unsigned int);
1888	jermar	826	break;
		827	case PrintfQualifierLong:
		828	size = sizeof(unsigned long);
3058	decky	829	number = (uint64_t) va_arg(ap, unsigned long);
1888	jermar	830	break;
		831	case PrintfQualifierLongLong:
		832	size = sizeof(unsigned long long);
3058	decky	833	number = (uint64_t) va_arg(ap, unsigned long long);
1888	jermar	834	break;
		835	case PrintfQualifierPointer:
		836	size = sizeof(void *);
3058	decky	837	number = (uint64_t) (unsigned long) va_arg(ap, void *);
1888	jermar	838	break;
4180	decky	839	default:
		840	/* Unknown qualifier */
1888	jermar	841	counter = -counter;
		842	goto out;
1271	cejka	843	}
		844
		845	if (flags & __PRINTF_FLAG_SIGNED) {
2572	jermar	846	if (number & (0x1 << (size * 8 - 1))) {
1271	cejka	847	flags \|= __PRINTF_FLAG_NEGATIVE;
4180	decky	848
1780	jermar	849	if (size == sizeof(uint64_t)) {
3058	decky	850	number = -((int64_t) number);
1271	cejka	851	} else {
		852	number = ~number;
2572	jermar	853	number &=
		854	~(0xFFFFFFFFFFFFFFFFll <<
		855	(size * 8));
1271	cejka	856	number++;
		857	}
		858	}
		859	}
4180	decky	860
2572	jermar	861	if ((retval = print_number(number, width, precision,
		862	base, flags, ps)) < 0) {
1271	cejka	863	counter = -counter;
		864	goto out;
2572	jermar	865	}
4180	decky	866
1271	cejka	867	counter += retval;
4199	svoboda	868	j = nxt;
4180	decky	869	}
1271	cejka	870	next_char:
4199	svoboda	871	;
1271	cejka	872	}
		873
		874	if (i > j) {
4180	decky	875	if ((retval = printf_putnchars_utf8(&fmt[j], i - j, ps)) < 0) {
		876	/* Error */
1271	cejka	877	counter = -counter;
		878	goto out;
		879	}
		880	counter += retval;
		881	}
4180	decky	882
1271	cejka	883	out:
4180	decky	884	return ((int) counter);
1271	cejka	885	}
		886
1888	jermar	887	/** @}
1702	cejka	888	*/

Subversion Repositories HelenOS

(root)/trunk/kernel/generic/src/printf/printf_core.c @ 4641 – Rev 4206