add format example

Author: tranleduy2000

libCompiler/src/main/assets/code_sample/sysutils/Formatter.pas

@@ -0,0 +1,24 @@
+{https://docs.oracle.com/javase/7/docs/api/java/util/Formatter.html}
+uses
+   sysutils;
+
+var
+   s : string;
+begin
+   // Explicit argument indices may be used to re-order output.
+   s := format('%4$2s %3$2s %2$2s %1$2s', 'a', 'b', 'c', 'd');
+   // -> ' d  c  b  a'
+   WriteLn(s);
+   
+   s := format('pi = %+10.4f', pi);
+   // -> 'e =    +2,7183'
+   WriteLn(s);
+   
+   // The '(' numeric flag may be used to format negative numbers with
+   // parentheses rather than a minus sign.  Group separators are
+   // automatically inserted.
+   s := format('Amount gained or lost since last statement: $ %(,.2f',
+                 balanceDelta);
+   // -> 'Amount gained or lost since last statement: $ (6,217.58)'
+   writeln(s);
+end.

libCompiler/src/main/assets/code_sample/sysutils/TimeToStr.pas

@@ -0,0 +1,9 @@
+Program TimeToStr;
+
+{ This program demonstrates the Time function }
+
+Uses sysutils;
+
+Begin
+   Writeln ('The time is : ', TimeToStr(Time));
+End.

libCompiler/src/main/java/com/duy/pascal/backend/ast/expressioncontext/ExpressionContextMixin.java

@@ -564,8 +564,8 @@ public DeclaredType getTypedefTypeLocal(String identifer) {
      * define custom type
      */
     public void declareTypedef(String name, DeclaredType type) {
-        typedefs.put(name, type);
-        mListNameTypes.add(new InfoItem(StructureType.TYPE_DEF, name));
+        typedefs.put(name.toLowerCase(), type);
+        mListNameTypes.add(new InfoItem(StructureType.TYPE_DEF, name.toLowerCase()));
     }
 
     public void declareTypedefs(String name, List<DeclaredType> types) {

libCompiler/src/main/java/com/duy/pascal/backend/builtin_libraries/SysUtilsLibrary.java

@@ -21,8 +21,10 @@
 import com.duy.pascal.backend.builtin_libraries.annotations.PascalMethod;
 import com.duy.pascal.backend.builtin_libraries.runtime_exceptions.EConvertError;
 import com.duy.pascal.backend.runtime_exception.RuntimePascalException;
+import com.duy.pascal.backend.types.BasicType;
 
 import java.text.DecimalFormat;
+import java.util.Date;
 import java.util.Map;
 
 /**
@@ -54,7 +56,7 @@ public void declareConstants(ExpressionContextMixin parentContext) {
 
     @Override
     public void declareTypes(ExpressionContextMixin parentContext) {
-
+        parentContext.declareTypedef("TDateTime", BasicType.Long);
     }
 
     @Override
@@ -279,8 +281,19 @@ public StringBuilder AnsiLowerCase(StringBuilder s1) throws EConvertError {
     }
 
 
-    @PascalMethod(description = "Format a string with given arguments.")
+    @PascalMethod(description = "Format a string with given arguments. (Java)")
     public StringBuilder format(String format, Object[] arg) {
         return new StringBuilder(String.format(format, arg));
     }
+
+    @PascalMethod(description = "Convert a TDateTime time to a string using a predefined format")
+    public StringBuilder TimeToStr(Long time) {
+        Date date = new Date(time);
+        return new StringBuilder(date.toString());
+    }
+
+    @PascalMethod(description = "Returns the current time.")
+    public Long time() {
+        return System.currentTimeMillis();
+    }
 }

libCompiler/src/main/java/com/duy/pascal/frontend/code_sample/activities/CodeSampleActivity.java

@@ -30,10 +30,10 @@
 import com.duy.pascal.frontend.activities.AbstractAppCompatActivity;
 import com.duy.pascal.frontend.activities.ExecuteActivity;
 import com.duy.pascal.frontend.code.CompileManager;
-import com.duy.pascal.frontend.editor.EditorActivity;
-import com.duy.pascal.frontend.code_sample.fragments.FragmentCodeSample;
 import com.duy.pascal.frontend.code_sample.adapters.CodePagerAdapter;
 import com.duy.pascal.frontend.code_sample.adapters.CodeSampleAdapter;
+import com.duy.pascal.frontend.code_sample.fragments.FragmentCodeSample;
+import com.duy.pascal.frontend.editor.EditorActivity;
 import com.duy.pascal.frontend.file.ApplicationFileManager;
 import com.google.firebase.analytics.FirebaseAnalytics;
 import com.miguelcatalan.materialsearchview.MaterialSearchView;
@@ -54,7 +54,8 @@ public class CodeSampleActivity extends AbstractAppCompatActivity implements Cod
     private CodePagerAdapter pagerAdapter;
 
     public CodeSampleActivity() {
-        categories = new String[]{"Basic", "System", "Crt", "Dos", "Graph", "Math", "Android",
+        categories = new String[]{"Basic", "System", "Crt", "Dos", "Graph", "Math",
+                "Complete_Program", "Android",
                 "Android_Dialog", "Android_ZXing", "Android_Location"};
     }
 

libCompiler/src/test/java/com/duy/pascal/lib/SysUtilsTest.java

@@ -33,4 +33,8 @@ public String getDirTest() {
     public void testAll() {
         runAll();
     }
+
+    public void testTime() {
+        run("time.pas");
+    }
 }

test_pascal/test_libraries/sysutils/Formatter.pas

@@ -0,0 +1,24 @@
+{https://docs.oracle.com/javase/7/docs/api/java/util/Formatter.html}
+uses
+   sysutils;
+
+var
+   s : string;
+begin
+   // Explicit argument indices may be used to re-order output.
+   s := format('%4$2s %3$2s %2$2s %1$2s', 'a', 'b', 'c', 'd');
+   // -> ' d  c  b  a'
+   WriteLn(s);
+   
+   s := format('pi = %+10.4f', pi);
+   // -> 'e =    +2,7183'
+   WriteLn(s);
+   
+   // The '(' numeric flag may be used to format negative numbers with
+   // parentheses rather than a minus sign.  Group separators are
+   // automatically inserted.
+   s := format('Amount gained or lost since last statement: $ %(,.2f',
+                 balanceDelta);
+   // -> 'Amount gained or lost since last statement: $ (6,217.58)'
+   writeln(s);
+end.

test_pascal/test_libraries/sysutils/time.pas

@@ -0,0 +1,9 @@
+Program Example23;
+
+{ This program demonstrates the Time function }
+
+Uses sysutils;
+
+Begin
+   Writeln ('The time is : ', TimeToStr(Time));
+End.