Lines Matching +defs:match +defs:type
88 ;; f90-type-indent 3
178 :type 'integer
183 :type 'integer
186 (defcustom f90-type-indent 3
188 :type 'integer
193 :type 'integer
198 :type 'integer
203 :type 'string
208 :type 'regexp
213 :type 'regexp
218 :type 'boolean
228 :type '(choice (const blink) (const no-blink) (const nil))
236 :type 'regexp
241 :type 'boolean
247 :type '(choice (const downcase-word) (const upcase-word)
253 :type 'boolean
258 :type 'hook
277 "target" "then" "type" "use" "where" "while" "write"
358 ;; Highlight definition of derived type.
359 '("\\<\\(\\(?:end[ \t]*\\)?type\\)\\>\\([^()\n]*::\\)?[ \t]*\\(\\sw+\\)"
374 logical\\|double[ \t]*precision\\|*type[ \t]*(\\sw+)\\)\
376 (1 font-lock-type-face t) (4 font-lock-variable-name-face t))
386 \\|logical\\|double[ \t]*precision\\|type[ \t]*(\\sw+)\\|none\\)[ \t]*"
387 (1 font-lock-keyword-face) (2 font-lock-type-face))
563 "select" "subroutine" "type" "where" "forall"))
581 (defconst f90-end-type-re
582 "end[ \t]*\\(type\\|interface\\|block[ \t]*data\\)\\>"
585 (defconst f90-type-def-re
586 "\\<\\(type\\)\\>\\(?:[^()\n]*::\\)?[ \t]*\\(\\sw+\\)"
587 "Regexp matching the definition of a derived type.")
608 "type" "where" ) t)
627 "program\\|interface\\|module\\|type\\|function\\|subroutine"
649 '("Types" "^[ \t0-9]*type[ \t]+\\(\\sw+\\)" 1)
748 ("`t" "type" )
776 `f90-type-indent'
777 Extra indentation within type/interface/block-data blocks (default 3).
787 Regexp determining the type of comment to be intended like code
905 (defsubst f90-get-present-comment-type ()
916 (match-string-no-properties 0))))
927 (list (match-string 3) (match-string 2))))
934 (list (match-string 3) (match-string 2))))
941 (let ((struct (match-string 3))
942 (label (match-string 2))
959 (let ((struct (match-string 3))
960 (label (match-string 2))
966 (defsubst f90-looking-at-type-like ()
967 "Return (KIND NAME) if a type/interface/block-data block starts after point.
968 NAME is non-nil only for type."
970 ((looking-at f90-type-def-re)
971 (list (match-string 1) (match-string 2)))
973 (list (match-string 1) nil))))
980 (list (match-string 1) (match-string 2)))
983 (list (match-string 1) (match-string 2)))
987 (list (match-string 1) (match-string 2)))))
988 ;; Following will match an un-named main program block; however
1000 (list (match-string 1) (match-string 3))))
1059 (looking-at f90-type-def-re)
1080 Does not check type and subprogram indentation."
1156 ((f90-looking-at-type-like)
1157 (setq icol (+ icol f90-type-indent)))
1173 ((looking-at f90-end-type-re)
1174 (setq icol (- icol f90-type-indent)))
1265 (let ((f90-smart-end (if f90-smart-end 'no-blink)) ; for final match-end
1268 start-list start-this start-type start-label end-type end-label)
1278 (f90-looking-at-type-like)
1286 (setq end-type (match-string 1)
1287 end-label (match-string 2)
1293 start-type (car start-this)
1295 (or (f90-equal-symbols start-type end-type)
1296 (error "End type `%s' does not match start type `%s'"
1297 end-type start-type))
1299 (error "End label `%s' does not match start label `%s'"
1308 (f90-match-end)))))
1322 end-list end-this end-type end-label
1323 start-this start-type start-label)
1331 (setq end-list (cons (list (match-string 1) (match-string 2))
1338 (f90-looking-at-type-like)
1342 (setq start-type (car start-this)
1349 end-type (car end-this)
1351 (or (f90-equal-symbols start-type end-type)
1352 (error "Start type `%s' does not match end type `%s'"
1353 start-type end-type))
1355 (error "Start label `%s' does not match end label `%s'"
1378 (f90-looking-at-type-like)
1419 (delete-region (point) (match-end 0))
1424 (delete-region (point) (match-end 0))
1445 (f90-match-end))
1511 ((setq struct (f90-looking-at-type-like))
1512 f90-type-indent)
1544 ((setq struct (f90-looking-at-type-like))
1545 f90-type-indent)
1556 (f90-block-match (car beg-struct) (car (cdr beg-struct))
1561 ((looking-at f90-end-type-re) f90-type-indent)
1612 (insert "\n" (f90-get-present-comment-type)))
1664 (replace-match ""))
1698 (defun f90-block-match (beg-block beg-name end-block end-name)
1700 BEG-BLOCK is the type of block as indicated at the start (e.g., do).
1702 END-BLOCK is the type of block as indicated at the end (may be nil).
1710 (catch 'no-match
1715 (message "END %s does not match %s." end-block beg-block)
1717 (throw 'no-match nil))
1728 (replace-match beg-name))
1732 (replace-match ""))))
1735 (defun f90-match-end ()
1764 (f90-looking-at-type-like)
1789 (f90-block-match beg-block beg-name end-block end-name))))))