HCoop Git - jackhill/mal.git/blob - bbc-basic/printer.bas

1 REM > printer library for mal in BBC BASIC

3 DEF FNpr_str(val%, print_readably%)

   LOCAL ret%, term$, val$, keys%, vals%

   IF FNis_nil(val%) THEN =FNalloc_string("nil")

   IF FNis_boolean(val%) THEN

     IF FNunbox_boolean(val%) THEN =FNalloc_string("true")

     =FNalloc_string("false")

9 ENDIF

   IF FNis_int(val%) THEN =FNalloc_string(STR$(FNunbox_int(val%)))

   IF FNis_string(val%) THEN

     IF FNstring_chr(val%, 1) = CHR$(127) THEN =FNalloc_string(":" + MID$(FNunbox_string(val%), 2))

     IF print_readably% THEN =FNalloc_string(FNformat_string(FNunbox_string(val%))) ELSE =val%

14 ENDIF

   IF FNis_symbol(val%) THEN =FNalloc_string(FNunbox_symbol(val%))

   IF FNis_corefn(val%) OR FNis_fn(val%) THEN =FNalloc_string("#<function>")

   IF FNis_seq(val%) THEN

     IF FNis_vector(val%) THEN

       ret% = FNalloc_string("[") : term$ = "]"

20 ELSE

       ret% = FNalloc_string("(") : term$ = ")"

22 ENDIF

23 WHILE NOT FNis_empty(val%)

       IF FNstring_len(ret%) > 1 THEN ret% = FNstring_append(ret%, " ")

       ret% = FNstring_concat(ret%, FNpr_str(FNfirst(val%), print_readably%))

26 val% = FNrest(val%)

27 ENDWHILE

     =FNstring_append(ret%, term$)

29 ENDIF

   IF FNis_hashmap(val%) THEN

     ret% = FNalloc_string("{")

32 keys% = FNhashmap_keys(val%)

33 vals% = FNhashmap_vals(val%)

34 WHILE NOT FNis_empty(keys%)

       IF FNstring_len(ret%) > 1 THEN ret% = FNstring_append(ret%, " ")

       ret% = FNstring_concat(ret%, FNpr_str(FNfirst(keys%), print_readably%))

       ret% = FNstring_append(ret%, " ")

       ret% = FNstring_concat(ret%, FNpr_str(FNfirst(vals%), print_readably%))

39 keys% = FNrest(keys%)

40 vals% = FNrest(vals%)

41 ENDWHILE

     =FNstring_append(ret%, "}")

43 ENDIF

   IF FNis_atom(val%) THEN

     ret% = FNalloc_string("(atom ")

     ret% = FNstring_concat(ret%, FNpr_str(FNatom_deref(val%), print_readably%))

     =FNstring_append(ret%, ")")

48 ENDIF

   ERROR &40E809F0, "Unprintable value"

51 DEF FNformat_string(strval$)

52 LOCAL ptr%, c$, out$

   IF strval$ = "" THEN =""""""

   FOR ptr% = 1 TO LEN(strval$)

     c$ = MID$(strval$, ptr%, 1)

56 CASE c$ OF

       WHEN "\", """": out$ += "\" + c$

58 WHEN CHR$(10): out$ += "\n"

59 OTHERWISE: out$ += c$

60 ENDCASE

61 NEXT ptr%

 ="""" + out$ + """"

64 REM Local Variables:

65 REM indent-tabs-mode: nil

66 REM End: