equal
deleted
inserted
replaced
402 {$ENDIF} |
402 {$ENDIF} |
403 |
403 |
404 procedure initModule(isNotPreview: boolean); |
404 procedure initModule(isNotPreview: boolean); |
405 {$IFDEF DEBUGFILE} |
405 {$IFDEF DEBUGFILE} |
406 var logfileBase: shortstring; |
406 var logfileBase: shortstring; |
407 {$IFNDEF MOBILE}var i: LongInt;{$ENDIF} |
407 i: LongInt; |
408 {$ENDIF} |
408 {$ENDIF} |
409 begin |
409 begin |
410 {$IFDEF DEBUGFILE} |
410 {$IFDEF DEBUGFILE} |
411 if isNotPreview then |
411 if isNotPreview then |
412 begin |
412 begin |
421 InitCriticalSection(logMutex); |
421 InitCriticalSection(logMutex); |
422 {$ENDIF} |
422 {$ENDIF} |
423 {$I-} |
423 {$I-} |
424 {$IFDEF MOBILE} |
424 {$IFDEF MOBILE} |
425 {$IFDEF IPHONEOS} Assign(f, UserPathPrefix + '/hw-' + logfileBase + '.log'); {$ENDIF} |
425 {$IFDEF IPHONEOS} Assign(f, UserPathPrefix + '/hw-' + logfileBase + '.log'); {$ENDIF} |
426 {$IFDEF ANDROID} Assign(f,pathPrefix + '/' + logfileBase + '.log'); {$ENDIF} |
426 {$IFDEF ANDROID} Assign(f, pathPrefix + '/' + logfileBase + '.log'); {$ENDIF} |
427 Rewrite(f); |
427 i:= i; // avoid hint |
428 {$ELSE} |
428 {$ELSE} |
|
429 f:= stdout; // if everything fails, write to stderr |
429 if (UserPathPrefix <> '') then |
430 if (UserPathPrefix <> '') then |
430 begin |
431 begin |
431 i:= 0; |
432 if not FileExists(UserPathPrefix + '/Logs/') then |
432 while(i < 7) do |
433 CreateDir(UserPathPrefix + '/Logs/'); |
|
434 i:= 0; |
|
435 while(i < 7) do |
433 begin |
436 begin |
434 assign(f, UserPathPrefix + '/Logs/' + logfileBase + inttostr(i) + '.log'); |
437 assign(f, UserPathPrefix + '/Logs/' + logfileBase + inttostr(i) + '.log'); |
435 rewrite(f); |
438 if IOResult = 0 then |
436 if IOResult = 0 then |
439 break; |
437 break; |
440 inc(i) |
438 inc(i) |
|
439 end; |
441 end; |
440 if i = 7 then |
442 end; |
441 f:= stderr; // if everything fails, write to stderr |
443 {$ENDIF} |
442 end |
444 Rewrite(f); |
443 else |
|
444 f:= stderr; |
|
445 {$ENDIF} |
|
446 {$I+} |
445 {$I+} |
447 {$ENDIF} |
446 {$ENDIF} |
448 |
447 |
449 end; |
448 end; |
450 |
449 |