-
+ 9FF9EFBA6AB1874687E60C939775CD8388575E3BFCAEE80A3B0F38055437F6890A1BD90BE40CF2E43CE15C6452E7B95FA355D8B13C8E3389030BB382273F6DE6cryostat/libcryo/cryostat.adb(0 . 0)(1 . 48)
356 ------------------------------------------------------------------------------
357 ------------------------------------------------------------------------------
358 -- This file is part of 'Cryostat', an Ada library for persistent storage. --
359 -- --
360 -- (C) 2020 Stanislav Datskovskiy ( www.loper-os.org ) --
361 -- http://wot.deedbot.org/17215D118B7239507FAFED98B98228A001ABFFC7.html --
362 -- --
363 -- You do not have, nor can you ever acquire the right to use, copy or --
364 -- distribute this software ; Should you use this software for any purpose, --
365 -- or copy and distribute it to anyone or in any manner, you are breaking --
366 -- the laws of whatever soi-disant jurisdiction, and you promise to --
367 -- continue doing so for the indefinite future. In any case, please --
368 -- always : read and understand any software ; verify any PGP signatures --
369 -- that you use - for any purpose. --
370 ------------------------------------------------------------------------------
371 ------------------------------------------------------------------------------
372
373 package body Cryostat is
374
375 -- Test if the Cryostat is usable
376 function IsReady return Boolean is
377 begin
378 return PMaps.IsReady(Map);
379 end IsReady;
380
381
382 -- If the Cryostat is writable, sync to disk immediately.
383 procedure Sync is
384 begin
385 PMaps.Sync(Map);
386 end Sync;
387
388
389 -- Zero the entire mapped space of the Cryostat.
390 procedure Zap is
391 begin
392 PMaps.Zap(Map);
393 end Zap;
394
395
396 -- Close the Cryostat and mark it unusable.
397 -- Normally, this is unnecessary (Finalize will do it)
398 procedure Stop is
399 begin
400 PMaps.Stop(Map);
401 end Stop;
402
403 end Cryostat;