k)(}fi=h_JQe]n`̡Q ƇY̞+qUXnrhAwѡ#gW".6BC6 yn ܀q9Jb:E=>zp0R+m2B0g;/66+0yO/AA &m\+[uW\ ɿK^ҁZ-a#%Wu4 f"y+rÇZkP0pb~jӳ>~vE qU_WDUxчP]nd JUI~_U;C z@ŧGW0-qw֒J_էJ>ŷ b`g=zxvm$+ xS]@sy iE)Ai|\gz p~/AA &m/AA &m<)^ 6L(TliO" gגk2t = *R,4O/AA &m/AA &mSzܤ'Syg#ov[H ~- L9B'cђWõwRXRHLZZ^\5b;h?4)0eC-{8zG*\VǠn_CwU`JeCO_sW#!cd\jn|3+*Onvnfs_Z 6Ҩ_4SC@}x5rhqdqOM:WX$OjM?sN\59(\t \4X?wdEr,GP/`\~aZ]mgH3F(xO4'4q!FLAWi'Z{E)7mf׼xWILMI%L\}?/AA &mz?<7l槭x _B`3o)Pla h7p&8p,V7m .(z] X 8Ii3yZU' 68x% CW|Γp" ȠԍFnB&Խ/N$sz֋ncEqi1 yEv+k@/9S'ic x  4çs2*:/AA &m2LǦ*%; 8(~`ňu/wDx Ψj "T J 38o&z]y xa[L O'YݢsR b)B3~4}Nm r2[L;h?|g 4n;'kZ{ZKH{ 0 QN{N@U2IKS=A\N;Kpؼ]/qdx@xam$ E4̵uW%O`0dz 0A|WqGMZٚ4rf(g:ݵ؝:4S@3ϲE ~LTd\F`kpmWˎA6sY铮[\),a20&"  TznGD"( ǒĎ/>,z{peۢ|[DU[rO07 T&L6yEd D^HasP!wS~ cmJdpN{|w%d &!kX_p,ZU~-ӷh捰6/ n\` ȟM{/~Nsg }yo#kؽ2~:r'/ °< j*@Rș ?Sc٧l!jm^44N5S/nW(k-dl5l#*l3{y̜j~Y d_TtJc}a8宠aLc_zћ?:/9 .#V?[Or}gŷUcn |1BY2K38ẺbR2 C#f9qQ;j_ 14tbshΣԯzn߄ڭQ~FX:bLG4^&NwSOaj`o$K6+_O0(q^kZ]Dk?H%MKNaU2j7@Zj+#U<"oAk\;];;6xRLR4?ձܨ4\VѯQM^멗4w0W[b:Yj1ރ%݊0чHEtd![sS1@8cڛū FQ:2@"Fi;tring from the buffer that introduces a section. The result is a symbol representing the kind of section. This allows us to treat (for the purposes of font-lock) several different section names as the same kind of section. For example, a 'sources section can be introduced by the 'sources', 'inputs', 'outputs' keyword. 'other is the default section kind when a more specific match is not made." (cond ((string-match-p gyp-dependencies-regexp section) 'dependencies) ((string-match-p gyp-sources-regexp section) 'sources) ((string-match-p gyp-variables-regexp section) 'variables) ((string-match-p gyp-conditions-regexp section) 'conditions) ((string-match-p gyp-targets-regexp section) 'targets) ((string-match-p gyp-defines-regexp section) 'defines) (t 'other))) (defun gyp-invalidate-parse-states-after (target-point) "Erase any parse information after target-point." (while (> (caar gyp-parse-history) target-point) (setq gyp-parse-history (cdr gyp-parse-history)))) (defun gyp-parse-point () "The point of the last parse state added by gyp-parse-to." (caar gyp-parse-history)) (defun gyp-parse-sections () "A list of section symbols holding at the last parse state point." (cdar gyp-parse-history)) (defun gyp-inside-dictionary-p () "Predicate returning true if the parser is inside a dictionary." (not (eq (cadar gyp-parse-history) 'list))) (defun gyp-add-parse-history (point sections) "Add parse state SECTIONS to the parse history at POINT so that parsing can be resumed instantly." (while (>= (caar gyp-parse-history) point) (setq gyp-parse-history (cdr gyp-parse-history))) (setq gyp-parse-history (cons (cons point sections) gyp-parse-history))) (defun gyp-parse-to (target-point) "Parses from (point) to TARGET-POINT adding the parse state information to gyp-parse-state-history. Parsing stops if TARGET-POINT is reached or if a string literal has been parsed. Returns nil if no further parsing can be done, otherwise returns the position of the start of a parsed string, leaving the point at the end of the string." (let ((parsing t) string-start) (while parsing (setq string-start nil) ;; Parse up to a character that starts a sexp, or if the nesting ;; level decreases. (let ((state (parse-partial-sexp (gyp-parse-point) target-point -1 t)) (sections (gyp-parse-sections))) (if (= (nth 0 state) -1) (setq sections (cdr sections)) ; pop out a level (cond ((looking-at-p "['\"]") ; a string (setq string-start (point)) (goto-char (scan-sexps (point) 1)) (if (gyp-inside-dictionary-p) ;; Look for sections inside a dictionary (let ((section (gyp-section-name (buffer-substring-no-properties (+ 1 string-start) (- (point) 1))))) (setq sections (cons section (cdr sections))))) ;; Stop after the string so it can be fontified. (setq target-point (point))) ((looking-at-p "{") ;; Inside a dictionary. Increase nesting. (forward-char 1) (setq sections (cons 'unknown sections))) ((looking-at-p "\\[") ;; Inside a list. Increase nesting (forward-char 1) (setq sections (cons 'list sections))) ((not (eobp)) ;; other (forward-char 1)))) (gyp-add-parse-history (point) sections) (setq parsing (< (point) target-point)))) string-start)) (defun gyp-section-at-point () "Transform the last parse state, which is a list of nested sections and return the section symbol that should be used to determine font-lock information for the string. Can return nil indicating the string should not have any attached section." (let ((sections (gyp-parse-sections))) (cond ((eq (car sections) 'conditions) ;; conditions can occur in a variables section, but we still want to ;; highlight it as a keyword. nil) ((and (eq (car sections) 'list) (eq (cadr sections) 'list)) ;; conditions and sources can have items in [[ ]] (caddr sections)) (t (cadr sections))))) (defun gyp-section-match (limit) "Parse from (point) to LIMIT returning by means of match data what was matched. The group of the match indicates what style font-lock should apply. See also `gyp-add-font-lock-keywords'." (gyp-invalidate-parse-states-after (point)) (let ((group nil) (string-start t)) (while (and (< (point) limit) (not group) string-start) (setq string-start (gyp-parse-to limit)) (if string-start (setq group (cl-case (gyp-section-at-point) ('dependencies 1) ('variables 2) ('conditions 2) ('sources 3) ('defines 4) (nil nil))))) (if group (progn ;; Set the match data to indicate to the font-lock mechanism the ;; highlighting to be performed. (set-match-data (append (list string-start (point)) (make-list (* (1- group) 2) nil) (list (1+ string-start) (1- (point))))) t)))) ;;; Please see http://code.google.com/p/gyp/wiki/GypLanguageSpecification for ;;; canonical list of keywords. (defun gyp-add-font-lock-keywords () "Add gyp-mode keywords to font-lock mechanism." ;; TODO(jknotten): Move all the keyword highlighting into gyp-section-match ;; so that we can do the font-locking in a single font-lock pass. (font-lock-add-keywords nil (list ;; Top-level keywords (list (concat "['\"]\\(" (regexp-opt (list "action" "action_name" "actions" "cflags" "cflags_cc" "conditions" "configurations" "copies" "defines" "dependencies" "destination" "direct_dependent_settings" "export_dependent_settings" "extension" "files" "include_dirs" "includes" "inputs" "ldflags" "libraries" "link_settings" "mac_bundle" "message" "msvs_external_rule" "outputs" "product_name" "process_outputs_as_sources" "rules" "rule_name" "sources" "suppress_wildcard" "target_conditions" "target_defaults" "target_defines" "target_name" "toolsets" "targets" "type" "variables" "xcode_settings")) "[!/+=]?\\)") 1 'font-lock-keyword-face t) ;; Type of target (list (concat "['\"]\\(" (regexp-opt (list "loadable_module" "static_library" "shared_library" "executable" "none")) "\\)") 1 'font-lock-type-face t) (list "\\(?:target\\|action\\)_name['\"]\\s-*:\\s-*['\"]\\([^ '\"]*\\)" 1 'font-lock-function-name-face t) (list 'gyp-section-match (list 1 'font-lock-function-name-face t t) ; dependencies (list 2 'font-lock-variable-name-face t t) ; variables, conditions (list 3 'font-lock-constant-face t t) ; sources (list 4 'font-lock-preprocessor-face t t)) ; preprocessor ;; Variable expansion (list "<@?(\\([^\n )]+\\))" 1 'font-lock-variable-name-face t) ;; Command expansion (list "