Home Explore Help
Sign In
pascal
/
pas2js
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* Cosmetic schanges

Michael Van Canneyt 1 year ago
parent
bc2102a91d
commit
68b3cf0051
4 changed files with 36 additions and 8 deletions
Unified View Show Diff Stats
  1. 0 0
      demo/zenfs/bulma.min.css
  2. 0 1
      demo/zenfs/demozenfs.lpi
  3. 8 4
      demo/zenfs/demozenfs.lpr
  4. 28 3
      demo/zenfs/index.html

File diff suppressed because it is too large
+ 0 - 0
demo/zenfs/bulma.min.css


+ 0 - 1
demo/zenfs/demozenfs.lpi
View File 

@@ -61,7 +61,6 @@
 
     </Parsing>
 
     </Parsing>
 
     <CodeGeneration>
 
     <CodeGeneration>
 
       <TargetOS Value="browser"/>
 
       <TargetOS Value="browser"/>
 
-      <Subtarget Value="unicodertl"/>
 
     </CodeGeneration>
 
     </CodeGeneration>
 
     <Linking>
 
     <Linking>
 
       <Debugging>
 
       <Debugging>

+ 8 - 4
demo/zenfs/demozenfs.lpr
View File 

@@ -1,12 +1,12 @@
 
 program demozenfs;
 
 program demozenfs;
 
 
 
 {$mode objfpc}
 
 {$mode objfpc}
 
-{$DEFINE FPC_DOTTEDUNITS}
 
+
 
 uses
 
 uses
 
 {$IFDEF FPC_DOTTEDUNITS}
 
 {$IFDEF FPC_DOTTEDUNITS}
 
   Browser.Console, JSApi.JS, Api.ZenFS.Core, Api.ZenFS.Dom;
 
   Browser.Console, JSApi.JS, Api.ZenFS.Core, Api.ZenFS.Dom;
 
 {$ELSE}
 
 {$ELSE}
 
-  BrowserConsole, JS;
 
+  BrowserConsole, JS, libzenfs, libzenfsdom;
 
 {$ENDIF}
 
 {$ENDIF}
 
 
 
 Procedure DoTest; async;
 
 Procedure DoTest; async;
 
@@ -28,7 +28,7 @@ begin
 
     )
 
     )
 
   );
 
   );
 
   if ZenFS.existsSync('/something') then
 
   if ZenFS.existsSync('/something') then
 
-    Writeln('File already exists')
 
+    Writeln('Text file already exists')
 
   else
 
   else
 
     begin
 
     begin
 
     Writeln('Creating new file');
 
     Writeln('Creating new file');
 
@@ -39,7 +39,9 @@ begin
 
     Writeln('Read : ',BufStr)
 
     Writeln('Read : ',BufStr)
 
   else
 
   else
 
     Writeln('Got buffer with ',Buf.length,' bytes');
 
     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
 
     begin
 
     Writeln('Creating new binary file');
 
     Writeln('Creating new binary file');
 
     ArrayBuf:=TJSarrayBuffer.new(3);
 
     ArrayBuf:=TJSarrayBuffer.new(3);
 
@@ -66,5 +68,7 @@ begin
 
 end;
 
 end;
 
 
 
 begin
 
 begin
 
+  ConsoleStyle:=DefaultCRTConsoleStyle;
 
+  HookConsole;
 
   DoTest;
 
   DoTest;
 
 end.
 
 end.

+ 28 - 3
demo/zenfs/index.html
View File 

@@ -4,13 +4,38 @@
 
   <meta http-equiv="Content-type" content="text/html; charset=utf-8">
 
   <meta http-equiv="Content-type" content="text/html; charset=utf-8">
 
   <title>Project1</title>
 
   <title>Project1</title>
 
   <meta name="viewport" content="width=device-width, initial-scale=1">
 
   <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.min.js"></script>
 
   <script src="browser.dom.js"></script>
 
   <script src="browser.dom.js"></script>
 
   <script src="demozenfs.js"></script>
 
   <script src="demozenfs.js"></script>
 
+
 
 </head>
 
 </head>
 
 <body>
 
 <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>
 
 </body>
 
 </html>
 
 </html>

Some files were not shown because too many files changed in this diff