bato 0.0.9 → 0.0.10

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: d6b9645582634e8f245ba76432b7f991d0426b4f61b096380e4ba8f0b1f0d76f
-  data.tar.gz: 3907dfcb5270abf053d2c19ff11f154fad208148fc5da56819255a8beb1062ea
+  metadata.gz: e0af351f99cfb3448d817d493510a34e488fe690f78287919b2dc4135d5f1af6
+  data.tar.gz: 7f32c985adac8183048303538855ec39fedf3f860617d080e7ea14661a046136
 SHA512:
-  metadata.gz: e52df88c526a19bd0afdf04581c240c036fc06d2a2cf4cc0b0deca0c40f9f31a217cc16e59c941f9be3c561a5e959d498b150f58c8943649031784be1844dd1b
-  data.tar.gz: ae89a2cd816c9df23433bf19477137feb388bc378ba1a83d833561828f1bec4cc3b6dff9aba517e53bf1f6ed52d7975718ce0027627be765716ceb173c980ca6
+  metadata.gz: 8d0066c438ed51b3fc1fbea595071e769f52ecda08ab6cf2b8eed6da02180654c0eb36ae883423515dd746d7b807d9d044aef774f545ea88497721434a2b311c
+  data.tar.gz: 5c20bbcf8e25aebacc062eec0c6a71695962cd1dc0bd2eea5cbb40b3822eb35e3a7c219ce305a795536910732e05802fa8ff28d85eba910f770b5f26da5222e0

data/README.md

@@ -1,6 +1,8 @@
 # Bato
 
