Changeset 9931 for trunk/tools


Ignore:
Timestamp:
Mar 20, 2003, 8:52:27 PM (23 years ago)
Author:
bird
Message:

Added Perl v5.8.0. This is now default perl.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/tools/bin/buildenv.cmd

    r9925 r9931  
    1 /* $Id: buildenv.cmd,v 1.47 2003-03-19 20:51:51 bird Exp $
     1/* $Id: buildenv.cmd,v 1.48 2003-03-20 19:52:27 bird Exp $
    22 *
    33 * This is the master tools environment script. It contains environment
    … …  
    2727     * Version
    2828     */
    29     sVersion = '1.0.18 [2003-03-19]';
     29    sVersion = '1.0.19 [2003-03-20]';
    3030
    3131    /*
    … …  
    136136    aCfg.i.sId = 'netqos2';         aCfg.i.sGrp = 'misc';       aCfg.i.sSet = 'NetQOS2';                aCfg.i.sDesc = 'NetQOS2 - help system for VAC40,VAC365,DB2 and more.'; i = i + 1;
    137137    aCfg.i.sId = 'odin32testcase';  aCfg.i.sGrp = 'tests';      aCfg.i.sSet = 'Odin32Testcase';         aCfg.i.sDesc = 'Odin32 testcase setup'; i = i + 1;
    138     aCfg.i.sId = 'perl';            aCfg.i.sGrp = 'script';     aCfg.i.sSet = 'Perl';                   aCfg.i.sDesc = 'Perl v5.0053'; i = i + 1;
     138    aCfg.i.sId = 'perl';            aCfg.i.sGrp = 'script';     aCfg.i.sSet = 'Perl580';                aCfg.i.sDesc = 'Perl v5.8.0'; i = i + 1;
     139    aCfg.i.sId = 'perl580';         aCfg.i.sGrp = 'script';     aCfg.i.sSet = 'Perl580';                aCfg.i.sDesc = 'Perl v5.8.0'; i = i + 1;
     140    aCfg.i.sId = 'perl50053';       aCfg.i.sGrp = 'script';     aCfg.i.sSet = 'Perl50xxx';              aCfg.i.sDesc = 'Perl v5.0053'; i = i + 1;
    139141    aCfg.i.sId = 'python';          aCfg.i.sGrp = 'script';     aCfg.i.sSet = 'Python';                 aCfg.i.sDesc = 'Python v1.5'; i = i + 1;
    140142    aCfg.i.sId = 'toolkit40';       aCfg.i.sGrp = 'tlktos2';    aCfg.i.sSet = 'Toolkit40';              aCfg.i.sDesc = 'Toolkit v4.0 CSD 4'; i = i + 1;
    … …  
    861863        aPath.i.sPId = 'nasm9833';                  aPath.i.sPath = 'f:\nasm\os2\0.98.33';          i = i + 1;
    862864        aPath.i.sPId = 'netqos2';                   aPath.i.sPath = 'f:\netqos2';                   i = i + 1;
    863         aPath.i.sPId = 'perl';                      aPath.i.sPath = 'f:\perllib';                   i = i + 1;
     865        aPath.i.sPId = 'perl50xxx';                 aPath.i.sPath = 'f:\perllib';                   i = i + 1;
     866        aPath.i.sPId = 'perl580';                   aPath.i.sPath = 'f:\perl\v5.8.0';               i = i + 1;
    864867        aPath.i.sPId = 'python';                    aPath.i.sPath = 'f:\python';                    i = i + 1;
    865868        aPath.i.sPId = 'toolkit40';                 aPath.i.sPath = 'f:\toolkit\v40csd4';           i = i + 1;
    … …  
    912915        aPath.i.sPId = 'mysql';                     aPath.i.sPath = 'e:\mysql2';                    i = i + 1;
    913916        aPath.i.sPId = 'netqos2';                   aPath.i.sPath = 'e:\netqos2';                   i = i + 1;
    914         aPath.i.sPId = 'perl';                      aPath.i.sPath = 'e:\perllib';                   i = i + 1;
     917        aPath.i.sPId = 'perl50xxx';                 aPath.i.sPath = 'e:\perllib';                   i = i + 1;
     918        aPath.i.sPId = 'perl580';                   aPath.i.sPath = 'e:\dev\perl\v5.8.0';           i = i + 1;
    915919        aPath.i.sPId = 'python';                    aPath.i.sPath = 'e:\python';                    i = i + 1;
    916920        aPath.i.sPId = 'toolkit40';                 aPath.i.sPath = 'e:\toolkit';                   i = i + 1;
    … …  
    937941
    938942    /*
    939      * Bird: work box.
    940      */
    941     if (translate(EnvGet('HOSTNAME')) = 'DREAM') then
     943     * Bird: work boxes.
     944     */
     945    if ((translate(EnvGet('HOSTNAME')) = 'DREAM')  | (translate(EnvGet('HOSTNAME')) = 'DESPAIR')) then
    942946    do
    943947        say 'Info: No or empty path file, using birds work defaults.';
    … …  
    964968        aPath.i.sPId = 'mysql';                     aPath.i.sPath = 'd:\apps\mysql\v3.23.50b1';     i = i + 1;
    965969      /*aPath.i.sPId = 'netqos2';                   aPath.i.sPath = 'e:\netqos2';                   i = i + 1;*/
    966         aPath.i.sPId = 'perl';                      aPath.i.sPath = 'd:\dev\perl\v5.00455';         i = i + 1;
     970        aPath.i.sPId = 'perl50xxx';                 aPath.i.sPath = 'd:\dev\perl\v5.00455';         i = i + 1;
     971        aPath.i.sPId = 'perl580';                   aPath.i.sPath = 'd:\dev\perl\v5.8.0';           i = i + 1;
    967972      /*aPath.i.sPId = 'python';                    aPath.i.sPath = 'e:\python';                    i = i + 1;*/
    968973        aPath.i.sPId = 'toolkit40';                 aPath.i.sPath = 'd:\dev\toolkit\v40csd1';       i = i + 1;
    … …  
    28082813 * PERL 5005_53 or 5.004_55
    28092814 */
    2810 Perl: procedure expose aCfg. aPath. sPathFile
     2815Perl50xxx: procedure expose aCfg. aPath. sPathFile
    28112816    parse arg sToolId,sOperation,fRM,fQuiet
    28122817
    … …  
    28142819     * Perl main directory.
    28152820     */
    2816     sPathPerl       = PathQuery('perl', sToolId, sOperation);
     2821    sPathPerl       = PathQuery('perl50xxx', sToolId, sOperation);
    28172822    if (sPathPerl = '') then
    28182823        return 1;
    … …  
    28542859        return 2;
    28552860    rc = CheckCmdOutput('perl --version', 0, fQuiet, 'This is perl, version '||sVer||' built for os2');
     2861return rc;
     2862
     2863
     2864/*
     2865 * PERL v5.8.0
     2866 */
     2867Perl580: procedure expose aCfg. aPath. sPathFile
     2868    parse arg sToolId,sOperation,fRM,fQuiet
     2869
     2870    /*
     2871     * Perl main directory.
     2872     */
     2873    sPathPerl       = PathQuery('perl580', sToolId, sOperation);
     2874    if (sPathPerl = '') then
     2875        return 1;
     2876    /* If config operation we're done now. */
     2877    if (pos('config', sOperation) > 0) then
     2878        return 0;
     2879
     2880    /*
     2881     * Installing the environment variables.
     2882     */
     2883    sPathPerlForw   = translate(sPathPerl, '/', '\');
     2884    call EnvSet      fRM, 'PATH_PERL',      sPathPerl;
     2885    call EnvAddFront fRM, 'path',           sPathPerl'\bin\5.8.0;'
     2886    call EnvAddFront fRM, 'beginlibpath',   sPathPerl'\lib;'
     2887    call EnvAddEnd   fRM, 'bookshelf',      sPathPerl'\doc;'
     2888    call EnvSet      fRM, 'perllib_prefix', 'L:/Perl/lib;'sPathPerlForw'/lib'
     2889    call EnvSet      fRM, 'perl_sh_dir',    sPathPerlForw'/bin/5.8.0'
     2890    call EnvSet      fRM, 'manpath',        sPathPerlForw'/man'
     2891    call EnvSet      fRM, 'perl_badlang',   '0'
     2892
     2893    /*
     2894     * Verify.
     2895     */
     2896    if (pos('verify', sOperation) <= 0) then
     2897        return 0;
     2898
     2899    if (    \CfgVerifyFile(sPathPerl'\bin\5.8.0\perl.exe', fQuiet),
     2900        |   \CfgVerifyFile(sPathPerl'\lib\perlB12E.dll', fQuiet),
     2901        |   \CfgVerifyFile(sPathPerl'\bin\5.8.0\sh.exe', fQuiet),
     2902        ) then
     2903        return 2;
     2904    rc = CheckCmdOutput('perl --version', 0, fQuiet, 'This is perl, v5.8.0 built for os2_emx');
     2905
    28562906return rc;
    28572907
Note: See TracChangeset for help on using the changeset viewer.