sforman
/
Thun
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Build defs.pl from defs.txt.

This commit is contained in:
Simon Forman 2019-08-10 22:03:44 -07:00
parent 90bccece6a
commit e49b0b70cb
5 changed files with 9 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
thun/gnu-prolog/Makefile
View File

@ -1,8 +1,8 @@
GPLC_OPTIONS="--min-size" GPLC_OPTIONS="--min-size"
thun: thun.pl parser.pl defs.pl thun: thun.pl parser.pl defs.pl
gplc $(GPLC_OPTIONS) -o thun thun.pl parser.pl gplc $(GPLC_OPTIONS) -o thun thun.pl parser.pl defs.pl
defs.pl: meta-defs.pl parser.pl defs.txt defs.pl: meta-defs.pl parser.pl defs.txt
gprolog --consult-file meta-defs.pl --consult-file parser.pl --query-goal do > defs.pl gprolog --consult-file meta-defs.pl --consult-file parser.pl --query-goal do

12
thun/gnu-prolog/defs.pl
View File

@ -1,12 +1,3 @@
GNU Prolog 1.4.4 (64 bits)
Compiled Oct 11 2018, 14:29:28 with cc
By Daniel Diaz
Copyright (C) 1999-2013 Daniel Diaz
compiling /home/sforman/src/Joypy/thun/gnu-prolog/meta-defs.pl for byte code...
/home/sforman/src/Joypy/thun/gnu-prolog/meta-defs.pl compiled, 40 lines read - 4480 bytes written, 6 ms
compiling /home/sforman/src/Joypy/thun/gnu-prolog/parser.pl for byte code...
/home/sforman/src/Joypy/thun/gnu-prolog/parser.pl compiled, 72 lines read - 7481 bytes written, 8 ms
| ?- do.
def(--,[1,-]). def(--,[1,-]).
def(?,[dup,bool]). def(?,[dup,bool]).
def(++,[1,+]). def(++,[1,+]).
@ -16,7 +7,6 @@ def(app2,[[grba,swap,grba,swap],dip,[infrst],cons,ii]).
def(app3,[3,appN]). def(app3,[3,appN]).
def(appN,[[grabN],cons,dip,map,disenstacken]). def(appN,[[grabN],cons,dip,map,disenstacken]).
def(at,[drop,first]). def(at,[drop,first]).
def(average,[[sum,1,.0,*],[size],cleave,/]).
def(b,[[i],dip,i]). def(b,[[i],dip,i]).
def(binary,[unary,popd]). def(binary,[unary,popd]).
def(ccons,[cons,cons]). def(ccons,[cons,cons]).
@ -67,7 +57,7 @@ def(shunt,[[swons],step]).
def(size,[0,swap,[pop,++],step]). def(size,[0,swap,[pop,++],step]).
def(split_at,[[drop],[take],clop]). def(split_at,[[drop],[take],clop]).
def(sqr,[dup,*]). def(sqr,[dup,*]).
def(step_zero,[0,roll>,step]). def(step_zero,[0,rollup,step]).
def(sum,[0,swap,[+],step]). def(sum,[0,swap,[+],step]).
def(swons,[swap,cons]). def(swons,[swap,cons]).
def(take,[[],rolldown,[shift],times,pop]). def(take,[[],rolldown,[shift],times,pop]).

5
thun/gnu-prolog/defs.txt
View File

@ -7,7 +7,6 @@ app2 == [grba swap grba swap] dip [infrst] cons ii
app3 == 3 appN app3 == 3 appN
appN == [grabN] cons dip map disenstacken appN == [grabN] cons dip map disenstacken
at == drop first at == drop first
average == [sum 1.0 *] [size] cleave /
b == [i] dip i b == [i] dip i
binary == unary popd binary == unary popd
ccons == cons cons ccons == cons cons
@ -58,7 +57,7 @@ shunt == [swons] step
size == 0 swap [pop ++] step size == 0 swap [pop ++] step
split_at == [drop] [take] clop split_at == [drop] [take] clop
sqr == dup * sqr == dup *
step_zero == 0 roll> step step_zero == 0 rollup step
sum == 0 swap [+] step sum == 0 swap [+] step
swons == swap cons swons == swap cons
take == [] rolldown [shift] times pop take == [] rolldown [shift] times pop
@ -69,4 +68,4 @@ unit == [] cons
unquoted == [i] dip unquoted == [i] dip
unswons == uncons swap unswons == uncons swap
while == swap [nullary] cons dup dipd concat loop while == swap [nullary] cons dup dipd concat loop
x == dup i x == dup i

6
thun/gnu-prolog/meta-defs.pl
View File

@ -34,7 +34,9 @@ stream_to_codes(Ch, Stream, [Ch|Codes]) :- stream_to_codes(Stream, Codes).
print_defs :- print_defs :-
findall(def(Name, Body), def(Name, Body), List), findall(def(Name, Body), def(Name, Body), List),
maplist(print_def, List). open(`defs.pl`, write, Stream),
maplist(print_def(Stream), List),
close(Stream).
print_def(Def) :- write(Def), write(`.`), nl. print_def(Stream, Def) :- write(Stream, Def), write(Stream, `.`), nl(Stream).

10
thun/gnu-prolog/thun.pl
View File

@ -196,16 +196,6 @@ prepare_mapping( P, S, [T|In], Acc, Out) :-
/*
Definitions
*/
def(x, [dup, i]).
/* /*
Main Loop Main Loop
*/ */