filipinomemes 1.0.0

data/sample_programs/bilang.bt

@@ -0,0 +1,10 @@
+grupo Tinapay
+  bilang Donut
+    ang flavor
+      mag_print 'Strawberry!'
+    finish_na
+  finish_na
+finish_na
+
+tinapay = Tinapay::Donut.gumawa
+tinapay.flavor

data/sample_programs/dapat.bt

@@ -0,0 +1,9 @@
+panulat_mo = "lapis"
+
+papel = hakdog panulat_mo
+  ay "lapis" dapat "bond paper"
+  ay "ballpen" dapat "dilaw na papel"
+  ginagawa_mue "intermediate paper"
+finish_na
+
+mag_print "Ang papel na gagamitin mo ay #{papel}"

data/sample_programs/habang.bt

@@ -0,0 +1,7 @@
+may_buhay = istroo
+
+ako_magisip may_buhay
+  mag_print 'may pag-asa!'
+
+  auko_na
+finish_na

data/sample_programs/ihinto.bt

@@ -0,0 +1,8 @@
+nakamit = mali
+
+ako_magisip nakamit == mali
+  mag_print 'hindi pa nakakamit!'
+  auko_na
+finish_na
+
+mag_print 'nakamit na!'

data/sample_programs/kontrol-sa-pagiikot.bt

@@ -0,0 +1,45 @@
+# isaisahin loop
+['a','b','c','d'].isaisahin adbans |titik|
+  mag_print "Ang titik ay #{titik}"
+finish_na
+
+# isaisahin loop on range
+(1..10).isaisahin adbans |numero|
+  mag_print "Ang numero ay #{numero}"
+finish_na
+
+# while loop
+numero = 1
+ako_magisip numero < 10 adbans
+  mag_print "Ang numero ay #{numero} na"
+  numero += 1
+finish_na
+
+# begin while
+numero = 0
+panghuling_numero = 5
+glhf
+  mag_print "Ang numero ay #{numero} na"
+  numero += 1
+finish_na ako_magisip numero < panghuling_numero
+
+# until
+numero = 0
+panghuling_numero = 5
+hanggang numero > panghuling_numero adbans
+  mag_print "Ang numero ay #{numero} na"
+  numero += 1
+finish_na
+
+# begin until
+numero = 0
+panghuling_numero = 5
+glhf
+  mag_print "Ang numero ay #{numero} na"
+  numero += 1
+finish_na hanggang numero < panghuling_numero
+
+# for loop
+para_ang numero na_nasa 0..5
+   mag_print "Ang numero ay #{numero} na"
+finish_na

data/sample_programs/kumusta_mundo.bt

@@ -0,0 +1,5 @@
+ip 1 > 0
+  mag_print "Kumusta mundo!"
+ginagawa_mue
+  mag_print "Mayroong sira"
+finish_na

data/sample_programs/magbibigay.bt

@@ -0,0 +1,27 @@
+ang gumawaNgID
+  mag_print "------------------------------------------"
+  
+  magbigay_daan
+  
+  mag_print "------------------------------------------"
+finish_na
+
+ang ID(impormasyon = {})
+  gumawaNgID adbans
+    mag_print <<-FINISH_NA
+  Pangalan: #{impormasyon[:pangalan]}
+  Edad:     #{impormasyon[:edad]}
+  Tirahan:  #{impormasyon[:tirahan]}
+  Baitang:  #{impormasyon[:baitang]}
+  Seksiyon: #{impormasyon[:seksiyon]}
+    FINISH_NA
+  finish_na
+finish_na
+
+ID({
+  pangalan: "Maliksi Batubalani",
+  edad: "13",
+  tirahan: "Ilocos",
+  baitang: "6",
+  seksiyon: "Masisipag"
+})

data/sample_programs/maliban_na.bt

@@ -0,0 +1,12 @@
+mga_persona = [
+  { pangalan: 'Gener', kasarian: 'lalaki' },
+  { pangalan: 'Karmen', kasarian: 'babae' }
+]
+
+mga_persona.isaisahin adbans |tao|
+  malibang tao[:kasarian] == 'lalaki'
+    mag_print "si #{tao[:pangalan]} ay babae!"
+  ginagawa_mue
+    mag_print "si #{tao[:pangalan]} ay lalaki!"
+  finish_na
+finish_na

