type Instance is new Alog.Facilities.Instance with private;
type Handle is access all Instance;
type Syslog_Origin is (LOG_AUTH, LOG_AUTHPRIV, LOG_CRON, LOG_DAEMON, LOG_FTP, LOG_KERN, LOG_LOCAL0, LOG_LOCAL1, LOG_LOCAL2, LOG_LOCAL3, LOG_LOCAL4, LOG_LOCAL5, LOG_LOCAL6, LOG_LOCAL7, LOG_LPR, LOG_MAIL, LOG_NEWS, LOG_SYSLOG, LOG_USER, LOG_UUCP);
procedure Set_Origin
( | Facility | : in out Instance; |
Value | : Syslog_Origin); |
function Get_Origin
( | Facility | : Instance) return Syslog_Origin; |