~vdupras/duskos

ref: 5d294d8c81cb95765fc96ad7c9ad681db18d3d76 duskos/buildpc.fs -rw-r--r-- 425 bytes
5d294d8cVirgil Dupras posix/vm: fix compilation under cygwin 3 months ago
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
: spit ( a u -- ) >r begin c@+ stderr next ;
: spitfile<<
  word findpath# fopen begin ( fc )
    dup getc dup 0>= while stderr repeat ( fc c ) drop fclose ;
1 to fecho
f<< /xcomp/i386.fs
f<< /xcomp/pc/kernel.fs
xbindict orgifydict
org here org - spit
spitfile<< /xcomp/bootlo.fs
spitfile<< /drv/pc/int13h.fs
spitfile<< /xcomp/pc/glue1.fs
spitfile<< /fs/fatlo.fs
spitfile<< /xcomp/pc/glue2.fs
spitfile<< /xcomp/boothi.fs
bye