[devel] GroupUserFolder-3.2-alt1.1 lazarus-0.9.22-alt1

[devel] GroupUserFolder-3.2-alt1.1 lazarus-0.9.22-alt1

[Alexey Tourbin]

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

> GroupUserFolder-3.2-alt1.1
> 	(Missing operator before $?)
> 	syntax error at
> 	/usr/src/tmp/GroupUserFolder-buildroot/usr/lib/zope/lib/python/Products/GroupUserFolder/cvs2cl.pl
> 	line 2, near "$0 $"
> 	/usr/src/tmp/GroupUserFolder-buildroot/usr/lib/zope/lib/python/Products/GroupUserFolder/cvs2cl.pl
> 	had compilation errors.
> 	#
> 	/usr/src/tmp/GroupUserFolder-buildroot/usr/lib/zope/lib/python/Products/GroupUserFolder/cvs2cl.pl:
> 	deparse failed. isPerl=0.0337665222703543.
> 	error: /bin/sh failed
> 	error: Failed to find Requires
> 	RPM build errors:

Этот файл имеет слишком нетрадиционную шебанг конструкцию (perl -x),
и поддержка этой конструкции пока не реализована в perl.req.

$ rpmpeek GroupUserFolder-3.2-alt1.1.i586.rpm head -3 ./usr/lib/zope/lib/python/Products/GroupUserFolder/cvs2cl.pl
#!/bin/sh
exec perl -w -x $0 ${1+"$@"} # -*- mode: perl; perl-indent-level: 2; -*-
#!perl -w
$

Я попробую исправить perl.req, но не обещаю сделать это быстро.
С другой стороны, cvs2cl -- это довольно известный скрипт.  Ещё одна
его копия находится, например, в /usr/lib/lazarus/tools/cvs2cl.pl.
Если он действительно нужен для работы GroupUserFolder и lazarus,
в чем я сомневаюсь, то лучше паковать и поддерживать его отдельно.

Кстати вот.

> lazarus-0.9.22-alt1
> 	(Missing operator before $?)
> 	syntax error at /usr/src/tmp/lazarus-buildroot/usr/lib/lazarus/tools/cvs2cl.pl line 2,
> 	near "$0 $"
> 	/usr/src/tmp/lazarus-buildroot/usr/lib/lazarus/tools/cvs2cl.pl had compilation errors.
> 	--
> 	RPM build errors:
> 	error: /bin/sh failed
> 	error: Failed to find Requires
> 	/bin/sh failed

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

Re: [devel] [JT] GroupUserFolder-3.2-alt1.1 lazarus-0.9.22-alt1

[Alexey I. Froloff]

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

* Alexey Tourbin <at@> [070911 23:46]:
> #!/bin/sh
> exec perl -w -x $0 ${1+"$@"} # -*- mode: perl; perl-indent-level: 2; -*-
> #!perl -w
Я где-то видел офигенно портабельный перловый шебанг, который
работает на всех-всех-всех платформах с любым sh и perl.
Занимает он 12 строк.

-- 
Regards,
Sir Raorn.

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

Re: [devel] [JT] GroupUserFolder-3.2-alt1.1 lazarus-0.9.22-alt1

[Alexey Tourbin]

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

On Wed, Sep 12, 2007 at 12:08:48AM +0400, Alexey I. Froloff wrote:
> * Alexey Tourbin <at@> [070911 23:46]:
> > #!/bin/sh
> > exec perl -w -x $0 ${1+"$@"} # -*- mode: perl; perl-indent-level: 2; -*-
> > #!perl -w
> Я где-то видел офигенно портабельный перловый шебанг, который
> работает на всех-всех-всех платформах с любым sh и perl.
> Занимает он 12 строк.

Этот вроде сделал.
Всякую фигню maintainer'ы пакуют а мне страдай!


commit 05cd09ba0f8559f835ac770946d673fb4ad887c0
Author: Alexey Tourbin <at@altlinux>
Date:   Wed Sep 12 01:32:35 2007 +0400

    perl.req: implemented support for "perl -x" re-exec hack (fixes cvs2cl.pl)
    
    $ head -3 cvs2cl.pl
    #!/bin/sh
    exec perl -w -x $0 ${1+"$@"} # -*- mode: perl; perl-indent-level: 2; -*-
    #!perl -wT
    $ ./perl.req cvs2cl.pl
    /home/at/git.alt/rpm-build-perl/cvs2cl.pl syntax OK
    perl(File/Basename.pm)
    perl(Text/Wrap.pm)
    perl(Time/Local.pm)
    $

