code.delx.au - gnu-emacs-elpa/blob - gnome-c-snippet.el

   1 ;;; gnome-c-snippet.el --- GNOME-style code generation -*- lexical-binding: t; -*-
   2 ;; Copyright (C) 2016 Free Software Foundation, Inc.
   3
   4 ;; Author: Daiki Ueno <ueno@gnu.org>
   5 ;; Keywords: GNOME, C, coding style
   6
   7 ;; This file is part of GNU Emacs.
   8
   9 ;; GNU Emacs is free software: you can redistribute it and/or modify
  10 ;; it under the terms of the GNU General Public License as published by
  11 ;; the Free Software Foundation, either version 3 of the License, or
  12 ;; (at your option) any later version.
  13
  14 ;; GNU Emacs is distributed in the hope that it will be useful,
  15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 ;; GNU General Public License for more details.
  18
  19 ;; You should have received a copy of the GNU General Public License
  20 ;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
  21
  22 ;;; Commentary:
  23
  24 ;; FIXME: The snippets defined here could be rewritten in yasnippet
  25
  26 ;;; Code:
  27
  28 (require 'gnome-c-align)
  29 (require 'subword)
  30
  31 (defvar gnome-c-snippet-package nil)
  32 (make-variable-buffer-local 'gnome-c-snippet-package)
  33
  34 (defvar gnome-c-snippet-class nil)
  35 (make-variable-buffer-local 'gnome-c-snippet-class)
  36
  37 (defvar gnome-c-snippet-parent-package nil)
  38 (make-variable-buffer-local 'gnome-c-snippet-parent-package)
  39
  40 (defvar gnome-c-snippet-parent-class nil)
  41 (make-variable-buffer-local 'gnome-c-snippet-parent-class)
  42
  43 (defconst gnome-c-snippet-guess-name-functions
  44   '(gnome-c-snippet--guess-name-from-header-buffer
  45     gnome-c-snippet--guess-name-from-declaration
  46     gnome-c-snippet--guess-name-from-file-name))
  47
  48 (defcustom gnome-c-snippet-align-arglist t
  49   "Whether to align argument list of the inserted snippet"
  50   :type 'boolean
  51   :group 'gnome-c-style)
  52
  53 (make-variable-buffer-local 'gnome-c-snippet-align-arglist)
  54
  55 (defun gnome-c-snippet--find-declaration ()
  56   (save-excursion
  57     (let (beg end)
  58       (goto-char (point-min))
  59       (when (re-search-forward
  60              "^G_DECLARE_\\(?:FINAL\\|DERIVABLE\\)_TYPE\\s-*("
  61              nil t)
  62         (setq beg (match-beginning 0))
  63         (goto-char (match-end 0))
  64         (backward-char)
  65         (condition-case nil
  66             (progn
  67               (c-forward-sexp)
  68               (setq end (point)))
  69           (error)))
  70       (when (and beg end)
  71         (list beg end)))))
  72
  73 (defun gnome-c-snippet--extract-names-from-declaration (beg end)
  74   (save-excursion
  75     (narrow-to-region beg end)
  76     (goto-char (point-min))
  77     (search-forward "(")
  78     (c-forward-syntactic-ws)
  79     (let ((capitalized-package-class
  80            (buffer-substring-no-properties (point)
  81                                            (progn
  82                                              (c-forward-token-2)
  83                                              (c-backward-syntactic-ws)
  84                                              (point))))
  85           uppercased-package uppercased-class
  86           capitalized-package capitalized-class capitalized-parent)
  87       (c-forward-syntactic-ws)
  88       (c-forward-token-2 3)
  89       (setq uppercased-package (split-string
  90                                 (buffer-substring (point)
  91                                                   (progn
  92                                                     (c-forward-token-2)
  93                                                     (c-backward-syntactic-ws)
  94                                                     (point)))
  95                                 "_"))
  96       (c-forward-syntactic-ws)
  97       (c-forward-token-2)
  98       (setq uppercased-class (split-string
  99                               (buffer-substring (point)
 100                                                 (progn
 101                                                   (c-forward-token-2)
 102                                                   (c-backward-syntactic-ws)
 103                                                   (point)))
 104                               "_"))
 105       (c-forward-syntactic-ws)
 106       (c-forward-token-2)
 107       (setq capitalized-parent (gnome-c-snippet--parse-name
 108                                 (buffer-substring (point)
 109                                                   (progn
 110                                                     (c-forward-token-2)
 111                                                     (c-backward-syntactic-ws)
 112                                                     (point)))))
 113       (catch 'error
 114         (let ((index 0))
 115           (dolist (uppercased uppercased-package)
 116             (let* ((length (length uppercased))
 117                    (capitalized
 118                     (substring capitalized-package-class
 119                                index (+ index length))))
 120               (unless (equal (upcase capitalized) uppercased)
 121                 (throw 'error nil))
 122               (push capitalized capitalized-package)
 123               (setq index (+ index length))))
 124           (dolist (uppercased uppercased-class)
 125             (let* ((length (length uppercased))
 126                    (capitalized
 127                     (substring capitalized-package-class
 128                                index (+ index length))))
 129               (unless (equal (upcase capitalized) uppercased)
 130                 (throw 'error nil))
 131               (push capitalized capitalized-class)
 132               (setq index (+ index length))))))
 133       (list (nreverse capitalized-package)
 134             (nreverse capitalized-class)
 135             capitalized-parent))))
 136
 137 (defun gnome-c-snippet--find-header-buffer ()
 138   (pcase (file-name-extension buffer-file-name)
 139     ("h"
 140      (current-buffer))
 141     ("c"
 142      (let ((header-file-name
 143             (concat (file-name-sans-extension buffer-file-name) ".h")))
 144        (cl-find-if
 145         (lambda (buffer)
 146           (with-current-buffer buffer
 147             (equal buffer-file-name header-file-name)))
 148         (buffer-list))))))
 149
 150 (defun gnome-c-snippet--guess-name-from-header-buffer (symbol)
 151   (let ((header-buffer (gnome-c-snippet--find-header-buffer)))
 152     (when header-buffer
 153       (with-current-buffer header-buffer
 154         (symbol-value (intern (format "gnome-c-snippet-%S" symbol)))))))
 155
 156 (defun gnome-c-snippet--guess-name-from-declaration (symbol)
 157   (when (memq symbol '(package class parent-package parent-class))
 158     (let ((header-buffer (gnome-c-snippet--find-header-buffer)))
 159       (when header-buffer
 160         (with-current-buffer header-buffer
 161           (let ((region (gnome-c-snippet--find-declaration))
 162                 names)
 163             (when region
 164               (setq names
 165                     (apply #'gnome-c-snippet--extract-names-from-declaration
 166                            region))
 167               (when names
 168                 (pcase symbol
 169                   (`package (car names))
 170                   (`class (nth 1 names))
 171                   (`parent-package (list (car (nth 2 names))))
 172                   (`parent-class (cdr (nth 2 names))))))))))))
 173
 174 (defun gnome-c-snippet--guess-name-from-file-name (symbol)
 175   (when (memq symbol '(package class))
 176     (let ((filename (file-name-sans-extension
 177                      (file-name-nondirectory buffer-file-name))))
 178       (when (string-match-p "-" filename)
 179         (let ((names (split-string filename "-")))
 180           (pcase symbol
 181             (`package (list (upcase-initials (car names))))
 182             (`class (mapcar #'upcase-initials (cdr names)))))))))
 183
 184 (defun gnome-c-snippet--parse-name (name)
 185   (with-temp-buffer
 186     (let (words)
 187       (insert (upcase-initials name))
 188       (goto-char (point-min))
 189       (while (not (eobp))
 190         ;; Skip characters not recognized by subword-mode.
 191         (if (looking-at "[^[:lower:][:upper:][:digit:]]+")
 192             (goto-char (match-end 0)))
 193         (push (buffer-substring (point) (progn (subword-forward 1)
 194                                                (point)))
 195               words))
 196       (nreverse words))))
 197
 198 (defun gnome-c-snippet--read-name (prompt symbol &optional default)
 199   (when (or current-prefix-arg
 200             (not (symbol-value symbol)))
 201     (set symbol
 202          (gnome-c-snippet--parse-name
 203           (read-string prompt
 204                        (or (if (symbol-value symbol)
 205                                (gnome-c-snippet--format-Package
 206                                 (symbol-value symbol)))
 207                            default)))))
 208   (symbol-value symbol))
 209
 210 (defun gnome-c-snippet--read-package-and-class (parent)
 211   (append (list (gnome-c-snippet--read-name
 212                  "Package (CamelCase): "
 213                  'gnome-c-snippet-package
 214                  (gnome-c-snippet--format-Package
 215                   (run-hook-with-args-until-success
 216                    'gnome-c-snippet-guess-name-functions
 217                    'package)))
 218                 (gnome-c-snippet--read-name
 219                  "Class (CamelCase): "
 220                  'gnome-c-snippet-class
 221                  (gnome-c-snippet--format-Class
 222                   (run-hook-with-args-until-success
 223                    'gnome-c-snippet-guess-name-functions
 224                    'class))))
 225           (when parent
 226             (list (gnome-c-snippet--read-name
 227                    "Parent package (CamelCase): "
 228                    'gnome-c-snippet-parent-package
 229                    (gnome-c-snippet--format-Package
 230                     (run-hook-with-args-until-success
 231                      'gnome-c-snippet-guess-name-functions
 232                      'parent-package)))
 233                   (gnome-c-snippet--read-name
 234                    "Parent class (CamelCase): "
 235                    'gnome-c-snippet-parent-class
 236                    (gnome-c-snippet--format-Class
 237                     (run-hook-with-args-until-success
 238                      'gnome-c-snippet-guess-name-functions
 239                      'parent-class)))))))
 240
 241 (defun gnome-c-snippet--read-package-and-interface (parent)
 242   (list (gnome-c-snippet--read-name
 243           "Package (CamelCase): "
 244           'gnome-c-snippet-package
 245           (gnome-c-snippet--format-Package
 246            (run-hook-with-args-until-success
 247             'gnome-c-snippet-guess-name-functions
 248             'package)))
 249          (gnome-c-snippet--read-name
 250           "Interface (CamelCase): "
 251           'gnome-c-snippet-class
 252           (gnome-c-snippet--format-Class
 253            (run-hook-with-args-until-success
 254             'gnome-c-snippet-guess-name-functions
 255             'class)))
 256          (when parent
 257            (list (gnome-c-snippet--read-name
 258                   "Parent package (CamelCase): "
 259                   'gnome-c-snippet-parent-package
 260                   (gnome-c-snippet--format-Package
 261                    (run-hook-with-args-until-success
 262                     'gnome-c-snippet-guess-name-functions
 263                     'parent-package)))
 264                  (gnome-c-snippet--read-name
 265                   "Parent class (CamelCase): "
 266                   'gnome-c-snippet-parent-class
 267                    (gnome-c-snippet--format-Class
 268                     (run-hook-with-args-until-success
 269                      'gnome-c-snippet-guess-name-functions
 270                      'parent-class)))))))
 271
 272 (defun gnome-c-snippet--format-PACKAGE (package)
 273   (mapconcat #'upcase package "_"))
 274 (defalias 'gnome-c-snippet--format-CLASS 'gnome-c-snippet--format-PACKAGE)
 275
 276 (defun gnome-c-snippet--format-PACKAGE_CLASS (package class)
 277   (concat (gnome-c-snippet--format-PACKAGE package)
 278           "_"
 279           (gnome-c-snippet--format-CLASS class)))
 280
 281 (defun gnome-c-snippet--format-package (package)
 282   (mapconcat #'downcase package "_"))
 283 (defalias 'gnome-c-snippet--format-class 'gnome-c-snippet--format-package)
 284
 285 (defun gnome-c-snippet--format-package_class (package class)
 286   (concat (gnome-c-snippet--format-package package)
 287           "_"
 288           (gnome-c-snippet--format-class class)))
 289
 290 (defun gnome-c-snippet--format-Package (package)
 291   (mapconcat #'identity package ""))
 292 (defalias 'gnome-c-snippet--format-Class 'gnome-c-snippet--format-Package)
 293
 294 (defun gnome-c-snippet--format-PackageClass (package class)
 295   (concat (gnome-c-snippet--format-Package package)
 296           (gnome-c-snippet--format-Class class)))
 297
 298 ;;;###autoload
 299 (defun gnome-c-snippet-insert-package_class (package class)
 300   "Insert the class name before the current point."
 301   (interactive (gnome-c-snippet--read-package-and-class nil))
 302   (insert (gnome-c-snippet--format-package_class package class)))
 303
 304 ;;;###autoload
 305 (defun gnome-c-snippet-insert-PACKAGE_CLASS (package class)
 306   "Insert the class name before the current point."
 307   (interactive (gnome-c-snippet--read-package-and-class nil))
 308   (insert (gnome-c-snippet--format-PACKAGE_CLASS package class)))
 309
 310 ;;;###autoload
 311 (defun gnome-c-snippet-insert-PackageClass (package class)
 312   "Insert the class name (in CamelCase) before the current point."
 313   (interactive (gnome-c-snippet--read-package-and-class nil))
 314   (insert (gnome-c-snippet--format-PackageClass package class)))
 315
 316 (defun gnome-c-snippet-insert-interface-declaration (package iface
 317                                                              parent-package parent-class)
 318   "Insert interface declaration for PACKAGE and IFACE"
 319   (interactive (gnome-c-snippet--read-package-and-interface t))
 320   (insert "\
 321 #define " (gnome-c-snippet--format-PACKAGE package) "_TYPE_" (gnome-c-snippet--format-CLASS iface) " (" (gnome-c-snippet--format-package package) "_" (gnome-c-snippet--format-class iface) "_get_type ())
 322 G_DECLARE_INTERFACE (" (gnome-c-snippet--format-PackageClass package iface) ", "
 323 (gnome-c-snippet--format-package_class package iface) ", " (gnome-c-snippet--format-PACKAGE package) ", " (gnome-c-snippet--format-CLASS iface) ", " (gnome-c-snippet--format-PackageClass parent-package parent-class) ")
 324 "))
 325
 326 (defun gnome-c-snippet--insert-class-declaration (package
 327                                                   class
 328                                                   parent-package
 329                                                   parent-class
 330                                                   derivable)
 331   (insert "\
 332 #define " (gnome-c-snippet--format-PACKAGE package) "_TYPE_" (gnome-c-snippet--format-CLASS class) " (" (gnome-c-snippet--format-package_class package class) "_get_type ())
 333 G_DECLARE_" (if derivable "DERIVABLE" "FINAL") "_TYPE (" (gnome-c-snippet--format-PackageClass package class) ", "
 334 (gnome-c-snippet--format-package_class package class) ", " (gnome-c-snippet--format-PACKAGE package) ", " (gnome-c-snippet--format-CLASS class) ", " (gnome-c-snippet--format-PackageClass parent-package parent-class) ")
 335 "))
 336
 337 (defun gnome-c-snippet-insert-final-class-declaration (package
 338                                                        class
 339                                                        parent-package
 340                                                        parent-class)
 341   "Insert final class declaration for PACKAGE and CLASS."
 342   (interactive (gnome-c-snippet--read-package-and-class t))
 343   (gnome-c-snippet--insert-class-declaration package
 344                                              class
 345                                              parent-package
 346                                              parent-class
 347                                              nil))
 348
 349 (defun gnome-c-snippet-insert-derivable-class-declaration (package
 350                                                            class
 351                                                            parent-package
 352                                                            parent-class)
 353   "Insert derivable class declaration for PACKAGE and CLASS."
 354   (interactive (gnome-c-snippet--read-package-and-class t))
 355   (gnome-c-snippet--insert-class-declaration package
 356                                              class
 357                                              parent-package
 358                                              parent-class
 359                                              t))
 360
 361 (defun gnome-c-snippet-insert-interface-definition (package
 362                                                     iface
 363                                                     parent-package
 364                                                     parent-class)
 365   "Insert class definition for PACKAGE and CLASS."
 366   (interactive (gnome-c-snippet--read-package-and-interface t))
 367   (insert "\
 368 static void
 369 " (gnome-c-snippet--format-package_class package iface) "_default_init (" (gnome-c-snippet--format-PackageClass package iface) "Interface *iface) {
 370 }
 371
 372 G_DEFINE_INTERFACE (" (gnome-c-snippet--format-PackageClass package iface) ", "
 373 (gnome-c-snippet--format-package_class package iface) ", " (gnome-c-snippet--format-PACKAGE parent-package) "_TYPE_" (gnome-c-snippet--format-CLASS parent-class) ")
 374 "))
 375
 376 (defun gnome-c-snippet--insert-class-definition (package
 377                                                  class
 378                                                  parent-package
 379                                                  parent-class
 380                                                  abstract)
 381   (insert "\
 382 G_DEFINE_" (if abstract "ABSTRACT_" "") "TYPE (" (gnome-c-snippet--format-PackageClass package class) ", "
 383 (gnome-c-snippet--format-package_class package class) ", " (gnome-c-snippet--format-PACKAGE parent-package) "_TYPE_" (gnome-c-snippet--format-CLASS parent-class) ")
 384
 385 static void
 386 " (gnome-c-snippet--format-package_class package class) "_class_init (" (gnome-c-snippet--format-PackageClass package class) "Class *klass)
 387 {
 388 }
 389
 390 static void
 391 " (gnome-c-snippet--format-package_class package class) "_init (" (gnome-c-snippet--format-PackageClass package class) " *self)
 392 {
 393 }
 394 "))
 395
 396 (defun gnome-c-snippet-insert-class-definition (package
 397                                                 class
 398                                                 parent-package
 399                                                 parent-class)
 400   "Insert class definition for PACKAGE and CLASS."
 401   (interactive (gnome-c-snippet--read-package-and-class t))
 402   (gnome-c-snippet--insert-class-definition package
 403                                             class
 404                                             parent-package
 405                                             parent-class
 406                                             nil))
 407
 408 (defun gnome-c-snippet-insert-abstract-class-definition (package
 409                                                          class
 410                                                          parent-package
 411                                                          parent-class)
 412   "Insert abstract class definition for PACKAGE and CLASS."
 413   (interactive (gnome-c-snippet--read-package-and-class t))
 414   (gnome-c-snippet--insert-class-definition package
 415                                             class
 416                                             parent-package
 417                                             parent-class
 418                                             t))
 419
 420 (defun gnome-c-snippet-insert-constructor (package class)
 421   "Insert 'constructor' vfunc of GObjectClass for PACKAGE and CLASS."
 422   (interactive (gnome-c-snippet--read-package-and-class nil))
 423   (let (arglist-start body-start)
 424     (insert "\
 425 static GObject *
 426 " (gnome-c-snippet--format-package_class package class) "_constructor (")
 427     (setq arglist-start (point-marker))
 428     (insert "GType *object,
 429 guint n_construct_properties,
 430 GObjectConstructParam *construct_properties)\n")
 431     (setq body-start (point-marker))
 432     (if gnome-c-snippet-align-arglist
 433         (progn
 434           (goto-char arglist-start)
 435           (gnome-c-align-arglist-at-point))
 436       (indent-region arglist-start (point)))
 437     (goto-char body-start)
 438     (insert "{
 439   " (gnome-c-snippet--format-PackageClass package class) " *self = "
 440   (gnome-c-snippet--format-PACKAGE_CLASS package class) " (object);
 441
 442   G_OBJECT_CLASS (" (gnome-c-snippet--format-package_class package class) "_parent_class)->constructor (type, n_construct_properties, construct_properties);
 443 }
 444 ")
 445     (indent-region body-start (point))))
 446
 447 (defun gnome-c-snippet-insert-set_property (package class)
 448   "Insert 'set_property' vfunc of GObjectClass for PACKAGE and CLASS."
 449   (interactive (gnome-c-snippet--read-package-and-class nil))
 450   (let (arglist-start body-start)
 451     (insert "\
 452 static void
 453 " (gnome-c-snippet--format-package_class package class) "_set_property (")
 454     (setq arglist-start (point-marker))
 455     (insert "GObject *object,
 456 guint prop_id,
 457 const GValue *value,
 458 GParamSpec *pspec)\n")
 459     (setq body-start (point-marker))
 460     (if gnome-c-snippet-align-arglist
 461         (progn
 462           (goto-char arglist-start)
 463           (gnome-c-align-arglist-at-point))
 464       (indent-region arglist-start (point)))
 465     (goto-char body-start)
 466     (insert "{
 467   " (gnome-c-snippet--format-PackageClass package class) " *self = "
 468   (gnome-c-snippet--format-PACKAGE_CLASS package class) " (object);
 469
 470   switch (prop_id)
 471     {
 472     default:
 473       G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
 474       break;
 475     }
 476 }
 477 ")
 478     (indent-region body-start (point))))
 479
 480 (defun gnome-c-snippet-insert-get_property (package class)
 481   "Insert 'get_property' vfunc of GObjectClass for PACKAGE and CLASS."
 482   (interactive (gnome-c-snippet--read-package-and-class nil))
 483   (let (arglist-start body-start)
 484     (insert "\
 485 static void
 486 " (gnome-c-snippet--format-package_class package class) "_get_property (")
 487     (setq arglist-start (point-marker))
 488     (insert "GObject *object,
 489 guint prop_id,
 490 GValue *value,
 491 GParamSpec *pspec)\n")
 492     (setq body-start (point-marker))
 493     (if gnome-c-snippet-align-arglist
 494         (progn
 495           (goto-char arglist-start)
 496           (gnome-c-align-arglist-at-point))
 497       (indent-region arglist-start (point)))
 498     (goto-char body-start)
 499     (insert "{
 500   " (gnome-c-snippet--format-PackageClass package class) " *self = "
 501   (gnome-c-snippet--format-PACKAGE_CLASS package class) " (object);
 502
 503   switch (prop_id)
 504     {
 505     default:
 506       G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
 507       break;
 508     }
 509 }
 510 ")
 511     (indent-region body-start (point))))
 512
 513 (defun gnome-c-snippet-insert-dispose (package class)
 514   "Insert 'dispose' vfunc of GObjectClass for PACKAGE and CLASS."
 515   (interactive (gnome-c-snippet--read-package-and-class nil))
 516   (let (body-start)
 517     (insert "\
 518 static void
 519 " (gnome-c-snippet--format-package_class package class) "_dispose (GObject *object)\n")
 520     (setq body-start (point-marker))
 521     (insert "{
 522   " (gnome-c-snippet--format-PackageClass package class) " *self = "
 523   (gnome-c-snippet--format-PACKAGE_CLASS package class) " (object);
 524
 525   G_OBJECT_CLASS (" (gnome-c-snippet--format-package_class package class) "_parent_class)->dispose (object);
 526 }
 527 ")
 528     (indent-region body-start (point))))
 529
 530 (defun gnome-c-snippet-insert-finalize (package class)
 531   "Insert 'finalize' vfunc of GObjectClass for PACKAGE and CLASS."
 532   (interactive (gnome-c-snippet--read-package-and-class nil))
 533   (let (body-start)
 534     (insert "\
 535 static void
 536 " (gnome-c-snippet--format-package_class package class) "_finalize (GObject *object)\n")
 537     (setq body-start (point-marker))
 538     (insert "{
 539   " (gnome-c-snippet--format-PackageClass package class) " *self = "
 540   (gnome-c-snippet--format-PACKAGE_CLASS package class) " (object);
 541
 542   G_OBJECT_CLASS (" (gnome-c-snippet--format-package_class package class) "_parent_class)->finalize (object);
 543 }
 544 ")
 545     (indent-region body-start (point))))
 546
 547 (defun gnome-c-snippet-insert-dispatch_properties_changed (package class)
 548   "Insert 'dispatch_properties_changed vfunc of GObjectClass for
 549 PACKAGE and CLASS."
 550   (interactive (gnome-c-snippet--read-package-and-class nil))
 551   (let (arglist-start body-start)
 552     (insert "\
 553 static void
 554 " (gnome-c-snippet--format-package_class package class) "_dispatch_properties_changed (")
 555     (setq arglist-start (point-marker))
 556     (insert "GObject *object,
 557 guint n_pspecs,
 558 GParamSpec **pspecs)\n")
 559     (setq body-start (point-marker))
 560     (if gnome-c-snippet-align-arglist
 561         (progn
 562           (goto-char arglist-start)
 563           (gnome-c-align-arglist-at-point))
 564       (indent-region arglist-start (point)))
 565     (goto-char body-start)
 566     (insert "{
 567   " (gnome-c-snippet--format-PackageClass package class) " *self = "
 568   (gnome-c-snippet--format-PACKAGE_CLASS package class) " (object);
 569
 570   G_OBJECT_CLASS (" (gnome-c-snippet--format-package_class package class) "_parent_class)->dispatch_properties_changed (object, n_pspecs, pspecs);
 571 }
 572 ")
 573     (indent-region body-start (point))))
 574
 575 (defun gnome-c-snippet-insert-notify (package class)
 576   "Insert 'notify' vfunc of GObjectClass for PACKAGE and CLASS."
 577   (interactive (gnome-c-snippet--read-package-and-class nil))
 578   (let (arglist-start body-start)
 579     (insert "\
 580 static void
 581 " (gnome-c-snippet--format-package_class package class) "_notify (")
 582     (setq arglist-start (point-marker))
 583     (insert "GObject *object,
 584 GParamSpec *pspec)\n")
 585     (setq body-start (point-marker))
 586     (if gnome-c-snippet-align-arglist
 587         (progn
 588           (goto-char arglist-start)
 589           (gnome-c-align-arglist-at-point))
 590       (indent-region arglist-start (point)))
 591     (insert "{
 592   " (gnome-c-snippet--format-PackageClass package class) " *self = "
 593   (gnome-c-snippet--format-PACKAGE_CLASS package class) " (object);
 594
 595   G_OBJECT_CLASS (" (gnome-c-snippet--format-package_class package class) "_parent_class)->notify (object, pspec);
 596 }
 597 ")
 598     (indent-region body-start (point))))
 599
 600 (defun gnome-c-snippet-insert-constructed (package class)
 601   "Insert 'constructed' vfunc of GObjectClass for PACKAGE and CLASS."
 602   (interactive (gnome-c-snippet--read-package-and-class nil))
 603   (let (body-start)
 604     (insert "\
 605 static void
 606 " (gnome-c-snippet--format-package_class package class) "_constructed (GObject *object)\n")
 607     (setq body-start (point-marker))
 608     (insert "{
 609   " (gnome-c-snippet--format-PackageClass package class) " *self = "
 610   (gnome-c-snippet--format-PACKAGE_CLASS package class) " (object);
 611
 612   G_OBJECT_CLASS (" (gnome-c-snippet--format-package_class package class) "_parent_class)->constructed (object);
 613 }
 614 ")
 615     (indent-region body-start (point))))
 616
 617 (defun gnome-c-snippet-insert-class-init (package class)
 618   "Insert '_class_init' function for PACKAGE and CLASS."
 619   (interactive (gnome-c-snippet--read-package-and-class nil))
 620   (insert "\
 621 static void
 622 " (gnome-c-snippet--format-package_class package class) "_class_init (" (gnome-c-snippet--format-PackageClass package class) "Class *klass)\n")
 623     (insert "{
 624 }
 625 "))
 626
 627 (defun gnome-c-snippet-insert-init (package class)
 628   "Insert '_init' function for PACKAGE and CLASS."
 629   (interactive (gnome-c-snippet--read-package-and-class nil))
 630   (insert "\
 631 static void
 632 " (gnome-c-snippet--format-package_class package class) "_init (" (gnome-c-snippet--format-PackageClass package class) " *self)\n")
 633     (insert "{
 634 }
 635 "))
 636
 637 (defvar gnome-c-snippet-snippet-commands
 638   '(("G_DECLARE_INTERFACE" . gnome-c-snippet-insert-interface-declaration)
 639     ("G_DECLARE_FINAL_TYPE" . gnome-c-snippet-insert-final-class-declaration)
 640     ("G_DECLARE_DERIVABLE_TYPE" .
 641      gnome-c-snippet-insert-derivable-class-declaration)
 642     ("G_DEFINE_INTERFACE" . gnome-c-snippet-insert-interface-definition)
 643     ("G_DEFINE_TYPE" . gnome-c-snippet-insert-class-definition)
 644     ("G_DEFINE_ABSTRACT_TYPE" .
 645      gnome-c-snippet-insert-abstract-class-definition)
 646     ("GObjectClass.constructor" . gnome-c-snippet-insert-constructor)
 647     ("GObjectClass.set_property" . gnome-c-snippet-insert-set_property)
 648     ("GObjectClass.get_property" . gnome-c-snippet-insert-get_property)
 649     ("GObjectClass.dispose" . gnome-c-snippet-insert-dispose)
 650     ("GObjectClass.finalize" . gnome-c-snippet-insert-finalize)
 651     ("GObjectClass.dispatch_properties_changed" .
 652      gnome-c-snippet-insert-dispatch_properties_changed)
 653     ("GObjectClass.notify" . gnome-c-snippet-insert-notify)
 654     ("GObjectClass.constructed" . gnome-c-snippet-insert-constructed)
 655     ("_class_init" . gnome-c-snippet-insert-class-init)
 656     ("_init" . gnome-c-snippet-insert-init)))
 657
 658 ;;;###autoload
 659 (defun gnome-c-snippet-insert (snippet)
 660   (interactive
 661    (list (completing-read "Snippet: " gnome-c-snippet-snippet-commands nil t)))
 662   (let ((entry (assoc snippet gnome-c-snippet-snippet-commands)))
 663     (unless entry
 664       (error "Unknown snippet: %s" snippet))
 665     (call-interactively (cdr entry))))
 666
 667 (provide 'gnome-c-snippet)
 668
 669 ;;; gnome-c-snippet.el ends here