Ignore:
Timestamp:
Aug 10, 2010, 10:14:57 AM (14 years ago)
Author:
george
Message:

Project renamed to Transpascal.
Added support for generatin cycle For-to-do.
Added support for parsing and generating structured types as record and array.
Emit procedure in TProducerPascal and TProducerC reworked.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/DelphiToC/DelphiToC.lpi

    r52 r53  
    4848        <TopLine Value="4"/>
    4949        <CursorPos X="1" Y="29"/>
    50         <UsageCount Value="146"/>
     50        <UsageCount Value="148"/>
    5151        <Loaded Value="True"/>
    5252      </Unit0>
    … …  
    6060        <EditorIndex Value="6"/>
    6161        <WindowIndex Value="0"/>
    62         <TopLine Value="77"/>
    63         <CursorPos X="35" Y="87"/>
    64         <UsageCount Value="146"/>
     62        <TopLine Value="15"/>
     63        <CursorPos X="46" Y="28"/>
     64        <UsageCount Value="148"/>
    6565        <Loaded Value="True"/>
    6666        <LoadedDesigner Value="True"/>
    … …  
    7373        <TopLine Value="1"/>
    7474        <CursorPos X="1" Y="1"/>
    75         <UsageCount Value="146"/>
     75        <UsageCount Value="148"/>
    7676      </Unit2>
    7777      <Unit3>
    … …  
    8181        <EditorIndex Value="5"/>
    8282        <WindowIndex Value="0"/>
    83         <TopLine Value="637"/>
    84         <CursorPos X="13" Y="668"/>
    85         <UsageCount Value="146"/>
     83        <TopLine Value="168"/>
     84        <CursorPos X="12" Y="181"/>
     85        <UsageCount Value="148"/>
    8686        <Loaded Value="True"/>
    8787      </Unit3>
    … …  
    9494        <TopLine Value="1"/>
    9595        <CursorPos X="40" Y="16"/>
    96         <UsageCount Value="146"/>
     96        <UsageCount Value="148"/>
    9797        <Loaded Value="True"/>
    9898      </Unit4>
    … …  
    105105        <TopLine Value="15"/>
    106106        <CursorPos X="19" Y="28"/>
    107         <UsageCount Value="146"/>
     107        <UsageCount Value="148"/>
    108108        <Loaded Value="True"/>
    109109      </Unit5>
    … …  
    112112        <IsPartOfProject Value="True"/>
    113113        <UnitName Value="UProducer"/>
    114         <IsVisibleTab Value="True"/>
    115114        <EditorIndex Value="1"/>
    116115        <WindowIndex Value="0"/>
    117116        <TopLine Value="1"/>
    118117        <CursorPos X="5" Y="13"/>
    119         <UsageCount Value="146"/>
     118        <UsageCount Value="148"/>
    120119        <Loaded Value="True"/>
    121120      </Unit6>
    … …  
    128127        <TopLine Value="2"/>
    129128        <CursorPos X="13" Y="15"/>
    130         <UsageCount Value="146"/>
     129        <UsageCount Value="148"/>
    131130        <Loaded Value="True"/>
    132131      </Unit7>
    … …  
    137136        <EditorIndex Value="0"/>
    138137        <WindowIndex Value="0"/>
    139         <TopLine Value="1021"/>
    140         <CursorPos X="1" Y="1026"/>
    141         <UsageCount Value="146"/>
     138        <TopLine Value="1032"/>
     139        <CursorPos X="16" Y="1059"/>
     140        <UsageCount Value="148"/>
    142141        <Loaded Value="True"/>
    143142      </Unit8>
    … …  
    164163        <TopLine Value="61"/>
    165164        <CursorPos X="7" Y="68"/>
    166         <UsageCount Value="56"/>
     165        <UsageCount Value="57"/>
    167166        <Loaded Value="True"/>
    168167      </Unit11>
    … …  
    173172        <TopLine Value="139"/>
    174173        <CursorPos X="16" Y="146"/>
    175         <UsageCount Value="56"/>
     174        <UsageCount Value="57"/>
    176175        <Loaded Value="True"/>
    177176      </Unit12>
    … …  
    205204        <TopLine Value="1"/>
    206205        <CursorPos X="20" Y="14"/>
    207         <UsageCount Value="108"/>
     206        <UsageCount Value="110"/>
    208207        <Loaded Value="True"/>
    209208      </Unit16>
    … …  
    227226        <IsPartOfProject Value="True"/>
    228227        <UnitName Value="UProducerPascal"/>
     228        <IsVisibleTab Value="True"/>
    229229        <EditorIndex Value="7"/>
    230230        <WindowIndex Value="0"/>
    231         <TopLine Value="1"/>
    232         <CursorPos X="23" Y="9"/>
    233         <UsageCount Value="62"/>
     231        <TopLine Value="88"/>
     232        <CursorPos X="15" Y="99"/>
     233        <UsageCount Value="64"/>
    234234        <Loaded Value="True"/>
    235235      </Unit19>
    236236    </Units>
    237     <JumpHistory Count="30" HistoryIndex="29">
     237    <JumpHistory Count="30" HistoryIndex="28">
    238238      <Position1>
    239         <Filename Value="Analyze\UParser.pas"/>
    240         <Caret Line="1001" Column="28" TopLine="988"/>
     239        <Filename Value="Forms\UMainForm.pas"/>
     240        <Caret Line="86" Column="42" TopLine="66"/>
    241241      </Position1>
    242242      <Position2>
    243         <Filename Value="Analyze\UParser.pas"/>
    244         <Caret Line="1024" Column="57" TopLine="1011"/>
     243        <Filename Value="Forms\UMainForm.pas"/>
     244        <Caret Line="9" Column="7" TopLine="1"/>
    245245      </Position2>
    246246      <Position3>
    247         <Filename Value="Analyze\UParser.pas"/>
    248         <Caret Line="1022" Column="45" TopLine="1009"/>
     247        <Filename Value="Produce\UProducerTreeView.pas"/>
     248        <Caret Line="14" Column="9" TopLine="7"/>
    249249      </Position3>
    250250      <Position4>
    251         <Filename Value="Analyze\UParser.pas"/>
    252         <Caret Line="1030" Column="39" TopLine="1017"/>
     251        <Filename Value="Forms\UMainForm.pas"/>
     252        <Caret Line="84" Column="39" TopLine="71"/>
    253253      </Position4>
    254254      <Position5>
    255         <Filename Value="Analyze\UParser.pas"/>
    256         <Caret Line="1031" Column="41" TopLine="1018"/>
     255        <Filename Value="Forms\UMainForm.pas"/>
     256        <Caret Line="88" Column="1" TopLine="81"/>
    257257      </Position5>
    258258      <Position6>
    259         <Filename Value="Analyze\UParser.pas"/>
    260         <Caret Line="1067" Column="63" TopLine="1051"/>
     259        <Filename Value="Forms\UMainForm.pas"/>
     260        <Caret Line="86" Column="57" TopLine="73"/>
    261261      </Position6>
    262262      <Position7>
    263         <Filename Value="Analyze\UParser.pas"/>
    264         <Caret Line="1058" Column="54" TopLine="1045"/>
     263        <Filename Value="Forms\UMainForm.pas"/>
     264        <Caret Line="85" Column="57" TopLine="72"/>
    265265      </Position7>
    266266      <Position8>
    267267        <Filename Value="Forms\UMainForm.pas"/>
    268         <Caret Line="112" Column="60" TopLine="97"/>
     268        <Caret Line="99" Column="69" TopLine="75"/>
    269269      </Position8>
    270270      <Position9>
    271271        <Filename Value="Forms\UMainForm.pas"/>
    272         <Caret Line="111" Column="60" TopLine="96"/>
     272        <Caret Line="65" Column="31" TopLine="52"/>
    273273      </Position9>
    274274      <Position10>
    275         <Filename Value="Produce\UProducer.pas"/>
    276         <Caret Line="11" Column="11" TopLine="1"/>
     275        <Filename Value="Forms\UMainForm.pas"/>
     276        <Caret Line="76" Column="31" TopLine="63"/>
    277277      </Position10>
    278278      <Position11>
    279279        <Filename Value="Forms\UMainForm.pas"/>
    280         <Caret Line="111" Column="60" TopLine="96"/>
     280        <Caret Line="77" Column="11" TopLine="64"/>
    281281      </Position11>
    282282      <Position12>
    283         <Filename Value="Produce\UProducerTreeView.pas"/>
    284         <Caret Line="36" Column="16" TopLine="17"/>
     283        <Filename Value="Forms\UMainForm.pas"/>
     284        <Caret Line="87" Column="31" TopLine="74"/>
    285285      </Position12>
    286286      <Position13>
    287         <Filename Value="Produce\UProducerTreeView.pas"/>
    288         <Caret Line="35" Column="1" TopLine="23"/>
     287        <Filename Value="Forms\UMainForm.pas"/>
     288        <Caret Line="98" Column="31" TopLine="85"/>
    289289      </Position13>
    290290      <Position14>
    291         <Filename Value="Forms\UMainForm.pas"/>
    292         <Caret Line="84" Column="35" TopLine="71"/>
     291        <Filename Value="Produce\UProducerC.pas"/>
     292        <Caret Line="128" Column="17" TopLine="128"/>
    293293      </Position14>
    294294      <Position15>
    295         <Filename Value="Forms\UMainForm.pas"/>
    296         <Caret Line="86" Column="42" TopLine="66"/>
     295        <Filename Value="Produce\UProducerC.pas"/>
     296        <Caret Line="15" Column="5" TopLine="2"/>
    297297      </Position15>
    298298      <Position16>
    299         <Filename Value="Forms\UMainForm.pas"/>
    300         <Caret Line="9" Column="7" TopLine="1"/>
     299        <Filename Value="Produce\UProducerAsm8051.pas"/>
     300        <Caret Line="103" Column="22" TopLine="97"/>
    301301      </Position16>
    302302      <Position17>
    303         <Filename Value="Produce\UProducerTreeView.pas"/>
    304         <Caret Line="14" Column="9" TopLine="7"/>
     303        <Filename Value="Forms\UMainForm.pas"/>
     304        <Caret Line="87" Column="35" TopLine="77"/>
    305305      </Position17>
    306306      <Position18>
    307307        <Filename Value="Forms\UMainForm.pas"/>
    308         <Caret Line="84" Column="39" TopLine="71"/>
     308        <Caret Line="11" Column="27" TopLine="1"/>
    309309      </Position18>
    310310      <Position19>
    311         <Filename Value="Forms\UMainForm.pas"/>
    312         <Caret Line="88" Column="1" TopLine="81"/>
     311        <Filename Value="Analyze\UParser.pas"/>
     312        <Caret Line="1012" Column="81" TopLine="1009"/>
    313313      </Position19>
    314314      <Position20>
    315         <Filename Value="Forms\UMainForm.pas"/>
    316         <Caret Line="86" Column="57" TopLine="73"/>
     315        <Filename Value="Analyze\UParser.pas"/>
     316        <Caret Line="1027" Column="62" TopLine="1011"/>
    317317      </Position20>
    318318      <Position21>
    319         <Filename Value="Forms\UMainForm.pas"/>
    320         <Caret Line="85" Column="57" TopLine="72"/>
     319        <Filename Value="Analyze\UParser.pas"/>
     320        <Caret Line="1022" Column="21" TopLine="1018"/>
    321321      </Position21>
    322322      <Position22>
    323         <Filename Value="Forms\UMainForm.pas"/>
    324         <Caret Line="99" Column="69" TopLine="75"/>
     323        <Filename Value="Analyze\UParser.pas"/>
     324        <Caret Line="1011" Column="55" TopLine="1006"/>
    325325      </Position22>
    326326      <Position23>
    327         <Filename Value="Forms\UMainForm.pas"/>
    328         <Caret Line="65" Column="31" TopLine="52"/>
     327        <Filename Value="Analyze\UParser.pas"/>
     328        <Caret Line="1014" Column="3" TopLine="1011"/>
    329329      </Position23>
    330330      <Position24>
    331         <Filename Value="Forms\UMainForm.pas"/>
    332         <Caret Line="76" Column="31" TopLine="63"/>
     331        <Filename Value="Analyze\UParser.pas"/>
     332        <Caret Line="1027" Column="65" TopLine="1014"/>
    333333      </Position24>
    334334      <Position25>
    335         <Filename Value="Forms\UMainForm.pas"/>
    336         <Caret Line="77" Column="11" TopLine="64"/>
     335        <Filename Value="Produce\UProducerPascal.pas"/>
     336        <Caret Line="9" Column="23" TopLine="1"/>
    337337      </Position25>
    338338      <Position26>
    339         <Filename Value="Forms\UMainForm.pas"/>
    340         <Caret Line="87" Column="31" TopLine="74"/>
     339        <Filename Value="Produce\UProducerPascal.pas"/>
     340        <Caret Line="20" Column="15" TopLine="7"/>
    341341      </Position26>
    342342      <Position27>
    343         <Filename Value="Forms\UMainForm.pas"/>
    344         <Caret Line="98" Column="31" TopLine="85"/>
     343        <Filename Value="Produce\UProducerPascal.pas"/>
     344        <Caret Line="97" Column="1" TopLine="88"/>
    345345      </Position27>
    346346      <Position28>
    347         <Filename Value="Produce\UProducerC.pas"/>
    348         <Caret Line="128" Column="17" TopLine="128"/>
     347        <Filename Value="Produce\UProducerPascal.pas"/>
     348        <Caret Line="160" Column="62" TopLine="151"/>
    349349      </Position28>
    350350      <Position29>
    351         <Filename Value="Produce\UProducerC.pas"/>
    352         <Caret Line="15" Column="5" TopLine="2"/>
     351        <Filename Value="Produce\UProducerPascal.pas"/>
     352        <Caret Line="158" Column="14" TopLine="146"/>
    353353      </Position29>
    354354      <Position30>
    355         <Filename Value="Produce\UProducerAsm8051.pas"/>
    356         <Caret Line="103" Column="22" TopLine="97"/>
     355        <Filename Value="USourceCode.pas"/>
     356        <Caret Line="181" Column="12" TopLine="168"/>
    357357      </Position30>
    358358    </JumpHistory>
Note: See TracChangeset for help on using the changeset viewer.