Skip to content

Commit 7cbd2ba

Browse files
WittmaxiWittmaxi
authored
Add files via upload
IF-Statements start growing up...
1 parent 0d2f87d commit 7cbd2ba

File tree

2 files changed

+48
-45
lines changed

2 files changed

+48
-45
lines changed

‎Compiler.lps‎

Lines changed: 33 additions & 44 deletions
Original file line numberDiff line numberDiff line change
@@ -20,11 +20,11 @@
2020
<HasResources Value="True"/>
2121
<ResourceBaseClass Value="Form"/>
2222
<IsVisibleTab Value="True"/>
23-
<TopLine Value="488"/>
24-
<CursorPos Y="515"/>
23+
<TopLine Value="1361"/>
24+
<CursorPos X="57" Y="1390"/>
2525
<UsageCount Value="202"/>
2626
<Bookmarks Count="1">
27-
<Item0 X="39" Y="1354"/>
27+
<Item0 X="39" Y="1359"/>
2828
</Bookmarks>
2929
<Loaded Value="True"/>
3030
<LoadedDesigner Value="True"/>
@@ -48,135 +48,124 @@
4848
<JumpHistory Count="30" HistoryIndex="29">
4949
<Position1>
5050
<Filename Value="compiler_code.pas"/>
51-
<Caret Line="723" TopLine="705"/>
51+
<Caret Line="727" TopLine="705"/>
5252
</Position1>
5353
<Position2>
5454
<Filename Value="compiler_code.pas"/>
55-
<Caret Line="727" TopLine="705"/>
55+
<Caret Line="719" TopLine="705"/>
5656
</Position2>
5757
<Position3>
5858
<Filename Value="compiler_code.pas"/>
59-
<Caret Line="719" TopLine="705"/>
59+
<Caret Line="721" TopLine="705"/>
6060
</Position3>
6161
<Position4>
6262
<Filename Value="compiler_code.pas"/>
63-
<Caret Line="721" TopLine="705"/>
63+
<Caret Line="722" TopLine="705"/>
6464
</Position4>
6565
<Position5>
6666
<Filename Value="compiler_code.pas"/>
67-
<Caret Line="722" TopLine="705"/>
67+
<Caret Line="723" TopLine="705"/>
6868
</Position5>
6969
<Position6>
7070
<Filename Value="compiler_code.pas"/>
71-
<Caret Line="723" TopLine="705"/>
71+
<Caret Line="727" TopLine="705"/>
7272
</Position6>
7373
<Position7>
7474
<Filename Value="compiler_code.pas"/>
75-
<Caret Line="727" TopLine="705"/>
75+
<Caret Line="719" TopLine="705"/>
7676
</Position7>
7777
<Position8>
7878
<Filename Value="compiler_code.pas"/>
79-
<Caret Line="719" TopLine="705"/>
79+
<Caret Line="721" TopLine="705"/>
8080
</Position8>
8181
<Position9>
8282
<Filename Value="compiler_code.pas"/>
83-
<Caret Line="721" TopLine="705"/>
83+
<Caret Line="722" TopLine="705"/>
8484
</Position9>
8585
<Position10>
8686
<Filename Value="compiler_code.pas"/>
87-
<Caret Line="722" TopLine="705"/>
87+
<Caret Line="723" TopLine="705"/>
8888
</Position10>
8989
<Position11>
9090
<Filename Value="compiler_code.pas"/>
91-
<Caret Line="723" TopLine="705"/>
91+
<Caret Line="727" TopLine="705"/>
9292
</Position11>
9393
<Position12>
9494
<Filename Value="compiler_code.pas"/>
95-
<Caret Line="727" TopLine="705"/>
95+
<Caret Line="719" TopLine="705"/>
9696
</Position12>
9797
<Position13>
9898
<Filename Value="compiler_code.pas"/>
99-
<Caret Line="719" TopLine="705"/>
99+
<Caret Line="721" TopLine="705"/>
100100
</Position13>
101101
<Position14>
102102
<Filename Value="compiler_code.pas"/>
103-
<Caret Line="721" TopLine="705"/>
103+
<Caret Line="722" TopLine="705"/>
104104
</Position14>
105105
<Position15>
106106
<Filename Value="compiler_code.pas"/>
107-
<Caret Line="722" TopLine="705"/>
107+
<Caret Line="723" TopLine="705"/>
108108
</Position15>
109109
<Position16>
110110
<Filename Value="compiler_code.pas"/>
111-
<Caret Line="723" TopLine="705"/>
111+
<Caret Line="727" TopLine="705"/>
112112
</Position16>
113113
<Position17>
114114
<Filename Value="compiler_code.pas"/>
115-
<Caret Line="727" TopLine="705"/>
115+
<Caret Line="719" TopLine="705"/>
116116
</Position17>
117117
<Position18>
118118
<Filename Value="compiler_code.pas"/>
119-
<Caret Line="719" TopLine="705"/>
119+
<Caret Line="729" TopLine="705"/>
120120
</Position18>
121121
<Position19>
122122
<Filename Value="compiler_code.pas"/>
123-
<Caret Line="721" TopLine="705"/>
123+
<Caret Line="679" TopLine="661"/>
124124
</Position19>
125125
<Position20>
126126
<Filename Value="compiler_code.pas"/>
127-
<Caret Line="722" TopLine="705"/>
127+
<Caret Line="681" TopLine="661"/>
128128
</Position20>
129129
<Position21>
130130
<Filename Value="compiler_code.pas"/>
131-
<Caret Line="723" TopLine="705"/>
131+
<Caret Line="682" TopLine="661"/>
132132
</Position21>
133133
<Position22>
134134
<Filename Value="compiler_code.pas"/>
135-
<Caret Line="727" TopLine="705"/>
135+
<Caret Line="683" TopLine="661"/>
136136
</Position22>
137137
<Position23>
138138
<Filename Value="compiler_code.pas"/>
139-
<Caret Line="719" TopLine="705"/>
139+
<Caret Line="704" TopLine="688"/>
140140
</Position23>
141141
<Position24>
142142
<Filename Value="compiler_code.pas"/>
143-
<Caret Line="721" TopLine="705"/>
143+
<Caret Line="706" TopLine="694"/>
144144
</Position24>
145145
<Position25>
146146
<Filename Value="compiler_code.pas"/>
147-
<Caret Line="722" TopLine="708"/>
147+
<Caret Line="707" TopLine="694"/>
148148
</Position25>
149149
<Position26>
150150
<Filename Value="compiler_code.pas"/>
151-
<Caret Line="723" TopLine="708"/>
151+
<Caret Line="708" TopLine="694"/>
152152
</Position26>
153153
<Position27>
154154
<Filename Value="compiler_code.pas"/>
155-
<Caret Line="727" TopLine="708"/>
155+
<Caret Line="709" TopLine="694"/>
156156
</Position27>
157157
<Position28>
158158
<Filename Value="compiler_code.pas"/>
159-
<Caret Line="719" TopLine="708"/>
159+
<Caret Line="711" TopLine="694"/>
160160
</Position28>
161161
<Position29>
162162
<Filename Value="compiler_code.pas"/>
163-
<Caret Line="721" TopLine="708"/>
163+
<Caret Line="716" TopLine="694"/>
164164
</Position29>
165165
<Position30>
166166
<Filename Value="compiler_code.pas"/>
167-
<Caret Line="722" TopLine="708"/>
167+
<Caret Line="679" TopLine="661"/>
168168
</Position30>
169169
</JumpHistory>
170170
</ProjectSession>
171-
<Debugging>
172-
<BreakPoints Count="1">
173-
<Item1>
174-
<Kind Value="bpkSource"/>
175-
<WatchScope Value="wpsLocal"/>
176-
<WatchKind Value="wpkWrite"/>
177-
<Source Value="compiler_code.pas"/>
178-
<Line Value="721"/>
179-
</Item1>
180-
</BreakPoints>
181-
</Debugging>
182171
</CONFIG>

