subseq（LISP）の簡単な問題

Question

CのバックグラウンドからLISPを使い始めたばかりですが、これまでのところ楽しいですが、信じられないほどの学習曲線があります（私はemacs初心者です）。

とにかく、誰かがこれにコメントして解決策を提案することができれば、多くの助けになると思います。

(defun include-start (line) 
    (search "#include " line)) 

(defun get-include(line) 
    (let ((s (include-start line))) 
    (if (not (eq NIL s)) 
     (subseq line s (length line))))) 

(get-include "#include <stdio.h>") 

私は、実際の結果が

"#include <stdio.h>" 

任意の考えですが、最後の行は

"<stdio.h>" 

を返すことを期待しますか？

Answer 1

(defun include-start (line) 
    "returns the string position after the '#include ' directive or nil if none" 
    (let ((search-string "#include ")) 
    (when (search search-string line) 
     (length search-string)))) 

(defun get-include (line) 
    (let ((s (include-start line))) 
    (when s 
     (subseq line s)))) 

Answer 2

私はreplace-in-stringがはるかに簡単です。あなたのコードの場合

(replace-in-string "#include <stdio.h>" "#include +" "") 
    => "<stdio.h>" 

、include-start名前が示すように、試合の開始を返します。あなたは、おそらくどのinclude-endを探している(+ (include-start ....) (length ....))

Answer 3

(defun get-include (s) 
    (subseq s (mismatch "#include " s)))