Changeset 2601 for src/RTLabs


Ignore:
Timestamp:
Feb 5, 2013, 1:36:31 PM (7 years ago)
Author:
sacerdot
Message:

Extraction to ocaml is now working, with a couple of bugs left.
One limitation is that it is not possible to have two files with the
same name in different directories. Therefore this commit renames files
to avoid this situation.

The extracted directory contains:

  1. a snapshot of the .ml(i) files extracted from CerCo? by running ocamlc.opt -extract_ocaml compiler.ma The files have been patched by hand to implement all strings and fix the bugs.
  2. a file PROBLEMS that describes the remaining problems, i.e. bugs and axioms to be implemented

To obtain the compiler, run ocamlbuild compiler.byte.
At the moment it fails because of the three remaining axioms.

Location:
src/RTLabs
Files:
7 edited
4 moved

Legend:

Unmodified
Added
Removed
  • src/RTLabs/CostCheck.ma

    r2315 r2601  
    11
    22include "RTLabs/CostSpec.ma".
    3 include "utilities/bool.ma".
     3include "utilities/extra_bool.ma".
    44include "utilities/listb.ma".
    55include "RTLabs/CostMisc.ma".
  • src/RTLabs/CostInj.ma

    r2420 r2601  
    1 include "RTLabs/Traces.ma".
     1include "RTLabs/RTLabs_traces.ma".
    22
    33(* Check that the RTLabs pc → cost label map is injective for a given RTLabs
  • src/RTLabs/CostSpec.ma

    r2307 r2601  
    11
    2 include "RTLabs/syntax.ma".
     2include "RTLabs/RTLabs_syntax.ma".
    33
    44(* We define a boolean cost label function on statements as well as a cost
  • src/RTLabs/MeasurableTraces.ma

    r2511 r2601  
    11include "common/Measurable.ma".
    2 include "RTLabs/Traces.ma".
     2include "RTLabs/RTLabs_traces.ma".
    33
    44definition RTLabs_system : preclassified_system ≝
  • src/RTLabs/RTLabsToRTL.ma

    r2505 r2601  
    1 include "RTLabs/syntax.ma".
     1include "RTLabs/RTLabs_syntax.ma".
    22include "RTL/RTL.ma".
    33include "common/AssocList.ma".
  • src/RTLabs/RTLabs_abstract.ma

    r2600 r2601  
    1 include "RTLabs/semantics.ma".
     1include "RTLabs/RTLabs_semantics.ma".
    22
    33(* Avoid aliasing in interstage proofs *)
  • src/RTLabs/RTLabs_semantics.ma

    r2600 r2601  
    77include "common/SmallstepExec.ma".
    88
    9 include "RTLabs/syntax.ma".
     9include "RTLabs/RTLabs_syntax.ma".
    1010
    1111definition genv ≝ genv_t (fundef internal_function).
  • src/RTLabs/RTLabs_traces.ma

    r2600 r2601  
    11
    2 include "RTLabs/abstract.ma".
     2include "RTLabs/RTLabs_abstract.ma".
    33include "RTLabs/CostSpec.ma".
    44include "RTLabs/CostMisc.ma".
  • src/RTLabs/debug.ma

    r797 r2601  
    11include "common/Animation.ma".
    2 include "RTLabs/semantics.ma".
     2include "RTLabs/RTLabs_semantics.ma".
    33
    44inductive ministate : Type[0] ≝
  • src/RTLabs/import.ma

    r1633 r2601  
    11
    2 include "RTLabs/semantics.ma".
     2include "RTLabs/RTLabs_semantics.ma".
    33
    44let rec n_idents (n:nat) (tag:String) (g:universe tag) : Vector (identifier tag) n × (universe tag) ≝
Note: See TracChangeset for help on using the changeset viewer.