113 lines
1.8 KiB
C
113 lines
1.8 KiB
C
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
|
|
#include "blang.h"
|
|
|
|
/* no-op */
|
|
void Ops_bang(struct State *s){
|
|
return;
|
|
}
|
|
|
|
void Ops_percent(struct State *s){
|
|
*(s->chart) = s->hand;
|
|
}
|
|
|
|
void Ops_carat(struct State *s){
|
|
s->hand = 0;
|
|
}
|
|
|
|
void Ops_ampersand(struct State *s){
|
|
s->hand = (uint64_t)s->chart;
|
|
}
|
|
|
|
void Ops_splat(struct State *s){
|
|
s->chart = (char *)s->hand;
|
|
}
|
|
|
|
void Ops_plus(struct State *s){
|
|
++(s->hand);
|
|
}
|
|
|
|
void Ops_dash(struct State *s){
|
|
--(s->hand);
|
|
}
|
|
|
|
void Ops_lbrack(struct State *s){
|
|
s->point = s->counter;
|
|
}
|
|
|
|
void Ops_rbrack(struct State *s){
|
|
s->counter = s->point;
|
|
}
|
|
|
|
void Ops_left(struct State *s){
|
|
s->hand = *++s->counter;
|
|
}
|
|
|
|
void Ops_right(struct State *s){
|
|
putc((char)s->hand, stdout);
|
|
}
|
|
|
|
void Ops_what(struct State *s){
|
|
if(!s->hand)
|
|
++(s->counter);
|
|
}
|
|
|
|
void Ops_semi(struct State *s){
|
|
int c;
|
|
|
|
while(strchr("!\n", *++s->counter) == NULL);
|
|
}
|
|
|
|
void Ops_mirror(struct State *s){
|
|
s->hand = !s->hand;
|
|
}
|
|
|
|
void Ops_cross(struct State *s){
|
|
char *i;
|
|
i = s->chart;
|
|
s->chart = (char *)s->hand;
|
|
s->hand = (uint64_t)i;
|
|
}
|
|
|
|
const struct {
|
|
unsigned char name;
|
|
void (*f)(struct State *);
|
|
} OPS[] = {
|
|
{ '#', Ops_semi },
|
|
{ '%', Ops_percent },
|
|
{ '^', Ops_carat },
|
|
{ '&', Ops_ampersand },
|
|
{ '*', Ops_splat },
|
|
{ '+', Ops_plus },
|
|
{ '-', Ops_dash },
|
|
{ '{', Ops_lbrack },
|
|
{ '}', Ops_rbrack },
|
|
{ ';', Ops_semi },
|
|
{ '>', Ops_right },
|
|
{ '<', Ops_left },
|
|
{ '?', Ops_what },
|
|
{ 'v', Ops_mirror },
|
|
{ 'x', Ops_cross },
|
|
|
|
/* no-ops */
|
|
{ '!', Ops_bang },
|
|
{ ' ', Ops_bang },
|
|
{ '\n', Ops_bang },
|
|
{ '\r', Ops_bang },
|
|
{ '\t', Ops_bang },
|
|
{ '\v', Ops_bang }
|
|
};
|
|
|
|
/* Slower than a switch but you don't have to update it when you add new
|
|
* ops! */
|
|
void (*Ops_lookup(char op))(struct State *){
|
|
size_t i;
|
|
|
|
for(i = 0; i < (sizeof OPS)/(sizeof *OPS); ++i)
|
|
if(op == OPS[i].name)
|
|
return OPS[i].f;
|
|
return NULL;
|
|
}
|