bato 0.0.9 → 0.0.13

data/lib/bato/tagatala.rb

@@ -1,3 +1,5 @@
+# frozen_string_literal: true
+
 require 'ruby2ruby'
 require 'ruby_parser'
 require 'bato/ruby_parser_patches'
@@ -6,7 +8,7 @@ module Bato
   class Tagatala
     def initialize; end
 
-    PASIMULANG_KODIGO = "# encoding: utf-8\nrequire \"bato/core_ext\"\n".freeze
+    PASIMULANG_KODIGO = "# encoding: utf-8\nrequire \"bato/core_ext\"\n"
 
     def sa_ruby(kodigo)
       ruby2ruby = Ruby2Ruby.new

data/lib/bato.rb

@@ -1,3 +1,5 @@
+# frozen_string_literal: true
+
 require 'bato/bersiyon'
 
 module Bato; end

data/mga_halimbawa/agapan.bt

@@ -0,0 +1,5 @@
+simulan
+  1 / 0
+agapan
+  mag_print "Hindi ito posible!"
+wakas

data/mga_halimbawa/{alyas.bato → alyas.bt}

@@ -1,6 +1,6 @@
 bilang Hayop
   ang aso
-    iprint 'si browny ay mabait!'
+    mag_print 'si browny ay mabait!'
   wakas
   alyas browny aso
 wakas

data/mga_halimbawa/batotris.bt

