12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455 |
- /*+-------------------------------------------------------------------------
- util.c
- wht@wht.net
- --------------------------------------------------------------------------*/
- /*+:EDITS:*/
- /*:01-24-1997-02:37-wht@yuriatin-SOURCE RELEASE 4.00 */
- /*:09-11-1996-20:00-wht@yuriatin-3.48-major telnet,curses,structural overhaul */
- /*:11-14-1995-10:23-wht@kepler-3.37.80-source control point: SOCKETS */
- /*:05-04-1994-04:39-wht@n4hgf-ECU release 3.30 */
- /*:09-10-1992-13:59-wht@n4hgf-ECU release 3.20 */
- /*:08-22-1992-15:39-wht@n4hgf-ECU release 3.20 BETA */
- /*:07-25-1991-12:58-wht@n4hgf-ECU release 3.10 */
- /*:08-14-1990-20:40-wht@n4hgf-ecu3.00-flush old edit history */
- /*+-------------------------------------------------------------------------
- all touuper/tolower not created equally, so this works!
- --------------------------------------------------------------------------*/
- char
- to_upper(ch)
- register int ch;
- {
- return (((ch >= 'a') && (ch <= 'z')) ? ch - 0x20 : ch);
- } /* end of to_upper() */
- char
- to_lower(ch)
- register int ch;
- {
- return (((ch >= 'A') && (ch <= 'Z')) ? ch + 0x20 : ch);
- } /* end of to_lower() */
- /*+-----------------------------------------------------------------------
- pad_zstr_to_len(zstr,len)
- pads with spaces to specified length, unless already longer than
- len in which case the string is truncated to 'len' characters.
- ------------------------------------------------------------------------*/
- void
- pad_zstr_to_len(zstr, len)
- char *zstr;
- int len;
- {
- register int izstr;
- izstr = strlen(zstr);
- if (izstr >= len)
- zstr[len] = 0;
- else
- {
- while (izstr < len)
- zstr[izstr++] = 0x20;
- zstr[izstr] = 0;
- }
- } /* end of pad_zstr_to_len */
|