d6
/
modal
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Isolated device read/write functions

This commit is contained in:
Devine Lu Linvega 2024-04-28 18:55:03 -07:00
parent 1ddc66e1dd
commit 53b89bcf65
1 changed files with 37 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
src/modal.c
View File

@ -32,16 +32,14 @@ walk(char *s)
}
static void
write_reg(char r, char *reg)
device_write(char *s)
{
char c, *cap = walk(reg);
switch(r) {
case ':': /* op: output */
if(*reg == '(') reg++, --cap;
while(reg < cap) {
c = *reg++;
char c, *cap = walk(s);
if(*s == '(') s++, --cap;
while(s < cap) {
c = *s++;
if(c == '\\') {
switch(*reg++) {
switch(*s++) {
case 't': putc(0x09, stdout); break;
case 'n': putc(0x0a, stdout); break;
case 's': putc(0x20, stdout); break;
@ -49,14 +47,31 @@ write_reg(char r, char *reg)
} else
putc(c, stdout);
}
return;
case '~': { /* op: input */
}
static void
device_read(char *s)
{
char c;
while(fread(&c, 1, 1, stdin) && c >= ' ')
*dst_++ = c;
if(feof(stdin))
*dst_++ = 'E', *dst_++ = 'O', *dst_++ = 'F';
return;
}
static void
write_reg(char r, char *reg)
{
char c, *cap = walk(reg);
switch(r) {
case '>': /* op: output */
case ':':
device_write(reg);
return;
case '<': /* op: input */
case '~':
device_read(reg);
return;
case '^': /* op: join */
if(*reg == '(') reg++, --cap;
while(reg < cap && (c = *reg++))