data/sample_programs/modyul.bt

@@ -0,0 +1,20 @@
+grupo MgaAlagangHayop
+  KAILANGAN_DAMI_NG_ASO = 5
+  bilang Aso
+    ang tahol
+      mag_print "Woof..."
+    finish_na
+
+    ang kumanin
+      mag_print "..."
+    finish_na
+
+    ang ikembot_ang_buntot
+      mag_print "Ginagawa ko ito dahil masaya ako!"
+    finish_na
+  finish_na  
+finish_na
+
+dami = 6
+browny = MgaAlagangHayop::Aso.gumawa
+browny.ikembot_ang_buntot ip dami >= MgaAlagangHayop::KAILANGAN_DAMI_NG_ASO

data/sample_programs/nakatukoy.bt

@@ -0,0 +1,13 @@
+grupo Manggagawa
+  bilang Magsasaka
+    ang pananim
+      ['sibuyas', 'kamatis', 'sili', 'palay', 'mais'].isaisahin adbans |pananim|
+        mag_print "Mag tatanim ng #{pananim} ngayong panahon"
+      finish_na
+    finish_na
+  finish_na
+finish_na
+
+kung nakatukoy?(Manggagawa::Magsasaka)
+  mag_print 'May nakatukoy!'
+finish_na

data/sample_programs/ngunit_kapag.bt

@@ -0,0 +1,8 @@
+pangalan_mo = "Masipag"
+agik pangalan_mo == "Matipuno"
+  mag_print "Ikaw ay si Matipuno!"
+agik_ginagawa_mue pangalan_mo == "Masipag"
+  mag_print "Ikaw ay si Masipag!"
+ginagawa_mue
+  mag_print "Wala kang rekord dito!"
+finish_na

data/sample_programs/o_ang.bt

@@ -0,0 +1,3 @@
+ip (istroo o mali)
+  mag_print 'istroo'
+finish_na

data/sample_programs/pamamaraan-sa-pagkakamali.bt

@@ -0,0 +1,11 @@
+bilang_ng_pagkakamali = 0
+glhf
+  # mag komento ip hindi sigurado
+  1 / 0
+agapan => pagkakamali
+  bilang_ng_pagkakamali += 1
+  neba_gibap ip bilang_ng_pagkakamali < 3
+  iangat "malubhang pagkakamali"
+siguraduhing
+  mag_print "Tapos na"
+finish_na

data/sample_programs/pangalan.bt

@@ -0,0 +1,10 @@
+ang iprintAngPangalan(pangalan = wala)
+  ip pangalan != wala
+    mag_print "Magandang araw sa iyo #{pangalan}!"
+  ginagawa_mue
+    mag_print "Magandang araw!"
+  finish_na
+finish_na
+
+iprintAngPangalan "Maria" # => "Magandang araw sa iyo Maria!"
+iprintAngPangalan # => "Magandang araw!"

data/sample_programs/panguri.bt

@@ -0,0 +1,13 @@
+bilang Pangalan
+  panguri :pangalan
+
+  ang initialize(pangalan)
+    @pangalan = pangalan
+  finish_na
+
+  ang ipakitaAngPangalan
+    mag_print mayselp.pangalan
+  finish_na
+finish_na
+
+Pangalan.gumawa('Joel').ipakitaAngPangalan

data/sample_programs/panuntunan.bt

@@ -0,0 +1,23 @@
+ang gumawaNgID(estudyante = {})
+  pangalan = estudyante[:pangalan]
+  edad = estudyante[:edad]
+  tirahan = estudyante[:tirahan]
+  baitang = estudyante[:baitang]
+  seksiyon = estudyante[:seksiyon]
+  
+  mag_print <<-FINISH_NA
+  	Pangalan: #{pangalan}
+	Edad:     #{edad}
+	Tirahan:  #{tirahan}
+	Baitang:  #{baitang}
+	Seksiyon: #{seksiyon}
+  FINISH_NA
+finish_na
+
+gumawaNgID({
+  pangalan: "Maliksi Batubalani",
+  edad: "13",
+  tirahan: "Ilocos",
+  baitang: "6",
+  seksiyon: "Masisipag"
+})

