1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

(defun my/gtkwave-change-format-to-signed-decimal ()
  (interactive)
  (save-excursion
    (goto-char (point-min))  ; 从buffer的开始位置开始
    (while (re-search-forward "^[[:alpha:]].*\\[\\([0-9]+\\):\\([0-9]+\\)\\]$" nil t)
      ;; 当前行符合以字母开头并以 [x:y] 结尾的格式
      (message "line : %s" (thing-at-point 'line))

      (let* ((line-start (line-beginning-position)))
        (forward-line -1)  ; 移动到前一行
        (if (looking-at "@")
            (progn
              (kill-whole-line)  ; 删除以@开头的行
              (insert "@421\n"))  ; 插入@421
          (if (looking-at "^\\[color\\]")
              (progn
                (let* ((color-line-start (point)))
                  (forward-line -1)  ; 检查[color]行的上一行
                  (if (looking-at "@")
                      (progn
                        (kill-whole-line)  ; 如果是以@开头，则删除
                        (goto-char color-line-start))  ; 返回[color]行位置
                    (goto-char line-start)))  ; 如果不是，则返回原始匹配行
                (beginning-of-line)
                (insert "@421\n")
                (forward-line 1)
                )  ; 在原始匹配行之前插入新行
            (progn
              (forward-line 1)
              (beginning-of-line)
              (insert "@421\n"))))  ; 在原始匹配行之前插入新行
        (forward-line 1)))))  ; 继续处理下一行

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

(defun my/gtkw-reset-color ()
  " 复位gtkw 中的颜色设置 "
  (interactive)
  (my/color-gtkw-waves nil))

(defun my/gtkw-auto-set-color ()
  " 自动设备 gtkw 文件中的信号的颜色, 按顺序颜色从1 到8 交替 "
  (interactive)
  (my/color-gtkw-waves t))

(defun my/color-gtkw-waves (auto)
  (save-excursion
    ;; First pass: remove all lines starting with [color]
    (goto-char (point-min))
    (while (not (eobp))
      (if (looking-at "^\\[color\\]")
          (progn
            (message "line %d" (current-line))
            (delete-region (point) (progn (forward-line 1) (point))))
        (forward-line 1)))
    (when auto
      ;; Second pass: insert [color] x before lines starting with a letter
      (let* ((color-counter 1))
        (goto-char (point-min))
        (while (not (eobp))
          (when (looking-at "^[[:alpha:]]")
            (insert (format "[color] %d\n" color-counter))
            (setq color-counter (if (= color-counter 8) 1 (1+ color-counter))))
          (forward-line 1))))))