617: A blob data type must be supplied within this context

/*
**  blob_to_char.c - copy an I4GL TEXT type to an I4GL CHAR type
**  Copyright (C) 1993,2003  David A. Snyder
**
**  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; version
**  2 of the License.
**
**  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., 675 Mass Ave, Cambridge, MA 02139, USA.
*/

#include <locator.h>
#include <string.h>

blob_to_char(arg)
int    arg;
{
    loc_t    *blobp;
    short    charsize, n;
    char    s1[513];

    if (arg != 2)
        fgl_fatal("blob_to_char.c", 30, -1318);

    popshort(&charsize);
    poplocator(&blobp);

    if (charsize < 1)
        charsize = 1;
    if (charsize > 512)
        charsize = 512;
    n = (charsize < blobp->loc_size) ? charsize : blobp->loc_size;
    strncpy(s1, blobp->loc_buffer, n);
    s1[n] = '\0';
    cr_to_spc(s1);

    pushquote(s1, n);
    return(1);
}


cr_to_spc(s)
char    *s;
{
    while (*s)
        *s++ = (*s == '\n') ? ' ' : *s;
}

#include <stdio.h>
#include <math.h>
#include <string.h>
#include <fcntl.h>
#include </usr/informix/incl/tools/locator.h>

/* Determine if there is any data stored in the blob.  Return TRUE if it is null and
FALSE if it isn not NULL
Arguments:
pos: length of passed string
s: string that must be appended or inserted
a: blob, text type
*/

int blob_append(int n)
{

loc_t *a;
char s[257];
int pos, len, needed;

popint(&pos);
popquote(s, sizeof(s));
poplocator(&a);
s[pos]='\0';

if((len = strlen(s)) == 0)
   return 0;

if(a->loc_indicator == -1)
   needed = len;
else
   needed = a->loc_size + len;

if(a->loc_bufsize < needed)
   {
   if(a->loc_buffer == 0)
      a->loc_buffer = malloc(needed);
   else
      a->loc_buffer = realloc(a->loc_buffer, needed);

   if(a->loc_buffer == 0)
      {
      pushint(1);
      return(1);
      }
   a->loc_bufsize = needed;
   }

if(a->loc_indicator == -1)
   {
   memcpy(a->loc_buffer, s, len);
   a->loc_size = len;
   a->loc_indicator = 0;
   }
else
   {
   memcpy(a->loc_buffer + a->loc_size, s, len);
   a->loc_size += len;
   }

a->loc_currdata_p = a->loc_buffer + a->loc_size;
pushint(0);
return(1);
}

MAIN

DEFINE string CHAR(50),
       ret_code INTEGER,
       len INTEGER,
       testblob TEXT

LOCATE testblob IN MEMORY

LET string = "this is string 1"
LET len = length(string)
call blob_append(testblob, string, len) returning ret_code
display testblob
display ""
display ""
LET string = "now, append string 2"
LET len = length(string)
call blob_append(testblob, string, len) returning ret_code
display testblob
LET string = "another string of variable length"
LET len = length(string)
call blob_append(testblob, string, len) returning ret_code
display testblob

free testblob
END MAIN