Changeset 8308 for branches


Ignore:
Timestamp:
Apr 29, 2002, 1:14:04 PM (23 years ago)
Author:
bird
Message:

--with-klib option.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/splittup/src/win32k/configure.cmd

    r8149 r8308  
    1 /* $Id: configure.cmd,v 1.21.2.2 2002-03-31 20:08:45 bird Exp $
     1/* $Id: configure.cmd,v 1.21.2.3 2002-04-29 11:14:04 bird Exp $
    22 *
    33 * Configuration script.
     
    3535                when (ch = 'W') then
    3636                    fWin32k = 0;
     37                when (ch = '-') then
     38                do
     39                    parse var sArg sParm'='sOpt
     40                    say sParm
     41                    select
     42                        when (sParm = '-WITH-KLIB') then
     43                            fWithKLib = 1;
     44                        otherwise
     45                            say 'syntax error ('asArgs.i')';
     46                            exit(2);
     47                    end
     48                end
    3749                when (ch = '?' | ch = 'H' | substr(sArg, 1, 2) = '-H') then
    3850                do
    39                     say 'Odin32 Configure.cmd. $Revision: 1.21.2.2 $.'
    40                     say 'syntax: Configure.cmd [-n] [-w]'
    41                     say '  -n   Noninteractive.'
    42                     say '  -w   Don''t build Win32k nor kKrnlLib.'
    43                     say '  -h   This text.'
     51                    say 'Odin32 Configure.cmd. $Revision: 1.21.2.3 $.'
     52                    say 'syntax: Configure.cmd [options]'
     53                    say '  -n           Noninteractive.'
     54                    say '  -w           Don''t build Win32k.'
     55                    say '  --with-klib  Build with kLib. (Will checkout kLib for you.)'
     56                    say '  -h           This text.'
    4457                    exit(1);
    4558                end
     
    123136        exit 1;
    124137    end
     138
     139    /*
     140     * Checkout K-Lib
     141     */
     142    sDir = directory();
     143    if (chdir('kKrnlLib')) then
     144    do
     145        if (fInteractive) then
     146        do
     147            say 'Log in to the kLib cvs repository? (Y/N)';
     148            pull sAnswer
     149            if (substr(sAnswer, 1, 1) = 'Y') then
     150                'cvs -d:pserver:readonly@www.netlabs.org:/netlabs.cvs/ktaskmanager login'
     151        end
     152        'cvs -d:pserver:readonly@www.netlabs.org:/netlabs.cvs/ktaskmanager co kLibSrc kLibInclude'
     153    end
     154    call directory sDir;
     155
    125156    exit 0;
    126157
     
    211242return '';
    212243
     244
     245
     246/**
     247 * Changes the directory.
     248 * On error we will call failure.
     249 * @returns success indicator.
     250 */
     251ChDir: procedure expose sStartDir;
     252    parse arg sDir
     253
     254    'cd' sDir
     255    if (rc <> 0) then
     256    do
     257        call failure rc, 'Failed to ChDir into' sDir '(CWD='directory()').'
     258        return 0;
     259    end
     260return 1;
     261
Note: See TracChangeset for help on using the changeset viewer.