Changeset 2903 for trunk/src


Ignore:
Timestamp:
Feb 26, 2000, 5:21:13 PM (26 years ago)
Author:
bird
Message:

Added argument for non-interactive configurations.
Paths which are not found are simply ignored.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/src/win32k/configure.cmd

    r2726 r2903  
    1 /* $Id: configure.cmd,v 1.5 2000-02-10 01:14:45 bird Exp $
     1/* $Id: configure.cmd,v 1.6 2000-02-26 16:21:13 bird Exp $
    22 *
    33 * Configuration script.
    44 * Generates makefile.inc and an empty .depend file.
    55 *
    6  * Copyright (c) 1999 knut st. osmundsen
     6 * Copyright (c) 1999-2000 knut st. osmundsen (knut.stange.osmundsen@pmsc.no)
    77 *
    88 * Project Odin Software License can be found in LICENSE.TXT
    … …  
    1111    call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs';
    1212    call SysLoadFuncs;
     13
     14    /* check for silent argument */
     15    parse arg fNonInteractive
     16    if (fNonInteractive <> '') then
     17        fInteractive = 0;
     18    else
     19        fInteractive = 1;
    1320
    1421    /* strings */
    … …  
    2330
    2431    /* open target file */
    25     if (stream(sIncFile, 'c', 'open write' ) <> '') then do
     32    if (stream(sIncFile, 'c', 'open write' ) <> '') then
     33    do
    2634        call lineout sIncFile, '################################################################################'
    2735        call lineout sIncFile, '# Generated by configure.cmd'
    … …  
    2937        call lineout sIncFile, ''
    3038        call lineout sIncFile, '################################################################################'
    31         call lineout sIncFile, '# BASEDIRECTORIES - Win32-OS/2 project and Win32K -'
    32         call lineout sIncFile, '# Note these should be absolute paths!'
     39        call lineout sIncFile, '# BASEDIRECTORIES - Win32K'
     40        call lineout sIncFile, '# Note! These should be absolute paths!'
    3341        call lineout sIncFile, '################################################################################'
    3442        sWin32kBase = directory();
    … …  
    4553
    4654        call lineout sIncFile, '################################################################################'
    47         call lineout sIncFile, '# DDKPATH : base directory of ddk base. (ie. \DDK\BASE not \DDK for DDK v4.0+)'
     55        call lineout sIncFile, '# DDKPATH: base directory of ddk base. (ie. \DDK\BASE not \DDK for DDK v4.0+)'
    4856        call lineout sIncFile, '################################################################################'
    4957        sDDK = SearchPaths('INCLUDE', '..\h\dhcalls.h', 'PATH', '..\h\dhcalls.h', 'BOOKSHELF', '..\h\dhcalls.h', 'Path to DDK "\BASE" directory (ie. F:\DDK\BASE):');
    … …  
    7684        call stream sIncFile, 'c', 'close';
    7785
    78         say 'Configuration compleated!'
    79         say ''
    80         say 'You should now verify that the settings are correct by listing the file';
    81         say ''''sIncFile'''';
    82         say ''
    83         say 'Remember to do a ''nmake dep'' before making win32k.'
     86        if (fInteractive = 0) then
     87        do
     88            say 'Configuration completed!'
     89            say ''
     90            say 'You should now verify that the settings are correct by listing the file';
     91            say ''''sIncFile'''';
     92            say ''
     93            say 'Remember to do a ''nmake dep'' before making win32k.'
     94        end
    8495    end
    85     else do
     96    else
     97    do
    8698        say 'oops, failed to open outputfile,' sIncFile;
    8799        exit 1;
    … …  
    104116 *   sPath-sFile ignoring '..\'s in sFile.
    105117 */
    106 SearchPaths: procedure
     118SearchPaths: procedure expose fInteractive;
    107119    i = 1;
    108120    sEnv  = arg(i);
    … …  
    117129    end
    118130
    119     if (sPath == '' & sEnv <> '' & sFile == '') then do
     131    if (sPath == '' & sEnv <> '' & sFile == '') then
     132    do
    120133        say sEnv;
    121         pull sPath;
     134        if (fInteractive) then
     135            pull sPath;
     136        else
     137            say '!ignored!';
    122138    end
    123     else do
     139    else
     140    do
    124141        if sPath <> '' then do
    125142            /*  */
Note: See TracChangeset for help on using the changeset viewer.