diff --git a/perl.req b/perl.req
index 1285d2a..485e9c9 100755
--- a/perl.req
+++ b/perl.req
@@ -117,17 +117,35 @@ bad:
 sub shebang_options {
 	my $fname = shift;
 	open my $fh, $fname or die "$0: $fname: $!\n";
-	my $shebang = <$fh>;
-	chomp $shebang;
+	local $_ = <$fh>;
 	my @argv;
-	if ($shebang =~ s/^#!\s*\S*perl\S*\s*// && $shebang) {
-		local $_ = $shebang;
+	if (s/^#!\s*\S*perl\S*//) {
 		foreach my $arg (split) {
 			last if $arg =~ /^#/;
 			next if $arg eq "--";
 			push @argv, $arg;
 		}
 	}
+	elsif (m[^#!\s*/bin/sh(\s|$)]) {
+		# check for "perl -x" re-exec hack
+		my $maybe_x;
+		while (<$fh>) {
+			# this is just a standard way to re-exec perl:
+			last if /^eval\s+'exec\s/;
+			if (/\bexec\s.*\bperl.*\s-x/) {
+				$maybe_x = 1;
+			}
+			elsif ($maybe_x and s/^#!\s*\S*perl\S*//) {
+				push @argv, "-x";
+				foreach my $arg (split) {
+					last if $arg =~ /^#/;
+					next if $arg eq "--";
+					push @argv, $arg;
+				}
+				last;
+			}
+		}
+	}
 	return @argv;
 }
 

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

Re: [devel] [JT] GroupUserFolder-3.2-alt1.1 lazarus-0.9.22-alt1

[Алексей Шенцев]

В сообщении от Wednesday 12 September 2007 01:39:30 Alexey Tourbin написал(а):
> On Wed, Sep 12, 2007 at 12:08:48AM +0400, Alexey I. Froloff wrote:
> > * Alexey Tourbin <at@> [070911 23:46]:
> > > #!/bin/sh
> > > exec perl -w -x $0 ${1+"$@"} # -*- mode: perl; perl-indent-level: 2;
> > > -*- #!perl -w
> >
> > Я где-то видел офигенно портабельный перловый шебанг, который
> > работает на всех-всех-всех платформах с любым sh и perl.
> > Занимает он 12 строк.
>
> Этот вроде сделал.
> Всякую фигню maintainer'ы пакуют а мне страдай!

Ох, страдания, русские страдания и стенания ... ;) Если вы разбираетесь в 
perl'e и можете сказать, какие из lazarus-tools/*.pl можно выкинуть, я их 
выкину. Что то не хочется мне с паскалем таскать ещё и перловку. Скрипты .sh 
ещё как то приемлемо, imho, но вот перловка в паскале уже явно перебор ...
Да и пора уже lazarus пересобирать с fpc-2.2.0. 

2 Дубровский: официально вышел fpc-2.2.0, давненько, пора его собирать и в 
сизиф закидывать.
-- 
С уважением Шенцев Алексей Владимирович.
E-mail: ashen@nsrz.ru
XMPP: ashen@altlinux.org, AlexShen@jabber.ru
ICQ: 271053845

Re: [devel] [JT] GroupUserFolder-3.2-alt1.1 lazarus-0.9.22-alt1'

[Alexey Tourbin]

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

On Wed, Sep 12, 2007 at 09:29:13AM +0400, Алексей Шенцев wrote:
> Ох, страдания, русские страдания и стенания ... ;) Если вы разбираетесь в 
> perl'e и можете сказать, какие из lazarus-tools/*.pl можно выкинуть, я их 
> выкину.

Там есть инструменты явно для работы с lazarus cvs, которые потребны
только нескольким ведущим разработчикам lazarus.  Хотя lazarus давно
перешёл на svn, так что эти инструменты это просто архаика.

-rwxr-xr-x    1 root    root            78000 May  2  2006 /usr/lib/lazarus/tools/cvs2cl.pl
-rwxr-xr-x    1 root    root             3510 May  2  2006 /usr/lib/lazarus/tools/delete_non_cvs_files.pl
-rwxr-xr-x    1 root    root             3066 Jul 21  2006 /usr/lib/lazarus/tools/find_non_cvs_files.pl

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