migrasi ke kbbi-4 lebih lengkap: sekarang ada J dan P

.gitignore

@@ -1 +1,6 @@
 CHECKED
+**/*.tmp
+backup
+teks/hasil_pdftotext/*
+teks/hasil_pengelompokkan/*
+backup/*

README.md

@@ -2,7 +2,7 @@
 
 <p align="center">Kamus Besar Bahasa Indonesia Edisi IV
 
-Repo `kbbi` ini adalah upaya untuk mengalihtuliskan berkas PDF [Kamus Besar Bahasa Indonesia edisi IV](http://bse.mahoni.com/data/umum/Kamus_Bahasa_Indonesia_2008.pdf) terbitan [Pusat Bahasa Departemen Pendidikan Nasional](http://badanbahasa.kemdikbud.go.id) menjadi berkas teks biasa (_plain text_).
+Repo `kbbi` ini adalah upaya untuk mengalihtuliskan berkas PDF [Kamus Besar Bahasa Indonesia edisi IV](https://oldi.lipi.go.id/public/Kamus%20Indonesia.pdf) terbitan [Pusat Bahasa Departemen Pendidikan Nasional](http://badanbahasa.kemdikbud.go.id) menjadi berkas teks biasa (_plain text_).
 
 Script `kbbi4` membutuhkan paket-paket berikut:
 

checkindent.awk

@@ -0,0 +1,13 @@
+BEGIN{
+    max=0
+}
+{
+    match($0, /^\s+/)
+    if (RLENGTH > max){
+        max=RLENGTH
+    }
+}
+END{
+    if (max>0) print 1
+    else print 0
+}

kbbi4

@@ -37,14 +37,15 @@
 
 # Skrip ini bergantung pada map sumber yang terletak pada direktori yang sama
 # Dapatkan letak di mana skrip berada.
-readonly KBBI='sumber/Kamus-Besar-Bahasa-Indonesia.pdf'
+readonly KBBI='sumber/KBBI-IV.pdf'
 readonly LEMA='sumber/Lema_Tertinggal_KBBI_Ed._Keempat_Rev_Ver_4.pdf'
 readonly KBBIDIR=$(cd "$(dirname "$0")" || exit; pwd)
 readonly KBBIDIROUT="$KBBIDIR/teks"
 readonly BCKPDIR="$KBBIDIR/backup"
 readonly TXTDIR="$KBBIDIROUT/hasil_pdftotext"
 readonly GROUPDIR="$KBBIDIROUT/hasil_pengelompokkan"
 readonly RESDIR="$KBBIDIROUT/hasil_akhir"
+readonly KOREKSIDIR="$KBBIDIR/koreksi"
 
 # FUNCTIONS --------------------------------------------------------------------
 
@@ -133,25 +134,55 @@ berkas_lama() {
   fi
 }
 
+
+pdftotext_impl(){
+    readonly firsts=(19 127 262 317 392 422 445 529 583 622 669 868 978 1080 1101 1115 1259 1260 1352 1598 1784 1814 1822 1836 1837 1840)
+
+    printf ':: - %s\r' "Halaman ${1} -> $TXTDIR/kbbi4-$1.txt"
+    if [[ " ${firsts[*]} " =~ " ${1} " ]]; then
+        pdftotext -f "$1" -l "$1" -r 500 -eol unix -nopgbrk -x 0 -y 905 -W 1625 -H 3800 -layout "$KBBI" "$1.tmp"
+    else 
+        pdftotext -f "$1" -l "$1" -r 500 -eol unix -nopgbrk -x 0 -y 545 -W 1625 -H 3800 -layout "$KBBI" "$1.tmp"
+    fi
+
+    isok=$(gawk -f "checkindent.awk" "$1.tmp")
+    if [ $isok = "0" ]; then  #is not ok when there is no new entry in a page column
+        gawk '{print " "$0}' "$1.tmp" > "$TXTDIR/kbbi4-$1.txt" 
+    else 
+        mv "$1.tmp" "$TXTDIR/kbbi4-$1.txt" 
+    fi
+
+
+    pdftotext -f "$1" -l "$1" -r 500 -eol unix -nopgbrk -x 1630 -y 465 -W 1625 -H 3800 -layout "$KBBI" "$1.tmp"
+
+    echo >> "$TXTDIR/kbbi4-$1.txt"
+    isok=$(gawk -f "checkindent.awk" "$1.tmp")
+    if [ $isok = "0" ]; then  #is not ok when there is no new entry in a page column
+        gawk '{print " "$0}' "$1.tmp" >> "$TXTDIR/kbbi4-$1.txt" 
+    else 
+        cat "$1.tmp" >> "$TXTDIR/kbbi4-$1.txt" 
+    fi
+    rm "$1.tmp"
+}
+
 # Ubah pdf menjadi berkas biasa menggunakan pdftotext
 pdf_ke_teks() {
   teks_hijau 'Mengubah halaman PDF menjadi halaman teks biasa'
-  for i in {19..129}; do
-    printf ':: - %s\r' "Halaman ${i} -> $TXTDIR/kbbi4-$i.txt"
-    # Halaman untuk lema A memiliki tinggi bagian nomor yang berbeda dengan
-    # halaman lainnya (sekitar 600 px pada resolusi 500 dpi)
-    pdftotext -f "$i" -l "$i" -r 500 -eol unix -nopgbrk -x 0 -y 600 -W 3250 -H 3636 "$KBBI" "$TXTDIR/kbbi4-$i.txt"
-  done
 
-  for i in {130..1490}; do
-    printf ':: - %s\r' "Halaman ${i} -> $TXTDIR/kbbi4-$i.txt"
-    pdftotext -f "$i" -l "$i" -r 500 -eol unix -nopgbrk -x 0 -y 436 -W 3250 -H 3800 "$KBBI" "$TXTDIR/kbbi4-$i.txt"
+
+
+  N=4 #paralellize up to 4
+  (
+  for p in {19..1844}; do
+    ((i=i%N)); ((i++==0)) && wait
+    pdftotext_impl $p &
   done
+  )
 
   # Lema_Tertinggal_KBBI_Ed._Keempat_Rev_Ver_4 hanya akan diubah ke teks
   # untuk selanjutnya disunting secara manual
   # printf ':: - %s\r' "${LEMA##*/} -> $TXTDIR/${LEMA##*/}.txt"
-  pdftotext -r 500 -eol unix -nopgbrk "$LEMA" "$TXTDIR/${LEMA##*/}".txt
+  # pdftotext -r 500 -eol unix -nopgbrk "$LEMA" "$TXTDIR/${LEMA##*/}".txt
 }
 
 # Kelompokkan kata berdasar huruf awal
