[devel] польские файлы

[devel] польские файлы

[Alexey Tourbin]

[-- Attachment #1: Type: text/plain, Size: 2415 bytes --]

По поводу польских файлов предлагаю следующее.  Алгоритм никакой,
но на польских файлах срабатывает хорошо за счет non-ascii.  Было бы
интересно сделать обучающую машину, но на это может уйти много времени.


--- /usr/lib/rpm/find-provides~	2003-09-27 22:27:57 +0400
+++ /usr/lib/rpm/find-provides	2003-10-06 19:35:16 +0400
@@ -146,7 +146,7 @@
 	# Ignore symlinks for non-PAM scripts.
 	[ ! -L "$f" ] || return 0
 
-	if [ -z "${t##perl script text*}" -o -z "${t##Perl5 module source text}" ] || [ -z "${f%%*.p[lmh]}" -a -z "${t##*text*}" ]; then
+	if [ -z "${t##perl script text*}" -o -z "${f%%*.p[lmh]}" ]; then
 		if [ -n "$FIND_PERL" ]; then
 			[ -z "$LIST_PERL" ] && LIST_PERL="$f" || LIST_PERL="$LIST_PERL
 $f"

--- /usr/lib/rpm/perl.req	2003-09-30 14:42:01 +0000
+++ RPM/SOURCES/rpm-perl.req	2003-10-06 15:28:05 +0000
@@ -276,9 +276,18 @@ sub process_file {
 		process_line($_);
 	}
 	unless (close PIPE) {
-		$method ne 'relaxed'
-			and die "$fname: deparse failed.\n"
-			or warn "$fname: deparse failed.\n";
+		if ($method eq 'relaxed') {
+			warn "$fname\: deparse failed, but I don't care\n";
+		} elsif ($method eq 'strict') {
+			die "$fname\: deparse failed.\n";
+		} else {
+			my $v = isPerl($fname);
+			if ($v > 0) {
+				die "$fname\: deparse failed. isPerl=$v\n";
+			} else {
+				warn "$fname\: deparse failed, isPerl=$v, ok\n";
+			}
+		}
 	}
 }
 
@@ -390,3 +399,56 @@ foreach my $k (keys %req) {
 }
 # nothing special?
 print "perl-base\n" unless %req;
+
+# auxiliary stuff
+sub count($$) {
+	debug "$_[0] $_[1]";
+}
+
+sub isPerl {
+	my $fname = shift;
+	chomp $fname;
+	open(FILE, $fname) || die;
+	local $_ = join "" => <FILE>;
+	close FILE;
+	debug "processing $fname";
+	my ($n, @n);
+
+# POSITIVE
+# variables
+	@n = /[$%@]\w+/g;
+	count @n, "variables";
+	$n += @n;
+# comments
+	@n = /^\s*#/gm;
+	count @n, "comments";
+	$n += @n;
+# blocks
+	@n = /{$|^\s*}/gm;
+	count @n, "blocks";
+	$n += @n;
+# keywords
+	@n = /\b(unless|foreach|package|sub|use|strict)\b/gm;
+	count @n, "keywords";
+	$n += @n;
+# pod
+	@n = /^=(?:back|begin|cut|end|for|head|item|over|pod)/gm;
+	count @n, "pod sections";
+	$n += @n;
+# modules
+	@n = /^1;$/gm;
+	count @n, "`1;'";
+	$n += @n;
+
+# NEGATIVE
+# non-ascii characters
+	@n = /[^[:ascii:]]/g;
+	count @n, "non-ascii characters";
+	$n -= @n;
+# prolog
+	@n = /:-/g;
+	count @n, "prolog :- operators";
+	$n -= @n;
+# density
+	$n /= -s $fname;
+}

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

Re: [devel] польские файлы

[Alexander Bokovoy]

On Mon, Oct 06, 2003 at 07:38:24PM +0400, Alexey Tourbin wrote:
> По поводу польских файлов предлагаю следующее.  Алгоритм никакой,
> но на польских файлах срабатывает хорошо за счет non-ascii.  Было бы
> интересно сделать обучающую машину, но на это может уйти много времени.
А на конфигах для поляков? Где все ascii, но это не перл?

