letoh / quail-cin Goto Github PK

#+begin_src emacs-lisp
(load-file "~/lisp/quail-cin/quail-cin.el")
(quail-cin-load-file "~/lisp/quail-cin/test.cin" t)
#+end_src

-------------------------- * Backtrace buffer start * --------------------------------
Debugger entered--Lisp error: (wrong-type-argument arrayp nil)
  replace-regexp-in-string("\"" "#-#\\\"" nil t t)
  (replace-regexp-in-string "\\\\" (regexp-quote (regexp-quote "\\\\")) (replace-regexp-in-string "\"" "#-#\\\"" val t t))
  (replace-regexp-in-string ";" (regexp-quote (regexp-quote "\\;")) (replace-regexp-in-string "\\\\" (regexp-quote (regexp-quote "\\\\")) (replace-regexp-in-string "\"" "#-#\\\"" val t t)))
  cin-safe-quote(nil)
  (format templ (cin-safe-quote-key key) (cin-safe-quote val))
  (replace-match (format templ (cin-safe-quote-key key) (cin-safe-quote val)))
  (cond ((string= val "begin") (replace-match "(quail-define-rules")) ((string= val "end") (replace-match ")\n")) (t (replace-match (format templ (cin-safe-quote-key key) (cin-safe-quote val)))))
  (cond ((eq section '%keyname) (cond ((string= val "begin") (replace-match (cin-attrs-to-header attrs))) ((string= val "end") (replace-match (cin-attrs-to-footer attrs))) (t (replace-match (format "  (%d . \"%s\")" (get-byte 0 key) val))))) ((eq section '%chardef) (cond ((string= val "begin") (replace-match "(quail-define-rules")) ((string= val "end") (replace-match ")\n")) (t (replace-match (format templ (cin-safe-quote-key key) (cin-safe-quote val)))))) (t (progn (let* ((x (cons (intern key) val))) (if (member x attrs) attrs (setq attrs (cons x attrs)))) (replace-match ""))))
  (let ((key (match-string 1)) (val (match-string 2))) (if (string-match-p "^%[^%]" key) (progn (cond ((string= val "begin") (progn (setq section (intern key)) (message "converting %s ..." key)))))) (cond ((eq section '%keyname) (cond ((string= val "begin") (replace-match (cin-attrs-to-header attrs))) ((string= val "end") (replace-match (cin-attrs-to-footer attrs))) (t (replace-match (format "  (%d . \"%s\")" (get-byte 0 key) val))))) ((eq section '%chardef) (cond ((string= val "begin") (replace-match "(quail-define-rules")) ((string= val "end") (replace-match ")\n")) (t (replace-match (format templ (cin-safe-quote-key key) (cin-safe-quote val)))))) (t (progn (let* ((x (cons ... val))) (if (member x attrs) attrs (setq attrs (cons x attrs)))) (replace-match "")))) (if (string-match-p "^%[^%]" key) (progn (cond ((string= val "end") (progn (setq section nil) (message "parsing %s ..." cin-file-name)))))))
  (while (re-search-forward "[ \11]*\\([^ \n\11]+\\)[ \11]*\\([^\11\n]+\\)?" nil "noerror") (let ((key (match-string 1)) (val (match-string 2))) (if (string-match-p "^%[^%]" key) (progn (cond ((string= val "begin") (progn (setq section ...) (message "converting %s ..." key)))))) (cond ((eq section '%keyname) (cond ((string= val "begin") (replace-match (cin-attrs-to-header attrs))) ((string= val "end") (replace-match (cin-attrs-to-footer attrs))) (t (replace-match (format "  (%d . \"%s\")" ... val))))) ((eq section '%chardef) (cond ((string= val "begin") (replace-match "(quail-define-rules")) ((string= val "end") (replace-match ")\n")) (t (replace-match (format templ ... ...))))) (t (progn (let* ((x ...)) (if (member x attrs) attrs (setq attrs ...))) (replace-match "")))) (if (string-match-p "^%[^%]" key) (progn (cond ((string= val "end") (progn (setq section nil) (message "parsing %s ..." cin-file-name))))))))
  (let ((templ (if phrase "  (\"%s\" [\"%s\"])" "  (\"%s\" \"%s\")")) (attrs (list (cons (intern "%%pkgname") pkg-name) (cons (intern "%%prompt") prompt))) section) (message "parsing %s ..." cin-file-name) (while (re-search-forward "[ \11]*\\([^ \n\11]+\\)[ \11]*\\([^\11\n]+\\)?" nil "noerror") (let ((key (match-string 1)) (val (match-string 2))) (if (string-match-p "^%[^%]" key) (progn (cond ((string= val "begin") (progn ... ...))))) (cond ((eq section '%keyname) (cond ((string= val "begin") (replace-match ...)) ((string= val "end") (replace-match ...)) (t (replace-match ...)))) ((eq section '%chardef) (cond ((string= val "begin") (replace-match "(quail-define-rules")) ((string= val "end") (replace-match ")\n")) (t (replace-match ...)))) (t (progn (let* (...) (if ... attrs ...)) (replace-match "")))) (if (string-match-p "^%[^%]" key) (progn (cond ((string= val "end") (progn ... ...))))))) (goto-char (point-min)) (replace-string "#-#\\" "") (goto-char (point-max)) (insert (format "(provide '%s)\n\n" (cin-attrs-get-pkgname attrs))) (message "parsing %s finished, quail package name is `%s'" cin-file-name (cin-attrs-get-pkgname attrs)) (if action (progn (funcall action))))
  (progn (insert-file-contents cin-file-name) (goto-char (point-min)) (save-excursion (if (and (re-search-forward "%chardef[ \11]*begin" nil "noerror") (not (re-search-forward "%chardef[ \11]*end" nil "noerror"))) (progn (goto-char (point-max)) (insert "%chardef end\n")))) (save-excursion (delete-trailing-whitespace)) (if (string= "" pkg-name) (progn (setq pkg-name nil))) (if (string= "" prompt) (progn (setq prompt nil))) (let ((templ (if phrase "  (\"%s\" [\"%s\"])" "  (\"%s\" \"%s\")")) (attrs (list (cons (intern "%%pkgname") pkg-name) (cons (intern "%%prompt") prompt))) section) (message "parsing %s ..." cin-file-name) (while (re-search-forward "[ \11]*\\([^ \n\11]+\\)[ \11]*\\([^\11\n]+\\)?" nil "noerror") (let ((key (match-string 1)) (val (match-string 2))) (if (string-match-p "^%[^%]" key) (progn (cond (... ...)))) (cond ((eq section '%keyname) (cond (... ...) (... ...) (t ...))) ((eq section '%chardef) (cond (... ...) (... ...) (t ...))) (t (progn (let* ... ...) (replace-match "")))) (if (string-match-p "^%[^%]" key) (progn (cond (... ...)))))) (goto-char (point-min)) (replace-string "#-#\\" "") (goto-char (point-max)) (insert (format "(provide '%s)\n\n" (cin-attrs-get-pkgname attrs))) (message "parsing %s finished, quail package name is `%s'" cin-file-name (cin-attrs-get-pkgname attrs)) (if action (progn (funcall action)))))
  (unwind-protect (progn (insert-file-contents cin-file-name) (goto-char (point-min)) (save-excursion (if (and (re-search-forward "%chardef[ \11]*begin" nil "noerror") (not (re-search-forward "%chardef[ \11]*end" nil "noerror"))) (progn (goto-char (point-max)) (insert "%chardef end\n")))) (save-excursion (delete-trailing-whitespace)) (if (string= "" pkg-name) (progn (setq pkg-name nil))) (if (string= "" prompt) (progn (setq prompt nil))) (let ((templ (if phrase "  (\"%s\" [\"%s\"])" "  (\"%s\" \"%s\")")) (attrs (list (cons (intern "%%pkgname") pkg-name) (cons (intern "%%prompt") prompt))) section) (message "parsing %s ..." cin-file-name) (while (re-search-forward "[ \11]*\\([^ \n\11]+\\)[ \11]*\\([^\11\n]+\\)?" nil "noerror") (let ((key (match-string 1)) (val (match-string 2))) (if (string-match-p "^%[^%]" key) (progn (cond ...))) (cond ((eq section ...) (cond ... ... ...)) ((eq section ...) (cond ... ... ...)) (t (progn ... ...))) (if (string-match-p "^%[^%]" key) (progn (cond ...))))) (goto-char (point-min)) (replace-string "#-#\\" "") (goto-char (point-max)) (insert (format "(provide '%s)\n\n" (cin-attrs-get-pkgname attrs))) (message "parsing %s finished, quail package name is `%s'" cin-file-name (cin-attrs-get-pkgname attrs)) (if action (progn (funcall action))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
  (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents cin-file-name) (goto-char (point-min)) (save-excursion (if (and (re-search-forward "%chardef[ \11]*begin" nil "noerror") (not (re-search-forward "%chardef[ \11]*end" nil "noerror"))) (progn (goto-char (point-max)) (insert "%chardef end\n")))) (save-excursion (delete-trailing-whitespace)) (if (string= "" pkg-name) (progn (setq pkg-name nil))) (if (string= "" prompt) (progn (setq prompt nil))) (let ((templ (if phrase "  (\"%s\" [\"%s\"])" "  (\"%s\" \"%s\")")) (attrs (list (cons ... pkg-name) (cons ... prompt))) section) (message "parsing %s ..." cin-file-name) (while (re-search-forward "[ \11]*\\([^ \n\11]+\\)[ \11]*\\([^\11\n]+\\)?" nil "noerror") (let ((key ...) (val ...)) (if (string-match-p "^%[^%]" key) (progn ...)) (cond (... ...) (... ...) (t ...)) (if (string-match-p "^%[^%]" key) (progn ...)))) (goto-char (point-min)) (replace-string "#-#\\" "") (goto-char (point-max)) (insert (format "(provide '%s)\n\n" (cin-attrs-get-pkgname attrs))) (message "parsing %s finished, quail package name is `%s'" cin-file-name (cin-attrs-get-pkgname attrs)) (if action (progn (funcall action))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))
  (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents cin-file-name) (goto-char (point-min)) (save-excursion (if (and (re-search-forward "%chardef[ \11]*begin" nil "noerror") (not ...)) (progn (goto-char ...) (insert "%chardef end\n")))) (save-excursion (delete-trailing-whitespace)) (if (string= "" pkg-name) (progn (setq pkg-name nil))) (if (string= "" prompt) (progn (setq prompt nil))) (let ((templ (if phrase "  (\"%s\" [\"%s\"])" "  (\"%s\" \"%s\")")) (attrs (list ... ...)) section) (message "parsing %s ..." cin-file-name) (while (re-search-forward "[ \11]*\\([^ \n\11]+\\)[ \11]*\\([^\11\n]+\\)?" nil "noerror") (let (... ...) (if ... ...) (cond ... ... ...) (if ... ...))) (goto-char (point-min)) (replace-string "#-#\\" "") (goto-char (point-max)) (insert (format "(provide '%s)\n\n" (cin-attrs-get-pkgname attrs))) (message "parsing %s finished, quail package name is `%s'" cin-file-name (cin-attrs-get-pkgname attrs)) (if action (progn (funcall action))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))
  (progn (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents cin-file-name) (goto-char (point-min)) (save-excursion (if (and ... ...) (progn ... ...))) (save-excursion (delete-trailing-whitespace)) (if (string= "" pkg-name) (progn (setq pkg-name nil))) (if (string= "" prompt) (progn (setq prompt nil))) (let ((templ ...) (attrs ...) section) (message "parsing %s ..." cin-file-name) (while (re-search-forward "[ \11]*\\([^ \n\11]+\\)[ \11]*\\([^\11\n]+\\)?" nil "noerror") (let ... ... ... ...)) (goto-char (point-min)) (replace-string "#-#\\" "") (goto-char (point-max)) (insert (format "(provide '%s)\n\n" ...)) (message "parsing %s finished, quail package name is `%s'" cin-file-name (cin-attrs-get-pkgname attrs)) (if action (progn ...)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))))
  (if (cin-filename-p cin-file-name) (progn (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents cin-file-name) (goto-char (point-min)) (save-excursion (if ... ...)) (save-excursion (delete-trailing-whitespace)) (if (string= "" pkg-name) (progn ...)) (if (string= "" prompt) (progn ...)) (let (... ... section) (message "parsing %s ..." cin-file-name) (while ... ...) (goto-char ...) (replace-string "#-#\\" "") (goto-char ...) (insert ...) (message "parsing %s finished, quail package name is `%s'" cin-file-name ...) (if action ...))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))))
  cin-parse-file("~/lisp/quail-cin/test.cin" t nil nil eval-buffer)
  quail-cin-load-file("~/lisp/quail-cin/test.cin" t)
  eval((quail-cin-load-file "~/lisp/quail-cin/test.cin" t) nil)
  elisp--eval-last-sexp(nil)
  eval-last-sexp(nil)
  funcall-interactively(eval-last-sexp nil)
  call-interactively(eval-last-sexp nil nil)
  command-execute(eval-last-sexp)
--------------------------------------- * Backtrace buffer end * --------------------------------