--- psiconv/trunk/lib/psiconv/list.c	2000/12/13 16:17:54	62
+++ psiconv/trunk/lib/psiconv/list.c	2000/12/24 16:34:19	74
@@ -1,6 +1,6 @@
 /*
     list.c - Part of psiconv, a PSION 5 file formats converter
-    Copyright (c) 1999  Frodo Looijaard <frodol@dds.nl>       
+    Copyright (c) 1999, 2000  Frodo Looijaard <frodol@dds.nl>       
 
     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
@@ -19,6 +19,7 @@
 
 
 #include "config.h"
+#include "compat.h"
 #include <stddef.h>
 #include <stdlib.h>
 #include <stdio.h>
@@ -80,10 +81,11 @@
     return ((char *) (l->els)) + indx * l->el_size;
 }
 
-int psiconv_list_add(psiconv_list l, void *el)
+int psiconv_list_add(psiconv_list l, const void *el)
 {
-  if (psiconv_list_resize(l,l->cur_len + 1))
-    return -PSICONV_E_NOMEM;
+  int res;
+  if ((res = psiconv_list_resize(l,l->cur_len + 1)))
+    return res;
   memcpy(((char *) (l->els)) + l->cur_len * l->el_size, el, l->el_size);
   l->cur_len ++;
   return 0;
@@ -112,7 +114,6 @@
   
 }
 
-
 size_t psiconv_list_fread(psiconv_list l,size_t size, FILE *f)
 {
   size_t res;
@@ -123,6 +124,29 @@
   return res;
 }
 
+int psiconv_list_fread_all(psiconv_list l, FILE *f)
+{
+  while (!feof(f)) {
+    if (!psiconv_list_fread(l,1024,f)) 
+      return -PSICONV_E_NOMEM;
+  }
+  return -PSICONV_E_OK;
+}
+
+int psiconv_list_fwrite_all(const psiconv_list l, FILE *f)
+{
+  int pos = 0;
+  int written;
+  int len = psiconv_list_length(l);
+  while (pos < len) {
+    if (!(written = fwrite(((char *)(l->els)) + pos * l->el_size,l->el_size,
+                           len - pos,f)))
+      return -PSICONV_E_OTHER;
+    pos += written;
+  }
+  return -PSICONV_E_OK;
+}
+
 int psiconv_list_resize(psiconv_list l,unsigned int nr)
 {
   void * temp;
@@ -136,5 +160,17 @@
     } else
       return -PSICONV_E_NOMEM;
   }
+  return 0;
 }
 
+int psiconv_list_concat(psiconv_list l, const psiconv_list extra)
+{
+  int res;
+  if ((res = psiconv_list_resize(l,
+                     l->cur_len + extra->cur_len * extra->el_size)))
+    return res;
+  /* Unreadable but correct. */
+  memcpy(((char *) (l->els)) + l->cur_len * l->el_size,extra->els,
+         extra->cur_len * extra->el_size);
+  return 0;
+}