adding objc-snippets

extras/imported/objc-mode/.yas-setup.el

@@ -0,0 +1,38 @@
+;;; conditions
+(yas/define-condition-cache
+ yas/objc-interface-p
+ "Non-nil if point inside an objc @interface declaration."
+ (yas/objc-in-c-block-like "@interface"))
+
+(yas/define-condition-cache
+ yas/objc-implementation-p
+ "Non-nil if point inside an objc @implementation declaration."
+ (yas/objc-in-c-block-like "@implementation"))
+
+(yas/define-condition-cache
+ yas/objc-method-body-p
+ "Non-nil if point inside an objc @implementation declaration."
+ (yas/objc-in-c-block-like 'objc-method-intro))
+
+
+(defun yas/objc-in-c-block-like (symbol-or-regexp)
+  (let ((original-point (point))
+        (start-point nil))
+    (save-excursion
+      (cond ((symbolp symbol-or-regexp)
+             (c-beginning-of-defun)
+             (setq start-point (point))
+             (let ((syntax-info (c-guess-basic-syntax)))
+               (when (and syntax-info
+                          (eq (caar syntax-info) symbol-or-regexp))
+                 (c-end-of-defun)
+                 (and (< start-point original-point)
+                      (< original-point (point))))))
+            ((stringp symbol-or-regexp)
+             (when (search-backward-regexp symbol-or-regexp
+                                           nil
+                                           t)
+               (setq start-point (point))
+               (when (search-forward-regexp "^@end" nil t)
+                 (and (< start-point original-point)
+                      (< original-point (point))))))))))