-Ang 'Bato' ay ang unang programming language sa wikang Filipino.
+Ang 'Bato Programming Language' ay isang scripting language sa wikang Filipino.
+
+Subukan ang [Bato](https://trybato.herokuapp.com/)
 
 ## Pagtatalaga
 
@@ -19,9 +21,9 @@ Ang kadahilanang ginamit ang pangalang 'bato' ay dahil ang Ruby ay isang uri ng
 Gumawa ng isang file na kamusta_mundo.bato na may mga sumusunod na nilalaman
 
     kapag 1 > 0
-      iprint "Kumusta mundo!"
+      mag_print "Kumusta mundo!"
     kung_hindi
-      iprint "Mayroong sira"
+      mag_print "Mayroong sira"
     wakas
 
 at pa-andarin ang program sa pamamagitan ng
@@ -78,16 +80,16 @@ Paggamit ng kondisyon.
       subukang_muli kapag bilang_ng_pagkakamali < 3
       iangat "malubhang pagkakamali"
     siguraduhing
-      iprint "Tapos na"
+      mag_print "Tapos na"
     wakas
 
 ### Panuntunan
 
     ang iprintAngPangalan(pangalan = wala)
       kapag pangalan != wala
-        iprint "Magandang araw sa iyo #{pangalan}!"
+        mag_print "Magandang araw sa iyo #{pangalan}!"
       kung_hindi
-        iprint "Magandang araw!"
+        mag_print "Magandang araw!"
       wakas
     wakas
 
@@ -104,13 +106,13 @@ Maari kang gumamit sa alin sa mga sumusunod sa pagtatapos ng program
     dulo
     katapusan
 
-Sampol
+Halimbawa
 
-    bilang = 0
-    kapag bilang > 1
-      iprint "Mayroon ng laman ang bilang na #{bilang}"
+    bilang_ng_saging = 2
+    kapag bilang_ng_saging > 1
+      mag_print "Mayroon akong #{bilang_ng_saging} saging! 🍌"
     kung_hindi
-      iprint "Wala pang laman ang bilang"
+      mag_print "Wala na akong saging! 😐"
     wakas
 
 ###  kung_iba
@@ -134,13 +136,13 @@ Kapag ang ekspresyon ay hindi nasunod maaring gumamit sa alin sa mga sumusunod
     maliban_dito
     maliban_sa_mga_ito
 
-Sampol
+Halimbawa
 
     pangalan_mo = "Maliksi"
     kapag_ang pangalan_mo == "Maliksi"
-      iprint "Ikaw ay si #{pangalan_mo}!"
+      mag_print "Ikaw ay si #{pangalan_mo}!"
     kung_hindi_naman
-      iprint "Magandang araw sa iyo #{pangalan_mo}!"
+      mag_print "Magandang araw sa iyo #{pangalan_mo}!"
     wakas
 
 ### sakali
@@ -155,19 +157,19 @@ Kapag mayroon kang ekspresyon na madaming resulta gawa ng mga iba't ibang kondis
     kalagayan
     kaukulan
 
-Sampol
+Halimbawa
 
     pangalan_mo = "Mabait"
 
     sakaling pangalan_mo
     ay "Maliksi"
-      iprint "Ikaw ay si Maliksi!"
+      mag_print "Ikaw ay si Maliksi!"
     ay "Matipuno"
-      iprint "Ikaw ay si Matipuno!"
+      mag_print "Ikaw ay si Matipuno!"
     ay "Mabait"
-      iprint "Ikaw ay si Mabait!"
+      mag_print "Ikaw ay si Mabait!"
     maliban_dito
-      iprint "Magandang araw sa iyo!"
+      mag_print "Magandang araw sa iyo!"
     wakas
 
 ### tiyakin
@@ -181,15 +183,15 @@ Kung mayroon kang ekspresyon na gusto mong masunod kahit ano pa ang kahihinatnan
     siguraduhin
     panigurado
 
-Sampol
+Halimbawa
 
     simulan
       itaas "May sira!"
     agapan
-      iprint "Ipagpatuloy..."
+      mag_print "Ipagpatuloy..."
       itaas "May nasira na na-agapan"
     tiyaking
-      iprint "Tapos na"
+      mag_print "Tapos na"
     wakas
 
 ### grupo
@@ -198,22 +200,22 @@ Ang grupo ay ang lalagyanan ng mga kabilang na klase sa iyong program
 
     grupo
 
-Sampol
+Halimbawa
 
     grupo Hayop
       KABUUAN = 5
 
       bilang Aso
         ang tahol
-          iprint "Woof..."
+          mag_print "Woof..."
         wakas
 
         ang kumanin
-          iprint "..."
+          mag_print "..."
         wakas
 
         ang ikembot_ang_buntot
-          iprint "Ginagawa ko ito dahil masaya ako!"
+          mag_print "Ginagawa ko ito dahil masaya ako!"
         wakas
       wakas
     wakas
@@ -231,15 +233,15 @@ Gumamit ng ngunit_kapag kapag mayroon ka pang kondisyon maliban sa nauna ng kond
     ngunit_kapag_ang
     kung_kapag_ang
 
-Sampol
+Halimbawa
 
     pangalan_mo = "Masipag"
     kapag_ang pangalan_mo == "Matipuno"
-      iprint "Ikaw ay si Matipuno!"
+      mag_print "Ikaw ay si Matipuno!"
     ngunit_kapag_ang pangalan_mo == "Masipag"
-      iprint "Ikaw ay si Masipag!"
+      mag_print "Ikaw ay si Masipag!"
     maliban_sa_mga_ito
-      iprint "Wala kang rekord saamin!"
+      mag_print "Wala kang rekord saamin!"
     wakas
 
 ### ang
@@ -250,7 +252,7 @@ Ang ang ay may kalakip na pangalan upang ito ay matawag sa program
     panuntunan
     panuntunang
 
-Sampol
+Halimbawa
 
     ang id(estudyante = {})
       pangalan = estudyante[:pangalan]
@@ -259,7 +261,7 @@ Sampol
       baitang  = estudyante[:baitang]
       seksiyon = estudyante[:seksiyon]
 
-      iprint <<-KATAPUSAN
+      mag_print <<-KATAPUSAN
         Pangalan: #{pangalan}
         Edad:     #{edad}
         Tirahan:  #{tirahan}
@@ -283,12 +285,12 @@ Ang agapan ay ginagamit kung mayroon maaaring mangyaring pagkakamali na gusto mo
     iligtas
     agapan
 
-Sampol
+Halimbawa
 
     simulan
       1 / 0
     agapan
-      iprint "Hindi ito posible!"
+      mag_print "Hindi ito posible!"
     wakas
 
 ### dapat
@@ -297,7 +299,7 @@ Kapag mayroon kang ekspresyon na mayroong inaasahan na resulta, gumamit ng dapat
 
     dapat
 
-Sampol
+Halimbawa
 
     panulat_mo = "lapis"
 
@@ -307,7 +309,7 @@ Sampol
       maliban_sa_mga_ito "intermediate paper"
     wakas
 
-    iprint "Ang papel na gagamitin mo ay #{papel}"
+    mag_print "Ang papel na gagamitin mo ay #{papel}"
 
 ### magbigay_daan
 
@@ -316,17 +318,17 @@ Kapag ang ekspresyon ay mayroong inaasahang dapat na ibigay na resulta habang gu
     magbigay_daan
     bigyang_daan
 
-Sampol
+Halimbawa
 
     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]}