@@ -162,56 +193,56 @@ kelompokkan_kata() {
     exit
   fi
 
+
+
   # Pindah ke dalam TXTDIR agar baris perintah lebih pendek
   cd "$TXTDIR" || exit
-
-  cat kbbi4-{19..129}.txt > "$GROUPDIR"/kbbi4-A.txt
-  cat kbbi4-{130..263}.txt > "$GROUPDIR"/kbbi4-B.txt
-  cat kbbi4-{264..319}.txt > "$GROUPDIR"/kbbi4-C.txt
-  cat kbbi4-{320..390}.txt > "$GROUPDIR"/kbbi4-D.txt
-  cat kbbi4-{391..418}.txt > "$GROUPDIR"/kbbi4-E.txt
-  cat kbbi4-{419..439}.txt > "$GROUPDIR"/kbbi4-F.txt
-  cat kbbi4-{440..516}.txt > "$GROUPDIR"/kbbi4-G.txt
-  cat kbbi4-{517..553}.txt > "$GROUPDIR"/kbbi4-H.txt
-  cat kbbi4-{554..585}.txt > "$GROUPDIR"/kbbi4-I.txt
-  # Tidak ada lema J di berkas PDF KBBI 2008
-  #cat kbbi4-{..}.txt > "$GROUPDIR"/kbbi4-J.txt
-  cat kbbi4-{586..764}.txt > "$GROUPDIR"/kbbi4-K.txt
-  cat kbbi4-{765..866}.txt > "$GROUPDIR"/kbbi4-L.txt
-  cat kbbi4-{867..968}.txt > "$GROUPDIR"/kbbi4-M.txt
-  cat kbbi4-{969..989}.txt > "$GROUPDIR"/kbbi4-N.txt
-  cat kbbi4-{990..1002}.txt > "$GROUPDIR"/kbbi4-O.txt
-  # Tidak ada lema P di berkas PDF KBBI 2008
-  #cat kbbi4-{..}.txt > "$GROUPDIR"/kbbi4-P.txt
-  cat kbbi4-1003.txt > "$GROUPDIR"/kbbi4-Q.txt
-  cat kbbi4-{1004..1092}.txt > "$GROUPDIR"/kbbi4-R.txt
-  cat kbbi4-{1093..1259}.txt > "$GROUPDIR"/kbbi4-S.txt
-  cat kbbi4-{1260..1430}.txt > "$GROUPDIR"/kbbi4-T.txt
-  cat kbbi4-{1431..1459}.txt > "$GROUPDIR"/kbbi4-U.txt
-  cat kbbi4-{1460..1467}.txt > "$GROUPDIR"/kbbi4-V.txt
-  cat kbbi4-{1468..1481}.txt > "$GROUPDIR"/kbbi4-W.txt
-  cat kbbi4-1482.txt > "$GROUPDIR"/kbbi4-X.txt
-  cat kbbi4-{1483..1485}.txt > "$GROUPDIR"/kbbi4-Y.txt
-  cat kbbi4-{1486..1490}.txt > "$GROUPDIR"/kbbi4-Z.txt
+  cp "$KOREKSIDIR"/* "$GROUPDIR"
+  cat kbbi4-{19..126}.txt >> "$GROUPDIR"/kbbi4-A.txt
+  cat kbbi4-{127..261}.txt >> "$GROUPDIR"/kbbi4-B.txt
+  cat kbbi4-{262..316}.txt >> "$GROUPDIR"/kbbi4-C.txt
+  cat kbbi4-{317..391}.txt >> "$GROUPDIR"/kbbi4-D.txt
+  cat kbbi4-{392..421}.txt >> "$GROUPDIR"/kbbi4-E.txt
+  cat kbbi4-{422..444}.txt >> "$GROUPDIR"/kbbi4-F.txt
+  cat kbbi4-{445..528}.txt >> "$GROUPDIR"/kbbi4-G.txt
+  cat kbbi4-{529..582}.txt >> "$GROUPDIR"/kbbi4-H.txt
+  cat kbbi4-{583..621}.txt >> "$GROUPDIR"/kbbi4-I.txt
+  cat kbbi4-{622..668}.txt >> "$GROUPDIR"/kbbi4-J.txt
+  cat kbbi4-{669..867}.txt >> "$GROUPDIR"/kbbi4-K.txt
+  cat kbbi4-{868..977}.txt >> "$GROUPDIR"/kbbi4-L.txt 
+  cat kbbi4-{978..1079}.txt >> "$GROUPDIR"/kbbi4-M.txt
+  cat kbbi4-{1080..1100}.txt >> "$GROUPDIR"/kbbi4-N.txt
+  cat kbbi4-{1101..1114}.txt >> "$GROUPDIR"/kbbi4-O.txt 
+  cat kbbi4-{1115..1258}.txt >> "$GROUPDIR"/kbbi4-P.txt
+  cat kbbi4-1259.txt >> "$GROUPDIR"/kbbi4-Q.txt
+  cat kbbi4-{1260..1351}.txt >> "$GROUPDIR"/kbbi4-R.txt
+  cat kbbi4-{1352..1597}.txt >> "$GROUPDIR"/kbbi4-S.txt
+  cat kbbi4-{1598..1783}.txt >> "$GROUPDIR"/kbbi4-T.txt
+  cat kbbi4-{1784..1813}.txt >> "$GROUPDIR"/kbbi4-U.txt
+  cat kbbi4-{1814..1821}.txt >> "$GROUPDIR"/kbbi4-V.txt
+  cat kbbi4-{1822..1835}.txt >> "$GROUPDIR"/kbbi4-W.txt
+  cat kbbi4-1836.txt >> "$GROUPDIR"/kbbi4-X.txt
+  cat kbbi4-{1837..1839}.txt >> "$GROUPDIR"/kbbi4-Y.txt
+  cat kbbi4-{1840..1844}.txt >> "$GROUPDIR"/kbbi4-Z.txt
 
   # Pilah lema tertinggal sesuai huruf awal kata
-  gawk "NR==20,NR==105" "${LEMA##*/}.txt" > "$GROUPDIR"/lema-tertinggal-A.txt
-  gawk "NR==106,NR==211" "${LEMA##*/}.txt" > "$GROUPDIR"/lema-tertinggal-B.txt
-  gawk "NR==213,NR==216" "${LEMA##*/}.txt" > "$GROUPDIR"/lema-tertinggal-C.txt
-  gawk "NR==218,NR==237" "${LEMA##*/}.txt" > "$GROUPDIR"/lema-tertinggal-D.txt
-  gawk "NR==239,NR==258" "${LEMA##*/}.txt" > "$GROUPDIR"/lema-tertinggal-E.txt
-  gawk "NR==260,NR==299" "${LEMA##*/}.txt" > "$GROUPDIR"/lema-tertinggal-G.txt
-  gawk "NR==301,NR==304" "${LEMA##*/}.txt" > "$GROUPDIR"/lema-tertinggal-H.txt
-  gawk "NR==306,NR==384" "${LEMA##*/}.txt" > "$GROUPDIR"/lema-tertinggal-K.txt
-  gawk "NR==386,NR==398" "${LEMA##*/}.txt" > "$GROUPDIR"/lema-tertinggal-L.txt
-  gawk "NR==400,NR==408" "${LEMA##*/}.txt" > "$GROUPDIR"/lema-tertinggal-M.txt
-  gawk "NR==412,NR==419" "${LEMA##*/}.txt" > "$GROUPDIR"/lema-tertinggal-N.txt
-  gawk "NR==421,NR==428" "${LEMA##*/}.txt" > "$GROUPDIR"/lema-tertinggal-O.txt
-  gawk "NR==431,NR==463" "${LEMA##*/}.txt" > "$GROUPDIR"/lema-tertinggal-P.txt
-  gawk "NR==466,NR==473" "${LEMA##*/}.txt" > "$GROUPDIR"/lema-tertinggal-R.txt
-  gawk "NR==475,NR==499" "${LEMA##*/}.txt" > "$GROUPDIR"/lema-tertinggal-S.txt
-  gawk "NR==502,NR==504" "${LEMA##*/}.txt" > "$GROUPDIR"/lema-tertinggal-T.txt
-  gawk "NR==506,NR==508" "${LEMA##*/}.txt" > "$GROUPDIR"/lema-tertinggal-U.txt
+  # gawk "NR==20,NR==105" "${LEMA##*/}.txt" > "$GROUPDIR"/lema-tertinggal-A.txt
+  # gawk "NR==106,NR==211" "${LEMA##*/}.txt" > "$GROUPDIR"/lema-tertinggal-B.txt
+  # gawk "NR==213,NR==216" "${LEMA##*/}.txt" > "$GROUPDIR"/lema-tertinggal-C.txt
+  # gawk "NR==218,NR==237" "${LEMA##*/}.txt" > "$GROUPDIR"/lema-tertinggal-D.txt
+  # gawk "NR==239,NR==258" "${LEMA##*/}.txt" > "$GROUPDIR"/lema-tertinggal-E.txt
+  # gawk "NR==260,NR==299" "${LEMA##*/}.txt" > "$GROUPDIR"/lema-tertinggal-G.txt
+  # gawk "NR==301,NR==304" "${LEMA##*/}.txt" > "$GROUPDIR"/lema-tertinggal-H.txt
+  # gawk "NR==306,NR==384" "${LEMA##*/}.txt" > "$GROUPDIR"/lema-tertinggal-K.txt
+  # gawk "NR==386,NR==398" "${LEMA##*/}.txt" > "$GROUPDIR"/lema-tertinggal-L.txt
+  # gawk "NR==400,NR==408" "${LEMA##*/}.txt" > "$GROUPDIR"/lema-tertinggal-M.txt
+  # gawk "NR==412,NR==419" "${LEMA##*/}.txt" > "$GROUPDIR"/lema-tertinggal-N.txt
+  # gawk "NR==421,NR==428" "${LEMA##*/}.txt" > "$GROUPDIR"/lema-tertinggal-O.txt
+  # gawk "NR==431,NR==463" "${LEMA##*/}.txt" > "$GROUPDIR"/lema-tertinggal-P.txt
+  # gawk "NR==466,NR==473" "${LEMA##*/}.txt" > "$GROUPDIR"/lema-tertinggal-R.txt
+  # gawk "NR==475,NR==499" "${LEMA##*/}.txt" > "$GROUPDIR"/lema-tertinggal-S.txt
+  # gawk "NR==502,NR==504" "${LEMA##*/}.txt" > "$GROUPDIR"/lema-tertinggal-T.txt
+  # gawk "NR==506,NR==508" "${LEMA##*/}.txt" > "$GROUPDIR"/lema-tertinggal-U.txt
 }
 
 # Perbaiki kata hasil konversi pdftotext
