Fil-C on Nix

Filnix wiki

the formal campaign

rocq/theories/PrefixCode.v

The checked module nanofil -O makes of rocq/programs/prefix.c, as a term. Generated by rocq/gallina.pl; rocq/programs.sh checks it is current. Do not edit.

From Stdlib Require Import String ZArith List Ascii
From Nanofil Require Import Term
Import ListNotations
Open Scope string_scope
Open Scope Z_scope

The one-character atom with code n.

12Definition chrn : nat : term ≔
TAtomStringascii_of_natn EmptyString

The module term.

15Definition prefix_term: term ≔
TApp"module" TListTApp"func" TAtom"prefix"; TAtom"export"; TAtom"l"; TListTApp"param" TAtom"w"; TApp"tmp" TAtom"v0"; TListTApp"block" TAtom"start"; TList[ ]; TList[ ]; TApp"goto" TAtom"L4"; TApp"block" TAtom"L4"; TListTApp"phi" TApp"tmp" TAtom"pr.2"; TAtom"w"; TListTApp"-" TAtom"L5"; TApp"tmp" TAtom"v26"; TApp"-" TAtom"start"; TApp"const" TInt0; TApp"phi" TApp"tmp" TAtom"pr.1"; TAtom"l"; TListTApp"-" TAtom"L5"; TApp"tmp" TAtom"v24"; TApp"-" TAtom"start"; TApp"const" TInt0; TListTApp"let" TApp"tmp" TAtom"v10"; TAtom"w"; TApp"cmp" TAtom"slt"; TAtom"w"; TListTApp"tmp" TAtom"pr.2"; TApp"tmp" TAtom"v0"; TApp"branch" TApp"tmp" TAtom"v10"; TAtom"L11"; TAtom"L12"; TApp"block" TAtom"L11"; TList[ ]; TListTApp"let" TApp"tmp" TAtom"v14"; TAtom"w"; TApp"cmp" TAtom"slt"; TAtom"w"; TListTApp"tmp" TAtom"pr.2"; TApp"const" TInt4; TApp"goto" TAtom"L12"; TApp"block" TAtom"L12"; TListTApp"phi" TApp"tmp" TAtom"v16"; TAtom"w"; TListTApp"-" TAtom"L4"; TApp"const" TInt0; TApp"-" TAtom"L11"; TApp"tmp" TAtom"v14"; TList[ ]; TApp"branch" TApp"tmp" TAtom"v16"; TAtom"L5"; TAtom"L7"; TApp"block" TAtom"L5"; TList[ ]; TListTApp"let" TApp"tmp" TAtom"v18"; TAtom"p"; TAtom"copy"; TListTApp"global" TAtom"xs"; TApp"let" TApp"tmp" TAtom"v20"; TAtom"l"; TApp"ext" TAtom"sw"; TListTApp"tmp" TAtom"pr.2"; TApp"let" TApp"tmp" TAtom"v21"; TAtom"l"; TAtom"shl"; TListTApp"tmp" TAtom"v20"; TApp"const" TInt3; TApp"flight" TApp"tmp" TAtom"v22"; TAtom"add"; TListTApp"address" TApp"tmp" TAtom"v18"; TApp"tmp" TAtom"v21"; TApp"lower" TApp"tmp" TAtom"v18"; TApp"let" TApp"tmp" TAtom"chk0"; TAtom"a"; TApp"check" TInt0; TInt8; TAtom"read"; TInt1; TListTApp"tmp" TAtom"v22"; TApp"let" TApp"tmp" TAtom"v23"; TAtom"l"; TApp"raw_load" TAtom"l"; TInt0; TListTApp"tmp" TAtom"chk0"; TApp"let" TApp"tmp" TAtom"v24"; TAtom"l"; TAtom"add"; TListTApp"tmp" TAtom"pr.1"; TApp"tmp" TAtom"v23"; TApp"let" TApp"tmp" TAtom"v26"; TAtom"w"; TAtom"add"; TListTApp"tmp" TAtom"pr.2"; TApp"const" TInt1; TApp"goto" TApp"poll" TAtom"L4"; TApp"block" TAtom"L7"; TList[ ]; TList[ ]; TApp"ret" TApp"tmp" TAtom"pr.1"; TApp"data" TAtom"xs"; TApp"ro" TAtom"local"; TInt8; TListTApp"item" TAtom"b"; TApp"str" TListchr1; chr0; chr0; chr0; chr0; chr0; chr0; chr0; chr2; chr0; chr0; chr0; chr0; chr0; chr0; chr0; chr3; chr0; chr0; chr0; chr0; chr0; chr0; chr0; chr4; chr0; chr0; chr0; chr0; chr0; chr0; chr0