Function sarrayWriteStream

deps/leptonica/src/sarray1.c:1513–1536

! * \brief sarrayWriteStream() * * \param[in] fp file stream * \param[in] sa string array * \return 0 if OK; 1 on error * * * Notes: * (1) This appends a '\n' to each string, which is stripped * off by sarrayReadStream(). * */

 * </pre>
 */
l_int32
sarrayWriteStream(FILE    *fp,
                  SARRAY  *sa)
{
l_int32  i, n, len;

    PROCNAME("sarrayWriteStream");

    if (!fp)
        return ERROR_INT("stream not defined", procName, 1);
    if (!sa)
        return ERROR_INT("sa not defined", procName, 1);

    n = sarrayGetCount(sa);
    fprintf(fp, "\nSarray Version %d\n", SARRAY_VERSION_NUMBER);
    fprintf(fp, "Number of strings = %d\n", n);
    for (i = 0; i < n; i++) {
        len = strlen(sa->array[i]);
        fprintf(fp, "  %d[%d]:  %s\n", i, len, sa->array[i]);
    }
    fprintf(fp, "\n");

    return 0;
}


/*!