Browse Source

it works

master
zapashcanon 10 months ago
parent
commit
9991476190
Signed by: zapashcanon GPG Key ID: 8981C3C62D1D28F1
4 changed files with 3 additions and 10 deletions
  1. +0
    -3
      src/index.html
  2. +1
    -5
      src/jsexec.ml
  3. +1
    -2
      src/lib.ml
  4. +1
    -0
      src/unix.js

+ 0
- 3
src/index.html View File

@ -14,10 +14,7 @@
<br />
Check the JS console.
</div>
<script type="test/javascript" src="unix.js"></script>
<script type="text/javascript" src="runtime.js"></script>
<script type="text/javascript" src="jsexec.bc.js"></script>
<!-- jsexec.bc jsexec.bc.js jsexec.bc.runtime.js -->
<script src="https://ajax.googleapis.com/ajax/libs/jquery/1.12.4/jquery.min.js"></script>
<script src="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.7/js/bootstrap.min.js" integrity="sha384-Tc5IQib027qvyjSMfHjOMaLkfuWVxZxUPnCJA7l2mCWNIpG9mGCD8wGNIcPD7Txa" crossorigin="anonymous"></script>
</body>


+ 1
- 5
src/jsexec.ml View File

@ -1,6 +1,2 @@
let () =
Lib.f ();
for i = 0 to 10 do
print_int i;
print_newline ()
done
Lib.f ()

+ 1
- 2
src/lib.ml View File

@ -1,4 +1,3 @@
let f () =
let res = Unix.times () in
Format.printf "got `%f`@." res.tms_stime;
Format.eprintf "got `%f`@." res.tms_stime
Format.printf "got `%f`@." res.tms_stime

+ 1
- 0
src/unix.js View File

@ -1,3 +1,4 @@
//Provides: unix_times
function unix_times () {
return BLOCK(0, 0, 0, 0)
}

Loading…
Cancel
Save