ORIGIN '~beta/basiclib/betaenv';
INCLUDE '~beta/basiclib/file';

--- program: Descriptor --- 

(*
  Exception hasznalatkor elvileg az Exception mintabol kellene
  orokoltetni, de itt az elore definialt file minta van orokoltetve
  az Exceptionbol, igy nekunk mar nem kell, viszont a megfelelo
  kiveteles esemeny kivaltodasakor hivodo virtualis mintat terjesztjuk
  ki: a  NoSuchFileError-t. Az Exception mintaban definialt continue
  logikai valtozot true-ra allitjuk, azaz exceptionkor nem all le a
  program futasa, majd beallitjuk az OK valtozot false-ra hogy ciki
  van.
*)

(# 
   OK: @boolean;

   inFile: @file 
   (#
      NoSuchFileError ::
      (#
         do
            true -> continue;
            false -> OK;
      #)
   #);

   do 
      'Kerek egy filenevet:' -> putline;
      getline -> inFile.name;

      true -> OK;
      inFile.openRead;

      (if OK   // true then
                     'Sikerult megnyitni' -> putline;
                     inFile.close;
            // false then
                     'Nem sikerult megnyitni' -> putline;
      if)
#)