@@ -351,11 +353,11 @@ Kapag may listahan na nais mong isa isahin, gumamit ng para_sa
     para_sa
     para_ang
 
-Sampol
+Halimbawa
 
     listahan_ng_mga_prutas = ["mansanas", "mangga", "guava", "santol", "ubas"]
     para_sa prutas na_nasa listahan_ng_mga_prutas ganito_gawin
-      iprint prutas.sa_malaking_titik
+      mag_print prutas.sa_malaking_titik
     wakas
 
 ### subukang_muli
@@ -364,7 +366,7 @@ Ginagamit ang subukang_muli upang umikot muli ang ekspresyon kung may sirang nan
 
     subukang_muli
 
-Sampol
+Halimbawa
 
     bilang_ng_pagkakamali = 0
     simula
@@ -374,7 +376,7 @@ Sampol
       subukang_muli kapag bilang_ng_pagkakamali < 3
       iangat "malubhang pagkakamali"
     siguraduhing
-      iprint "Tapos na"
+      mag_print "Tapos na"
     wakas
 
 ### ibalik
@@ -392,7 +394,7 @@ Kapag mayroon kang ibabalik na resulta sa nagtawag ng ang
     magbigay
     magbigay_nang
 
-Sampol
+Halimbawa
 
     ang magdagdag_ng_isa(halaga)
       idadagdag = halaga + 1
@@ -409,12 +411,12 @@ Ginagamit ang kapag kung meron kang kondisyon sa iyong ekspresyon
     kung
     kung_ang
 
-Sampol
+Halimbawa
 
     kapag_ang 1 > 0
-      iprint "mas madami!"
+      mag_print "mas madami!"
     kung_iba
-      iprint "may sira"
+      mag_print "may sira"
     wakas
 
 ### bilang
@@ -423,12 +425,12 @@ Ang bilang ay ang pagsasabilang ng isang kaukulang klasipikasyon
 
     bilang
 
-Sampol
+Halimbawa
 
     grupo Tinapay
       bilang Donut
         ang flavor
-          iprint 'Strawberry!'
+          mag_print 'Strawberry!'
         wakas
       wakas
     wakas
@@ -444,12 +446,12 @@ Gumamit ng habang kung may hinihintay pa na resulta, kondisyon o pangyayari
     habang
     habang_ang
 
-Sampol
+Halimbawa
 
     may_buhay = totoo
 
     habang may_buhay
-      iprint 'may pag-asa!'
+      mag_print 'may pag-asa!'
       hinto
     wakas
     => 'may pag-asa!'
@@ -460,11 +462,11 @@ Gumamit ng alyas kung kailangan mo tawagin sa ibang pangalan ang iyong panuntuna
 
     alyas
 
