Makrá v OpenOffice.org 07/2008

Dnešný diel seriálu makier bude trochu netradičný, pretože si uvedieme makro pre prácu so slovníkmi. Preto netradičný, lebo sa jedná o veľmi špecifické makro, ktoré je viazané nielen na rozšírenie, pomocou ktorého je šírené, ale aj na konkrétnu verziu tvarovania slov v slovníku slovenského jazyka.

Pre pochopenie, ako je makro vytvorené si musíme aspoň v skratke uviesť, ako sú definované slovníky v programoch OpenOffice.org, Mozilla Thunderbird a Mozilla Firefox. Slovníky sa vlastne skladajú z dvoch súborov. Prvý má príponu „.dic“ a v ňom sú definované vlastné slová v tvare: slovo/tvarovanie (napríklad „tvar/B“, „nakázaný/NY“ ...).

Tvarovanie je vlastne definícia prefixov a sufixov, ktorými sa slovo môže upravovať. Táto definícia sa skladá z piatich častí. Prvá časť (PFX alebo SFX) určuje, či sa jedná o tvarovanie na začiatku (prefix) alebo konci (sufix) slova. Druhá časť je definičné písmeno príslušného tvarovania (to, ktoré je uvedené v slovníku za znakom lomky). Tretia časť je časť slova, ktorá sa nahrádza, štvrtá časť sú znaky, ktorými sa nahrádza a piata časť sú podmienky (definované pomocou regulárnych výrazov).

Napríklad definícia: „SFX z a e [^euo]a“ hovorí, že v slove, ktoré tvarujeme podľa vzoru žena (to hovorí časť „SFX z“) sa nahrádza posledné písmeno „a“ za „e“ ak slovo končí na písmeno „a“, pred ktorým však nesmú byť znaky „eou“. Vďaka tomuto zápisu stačí mať v slovníku slovo „žena/z“ a automaticky sa za správne považuje aj slovo „žene“.

Pri tvarovaní nájdeme aj špecifické tvarovania, kde sa nič nenahrádza, ale iba s pridáva. Vtedy sa namiesto znaku, ktorý sa má nahradiť píše číslo 0. Napríklad definícia „PFX N 0 ne.“ je určená pre zápory, teda definíciou slova „nakázaný/NY“ automaticky definujeme aj slovo „nenakázaný“.

Pred vlastným uvedením makra ešte musíme spomenúť, že ako prvý riadok definícii tvarovania je vždy uvedený ich počet, napríklad „SFX Z Y 157“. Pretože tento sa môže meniť, musíme pri čítaní definičného súboru tento počet zisťovať.

OpenOffice.org pri čítaní textových súborov používa kódovú stránku OpenOffice.org. Preto sme museli pripraviť definičné súbory špeciálne pre rôzne kódové stránky, pretože sa tam, prirodzene, nachádzajú aj znaky s diakritikou. Aby sme tieto súbory nemuseli hľadať, vložili sme ich priamo do rozšírenia.

Rozsah makier je naozaj veľký a preto ho rozdelíme do viacerých dielov tohto seriálu. Dnes začneme funkciami, ktoré sú uložené v module „Slovnik_init“ a sú určené pre počiatočnú prípravu rozšírenia pre spracovanie slova. Upozorňujeme, že makrá nie sú veľmi okomentované a preto sú určené pre vyspelejších programátorov.

Tak isto sa nebudeme bližšie zaoberať dialógmi, pretože to, ako sú definované (ich premenné) sa dá pozrieť v ich definícii.

