Annotation of db/prgsrc/eq/common.pl, revision 1.1
1.1 ! roma7 1: ################################################################
! 2: ########## стандартные заклинания, которые должны быть везде.###
! 3: ################################################################
! 4:
! 5: $rl=qr/[йцукенгшщзхъфывапролджэячсмитьбюё]/;
! 6: $RL=qr/[ЙЦУКЕНГШЩЗХЪЭЖДЛОРПАВЫФЯЧСМИТЬБЮЁ]/;
! 7: $RLrl=qr/(?:(?:${rl})|(?:${RL}))+/;
! 8: $l=qr/(?:(?:${RLrl})|(?:[\w\-]))+/;
! 9: $Ll=qr/(?:[A-Z])|(?:${RL})/;
! 10:
! 11:
! 12: install_locale();
! 13:
! 14: sub install_locale
! 15: {
! 16: my ($thislocale);
! 17: if ($^O ~= /win/i) {
! 18: $thislocale = "Russian_Russia.20866";
! 19: } else {
! 20: $thislocale = "ru_RU.KOI8-R";
! 21: }
! 22: POSIX::setlocale( &POSIX::LC_ALL, $thislocale );
! 23: if ((uc 'а') ne 'А') {die "!Koi8-r locale not installed!\n"};
! 24: }
! 25:
! 26: do "chgk.cnf"
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>