|
Last change
on this file since 608 was
49,
checked in by Sam Hocevar, 15 years ago
|
- Imported original public domain release, for future reference.
|
|
File size:
834 bytes
|
| Line | |
|---|
| 1 | (setq __gen 0)
(setq indent 0)
(defun gen_sym (base)
(concatenate 'string (symbol-name base) (digstr (setq __gen (+ __gen 1)) 5)))
(defun print_indent (level)
(if (eq level 0)
nil
(progn
(print " ")
(print_indent (- level 1)))))
(defun pi ()
(print_indent indent))
(defun i+ () (setq indent (+ indent 2)))
(defun i- () (setq indent (- indent 2)))
(defun compile-if (? x y)
(compile ?)
(pi) (print "if (pop())\n")
(pi) (print "{\n") (i+)
(compile x) (i-)
(pi) (print "} else\n")
(pi) (print "{\n") (i+)
(compile y) (i-)
(pi) (print "}\n")
)
(defun
(defun compile (val)
(if (listp val
(select (car list)
('if (compile-if
(print (if a 1 2))
push(a)
if (pop())
push(1)
else push(2);
print(pop())
|
|---|
Note: See
TracBrowser
for help on using the repository browser.
