/* $Id: odin32get.cmd,v 1.6 2003-06-19 20:29:42 bird Exp $
 *
 * Gets the CVS tree from netlabs.
 *
 * Copyright (c) 1999-2002 knut st. osmundsen (bird@anduin.net)
 *
 * Project Odin Software License can be found in LICENSE.TXT
 *
 */

    /* get build settings */
    /*
    sDate = value('BUILD_DATE',, 'OS2ENVIRONMENT');
    sType = value('BUILD_TYPE',, 'OS2ENVIRONMENT');
    if ((sDate = '') | (sType = '')) then do say 'BUILD_DATE/BUILD_TYPE unset, you didn''t start job.cmd.'; exit(16); end
    */

    sDrive = filespec('drive', directory());
    'cache386 /LAZY:'sDrive'OFF';
    'cvs checkout .'
    iRc = rc;
    'cache386 /LAZY:'sDrive'ON';
    if (iRc <> 0) then call failure iRc, 'CVS checkout . failed';
    'copy ..\scripts\bin\buildenv.cmd.paths tools\bin\buildenv.cmd.paths'
    exit(0);


failure: procedure
parse arg rc, sText;
    say 'rc='rc sText
    exit(rc);