Annotation of gforth/arch/misc/fi2v.fs, revision 1.1

1.1     ! pazsan      1: \ kernel to verilog converter
        !             2: 
        !             3: : .## base @ >r hex 0 <# # # #> type r> base ! ;
        !             4: 
        !             5: create item 2 allot
        !             6: 
        !             7: : >v ( addr u -- ) r/o open-file throw >r
        !             8:     ." @0"
        !             9:     BEGIN  item 2 r@ read-file throw  WHILE
        !            10:        cr item c@ .## item char+ c@ .##
        !            11:     REPEAT
        !            12:     cr r> close-file throw ;
        !            13: 
        !            14: script? [IF]
        !            15:    : all2v argc @ 2 ?DO I arg >v LOOP ;
        !            16:    all2v bye
        !            17: [THEN]

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>