(skel-include "skelrc.c")
+(defun skelrc-c-sanitize-guard (s)
+ (setq s (copy-sequence s))
+ (let ((i 0) (l (length s)))
+ (while (< i l)
+ (let ((c (aref s i)))
+ (aset s i (if (eq (char-syntax c) ?w) (upcase c) ?_)))
+ (setq i (1+ i))))
+ s)
+
(defun skelrc-c-guard-name ()
(if buffer-file-name
- (upcase (file-name-sans-extension (file-name-nondirectory
- buffer-file-name)))
+ (skelrc-c-sanitize-guard
+ (file-name-sans-extension (file-name-nondirectory buffer-file-name)))
(skel-lookup 'include-guard-name)))
(setq skel-alist
(struct-banner . (skelrc-banner "Data structures"))
(functions . "[[func-banner]]\n\n")
(func-banner . (skelrc-banner "Functions provided"))
- (postamble . "\n\n[[c++-unguard]]#endif")
+ (postamble . "\n[[c++-unguard]]#endif\n")
(c++-unguard . "#ifdef __cplusplus\n }\n#endif\n\n"))
skel-alist))