Investigating USB

git-svn-id: https://spexeah.com:8443/svn/Asuro@260 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

src/strings.pas

@@ -25,6 +25,7 @@ function stringConcat(str1, str2 : pchar) : pchar;
 function stringContains(str : pchar; sub : pchar) : boolean;
 function stringToInt(str : pchar) : uint32;
 function intToString(i : uint32) : pchar;
+function boolToString(b : boolean; ext : boolean) : pchar;
 
 implementation
 
@@ -150,4 +151,26 @@ begin
     intToString:= ' ';
 end;
 
+function boolToString(b : boolean; ext : boolean) : pchar;
+var
+    t : pchar;
+    f : pchar;
+
+begin
+    if ext then begin
+        t:= stringCopy('true');
+        f:= stringCopy('false');
+    end else begin
+        t:= stringCopy('1');
+        f:= stringCopy('0');
+    end;
+    if b then begin
+        kfree(void(f));
+        boolToString:= t;
+    end else begin
+        kfree(void(t));
+        boolToString:= f;
+    end;
+end;
+
 end.