diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /support/xetal/str.c |
Initial commit
Diffstat (limited to 'support/xetal/str.c')
-rw-r--r-- | support/xetal/str.c | 49 |
1 files changed, 49 insertions, 0 deletions
diff --git a/support/xetal/str.c b/support/xetal/str.c new file mode 100644 index 0000000000..ed82c521c2 --- /dev/null +++ b/support/xetal/str.c @@ -0,0 +1,49 @@ +/* + elementary strings handling, + Copyright (C) 1991 Raphael Cerf (e-mail: cerf@ens.ens.fr) + + This file is part of xetal. + + 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 1, 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; if not, write to the Free Software + Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +*/ + +#include "str.h" + +/* + * strings handling + */ + +char *str_create(l) +int l; +{ + return((char *)malloc(l*sizeof(char))); +} + +int str_destroy(s) +char *s; +{ + free(s); +} + +int show_array(a, n) +char *a[]; +int n; +{ + int i; + + for (i=0; i<n; i++) { + printf("%d:%s\n", i, a[i]); + } +} |