95 lines
2.3 KiB
C
95 lines
2.3 KiB
C
|
#include <assert.h>
|
||
|
|
#include <ctype.h>
|
||
|
|
#include <errno.h>
|
||
|
|
#include <limits.h>
|
||
|
|
#include <math.h>
|
||
|
|
#include <setjmp.h>
|
||
|
|
#include <stdarg.h>
|
||
|
|
#include <stdint.h>
|
||
|
|
#include <stdio.h>
|
||
|
|
#include <stdlib.h>
|
||
|
|
#include <string.h>
|
||
|
|
|
||
|
|
#include "dtypes.h"
|
||
|
|
#include "utils.h"
|
||
|
|
#include "utf8.h"
|
||
|
|
#include "ios.h"
|
||
|
|
#include "socket.h"
|
||
|
|
#include "timefuncs.h"
|
||
|
|
#include "hashing.h"
|
||
|
|
#include "htable.h"
|
||
|
|
#include "htableh_inc.h"
|
||
|
|
#include "bitvector.h"
|
||
|
|
#include "os.h"
|
||
|
|
#include "random.h"
|
||
|
|
#include "llt.h"
|
||
|
|
|
||
|
|
#include "flisp.h"
|
||
|
|
|
||
|
|
#include "argcount.h"
|
||
|
|
#include "buf.h"
|
||
|
|
|
||
|
|
static void push(value_t *tailp, value_t elt)
|
||
|
|
{
|
||
|
|
value_t new_tail;
|
||
|
|
|
||
|
|
new_tail = cdr_(*tailp) = fl_cons(elt, FL_NIL);
|
||
|
|
*tailp = new_tail;
|
||
|
|
}
|
||
|
|
|
||
|
|
value_t builtin_read_ini_file(value_t *args, uint32_t nargs)
|
||
|
|
{
|
||
|
|
static const char newline[] = "\n\r";
|
||
|
|
static const char ends_var[] = "\n\r\"";
|
||
|
|
static const char anywhite[] = " \t\n\r";
|
||
|
|
static const char linewhite[] = " \t";
|
||
|
|
static const char varname[] = "_ABCDEFGHIJKLMNOPQRSTUVWXYZ";
|
||
|
|
struct buf *b;
|
||
|
|
struct ios *s;
|
||
|
|
value_t head, tail, name, value;
|
||
|
|
|
||
|
|
argcount("read-ini-file", nargs, 1);
|
||
|
|
fl_toiostream(args[0], "read-ini-file");
|
||
|
|
s = value2c(struct ios *, args[0]);
|
||
|
|
b = buf_new();
|
||
|
|
buf_put_ios(b, s);
|
||
|
|
head = tail = fl_cons(FL_NIL, FL_NIL);
|
||
|
|
for (;;) {
|
||
|
|
buf_scan_while(b, anywhite);
|
||
|
|
if (buf_scan_end(b)) {
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
if (buf_scan_byte(b, '#')) {
|
||
|
|
buf_scan_while_not(b, newline);
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
buf_scan_mark(b);
|
||
|
|
buf_scan_while(b, varname);
|
||
|
|
name = string_from_cstrn(b->bytes + b->mark, b->scan - b->mark);
|
||
|
|
buf_scan_while(b, linewhite);
|
||
|
|
if (!buf_scan_byte(b, '=')) {
|
||
|
|
buf_scan_while_not(b, newline);
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
buf_scan_while(b, linewhite);
|
||
|
|
buf_scan_byte(b, '"');
|
||
|
|
buf_scan_mark(b);
|
||
|
|
buf_scan_while_not(b, ends_var);
|
||
|
|
value = string_from_cstrn(b->bytes + b->mark, b->scan - b->mark);
|
||
|
|
buf_scan_while(b, linewhite);
|
||
|
|
push(&tail, fl_cons(name, value));
|
||
|
|
if (!buf_scan_while(b, newline)) {
|
||
|
|
buf_scan_while_not(b, newline);
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return head;
|
||
|
|
}
|
||
|
|
|
||
|
|
value_t builtin_write_ini_file(value_t *args, uint32_t nargs)
|
||
|
|
{
|
||
|
|
argcount("write-ini-file", nargs, 2);
|
||
|
|
(void)args;
|
||
|
|
return FL_NIL;
|
||
|
|
}
|