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

mescc/elf.mes: write minimal ELF header.

Browse source
This commit is contained in:
Jan Nieuwenhuizen 2016-08-12 14:17:55 +02:00
parent 2097e9e4ef
commit 0829c5762c
4 changed files with 22 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
.gitignore vendored
View file

@ -2,6 +2,7 @@
*.go *.go
*.o *.o
*~ *~
/a.out
/mes /mes
/mes.h /mes.h
/environment.i /environment.i

2
GNUmakefile
View file

@ -118,7 +118,7 @@ guile-paren: paren.test
echo '___P((()))' | guile -s $^ echo '___P((()))' | guile -s $^
mescc: all mescc: all
echo ' EOF ' | cat base0.mes base0-$(CONDIF).mes base.mes quasiquote.mes let.mes scm.mes syntax-cond.mes lib/srfi/srfi-0.scm lib/record.mes lib/record.scm lib/srfi/srfi-9.scm lib/lalr.mes lib/lalr.scm c-lexer.scm mescc.scm - main.c | ./mes echo ' EOF ' | cat base0.mes base0-$(CONDIF).mes base.mes quasiquote.mes let.mes scm.mes syntax-cond.mes lib/srfi/srfi-0.scm lib/record.mes lib/record.scm lib/srfi/srfi-9.scm lib/lalr.mes lib/lalr.scm c-lexer.scm mescc.scm - main.c | ./mes > a.out
mescc.test: lib/lalr.scm c-lexer.scm mescc.scm mescc.test: lib/lalr.scm c-lexer.scm mescc.scm
cat $^ > $@ cat $^ > $@

12
elf.mes Normal file
View file

@ -0,0 +1,12 @@
;;; -*-scheme-*-
(write-char #x7f)
(write-char #x45)
(write-char #x4c)
(write-char #x46)
(write-char #x08)
(write-char #x48)
(write-char #x65)
(write-char #x6c)
(write-char #x6c)
(write-char #x6f)

10
mescc.scm
View file

@ -405,6 +405,12 @@
(lambda () (lambda ()
(c-parser (c-lexer errorp) errorp)))) (c-parser (c-lexer errorp) errorp))))
(display "program: ") (display "program: " 2)
(display (mescc)) (display (mescc) 2)
(newline 2)
(define elf-header '(#x7f #E #L #F #x01))
(define elf-header '(#x7f #x45 #x4c #x46 #x01))
(map write-char elf-header)
(newline) (newline)