本文主要包括RPM基本命令介紹，RPM包的定制過程，RPM SPEC文件的主要內容，RPM函數庫簡單參考和安裝程序中關于RPM包管理部分源碼的簡單介紹。通過這部分的介紹，希望讀者能對Linux系統下RPM 包的定制過程和RPM包的系統安裝過程有一個基本的了解。
在安裝程序進行了磁盤分區工作之后，安裝程序就可以進行RPM系統包的安裝了。這是整個安裝過程中很重要的一步。在這一環節，安裝程序要讀出所有rpm包的描述信息并根據包之間的依賴關系，構造出正確的包安裝順序。這種構造的機制主要是對包依賴關系的樹形結構進行深度搜索，對于最基本的系統包（比如Glibc和Bash）一定要最先安裝。為了保證在安裝了所有的系統包之后，RPM數據庫運行良好，還要在安裝過程中構造正確的RPM數據庫。最后為了調試的方便，也便于用戶檢查安裝的系統包，還需要對包的安裝過程建立日志。
1 RPM包的基本概念
RPM（Redhat Package Management）是由RedHat開發的，Linux系統下的系統包管理工具。它的目標是：使包的安裝和卸載過程更容易，能夠證實一個包是否已經正確安裝了，簡化包的建立過程，可以從源代碼建立整個包，使它能用于不同的體系結構。RPM系統已經成為現在Linux系統下包管理工具事實上的標準，并且它也移植到很多商業的unix系統之下。
RPM包由包標簽標識，它包含這樣幾個部分，軟件名，軟件版本，包的發行版本。在包的內部還包含如下信息：包的建立時間，包的內容描述，安裝包的所有文件的大小，數字簽名以證實包的完整性。RMP包還包含包內的文件信息，其中包括：每個文件的文件名，每個文件的權限，文件的屬組和擁有者，每個文件的md5校驗和，文件的內容。
RPM的包管理系統提供了下列功能：安裝新的包，除去舊的包，將一個舊包升級為新的包，獲得已經安裝包的信息。
常用的RPM命令：
rpm -i
使用此命令可以安裝一個rpm包。在安裝的過程中，此命令依次要進行包依賴性檢測，包沖突檢測，完成安裝前必須執行的任務，處理相應的配置文件，解開包中的文件并將其拷貝到正確的位置，完成安裝后必須執行的任務，對包進行的處理進行跟蹤記錄。
例如：
rpm -i bzip2-1.0.1-3.i586.rpm
//安裝bzip2包。
rpm -ivh bzip2-1.0.1-3.i586.rpm
//安裝bzip2包的同時，顯示更多的文本提示信息，以及在屏幕上顯示連續的#號來表示的安裝進度。
有時在安裝一個新包時，根據依賴性檢查的結果，需要首先安裝其他的包。但可能這時系統中并沒有安裝所需要包的合適版本，這樣rpm會終止包的安裝。為了直接安裝這個包，您需要加入--nodeps選項。下例表示在安裝bzip2包時，不進行依賴性檢測。
rpm -ivh bzip2-1.0.1-3.i586.rpm --nodeps
rpm -ivh bzip2-1.0.1-3.i586.rpm --force
//強制安裝rpm包。這條命令實際上等價于
rpm -ivh bzip2-1.0.1-3.i586.rpm --replacepkgs --replacefiles
rpm -e
使用此命令可以刪除一個rpm包。刪除rpm包時，此命令要完成如下工作：
檢查rpm數據庫確保沒有其他包依賴將要刪除的包。
如果包存在卸載前腳本，執行此腳本。
檢測安裝包時是否對包配置文件進行了修改。如果進行了修改，則保存備份。
查找rpm數據庫中此RPM包所包含的文件。如果這些文件不屬于任何其它的包，則刪除它。
如果包存在卸載后腳本，執行此腳本。
從rpm數據庫除去所有包跟蹤記錄。
例如：
rpm -e bzip2
//從系統中除去bzip2包。添加--nodeps選項可以在刪除包時，禁止包的依賴性檢查。
rpm -U
這條命令完成rpm包的升級。它執行的操作包括安裝合意的包，刪除所有存在的老版本的包。例如：
rpm -U bzip2
//升級包bzip2。
rpm -q
這條命令可以獲得rpm包的信息。通過這條命令可以查詢包的文件列表，包的版本，包的描述性信息。同樣的，你也可以通過這條命令查得一個文件屬于哪個rpm包。例如：
rpm -qf `which fdisk`
//檢查fdisk文件屬于哪個系統包。
rpm -qi bzip2
//獲得已安裝包bzip2的描述性信息。
rpm -ql bzip2
//獲得安裝包bzip2的文件列表。
rpm -qa
//獲得系統安裝的所有rpm包的列表。這條命令和grep命令一起使用，可以快速找到系統中包含的某個rpm包，例如:
rpm -qa | grep bzip2
2 RPM包建立過程
為了完成RPM包的建立過程，需要執行以下步驟：
執行Spec文件prep節的命令和宏。
檢查文件列表的內容。
執行Spec文件build節的命令和宏。
執行Spec文件install節的命令和宏，同時也執行文件列表中的宏。
創建二進制包文件。
創建源碼包。
為了執行打包的工作，RPM需要一系列目錄完成建立的工作。正常的目錄結構通常由一個頂級目錄和五個子目錄構成。這五個子目錄分別是：
SOURCES------包含原始的源文件、補丁和像標文件。
SPECS--------包含控制建立過程的spec文件。
BUILD--------包含源碼解包和軟件建立的目錄。
RPMS---------包含建立過程創建的二進制包文件。
SRPMS--------包含建立過程創建的源碼包文件。
除了上述這五個主要的目錄外，在RPMS或SRPMS目錄下通常還會有關于包目標平臺的目錄。例如，i386、i586、i686等代表與Intel兼容cpu的平臺，noarch目錄下的包代表可以在任何平臺下執行。
2.1 SPEC文件
Spec文件是整個RPM包建立過程的中心，它的作用就如同編譯程序時的Makefile文件。Spec文件包含建立一個rpm包必需的信息，包括哪些文件是包的一部分以及它們安裝在哪個目錄下。這個文件一般分為如下的幾節：
Preamle（序言）
序言包含用戶請求包的信息時所顯示的內容。它可以包含包的功能描述，包的軟件版本，版權信息，所屬的包組等。
Prep節 Prep節進行實際的打包準備工作，它是使用節前綴%prep表示的。一般而言，這一節的主要工作是檢查標簽語法是否正確，刪除舊的軟件源程序，對包含源程序的tar文件進行解碼。如果包含補?。╬atch）文件，將補丁文件應用到解開的源碼中。它一般包含%setup與%patch兩個命令。% setup用于將軟件包打開，執行%patch可將補丁文件加入解開的源程序中。
%setup
-n newdir---------將壓縮的軟件源程序在newdir目錄下解開。
-c ---------------在解開源程序之前先創建目錄。
-b num------------在包含多個源程序時，將第num個源程序解壓縮。
-T----------------不使用缺省的解壓縮操作。
例如：
%setup -T -b 0
//解開第一個源程序文件。
%setup -c -n newdir
//創建目錄newdir，并在此目錄之下解開源程序。
%patch
%patchN----------這里N是數字，表示使用第N個補丁文件，等價于%patch -P N
-p0--------------指定使用第一個補丁文件，-p1指定使用第二個補丁文件。
-s---------------在使用補丁時，不顯示任何信息。
-b name----------在加入補丁文件之前，將源文件名上加入name。若為指定此參數，則缺省源文件加入.orig。
-T---------------將所有打補丁時產生的輸出文件刪除。
Build節
這一節主要用于編譯源碼，它是使用節前綴%build表示的。這一節一般由多個make命令組成。
Install節
這一節主要用于完成實際安裝軟件必須執行的命令，它是使用節前綴%install表示的。這一節一般是由make install指令構成，但是有時也會包含cp、mv、install等指令。
這一節還能指定在用戶安裝的系統上，包安裝時運行的腳本。這樣的腳本稱為安裝（卸載）腳本。它可以指定包安裝前、包安裝后、包除去前、包除去后的系統必須運行的外殼程序段。在用戶安裝的系統上，為了驗證一個包是否已經成功安裝的驗證腳本也可由這一節指定。
Clean節
這一節所描述的內容表示在完成包建立的工作之后，自動執行此節下的腳本進行附加的清除工作，它是使用節前綴%clean表示的。一般而言，這一節的內容是簡單地使用rm -rf $RPM_BUILD_ROOT命令，不需要指定此節的其它內容。
文件列表
這一節指定構成包的文件的列表，它是使用節前綴%files表示的。此外，它還包含一系列宏控制安裝后的文件屬性和配置信息。
改動日志
這一節主要描述軟件的開發記錄，它是使用節前綴%changlog表示的。這個段的內容是為了開發人員能詳細的了解該軟件的開發過程，對于包的維護極有好處。
2.2 建立rpm包
有時您可能只有一個tar.gz格式的源程序包，為了生成正確的rpm包，您可以使用autospec自動創建spec文件。
舉例來說，您有一個源程序文件some.tar.gz。為了定制rpm包，您要進行如下操作：
解壓縮源程序包
tar xvzf some.tar.gz
手動編譯和安裝此源程序包
make; make install
自動生成spec文件
make -n install | autospec -i > some.spec
編譯生成rpm包
rpm -ba some.spec
在創建spec文件之前，必須成功編譯源程序包。否則autospec生成的spec文件將不會包含%build、%install、%file。對于一般的源程序包，您只需到SPEC目錄下，直接執行上面操作的第四步就可以了。
3 定制系統安裝盤
定制系統安裝盤的過程主要是指對于用戶提供的一組RPM包，安裝程序能夠根據用戶提供的描述文件，自動進行包的安裝。這個過程包括對包的依賴性進行檢查、根據類別選擇需要安裝的包。
使用HappyLinux發布盤上附帶的RPM包管理工具可以定制系統發布盤，這些包管理工具保存在安裝盤的/misc目錄下。為了保證安裝程序能夠工作，必須在/HappyLinux/base目錄下提供以下的文件：
compss
在HappyLinux系統下，它是由系統命令gendistrib自動生成的。它可以根據包所屬的包組對包進行分類。compss描述發布盤上所有包的一個列表。這個文件對于安裝過程沒有影響，它的存在只是為了與以前的版本兼容。
compssUsers
此文件的內容是對rpmsrate文件所描述的包類別進行進一步的包裝，以形成更高層的包類表述。
depslist
depslist.ordered
這兩個文件是命令gendistrib生成的，它描述每個包所依賴的系統包。depslist.ordered使安裝程序實際使用的文件，它將依賴包的文本描述轉換為包的編號，這樣可以加快整個安裝的進程。
happyinst_stage2.bz2
這個文件保存的是整個安裝環境（也就是安裝盤上/HappyLinux/happyinst目錄下的所有文件）的壓縮鏡像，它會在啟動過程中由系統加載程序調入內存。這個文件是由命令make_happyinst_stage2生成的。
hdlists
這個文件是對安裝盤rpm包所在的目錄進行描述。當要進行多盤安裝時，此文件的每一行表示一張發布介質的RPM包所在的目錄。這個文件必須由用戶手動生成。
hdlist.cz2
這是由命令gendistrib生成的，包頭信息的描述文件。安裝程序由此文件讀出每個包的大小、版本等信息。它的名字是由hdlists文件的對應行表示的。
provides
這個文件也是命令gendistrib生成的，它將包沖突檢測的信息保存到此文件中。
rpmsrate
這個文件是由用戶自己定制的。它主要描述同類別包的編組。同時，對包組的文件指定了優先級，使得不同的場景可以自動安裝不同的包組。這些包類別將要寫入compssUsers文件中，構成更大的包邏輯分組。
在發布盤上的任何包的發生改變時，為了使此改變生效，必須運行命令gendistrib，重新生成所有與包描述有關的文件。
gendistrib --distrib /export
根據目錄/export下保存的所有包信息生成相應的描述文件。
在對包的安裝環境進行了任何修改之后，必須重新運行命令make_happyinst_stage2。
make_happyinst_stage2 /export/HappyLinux/happyinst /export/HappyLinux/base/happyinst_stage2.bz2
生成整個安裝程序的壓縮鏡像。
在進行了上述步驟之后，您就可以使用mkisofs創建iso文件，以生成正確的光盤發布了。
4 rpmlib庫函數
rpmlib庫函數是包含在librpm.a庫中的。在c語言中，使用這些函數必須包含頭文件rpmlib.h，對于與header有關的函數還需要包含頭文件header.h。這些函數完成的功能包括從底層的rpm數據庫記錄遍歷到高層的包處理。
在安裝程序中，使用rpmlib中的函數完成包安裝的功能，具有以下的一些優點：
大大減小了整個安裝程序占用的內存。這樣安裝程序就無需提供rpm系統文件了。
直接使用c語言的庫函數提高了包的安裝速度。
通過安裝回調函數，可以在包的安裝過程中，實現一些特殊的效果，比如安裝過程中更換顯示圖片，顯示安裝進度等。
下面包含的函數只是rpmlib中與安裝程序有關的部分函數接口。
4.1 錯誤處理
int rpmErrorCode(void);
這個函數返回最后一個失敗的rpmlib函數返回的錯誤碼。此函數僅用于rpmErrorSetCallBack()定義的錯誤回調函數中。
char *rpmErrorString(void);
這個函數返回最后一個失敗的rpmlib函數返回的錯誤串。此函數僅用于rpmErrorSetCallBack()定義的錯誤回調函數中。
rpmErrorCallBackType rpmErrorSetCallback(rpmErrorCallBackType);
這個函數設置當前錯誤回調函數，它返回以前設置的錯誤回調函數
4.2 獲得包信息
下列函數用于獲得包文件信息。返回的信息以Header結構的形式保存。
int rpmReadPackageInfo(int fd, Header * signatures, Header * hdr);
使用給定fd（表示對應的rpm包）讀入頭信息和標記信息。如果指定signatures或hdr，則其對應的信息不返回。
int rpmReadPackageHeader(int fd, Header * hdr, int * isSource, int * major, int * minor);
使用給定fd（表示對應的rpm包）讀入頭信息，以及此包文件是否是源碼包，包的主、次版本號。
4.3 RPM數據庫處理
這一節的函數完成RPM數據庫的基本操作。這包括打開和關閉數據庫，以及在數據庫損壞時進行重建。每個存取RPM數據庫的函數都要使用rpmdb結構，它是RPM數據庫的句柄。
int rpmdbOpen(char * root, rpmdb * dbp, int mode, int perms);
此過程打開環境變量RPMVAR_DBPATH指定的RPM數據庫，返回rpmdb結構。
void rpmdbClose(rpmdb db);
此過程關閉rpmdb結構指定的RPM數據庫。
int rpmdbInit(char * root, int perms);
此過程在環境變量RPMVAR_DBPATH指定的位置創建一個新的RPM數據庫。如果數據庫存在，此函數不做任何操作。
int rpmdbRebuild(char * root);
此過程在環境變量RPMVAR_DBPATH處重建RPM數據庫。
4.4 RPM數據庫遍歷
unsigned int rpmdbFirstRecNum(rpmdb db);
此過程返回db指定的數據庫第一個記錄的記錄編號。
unsigned int rpmdbNextRecNum(rpmdb db, unsigned int lastOffset);
此過程返回緊接著lastOffset的記錄的編號。
Header rpmdbGetRecord(rpmdb db, unsigned int offset);
此過程返回指定偏移處的記錄。
4.5 RPM數據庫查詢
這一節的函數查詢RPM數據庫，并且返回dbiIndexSet結構。在不使用此返回值的時候，使用dbiFreeIndexRecord()函數釋放。
typedef struct {
dbiIndexRecord * recs;
int count;
} dbiIndexSet;
typedef struct {
unsigned int recOffset;
unsigned int fileNumber;
} dbiIndexRecord;
recOffset是記錄在數據庫中的偏移，fileNumber僅用于rpmdbFindByFile()。
int rpmdbFindByFile(rpmdb db, char * filespec, dbiIndexSet * matches);
此過程搜索db指定的RPM數據庫，找到擁有filespec指定文件的記錄，并保存在matches中。
int rpmdbFindByGroup(rpmdb db, char * group, dbiIndexSet * matches);
此過程搜索db指定的RPM數據庫，查找是group組指定的成員的包，返回值保存在matches中。
int rpmdbFindPackage(rpmdb db, char * name, dbiIndexSet * matches);
此過程搜索db指定的RPM數據庫，查找包名是name的包，返回值保存在matches中。
int rpmdbFindByProvides(rpmdb db, char * provides, dbiIndexSet * matches);
此過程搜索db指定的RPM數據庫，查找包的provides信息和指定的provides信息一致的包，返回值保存在matches中。
int rpmdbFindByRequiredBy(rpmdb db, char * requires, dbiIndexSet * matches);
此過程搜索db指定的RPM數據庫，查找包的requires信息和指定的requires信息一致的包，返回值保存在matches中。
int rpmdbFindByConflicts(rpmdb db, char * conflicts, dbiIndexSet * matches);
此過程搜索db指定的RPM數據庫，查找包的conflicts信息和指定的conflicts信息一致的包，返回值保存在matches中。
4.6 包處理
int rpmInstallSourcePackage(char * root, int fd, char ** specFile, rpmNotifyFunction notify, char * labelFormat);
此函數安裝fd指定的源碼包。如果指定了root字段則將包安裝到此目錄下。notify指定安裝過程中調用的進程跟蹤過程。labelformat指定包標簽的打印格式。
int rpmInstallPackage(char * rootdir,rpmdb db, int fd, char * prefix, int flags, rpmNotifyFunction notify, char * labelFormat, char * netsharedPath);
此過程安裝db指定的二進制包，如果指定了rootdir，包安裝到此目錄下。flags參數控制包的安裝行為。
RPMINSTALL_REPLACEPKG------------即使包已經安裝，仍繼續安裝。
RPMINSTALL_REPLACEFILES----------即使會替換另外一個包的文件也安裝此包。
RPMINSTALL_TEST------------------只進行安裝時檢測，不安裝包。
RPMINSTALL_UPGRADE---------------安裝包并除去包的老版本。
RPMINSTALL_UPGRADETOOLD----------即使此包是老版本，仍進行安裝。
RPMINSTALL_NODOCS----------------不安裝包的文檔文件。
RPMINSTALL_NOSCRIPTS-------------不執行包的安裝和刪除腳本。
RPMINSTALL_NOARCH----------------不完成結構兼容性測試。
RPMINSTALL_NOOS------------------不進行操作系統兼容性測試。

