At 11:09 AM 5/30/2002 +0100, Leon Brocard wrote:
>Hello.
>
>I've been looking at languages to run under Parrot, and I choose a
>certain language which is turing complete in eight instructions. Start
>with the small ones eh? Unfortunately its name is not family
>friendly. An interpreter is attached, although you'll need to add the
>chr() operator (see the patch). A BF compiler would be neat too, of
>course.

Interesting.  :)

If you'd like a pure-PASM chr() operator, see the BASIC interpreter in 
expr.pasm.  I essentially do (everything in BASIC is on the stack...excuse 
the restore and saves...):

FUNC_CHR:
         # ... other stuff ...
         restore I0      # The number to convert
         gt I0, 255, FUNC_ASCII_ERROR
         bsr SET_S1_ASCII
         substr S0, S1, I0, 1
         save S0        # The corresponding character
         branch ENDFUNCDISPATCH

SET_S1_ASCII:
         set S1, 
"\x0\x1\x2\x3\x4\x5\x6\x7\x8\x9\xa\xb\xc\xd\xe\xf\x10\x11\x12\x13\x14\x15\x16\x17\x1
8\x19\x1a\x1b\x1c\x1d\x1e\x1f\x20\x21\x22\x23\x24\x25\x26\x27\x28\x29\x2a\x2b\x2c\x2d\x2e\x2f\x30\x3
1\x32\x33\x34\x35\x36\x37\x38\x39\x3a\x3b\x3c\x3d\x3e\x3f\x40\x41\x42\x43\x44\x45\x46\x47\x48\x49\x4
a\x4b\x4c\x4d\x4e\x4f\x50\x51\x52\x53\x54\x55\x56\x57\x58\x59\x5a\x5b\x5c\x5d\x5e\x5f\x60\x61\x62\x6
3\x64\x65\x66\x67\x68\x69\x6a\x6b\x6c\x6d\x6e\x6f\x70\x71\x72\x73\x74\x75\x76\x77\x78\x79\x7a\x7b\x7
c\x7d\x7e\x7f\x80\x81\x82\x83\x84\x85\x86\x87\x88\x89\x8a\x8b\x8c\x8d\x8e\x8f\x90\x91\x92\x93\x94\x9
5\x96\x97\x98\x99\x9a\x9b\x9c\x9d\x9e\x9f\xa0\xa1\xa2\xa3\xa4\xa5\xa6\xa7\xa8\xa9\xaa\xab\xac\xad\xa
e\xaf\xb0\xb1\xb2\xb3\xb4\xb5\xb6\xb7\xb8\xb9\xba\xbb\xbc\xbd\xbe\xbf\xc0\xc1\xc2\xc3\xc4\xc5\xc6\xc
7\xc8\xc9\xca\xcb\xcc\xcd\xce\xcf\xd0\xd1\xd2\xd3\xd4\xd5\xd6\xd7\xd8\xd9\xda\xdb\xdc\xdd\xde\xdf\xe
0\xe1\xe2\xe3\xe4\xe5\xe6\xe7\xe8\xe9\xea\xeb\xec\xed\xee\xef\xf0\xf1\xf2\xf3\xf4\xf5\xf6\xf7\xf8\xf
9\xfa\xfb\xfc\xfd\xfe\xff"
         ret

BF would use this a lot more than BASIC would, so instead of just throwing 
the table into S1 whenever it's called you might want to keep it 
around.  To convert the other way (ASC) I take the character and perform a 
search on S1 and the offset is the ASCII code.

Just a thought.

Reply via email to