ACIL FM
Dark
Refresh
Current DIR:
/usr/share/autoconf/Autom4te
/
usr
share
autoconf
Autom4te
Upload
Zip Selected
Delete Selected
Pilih semua
Nama
Ukuran
Permission
Aksi
C4che.pm
4.8 MB
chmod
View
DL
Edit
Rename
Delete
ChannelDefs.pm
8.96 MB
chmod
View
DL
Edit
Rename
Delete
Channels.pm
20.46 MB
chmod
View
DL
Edit
Rename
Delete
Configure_ac.pm
3.28 MB
chmod
View
DL
Edit
Rename
Delete
FileUtils.pm
9.86 MB
chmod
View
DL
Edit
Rename
Delete
General.pm
8.77 MB
chmod
View
DL
Edit
Rename
Delete
Getopt.pm
2.71 MB
chmod
View
DL
Edit
Rename
Delete
Request.pm
2.49 MB
chmod
View
DL
Edit
Rename
Delete
XFile.pm
7.59 MB
chmod
View
DL
Edit
Rename
Delete
Edit file: /usr/share/autoconf/Autom4te/Request.pm
# autoconf -- create `configure' using m4 macros # Copyright (C) 2001-2003, 2009-2012 Free Software Foundation, Inc. # This program is free software: you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation, either version 3 of the License, or # (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program. If not, see <http://www.gnu.org/licenses/>. package Autom4te::Request; =head1 NAME Autom4te::Request - a single m4 run request =head1 SYNOPSIS use Autom4te::Request; =head1 DESCRIPTION This perl module provides various general purpose support functions used in several executables of the Autoconf and Automake packages. =cut use strict; use Class::Struct; use Carp; use Data::Dumper; struct ( # The key of the cache files. 'id' => "\$", # True iff %MACRO contains all the macros we want to trace. 'valid' => "\$", # The include path. 'path' => '@', # The set of input files. 'input' => '@', # The set of macros currently traced. 'macro' => '%', ); # Serialize a request or all the current requests. sub marshall($) { my ($caller) = @_; my $res = ''; # CALLER is an object: instance method. my $marshall = Data::Dumper->new ([$caller]); $marshall->Indent(2)->Terse(0); $res = $marshall->Dump . "\n"; return $res; } # includes_p ($SELF, @MACRO) # -------------------------- # Does this request covers all the @MACRO. sub includes_p { my ($self, @macro) = @_; foreach (@macro) { return 0 if ! exists ${$self->macro}{$_}; } return 1; } =head1 SEE ALSO L<Autom4te::C4che> =head1 HISTORY Written by Akim Demaille E<lt>F<akim@freefriends.org>E<gt>. =cut 1; # for require ### Setup "GNU" style for perl-mode and cperl-mode. ## Local Variables: ## perl-indent-level: 2 ## perl-continued-statement-offset: 2 ## perl-continued-brace-offset: 0 ## perl-brace-offset: 0 ## perl-brace-imaginary-offset: 0 ## perl-label-offset: -2 ## cperl-indent-level: 2 ## cperl-brace-offset: 0 ## cperl-continued-brace-offset: 0 ## cperl-label-offset: -2 ## cperl-extra-newline-before-brace: t ## cperl-merge-trailing-else: nil ## cperl-continued-statement-offset: 2 ## End:
Simpan
Batal
Isi Zip:
Unzip
Create
Buat Folder
Buat File
Terminal / Execute
Run
Chmod Bulk
All File
All Folder
All File dan Folder
Apply