浏览代码

* throw warning when there is a space in the XCT imported link.

git-svn-id: trunk@24089 -
marco 12 年之前
父节点
当前提交
ad455d05b1
共有 1 个文件被更改,包括 2 次插入0 次删除
  1. 2 0
      utils/fpdoc/dglobals.pp

+ 2 - 0
utils/fpdoc/dglobals.pp

@@ -692,6 +692,8 @@ var
         Inc(i);
       NewNode := TLinkNode.Create(Copy(s, ThisSpaces + 1, i - ThisSpaces - 1),
         ALinkPrefix + Copy(s, i + 1, Length(s)));
+      if pos(' ',newnode.link)>0 then
+        writeln(stderr,'Bad format imported node: name="',newnode.name,'" link="',newnode.link,'"');
       if Assigned(PrevSibling) then
         PrevSibling.FNextSibling := NewNode
       else