Changeset 4 for branches/Void


Ignore:
Timestamp:
Nov 6, 2009, 2:15:04 PM (15 years ago)
Author:
george
Message:
 
Location:
branches/Void
Files:
1 added
3 edited

Legend:

Unmodified
Added
Removed

  • branches/Void/Example.void

    r3 r4  
    11Write Leave me
     2Assign Text Hell
    23Pause

  • branches/Void/UCompilator.pas

    r3 r4  
    5656  WriteLn(Command);
    5757  if Command = 'Write' then Output.Add('WriteLn(''' + Line + ''');')
    58   else if Command = 'Define' then Output.Add('// Define' + Line)
    59   else if Command = 'Pause' then Output.Add('ReadLn;')
     58  else if Command = 'Assign' then begin
     59    Output.Add('// Define' + Line)
     60  end else if Command = 'Pause' then Output.Add('ReadLn;')
    6061  else if Command = 'Exit' then Output.Add('Exit;')
    6162  else begin

  • branches/Void/project1.lpi

    r3 r4  
    3232      </local>
    3333    </RunParams>
    34     <Units Count="3">
     34    <Units Count="4">
    3535      <Unit0>
    3636        <Filename Value="project1.lpr"/>
    … …  
    4040        <TopLine Value="36"/>
    4141        <EditorIndex Value="0"/>
    42         <UsageCount Value="20"/>
     42        <UsageCount Value="21"/>
    4343        <Loaded Value="True"/>
    4444      </Unit0>
    … …  
    4747        <IsPartOfProject Value="True"/>
    4848        <UnitName Value="UCompilator"/>
    49         <CursorPos X="1" Y="88"/>
    50         <TopLine Value="61"/>
     49        <CursorPos X="6" Y="59"/>
     50        <TopLine Value="47"/>
    5151        <EditorIndex Value="1"/>
    52         <UsageCount Value="20"/>
     52        <UsageCount Value="21"/>
    5353        <Loaded Value="True"/>
    5454      </Unit1>
    … …  
    5656        <Filename Value="Example.void"/>
    5757        <IsPartOfProject Value="True"/>
    58         <CursorPos X="6" Y="1"/>
     58        <CursorPos X="17" Y="2"/>
    5959        <TopLine Value="1"/>
    6060        <EditorIndex Value="2"/>
     61        <UsageCount Value="21"/>
     62        <Loaded Value="True"/>
     63        <SyntaxHighlighter Value="None"/>
     64      </Unit2>
     65      <Unit3>
     66        <Filename Value="Notices.txt"/>
     67        <IsPartOfProject Value="True"/>
     68        <CursorPos X="3" Y="1"/>
     69        <TopLine Value="1"/>
     70        <EditorIndex Value="3"/>
    6171        <UsageCount Value="20"/>
    6272        <Loaded Value="True"/>
    6373        <SyntaxHighlighter Value="None"/>
    64       </Unit2>
     74      </Unit3>
    6575    </Units>
    6676    <JumpHistory Count="15" HistoryIndex="14">
Note: See TracChangeset for help on using the changeset viewer.