Lines Matching refs:var
114 (defvar gdb-var-list nil
191 ;; var = (struct struct_tag) value
196 ;; var = (type) value
200 ;; var = val
208 ;; var = type value
449 (let* ((var (nth (- (line-number-at-pos (point)) 2) gdb-var-list))
450 (varnum (car var)) expr array)
451 (string-match "\\(var[0-9]+\\)\\.\\(.*\\)" varnum)
452 (let ((var1 (assoc (match-string 1 varnum) gdb-var-list)) var2 varnumlet
457 (setq var2 (assoc varnumlet gdb-var-list))
542 gdb-var-list nil
708 "server interpreter mi \"-var-create - * " expr "\"\n")
709 (concat"-var-create - * " expr "\n"))
710 `(lambda () (gdb-var-create-handler ,expr)))))))
713 (defconst gdb-var-create-regexp
716 (defun gdb-var-create-handler (expr)
718 (if (re-search-forward gdb-var-create-regexp nil t)
719 (let ((var (list
729 (push var gdb-var-list)
733 (unless (nth 4 var)
738 (concat "server interpreter mi \"0-var-evaluate-expression "
739 (car var) "\"\n")
740 (concat "0-var-evaluate-expression " (car var) "\n"))
741 `(lambda () (gdb-var-evaluate-expression-handler
742 ,(car var) nil))))))
760 (defun gdb-var-evaluate-expression-handler (varnum changed)
765 (let ((var (assoc varnum gdb-var-list)))
766 (when var
767 (if changed (setcar (nthcdr 5 var) 'changed))
768 (setcar (nthcdr 4 var) (read (match-string 2)))))
771 (defun gdb-var-list-children (varnum)
773 (list (concat "server interpreter mi \"-var-list-children " varnum "\"\n")
774 `(lambda () (gdb-var-list-children-handler ,varnum)))))
776 (defconst gdb-var-list-children-regexp
780 (defun gdb-var-list-children-handler (varnum)
782 (let ((var-list nil))
784 (dolist (var gdb-var-list)
785 (if (string-equal varnum (car var))
787 (push var var-list)
788 (while (re-search-forward gdb-var-list-children-regexp nil t)
794 (if (assoc (car varchild) gdb-var-list)
796 (push varchild var-list)
800 "server interpreter mi \"0-var-evaluate-expression "
802 `(lambda () (gdb-var-evaluate-expression-handler
804 (push var var-list)))
805 (setq gdb-var-list (nreverse var-list)))))
807 (defun gdb-var-update ()
808 (when (not (member 'gdb-var-update gdb-pending-triggers))
810 (list "server interpreter mi \"-var-update *\"\n"
811 'gdb-var-update-handler))
812 (push 'gdb-var-update gdb-pending-triggers)))
814 (defconst gdb-var-update-regexp
818 (defun gdb-var-update-handler ()
819 (dolist (var gdb-var-list)
820 (setcar (nthcdr 5 var) nil))
823 (while (re-search-forward gdb-var-update-regexp nil t)
826 (let ((var (assoc varnum gdb-var-list)))
827 (if var (setcar (nthcdr 5 var) 'out-of-scope)))
833 "-var-evaluate-expression " varnum "\"\n")
834 `(lambda () (gdb-var-evaluate-expression-handler ,varnum t))))))))
836 (delq 'gdb-var-update gdb-pending-triggers)))
838 (defun gdb-var-delete-1 (varnum)
843 (concat "server interpreter mi \"-var-delete " varnum "\"\n")
844 (concat "-var-delete " varnum "\n"))
846 (setq gdb-var-list (delq var gdb-var-list))
847 (dolist (varchild gdb-var-list)
848 (if (string-match (concat (car var) "\\.") (car varchild))
849 (setq gdb-var-list (delq varchild gdb-var-list)))))
851 (defun gdb-var-delete ()
856 (let* ((var (nth (- (count-lines (point-min) (point)) 2) gdb-var-list))
857 (varnum (car var)))
858 (if (string-match "\\." (car var))
860 (gdb-var-delete-1 varnum)))))
862 (defun gdb-var-delete-children (varnum)
867 (concat "server interpreter mi \"-var-delete -c " varnum "\"\n")
868 (concat "-var-delete -c " varnum "\n")) 'ignore)))
872 (let* ((var (nth (- (count-lines (point-min) (point)) 2) gdb-var-list))
873 (varnum (car var)) (value))
878 (concat "server interpreter mi \"-var-assign "
880 (concat "-var-assign " varnum " " value "\n"))
910 (let* ((var (assoc token gdb-var-list))
911 (expr (nth 1 var)) (children (nth 2 var)))
919 (gdb-var-list-children token)
920 (gdb-var-list-children-1 token)))))
922 (dolist (var gdb-var-list)
923 (if (string-match (concat token "\\.") (car var))
924 (setq gdb-var-list (delq var gdb-var-list))))
925 (gdb-var-delete-children token)
1469 (gdb-var-update)
1470 (gdb-var-update-1)))))
2990 (setq gdb-var-list nil)
3389 ; Uses "-var-list-children --all-values". Needs GDB 6.1 onwards.
3390 (defun gdb-var-list-children-1 (varnum)
3394 (concat "server interpreter mi \"-var-list-children --all-values "
3396 (concat "-var-list-children --all-values " varnum "\n"))
3397 `(lambda () (gdb-var-list-children-handler-1 ,varnum)))))
3399 (defconst gdb-var-list-children-regexp-1
3404 (defun gdb-var-list-children-handler-1 (varnum)
3406 (let ((var-list nil))
3408 (dolist (var gdb-var-list)
3409 (if (string-equal varnum (car var))
3411 (push var var-list)
3412 (while (re-search-forward gdb-var-list-children-regexp-1 nil t)
3419 (if (assoc (car varchild) gdb-var-list)
3421 (push varchild var-list))))
3422 (push var var-list)))
3423 (setq gdb-var-list (nreverse var-list))))
3426 ; Uses "-var-update --all-values". Needs GDB 6.4 onwards.
3427 (defun gdb-var-update-1 ()
3428 (if (not (member 'gdb-var-update gdb-pending-triggers))
3433 "server interpreter mi \"-var-update --all-values *\"\n"
3434 "-var-update --all-values *\n")
3435 'gdb-var-update-handler-1))
3436 (push 'gdb-var-update gdb-pending-triggers))))
3438 (defconst gdb-var-update-regexp-1
3442 (defun gdb-var-update-handler-1 ()
3443 (dolist (var gdb-var-list)
3444 (setcar (nthcdr 5 var) nil))
3446 (while (re-search-forward gdb-var-update-regexp-1 nil t)
3448 (var (assoc varnum gdb-var-list)))
3449 (when var
3452 (setcar (nthcdr 5 var) 'out-of-scope))
3454 (setcar (nthcdr 5 var) 'changed)
3455 (setcar (nthcdr 4 var)
3458 (gdb-var-delete-1 varnum)))))))
3460 (delq 'gdb-var-update gdb-pending-triggers))
3597 (let* ((var (current-word))
3598 (value (read-string (format "New value (%s): " var))))
3600 (list (concat gdb-server-prefix"set variable " var " = " value "\n")