mirror of
https://github.com/jart/cosmopolitan.git
synced 2025-01-31 19:43:32 +00:00
b6793d42d5
This change introduces a 2.5kb program that's comes pretty close so far to bootstrapping John McCarthy's metacircular evaluator on bare metal.
10 lines
386 B
C
10 lines
386 B
C
#ifndef COSMOPOLITAN_LIBC_STR_THOMPIKE_H_
|
|
#define COSMOPOLITAN_LIBC_STR_THOMPIKE_H_
|
|
#include "libc/nexgen32e/bsr.h"
|
|
|
|
#define ThomPikeCont(x) ((x & 0b11000000) == 0b10000000)
|
|
#define ThomPikeByte(x) (x & (((1 << ThomPikeMsb(x)) - 1) | 3))
|
|
#define ThomPikeLen(x) (7 - ThomPikeMsb(x))
|
|
#define ThomPikeMsb(x) (x < 252 ? bsr(~x & 0xff) : 1)
|
|
|
|
#endif /* COSMOPOLITAN_LIBC_STR_THOMPIKE_H_ */
|