nanocoat/src/list.c

   1 /* -*- Mode: C; indent-tabs-mode: t; tab-width: 4 -*-
   2 // ---------------------------------------------------------------------------
   3 // SquirrelJME
   4 //     Copyright (C) Stephanie Gawroriski <xer@multiphasicapps.net>
   5 // ---------------------------------------------------------------------------
   6 // SquirrelJME is under the Mozilla Public License Version 2.0.
   7 // See license.mkd for licensing and copyright information.
   8 // -------------------------------------------------------------------------*/
   9
  10 #include "sjme/list.h"
  11 #include "sjme/alloc.h"
  12 #include "sjme/debug.h"
  13
  14 sjme_errorCode sjme_list_allocR(
  15         sjme_attrInNotNull sjme_alloc_pool* inPool,
  16         sjme_attrInPositive sjme_jint inLength,
  17         sjme_attrOutNotNull void** outList,
  18         sjme_attrInPositive sjme_jint elementSize,
  19         sjme_attrInPositive sjme_jint elementOffset,
  20         sjme_attrInValue sjme_jint pointerCheck)
  21 {
  22         void* result;
  23         sjme_errorCode error;
  24         sjme_jint size;
  25
  26         if (inPool == NULL || outList == NULL)
  27                 return SJME_ERROR_NULL_ARGUMENTS;
  28
  29         if (inLength < 0 || elementSize <= 0 || elementOffset <= 0 ||
  30                 pointerCheck <= 0)
  31                 return SJME_ERROR_INVALID_ARGUMENT;
  32
  33         /* Calculate the size of the list. */
  34         size = elementOffset + (elementSize * inLength);
  35         if (size <= 0)
  36                 return SJME_ERROR_INVALID_ARGUMENT;
  37
  38         /* Forward allocation. */
  39         result = NULL;
  40         if (SJME_IS_ERROR(error = sjme_alloc(inPool, size, &result)) ||
  41                 result == NULL)
  42                 return error;
  43
  44         /* Set size, it is always at the start. */
  45         *((sjme_jint*)result) = inLength;
  46
  47         /* Give the result! */
  48         *outList = result;
  49         return SJME_ERROR_NONE;
  50 }
  51
  52 sjme_errorCode sjme_list_flattenArgCV(
  53         sjme_attrInNotNull sjme_alloc_pool* inPool,
  54         sjme_attrOutNotNull sjme_list_sjme_lpcstr** outList,
  55         sjme_attrInPositive sjme_jint argC,
  56         sjme_attrInNotNull sjme_lpcstr* argV)
  57 {
  58         sjme_todo("Implement this?");
  59         return SJME_ERROR_NOT_IMPLEMENTED;
  60 }
  61
  62 sjme_errorCode sjme_list_flattenR(
  63         sjme_attrInNotNull sjme_alloc_pool* inPool,
  64         sjme_attrInPositive sjme_jint elementSize,
  65         sjme_attrInPositive sjme_jint elementOffset,
  66         sjme_attrInValue sjme_jint pointerCheck,
  67         sjme_attrInNotNull sjme_basicTypeId basicTypeId,
  68         sjme_attrInPositive sjme_jint numPointerStars,
  69         sjme_attrInPositive sjme_jint length,
  70         sjme_attrOutNotNull void** outList,
  71         ...)
  72 {
  73         sjme_message("sjme_list_flattenVR(%p, %d, %d, %d, %d, %d, %d, %p)",
  74                 inPool, elementSize, elementOffset, pointerCheck,
  75                 basicTypeId, numPointerStars, length, outList);
  76
  77         sjme_todo("Implement this?");
  78         return SJME_ERROR_NOT_IMPLEMENTED;
  79 }
  80
  81 sjme_errorCode sjme_list_flattenVR(
  82         sjme_attrInNotNull sjme_alloc_pool* inPool,
  83         sjme_attrInPositive sjme_jint elementSize,
  84         sjme_attrInPositive sjme_jint elementOffset,
  85         sjme_attrInValue sjme_jint pointerCheck,
  86         sjme_attrInNotNull sjme_basicTypeId basicTypeId,
  87         sjme_attrInPositive sjme_jint numPointerStars,
  88         sjme_attrInPositive sjme_jint length,
  89         sjme_attrOutNotNull void** outList,
  90         va_list elements)
  91 {
  92         sjme_message("sjme_list_flattenVR(%p, %d, %d, %d, %d, %d, %d, %p)",
  93                 inPool, elementSize, elementOffset, pointerCheck,
  94                 basicTypeId, numPointerStars, length, outList);
  95
  96         sjme_todo("Implement this?");
  97         return SJME_ERROR_NOT_IMPLEMENTED;
  98 }