mes/scaffold/tests/7c-dynarray.c

138 lines
3.6 KiB
C
Raw Normal View History

/* -*-comment-start: "//";comment-end:""-*-
* Mes --- Maxwell Equations of Software
* Copyright © 2017 Jan Nieuwenhuizen <janneke@gnu.org>
*
* This file is part of Mes.
*
* Mes 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 3 of the License, or (at
* your option) any later version.
*
* Mes 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 Mes. If not, see <http://www.gnu.org/licenses/>.
*/
#include "30-test.i"
#include <mlibc.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
void
add (void *ptab, int *nb_ptr, void *data)
{
int nb, nb_alloc;
int **pp;
nb = *nb_ptr;
pp = *(void ***)ptab;
/* every power of two we double array size */
if ((nb & (nb - 1)) == 0) {
if (!nb)
nb_alloc = 1;
else
nb_alloc = nb * 2;
pp = realloc (pp, nb_alloc * sizeof(void *));
*(void***)ptab = pp;
}
pp[nb++] = data;
*nb_ptr = nb;
}
typedef struct file {
char name[4];
} file_struct;
struct state {
int bla;
char **paths;
int path_count;
struct file **files;
//file_struct **files;
int file_count;
};
struct state g_s;
int
test ()
{
struct state *s = &g_s;
char* file_name = "file-name";
struct file *file;
file = malloc (sizeof (struct file) + strlen (file_name));
strcpy (file->name, file_name);
add (&s->files, &s->file_count, file);
char *path_name = "foo:bar:baz";
add (&s->paths, &s->path_count, path_name);
if (strcmp (*s->paths, path_name)) return 1;
eputs ("&PATHS="); eputs (itoa (&s->paths)); eputs ("\n");
eputs ("&FILES="); eputs (itoa (&s->files)); eputs ("\n");
struct file *fs;
eputs ("foo\n");
fs = s->files[0];
eputs ("add s= "); eputs (itoa (s)); eputs ("\n");
eputs ("add fs= "); eputs (itoa (fs)); eputs ("\n");
eputs ("&fs->[0]="); eputs (itoa (fs->name)); eputs ("\n");
eputs ("fs->name="); eputs (fs->name); eputs ("\n");
eputs ("ps= "); eputs (itoa (s->paths)); eputs ("\n");
eputs ("*ps "); eputs (*s->paths); eputs ("\n");
if (strcmp (fs->name, file_name)) return 2;
eputs ("&fs->[0]="); eputs (itoa (fs->name)); eputs ("\n");
eputs ("fs->name="); eputs (fs->name); eputs ("\n");
eputs ("ps= "); eputs (itoa (s->paths)); eputs ("\n");
eputs ("*ps "); eputs (*s->paths); eputs ("\n");
file = malloc (sizeof (struct file) + strlen (file_name));
file_name = "hallo";
strcpy (file->name, file_name);
add (&s->files, &s->file_count, file);
struct file **pf = s->files;
fs = pf[0];
eputs ("\n");
eputs ("&fs0*= "); eputs (itoa (&pf[0])); eputs ("\n");
eputs ("fs0*= "); eputs (itoa (fs)); eputs ("\n");
fs = s->files[0];
eputs ("fs0*= "); eputs (itoa (fs)); eputs ("\n");
eputs ("\n");
pf = s->files;
fs = pf[1];
eputs ("&fs1*= "); eputs (itoa (&pf[1])); eputs ("\n");
eputs ("fs1*= "); eputs (itoa (fs)); eputs ("\n");
fs = s->files[1];
eputs ("fs1*= "); eputs (itoa (fs)); eputs ("\n");
eputs ("\n");
if (strcmp (fs->name, file_name)) return 3;
fs = g_s.files[0];
eputs ("gfs0*= "); eputs (itoa (fs)); eputs ("\n");
fs = g_s.files[1];
eputs ("gfs1*= "); eputs (itoa (fs)); eputs ("\n");
eputs ("\n");
if (strcmp (fs->name, file_name)) return 3;
return 0;
}