artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

mescc.scm: print two strings.

Browse source
This commit is contained in:
Jan Nieuwenhuizen 2016-08-14 09:06:09 +02:00
parent 2c7f26dbe6
commit 04eb0609cd
2 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
main.c
View file

@ -1,5 +1,6 @@
int main () int main ()
{ {
puts ("Hello, [messi] world!"); puts ("Hi Mes!\n");
puts ("Hello, world!\n");
return 1; return 1;
} }

9
mescc.scm
View file

@ -472,11 +472,12 @@
(string->list (cadr (caddr o)))) (string->list (cadr (caddr o))))
'())) '()))
(define (statement->text o) (define (statement->text data o)
(cond (cond
((and (pair? o) (eq? (car o) 'call)) ((and (pair? o) (eq? (car o) 'call))
(let ((string (cadr (caddr o)))) (let ((string (cadr (caddr o)))
(list (lambda (data) (i386:puts data (string-length string)))))) (offset (length data)))
(list (lambda (data) (i386:puts (+ data offset) (string-length string))))))
((and (pair? o) (eq? (car o) 'return)) ((and (pair? o) (eq? (car o) 'return))
(list (lambda (data) (i386:exit (cadr o))))) (list (lambda (data) (i386:exit (cadr o)))))
(else '()))) (else '())))
@ -500,5 +501,5 @@
(display statement (current-error-port)) (display statement (current-error-port))
(newline (current-error-port)) (newline (current-error-port))
(loop (cdr statements) (loop (cdr statements)
(append text (statement->text statement)) (append text (statement->text data statement))
(append data (statement->data statement))))))) (append data (statement->data statement)))))))