MinGW 自动批量下载源码

最近工作中要用FORTRAN，自然就想到了要用MinGW，官方给的mingw-get-inst还是很好用的。如果网络不给力，可以网搜索MinGW离线下载安装包。

如果想要获得相应包的码，可以使用mingw-get source pakcagename

如果想要获得已安装包的全部源码，怎么办？

那就动手改一下mingw-get的源码。

已改好的，可以直接下载使用:

 http://download.csdn.net/detail/waji2000/4837926

 

1、将mingw-get-0.dll覆盖C:\MinGW\libexec\mingw-get目录下的原文件。
2、将mingw-get.exe覆盖C:\MinGW\bin目录下的原文件。
3、使用命令
mingw-get update
mingw-get --download-only upgrade

说明：基于mingw-get-0.5-mingw32-beta-20120426-1-src修改。

修改的地方：
1、在pkgbase.h中类pkgXmlDocument添加相应的函数，可直接加在 void RescheduleInstalledPackages( unsigned long );下面：
void DownloadSourcePackages( unsigned long );

2、在pkgdeps.cpp中添加如下函数：
void pkgXmlDocument::DownloadSourcePackages( unsigned long action )
{
  /* Wrapper function to retrieve the list of all installed packages,
   * passing each entry in turn to the standard task scheduler.  We
   * begin by locating the first sysroot entry in the XML database...
   */
  pkgXmlNode *sysroot = GetRoot()->FindFirstAssociate( sysroot_key );

  /* ...then, while we have sysroots to examine...
   */
  while( sysroot != NULL )
  {
    /* ...we retrieve the first package installation record within
     * the current sysroot data set.
     */
    pkgXmlNode *package = sysroot->FindFirstAssociate( installed_key );

    /* Within each sysroot, until we've retrieved all embedded
     * installation records...
     */
    while( package != NULL )
    {
      /* ...we read the canonical tarname for the package,
       * and when it is appropriately specified...
       */
      const char *tarname = package->GetPropVal( tarname_key, NULL );
      if( tarname != NULL )
      {
 /* ...we decode it, to determine the package name,
  * subsystem name and component class.
  */
 pkgSpecs decode( tarname );
 const char *pkgname = decode.GetPackageName();
 const char *sysname = decode.GetSubSystemName();
 const char *cptname = decode.GetComponentClass();

 /* From these three, we need to reconstruct an effective
  * package name for the scheduler look-up; this reconstruction
  * is performed using the following formatted buffer.
  */
 const char *fmt = "%s-%s";
 char refname[3 + strlen( sysname ) + strlen( pkgname ) + strlen( cptname )];
 if( FindPackageByName( pkgname, sysname ) == NULL )
 {
   /* The package name alone is insufficient for a successful
    * look-up; assume that the effective package name has been
    * defined by prefixing the sysroot name.
    */
   sprintf( refname, fmt, sysname, pkgname );
   pkgname = refname;
 }
 if( cptname != NULL )
 {
   /* A fully qualified logical package name should include
    * the component class name, abstracted from the canonical
    * tarname, and appended to the package name.
    */
   sprintf( refname, fmt, pkgname, cptname );
   pkgname = refname;
 }

 /* Having constructed the effective logical package name,
  * we download the source
  */
 GetSourceArchive( pkgname, action );
      }
      /* ...then move on to the next installed package, if any,
       * within the current sysroot data set...
       */
      package = package->FindNextAssociate( installed_key );
    }
    /* ...and ultimately, to the next sysroot, if any, in the
     * XML database.
     */
    sysroot = sysroot->FindNextAssociate( sysroot_key );
  }
}

3、在climain.cpp中在  dbase.RescheduleInstalledPackages( ACTION_UPGRADE );下增加如下语句：   
dbase.DownloadSourcePackages(ACTION_SOURCE);