/*===========================================================================* * * * sflcvtp.c - * * * * Copyright (c) 1991-2003 iMatix Corporation * * * * ------------------ GPL Licensed Source Code ------------------ * * iMatix makes this software available under the GNU General * * Public License (GPL) license for open source projects. For * * details of the GPL license please see www.gnu.org or read the * * file license.gpl provided in this package. * * * * This program is free software; you can redistribute it and/or * * modify it under the terms of the GNU General Public License as * * published by the Free Software Foundation; either version 2 of * * the License, or (at your option) any later version. * * * * This program is distributed in the hope that it will be useful, * * but WITHOUT ANY WARRANTY; without even the implied warranty of * * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * * GNU General Public License for more details. * * * * You should have received a copy of the GNU General Public * * License along with this program in the file 'license.gpl'; if * * not, write to the Free Software Foundation, Inc., 59 Temple * * Place - Suite 330, Boston, MA 02111-1307, USA. * * * * You can also license this software under iMatix's General Terms * * of Business (GTB) for commercial projects. If you have not * * explicitly licensed this software under the iMatix GTB you may * * only use it under the terms of the GNU General Public License. * * * * For more information, send an email to info@imatix.com. * * -------------------------------------------------------------- * *===========================================================================*/ #include "prelude.h" /* Universal header file */ #include "sflconv.h" /* Prototypes for functions */ #include "sfldate.h" /* Date/time library functions */ /* ---------------------------------------------------------------------[<]- Function: conv_time_pict Synopsis: Converts a time to a string using a picture. The picture is composed of any combination of these formats: h hour, 0-23 hh hour, 00-23 m minute, 0-59 mm minute, 00-59 s second, 0-59 ss second, 00-59 c centisecond, 0-99 cc centisecond, 00-99 a a/p indicator - use 12-hour clock aa am/pm indicator - use 12-hour clock A A/P indicator - use 12-hour clock AA AM/PM indicator - use 12-hour clock \x literal character x other literal character

Returns the formatted result. This is a static string, of at most 80 characters, that is overwritten by each call. If time is zero, returns an empty string. The 'h', 'm', 's', and 'c' formats output a leading space when used at the start of the picture. This is to improve the alignment of a column of times. If the previous character was a digit, these formats also output a space in place of the leading zero. ---------------------------------------------------------------------[>]-*/ char * conv_time_pict ( long time, const char *picture) { static char formatted [FORMAT_MAX + 1]; /* Formatted return string */ int hour, /* Hour component of time */ minute, /* Minute component of time */ second, /* Second component of time */ centi, /* 1/100 sec component of time */ cursize; /* Size of current component */ char *dest, /* Store formatted data here */ ch, /* Next character in picture */ lastch = '0'; /* Last character we output */ Bool pm; /* TRUE when hour >= 12 */ conv_reason = 0; /* No conversion errors so far */ /* Zero time is returned as empty string */ if (time == 0) { strclr (formatted); return (formatted); } hour = GET_HOUR (time); minute = GET_MINUTE (time); second = GET_SECOND (time); centi = GET_CENTI (time); /* If am/pm component specified, use 12-hour clock */ if (hour >= 12) { pm = TRUE; if (strpbrk (picture, "aA") && hour > 12) hour -= 12; } else pm = FALSE; ASSERT (hour >= 0 && hour < 24); ASSERT (minute >= 0 && minute < 60); ASSERT (second >= 0 && second < 60); /* Scan through picture, converting each component */ dest = formatted; *dest = 0; /* string is empty */ while (*picture) { /* Get character and count number of occurences */ ch = *picture++; for (cursize = 1; *picture == ch; cursize++) picture++; switch (ch) { /* h hour, 0-23 */ /* hh hour, 00-23 */ case 'h': if (cursize == 1) sprintf (dest, (isdigit (lastch)? "%2d": "%d"), hour); else if (cursize == 2) sprintf (dest, "%02d", hour); break; /* m minute, 0-59 */ /* mm minute, 00-59 */ case 'm': if (cursize == 1) sprintf (dest, (isdigit (lastch)? "%2d": "%d"), minute); else if (cursize == 2) sprintf (dest, "%02d", minute); break; /* s second, 0-59 */ /* ss second, 00-59 */ case 's': if (cursize == 1) sprintf (dest, (isdigit (lastch)? "%2d": "%d"), second); else if (cursize == 2) sprintf (dest, "%02d", second); break; /* c centisecond, 0-99 */ /* cc centisecond, 00-99 */ case 'c': if (cursize == 1) sprintf (dest, (isdigit (lastch)? "%2d": "%d"), centi); else if (cursize == 2) sprintf (dest, "%02d", centi); break; /* a a/p indicator */ /* aa am/pm indicator */ case 'a': strncat (dest, (pm? "pm": "am"), cursize); dest [cursize] = 0; break; /* A A/P indicator */ /* AA AM/PM indicator */ case 'A': strncat (dest, (pm? "PM": "AM"), cursize); dest [cursize] = 0; break; /* \x literal character x */ case '\\': ch = *picture++; } if (*dest) /* If something was output, */ while (*dest) /* skip to end of string */ dest++; else while (cursize--) /* Else output ch once or more */ *dest++ = ch; /* and bump dest pointer */ lastch = *(dest - 1); /* Get previous character */ *dest = 0; /* Terminate the string nicely */ } return (formatted); }