Changeset 12 for trunk


Ignore:
Timestamp:
Apr 4, 2011, 2:13:06 PM (14 years ago)
Author:
chronos
Message:
  • Fixed: Instance environment configuration for Windows.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/FreePascalManager.lpi

    r11 r12  
    4747        <TopLine Value="1"/>
    4848        <CursorPos X="1" Y="15"/>
    49         <UsageCount Value="121"/>
     49        <UsageCount Value="123"/>
    5050      </Unit0>
    5151      <Unit1>
    … …  
    5858        <WindowIndex Value="0"/>
    5959        <TopLine Value="165"/>
    60         <CursorPos X="54" Y="169"/>
    61         <UsageCount Value="121"/>
     60        <CursorPos X="56" Y="169"/>
     61        <UsageCount Value="123"/>
    6262        <Loaded Value="True"/>
    6363        <LoadedDesigner Value="True"/>
    … …  
    7373        <TopLine Value="96"/>
    7474        <CursorPos X="36" Y="108"/>
    75         <UsageCount Value="121"/>
     75        <UsageCount Value="123"/>
    7676        <Loaded Value="True"/>
    7777        <LoadedDesigner Value="True"/>
    … …  
    8484        <EditorIndex Value="4"/>
    8585        <WindowIndex Value="0"/>
    86         <TopLine Value="109"/>
    87         <CursorPos X="65" Y="124"/>
    88         <UsageCount Value="121"/>
     86        <TopLine Value="114"/>
     87        <CursorPos X="13" Y="128"/>
     88        <UsageCount Value="123"/>
    8989        <Loaded Value="True"/>
    9090      </Unit3>
    … …  
    9393        <IsPartOfProject Value="True"/>
    9494        <UnitName Value="USource"/>
    95         <EditorIndex Value="13"/>
    96         <WindowIndex Value="0"/>
    97         <TopLine Value="6"/>
    98         <CursorPos X="8" Y="19"/>
    99         <UsageCount Value="121"/>
     95        <EditorIndex Value="7"/>
     96        <WindowIndex Value="0"/>
     97        <TopLine Value="15"/>
     98        <CursorPos X="5" Y="28"/>
     99        <UsageCount Value="123"/>
    100100        <Loaded Value="True"/>
    101101      </Unit4>
    … …  
    176176        <ResourceBaseClass Value="Form"/>
    177177        <UnitName Value="UOperationProgress"/>
    178         <EditorIndex Value="11"/>
     178        <EditorIndex Value="5"/>
    179179        <WindowIndex Value="0"/>
    180180        <TopLine Value="103"/>
    181181        <CursorPos X="22" Y="107"/>
    182         <UsageCount Value="77"/>
     182        <UsageCount Value="79"/>
    183183        <Loaded Value="True"/>
    184184        <LoadedDesigner Value="True"/>
    … …  
    233233        <Filename Value="ReadMe.txt"/>
    234234        <IsPartOfProject Value="True"/>
    235         <EditorIndex Value="12"/>
     235        <EditorIndex Value="6"/>
    236236        <WindowIndex Value="0"/>
    237237        <TopLine Value="1"/>
    238238        <CursorPos X="6" Y="22"/>
    239         <UsageCount Value="75"/>
     239        <UsageCount Value="77"/>
    240240        <Loaded Value="True"/>
    241241        <DefaultSyntaxHighlighter Value="None"/>
    … …  
    267267        <TopLine Value="43"/>
    268268        <CursorPos X="22" Y="57"/>
    269         <UsageCount Value="68"/>
     269        <UsageCount Value="70"/>
    270270        <Loaded Value="True"/>
    271271        <LoadedDesigner Value="True"/>
    … …  
    317317        <TopLine Value="38"/>
    318318        <CursorPos X="33" Y="54"/>
    319         <UsageCount Value="29"/>
     319        <UsageCount Value="31"/>
    320320        <Loaded Value="True"/>
    321321        <LoadedDesigner Value="True"/>
    … …  
    329329      </Unit31>
    330330      <Unit32>
    331         <Filename Value="..\..\..\lazarus\lcl\interfaces\gtk2\gtk2listviewtreemodel.pas"/>
     331        <Filename Value="E:\lazarus\lcl\interfaces\gtk2\gtk2listviewtreemodel.pas"/>
    332332        <UnitName Value="Gtk2ListViewTreeModel"/>
    333333        <WindowIndex Value="0"/>
    … …  
    337337      </Unit32>
    338338      <Unit33>
    339         <Filename Value="..\..\..\lazarus\lcl\forms.pp"/>
     339        <Filename Value="E:\lazarus\lcl\forms.pp"/>
    340340        <UnitName Value="Forms"/>
    341341        <WindowIndex Value="0"/>
    … …  
    345345      </Unit33>
    346346      <Unit34>
    347         <Filename Value="..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\packages\fcl-process\src\process.pp"/>
     347        <Filename Value="E:\usr\share\fpcsrc\2.4.0\packages\fcl-process\src\process.pp"/>
    348348        <UnitName Value="process"/>
    349         <EditorIndex Value="5"/>
    350349        <WindowIndex Value="0"/>
    351350        <TopLine Value="160"/>
    352351        <CursorPos X="23" Y="166"/>
    353352        <UsageCount Value="11"/>
    354         <Loaded Value="True"/>
    355353      </Unit34>
    356354      <Unit35>
    357         <Filename Value="..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\packages\fcl-process\src\unix\process.inc"/>
    358         <EditorIndex Value="9"/>
     355        <Filename Value="E:\usr\share\fpcsrc\2.4.0\packages\fcl-process\src\unix\process.inc"/>
    359356        <WindowIndex Value="0"/>
    360357        <TopLine Value="260"/>
    361358        <CursorPos X="33" Y="267"/>
    362359        <UsageCount Value="11"/>
    363         <Loaded Value="True"/>
    364360      </Unit35>
    365361      <Unit36>
    366         <Filename Value="..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\rtl\unix\bunxovlh.inc"/>
    367         <EditorIndex Value="10"/>
     362        <Filename Value="E:\usr\share\fpcsrc\2.4.0\rtl\unix\bunxovlh.inc"/>
    368363        <WindowIndex Value="0"/>
    369364        <TopLine Value="1"/>
    370365        <CursorPos X="19" Y="3"/>
    371366        <UsageCount Value="11"/>
    372         <Loaded Value="True"/>
    373367      </Unit36>
    374368      <Unit37>
    375         <Filename Value="..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\rtl\unix\bunxovl.inc"/>
     369        <Filename Value="E:\usr\share\fpcsrc\2.4.0\rtl\unix\bunxovl.inc"/>
    376370        <WindowIndex Value="0"/>
    377371        <TopLine Value="62"/>
    … …  
    380374      </Unit37>
    381375      <Unit38>
    382         <Filename Value="..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\rtl\linux\bunxsysc.inc"/>
     376        <Filename Value="E:\usr\share\fpcsrc\2.4.0\rtl\linux\bunxsysc.inc"/>
    383377        <WindowIndex Value="0"/>
    384378        <TopLine Value="367"/>
    … …  
    387381      </Unit38>
    388382      <Unit39>
    389         <Filename Value="..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\rtl\objpas\classes\classesh.inc"/>
    390         <EditorIndex Value="8"/>
     383        <Filename Value="E:\usr\share\fpcsrc\2.4.0\rtl\objpas\classes\classesh.inc"/>
    391384        <WindowIndex Value="0"/>
    392385        <TopLine Value="587"/>
    393386        <CursorPos X="26" Y="604"/>
    394387        <UsageCount Value="11"/>
    395         <Loaded Value="True"/>
    396388      </Unit39>
    397389      <Unit40>
    398         <Filename Value="..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\rtl\inc\objpash.inc"/>
    399         <EditorIndex Value="6"/>
     390        <Filename Value="E:\usr\share\fpcsrc\2.4.0\rtl\inc\objpash.inc"/>
    400391        <WindowIndex Value="0"/>
    401392        <TopLine Value="158"/>
    402393        <CursorPos X="23" Y="175"/>
    403394        <UsageCount Value="10"/>
    404         <Loaded Value="True"/>
    405395      </Unit40>
    406396      <Unit41>
    407         <Filename Value="..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\rtl\inc\objpas.inc"/>
    408         <EditorIndex Value="7"/>
     397        <Filename Value="E:\usr\share\fpcsrc\2.4.0\rtl\inc\objpas.inc"/>
    409398        <WindowIndex Value="0"/>
    410399        <TopLine Value="147"/>
    411400        <CursorPos X="9" Y="152"/>
    412401        <UsageCount Value="10"/>
    413         <Loaded Value="True"/>
    414402      </Unit41>
    415403    </Units>
    416     <JumpHistory Count="28" HistoryIndex="27">
     404    <JumpHistory Count="30" HistoryIndex="29">
    417405      <Position1>
    418406        <Filename Value="Forms\UMainForm.pas"/>
    419         <Caret Line="512" Column="3" TopLine="495"/>
     407        <Caret Line="131" Column="11" TopLine="126"/>
    420408      </Position1>
    421409      <Position2>
    422410        <Filename Value="Forms\UMainForm.pas"/>
    423         <Caret Line="131" Column="11" TopLine="126"/>
     411        <Caret Line="169" Column="54" TopLine="165"/>
    424412      </Position2>
    425413      <Position3>
    426         <Filename Value="Forms\UMainForm.pas"/>
    427         <Caret Line="169" Column="54" TopLine="165"/>
     414        <Filename Value="UInstance.pas"/>
     415        <Caret Line="94" Column="28" TopLine="70"/>
    428416      </Position3>
    429417      <Position4>
    430418        <Filename Value="UInstance.pas"/>
    431         <Caret Line="94" Column="28" TopLine="70"/>
     419        <Caret Line="107" Column="19" TopLine="100"/>
    432420      </Position4>
    433421      <Position5>
    434422        <Filename Value="UInstance.pas"/>
    435         <Caret Line="107" Column="19" TopLine="100"/>
     423        <Caret Line="116" Column="7" TopLine="100"/>
    436424      </Position5>
    437425      <Position6>
    438426        <Filename Value="UInstance.pas"/>
    439         <Caret Line="116" Column="7" TopLine="100"/>
     427        <Caret Line="124" Column="16" TopLine="100"/>
    440428      </Position6>
    441429      <Position7>
    442430        <Filename Value="UInstance.pas"/>
    443         <Caret Line="124" Column="16" TopLine="100"/>
     431        <Caret Line="116" Column="25" TopLine="100"/>
    444432      </Position7>
    445433      <Position8>
    446434        <Filename Value="UInstance.pas"/>
    447         <Caret Line="116" Column="25" TopLine="100"/>
     435        <Caret Line="115" Column="113" TopLine="99"/>
    448436      </Position8>
    449437      <Position9>
    450438        <Filename Value="UInstance.pas"/>
    451         <Caret Line="115" Column="113" TopLine="99"/>
     439        <Caret Line="117" Column="94" TopLine="99"/>
    452440      </Position9>
    453441      <Position10>
    454442        <Filename Value="UInstance.pas"/>
    455         <Caret Line="117" Column="94" TopLine="99"/>
     443        <Caret Line="119" Column="1" TopLine="99"/>
    456444      </Position10>
    457445      <Position11>
    458446        <Filename Value="UInstance.pas"/>
    459         <Caret Line="119" Column="1" TopLine="99"/>
     447        <Caret Line="123" Column="1" TopLine="99"/>
    460448      </Position11>
    461449      <Position12>
    462450        <Filename Value="UInstance.pas"/>
    463         <Caret Line="123" Column="1" TopLine="99"/>
     451        <Caret Line="124" Column="1" TopLine="99"/>
    464452      </Position12>
    465453      <Position13>
    466454        <Filename Value="UInstance.pas"/>
    467         <Caret Line="124" Column="1" TopLine="99"/>
     455        <Caret Line="85" Column="20" TopLine="69"/>
    468456      </Position13>
    469457      <Position14>
    470458        <Filename Value="UInstance.pas"/>
    471         <Caret Line="85" Column="20" TopLine="69"/>
     459        <Caret Line="137" Column="5" TopLine="104"/>
    472460      </Position14>
    473461      <Position15>
    474462        <Filename Value="UInstance.pas"/>
    475         <Caret Line="137" Column="5" TopLine="104"/>
     463        <Caret Line="127" Column="1" TopLine="110"/>
    476464      </Position15>
    477465      <Position16>
    478466        <Filename Value="UInstance.pas"/>
    479         <Caret Line="127" Column="1" TopLine="110"/>
     467        <Caret Line="126" Column="43" TopLine="110"/>
    480468      </Position16>
    481469      <Position17>
    482470        <Filename Value="UInstance.pas"/>
    483         <Caret Line="126" Column="43" TopLine="110"/>
     471        <Caret Line="135" Column="18" TopLine="120"/>
    484472      </Position17>
    485473      <Position18>
    486474        <Filename Value="UInstance.pas"/>
    487         <Caret Line="135" Column="18" TopLine="120"/>
     475        <Caret Line="128" Column="20" TopLine="100"/>
    488476      </Position18>
    489477      <Position19>
    490         <Filename Value="..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\packages\fcl-process\src\unix\process.inc"/>
    491         <Caret Line="284" Column="44" TopLine="270"/>
     478        <Filename Value="UInstance.pas"/>
     479        <Caret Line="133" Column="45" TopLine="102"/>
    492480      </Position19>
    493481      <Position20>
    494482        <Filename Value="UInstance.pas"/>
    495         <Caret Line="128" Column="20" TopLine="100"/>
     483        <Caret Line="129" Column="72" TopLine="111"/>
    496484      </Position20>
    497485      <Position21>
    498         <Filename Value="..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\packages\fcl-process\src\process.pp"/>
    499         <Caret Line="123" Column="34" TopLine="106"/>
     486        <Filename Value="UInstance.pas"/>
     487        <Caret Line="128" Column="30" TopLine="112"/>
    500488      </Position21>
    501489      <Position22>
    502490        <Filename Value="UInstance.pas"/>
    503         <Caret Line="133" Column="45" TopLine="102"/>
     491        <Caret Line="139" Column="18" TopLine="122"/>
    504492      </Position22>
    505493      <Position23>
    506494        <Filename Value="UInstance.pas"/>
    507         <Caret Line="129" Column="72" TopLine="111"/>
     495        <Caret Line="114" Column="18" TopLine="112"/>
    508496      </Position23>
    509497      <Position24>
    510498        <Filename Value="UInstance.pas"/>
    511         <Caret Line="128" Column="30" TopLine="112"/>
     499        <Caret Line="180" Column="30" TopLine="169"/>
    512500      </Position24>
    513501      <Position25>
    514         <Filename Value="UInstance.pas"/>
    515         <Caret Line="139" Column="18" TopLine="122"/>
     502        <Filename Value="Forms\UMainForm.pas"/>
     503        <Caret Line="169" Column="56" TopLine="165"/>
    516504      </Position25>
    517505      <Position26>
    518         <Filename Value="..\..\..\..\..\..\usr\share\fpcsrc\2.4.0\packages\fcl-process\src\unix\process.inc"/>
    519         <Caret Line="267" Column="33" TopLine="260"/>
     506        <Filename Value="UInstance.pas"/>
     507        <Caret Line="156" Column="116" TopLine="143"/>
    520508      </Position26>
    521509      <Position27>
    522510        <Filename Value="UInstance.pas"/>
    523         <Caret Line="114" Column="18" TopLine="112"/>
     511        <Caret Line="126" Column="35" TopLine="112"/>
    524512      </Position27>
    525513      <Position28>
    526514        <Filename Value="UInstance.pas"/>
    527         <Caret Line="180" Column="30" TopLine="169"/>
     515        <Caret Line="129" Column="1" TopLine="112"/>
    528516      </Position28>
     517      <Position29>
     518        <Filename Value="UInstance.pas"/>
     519        <Caret Line="133" Column="1" TopLine="112"/>
     520      </Position29>
     521      <Position30>
     522        <Filename Value="UInstance.pas"/>
     523        <Caret Line="134" Column="1" TopLine="113"/>
     524      </Position30>
    529525    </JumpHistory>
    530526  </ProjectOptions>
    531527  <CompilerOptions>
    532     <Version Value="10"/>
     528    <Version Value="9"/>
    533529    <PathDelim Value="\"/>
    534530    <Target>

  • trunk/UInstance.pas

    r11 r12  
    117117    Process := TProcess.Create(nil);
    118118
     119    {$IFDEF Linux}
    119120    for I := 0 to GetEnvironmentVariableCount - 1 do
    120121      Process.Environment.Add(GetEnvironmentString(I));
    … …  
    123124      '/lib/fpc/' + FPCSource.VersionNumber + ':' + Process.Environment.Values['PATH'];
    124125    Process.Environment.Values['PPC_CONFIG_PATH'] := GetBinPath;
    125     ShowMessage(Process.Environment.Text);
    126 
     126    //ShowMessage(Process.Environment.Text);
     127    {$ENDIF}
     128    {$IFDEF Windows}
     129    OperationProgressForm.Environment := 'PATH=' + MainForm.GetBinUtilsDir;
     130    {$ENDIF}
    127131    Process.CurrentDirectory := GetPath + DirectorySeparator + IDESource.ProjectShortName;
    128132    Process.CommandLine := GetPath + DirectorySeparator + IDESource.ProjectShortName +
    … …  
    154158    Config.Text := StringReplace(Config.Text, '%BaseDir%', MainForm.GetBaseDir, [rfReplaceAll]);
    155159    Config.Text := StringReplace(Config.Text, '%LazarusDir%', GetPath + DirectorySeparator + IDESource.ProjectShortName, [rfReplaceAll]);
    156     Config.Text := StringReplace(Config.Text, '%FPCCompiler%', GetBinPath + DirectorySeparator + FPCSource.ExecutableFile, [rfReplaceAll]);
    157     Config.Text := StringReplace(Config.Text, '%Make%', MainForm.GetBinUtilsDir + DirectorySeparator + 'make', [rfReplaceAll]);
    158     {$IFDEF Windows}
     160    {$IFDEF Windows}
     161    Config.Text := StringReplace(Config.Text, '%Make%', MainForm.GetBinUtilsDir + DirectorySeparator + 'make.exe', [rfReplaceAll]);
     162    Config.Text := StringReplace(Config.Text, '%FPCCompiler%', GetBinPath + DirectorySeparator + FPCSource.ExecutableFile + '.exe', [rfReplaceAll]);
    159163    Config.Text := StringReplace(Config.Text, '%Temp%', GetEnvironmentVariableUTF8('TEMP'), [rfReplaceAll]);
    160164    Config.Text := StringReplace(Config.Text, '%GDB%', MainForm.GetBinUtilsDir + DirectorySeparator + 'mingw\gdb.exe', [rfReplaceAll]);
    161165    {$ENDIF}
    162166    {$IFDEF Linux}
     167    Config.Text := StringReplace(Config.Text, '%Make%', MainForm.GetBinUtilsDir + DirectorySeparator + 'make', [rfReplaceAll]);
     168    Config.Text := StringReplace(Config.Text, '%FPCCompiler%', GetBinPath + DirectorySeparator + FPCSource.ExecutableFile, [rfReplaceAll]);
    163169    Config.Text := StringReplace(Config.Text, '%Temp%', '/tmp', [rfReplaceAll]);
    164170    Config.Text := StringReplace(Config.Text, '%GDB%', '/usr/bin/gdb', [rfReplaceAll]);
Note: See TracChangeset for help on using the changeset viewer.