Skip to content

Commit

Permalink
Updated documentation and refinement headers.
Browse files Browse the repository at this point in the history
  • Loading branch information
kiniry committed Feb 19, 2022
1 parent 89e3c8e commit 95ad188
Show file tree
Hide file tree
Showing 5 changed files with 41 additions and 3 deletions.
5 changes: 3 additions & 2 deletions models/RTS.cry
Original file line number Diff line number Diff line change
Expand Up @@ -3,9 +3,9 @@
//
// @author Alex Bakst <[email protected]>
// @created November, 2021
// @refines HARDENS.sysml
// @refines HARDENS.sysml
// @refines RTS.lando
// @refines
// @refines RTS_Requirements.json

module RTS where

Expand Down Expand Up @@ -151,6 +151,7 @@ Sense_Actuate inputs icmds rts =
expect = (old_vote != 0) || ShouldActuate test_ch inputs rts.instrumentation.units [i0,i1]
test_fail = expect != (actuators_test @ test_dev).input

// @review kiniry Shouldn't this/these be private?
MaskTripFrom: {idx} (Integral idx, Literal 0 idx) =>
(idx -> Channel -> Bit) -> [3][4][8] -> [3][4][8]
MaskTripFrom p trips =
Expand Down
10 changes: 10 additions & 0 deletions models/RTS/ActuationUnit.cry
Original file line number Diff line number Diff line change
@@ -1,3 +1,13 @@
// HARDENS Reactor Trip System (RTS) Actuation Unit
// A formal model of RTS Actuation Unit behavior written in the
// Cryptol DSL.
//
// @author Alex Bakst <[email protected]>
// @created November, 2021
// @refines HARDENS.sysml
// @refines RTS.lando
// @refines RTS_Requirements.json

module RTS::ActuationUnit where

import RTS::Utils
Expand Down
12 changes: 11 additions & 1 deletion models/RTS/Actuator.cry
Original file line number Diff line number Diff line change
@@ -1,3 +1,13 @@
// HARDENS Reactor Trip System (RTS) Actuator Unit
// A formal model of RTS Actuator behavior written in the Cryptol
// DSL.
//
// @author Alex Bakst <[email protected]>
// @created November, 2021
// @refines HARDENS.sysml
// @refines RTS.lando
// @refines RTS_Requirements.json

module RTS::Actuator where

type Actuation = Bit
Expand All @@ -12,7 +22,7 @@ type Actuator =
}

SetInput: Actuation -> Actuator -> Actuator
SetInput on actuator = {actuator| input = on }
SetInput on actuator = {actuator | input = on }

SetManual: Actuation -> Actuator -> Actuator
SetManual on actuator = {actuator | manualActuatorInput = on}
Expand Down
10 changes: 10 additions & 0 deletions models/RTS/InstrumentationUnit.cry
Original file line number Diff line number Diff line change
@@ -1,3 +1,13 @@
// HARDENS Reactor Trip System (RTS) Instrumentation Unit
// A formal model of RTS Instrumentation behavior written in the
// Cryptol DSL.
//
// @author Alex Bakst <[email protected]>
// @created November, 2021
// @refines HARDENS.sysml
// @refines RTS.lando
// @refines RTS_Requirements.json

module RTS::InstrumentationUnit where

import RTS::Utils
Expand Down
7 changes: 7 additions & 0 deletions models/RTS/Utils.cry
Original file line number Diff line number Diff line change
@@ -1,3 +1,10 @@
// HARDENS Reactor Trip System (RTS) Utility Functions
// In support of a formal model of RTS system behavior written in the
// Cryptol DSL.
//
// @author Alex Bakst <[email protected]>
// @created November, 2021

module RTS::Utils where

infixl 5 >>>>
Expand Down

0 comments on commit 95ad188

Please sign in to comment.