Lines Matching full:alert
72 \ -- An alert record is expected. Other types of incoming records will be
175 addr-eng: alert
309 \ Alert -- if close_notify received, trigger
316 \ Not CCS, Alert or Handshake.
323 \ Send an alert message. This shall be called only when there is room for
325 : send-alert ( level alert -- )
330 \ Send an alert message of level "warning". This shall be called only when
332 : send-warning ( alert -- )
333 1 swap send-alert ;
335 \ Fail by sending a fatal alert.
336 : fail-alert ( alert -- ! )
337 { alert }
340 2 alert send-alert
342 alert 512 + fail ;
348 \ -- A close_notify alert is sent.
475 \ Process available alert bytes. If a fatal alert is received, then the
480 begin has-input? while read8-native process-alert-byte or repeat
483 \ Process an alert byte. Returned value is non-zero if this is a close_notify,
485 : process-alert-byte ( x -- bool )
486 addr-alert get8 case
488 \ 'alert' field is 0, so this byte shall be a level.
492 addr-alert set8 0
495 0 addr-alert set8
498 \ as a fatal alert.
502 \ Fatal alert implies context termination.
512 \ neither handshake or alert, then an error is triggered.