palate 0.3.8

File type detection combining tft and hyperpolyglot
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

( Block words. )

variable blk
variable current-block

: block ( n -- addr )
    current-block ! 0 ;

: buffer ( n -- addr )
    current-block ! 0 ;

\ evaluate (extended semantics)
\ flush ( -- )

: load ( ... n -- ... )
    dup current-block !
    blk !
    save-input
    0 >in !
    blk @ block ''source !  1024 ''#source !
    ( interpret )
    restore-input ;

\ save-buffers ( -- )
\ update ( -- )

( Block extension words. )

\ empty-buffers ( -- )

variable  scr

: list ( n -- )
    dup scr !
    dup current-block !
    block 1024 bounds do i @ emit loop ;

\ refill (extended semantics)

: thru ( x y -- )   +1 swap do i load loop ;

\ \ (extended semantics)