forks
/
D-Scanner
mirror of https://github.com/dlang-community/D-Scanner.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix bug with AST output

This commit is contained in:
Hackerpilot 2013-11-21 16:29:41 -08:00
parent c9eb658412
commit 4bac2671b4
5 changed files with 78 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
astprinter.d
View File

@ -322,7 +322,7 @@ class XMLPrinter : ASTVisitor
output.writeln("<continueStatement/>");
else
output.writeln("<continueStatement label=\"",
continueStatement.label, "\"/>");
continueStatement.label.value, "\"/>");
}
override void visit(DebugCondition debugCondition)

10
scripts/README.md Normal file
View File

@ -0,0 +1,10 @@
# Extra Scripts
Extra scripts that use DScanner to produce their output. These scripts assume a UNIX environment.
### importgraph.sh
Displays a graph of the imports of the given D files.
Requires Imagemagick and Graphviz
### uml.sh
Displays a basic class diagram of classes, structs, and interfaces in the given D file.
Requires Imagemagic, XSLTProc, and Graphviz

9
scripts/importgraph.sh Executable file
View File

@ -0,0 +1,9 @@
#!/bin/bash
output=$(echo "digraph {")
for i in "$@"; do
m=$(echo $i | sed -e "s/^\.\///" -e "s/\//\./g" -e "s/\.d$//")
output=$output$(dscanner --imports $i 2>/dev/null | sort | uniq | xargs -I{} echo "\"" $m "\"->\"" {} "\";")
done
output=$output$(echo "}")
echo $output | unflatten -l 3 -f | dot -Tpng > out.png
display out.png

3
scripts/uml.sh Executable file
View File

@ -0,0 +1,3 @@
#!/bin/bash
dscanner $1 --ast | xsltproc uml.xsl - | dot -Tpng > $(basename $1 .d).png
#dscanner $1 --ast | xsltproc uml.xsl - | dot -Tpng | display -

55
scripts/uml.xsl Normal file
View File

@ -0,0 +1,55 @@
<?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
<xsl:output indent="no" omit-xml-declaration="yes"/>
<xsl:template match="module">
digraph {
<xsl:for-each select="//interfaceDeclaration">
<xsl:value-of select="./name"/>
<xsl:value-of select="'[shape=&quot;record&quot; label=&quot;{'"/>
<xsl:value-of select="'&lt;&lt;interface&gt;&gt;\n'"/>
<xsl:value-of select="./name"/>
<xsl:call-template name="bodyHandler"/>
</xsl:for-each>
<xsl:for-each select="//structDeclaration">
<xsl:value-of select="./name"/>
<xsl:value-of select="'[shape=&quot;record&quot; label=&quot;{'"/>
<xsl:value-of select="'&lt;&lt;struct&gt;&gt;\n'"/>
<xsl:value-of select="./name"/>
<xsl:call-template name="bodyHandler"/>
</xsl:for-each>
<xsl:for-each select="//classDeclaration">
<xsl:value-of select="./name"/>
<xsl:value-of select="'[shape=&quot;record&quot; label=&quot;{'"/>
<xsl:value-of select="./name"/>
<xsl:call-template name="bodyHandler"/>
</xsl:for-each>
}
</xsl:template>
<xsl:template name="bodyHandler">
<xsl:value-of select="'|'"/>
<xsl:for-each select="./structBody/declaration/functionDeclaration">
<xsl:value-of select="name"/>
<xsl:value-of select="'('"/>
<xsl:for-each select="./parameters/parameter">
<xsl:value-of select="./name"/>
<xsl:value-of select="' : '"/>
<xsl:value-of select="./type/@pretty"/>
</xsl:for-each>
<xsl:value-of select="')'"/>
<xsl:value-of select="' : '"/>
<xsl:value-of select="./type/@pretty"/>
<xsl:value-of select="'\l'"/>
</xsl:for-each>
<xsl:value-of select="'|'"/>
<xsl:for-each select="./structBody/declaration/variableDeclaration">
<xsl:variable name="type" select="./type/@pretty"/>
<xsl:for-each select="./declarator">
<xsl:value-of select="name"/>
<xsl:value-of select="' : '"/>
<xsl:value-of select="$type"/>
<xsl:value-of select="'\l'"/>
</xsl:for-each>
</xsl:for-each>
<xsl:value-of select="'}&quot;];'"/>
</xsl:template>
</xsl:stylesheet>