data/sample_programs/para_sa.bt

@@ -0,0 +1,4 @@
+listahan_ng_mga_prutas = ["mansanas", "mangga", "guava", "santol", "ubas"]
+para_sa prutas na_nasa listahan_ng_mga_prutas adbans
+  mag_print prutas.sa_malaking_titik
+finish_na

data/sample_programs/pibonasyi.bt

@@ -0,0 +1,59 @@
+ang pibonasyi(n, n1 = 1, n2 = 1)
+  ip n <= 2
+    [0, n1, n2][n]
+  ginagawa_mue
+    sagot = wala
+    (n-2).ulit adbans
+      sagot = n1 + n2
+      n1 = n2
+      n2 = sagot
+    finish_na
+    sagot
+  finish_na
+finish_na
+
+ang pibonasyingPagsuksok(n, n1 = 1, n2 = 1)
+  ip n <= 2
+    [0, n1, n2][n]
+  ginagawa_mue
+    ([wala].umikot.kumuha(n-2).ipasok([n1, n2]) adbans |nakaraan, x|
+      nakaraan.magbagsak(1).itulak(nakaraan[0] + nakaraan[1])
+    finish_na).huli
+  finish_na
+finish_na
+
+ang pibonasyingInuulit(n, n1 = 1, n2 = 1)
+  ip n <= 2
+    binhi = [0, n1, n2]
+    binhi[n]
+  ginagawa_mue
+    pibonasyingInuulit(n-1, n1, n2) + pibonasyingInuulit(n-2, n1, n2)
+  finish_na
+finish_na
+
+ang pibonasyingBuntutangInuulit(n, n1 = 1, n2 = 1)
+  magbalik n1 ip n <= 1
+  magbalik n2 ip n == 2
+  magbalik pibonasyi(n - 1, n2, n1 + n2)
+finish_na
+
+ang pibonasyingPaguulit(n, n1 = 1, n2 = 1)
+  (2..n).sa_bawat_isa {
+    n1, n2 = n2, n1 + n2
+  }
+  magbalik n1
+finish_na
+
+ang pibonasyingPaguulitNaUmiikot(n, n1 = 1, n2 = 1)
+  para_sa i sa 2..n
+    n1, n2 = n2, n1 + n2
+  finish_na
+  magbalik n1
+finish_na
+
+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/sample_programs/siguraduhin.bt

@@ -0,0 +1,8 @@
+wala_na
+  itaas "Chismosa!"
+agapan
+  mag_print "Balik sa trabaho!"
+  itaas "May kaguluhan!"
+siguraduhing
+  mag_print "Walang kakain kung hindi tapos!"
+finish_na

data/sample_programs/tanggalin.bt

@@ -0,0 +1,23 @@
+grupo Hayop
+  bilang Aso
+    ang tahol
+      mag_print 'baw waw!'
+    finish_na
+  finish_na
+finish_na
+
+bilang Pusa < Hayop::Aso
+  tanggalin tahol
+
+  ang meow
+    mag_print 'meow wahu!'
+  finish_na
+finish_na
+
+pusa = Pusa.kumatawan
+
+wala_na
+  pusa.tahol
+agapan => pagkakamali
+  mag_print "ang pagkakamali ay '#{pagkakamali}'"
+finish_na

data/sample_programs/timebomb.bt

@@ -0,0 +1,36 @@
+# Filipinomemes Programming Language (https://github.com/zephyrum14/filipinomemes)
+
+grupo TimeBomb
+  BILANG = 5
+  bilang Bomba
+    ang tik
+      mag_print 'tik'
+    finish_na
+
+    ang tok
+      mag_print 'tok'
+    finish_na
+
+    ang sabog
+      mag_print 'kaboom!'
+    finish_na
+  finish_na
+finish_na
+
+pasabog = TimeBomb::Bomba.gumawa
+
+numero = 1
+ako_magisip numero <= TimeBomb::BILANG adbans
+	mag_print "#{numero}"
+
+  ip (numero == TimeBomb::BILANG)
+    pasabog.sabog
+  agik_ginagawa_mue (numero % 2) != 0
+    pasabog.tik
+  agik_ginagawa_mue (numero % 2) == 0
+    pasabog.tok
+  finish_na
+
+  matulog 1
+	numero += 1
+finish_na

