17 changed files
common | ||
JclArrayLists.pas | ||
JclCompression.pas | ||
JclDateTime.pas | ||
JclExprEval.pas | ||
JclHashSets.pas | ||
JclPreProcessorLexer.pas | ||
JclQueues.pas | ||
JclSortedMaps.pas | ||
JclSysInfo.pas | ||
JclUnicode.pas | ||
JclVectors.pas | ||
include/jedi | ||
jedi.inc | ||
windows | ||
JclDebug.pas | ||
JclLocales.pas | ||
JclNTFS.pas | ||
JclStructStorage.pas | ||
JclWin32.pas | ||
Add comment 11790 for I := 0 to ToIndex - FromIndex - 1 do
Add comment 11791 List[FromIndex + I] := Default(T)
Add comment 11792 else
Add comment 11793 Minus // independant
Add comment 11793 Plus // independent
Add comment 11794 for I := 0 to Count - 1 do
Add comment 11795 List[FromIndex + I] := Default(T);
Add comment 11796 end
Add comment 11804 for I := Count - FromIndex + ToIndex to Count - 1 do
Add comment 11805 List[FromIndex + I] := Default(T)
Add comment 11806 else
Add comment 11807 Minus // independant
Add comment 11807 Plus // independent
Add comment 11808 for I := 0 to Count - 1 do
Add comment 11809 List[FromIndex + I] := Default(T);
Add comment 11810 end;
Add comment 6285 Solid: IJclArchiveSolid;
Add comment 6286 PropNames: array of PWideChar;
Add comment 6287 PropValues: array of TPropVariant;
Add comment 6288 Plus I: Integer;
Add comment 6288 6289
Add comment 6289 6290 procedure AddProperty(const Name: PWideChar; const Value: TPropVariant);
Add comment 6290 6291 begin
Add comment 6291 Minus SetLength(PropNames, Length(PropNames)+1);
Add comment 6292 Plus SetLength(PropNames, Length(PropNames) + 1);
Add comment 6292 6293 PropNames[High(PropNames)] := Name;
Add comment 6293 Minus SetLength(PropValues, Length(PropValues)+1);
Add comment 6294 Plus SetLength(PropValues, Length(PropValues) + 1);
Add comment 6294 6295 PropValues[High(PropValues)] := Value;
Add comment 6295 6296 end;
Add comment 6296 6297
Add comment 6316 6317 var
Add comment 6317 6318 PropValue: TPropVariant;
Add comment 6318 6319 const
Add comment 6319 Minus BooleanValues: array [False..True] of WideString = ( 'OFF', 'ON' );
Add comment 6320 Plus BooleanValues: array [False..True] of WideString = ('OFF', 'ON');
Add comment 6320 6321 begin
Add comment 6321 6322 PropValue.vt := VT_BSTR;
Add comment 6322 6323 PropValue.bstrVal := SysAllocString(PWideChar(BooleanValues[Value]));
Add comment 6323 6324 AddProperty(Name, PropValue);
Add comment 6324 6325 end;
Add comment 6326 Plus
Add comment 6325 6327 const
Add comment 6326 6328 EncryptionMethodNames: array [TJclEncryptionMethod] of WideString =
Add comment 6327 6329 ( '' {emNone},
Add comment 6346 6348 and Assigned(MultiThreadStrategy) and (MultiThreadStrategy.NumberOfThreads > 1) then
Add comment 6347 6349 AddCardinalProperty('MT', MultiThreadStrategy.NumberOfThreads);
Add comment 6348 6350
Add comment 6351 Plus try
Add comment 6349 6352 if OutArchive then
Add comment 6350 6353 begin
Add comment 6351 6354 if Supports(AJclArchive, IJclArchiveCompressionMethod, CompressionMethod) and Assigned(CompressionMethod) then
Add comment 6406 6409 end;
Add comment 6407 6410 if Length(PropNames) > 0 then
Add comment 6408 6411 PropertySetter.SetProperties(@PropNames[0], @PropValues[0], Length(PropNames));
Add comment 6412 Plus finally
Add comment 6413 Plus // Release BSTR strings. VariantPropClear() would do that, but it is only available in Delphi XE3 and newer
Add comment 6414 Plus for I := 0 to Length(PropValues) - 1 do
Add comment 6415 Plus if (PropValues[I].vt = VT_BSTR) and (PropValues[I].bstrVal <> nil) then
Add comment 6416 Plus SysFreeString(PropValues[I].bstrVal);
Add comment 6417 Plus end;
Add comment 6409 6418 end;
Add comment 6410 6419 end;
Add comment 6411 6420
Add comment 516 January4th: TDateTime;
Add comment 517 FirstMonday: TDateTime;
Add comment 518 begin
Add comment 519 Minus // Applying the rule: The first calender week is the week that includes January, 4th
Add comment 519 Plus // Applying the rule: The first calendar week is the week that includes January, 4th
Add comment 520 TmpYear := YearOfDate(DateTime);
Add comment 521 WeekDay := ISODayOfWeek(DateTime);
Add comment 522 // adjust if we are between 12/29 and 12/31
Add comment 636 { Number of years in which leap year was dropped in order... }
Add comment 637 { to keep in step with the sun: }
Add comment 638 Corx := (3 * Cent) div 4 - 12;
Add comment 639 Minus { Special correction to syncronize Easter with moon's orbit: }
Add comment 639 Plus { Special correction to synchronize Easter with moon's orbit: }
Add comment 640 Corz := (8 * Cent + 5) div 25 - 5;
Add comment 641 { Find Sunday: }
Add comment 642 Sunday := (Longint(5) * Year) div 4 - Corx - 10;
Add comment 1402 etIdentifier: // or, xor, bor, bxor
Add comment 1403 if AnsiSameText(Lexer.TokenAsString, 'or') then
Add comment 1404 begin
Add comment 1405 Minus if (EvalExprLevel2(True) <> 0) or (Result <> 0) then // prevent boolean optimisations, EvalTerm must be called
Add comment 1405 Plus if (EvalExprLevel2(True) <> 0) or (Result <> 0) then // prevent boolean optimizations, EvalTerm must be called
Add comment 1406 Result := 1.0
Add comment 1407 else
Add comment 1408 Result := 0.0;
Add comment 1454 else
Add comment 1455 if AnsiSameText(Lexer.TokenAsString, 'and') then
Add comment 1456 begin
Add comment 1457 Minus if (EvalExprLevel3(True) <> 0) and (Result <> 0) then // prevent boolean optimisations, EvalTerm must be called
Add comment 1457 Plus if (EvalExprLevel3(True) <> 0) and (Result <> 0) then // prevent boolean optimizations, EvalTerm must be called
Add comment 1458 Result := 1.0
Add comment 1459 else
Add comment 1460 Result := 0.0;
Add comment 13047 for I := 0 to ToIndex - FromIndex - 1 do
Add comment 13048 List[FromIndex + I] := Default(T)
Add comment 13049 else
Add comment 13050 Minus // independant
Add comment 13050 Plus // independent
Add comment 13051 for I := 0 to Count - 1 do
Add comment 13052 List[FromIndex + I] := Default(T);
Add comment 13053 end
Add comment 13061 for I := Count - FromIndex + ToIndex to Count - 1 do
Add comment 13062 List[FromIndex + I] := Default(T)
Add comment 13063 else
Add comment 13064 Minus // independant
Add comment 13064 Plus // independent
Add comment 13065 for I := 0 to Count - 1 do
Add comment 13066 List[FromIndex + I] := Default(T);
Add comment 13067 end;
Add comment 381 if (cp + 1)^ = '*' then
Add comment 382 Break;
Add comment 383
Add comment 384 Minus { must handle strings seperately; there can be no comments in strings }
Add comment 384 Plus { must handle strings separately; there can be no comments in strings }
Add comment 385 '''':
Add comment 386 begin
Add comment 387 Inc(cp);