@@ -0,0 +1,286 @@
+require 'io/console'
+
+grupo Batotris
+  BERSIYON = '0.1'.freeze
+  palawigin sarili
+
+  bilang Piyesa
+    MGA_PIYESA = [
+      [ [0, 1, 0, 0],
+        [1, 1, 1, 0],
+        [0, 0, 0, 0],
+        [0, 0, 0, 0], ],
+
+      [ [0, 1, 1, 0],
+        [1, 1, 0, 0],
+        [0, 0, 0, 0],
+        [0, 0, 0, 0], ],
+
+      [ [1, 1, 0, 0],
+        [0, 1, 1, 0],
+        [0, 0, 0, 0],
+        [0, 0, 0, 0], ],
+
+      [ [1, 1, 1, 1],
+        [0, 0, 0, 0],
+        [0, 0, 0, 0],
+        [0, 0, 0, 0], ],
+
+      [ [1, 1, 0, 0],
+        [1, 1, 0, 0],
+        [0, 0, 0, 0],
+        [0, 0, 0, 0], ],
+
+      [ [1, 0, 0, 0],
+        [1, 1, 1, 0],
+        [0, 0, 0, 0],
+        [0, 0, 0, 0], ],
+
+      [ [0, 0, 1, 0],
+        [1, 1, 1, 0],
+        [0, 0, 0, 0],
+        [0, 0, 0, 0], ],
+    ]
+
+    ang initialize(x, y, piyesa = bagong_bloke)
+      @x = x
+      @y = y
+      @piyesa = piyesa
+    wakas
+
+    ang magiba_ng_posisyon
+      bilang_ng_paglipat = 0
+      ang_posisyon = Array.kumatawan(4)
+      @piyesa.bilang_bawat_isa na_ganito |bloke, y|
+        bloke.bilang_bawat_isa na_ganito |b, x|
+          kapag b == 1
+            ang_posisyon[bilang_ng_paglipat] = [ @x + x, @y + y ]
+            bilang_ng_paglipat += 1
+          wakas
+        wakas
+      wakas
+      ang_posisyon
+    wakas
+
+    ang kanan
+      Piyesa.kumatawan(@x + 1, @y, @piyesa)
+    wakas
+
+    ang kaliwa
+      Piyesa.kumatawan(@x - 1, @y, @piyesa)
+    wakas
+
+    ang mahulog
+      Piyesa.kumatawan(@x, @y + 1, @piyesa)
+    wakas
+
+    ang pagikot
+      pansamantala = Array.kumatawan(4){ Array.kumatawan(4, 0)}
+      @piyesa.bilang_bawat_isa na_ganito |linya, y|
+        linya.bilang_bawat_isa na_ganito |l, x|
+          pansamantala[x][y] = l
+        wakas
+      wakas
+      pansamantala.bilang_bawat_isa na_ganito |linya, i|
+        pansamantala[i] = linya.baliktad
+      wakas
+      Piyesa.kumatawan(@x, @y, pansamantala)
+    wakas
+
+    ang bagong_bloke
+      rnd = rand(MGA_PIYESA.haba)
+      MGA_PIYESA[rnd]
+    wakas
+  wakas
+
+  grupo Pananda
+    WALA = 0
+    PADER = 1
+    AKTIBO = 2
+    NAKALINYA = 3
+  wakas
+
+  bilang Babagsakan
+    LAWAK = 11
+    TAAS = 20
+    DAMI = 40
+    PADER_LETRA = "🀫 "
+    BLOCK_LETRA = "⚀ "
+    WALA_LETRA = "  "
+    katangian :dako
+
+    ang initialize
+      @sakop = gagalawan
+      @dako  = 0
+    wakas
+
+    ang burahin
+      @sakop.bilang_bawat_isa na_ganito |linya, y|
+        linya.bilang_bawat_isa na_ganito |l, x|
+          @sakop[y][x] = 0 kapag l == Pananda::AKTIBO
+        wakas
+      wakas
+    wakas
+
+    ang burahin_ang_linya
+      @sakop.bilang_bawat_isa na_ganito |linya, y|
+        kapag linya == [Pananda::PADER, Pananda::NAKALINYA, Pananda::NAKALINYA, Pananda::NAKALINYA, Pananda::NAKALINYA, Pananda::NAKALINYA, Pananda::NAKALINYA, Pananda::NAKALINYA, Pananda::NAKALINYA, Pananda::NAKALINYA, Pananda::PADER]
+          @dako += 1
+          @sakop.delete_at(y)
+          @sakop.insert(0, [Pananda::PADER, Pananda::WALA, Pananda::WALA, Pananda::WALA, Pananda::WALA, Pananda::WALA, Pananda::WALA, Pananda::WALA, Pananda::WALA, Pananda::WALA, Pananda::PADER])
+        wakas
+      wakas
+    wakas
+
+    ang tapos_na?
+      @dako >= 40
+    wakas
+
+    ang ay_bloke?(susunod_na_posisyon)
+      resulta = mali
+      susunod_na_posisyon.isaisahin na_ganito |pos|
+        kapag isang_bloke?(pos[0], pos[1])
+          resulta = tama
+        wakas
+      wakas
+      resulta
+    wakas
+
+    ang ipirme(kasulukuyang_posisyon)
+      kasulukuyang_posisyon.isaisahin na_ganito |pos|
+        @sakop[pos[1]][pos[0]] = Pananda::NAKALINYA
+      wakas
+    wakas
+
+    ang bago_ipirme(kasulukuyang_posisyon)
+      kasulukuyang_posisyon.isaisahin na_ganito |pos|
+        @sakop[pos[1]][pos[0]] = Pananda::AKTIBO
+      wakas
+    wakas
+
+    ang write
+      teksto = "\n\e[25D"
+      @sakop.isaisahin na_ganito |linya|
+        linya.isaisahin na_ganito |l|
+          kapag l == Pananda::WALA
+            teksto += WALA_LETRA
+          kung_kapag l == Pananda::AKTIBO || l == Pananda::NAKALINYA
+            teksto += BLOCK_LETRA
+          kung_hindi
+            teksto += PADER_LETRA
+          wakas
+        wakas
+        teksto += "\n\e[25D"
+      wakas
+      mag_print teksto
+    wakas
+
+    private
+
+    ang isang_bloke?(x, y)
+      @sakop[y][x] == Pananda::PADER || @sakop[y][x] == Pananda::NAKALINYA
+    wakas
+
+    ang gagalawan
+      f = []
+      TAAS.beses na_ganito |i|
+        linya = []
+        LAWAK.beses na_ganito |j|
+          linya[j] = (j == 0 || j == LAWAK - 1 || i == TAAS - 1) ? Pananda::PADER : Pananda::WALA
+        wakas
+        f[i] = linya
+      wakas
+      ibalik_ang f
+    wakas
+  wakas
+
+  ang burahin_ang_screen
+    print "\x1b[2J\x1b[0;0H"
+  wakas
+
+  ang mahulog_to_bloke(piyesa, sakop)
+    resulta = piyesa
+    loop na_ganito
+      susunod_na_posisyon = resulta.mahulog.magiba_ng_posisyon
+      kapag sakop.ay_bloke?(susunod_na_posisyon)
+        isauli_ang resulta
+      kung_hindi
+        resulta = resulta.mahulog
+      wakas
+    wakas
+  wakas
+
+  ang tetris
+    burahin_ang_screen
+
+    sakop = Babagsakan.kumatawan
+    sakop.write
+
+    piyesa = Piyesa.kumatawan(5, 0)
+
+    pinindot = 'n'
+    thread = Thread::start na_ganito
+      habang (pinindot = STDIN.getch)
+        kapag pinindot == "\C-c"
+          ihinto
+        wakas
+      wakas
+    wakas
+
+    loop na_ganito
+      matulog(0.2)
+      sarili.burahin_ang_screen
+      mag_print "kaliwa: [left key], kanan: [right key], mahulog: [space], ikutin: [up key], q: exit \e[25D"
+      mag_print "\e[25D#{sakop.dako}\e[25D"
+
+      kung_sakaling pinindot
+      ay 'q' dapat
+        exit
+      ay "D" dapat
+        pansamantala = piyesa.kaliwa
+      ay "C" dapat
+        pansamantala = piyesa.kanan
+      ay 'B' dapat
+        pansamantala = sarili.mahulog_to_bloke(piyesa, sakop)
+      ay ' ' dapat
+        pansamantala = sarili.mahulog_to_bloke(piyesa, sakop)
+      ay "A" dapat
+        pansamantala = piyesa.pagikot
+      kung_hindi
+        pansamantala = piyesa.mahulog
+      wakas
+
+      susunod_na_posisyon = pansamantala.magiba_ng_posisyon
+
+      kapag !sakop.ay_bloke?(susunod_na_posisyon)
+            sakop.bago_ipirme(susunod_na_posisyon)
+            piyesa = pansamantala
+
+      kung_kapag pinindot != 'n'
+        piyesa = piyesa
+      kung_hindi
+        sakop.ipirme(piyesa.magiba_ng_posisyon)
+        piyesa = Piyesa.kumatawan(5, 0)
+        susunod_na_posisyon = piyesa.magiba_ng_posisyon
+        kapag sakop.ay_bloke?(susunod_na_posisyon)
+          mag_print "game over"
+          ihinto
+        wakas
+      wakas
+
+      sakop.write
+      sakop.burahin
+      sakop.burahin_ang_linya
+
+      pinindot = 'n'
+      kapag sakop.tapos_na?
+        mag_print "matagumpay!"
+        ihinto
+      wakas
+    wakas
+    Thread.kill(thread)
+  wakas
+wakas
+
+
+Batotris.tetris

