зеркало из https://github.com/mozilla/pjs.git
Bugzilla bug #52187: modified ckapi.perl to read its input from the
first command-line argument as opposed to stdin. Checkin on behalf of sonmi@netscape.com. Modified files: Makefile, ckapi.perl
This commit is contained in:
Родитель
1f7c80345a
Коммит
676970a82d
|
@ -30,7 +30,7 @@
|
||||||
# may use your version of this file under either the MPL or the
|
# may use your version of this file under either the MPL or the
|
||||||
# GPL.
|
# GPL.
|
||||||
#
|
#
|
||||||
MAKEFILE_CVS_ID = "@(#) $RCSfile: Makefile,v $ $Revision: 1.3 $ $Date: 2000-09-09 03:19:35 $ $Name: $"
|
MAKEFILE_CVS_ID = "@(#) $RCSfile: Makefile,v $ $Revision: 1.4 $ $Date: 2000-09-11 22:37:01 $ $Name: $"
|
||||||
|
|
||||||
include manifest.mn
|
include manifest.mn
|
||||||
include $(CORE_DEPTH)/coreconf/config.mk
|
include $(CORE_DEPTH)/coreconf/config.mk
|
||||||
|
@ -43,7 +43,7 @@ nssckepv.h: ck.api ckapi.perl
|
||||||
nssckft.h: ck.api ckapi.perl
|
nssckft.h: ck.api ckapi.perl
|
||||||
nssckg.h: ck.api ckapi.perl
|
nssckg.h: ck.api ckapi.perl
|
||||||
nssck.api: ck.api ckapi.perl
|
nssck.api: ck.api ckapi.perl
|
||||||
perl ckapi.perl < ck.api
|
perl ckapi.perl ck.api
|
||||||
|
|
||||||
export:: private_export
|
export:: private_export
|
||||||
|
|
||||||
|
|
|
@ -31,7 +31,7 @@
|
||||||
# may use your version of this file under either the MPL or the
|
# may use your version of this file under either the MPL or the
|
||||||
# GPL.
|
# GPL.
|
||||||
#
|
#
|
||||||
$cvs_id = '@(#) $RCSfile: ckapi.perl,v $ $Revision: 1.2 $ $Date: 2000-04-19 21:31:42 $ $Name: $';
|
$cvs_id = '@(#) $RCSfile: ckapi.perl,v $ $Revision: 1.3 $ $Date: 2000-09-11 22:37:01 $ $Name: $';
|
||||||
|
|
||||||
$copyright = '/* THIS IS A GENERATED FILE */
|
$copyright = '/* THIS IS A GENERATED FILE */
|
||||||
/*
|
/*
|
||||||
|
@ -70,7 +70,10 @@ $copyright = '/* THIS IS A GENERATED FILE */
|
||||||
|
|
||||||
$count = -1;
|
$count = -1;
|
||||||
$i = 0;
|
$i = 0;
|
||||||
while(<>) {
|
|
||||||
|
open(INPUT, "<$ARGV[0]") || die "Can't open $ARGV[0]: $!";
|
||||||
|
|
||||||
|
while(<INPUT>) {
|
||||||
s/^((?:[^"#]+|"[^"]*")*)(\s*#.*$)/$1/;
|
s/^((?:[^"#]+|"[^"]*")*)(\s*#.*$)/$1/;
|
||||||
next if (/^\s*$/);
|
next if (/^\s*$/);
|
||||||
|
|
||||||
|
@ -97,6 +100,8 @@ while(<>) {
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
close INPUT;
|
||||||
|
|
||||||
# dodump();
|
# dodump();
|
||||||
doprint();
|
doprint();
|
||||||
|
|
||||||
|
|
Загрузка…
Ссылка в новой задаче