Re: [Gregorio-users] Workflow suggestion

Wed, 22 Dec 2010 03:57:42 -0800 

I've developed a few of my own over time. I use Linux and the
commandline interface, plus
 an advanced text editor with numerous macros I've written, (eg. I
assigned F3 to jump to the next pair of brackets).

One is a script for hyphenation. It's written in sed, and is
essentially a long list of rules for inserting hyphenations and an
even longer list of corrections :) The other is for tex files that
require multiple gabc files. I create a "master file", with scores
enclosed in <sc> tags and text enclosed in <tx> tags. I called it
"chunk", rather unpoetically, but "split" was taken :) I've attached
them in case anyone is interested.

Usage for syllables is:
  sed -f syllable_psalm.sed <GABC FILE>

and for the file splitter:
  chunk_version_2.perl <MASTER FILE>


I've also developed my own set of codes with accompanying scripts for
setting the Psalms, if anyone is interested. They can create a gabc
for any tone and add the italics and boldfaces in the text.

I also use Richard Chonak's gprocess script, with a few of my own
modifications.

I'll let you know if I think of some more.

HTH,

Andrew.

www.sacredmusicproject.com

/{\\bf\sPsalm\s[0-9]/d
/%/d
/^$/d

/^[A-Z]/{s/^/ /}

#Dirty Hack
s/\?/XXX/g

s/\.\s/ . /g
s/\,\s/ , /g
s/;\s/ ; /g
s/:\s/ : /g
#s/XXX\s/ ? /g
s/\s\s/ /g
#s/\s\\XXX/XXX /g
/[a-z.,:;?]\s/s/\s/() /g

s/\\ae\s/ae/g
s/\\ae/ae/g

s/a/a()/g
s/e/e()/g
s/i/i()/g
s/o/o()/g
s/u/u()/g
s/á/á()/g
s/é/é()/g
s/í/í()/g
s/ó/ó()/g
s/ú/ú()/g
s/A/A()/g
s/E/E()/g
s/I/I()/g
s/O/O()/g
s/U/U()/g
s/bd/b()d/g
s/bj/b()j/g
s/bl/b()l/g
s/bm/b()m/g
s/bs/b()s/g
s/bt/b()t/g
s/cc/c()c/g
s/cq/c()q/g
s/ct/c()t/g
s/dd/d()d/g
s/dh/d()h/g
s/dj/d()j/g
s/dm/d()m/g
s/dv/d()v/g
s/ff/f()f/g
s/lb/l()b/g
s/lc/l()c/g
s/ld/l()d/g
s/lg/l()g/g
s/ll/l()l/g
s/ls/l()s/g
s/lt/l()t/g
s/lv/l()v/g
s/mb/m()b/g
s/md/m()d/g
s/mm/m()m/g
s/mn/m()n/g
s/mp/m()p/g
s/mq/m()q/g
s/mt/m()t/g
s/nd/n()d/g
s/nf/n()f/g
s/ng/n()g/g
s/nh/n()h/g
s/nj/n()j/g
s/nn/n()n/g
s/nq/n()q/g
s/ns/n()s/g
s/nt/n()t/g
s/nv/n()v/g
s/pp/p()p/g
s/ps/p()s/g
s/pt/p()t/g
s/r/r()/g
s/rr/r()r/g
s/sf/s()f/g
s/ss/s()s/g
s/sq/s()q/g

#/()[a-z]:*/{s/:()//g}
#s/[a-z]:()/:()/g

s/a()e()/ae()/g
s/a()é()/aé()/g
s/a()u()/au()/g
s/á()u()/áu()/g
s/A()u()/Au()/g
s/()b()/b()/g
s/br()/br/g
s/()c()/c()/g
s/chr()/chr/g
s/()d()/d()/g
s/()l()/l()/g
s/()m()/m()/g
s/()n()/n()/g
s/()nc/nc()/g
s/()p()/p()/g
s/qu()/qu/g
s/Qu()/Qu/g
s/quu/qu()u/g
s/()r()/()r/g
#/()r[.,;:]()/s/()r/r()/g
s/()rr/r()r/g
s/r()r()/r()r/g
/()r()$/{s/()r/r/}
s/()s()/s()/g
s/()t()/t()/g
s/()tr()/()tr/g
s/()x/x()/g
s/()>/>/g
/[a-z]()./s/()\./.()/g
/[a-z](),/s/()\,/,()/g
/[a-z]();/s/()\;/;()/g
/[a-z]():/s/()\:/:()/g
#/[a-z]()\XXX/s/()\XXX/XXX()/g
s/()\s\.()/.() /g
s/()\s\,()/,() /g
s/()\s\;()/;() /g
s/()\s\:()/:() /g
#s/()\s\XXX()/XXX() /g
s/^()()/XXTEMPXX/
s/()()/()/g
s/XXTEMPXX/()()/
#s/^()/()()/g
/\s()$/!{s/$/ ()/}
s/\s\s/ /g
#/e()r[aeiou]/{s/e()r/er()/}

#Postfixes/postprocessing/bugs
s/()á()u()/()áu()/g
s/\sfr()/ fr/g
s/\sgr()/ gr/g
s/\spr()/ pr/g
s/\str()/ tr/g
s/()cr()/()cr/g
s/()fr()/()fr/g
s/()gr()/()gr/g
s/()pr()/()pr/g
s/()tr()/()tr/g
s/()str()/s()tr/g
s/()f()f/f()f/g
s/\sp()s/ps/g

s/()r\./r./g  
s/()r\,/r,/g
s/()r\:/r:/g
s/()r\;/r;/g
s/()r()/r()/g
s/()inc()/in()c/g
s/\se()st()/ est()/g
s/()<\/i>/<\/i>()/g
s/()<\/b>/<\/b>()/g
s/()-/-()/g
s/rb/r()b/g
s/rc/r()c/g
s/rf/r()f/g
s/rg/r()g/g
s/rm/r()m/g
s/rn/r()n/g
s/rp/r()p/g
s/rs/r()s/g
s/rt/r()t/g
s/rv/r()v/g
s/rd/r()d/g
s/()r()/r()/g
s/\sr()/ r/g
s/()XXX/XXX()/g
#Psalm specific
#s/\\\\//g
#s/()$/(::)/
s/\\bf()\s/\bf /g
s/\\\\\s()$/(::) \\\\/g
s/*()/*(:)/g
s/^{bf/{\\bf/g

#s/()\\XXX/XXX/g

s/()\.()/.() /g
s/()\,()/,() /g
s/()\;()/;() /g
s/()\:()/:() /g
#s/()\XXX()/XXX() /g
s/XXX/?/g
s/()()/()/g
s/\s\s/ /g
s/\\\\$//g

s/()\s(::)/(\\n1) (::)/g
s/()\s\*(:)/(\\m1) *(:)/g

##s?{}\([^{]*\){\\it}?{\\it \1}{}?g
#s?}\([^\(].*\)\(\)\([^(]*\)()\([^(]*\)()\([^(]*\)?\1()\2()\3()\4()?g
# [^(] means "match until )"
s?}()\s\([^)]*\)()\([^)]*\)()\([^)]*\)()?} \1(\\i1)\2(\\i2)\3(\\i3)?

s/[Rr]e()spon()se:()/\&{\\bf Response:}\&/
s/[Cc]an()tor()s:()/\&{\\bf Cantors:}\&/
s/[Cc]ho()ir:()/\&{\\bf Choir:}\&/
s/[Vv]er()se()/verse/

Attachment: chunk_version_2.perl
Description: Perl program

_______________________________________________
Gregorio-users mailing list
[email protected]
https://mail.gna.org/listinfo/gregorio-users

Reply via email to