sub slovnik_init(oDialog)
 dim Kurzor, Povodny as object
 dim riadok, slovo, parametre as string
 dim i, kolko as integer

 kurzor= ThisComponent.currentcontroller.getViewCursor() ' viditeľný kurzor
 Povodny=kurzor.getstart()
 kurzor.collapsetostart()
 Kurzor.gotoStartOfLine(false)
 Kurzor.gotoEndOfLine(true)
 riadok=trim(Kurzor.getstring())
 Kurzor.collapseToEnd()
 kurzor.gotoRange(Povodny,false)
 
 if riadok<>"" then
  slovo=riadok
  parametre=""
  i=instr(riadok,"/")
  if i<>0 then
   slovo=left(riadok,i-1)
   parametre=right(riadok,len(riadok)-i)
  endif
  oDialog_slovnik.model.Slovo_slovnika.Text=slovo
  
  if instr(1,parametre,"N",0)<>0 then oDialog_slovnik.model.pfx_N.State=1
  if instr(1,parametre,"F",0)<>0 then oDialog_slovnik.model.pfx_F.State=1
  if instr(1,parametre,"Z",0)<>0 then oDialog_slovnik.model.sfx_Z.State=1
  if instr(1,parametre,"z",0)<>0 then oDialog_slovnik.model.sfx_mz.State=1
  if instr(1,parametre,"U",0)<>0 then oDialog_slovnik.model.sfx_U.State=1
  if instr(1,parametre,"D",0)<>0 then oDialog_slovnik.model.sfx_D.State=1
  if instr(1,parametre,"K",0)<>0 then oDialog_slovnik.model.sfx_K.State=1
  if instr(1,parametre,"M",0)<>0 then oDialog_slovnik.model.sfx_M.State=1
  if instr(1,parametre,"S",0)<>0 then oDialog_slovnik.model.sfx_S.State=1
  if instr(1,parametre,"V",0)<>0 then oDialog_slovnik.model.sfx_V.State=1
  if instr(1,parametre,"A",0)<>0 then oDialog_slovnik.model.sfx_A.State=1
  if instr(1,parametre,"C",0)<>0 then oDialog_slovnik.model.sfx_C.State=1
  if instr(1,parametre,"H",0)<>0 then oDialog_slovnik.model.sfx_H.State=1
  if instr(1,parametre,"B",0)<>0 then oDialog_slovnik.model.sfx_B.State=1
  if instr(1,parametre,"b",0)<>0 then oDialog_slovnik.model.sfx_mb.State=1
  if instr(1,parametre,"o",0)<>0 then oDialog_slovnik.model.sfx_mo.State=1
  if instr(1,parametre,"O",0)<>0 then oDialog_slovnik.model.sfx_O.State=1
  if instr(1,parametre,"J",0)<>0 then oDialog_slovnik.model.sfx_J.State=1
  if instr(1,parametre,"L",0)<>0 then oDialog_slovnik.model.sfx_L.State=1
  if instr(1,parametre,"Q",0)<>0 then oDialog_slovnik.model.sfx_Q.State=1
  if instr(1,parametre,"Y",0)<>0 then oDialog_slovnik.model.sfx_Y.State=1
  if instr(1,parametre,"I",0)<>0 then oDialog_slovnik.model.sfx_I.State=1
  if instr(1,parametre,"P",0)<>0 then oDialog_slovnik.model.sfx_P.State=1
  if instr(1,parametre,"X",0)<>0 then oDialog_slovnik.model.sfx_X.State=1
  if instr(1,parametre,"E",0)<>0 then oDialog_slovnik.model.sfx_E.State=1
  if instr(1,parametre,"W",0)<>0 then oDialog_slovnik.model.sfx_W.State=1
  if instr(1,parametre,"T",0)<>0 then oDialog_slovnik.model.sfx_T.State=1
  if instr(1,parametre,"R",0)<>0 then oDialog_slovnik.model.sfx_R.State=1
  if instr(1,parametre,"č",0)<>0 then oDialog_slovnik.model.sfx_c_c.State=1
  
 endif
end sub

function citaj_definiciu as boolean

 ' dim cesty as object
 dim subor as integer
 dim riadok as string
 dim prvy as long
 dim cesta as string
 dim nacital as boolean
 dim nazov as string
  
 'cesty=CreateUnoService("com.sun.star.util.PathSettings")
 
 ' DialogLibraries.LoadLibrary("SK_SK_Slovnik")
 
 oDialog_CP=CreateUnoDialog(DialogLibraries.SK_SK_Slovnik.Dialog_CP)
 
 oDialog_CP.model.UTF_8.state=1
 oDialog_CP.model.CP_1250.state=0
 oDialog_CP.model.ISO_8859_2.state=0
 
 nacital=false
 
 if oDialog_CP.Execute()=1 then
  if oDialog_CP.model.UTF_8.state=1 then nazov="sk_SK_aff_UTF_8.txt"
  if oDialog_CP.model.CP_1250.state=1 then nazov="sk_SK_aff_CP_1250.txt"
  if oDialog_CP.model.ISO_8859_2.state=1 then nazov="sk_SK_aff_ISO_8859_2.txt"
  REM Cesta, kde je nainštalované rozšírenie SK_SK_Slovnik – treba si najprv nechať vypísať, aby sa zistilo, čo je potrebné ponechať
  cesta=basiclibraries.getLibraryLinkURL("SK_SK_Slovnik")
  cesta=left(cesta,len(cesta)-10)+nazov
  subor = Freefile
  open cesta for Input as #subor
  'open cesty.Work+"/sk_SK_aff.txt" for Input as #subor
  prvy=0
  While not eof(subor)
   Line Input #subor, riadok
   prvy=spracuj_riadok(riadok,prvy)
  wend
  close #subor
  nacital=true
 endif
 oDialog_CP.dispose()
 citaj_definiciu=nacital
 
end function

Neprehliadnite:

• Akcie, letáky a zľavy
• Pôžičky a úvery pre všetkých
• Turistický sprievodca Budapešťou
• Turistický sprievodca Košicami
• Turistický sprievodca Londýnom
• Turistický sprievodca Prahou
• Turistický sprievodca Viedňou
• Turistický sprievodca Slovenskom

Pozrite si tiež:

«  Microsoft: Prvý deň bez

Makrá v OpenOffice.org 08/2008  »