~rabbits/left

df04d3ed35448f6d8a47b8073c9f1a6d1e0ace91 — Devine Lu Linvega 3 months ago 437bb95
Housekeeping
1 files changed, 11 insertions(+), 7 deletions(-)

M src/main.tal
M src/main.tal => src/main.tal +11 -7
@@ 444,7 444,7 @@ JMP2r

@addr-to-width ( addr* -- width* )

	;scan-font JSR2 LDAk #00 SWP 
	;scan-font JSR2 LDAk #00 SWP
	.textarea/font LDZ2 ADD2 LDA #00 SWP

JMP2r


@@ 838,11 838,13 @@ JMP2r

@scan-color ( addr* -- addr* )

	( on spacer ) DUP2 #0001 SUB2 LDA #21 LTH JMP JMP2r

	.textarea/highlight LDZ ,&default JCN
	.textarea/commented LDZ ,&comment JCN
	( on spacer ) DUP2 #0001 SUB2 LDA #21 LTH JMP JMP2r

	( labels ) LDAk DUP LIT "@ EQU SWP LIT "& EQU ORA ,&label JCN
	( includes ) LDAk LIT "~ EQU ,&include JCN
	( includes ) LDAk #7d GTH ,&include JCN
	( tab-enter ) LDA2k #090a EQU2 ,&include JCN
	&default #01 .textarea/color STZ JMP2r
	&label #02 .textarea/color STZ JMP2r


@@ 853,16 855,18 @@ JMP2r

@scan-font ( addr* -- addr* )

	.textarea/fixed LDZ ;&fixed-width JCN2
	.textarea/highlight LDZ ;&default JCN2
	( on spacer ) DUP2 #0001 SUB2 LDA #21 LTH JMP JMP2r

	.textarea/fixed LDZ ;&fixed JCN2
	.textarea/highlight LDZ ;&default JCN2

	LDAk #28 NEQ ,&no-paren-open JCN
		#01 .textarea/commented STZ ,&default JMP
		&no-paren-open
	DUP2 #0002 SUB2 LDA #29 NEQ ,&no-paren-close JCN
		#00 .textarea/commented STZ ,&resume JMP
		&no-paren-close
	( ignore comment ) .textarea/commented LDZ ,&end JCN
	( comment ) .textarea/commented LDZ ,&end JCN
	&resume
	( special1 ) LDAk #30 LTH ,&bold JCN
	( special2 ) LDAk DUP #39 GTH SWP #41 LTH AND ,&bold JCN


@@ 870,7 874,7 @@ JMP2r
		;font .textarea/font STZ2 JMP2r
	&bold
		;font-bold .textarea/font STZ2 JMP2r
	&fixed-width
	&fixed
		;font-fixed .textarea/font STZ2
	&end