data/mga_halimbawa/{bilang.bato → bilang.bt}

@@ -1,7 +1,7 @@
 grupo Tinapay
   bilang Donut
     ang flavor
-      iprint 'Strawberry!'
+      mag_print 'Strawberry!'
     wakas
   wakas
 wakas

data/mga_halimbawa/{dapat.bato → dapat.bt}

@@ -6,4 +6,4 @@ papel = sakaling panulat_mo
   maliban_sa_mga_ito "intermediate paper"
 wakas
 
-iprint "Ang papel na gagamitin mo ay #{papel}"
+mag_print "Ang papel na gagamitin mo ay #{papel}"

data/mga_halimbawa/{habang.bato → habang.bt}

@@ -1,7 +1,7 @@
 may_buhay = totoo
 
 habang may_buhay
-  iprint 'may pag-asa!'
+  mag_print 'may pag-asa!'
 
   hinto
 wakas

data/mga_halimbawa/ihinto.bt

@@ -0,0 +1,8 @@
+nakamit = mali
+
+habang nakamit == mali
+  mag_print 'hindi pa nakakamit!'
+  hinto
+wakas
+
+mag_print 'nakamit na!'

data/mga_halimbawa/{kontrol-sa-pagiikot.bato → kontrol-sa-pagiikot.bt}

