Ignore:
Timestamp:
Feb 15, 2007, 8:25:32 AM (18 years ago)
Author:
RBRi
Message:

method name refactoring

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NewView/CmdLineParameterUnit.pas

    r76 r78  
    2020  DebugUnit;
    2121
    22  CONST
    23    ENV_DEBUG = 'NEWVIEW_DEBUG';
     22CONST
     23  ENV_DEBUG = 'NEWVIEW_DEBUG';
    2424
    2525
    … …  
    4747       ownerWindow : integer;
    4848       windowTitle : string;
     49       parsedFileNames : string;
     50       parsedRawFileNames : string;
    4951       fileNames : string;
    50        fileNamesRaw : string;
     52       parsedSearchText : string;
    5153       searchText : string;
     54       debugEnabled : boolean;
    5255
    5356       FUNCTION handleSwitchWithValue(const aSwitchString : String; const aSwitch : String; var aValue : String) : Boolean;
    5457       PROCEDURE parseSwitch(aSwitchString : String);
    55        PROPERTY getFileNames : string read fileNames;
    56        PROPERTY getSearchText : string read searchText;
     58       PROPERTY getParsedFileNames : string read parsedFileNames;
     59       PROPERTY getParsedSearchText : string read parsedSearchText;
    5760
    5861     public
    59        PROPERTY getCommandLine : String read commandLine;
     62       PROPERTY isDebugEnabled : boolean read debugEnabled;
    6063       PROPERTY getShowUsageFlag : boolean read showUsageFlag;
    6164       PROPERTY getSearchFlag : boolean read searchFlag;
    … …  
    6972       PROPERTY getOwnerWindow : integer read ownerWindow;
    7073       PROPERTY getWindowTitle : string read windowTitle;
    71        PROPERTY getFileNamesRaw : string read fileNamesRaw;
     74       PROPERTY getFileNames : string read fileNames;
     75       PROPERTY getSearchText : string read searchText;
    7276
    7377       PROCEDURE writeDetailsTo(aStrings : TStrings);
    7478       PROCEDURE parseCmdLine(aCmdLineString : String);
    75 
    76        FUNCTION getInterpretedFileNames: String;
    77        FUNCTION getInterpretedSearchText: String;
    7879  end;
    7980
    … …  
    9495    tmpWindowPosition : TWindowPosition;
    9596  begin
    96     aStrings.Add('''' + getCommandLine + '''');
     97    aStrings.Add('''' + commandLine + '''');
     98    aStrings.Add('isDebugEnabled: ' + boolToStr(isDebugEnabled));
    9799    aStrings.Add('parsed infos:');
    98100
    99     aStrings.Add('getShowUsageFlag: ' + boolToStr(getShowUsageFlag));
    100     aStrings.Add('getSearchFlag: ' + boolToStr(getSearchFlag));
    101     aStrings.Add('getSearchText: ' + getSearchText);
    102     aStrings.Add('getGlobalSearchFlag: ' + boolToStr(getGlobalSearchFlag));
    103     aStrings.Add('getLanguage: ' + getLanguage);
    104     aStrings.Add('getHelpManagerFlag: ' + boolToStr(getHelpManagerFlag));
    105     aStrings.Add('getHelpManagerWindow: ' + LongWordToStr(getHelpManagerWindow));
    106     aStrings.Add('getWindowPositionFlag: ' + boolToStr(getWindowPositionFlag));
    107     aStrings.Add('getFileNames: ' + getFileNames);
    108     aStrings.Add('getInterpretedSearchText: ' + getInterpretedSearchText);
    109     aStrings.Add('getInterpretedFileNames: ' + getInterpretedFileNames);
     101    aStrings.Add('  showUsageFlag: ' + boolToStr(getShowUsageFlag));
     102    aStrings.Add('  searchFlag: ' + boolToStr(getSearchFlag));
     103    aStrings.Add('  fileNames: ' + getFileNames);
     104    aStrings.Add('  parsedFileNames: ' + getParsedFileNames);
     105    aStrings.Add('  searchText: ' + getSearchText);
     106    aStrings.Add('  parsedSearchText: ' + getParsedSearchText);
     107    aStrings.Add('  globalSearchFlag: ' + boolToStr(getGlobalSearchFlag));
     108    aStrings.Add('  language: ' + getLanguage);
     109    aStrings.Add('  helpManagerFlag: ' + boolToStr(getHelpManagerFlag));
     110    aStrings.Add('  helpManagerWindow: ' + LongWordToStr(getHelpManagerWindow));
     111    aStrings.Add('  windowPositionFlag: ' + boolToStr(getWindowPositionFlag));
    110112
    111113    tmpWindowPosition := getWindowPosition;
    112     aStrings.Add('getWindowPosition: '
     114    aStrings.Add('  windowPosition: '
    113115                        + intToStr(tmpWindowPosition.left) + ', '
    114116                        + intToStr(tmpWindowPosition.bottom) + ', '
    … …  
    116118                        + intToStr(tmpWindowPosition.height)
    117119                );
    118     aStrings.Add('getOwnerWindow: ' + intToStr(getOwnerWindow));
    119     aStrings.Add('getWindowTitle: ' + getWindowTitle);
    120   end;
    121 
    122 
    123   Function TCmdLineParameters.getInterpretedFileNames: String;
    124   var
    125     tmpOwnHelpFileName : String;
    126   begin
    127     result := getFileNames;
    128 
    129     if getGlobalSearchFlag
    130        AND (getSearchText = '')
    131     then
    132     begin
    133       result := '';
    134       exit;
    135     end;
    136 
    137 
    138     tmpOwnHelpFileName := FindDefaultLanguageHelpFile('NewView');
    139     if (result = '') AND
    140       FileExists(tmpOwnHelpFileName)
    141     then
    142       result := tmpOwnHelpFileName;
    143   end;
    144 
    145 
    146   Function TCmdLineParameters.getInterpretedSearchText: String;
    147   begin
    148     result := getSearchText;
    149 
    150     if getGlobalSearchFlag
    151        AND (result = '')
    152     then
    153       result := getFileNamesRaw;
    154 
    155     if not getGlobalSearchFlag
    156        AND (not getSearchFlag)
    157     then
    158     begin
    159       result := StrTrim(result);
    160       result := StrTrimChars(result, ['"']);
    161     end;
     120    aStrings.Add('  ownerWindow: ' + intToStr(getOwnerWindow));
     121    aStrings.Add('  windowTitle: ' + getWindowTitle);
    162122  end;
    163123
    … …  
    179139    tmpQuote : String;
    180140    tmpSwitch : String;
     141    tmpOwnHelpFileName : String;
    181142  begin
    182143    // first adjust logging
     144    debugEnabled := false;
    183145    if GetEnv(ENV_DEBUG) = '' then
    184146    begin
    185       // TODO set boolean
     147      debugEnabled := true;
    186148    end
    187149    else
    … …  
    205167    ownerWindow := 0;
    206168    windowTitle := '';
    207     searchText := '';
    208     fileNames := '';
    209     fileNamesRaw := '';
     169    parsedSearchText := '';
     170    parsedFileNames := '';
     171    parsedRawFileNames := '';
    210172
    211173    try
    … …  
    254216                if tmpQuoted then
    255217                begin
    256                   fileNames := fileNames + tmpCurrentChar;
    257                   fileNamesRaw := fileNamesRaw + tmpCurrentChar;
     218                  parsedFileNames := parsedFileNames + tmpCurrentChar;
     219                  parsedRawFileNames := parsedRawFileNames + tmpCurrentChar;
    258220                end
    259221                else
    … …  
    268230                if tmpQuoted then
    269231                begin
    270                   searchText := searchText + tmpCurrentChar;
     232                  parsedSearchText := parsedSearchText + tmpCurrentChar;
    271233                end
    272234                else
    … …  
    302264              FILENAME :
    303265              begin
    304                 fileNames := fileNames + tmpCurrentChar;
    305                 fileNamesRaw := fileNamesRaw + tmpCurrentChar;
     266                parsedFileNames := parsedFileNames + tmpCurrentChar;
     267                parsedRawFileNames := parsedRawFileNames + tmpCurrentChar;
    306268              end;
    307269
    308270              TEXT :
    309271              begin
    310                 searchText := searchText + tmpCurrentChar;
     272                parsedSearchText := parsedSearchText + tmpCurrentChar;
    311273              end;
    312274            end;
    … …  
    321283                FILENAME :
    322284                begin
    323                   fileNamesRaw := fileNamesRaw + tmpCurrentChar;
     285                  parsedRawFileNames := parsedRawFileNames + tmpCurrentChar;
     286                end;
     287                TEXT :
     288                begin
     289                  parsedSearchText := parsedSearchText + tmpCurrentChar;
    324290                end;
    325291              end;
    … …  
    327293            else
    328294            begin
     295              tmpQuoted := true;
    329296              Case tmpState of
    330297                WHITESPACE :
    … …  
    335302                FILENAME :
    336303                begin
    337                   fileNamesRaw := fileNamesRaw + tmpCurrentChar;
     304                  parsedRawFileNames := parsedRawFileNames + tmpCurrentChar;
    338305                end;
    339306              end;
    340               tmpQuoted := true;
    341307            end;
    342308          end;
    … …  
    349315              WHITESPACE :
    350316              begin
    351                 if length(fileNames) > 0 then
     317                if length(parsedFileNames) > 0 then
    352318                begin
    353319                  tmpState := TEXT;
    354                   searchText := searchText + tmpWhitespace + tmpCurrentChar;
     320                  parsedSearchText := parsedSearchText + tmpWhitespace + tmpCurrentChar;
    355321                end
    356322                else
    357323                begin
    358324                  tmpState := FILENAME;
    359                   fileNames := fileNames + tmpCurrentChar;
    360                   fileNamesRaw := fileNamesRaw + tmpCurrentChar;
     325                  parsedFileNames := parsedFileNames + tmpCurrentChar;
     326                  parsedRawFileNames := parsedRawFileNames + tmpCurrentChar;
    361327                end;
    362328              end;
    … …  
    364330              QUOTE :
    365331              begin
    366                 if length(fileNames) > 0 then
     332                if length(parsedFileNames) > 0 then
    367333                begin
    368334                  tmpState := TEXT;
    369                   searchText := searchText + tmpWhitespace + tmpCurrentChar;
     335                  parsedSearchText := parsedSearchText + tmpQuote + tmpCurrentChar;
    370336                end
    371337                else
    372338                begin
    373339                  tmpState := FILENAME;
    374                   fileNames := fileNames + tmpCurrentChar;
    375                   fileNamesRaw := fileNamesRaw + tmpQuote + tmpCurrentChar;
     340                  parsedFileNames := parsedFileNames + tmpCurrentChar;
     341                  parsedRawFileNames := parsedRawFileNames + tmpQuote + tmpCurrentChar;
    376342                end;
    377343              end;
    … …  
    384350              FILENAME :
    385351              begin
    386                 fileNames := fileNames + tmpCurrentChar;
    387                 fileNamesRaw := fileNamesRaw + tmpCurrentChar;
     352                parsedFileNames := parsedFileNames + tmpCurrentChar;
     353                parsedRawFileNames := parsedRawFileNames + tmpCurrentChar;
    388354              end;
    389355
    390356              TEXT :
    391357              begin
    392                 searchText := searchText + tmpCurrentChar;
     358                parsedSearchText := parsedSearchText + tmpCurrentChar;
    393359              end;
    394360            end;
    … …  
    405371        end;
    406372      end;
    407       // TODO remove interpreted
    408373    except
    409374        on e:EParsingFailed do
    … …  
    413378    end;
    414379
    415     // remove leading blanks from search text
    416     searchText := StrTrim(searchText);
     380    // remove blanks
     381    fileNames := StrTrim(getParsedFileNames);
     382    searchText := StrTrim(getParsedSearchText);
     383
     384    if getGlobalSearchFlag
     385       AND (getParsedSearchText = '')
     386    then
     387    begin
     388      fileNames := '';
     389      searchText := parsedRawFileNames;
     390    end
     391    else
     392    begin
     393      if fileNames = '' then
     394      begin
     395        tmpOwnHelpFileName := FindDefaultLanguageHelpFile('NewView');
     396        if FileExists(tmpOwnHelpFileName)
     397        then
     398          fileNames := tmpOwnHelpFileName;
     399      end;
     400    end;
     401
     402    // to be compatible with the old one we have to ignore
     403    // the quotes
     404    if not getGlobalSearchFlag
     405       AND (not getSearchFlag)
     406    then
     407    begin
     408      searchText := StrTrimChars(searchText, ['"']);
     409    end;
    417410
    418411    LogEvent(LogStartup, 'Parameters parsed');
Note: See TracChangeset for help on using the changeset viewer.