1 year ago · 68b3cf0051
--- a/demo/zenfs/bulma.min.css
+++ b/demo/zenfs/bulma.min.css
--- a/demo/zenfs/demozenfs.lpi
+++ b/demo/zenfs/demozenfs.lpi
@@ -61,7 +61,6 @@
 
				     </Parsing>
			
 
				     <CodeGeneration>
			
 
				       <TargetOS Value="browser"/>
			
 
				-      <Subtarget Value="unicodertl"/>
			
 
				     </CodeGeneration>
			
 
				     <Linking>
			
 
				       <Debugging>
			
--- a/demo/zenfs/demozenfs.lpr
+++ b/demo/zenfs/demozenfs.lpr
@@ -1,12 +1,12 @@
 
				 program demozenfs;
			
 
				 
			
 
				 {$mode objfpc}
			
 
				-{$DEFINE FPC_DOTTEDUNITS}
			
 
				+
			
 
				 uses
			
 
				 {$IFDEF FPC_DOTTEDUNITS}
			
 
				   Browser.Console, JSApi.JS, Api.ZenFS.Core, Api.ZenFS.Dom;
			
 
				 {$ELSE}
			
 
				-  BrowserConsole, JS;
			
 
				+  BrowserConsole, JS, libzenfs, libzenfsdom;
			
 
				 {$ENDIF}
			
 
				 
			
 
				 Procedure DoTest; async;
			
@@ -28,7 +28,7 @@ begin
 
				     )
			
 
				   );
			
 
				   if ZenFS.existsSync('/something') then
			
 
				-    Writeln('File already exists')
			
 
				+    Writeln('Text file already exists')
			
 
				   else
			
 
				     begin
			
 
				     Writeln('Creating new file');
			
@@ -39,7 +39,9 @@ begin
 
				     Writeln('Read : ',BufStr)
			
 
				   else
			
 
				     Writeln('Got buffer with ',Buf.length,' bytes');
			
 
				-  if Not ZenFS.existsSync('/data.dat') then
			
 
				+  if ZenFS.existsSync('/data.dat') then
			
 
				+    Writeln('Binary file already exists')
			
 
				+  else
			
 
				     begin
			
 
				     Writeln('Creating new binary file');
			
 
				     ArrayBuf:=TJSarrayBuffer.new(3);
			
@@ -66,5 +68,7 @@ begin
 
				 end;
			
 
				 
			
 
				 begin
			
 
				+  ConsoleStyle:=DefaultCRTConsoleStyle;
			
 
				+  HookConsole;
			
 
				   DoTest;
			
 
				 end.
			
--- a/demo/zenfs/index.html
+++ b/demo/zenfs/index.html
@@ -4,13 +4,38 @@
 
				   <meta http-equiv="Content-type" content="text/html; charset=utf-8">
			
 
				   <title>Project1</title>
			
 
				   <meta name="viewport" content="width=device-width, initial-scale=1">
			
 
				+  <link rel="stylesheet" type="text/css" href="bulma.min.css">
			
 
				   <script src="browser.min.js"></script>
			
 
				   <script src="browser.dom.js"></script>
			
 
				   <script src="demozenfs.js"></script>
			
 
				+
			
 
				 </head>
			
 
				 <body>
			
 
				-  <script>
			
 
				-    rtl.run();
			
 
				-  </script>
			
 
				+  <div class="container">
			
 
				+    <div class="box">
			
 
				+      <p class="title is-3">ZenFS demo</p>
			
 
				+      <p>This page demonstrates the <a href="ZenFS">ZenFS Api</a>, a browser filesystem simulation.</p>
			
 
				+      <p>The backend is using local storage. This means that the file contents are saved across page loads.
			
 
				+      If you reload the page, you'll see that the existing files are re-read.
			
 
				+      </p>
			
 
				+    </div>
			
 
				+    <div class="box">
			
 
				+      <p class="title is-5">Program output</p>
			
 
				+      <div id="pasjsconsole"></div>
			
 
				+    </div>
			
 
				+    <footer class="footer">
			
 
				+      <div class="content has-text-centered">
			
 
				+      <p>
			
 
				+       Created using &nbsp; <a target="_blank" href="https://wiki.freepascal.org/pas2js">pas2js.</a>
			
 
				+       &nbsp;&nbsp;Sources: &nbsp; <a target="new" href="demozenfs.lpr">Program</a>
			
 
				+
			
 
				+      </p>
			
 
				+      </div>
			
 
				+    </footer>
			
 
				+
			
 
				+    <script>
			
 
				+      rtl.run();
			
 
				+    </script>
			
 
				+  </div>
			
 
				 </body>
			
 
				 </html>