#!/usr/bin/awk -f function reset() { delete kohdat; } function hae_avain(txt) { # Poistetaan tyhjät merkit alusta. txt = gensub("^ *(.*)", "\\1", "1", txt); # -> teksti txt = gensub("\\]*\\|(]*)\\]\\]", "\\1", "g", txt); # ] -> linkkiteksti txt = gensub("\\]*)\\]\\]", "\\1", "g", txt); # Virhe, jos {{l|xx|tekti|jotain}} if ( match(txt, "{{*\\|..\\|(*)\\|.*}}") ) { print "VIRHE: " NR ": MITÄ TEHDÄ?? 3-osainen l-malline"; exit 1; } # {{l|xx|teksti}} -> teksti txt = gensub("{{l\\|..\\|(*)}}", "\\1", "g", txt); return txt; if ( match(txt, "\\\\]", a) ) # ] return a; else if ( match(txt, "\\]*)\\]\\]", a) ) # ] return a; else if ( match(txt, "{{l\\|..\\|(.*)}}", a) ) # {{l|fi|teksti}} return a; else if ( !match(txt, "(\\{\\{)|\\[\\[") ) # pelkkä teksti return txt; return "ERROR"; } BEGIN { sisalla = 0; # 1, jos ollaan {{ylä}}- ja {{ala}}-tagien välissä } /^{{palstaalku}}/ { sisalla = 1; next; } /^{{palstajako}}/ { next; } /^{{palstajako4}}/ { next; } /^{{palstaloppu}}/ { sisalla = 0; n = asorti(kohdat, ind); m = 0; # tulostettujen jakojen määrä n4 = int(n/4 + 0.99); if ( n4 < 4 ) n4 = 4; print "{{palstaalku}}"; for (ci = i = 1; i <= n; i++ && ci++) { if ( ci-1 == n4 ) { print "{{palstajako4}}"; m++; ci = 1; } print kohdat]; } # Tulostetaan lopu jaot, jos kaikkia ei tarvittu. for ( i = 0; i < 3 - m; i++ ) print "{{palstajako4}}"; print "{{palstaloppu}}"; reset(); next; } # Alikohta sisalla == 1 && /^\*/ { print "VIRHE: " NR ": Alikohdat ei tuettu"; next; } # Varsinainen kohta sisalla == 1 && /^\\*/ { # muu kuin /^\*/ if ( match($0, /^\\* *(.*)/) ) { krivi = 0; vali = substr($0, 2, RLENGTH - 1); avain = hae_avain(vali); if ( avain ) { kohdat = $0; # print "löytyi: : " kohdat; } else print "VIRHE: " NR ": Tuntematon malline: " vali; } else { print "VIRHE: " NR ": Omituinen muoto: " $0; } next; } sisalla == 1 && /^*$/ { #skipataan tyhjät next; } sisalla == 1 { # muu rivi print "VIRHE: " NR ": Asiaton rivi: " $0; exit 1; next; } sisalla == 0 { print $0; } END { }