paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-05 18:17:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Cosmetic schanges

Browse Source
This commit is contained in:
Michael Van Canneyt 2024-05-16 17:46:43 +02:00
parent bc2102a91d
commit 68b3cf0051
4 changed files with 37 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
demo/zenfs/bulma.min.css vendored Normal file
View File

File diff suppressed because one or more lines are too long

1
demo/zenfs/demozenfs.lpi
View File

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

12
demo/zenfs/demozenfs.lpr
View File

@ -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.

25
demo/zenfs/index.html
View File

@ -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>
<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>