From ce967fbad3c874169c44a4d08ab4a03b4f43e061 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Mon, 12 Nov 2007 01:23:05 +0100 Subject: [PATCH] Update monitor when looking up services or protocols Signed-off-by: Stelian Ionescu --- sockets/namedb/protocols.lisp | 4 +++- sockets/namedb/services.lisp | 4 +++- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/sockets/namedb/protocols.lisp b/sockets/namedb/protocols.lisp index 3f9623f..1b979e1 100644 --- a/sockets/namedb/protocols.lisp +++ b/sockets/namedb/protocols.lisp @@ -108,12 +108,14 @@ UNKNOWN-PROTOCOL error if no protocol is found." (setf protocol (string-downcase protocol))) (let ((parsed-number (parse-number-or-nil protocol))) (when parsed-number (setf protocol parsed-number))) + (update-monitor *protocols-monitor*) (let ((proto (etypecase protocol (unsigned-byte (lookup-protocol-by-number protocol)) (string (lookup-protocol-by-name protocol))))) (or proto (error 'unknown-protocol :name protocol)))) -(defun purge-protocols-cache () +(defun purge-protocols-cache (&optional file) + (declare (ignore file)) (map 'nil #'clrhash (list *protocols-cache-by-name* *protocols-cache-by-number*))) diff --git a/sockets/namedb/services.lisp b/sockets/namedb/services.lisp index d7fe35f..211fca9 100644 --- a/sockets/namedb/services.lisp +++ b/sockets/namedb/services.lisp @@ -152,12 +152,14 @@ of :TCP, :UDP or :ANY." (setf service (string-downcase service))) (let ((parsed-number (parse-number-or-nil service :ub16))) (when parsed-number (setf service parsed-number))) + (update-monitor *services-monitor*) (let ((serv (etypecase service (unsigned-byte (lookup-service-by-number service protocol)) (string (lookup-service-by-name service protocol))))) (or serv (error 'unknown-service :name service)))) -(defun purge-services-cache () +(defun purge-services-cache (&optional file) + (declare (ignore file)) (map 'nil #'clrhash (list *tcp-services-cache-by-name* *tcp-services-cache-by-number* *udp-services-cache-by-name* -- 2.11.4.GIT