-Sampol
+Halimbawa
 
     bilang Hayop
       ang aso
-        iprint 'si browny ay mabait!'
+        mag_print 'si browny ay mabait!'
       wakas
       alyas browny aso
     wakas
@@ -480,20 +482,20 @@ Ang nakatukoy? ay ginagamit kung kailangan malaman kung umiiral ang isang grupo
     nakatukoy?
     nakasaad?
 
-Sampol
+Halimbawa
 
     grupo Manggagawa
       bilang Magsasaka
         ang pananim
           ['sibuyas', 'kamatis', 'sili', 'palay', 'mais'].isaisahin na_ganito |pananim|
-            iprint "Mag tatanim ng #{pananim} ngayong panahon"
+            mag_print "Mag tatanim ng #{pananim} ngayong panahon"
           wakas
         wakas
       wakas
     wakas
 
     kung nakatukoy?(Manggagawa::Magsasaka)
-      iprint 'May nakatukoy!'
+      mag_print 'May nakatukoy!'
     wakas
 
 ### tanggalin
@@ -503,12 +505,12 @@ Ginagamit ang tanggalin kung may tatanggaling panuntunan sa isang klase
     tanggalin
     magtanggal
 
-Sampol
+Halimbawa
 
     grupo Hayop
       bilang Aso
         ang tahol
-          iprint 'baw waw!'
+          mag_print 'baw waw!'
         wakas
       wakas
     wakas
@@ -516,7 +518,7 @@ Sampol
     bilang Pusa < Hayop::Aso
       tanggalin tahol
       ang meow
-        iprint 'meow wahu!'
+        mag_print 'meow wahu!'
       wakas
     wakas
 
@@ -525,7 +527,7 @@ Sampol
     simulan
       pusa.tahol
     agapan => pagkakamali
-      iprint "ang pagkakamali ay '#{pagkakamali}'"
+      mag_print "ang pagkakamali ay '#{pagkakamali}'"
     wakas
 
 ### ihinto
@@ -535,16 +537,16 @@ Gumamit ng 'hinto' kung may nais kang matapos na kondisyon gamit ang 'habang'
     ihinto
     hinto
 
-Sampol
+Halimbawa
 
     nakamit = mali
 
     habang nakamit == mali
-      iprint 'hindi pa nakakamit!'
+      mag_print 'hindi pa nakakamit!'
       hinto
     wakas
 
-    iprint 'nakamit na!'
+    mag_print 'nakamit na!'
 
 ### sa
 
@@ -555,7 +557,7 @@ Ginagamit ang 'sa' kung nais mong matukoy ang kasulukuyang listahan
     nasa
     na_nasa
 
