Browse Source

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

git-svn-id: trunk@24089 -
marco 12 years ago
parent
commit
ad455d05b1
1 changed files with 2 additions and 0 deletions
  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