Aryadev Chavali
118a25055c
We've started composing the stuff we've made so far I/O wise, initialising a stream based off user command line input. We even allow stdin!
89 lines
2.1 KiB
C
89 lines
2.1 KiB
C
/* main.c: Entrypoint
|
|
* Created: 2025-08-19
|
|
* Author: Aryadev Chavali
|
|
* License: See end of file
|
|
* Commentary:
|
|
*/
|
|
|
|
#include <malloc.h>
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
|
|
#include <alisp/alisp.h>
|
|
|
|
void usage(FILE *fp)
|
|
{
|
|
fprintf(fp, "Usage: alisp [OPTIONS...] FILE\n"
|
|
"Options:\n"
|
|
"\t--help Print this usage and exit.\n"
|
|
"File:\n"
|
|
"\t<filename> Read and interpret this file from filesystem.\n"
|
|
"\t-- Read and interpret from stdin using an EOF.\n");
|
|
}
|
|
|
|
int main(int argc, char *argv[])
|
|
{
|
|
int ret = 0;
|
|
if (argc == 1)
|
|
{
|
|
usage(stderr);
|
|
ret = 1;
|
|
goto end;
|
|
}
|
|
else if (argc != 2)
|
|
{
|
|
TODO("alisp doesn't support multiple files currently.");
|
|
}
|
|
|
|
FILE *fp = NULL;
|
|
stream_t stream = {0};
|
|
if (strncmp(argv[1], "--", 2) == 0)
|
|
{
|
|
stream_err_t err = stream_init_pipe(&stream, "stdin", stdin);
|
|
if (err)
|
|
{
|
|
fprintf(stderr, "ERROR: %s from `%s`\n", stream_err_to_cstr(err),
|
|
argv[1]);
|
|
ret = 1;
|
|
goto end;
|
|
}
|
|
}
|
|
else if (strncmp(argv[1], "--help", 6) == 0)
|
|
{
|
|
usage(stdout);
|
|
goto end;
|
|
}
|
|
else
|
|
{
|
|
fp = fopen(argv[1], "rb");
|
|
stream_err_t err = stream_init_file(&stream, argv[1], fp);
|
|
if (err)
|
|
{
|
|
fprintf(stderr, "ERROR: %s from `%s`\n", stream_err_to_cstr(err),
|
|
argv[1]);
|
|
ret = 1;
|
|
goto end;
|
|
}
|
|
}
|
|
|
|
LOG("[INFO]: Initialised stream for `%s`\n", stream.name);
|
|
end:
|
|
if (fp)
|
|
fclose(fp);
|
|
stream_stop(&stream);
|
|
return ret;
|
|
}
|
|
|
|
/* Copyright (C) 2025, 2026 Aryadev Chavali
|
|
|
|
* This program 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 General Public License Version 2 for
|
|
* details.
|
|
|
|
* You may distribute and modify this code under the terms of the GNU General
|
|
* Public License Version 2, which you should have received a copy of along with
|
|
* this program. If not, please go to <https://www.gnu.org/licenses/>.
|
|
|
|
*/
|