-Sampol
+Halimbawa
 
   Tignan ang [para_sa](#para_sa)
 
@@ -567,7 +569,7 @@ Ginagamit ang 'ganito' kung nais mong i konteksto ang kasulukuyang listahan
     nang_ganito
     ganito
 
-Sampol
+Halimbawa
 
   Tignan ang [magbigay_daan](#magbigay_daan), [nakatukoy?](#nakatukoy?)
 
@@ -579,12 +581,12 @@ Ang 'hanggang' ay magpapatuloy tumakbo hanggang maabot ang tamang kundisyon.
     hanggang_ang
     mapa_hanggang
 
-Sampol
+Halimbawa
 
 		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
 
@@ -594,7 +596,7 @@ Sampol
     maliban_na
     maliban_ang
 
-Sampol
+Halimbawa
 
     mga_persona = [
       { pangalan: 'Gener', kasarian: 'lalaki' },
@@ -603,9 +605,9 @@ Sampol
 
     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
 
@@ -616,7 +618,7 @@ Ang 'o' ay ginagamit upang piliin ang nagsasauli ng tama.
     o
     o_ang
 
-Sampol
+Halimbawa
 
     totoo o mali
     => totoo

data/_config.yml

@@ -0,0 +1 @@
+theme: jekyll-theme-cayman

data/lib/bato/bersiyon.rb

@@ -1,3 +1,3 @@
 module Bato
-  BERSIYON = '0.0.9'.freeze
+  BERSIYON = '0.0.10'.freeze
 end

data/lib/bato/core_ext/array.rb

@@ -1,4 +1,5 @@
 class Array
+  alias baliktad reverse
   alias umikot cycle
   alias isuksok inject
   alias magbagsak drop
@@ -13,4 +14,6 @@ class Array
   alias bawat each
   alias kada_isa each
   alias sa_bawat_isa each
+  alias bilang_bawat_isa each_with_index
+  alias haba length
 end

data/lib/bato/core_ext/kernel.rb

@@ -2,6 +2,8 @@ module Kernel
   alias isulat puts
   alias sabihin puts
   alias iprint puts
+  alias mag_print puts
   alias iangat raise
   alias itaas raise
+  alias matulog sleep
 end

data/lib/bato/core_ext/module.rb

@@ -1,3 +1,4 @@
 class Module
   alias panguri attr_accessor
+  alias palawigin extend
 end

data/mga_halimbawa/agapan.bato

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

data/mga_halimbawa/alyas.bato

@@ -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.rb

@@ -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 = "  "
+    panguri :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

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

data/mga_halimbawa/dapat.bato

@@ -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

@@ -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.bato

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

data/mga_halimbawa/kontrol-sa-pagiikot.bato

@@ -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.bato

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

data/mga_halimbawa/magbibigay.bato

@@ -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

@@ -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

data/mga_halimbawa/modyul.bato

@@ -2,15 +2,15 @@ grupo MgaAlagangHayop
   KAILANGAN_DAMI_NG_ASO = 5
   bilang Aso
     ang tahol
-      iprint "Woof..."
+      mag_print "Woof..."
     wakas
 
     ang kumanin
-      iprint "..."
+      mag_print "..."
     wakas
 
     ang ikembot_ang_buntot
-      iprint "Ginagawa ko ito dahil masaya ako!"
+      mag_print "Ginagawa ko ito dahil masaya ako!"
     wakas
   wakas  
 wakas

data/mga_halimbawa/nakatukoy.bato

@@ -2,12 +2,12 @@ grupo Manggagawa
   bilang Magsasaka
     ang pananim
       ['sibuyas', 'kamatis', 'sili', 'palay', 'mais'].isaisahin na_ganito |pananim|
-        iprint "Mag tatanim ng #{pananim} ngayong panahon"
+        mag_print "Mag tatanim ng #{pananim} ngayong panahon"
       wakas
     wakas
   wakas
 wakas
 
 kung nakatukoy?(Manggagawa::Magsasaka)
-  iprint 'May nakatukoy!'
+  mag_print 'May nakatukoy!'
 wakas

data/mga_halimbawa/ngunit_kapag.bato

@@ -1,8 +1,8 @@
 pangalan_mo = "Masipag"
 kapag_ang pangalan_mo == "Matipuno"
-  iprint "Ikaw ay si Matipuno!"
+  mag_print "Ikaw ay si Matipuno!"
 ngunit_kapag_ang pangalan_mo == "Masipag"
-  iprint "Ikaw ay si Masipag!"
+  mag_print "Ikaw ay si Masipag!"
 maliban_sa_mga_ito
-  iprint "Wala kang rekord dito!"
+  mag_print "Wala kang rekord dito!"
 wakas

data/mga_halimbawa/o_ang.bato

@@ -1,3 +1,3 @@
 kapag (totoo o mali)
-  iprint 'totoo'
+  mag_print 'totoo'
 wakas

data/mga_halimbawa/pamamaraan-sa-pagkakamali.bato

@@ -7,5 +7,5 @@ agapan => pagkakamali
   subukang_muli kapag bilang_ng_pagkakamali < 3
   iangat "malubhang pagkakamali"
 siguraduhing
-  iprint "Tapos na"
+  mag_print "Tapos na"
 wakas

data/mga_halimbawa/pangalan.bato

@@ -1,8 +1,8 @@
 ang iprintAngPangalan(pangalan = wala)
   kapag pangalan != wala
-    iprint "Magandang araw sa iyo #{pangalan}!"
+    mag_print "Magandang araw sa iyo #{pangalan}!"
   kung_hindi
-    iprint "Magandang araw!"
+    mag_print "Magandang araw!"
   wakas
 wakas
 

data/mga_halimbawa/panguri.bato

@@ -6,7 +6,7 @@ bilang Pangalan
   wakas
 
   ang ipakitaAngPangalan
-    iprint sariling.pangalan
+    mag_print sariling.pangalan
   wakas
 wakas
 

data/mga_halimbawa/panuntunan.bato

@@ -5,7 +5,7 @@ ang gumawaNgID(estudyante = {})
   baitang = estudyante[:baitang]
   seksiyon = estudyante[:seksiyon]
   
-  iprint <<-KATAPUSAN
+  mag_print <<-KATAPUSAN
   	Pangalan: #{pangalan}
 	Edad:     #{edad}
 	Tirahan:  #{tirahan}

data/mga_halimbawa/para_sa.bato

@@ -1,4 +1,4 @@
 listahan_ng_mga_prutas = ["mansanas", "mangga", "guava", "santol", "ubas"]
 para_sa prutas na_nasa listahan_ng_mga_prutas ganito_gawin
-  iprint prutas.sa_malaking_titik
+  mag_print prutas.sa_malaking_titik
 wakas

data/mga_halimbawa/pibonasyi.bato

@@ -51,9 +51,9 @@ ang pibonasyingPaguulitNaUmiikot(n, n1 = 1, n2 = 1)
   magbalik n1
 wakas
 
-iprint "Gamit ang Panuntunang Pibonasyi sa 10 ay #{pibonasyi 10}"
-iprint "Gamit ang Panuntunang Pibonasying May Pagsuksok sa 9 ay #{pibonasyingPagsuksok 9}"
-iprint "Gamit ang Panuntunang Pibonasying Inuulit sa 8 ay #{pibonasyingInuulit 8}"
-iprint "Gamit ang Panuntunang Pibonasying May Buntot na Inuulit sa 7 ay #{pibonasyingBuntutangInuulit 7}"
-iprint "Gamit ang Panuntunang Pibonasying Paguulit sa 6 ay #{pibonasyingPaguulit 6}"
-iprint "Gamit ang Panuntunang Pibonasying Paguulit na Umiikot sa 5 ay #{pibonasyingPaguulitNaUmiikot 5}"
+mag_print "Gamit ang Panuntunang Pibonasyi sa 10 ay #{pibonasyi 10}"
+mag_print "Gamit ang Panuntunang Pibonasying May Pagsuksok sa 9 ay #{pibonasyingPagsuksok 9}"
+mag_print "Gamit ang Panuntunang Pibonasying Inuulit sa 8 ay #{pibonasyingInuulit 8}"
+mag_print "Gamit ang Panuntunang Pibonasying May Buntot na Inuulit sa 7 ay #{pibonasyingBuntutangInuulit 7}"
+mag_print "Gamit ang Panuntunang Pibonasying Paguulit sa 6 ay #{pibonasyingPaguulit 6}"
+mag_print "Gamit ang Panuntunang Pibonasying Paguulit na Umiikot sa 5 ay #{pibonasyingPaguulitNaUmiikot 5}"

data/mga_halimbawa/siguraduhin.bato

@@ -1,8 +1,8 @@
 simulan
   itaas "Chismosa!"
 agapan
-  iprint "Balik sa trabaho!"
+  mag_print "Balik sa trabaho!"
   itaas "May kaguluhan!"
 siguraduhing
-  iprint "Walang kakain kung hindi tapos!"
+  mag_print "Walang kakain kung hindi tapos!"
 wakas

data/mga_halimbawa/tanggalin.bato

@@ -1,7 +1,7 @@
 grupo Hayop
   bilang Aso
     ang tahol
-      iprint 'baw waw!'
+      mag_print 'baw waw!'
     wakas
   wakas
 wakas
@@ -10,7 +10,7 @@ bilang Pusa < Hayop::Aso
   tanggalin tahol
 
   ang meow
-    iprint 'meow wahu!'
+    mag_print 'meow wahu!'
   wakas
 wakas
 
@@ -19,5 +19,5 @@ pusa = Pusa.kumatawan
 simulan
   pusa.tahol
 agapan => pagkakamali
-  iprint "ang pagkakamali ay '#{pagkakamali}'"
+  mag_print "ang pagkakamali ay '#{pagkakamali}'"
 wakas

data/mga_halimbawa/timebomb.bato

@@ -4,15 +4,15 @@ grupo TimeBomb
   BILANG = 5
   bilang Bomba
     ang tik
-      iprint 'tik'
+      mag_print 'tik'
     wakas
 
     ang tok
-      iprint 'tok'
+      mag_print 'tok'
     wakas
 
     ang sabog
-      iprint 'kaboom!'
+      mag_print 'kaboom!'
     wakas
   wakas
 wakas
@@ -21,7 +21,7 @@ pasabog = TimeBomb::Bomba.gumawa
 
 numero = 1
 habang numero <= TimeBomb::BILANG ganito
-	iprint "#{numero}"
+	mag_print "#{numero}"
 
   kapag (numero == TimeBomb::BILANG)
     pasabog.sabog
@@ -31,7 +31,7 @@ habang numero <= TimeBomb::BILANG ganito
     pasabog.tok
   wakas
 
-  sleep 1
+  matulog 1
 	numero += 1
 wakas
 

data/spec/bato/tagatala_spec.rb

@@ -83,7 +83,7 @@ isalaysay_ang 'Tagatala' do
           subukang_muli
           iangat pagkakamali, pagkakamali.iulat
         siguraduhing
-          iprint "Katapusan"
+          mag_print "Katapusan"
         katapusan').should be_like(pasimulang_kodigo +
         'begin
           (1 / 0)
@@ -91,15 +91,15 @@ isalaysay_ang 'Tagatala' do
           retry
           iangat(pagkakamali, pagkakamali.iulat)
         ensure
-          iprint("Katapusan")
+          mag_print("Katapusan")
         end')
     end
   end
 
   isalaysay_ang 'pamamaraan sa Kernel' do
-    ito_ang "ekspresyon ng pagsusulat gamit ang 'iprint'" do
-      tagatala.sa_ruby("iprint 'abc'").should ==
-        pasimulang_kodigo + 'iprint("abc")'
+    ito_ang "ekspresyon ng pagsusulat gamit ang 'mag_print'" do
+      tagatala.sa_ruby("mag_print 'abc'").should ==
+        pasimulang_kodigo + 'mag_print("abc")'
     end
   end
 

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: bato
 version: !ruby/object:Gem::Version
-  version: 0.0.9
+  version: 0.0.10
 platform: ruby
 authors:
 - Joel Bryan Juliano
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2018-01-11 00:00:00.000000000 Z
+date: 2018-02-11 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: ruby2ruby
@@ -82,6 +82,7 @@ files:
 - README.md
 - Rakefile
 - TODO.md
+- _config.yml
 - bato.gemspec
 - bin/bato
 - lib/bato.rb
@@ -99,6 +100,7 @@ files:
 - lib/bato/tagatala.rb
 - mga_halimbawa/agapan.bato
 - mga_halimbawa/alyas.bato
+- mga_halimbawa/batotris.rb
 - mga_halimbawa/bilang.bato
 - mga_halimbawa/dapat.bato
 - mga_halimbawa/habang.bato