‎compiler_code.pas‎

Lines changed: 15 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -118,7 +118,7 @@ TCommand = class //just a groupment of the different Commands, to keep t
118118
private
119119
//////////////////IF-STATEMENTS//////////////////////////////
120120
private
121-
121+
procedure handleIf ();
122122
private
123123
//Functions
124124
private
@@ -1152,6 +1152,11 @@ procedure TCommand.proceedKeyW ();
11521152
handleEnd();
11531153
validKeyWord := true;
11541154
end;
1155+
if copy (m_fullLine, 0, 4) = 'wenn' then //If-Statements.
1156+
begin
1157+
handleIF();
1158+
validKeyWord := true;
1159+
end;
11551160
if varDoesExist (copy (m_fullLine, 0, pos ('=', m_fullline) + 1)) then //for operations on variables
11561161
begin
11571162
validKeyWord := true;
@@ -1379,6 +1384,15 @@ procedure TCommand.callFunc ();
13791384
end;
13801385

13811386

1387+
procedure TCommand.handleIf();
1388+
begin
1389+
//First check, what type of vars get checked to each others.
1390+
if pos ('==', 'spacer' + m_fullLine) then //on equal
1391+
begin
1392+
1393+
end;
1394+
end;
1395+
13821396
{$R *.lfm}
13831397

13841398
end.

0 commit comments

Comments
 (0)