diff options
author | Raphaël Hertzog <hertzog@debian.org> | 2009-10-09 16:39:26 +0200 |
---|---|---|
committer | Raphaël Hertzog <hertzog@debian.org> | 2009-10-09 16:39:26 +0200 |
commit | 6e1998224f8a218257b9af8ed3e3e082698d1a8a (patch) | |
tree | 6bb5e7764dd3b02e0f82ab731851da470c3c7403 /scripts/Dpkg/Control | |
parent | 2a194c6cc6e534d090b9c99b6ef53b5b1a0e2ce1 (diff) | |
download | dpkg-6e1998224f8a218257b9af8ed3e3e082698d1a8a.tar.gz |
Dpkg::Control: rename CTRL_APT_* to CTRL_INDEX_*
The Packages and Sources files are not really specific to APT.
Those files are indexes that can be used by other programs.
Diffstat (limited to 'scripts/Dpkg/Control')
-rw-r--r-- | scripts/Dpkg/Control/Fields.pm | 34 | ||||
-rw-r--r-- | scripts/Dpkg/Control/Types.pm | 8 |
2 files changed, 21 insertions, 21 deletions
diff --git a/scripts/Dpkg/Control/Fields.pm b/scripts/Dpkg/Control/Fields.pm index 94475e52a..afdaf5703 100644 --- a/scripts/Dpkg/Control/Fields.pm +++ b/scripts/Dpkg/Control/Fields.pm @@ -33,8 +33,8 @@ our @EXPORT = qw(field_capitalize field_is_official field_is_allowed_in field_insert_after field_insert_before); use constant { - ALL_PKG => CTRL_INFO_PKG | CTRL_APT_PKG | CTRL_PKG_DEB | CTRL_FILE_STATUS, - ALL_SRC => CTRL_INFO_SRC | CTRL_APT_SRC | CTRL_PKG_SRC, + ALL_PKG => CTRL_INFO_PKG | CTRL_INDEX_PKG | CTRL_PKG_DEB | CTRL_FILE_STATUS, + ALL_SRC => CTRL_INFO_SRC | CTRL_INDEX_SRC | CTRL_PKG_SRC, ALL_CHANGES => CTRL_FILE_CHANGES | CTRL_CHANGELOG, }; @@ -109,7 +109,7 @@ our %FIELDS = ( allowed => ALL_PKG | CTRL_FILE_CHANGES, }, 'Directory' => { - allowed => CTRL_APT_SRC, + allowed => CTRL_INDEX_SRC, }, 'Distribution' => { allowed => ALL_CHANGES, @@ -123,7 +123,7 @@ our %FIELDS = ( allowed => ALL_PKG, }, 'Filename' => { - allowed => CTRL_APT_PKG, + allowed => CTRL_INDEX_PKG, }, 'Files' => { allowed => CTRL_PKG_SRC | CTRL_FILE_CHANGES, @@ -167,7 +167,7 @@ our %FIELDS = ( dep_order => 1, }, 'Priority' => { - allowed => CTRL_INFO_SRC | CTRL_APT_SRC | ALL_PKG, + allowed => CTRL_INFO_SRC | CTRL_INDEX_SRC | ALL_PKG, }, 'Provides' => { allowed => ALL_PKG, @@ -185,14 +185,14 @@ our %FIELDS = ( dep_order => 8, }, 'Section' => { - allowed => CTRL_INFO_SRC | CTRL_APT_SRC | ALL_PKG, + allowed => CTRL_INFO_SRC | CTRL_INDEX_SRC | ALL_PKG, }, 'Size' => { - allowed => CTRL_APT_PKG, + allowed => CTRL_INDEX_PKG, }, 'Source' => { allowed => (ALL_PKG | ALL_SRC | ALL_CHANGES) & - (~(CTRL_APT_SRC | CTRL_INFO_PKG)), + (~(CTRL_INDEX_SRC | CTRL_INFO_PKG)), }, 'Standards-Version' => { allowed => ALL_SRC, @@ -269,7 +269,7 @@ my @checksum_fields = map { field_capitalize("Checksums-$_") } @check_supported; my @sum_fields = map { $_ eq "md5" ? "MD5sum" : field_capitalize($_) } @check_supported; &field_register($_, CTRL_PKG_SRC | CTRL_FILE_CHANGES) foreach @checksum_fields; -&field_register($_, CTRL_APT_PKG) foreach @sum_fields; +&field_register($_, CTRL_INDEX_PKG) foreach @sum_fields; our %FIELD_ORDER = ( CTRL_PKG_DEB() => [ @@ -302,15 +302,15 @@ our %FIELD_ORDER = ( Triggers-Awaited) ], ); -# Order for CTRL_APT_PKG is derived from CTRL_PKG_DEB -$FIELD_ORDER{CTRL_APT_PKG()} = [ @{$FIELD_ORDER{CTRL_PKG_DEB()}} ]; -&field_insert_before(CTRL_APT_PKG, 'Section', 'Filename', 'Size', @sum_fields); -# Order for CTRL_APT_SRC is derived from CTRL_PKG_SRC -$FIELD_ORDER{CTRL_APT_SRC()} = [ @{$FIELD_ORDER{CTRL_PKG_SRC()}} ]; -@{$FIELD_ORDER{CTRL_APT_SRC()}} = map { $_ eq "Source" ? "Package" : $_ } +# Order for CTRL_INDEX_PKG is derived from CTRL_PKG_DEB +$FIELD_ORDER{CTRL_INDEX_PKG()} = [ @{$FIELD_ORDER{CTRL_PKG_DEB()}} ]; +&field_insert_before(CTRL_INDEX_PKG, 'Section', 'Filename', 'Size', @sum_fields); +# Order for CTRL_INDEX_SRC is derived from CTRL_PKG_SRC +$FIELD_ORDER{CTRL_INDEX_SRC()} = [ @{$FIELD_ORDER{CTRL_PKG_SRC()}} ]; +@{$FIELD_ORDER{CTRL_INDEX_SRC()}} = map { $_ eq "Source" ? "Package" : $_ } @{$FIELD_ORDER{CTRL_PKG_SRC()}}; -&field_insert_after(CTRL_APT_SRC, "Version", "Priority", "Section"); -&field_insert_before(CTRL_APT_SRC, "Checksums-Md5", "Directory"); +&field_insert_after(CTRL_INDEX_SRC, "Version", "Priority", "Section"); +&field_insert_before(CTRL_INDEX_SRC, "Checksums-Md5", "Directory"); # Register vendor specifics fields foreach my $op (run_vendor_hook("register-custom-fields")) { diff --git a/scripts/Dpkg/Control/Types.pm b/scripts/Dpkg/Control/Types.pm index 7908f6d1d..19a8fe4c5 100644 --- a/scripts/Dpkg/Control/Types.pm +++ b/scripts/Dpkg/Control/Types.pm @@ -1,8 +1,8 @@ package Dpkg::Control::Types; use base qw(Exporter); -our @EXPORT = qw(CTRL_UNKNOWN CTRL_INFO_SRC CTRL_INFO_PKG CTRL_APT_SRC - CTRL_APT_PKG CTRL_PKG_SRC CTRL_PKG_DEB CTRL_FILE_CHANGES +our @EXPORT = qw(CTRL_UNKNOWN CTRL_INFO_SRC CTRL_INFO_PKG CTRL_INDEX_SRC + CTRL_INDEX_PKG CTRL_PKG_SRC CTRL_PKG_DEB CTRL_FILE_CHANGES CTRL_FILE_VENDOR CTRL_FILE_STATUS CTRL_CHANGELOG); =head1 NAME @@ -23,8 +23,8 @@ use constant { CTRL_UNKNOWN => 0, CTRL_INFO_SRC => 1, # First control block in debian/control CTRL_INFO_PKG => 2, # Subsequent control blocks in debian/control - CTRL_APT_SRC => 4, # Entry in APT's Packages files - CTRL_APT_PKG => 8, # Entry in APT's Sources files + CTRL_INDEX_SRC => 4, # Entry in APT's Packages files + CTRL_INDEX_PKG => 8, # Entry in APT's Sources files CTRL_PKG_SRC => 16, # .dsc file of source package CTRL_PKG_DEB => 32, # DEBIAN/control in binary packages CTRL_FILE_CHANGES => 64, # .changes file |