equal
deleted
inserted
replaced
2395 procedure preInitModule; |
2395 procedure preInitModule; |
2396 procedure initModule; |
2396 procedure initModule; |
2397 procedure freeModule; |
2397 procedure freeModule; |
2398 |
2398 |
2399 implementation |
2399 implementation |
2400 {$IFNDEF PAS2C} |
|
2401 uses strutils; |
|
2402 {$ENDIF} |
|
2403 |
2400 |
2404 procedure preInitModule; |
2401 procedure preInitModule; |
2405 begin |
2402 begin |
2406 // initialisation flags - they are going to be overwritten by program args |
2403 // initialisation flags - they are going to be overwritten by program args |
2407 |
2404 |
2442 cAudioCodec := ''; |
2439 cAudioCodec := ''; |
2443 {$ENDIF} |
2440 {$ENDIF} |
2444 end; |
2441 end; |
2445 |
2442 |
2446 procedure initModule; |
2443 procedure initModule; |
|
2444 var s: shortstring; |
2447 begin |
2445 begin |
2448 // TODO: fixme |
2446 cLocale:= cLocaleFName; |
2449 {$IFDEF PAS2C} |
2447 SplitByChar(cLocale, s, '.'); |
2450 cLocale:= 'en'; |
|
2451 {$ELSE} |
|
2452 // TODO: we could just have one cLocale variables and drop strutils |
|
2453 cLocale:= ExtractDelimited(1, cLocaleFName, StdWordDelims); |
|
2454 {$ENDIF} |
|
2455 |
2448 |
2456 cFlattenFlakes := false; |
2449 cFlattenFlakes := false; |
2457 cFlattenClouds := false; |
2450 cFlattenClouds := false; |
2458 cIce := false; |
2451 cIce := false; |
2459 cSnow := false; |
2452 cSnow := false; |