Например, /usr/share/texmf/dvips/pl/config.pl:
------------------------------------------------
p +pl.map
------------------------------------------------


-- 
/ Alexander Bokovoy
---
BARBARA STANWYCK makes me nervous!!

[devel] Re: польские файлы

[Michael Shigorin]

[-- Attachment #1: Type: text/plain, Size: 402 bytes --]

On Tue, Oct 07, 2003 at 12:04:34PM +0300, Alexander Bokovoy wrote:
> > По поводу польских файлов предлагаю следующее.  Алгоритм никакой,
> > но на польских файлах срабатывает хорошо за счет non-ascii.  Было бы
> А на конфигах для поляков? Где все ascii, но это не перл?

Мож еще executability проверять?

-- 
 ---- WBR, Michael Shigorin <mike@altlinux.ru>
  ------ Linux.Kiev http://www.linux.kiev.ua/

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

Re: [devel] Re: польские файлы

[Viktor S. Grishchenko]

В сообщении от 7 Октябрь 2003 17:12 Michael Shigorin написал(a):
> Мож еще executability проверять?

Весьма просто и разумно. Мои шаблоны из KDevelop тоже можно так отсеять.

-- 
	Viktor S. Grishchenko

[devel] Re: польские файлы

[Alexey Tourbin]

[-- Attachment #1: Type: text/plain, Size: 634 bytes --]

On Tue, Oct 07, 2003 at 12:04:34PM +0300, Alexander Bokovoy wrote:
> On Mon, Oct 06, 2003 at 07:38:24PM +0400, Alexey Tourbin wrote:
> > По поводу польских файлов предлагаю следующее.  Алгоритм никакой,
> > но на польских файлах срабатывает хорошо за счет non-ascii.  Было бы
> > интересно сделать обучающую машину, но на это может уйти много времени.
> А на конфигах для поляков? Где все ascii, но это не перл?
> 
> Например, /usr/share/texmf/dvips/pl/config.pl:
> ------------------------------------------------
> p +pl.map
> ------------------------------------------------

На этом конфиге ровно ноль, а условие проверки > 0. :)

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

[devel] Re: польские файлы

[Alexey Tourbin]

[-- Attachment #1: Type: text/plain, Size: 335 bytes --]

On Tue, Oct 07, 2003 at 05:53:05PM +0600, Viktor S. Grishchenko wrote:
> В сообщении от 7 Октябрь 2003 17:12 Michael Shigorin написал(a):
> > Мож еще executability проверять?
> 
> Весьма просто и разумно. Мои шаблоны из KDevelop тоже можно так отсеять.

$ l /usr/lib/perl5/*.pl | awk '{print $1}' | sort | uniq -c
     35 -rw-r--r--
$

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

[devel] Re: польские файлы

[Michael Shigorin]

[-- Attachment #1: Type: text/plain, Size: 417 bytes --]

On Tue, Oct 07, 2003 at 03:56:44PM +0400, Alexey Tourbin wrote:
> > > Мож еще executability проверять?
> > Весьма просто и разумно. Мои шаблоны из KDevelop тоже можно так отсеять.
> $ l /usr/lib/perl5/*.pl | awk '{print $1}' | sort | uniq -c
>      35 -rw-r--r--

Ну и?  Если это perl -- полисифицировать исполнимость.

-- 
 ---- WBR, Michael Shigorin <mike@altlinux.ru>
  ------ Linux.Kiev http://www.linux.kiev.ua/

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

Re: [devel] Re: польские файлы

[Andrey Orlov]

В сообщении от Вторник 07 Октябрь 2003 16:21 Michael Shigorin написал:
> Ну и?  Если это perl -- полисифицировать исполнимость.

Это у вас модули в *pm. А с питоном че делать? В общем, идея что любой *pl 
должен быть исполнимым мне не нравится. Лучше перечислить все места, где 
могут лежать исполняемые файлы и чекать зависимости и т.п. только на них.
Если в каталоге с локалями и т.п. всплывает исполняемый перлячий скрипт,
то это проблема другого рода, которую надо решать не зависимо от того,
соответствует содержимое скрипта полиси или нет, и удовлетворены ли для него
зависимости.

-- 
WthBstRgrds -- Андрей Орлов --  
 --- http: www.neural.ru, mail: cray@neural.ru, jid: cray@altlinux.org ---
----------------------------------------

[devel] Re: польские файлы

[Alexey Tourbin]

[-- Attachment #1: Type: text/plain, Size: 473 bytes --]

On Tue, Oct 07, 2003 at 03:21:08PM +0300, Michael Shigorin wrote:
> On Tue, Oct 07, 2003 at 03:56:44PM +0400, Alexey Tourbin wrote:
> > > > Мож еще executability проверять?
> > > Весьма просто и разумно. Мои шаблоны из KDevelop тоже можно так отсеять.
> > $ l /usr/lib/perl5/*.pl | awk '{print $1}' | sort | uniq -c
> >      35 -rw-r--r--
> 
> Ну и?  Если это perl -- полисифицировать исполнимость.

Нет, это библиотеки, не предназначенные для запуска из командной строки.

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

[devel] Re: польские файлы

[Alexey Tourbin]

[-- Attachment #1: Type: text/plain, Size: 210 bytes --]

On Tue, Oct 07, 2003 at 04:56:05PM +0400, Andrey Orlov wrote:
> Если в каталоге с локалями и т.п. всплывает исполняемый перлячий скрипт,

Это очень интуитивные понятия, увы.
Пока приходится искать компромиссы.

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

Re: [devel] Re: польские файлы

[Sergey V Turchin]

[-- Attachment #1: signed data --]
[-- Type: text/plain, Size: 474 bytes --]

В сообщении от 7 Октябрь 2003 17:39 Alexey Tourbin написал(a):
> On Tue, Oct 07, 2003 at 04:56:05PM +0400, Andrey Orlov wrote:
> > Если в каталоге с локалями и т.п. всплывает исполняемый
> > перлячий скрипт,
>
> Это очень интуитивные понятия, увы.
> Пока приходится искать компромиссы.
А может просто исключить /usr/share/ из поиска перловых файлов?

-- 
Regards, Sergey, ALT Linux Team, http://www.altlinux.ru
http://stinkfoot.org:11371/pks/lookup?op=get&search=0x1C2A3F08

[-- Attachment #2: signature --]
[-- Type: application/pgp-signature, Size: 189 bytes --]

Re: [devel] Re: польские файлы

[Andrey Orlov]

On Wednesday 08 October 2003 02:40, Sergey V Turchin wrote:
> > Это очень интуитивные понятия, увы.
> А может просто исключить /usr/share/ из поиска перловых файлов?

О чем, собственно, я и веду речь.


-- 
WthBstRgrds -- Андрей Орлов --  
 --- http: www.neural.ru, mail: cray@neural.ru, jid: cray@altlinux.org ---
----------------------------------------

Re: [devel] Re: польские файлы

[Alexander Bokovoy]

On Wed, Oct 08, 2003 at 10:51:01AM +0400, Andrey Orlov wrote:
> On Wednesday 08 October 2003 02:40, Sergey V Turchin wrote:
> > > Это очень интуитивные понятия, увы.
> > А может просто исключить /usr/share/ из поиска перловых файлов?
> 
> О чем, собственно, я и веду речь.
Я об этом говорил давно.
-- 
/ Alexander Bokovoy
---
C'est magnifique, mais ce n'est pas l'Informatique.
		-- Bosquet [on seeing the IBM 4341]

Re: [devel] Re: польские файлы

[Dmitry V. Levin]

[-- Attachment #1: Type: text/plain, Size: 430 bytes --]

On Wed, Oct 08, 2003 at 11:59:44AM +0300, Alexander Bokovoy wrote:
> On Wed, Oct 08, 2003 at 10:51:01AM +0400, Andrey Orlov wrote:
> > On Wednesday 08 October 2003 02:40, Sergey V Turchin wrote:
> > > > Это очень интуитивные понятия, увы.
> > > А может просто исключить /usr/share/ из поиска перловых файлов?
> > 
> > О чем, собственно, я и веду речь.
> Я об этом говорил давно.

Нет, это было бы неправильным решением.


-- 
ldv

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]