From: mdw <mdw>
Date: Wed, 22 Dec 1999 17:08:46 +0000 (+0000)
Subject: New guard constant names.
X-Git-Tag: 1.0.3~2
X-Git-Url: https://git.distorted.org.uk/~mdw/skel/commitdiff_plain/9f6c125eabf5883d7c60aa578cca5d947779592e

New guard constant names.
---

diff --git a/skelrc.h b/skelrc.h
index b46eb71..ec7ab24 100644
--- a/skelrc.h
+++ b/skelrc.h
@@ -14,13 +14,18 @@
 (defun skelrc-c-guard-name ()
   (if buffer-file-name
       (skelrc-c-sanitize-guard
-       (file-name-sans-extension (file-name-nondirectory buffer-file-name)))
+       (concat
+	(let ((pre (or (skelrc-assq 'guard-prefix skel-alist)
+		       (skelrc-assq 'library skel-alist)
+		       (skelrc-assq 'Library skel-alist))))
+	  (if pre (concat pre "/")))
+	(file-name-nondirectory buffer-file-name)))
     (skel-lookup 'include-guard-name)))
 
 (setq skel-alist
       (append
        '((preamble . "[[guard]][[c++-guard]][[includes]][[structures]][[functions]]")
-	 (guard . "#ifndef [[guard-name]]_H\n#define [[guard-name]]_H\n\n")
+	 (guard . "#ifndef [[guard-name]]\n#define [[guard-name]]\n\n")
 	 (guard-name . (skelrc-c-guard-name))
 	 (c++-guard . "#ifdef __cplusplus\n  extern \"C\" {\n#endif\n\n")
 	 (includes . "[[includes-banner]]\n\n[[headers]]")