@@ -1,17 +1,17 @@
 # isaisahin loop
 ['a','b','c','d'].isaisahin na_ganito |titik|
-  iprint "Ang titik ay #{titik}"
+  mag_print "Ang titik ay #{titik}"
 wakas
 
 # isaisahin loop on range
 (1..10).isaisahin na_ganito |numero|
-  iprint "Ang numero ay #{numero}"
+  mag_print "Ang numero ay #{numero}"
 wakas
 
 # while loop
 numero = 1
 habang numero < 10 ganito
-  iprint "Ang numero ay #{numero} na"
+  mag_print "Ang numero ay #{numero} na"
   numero += 1
 wakas
 
@@ -19,7 +19,7 @@ wakas
 numero = 0
 panghuling_numero = 5
 simula
-  iprint "Ang numero ay #{numero} na"
+  mag_print "Ang numero ay #{numero} na"
   numero += 1
 wakas habang numero < panghuling_numero
 
@@ -27,7 +27,7 @@ wakas habang numero < panghuling_numero
 numero = 0
 panghuling_numero = 5
 hanggang numero > panghuling_numero ganito
-  iprint "Ang numero ay #{numero} na"
+  mag_print "Ang numero ay #{numero} na"
   numero += 1
 wakas
 
@@ -35,11 +35,11 @@ wakas
 numero = 0
 panghuling_numero = 5
 simula
-  iprint "Ang numero ay #{numero} na"
+  mag_print "Ang numero ay #{numero} na"
   numero += 1
 wakas hanggang numero < panghuling_numero
 
 # for loop
 para_ang numero na_nasa 0..5
-   iprint "Ang numero ay #{numero} na"
+   mag_print "Ang numero ay #{numero} na"
 wakas

data/mga_halimbawa/kumusta_mundo.bt

@@ -0,0 +1,5 @@
+kapag 1 > 0
+  mag_print "Kumusta mundo!"
+kung_hindi
+  mag_print "Mayroong sira"
+wakas

data/mga_halimbawa/{magbibigay.bato → magbibigay.bt}

@@ -1,14 +1,14 @@
 ang gumawaNgID
-  iprint "------------------------------------------"
+  mag_print "------------------------------------------"
   
   magbigay_daan
   
-  iprint "------------------------------------------"
+  mag_print "------------------------------------------"
 wakas
 
 ang ID(impormasyon = {})
   gumawaNgID na_ganito
-    iprint <<-KATAPUSAN
+    mag_print <<-KATAPUSAN
   Pangalan: #{impormasyon[:pangalan]}
   Edad:     #{impormasyon[:edad]}
   Tirahan:  #{impormasyon[:tirahan]}

data/mga_halimbawa/{maliban_na.bato → maliban_na.bt}

@@ -5,8 +5,8 @@ mga_persona = [
 
 mga_persona.isaisahin ng_ganito |tao|
   malibang tao[:kasarian] == 'lalaki'
-    iprint "si #{tao[:pangalan]} ay babae!"
+    mag_print "si #{tao[:pangalan]} ay babae!"
   maliban_dito
-    iprint "si #{tao[:pangalan]} ay lalaki!"
+    mag_print "si #{tao[:pangalan]} ay lalaki!"
   wakas
 wakas