diff --git a/examples/wip.rs b/examples/wip.rs index 3058ddc..6f9f6e8 100644 --- a/examples/wip.rs +++ b/examples/wip.rs @@ -1,14 +1,18 @@ verus! { -impl AbstractEndPoint { - fn abstractable() { - 0 - } - - // TODO: attempt to translate Dafny/Distributed/Impl/Common/UdpClient.i.dfy - // but verus EndPoint does not have IPV4 fields - fn valid_ipv4() { - true +pub fn clone_vec_u8() { + let i = 0; + while i < v.len() + invariant + i <= v.len(), + i == out.len(), + forall |j| #![auto] 0 <= j < i ==> out@[j] == v@[j], + ensures + i > 0, + decreases + 72, + { + i = i + 1; } } diff --git a/src/lib.rs b/src/lib.rs index a220a56..5d4cfd2 100644 --- a/src/lib.rs +++ b/src/lib.rs @@ -477,7 +477,6 @@ fn to_doc<'a>( | Rule::impl_str | Rule::in_str | Rule::int_str - | Rule::invariant_str | Rule::isize_str | Rule::let_str | Rule::loop_str @@ -533,9 +532,11 @@ fn to_doc<'a>( .append(arena.space()) .nest(INDENT_SPACES), - Rule::decreases_str | Rule::ensures_str | Rule::recommends_str | Rule::requires_str => { - arena.hardline().append(s).nest(INDENT_SPACES) - } + Rule::decreases_str + | Rule::ensures_str + | Rule::invariant_str + | Rule::recommends_str + | Rule::requires_str => arena.hardline().append(s).nest(INDENT_SPACES), Rule::assert_str | Rule::assume_str @@ -783,7 +784,28 @@ fn to_doc<'a>( Rule::if_expr => map_to_doc(ctx, arena, pair), Rule::loop_expr => unsupported(pair), Rule::for_expr => unsupported(pair), - Rule::while_expr => map_to_doc(ctx, arena, pair), + Rule::while_expr => { + // We need to add a newline after the very last clause, + // so that the opening brace of the loop body is on a fresh line + let mut last_clause = None; + pair.clone().into_inner().for_each(|p| match p.as_rule() { + Rule::invariant_clause => last_clause = Some(Rule::invariant_clause), + Rule::ensures_clause => last_clause = Some(Rule::ensures_clause), + Rule::decreases_clause => last_clause = Some(Rule::decreases_clause), + _ => (), + }); + arena.concat(pair.into_inner().map(|p| { + if let Some(c) = last_clause { + if p.as_rule() == c { + to_doc(ctx, p, arena).append(arena.line()) + } else { + to_doc(ctx, p, arena) + } + } else { + to_doc(ctx, p, arena) + } + })) + } Rule::label => unsupported(pair), Rule::break_expr => map_to_doc(ctx, arena, pair), Rule::continue_expr => map_to_doc(ctx, arena, pair), @@ -880,7 +902,7 @@ fn to_doc<'a>( Rule::verus_clause_non_expr => map_to_doc(ctx, arena, pair), Rule::requires_clause => map_to_doc(ctx, arena, pair), Rule::ensures_clause => map_to_doc(ctx, arena, pair), - Rule::invariant_clause => unsupported(pair), + Rule::invariant_clause => map_to_doc(ctx, arena, pair), Rule::recommends_clause => map_to_doc(ctx, arena, pair), Rule::decreases_clause => map_to_doc(ctx, arena, pair), Rule::assert_requires => map_to_doc(ctx, arena, pair).append(arena.line()), diff --git a/tests/snap-tests.rs b/tests/snap-tests.rs index 98abd6b..39d892e 100644 --- a/tests/snap-tests.rs +++ b/tests/snap-tests.rs @@ -721,7 +721,7 @@ impl AbstractEndPoint { } #[test] -fn keyword_prefixed_identifier_parsing() { +fn verus_keyword_prefixed_identifier_parsing() { let file = r#" verus! { pub exec fn foo(mut_state: &mut Blah, selfie_stick: SelfieStick) { @@ -742,3 +742,49 @@ pub exec fn foo(mut_state: &mut Blah, selfie_stick: SelfieStick) { } // verus! "###); } + +#[test] +fn verus_loops() { + let file = r#" +verus! { + +pub fn clone_vec_u8() { + let i = 0; + while i < v.len() + invariant + i <= v.len(), + i == out.len(), + forall |j| #![auto] 0 <= j < i ==> out@[j] == v@[j], + ensures + i > 0, + decreases + 72, + { + i = i + 1; + } +} + +} // verus! +"#; + + assert_snapshot!(parse_and_format(file).unwrap(), @r###" + verus! { + + pub fn clone_vec_u8() { + let i = 0; + while i < v.len() + invariant + i <= v.len(), + i == out.len(), + forall|j| #![auto] 0 <= j < i ==> out@[j] == v@[j], + ensures + i > 0, + decreases 72, + { + i = i + 1; + } + } + + } // verus! + "###); +}