Notify參數指定安裝過程中系統調用的進度跟蹤過程?；卣{過程的函數指針定義：
typedef void (*rpmNotifyFunction)(const unsigned long amount, const unsigned long total);
amount指定已經安裝的字節數，total指定安裝的總字節數。此過程可用于在安裝過程中動態更新進程條等信息。
LabelFormat指定包標簽的格式。NetsharedPath參數指定和其它系統共享的本地文件系統部分。如果共享多個目錄，路徑要用冒號隔開。
int rpmRemovePackage(char * root, rpmdb db, unsigned int offset, int flags);
此過程除去在rpm數據庫中offset位置處的包。root指定包所在的根目錄，flags的值定義在rpmlib.h中，定義了如下標志：
RPMUNINSTALL_TEST 進行刪除檢測，但是不除去任何包
RPMUNINSTALL_NOSCRIPTS 不執行包刪除腳本。
4.7 與包依賴性相關的操作
依賴性操作是完全和正常的基于包的操作隔離的。包的安裝和除去過程自身并不完成依賴性處理。因此依賴性處理函數和其他rpmlib函數不同。依賴性處理的中心是rpmDependencies數據結構。這些函數只是隨著操作的不同管理此數據結構，它們并不對包進行操作。在依賴性檢測過程發現存在包依賴性沖突問題時，rpmDependencyConflict結構返回依賴性沖突。
rpmDependencies rpmdepDependencies(rpmdb db);
此過程返回初始化了的rpmDependencies結構。此時基于db參數指定的rpm數據庫進行依賴性檢測。
void rpmdepAddPackage(rpmDependencies rpmdep, Header h);
此過程加入頭為h的包到rpmDependencies數據結構rpmdep中。
void rpmdepUpgradePackage(rpmDependencies rpmdep, Header h);
此過程加入頭為h的包到rpmDependencies數據結構rpmdep中，同時此過程除去包依賴的老版本。
void rpmdepRemovePackage(rpmDependencies rpmdep, int dboffset);
此過程在rpmdep依賴結構中除去rpm數據庫中偏移為dboffset的包。
void rpmdepAvailablePackage(rpmDependencies rpmdep, Header h, void * key);
此過程加入頭為h的包到rpmDependencies數據結構rpmdep中。Key用于標識加入的包，這個參數會作為rpmdepCheck()函數返回的rpmDependencyConflict結構的一部分。
int rpmdepCheck(rpmDependencies rpmdep, struct rpmDependencyConflict ** conflicts, int * numConflicts);
此函數在rpmDependencies類型的結構變量rpmdep上進行依賴性檢測。它返回一個numConflicts大小的數組，數組保存在conflicts指針中。
void rpmdepFreeConflicts(struct rpmDependencyConflict * conflicts, int numConflicts);
此函數釋放conflicts指針指向的依賴性沖突結構。
void rpmdepDone(rpmDependencies rpmdep);
此函數釋放rpmDependencies類型的結構變量rpmdep。
4.8 頭信息處理
rpm頭信息是為最小化的rpm數據庫服務的，在這個數據庫中可以進行特定信息的檢索。
Header headerRead(int fd, int magicp);
此函數從文件fd中讀入header并且轉換網絡字節序為主機系統字節序。如果magicp定義為HEADER_MAGIC_YES，此函數期望接收頭幻數。如果magicp定義為HEADER_MAGIC_NO，此函數不包含頭幻數。
void headerWrite(int fd, Header h, int magicp);
此函數將頭h寫入文件fd中并且轉換主機系統字節序為網絡字節序。如果magicp定義為HEADER_MAGIC_YES，此函數在寫入的頭信息中加入適當的幻數。如果magicp定義為HEADER_MAGIC_NO，此函數寫入的信息不包含幻數。
Header headerCopy(Header h);
此函數返回頭h的副本。
unsigned int headerSizeof(Header h, int magicp);
此函數返回頭h占用的字節數。
Header headerNew(void);
此函數返回一個新的頭。
void headerFree(Header h);
此函數釋放h所指定的頭信息。
void headerDump(Header h, FILE *f, int flags);
此函數打印頭h結構到文件f中。若flags標志為HEADER_DUMP_INLINE，頭數據也被打印。
4.9 包頭信息處理
此節的這些函數提供處理頭入口的基本操作，包含下列頭入口類型：
RPM_NULL_TYPE - 不使用此類型
RPM_CHAR_TYPE - 此入口包含單一字符。
RPM_INT8_TYPE - 此入口包含八位字符。
RPM_INT16_TYPE - 此入口包含16位字符。
RPM_INT32_TYPE - 此入口包含32位字符。
RPM_INT64_TYPE - 此入口包含64位字符。
RPM_STRING_TYPE - 此入口包含字符串類型。
RPM_BIN_TYPE - 此入口包含rpmlib無法處理的二進制數據。
RPM_STRING_ARRAY_TYPE - 此入口包含字符數組。
int headerGetEntry(Header h, int_32 tag, int_32 *type, void **p, int_32 *c);
此過程從h中取出與tag標志匹配的入口。入口類型由type返回，數據指針由p返回，數據大小由c返回。
int headerAddEntry(Header h, int_32 tag, int_32 type, void *p, int_32 c);
此函數向頭h中加入新的入口， tag參數指定入口的標志，type指定入口的類型。P指定入口數據，c是此數據的大小。
4.10 頭重復器支持
rpmdbMatchIterator rpmdbInitIterator(rpmdb rpmdb, int rpmtag, const void * key, size_t keylen);
此函數返回新創建的重復器。
Header rpmdbNextIterator(rpmdbMatchIterator iter);
此函數獲得下一個頭信息。
void rpmdbFreeIterator(rpmdbMatchIterator iter);
此函數釋放重復器iter占用的資源。
5 RPM包管理過程實現
在安裝程序中與包管理有關的函數基本上都保存在文件pkgs.pm中。這個模塊中包含的主要函數如下：
getDeps
讀入文件depslist.ordered，通過它形成所有包所依賴rpm包的描述結構。
getProvides
讀入所有rpm文件的頭信息描述結構，通過provides字段形成包的Provides結構。
init_db，rebuild_db_open_for_traversal，clean_old_rpm_db
初始化（重建、清除）包的rpm配置數據庫。
install
安裝指定的rpm包。
packageByXXX
通過對讀入的包頭信息的解釋，生成相應的包內部信息。比如讀出包的大小，版本號，描述，名字等。
psUsingHdlists
讀入hdlists，由它每一行保存的信息，讀入對應的hdlist文件。
psUsingHdlist
由psUsingHdlists函數調用，讀入所有的rpm包的文件頭描述信息。
remove
刪除指定的rpm包。
read_rpmsrate
讀入rpmsrate，形成最基本的包類描述。
readCompssUsers
讀入高層的包類描述信息，返回compssUsers結構。每選中一個compssUsers類，對應多個rpmsrate文件描述的子類。
selectPackage
選中指定的包。
unselectPackage
取消指定包的選中狀態。
包的處理過程的一般流程：

#- 下面的程序是RPM包安裝過程代碼，它是整個包安裝過程中作關鍵的部分。它使用了安裝回調的機
#- 制，使得包安裝過程中，系統可以隨時顯示安裝進度并更換安裝插圖。
#- 下面的c::*方式調用的函數是對rpmlib.a中的庫函數進行封裝之后生成的函數，它的封裝保存在#- perl語言的存根文件stuff.xs中。
sub install($$$;$$) {
my ($prefix, $isUpgrade, $toInstall, $depOrder, $media) = @_;
my %packages;
return if $::g_auto_install "| !scalar(@$toInstall);
my $loop_boot = loopback::prepare_boot($prefix);
my ($total, $nb);
#- 根據數組toInstall中的內容，選擇安裝包，同時計算安裝的大小。
foreach my $pkg (@$toInstall) {
$packages{packageName($pkg)} = $pkg;
$nb++;
$total += packageSize($pkg);
}
#- 將安裝信息寫入日志文件，在成功安裝系統之后，會形成安裝日志文件install.log
log::l("pkgs::install $prefix");
log::l("pkgs::install the following: ", join(" ", keys %packages));
eval { fs::mount("/proc", "$prefix/proc", "proc", 0) } unless -e "$prefix/proc/cpuinfo";
log::l("reading /usr/lib/rpm/rpmrc");
#- 讀入rpm包的配置文件rpmrc
c::rpmReadConfigFiles() or die "can't read rpm config files";
log::l("\tdone");
#- 打開包所在文件的回調函數。
my $callbackOpen = sub {
my $p = $packages{$_[0]};
my $f = packageFile($p);
print LOG "$f $p->[$MEDIUM]{descr}\n";
my $fd = install_any::getFile($f, $p->[$MEDIUM]{descr});
$fd ? fileno $fd : -1;
};
#- 刪除包所在的描述結構，并設置包的安裝標志
my $callbackClose = sub { packageSetFlagInstalled(delete $packages{$_[0]}, 1) };
installCallback("Starting installation", $nb, $total);
my ($i, $min, $medium) = (0, 0, 1);
do {
my @transToInstall;
if (!$depOrder || !$media) {
@transToInstall = values %packages;
$nb = 0;
} else {
do {
#- 如果需要，改變安裝介質（光盤、硬盤）
if ($i > $media->{$medium}{max}) {
#- 尋找包含指定安裝包的介質
foreach (keys %$media) {
$i >= $media->{$_}{min} && $i <= $media->{$_}{max} and $medium = $_, last;
}
}
$i >= $media->{$medium}{min} && $i <= $media->{$medium}{max} or die "unable to find right medium";
#- 檢查使用的安裝介質，比如是光盤安裝還是別的方式
install_any::useMedium($medium);
while ($i <= $media->{$medium}{max} && ($i < $min || scalar @transToInstall < $limitMinTrans)) {
my $dep = $packages{packageName($depOrder->[$i++])} or next;
if ($dep->[$MEDIUM]{selected}) {
push @transToInstall, $dep;
foreach (map { split '\|' } packageDepsId($dep)) {
$min < $_ and $min = $_;
}
} else {
log::l("ignoring package $dep->[$FILE] as its medium is not selected");
}
--$nb;
}
} while ($nb > 0 && scalar(@transToInstall) == 0);
}
#- 在任何介質都沒有選擇的包時，退出安裝。
if ($nb == 0 && scalar(@transToInstall) == 0) {
cleanHeaders($prefix);
loopback::save_boot($loop_boot);
return;
}
extractHeaders($prefix, \@transToInstall, $media->{$medium});
#- 重設文件描述符
if ($media->{$medium}{method} eq 'cdrom') {
install_any::getFile(packageFile($transToInstall[0]), $transToInstall[0][$MEDIUM]{descr});
}
install_any::getFile('XXX');
my $retry = 3;
#- 為了保證安裝過程具有更好的并發性和健壯性，在啟動安裝時，創建了一個子進程進行安裝。
#- 同時，在父進程中對整個輸出過程進行了改向。
while (@transToInstall) {
local (*INPUT, *OUTPUT); pipe INPUT, OUTPUT;
if (my $pid = fork()) {
close OUTPUT;
my $error_msg = '';
local $_;
while () {
if (/^die:(.*)/) {
$error_msg = $1;
last;
} else {
chomp;
my @params = split ":";
if ($params[0] eq 'close') {
&$callbackClose($params[1]);
} else {
installCallback(@params);
}
}
}
$error_msg and $error_msg .= join('', );
waitpid $pid, 0;
close INPUT;
$error_msg and die $error_msg;
} else {
#- 子進程執行所有的安裝操作
$SIG{SEGV} = sub { log::l("segmentation fault on transactions"); c::_exit(0) };
my $db;
eval {
close INPUT;
select((select(OUTPUT),　$| = 1)[0]);
$db = c::rpmdbOpen($prefix) or die "error opening RPM database: ", c::rpmErrorString();
my $trans = c::rpmtransCreateSet($db, $prefix);
log::l("opened rpm database for transaction of ". scalar @transToInstall ." new packages,
still $nb after that to do");
c::rpmtransAddPackage($trans, $_->[$HEADER], packageName($_), $isUpgrade && allowedToUpgrade(packageName($_)))
foreach @transToInstall;
c::rpmdepOrder($trans) or die "error ordering package list: " . c::rpmErrorString();
c::rpmtransSetScriptFd($trans, fileno LOG);
log::l("rpmRunTransactions start");
my @probs = c::rpmRunTransactions($trans, $callbackOpen,
　sub { print OUTPUT "close:$_[0]\n"; },
　sub { print OUTPUT join(":", @_), "\n"; },
　1);
log::l("rpmRunTransactions done, now trying to close still opened fd");
install_any::getFile('XXX');
if (@probs) {
my %parts;
@probs = reverse grep {
if (s/(installing package) .* (needs (?:.*) on the (.*) filesystem)/$1 $2/) {
$parts{$3} ? 0 : ($parts{$3} = 1);
} else {
1;
}
} reverse map { s|/mnt||; $_ } @probs;
c::rpmdbClose($db);
die "installation of rpms failed:\n　", join("\n　", @probs);
}
}; $@ and print OUTPUT "die:$@\n";
c::rpmdbClose($db);
log::l("rpm database closed");
close OUTPUT;
my (@killpid, %tree, $pid);
local (*DIR, *F, $_);
opendir DIR, "/proc";
while ($pid = readdir DIR) {
$pid =~ /^\d+$/ or next;
open F, "/proc/$pid/status";
while () {
/^Pid:\s+(\d+)/ and $pid == $1 || die "incorrect pid reported for $pid (found $1)";
if (/^PPid:\s+(\d+)/) {
$tree{$pid} and die "PPID already found for $pid, previously $tree{$pid}, now $1";
$tree{$pid} = $1;
}
}
close F;
}
closedir DIR;
foreach (keys %tree) {
$pid = $_; while ($pid = $tree{$pid}) { $pid == $$ and push @killpid, $_ }
}
if (@killpid) {
log::l("killing process ". join(", ", @killpid));
kill 15, @killpid;
sleep 2;
kill 9, @killpid;
}
c::_exit(0);
}
my @badPackages;
foreach (@transToInstall) {
if (!packageFlagInstalled($_) && $_->[$MEDIUM]{selected} && !exists($ignoreBadPkg{packageName($_)})) {
push @badPackages, $_;
} else {
packageFreeHeader($_);
}
}
@transToInstall = @badPackages;
$retry or last;
if (@transToInstall) {
foreach (@transToInstall) {
log::l("bad package $_->[$FILE]");
}
log::l("retrying transaction on bad packages");
--$retry;
}
}
packageFreeHeader($_) foreach @transToInstall;
cleanHeaders($prefix);
if (@transToInstall) {
foreach (@transToInstall) {
log::l("bad package $_->[$FILE] unable to be installed");
packageSetFlagSelected($_, 0);
}
cdie ("error installing package list: " . join(", ", map { $_->[$FILE] } @transToInstall));
}
} while ($nb > 0 && !$pkgs::cancel_install);
cleanHeaders($prefix);
loopback::save_boot($loop_boot);
}