Changeset 9 for branches/Void/UOutputGenerator.pas

Timestamp:

Nov 9, 2009, 10:15:36 AM (15 years ago)

Author:

george

Message:

• Přidáno: Definování systémových procedůr.

File:

• branches/Void/UOutputGenerator.pas (modified) (2 diffs)

branches/Void/UOutputGenerator.pas

@@ -9 +9 @@
 
 type
+
+  { TOutputGenerator }
+
   TOutputGenerator = class
   private
@@ -119 +122 @@
         if Name = 'Assignment' then Output.Add(Parameters[0] + ' = ' + Parameters[1] + ';')
         else begin
-        Row := Name;
-        if Parameters.Count > 0 then begin
-          ParameterText := '';
-          for P := 0 to Parameters.Count - 1 do
-            ParameterText := ParameterText + Parameters[P] + ', ';
-          Row := Row + '(' + Copy(ParameterText, 1, Length(ParameterText) - 2) + ')';
-        end;
-        Output.Add(Row + ';');
+          if Name = 'WriteLn' then Row := 'printf'
+          else if Name = 'ReadLn' then Row := 'scanf'
+          else if Name = 'Exit' then Row := 'exit';
+          Row := Row + '(';
+          if Parameters.Count > 0 then begin
+            ParameterText := '';
+            for P := 0 to Parameters.Count - 1 do
+              ParameterText := ParameterText + Parameters[P] + ', ';
+            Row := Row + Copy(ParameterText, 1, Length(ParameterText) - 2);
+          end;
+          Output.Add(Row + ');');
         end;
       end;