linguist/bitmap.frt at 9e50e188a813ce5a1885d40c8aacd8b0128377c7 - linguist - Schleppe Git

KevinMidboe/linguist

mirror of https://github.com/KevinMidboe/linguist.git synced 2025-10-29 09:40:21 +00:00

Files

Arfon Smith 9e50e188a8 Merge branch 'master' into 1233-local

Conflicts:
	lib/linguist/language.rb
	lib/linguist/languages.yml
	lib/linguist/samples.json

2014-11-01 10:04:22 -05:00

9 lines

337 B

Forth

Raw Blame History

 \ Bit arrays.
 : bits ( u1 -- u2 ) 7 + 3 rshift ;
 : bitmap ( u "name" -- ) create bits here over erase allot
    does> ( u -- a x ) over 3 rshift +  1 rot 7 and lshift ;
 : bit@ ( a x -- f ) swap c@ and ;
 : 1bit ( a x -- ) over c@ or swap c! ;
 : 0bit ( a x -- ) invert over c@ and swap c! ;
 : bit! ( f a x -- ) rot if 1bit else 0bit then ;