gforth/primitives2c.el - diff

Return to primitives2c.el CVS log

Up to [gforth] / gforth

version 1.2, 1994/05/03 19:10:35	version 1.3, 1994/05/05 15:46:52
Line 60	Line 60

(defun alias-filter (forth-name stack-effect standards c-name doku code forth-code)	(defun alias-filter (forth-name stack-effect standards c-name doku code forth-code)
(setq primitive-number (+ 1 primitive-number))	(setq primitive-number (+ 1 primitive-number))
(format "%s Alias %s" (- -5 primitive-number) forth-name))	(format "%s Alias %s" (- -7 primitive-number) forth-name))

(defun c-filter (forth-name stack-effect standards c-name doku code forth-code)	(defun c-filter (forth-name stack-effect standards c-name doku code forth-code)
"c code for the primitive"	"c code for the primitive"
(let ((effects (parse-stack-effect stack-effect)))	(let ((effects (parse-stack-effect stack-effect)))
(format "I_%s: /* %s ( %s ) /\n/ %s */\n{\nLabel ca;\n%s\nNAME(\"%s\")\n{\n%s}\nNEXT_P1;\n%sNEXT1_P2;\n}\n"	(format "I_%s: /* %s ( %s ) /\n/ %s */\n{\nDEF_CA\n%s\nNAME(\"%s\")\n{\n%s}\nNEXT_P1;\n%sNEXT1_P2;\n}\n"
c-name forth-name stack-effect doku	c-name forth-name stack-effect doku
(prefix effects) forth-name code (suffix effects))))	(prefix effects) forth-name code (suffix effects))))