Mercurial > hg > forks > yadex
view atclib/al_scps.c @ 117:0612954ba99c default tip
Cosmetics.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Mon, 06 Oct 2014 16:36:48 +0300 |
parents | 241c93442be0 |
children |
line wrap: on
line source
/* * scps.c * al_scps */ /* This file is part of Atclib. Atclib is Copyright © 1995-1999 André Majorel. This library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This library 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with this library; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA. */ #include "atclib.h" int al_scps (char *dest, const char *source, size_t maxlen) { for (; maxlen > 0 && *source; maxlen--) *dest++ = *source++; *dest = '\0'; return *source; } /* eof - scps.c */