@@ -223,7 +254,7 @@ perbaiki_kata() {
   fi
 
   teks_hijau 'Memperbaiki karakter yang keliru diubah OCR'
-  for i in kbbi4-{A..Z} lema-tertinggal-{A..Z}; do
+  for i in kbbi4-{A..Z}; do
     if [[ -f $GROUPDIR/$i.txt ]]; then
       printf ':: - %s\r' "dalam lema $i"
 
@@ -237,6 +268,7 @@ perbaiki_kata() {
       # 4. Ubah "ĺ" menjadi "->"
       # 5. Ubah " o " menjadi "->" pada baris di bawah 5 kolom
       # 6. Gabung baris berdasar lema.
+      # new regex: https://regex101.com/r/RTvtF4/3
       gawk -v huruf="^[$HURUF${HURUF,,}]" '
         {
           !/^[[:digit:]]$/
@@ -245,7 +277,7 @@ perbaiki_kata() {
           gsub("ĺ", "->")
           /NF<5/gsub(" o ", "->")
         }
-        $0 ~ huruf {
+        $0 ~ /^\S/ {
           if (x && NF>1)
             print x
           else
@@ -263,6 +295,24 @@ perbaiki_kata() {
       # 1. baris paling atas yang hanya memiliki satu huruf
       # 2. baris yang memiliki satu kata dengan awalan huruf lema
       gawk -i inplace 'NF>1' "$RESDIR/$i.txt"
+
+      # 1. pada pdf baru, terdapat artefak seperti 'A b l d = ( ^ t ) Ldt ...' yang dapat dideteksi dengan
+      # regex yang panjang ini.
+      # 2. delete nomor 
+      # 3. rubah "   ..." menjadi "  " (tidak menjadi " " karena "  " digunakan untuk membedakan subentri dengan entri )
+      # untuk ilustrasi, entri "atur" memiliki subentri "beratur" yang dibisah dengan "  " daripada " "
+      # >> "atur v beratur  beratur v disusun"
+      # daripada:
+      # >> "atur v beratur beratur v disusun"
+      # ini akan membantu jika mau memparsing lagi 
+      # 4. rubah I -> l kecuali untuk huruf pertama 
+      # 5. hapus "-    \S" 
+      # 6. hapus leading space
+      cat "$RESDIR/$i.txt" | sed -E 's/(\b(\S{1,3}\s+){7,})|((\s+\S{1,3}){7,}\b)//g' \
+          | sed -E 's/[0-9]+//g' | sed -E 's/\s\s+/  /g' | sed -E 's/\b(\S+)I/\1l/g' \
+          | sed -E 's/([a-Z])-\s{2,}([a-Z])/\1\2/g' | sed -E 's/^ *//g' | sed -E 's/ -- - / -- /g' > "$RESDIR/$i.tmp"
+
+      mv "$RESDIR/$i.tmp" "$RESDIR/$i.txt" 
     fi
   done
 }

koreksi/kbbi4-A.txt

@@ -0,0 +1,8 @@
+1
+ A, a n huruf pertama abjad 
+  Indonesia
+2
+ A n Ampere; lambang
+  satuan ukuran arus listrik
+3
+ a n are; nama satuan ukuran

koreksi/kbbi4-B.txt

@@ -0,0 +1,8 @@
+1
+ B, b /bé/ n huruf ke-2 abjad
+  Indonesia
+2
+ b n Mus nada ke-7 dl skala C
+  mayor
+3
+ b n singkatan kata "bin" yg

koreksi/kbbi4-C.txt

@@ -0,0 +1,5 @@
+C, c /cé/ n 1 huruf ke-3 abjad
+ Indonesia; 2 penanda ketiga
+ dl urutan (mutu dsb); 3 angka
+ Romawi untuk 100; 4 kece-
+ patan cahaya dalam ruang

koreksi/kbbi4-D.txt

@@ -0,0 +1,8 @@
+1
+ D, d /dé/ n 1 huruf ke-4 abjad
+  Indonesia; 2 Mus nada ke-2 dl
+  tangga nada C mayor
+2
+ D /dé/ n angka Romawi
+  untuk lambang bilangan 500
+

koreksi/kbbi4-E.txt

@@ -0,0 +1,7 @@
+1
+ E, e /é/ n 1 huruf ke-5 abjad
+  Indonesia; 2 tanda urutan ke-5
+2
+ e /é/ p kata seru untuk me-
+  narik perhatian, mengingatkan,
+  dan memanggil

koreksi/kbbi4-F.txt

@@ -0,0 +1,7 @@
+F, f /éf/ n huruf ke-6 abjad
+ Indonesia
+ fa n Mus nada ke-4 pd urutan
+ tangga
+ nada
+ diatonik,
+ dilambangkan dng angka 4

koreksi/kbbi4-G.txt

@@ -0,0 +1,5 @@
+G, g /gé/ n 1 huruf ketujuh
+ abjad Indonesia; 2 Mus nada
+ kelima dl tangga nada C mayor
+ g n singkatan dr gram
+ gabro n batuan beku basa

koreksi/kbbi4-H.txt

@@ -0,0 +1,7 @@
+H, h 1 huruf ke-8 abjad
+ Indonesia; 2 (di depan nama
+ orang
+ dapat
+ merupakan)
+ singkatan dr Haji; 3 Kim
+ lambang unsur hidrogen; 4 Fis lambang

koreksi/kbbi4-I.txt

@@ -0,0 +1,5 @@
+I, i huruf ke-9 abjad Indonesia
+ ia adv ya; beria berkata "ya";
+ ~ berbukan berunding; bermu-
+ fakat;
+ beria-ia v 1 selalu berkata "ya":

koreksi/kbbi4-J.txt

@@ -0,0 +1,6 @@
+J, j/jé/ huruf ke-10 abjad Indonesia
+1
+ jabal Ar n gunung atau bukit
+  (hanya terdapat dl nama, spt -- Kaf;
+  -- Labnun);
+  menjabal v tampak besar sbg

koreksi/kbbi4-K.txt

@@ -0,0 +1,5 @@
+K, k n huruf ke-11 abjad
+ Indonesia
+Kaabah o Kabah
+kab n ukuran isi kurang
+ lebih 2 liter

koreksi/kbbi4-L.txt

@@ -0,0 +1,6 @@
+L l /él/ n 1 huruf ke-12 abjad
+ lendonesia;
+ 2 angka Romawi untuk bi-
+ langan lima puluh (L); liter (l)
+1
+ la p  tiada; tidak ada (hanya terdapat dl

koreksi/kbbi4-M.txt

@@ -0,0 +1,7 @@
+1
+ M, m /ém/ n 1 huruf ke-13
+  abjad Indonesia; 2 (ditulis
+  dng huruf kapital) lambang
+  bilangan     1.000   angka
+  Romawi; 3 (ditulis dng huruf kapital
+

koreksi/kbbi4-N.txt

@@ -0,0 +1,5 @@
+N, n /én/ n 1 huruf ke-14 abjad
+ Indonesia; 2 Mat lambang untuk
+ jumlah yg tidak tentu
+nabati a mengenai tumbuh-tumbuhan; ber-
+ asal dr tumbuh-tumbuhan: lemak -- lebih

koreksi/kbbi4-O.txt

@@ -0,0 +1,5 @@
+O,o n huruf ke-5 abjad Indonesia
+oase n oasis
+oasis n daerah di padang pasir yg
+ berair cukup untuk tumbuh-tumbuhan
+ dan untuk pemukiman

koreksi/kbbi4-P.txt

@@ -0,0 +1,5 @@
+P, p /pe/ n huruf ke-16 abjad
+ Indonesia
+pa.be.an /pabéan/ n instansi atau
+ jawatan yg mengurusi pemungutan bea
+ impor atau ekspor

koreksi/kbbi4-Q.txt

@@ -0,0 +1,5 @@
+Q, q /ki/ n huruf ke-17 dl abjad
+ Indonesia
+qari n pembaca Quran (laki-laki)
+qariah n pembaca Quran (wanita)
+qasar n pemendekan (tt salat);

koreksi/kbbi4-R.txt

@@ -0,0 +1,8 @@
+1
+ R, r /ér/ n huruf ke-18 dl abjad
+  Indonesia
+2
+ R n kp Raden (Rd); gelar
+1
+ raba v 1 jamah; 2 ki terka; duga;
+  meraba v 1 menyentuh (memegang,