dateToTime, boolToStr function

Author: tranleduy2000

app/build.gradle

@@ -7,8 +7,8 @@ android {
         applicationId "com.duy.pascal.compiler"
         minSdkVersion rootProject.ext.minSdkVersion as Integer
         targetSdkVersion rootProject.ext.targetSdkVersion as Integer
-        versionCode 102
-        versionName "4.0.2"
+        versionCode 103
+        versionName "4.0.3"
         vectorDrawables.useSupportLibrary = true
         multiDexEnabled true
         testInstrumentationRunner "android.support.test.runner.AndroidJUnitRunner"

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

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

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

@@ -0,0 +1,9 @@
+Program Example7;
+
+{ This program demonstrates the DateToStr function }
+
+Uses sysutils;
+
+Begin
+   Writeln(Format ('Today is: %s', [DateToStr(Date)]));
+End.

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

@@ -289,11 +289,22 @@ public StringBuilder format(StringBuilder format, Object[] 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());
+        return new StringBuilder(date.getHours() + ":" + date.getMinutes() + ":" + date.getSeconds());
+    }
+
+    @PascalMethod(description = "Convert a TDateTime time to a string using a predefined format")
+    public StringBuilder dateToStr(Long time) {
+        Date date = new Date(time);
+        return new StringBuilder(date.getHours() + ":" + date.getMinutes() + ":" + date.getSeconds());
     }
 
     @PascalMethod(description = "Returns the current time.")
     public Long time() {
         return System.currentTimeMillis();
     }
+
+    @PascalMethod(description = "Convert a boolean value to a string.")
+    public StringBuilder boolToStr(Boolean b, StringBuilder sTrue, StringBuilder sFalse) {
+        return b ? sTrue : sFalse;
+    }
 }

test_pascal/test_libraries/sysutils/dateToStr.pas

@@ -0,0 +1,9 @@
+Program Example7;
+
+{ This program demonstrates the DateToStr function }
+
+Uses sysutils;
+
+Begin
+   Writeln(Format ('Today is: %s', [DateToStr(Date)]));
+End.

test_pascal/test_libraries/sysutils/timeToStr.pas

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