Searched defs:Generate_File (Results 1 – 1 of 1) sorted by relevance
67 procedure Generate_File; subprogspec201 procedure Generate_File is subprogram202 subtype Visible_Symbols is Stream_Element range 16#20# .. 16#7E#;204 package Random_Elements is207 Gen : Random_Elements.Generator;208 Buffer : Stream_Element_Array := (1 .. 77 => 16#20#) & 10;210 Buffer_Count : constant Count := File_Size / Buffer'Length;213 Density : constant Count := 30; -- from 0 to Buffer'Length - 2;215 procedure Fill_Buffer (J, D : in Count);222 procedure Fill_Buffer (J, D : in Count) is