init_map.c

Go to the documentation of this file.

/*--------------------------------------------------------------------------*/

/* inititializes the random file with descriptor "fd" with "nofRows" rows
   of zero values columns. each row consists of "nofCols" columns. 
   assumes that the file is rewound and empty.

   returns 1 if successful and 0 for any kind of error. */

#include "G.h"

/*--------------------------------------------------------------------------*/

int G__random_d_initialize_0(int fd, int nofRows, int nofCols)
{
    struct fileinfo *fcb = &G__.fileinfo[fd];
    int row, col;
    double zeroVal, *zeroValP;
    register XDR *xdrs;

    xdrs = &fcb->xdrstream;     /* xdr stream is initialized to write into */
    xdr_setpos(xdrs, 0);        /* G__.work_buf in 'opencell.c' */

    zeroVal = 0;
    zeroValP = &zeroVal;

    for (col = nofCols; col--;)
        if (!xdr_double(xdrs, zeroValP)) {
            G_warning
                ("G_random_d_initialize_0: xdr_double failed for index %d.\n",
                 col);
            return -1;
        }

    for (row = 0; row < nofRows; row++)
        if (G__write_data(fd, row, nofCols) == -1) {
            G_warning("G_random_d_initialize_0: write failed in row %d.\n",
                      row);
            return -1;
        }

    return 1;
}

/*--------------------------------------------------------------------------*/

/* inititializes the random file with descriptor "fd" with "nofRows" rows
   of zero values columns. each row consists of "nofCols" columns. 
   assumes that the file is rewound and empty.

   returns 1 if successful and 0 for any kind of error. */


int G__random_f_initialize_0(int fd, int nofRows, int nofCols)
{
    struct fileinfo *fcb = &G__.fileinfo[fd];
    int row, col;
    float zeroVal, *zeroValP;
    register XDR *xdrs;


    xdrs = &fcb->xdrstream;     /* xdr stream is initialized to write into */
    xdr_setpos(xdrs, 0);        /* G__.work_buf in 'opencell.c' */

    zeroVal = 0;
    zeroValP = &zeroVal;

    for (col = nofCols; col--;)
        if (!xdr_float(xdrs, zeroValP)) {
            G_warning
                ("G_random_f_initialize_0: xdr_float failed for index %d.\n",
                 col);
            return 0;
        }

    for (row = 0; row < nofRows; row++)
        if (G__write_data(fd, row, nofCols) == -1) {
            G_warning("G_random_f_initialize_0: write failed in row %d.\n",
                      row);
            return 0;
        }

    return 1;
}

/*--------------------------------------------------------------------------*/