tests/test2.bob

   1 fn readProgram()
   2 {
   3 i = 0
   4 program = get_chr()
   5 ?? (!(program[i] == "\n"))
   6 {
   7 i = i + 1
   8 program[i] = get_chr()
   9 }
  10 i = 0
  11 }
  12
  13
  14 fn left()
  15 {
  16 pointer = pointer - 1
  17 }
  18
  19
  20 fn right()
  21 {
  22 pointer = pointer + 1
  23 ? (!($data > pointer))
  24 {
  25 $data = $data * 2
  26 }
  27 re 0
  28 }
  29
  30
  31 fn inc()
  32 {
  33 data[pointer] = data[pointer] + 1
  34 }
  35
  36 fn dec()
  37 {
  38 data[pointer] = data[pointer] - 1
  39 }
  40
  41 fn read()
  42 {
  43 data[pointer] = get_chr()
  44 }
  45
  46 fn print()
  47 {
  48 out_str("%s", data[pointer])
  49 }
  50
  51
  52 fn otvaracia()
  53 {
  54 ? (data[pointer] == 0)
  55 {
  56 parCount = 1
  57 ?? (!(parCount == 0))
  58 {
  59 line = line + 1
  60 ? (program[line] == "[")
  61 {
  62 parCount = parCount + 1
  63 }
  64 ? (program[line] == "]")
  65 {
  66 parCount = parCount - 1
  67 }
  68 }
  69 }
  70 }
  71
  72
  73 fn zatvaracia()
  74 {
  75 ? (!(data[pointer] == 0))
  76 {
  77 parCount = 1
  78 ?? (!(parCount == 0))
  79 {
  80 line = line - 1
  81 ? (program[line] == "]")
  82 {
  83 parCount = parCount + 1
  84 }
  85 ?(program[line] == "[")
  86 {
  87 parCount = parCount - 1
  88 }
  89 }
  90 }
  91 }
  92
  93 fn BoB()
  94 {
  95 readProgram()
  96 line = 0
  97 pointer = 0
  98 $data = 16
  99 ?? (line < $program)
 100 {
 101 command = program[line]
 102 ? (command == ">")
 103 {
 104 right()
 105 }
 106 ? (command == "<")
 107 {
 108 left()
 109 }
 110 ? (command == "+")
 111 {
 112 inc()
 113 }
 114 ? (command == "-")
 115 {
 116 dec()
 117 }
 118 ? (command == ".")
 119 {
 120 print()
 121 }
 122 ? (command == ",")
 123 {
 124 read()
 125 }
 126 ? (command == "[")
 127 {
 128 otvaracia()
 129 }
 130 ? (command == "]")
 131 {
 132 zatvaracia()
 133 }
 134 line = line + 1
 135 }
 136 }