data/spec/filipinomemes/compiler_spec.rb

@@ -0,0 +1,116 @@
+require 'spec_helper'
+
+isalaysay_ang 'Compiler' do
+  italaga_ang(:starting_code) do
+    "# encoding: utf-8\nrequire \"filipinomemes/core_ext\"\n"
+  end
+
+  italaga_ang(:compiler) do
+    Filipinomemes::Compiler.new
+  end
+
+  ito_ang 'Filipinomemes is empty' do
+    compiler.zephyrum('').should == starting_code + ''
+  end
+
+  isalaysay_ang 'bilang' do
+    ito_ang 'pambuong bilang' do
+      compiler.zephyrum('1').should == starting_code + '1'
+    end
+
+    ito_ang 'maliliit na bilang' do
+      compiler.zephyrum('1.2').should == starting_code + '1.2'
+    end
+
+    ito_ang 'listahan ng mga bilang' do
+      compiler.zephyrum('[1.2, 3]').should == starting_code + '[1.2, 3]'
+    end
+  end
+
+  isalaysay_ang 'ekspresyong Boolean' do
+    ito_ang 'ekspresyon ng truts o true' do
+      compiler.zephyrum('truts').should == starting_code + 'true'
+    end
+
+    ito_ang 'ekspresyon ng mali o false' do
+      compiler.zephyrum('mali').should == starting_code + 'false'
+    end
+
+    ito_ang 'ekspresyon ng hindi o not' do
+      compiler.zephyrum('hindi truts').should == starting_code + '(not true)'
+    end
+  end
+
+  isalaysay_ang 'susing mga salita' do
+    ito_ang 'ekspresyon ng agik / dapat / agik_ginagawa_mue / ginagawa_mue / finish_na' do
+      compiler.zephyrum('
+        agik 1 dapat
+          2
+        agik_ginagawa_mue 3
+          4
+        ginagawa_mue
+          5
+        finish_na').should be_like(starting_code +
+        '1 ? (2) : (3 ? (4) : (5))')
+    end
+
+    ito_ang 'ekspresyon ng hakdog / pagka / dapat / ginagawa_mue / finish_na' do
+      compiler.zephyrum("
+        hakdog 1
+        pagka 1 dapat 1
+        pagka 2
+          2
+        ginagawa_mue
+          3
+        finish_na").should be_like(starting_code +
+        'case 1
+        when 1 then
+          1
+        when 2 then
+          2
+        else
+          3
+        end')
+    end
+
+    ito_ang 'glhf / iligtas / iangat / siguraduhing / finish_na' do
+      # raise ir Kernel metode nevis atslēgvārds
+      compiler.zephyrum('
+        glhf
+          1 / 0
+        iligtas => pagkakamali
+          neba_gibap
+          iangat pagkakamali, pagkakamali.iulat
+        siguraduhing
+          mag_print "Katapusan"
+        finish_na').should be_like(starting_code +
+        'begin
+          (1 / 0)
+        rescue => pagkakamali
+          retry
+          iangat(pagkakamali, pagkakamali.iulat)
+        ensure
+          mag_print("Katapusan")
+        end')
+    end
+  end
+
+  isalaysay_ang 'pamamaraan sa Kernel' do
+    ito_ang "ekspresyon ng pagsusulat gamit ang 'mag_print'" do
+      compiler.zephyrum("mag_print 'abc'").should ==
+        starting_code + 'mag_print("abc")'
+    end
+  end
+
+  isalaysay_ang 'Dinikit na mga pamamaraan' do
+    ito_ang 'ekspresyon ng pamamaraan sa pagbabaliktad ng mga titik' do
+      resulta = eval compiler.zephyrum("'magandang araw'.baliktad")
+      resulta.should == 'wara gnadnagam'
+    end
+
+    ito_ang 'ekspresayon ng pamamaraan sa pagsukat ng haba ng salita' do
+      resulta = eval compiler.zephyrum("'Pangungusap'.haba")
+      resulta.should == 11
+    end
+  end
+end