io.h

// mind -- a Forth interpreter
// Copyright 2011-2014 Markus Redeker <cep@ibp.de>
//
// Published under the GNU General Public License version 2 or any
// later version, at your choice. There is NO WARRANY, not at all. See
// the file "copying" for details.

#ifndef IO_H
#define IO_H

#include "types.h"

typedef struct {
    cell get;                   // Forth word ( stream -- )
    cell i;                     // Forth word ( stream -- char )
    cell iq;                    // Forth word ( stream -- flag )
} stream_t;

typedef struct {
    stream_t stream;
    cell input;			// (FILE*) Input file
    cell name;                  // (char*) File name
    cell current;		// Character at input position (or EOF)
    cell lineno;		// integer: line number
} textfile_t;

// Structure to iterate over the lines in a file.
typedef struct {
    stream_t stream;
    cell file;			// (FILE*) Input file, or NULL
    cell path;                  // (char*) File path
    cell line;                  // (char*) Line at input position (or NULL)
    cell lineno;		// integer: line number
} lines_t;

char *mind_relative(char *mind_file, char *filename);

void file_open(textfile_t *inf, char* name);
void file_close(textfile_t *inf);
void file_get(textfile_t *inf);

void lines_open(lines_t *seq, char* path);
void lines_close(lines_t *seq);
void lines_get(lines_t *seq);

#endif