Hint refactoring.

This commit is contained in:
C. Guy Yarvin 2014-01-04 14:57:44 -08:00
parent d4ebecde86
commit 2d9019a93d
7 changed files with 14 additions and 9 deletions

View File

@ -34,7 +34,7 @@ LIB=$(PWD)/lib
RM=rm -f
CC=gcc
CLD=gcc -g -L/usr/local/lib -L/opt/local/lib
CLD=gcc -O3 -L/usr/local/lib -L/opt/local/lib
YACC=bison -v -b$(GENERATED)/y
LEX=lex
@ -56,7 +56,7 @@ INCLUDE=include
GENERATED=generated
DEFINES=-DU2_OS_$(OS) -DU2_OS_ENDIAN_$(ENDIAN) -D U2_LIB=\"$(LIB)\"
CFLAGS=-g \
CFLAGS=-O3 \
-I/usr/local/include \
-I/opt/local/include \
-I$(INCLUDE) \

View File

@ -344,6 +344,7 @@
/***
****
***/
/*
_open_do_pq(sgts) // ~=
{
return u2_bt
@ -351,6 +352,7 @@
u2_bc(wir_r, c3__germ, u2_rx(wir_r, p_gen)),
u2_rx(wir_r, q_gen));
}
_open_do_pq(sgbr) // ~|
{
return u2_bt
@ -446,6 +448,7 @@
u2_bq(wir_r, c3__memo, c3__dtsg, u2_blip, u2_rx(wir_r, p_gen)),
u2_rx(wir_r, q_gen));
}
*/
/***
****
***/
@ -581,6 +584,7 @@
_open_pq (brkt);
/*
_open_pq (sgts);
_open_pq (sgbr);
_open_pq (sgcl);
@ -591,7 +595,7 @@
_open_pq (sghx);
_open_pqrs(sgcn);
_open_pq (sgls);
*/
_open_pq (smcl);
// _open_p (smdq);
// _open_pq (smsg);

View File

@ -15,7 +15,7 @@
u2_noun way, // retain
u2_noun cog) // retain
{
// u2_noun dun = j2_mcy(Pt6, ut, dunq)(wir_r, van, "type", sut);
u2_noun dun = j2_mcy(Pt6, ut, dunq)(wir_r, van, "type", sut);
u2_noun nuc = (u2_blip == cog)
? j2_mcy(Pt6, ut, shew)
(wir_r, van,
@ -26,7 +26,7 @@
(wir_r, van, "find-limb", 'a', u2_rx(wir_r, cog));
u2_noun pro;
// u2_bl_push(wir_r, u2_bc(wir_r, c3__mean, dun));
u2_bl_push(wir_r, u2_bc(wir_r, c3__mean, dun));
u2_bl_push(wir_r, u2_bc(wir_r, c3__mean, nuc));
{
u2_noun hoq = j2_mcy(Pt6, ut, find)(wir_r, van, sut, dep, way, cog);
@ -40,7 +40,7 @@
u2_rl_lose(wir_r, hoq);
}
}
// u2_bl_drop(wir_r);
u2_bl_drop(wir_r);
u2_bl_drop(wir_r);
return pro;

View File

@ -764,7 +764,7 @@
u2_rz(wir_r, ruf);
return ret;
}
case c3__sgcb: u2_bi_cell(wir_r, u2_t(gen), &p_gen, &q_gen);
case c3__sgzp: u2_bi_cell(wir_r, u2_t(gen), &p_gen, &q_gen);
_mint_used(wir_r);
{
u2_noun typ = j2_mcy(Pt6, ut, play)(wir_r, van, sut, p_gen);

View File

@ -716,7 +716,7 @@
u2_rz(wir_r, ruf);
return ret;
}
case c3__sgcb: u2_bi_cell(wir_r, u2_t(gen), &p_gen, &q_gen);
case c3__sgzp: u2_bi_cell(wir_r, u2_t(gen), &p_gen, &q_gen);
_mull_used(wir_r);
{
u2_noun typ = j2_mcy(Pt6, ut, play)(wir_r, van, sut, p_gen);

View File

@ -425,7 +425,7 @@
u2_rz(wir_r, ruf);
return ret;
}
case c3__sgcb: u2_bi_cell(wir_r, u2_t(gen), &p_gen, &q_gen);
case c3__sgzp: u2_bi_cell(wir_r, u2_t(gen), &p_gen, &q_gen);
_play_used(wir_r);
{
u2_noun typ = j2_mcy(Pt6, ut, play)(wir_r, van, sut, p_gen);

View File

@ -878,6 +878,7 @@
# define c3__sgsg c3_s4('s','g','s','g')
# define c3__sgsp c3_s4('s','g','s','p')
# define c3__sgts c3_s4('s','g','t','s')
# define c3__sgzp c3_s4('s','g','z','p')
# define c3__show c3_s4('s','h','o','w')
# define c3__shud c3_s4('s','h','u','d')
# define c3__shut c3_s4('s','h','u','t')