/*
* Copyright (c) 2013 Patrick Scheibe
* Permission is hereby granted, free of charge, to any person obtaining a copy
* of this software and associated documentation files (the "Software"), to deal
* in the Software without restriction, including without limitation the rights
* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
* copies of the Software, and to permit persons to whom the Software is
* furnished to do so, subject to the following conditions:
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
* THE SOFTWARE.
*/
package de.halirutan.mathematica.parsing.psi.util;
import com.google.common.collect.Lists;
import com.google.common.collect.Sets;
import com.intellij.psi.PsiElement;
import de.halirutan.mathematica.parsing.psi.MathematicaVisitor;
import de.halirutan.mathematica.parsing.psi.api.FunctionCall;
import de.halirutan.mathematica.parsing.psi.api.Group;
import de.halirutan.mathematica.parsing.psi.api.Symbol;
import de.halirutan.mathematica.parsing.psi.api.assignment.SetDelayed;
import de.halirutan.mathematica.parsing.psi.api.assignment.TagSet;
import de.halirutan.mathematica.parsing.psi.api.assignment.TagSetDelayed;
import de.halirutan.mathematica.parsing.psi.api.pattern.*;
import de.halirutan.mathematica.parsing.psi.api.rules.RuleDelayed;
import java.util.LinkedHashSet;
import java.util.List;
import java.util.Set;
/**
* @author patrick (10/10/13)
*/
public class MathematicaPatternVisitor extends MathematicaVisitor {
private final Set<Symbol> myPatternSymbols = Sets.newHashSet();
private final LinkedHashSet<Symbol> myUnboundSymbols = Sets.newLinkedHashSet();
private final List<String> myDiveInFirstChild = Lists.newArrayList("Longest", "Shortest", "Repeated", "Optional", "PatternTest", "Condition");
private final List<String> myDoNotDiveIn = Lists.newArrayList("Verbatim");
private Assignment myAssignmentType = Assignment.NONE_;
public Set<Symbol> getPatternSymbols() {
return myPatternSymbols;
}
public Assignment getAssignmentType() {
return myAssignmentType;
}
public Set<Symbol> getUnboundSymbols() {
return myUnboundSymbols;
}
@Override
public void visitBlank(Blank blank) {
if (blank.getFirstChild() instanceof Symbol) {
myPatternSymbols.add((Symbol) blank.getFirstChild());
}
}
@Override
public void visitBlankSequence(BlankSequence blankSequence) {
if (blankSequence.getFirstChild() instanceof Symbol) {
myPatternSymbols.add((Symbol) blankSequence.getFirstChild());
}
}
@Override
public void visitBlankNullSequence(BlankNullSequence blankNullSequence) {
if (blankNullSequence.getFirstChild() instanceof Symbol) {
myPatternSymbols.add((Symbol) blankNullSequence.getFirstChild());
}
}
@Override
public void visitOptional(Optional optional) {
PsiElement firstChild = optional.getFirstChild();
if (firstChild != null) {
firstChild.accept(this);
}
}
@Override
public void visitCondition(Condition condition) {
PsiElement firstChild = condition.getFirstChild();
if (firstChild != null) {
firstChild.accept(this);
}
}
@Override
public void visitPattern(Pattern pattern) {
PsiElement firstChild = pattern.getFirstChild();
if (firstChild instanceof Symbol) {
myPatternSymbols.add((Symbol) firstChild);
}
pattern.getLastChild().accept(this);
}
@Override
public void visitFunctionCall(FunctionCall functionCall) {
final PsiElement head = functionCall.getFirstChild();
if (head instanceof Symbol) {
myUnboundSymbols.add((Symbol) head);
final String functionName = ((Symbol) head).getSymbolName();
if (myDiveInFirstChild.contains(functionName)) {
List<PsiElement> args = MathematicaPsiUtilities.getArguments(functionCall);
if (args.size() > 0) {
args.get(0).accept(this);
}
} else if (!myDoNotDiveIn.contains(functionName)) {
functionCall.acceptChildren(this);
}
} else {
functionCall.acceptChildren(this);
}
}
@Override
public void visitGroup(Group group) {
group.acceptChildren(this);
}
@Override
public void visitList(de.halirutan.mathematica.parsing.psi.api.lists.List list) {
list.acceptChildren(this);
}
@Override
public void visitSetDelayed(SetDelayed setDelayed) {
final PsiElement lhs = setDelayed.getFirstChild();
myAssignmentType = Assignment.SET_DELAYED_;
lhs.accept(this);
}
@Override
public void visitSet(de.halirutan.mathematica.parsing.psi.api.assignment.Set set) {
final PsiElement lhs = set.getFirstChild();
myAssignmentType = Assignment.SET_;
lhs.accept(this);
}
@Override
public void visitTagSet(TagSet tagSet) {
myAssignmentType = Assignment.TAG_SET_;
final PsiElement firstChild = tagSet.getFirstChild();
if (firstChild == null) {
return;
} else {
if (firstChild instanceof Symbol) {
myUnboundSymbols.add((Symbol) firstChild);
}
}
final PsiElement operator = MathematicaPsiUtilities.getNextSiblingSkippingWhitespace(firstChild);
if (operator == null) {
return;
}
final PsiElement pattern = MathematicaPsiUtilities.getNextSiblingSkippingWhitespace(operator);
if (pattern != null) {
pattern.accept(this);
}
}
@Override
public void visitSymbol(final Symbol symbol) {
myUnboundSymbols.add(symbol);
}
@Override
public void visitTagSetDelayed(TagSetDelayed tagSetDelayed) {
myAssignmentType = Assignment.TAG_SET_DELAYED_;
final PsiElement firstChild = tagSetDelayed.getFirstChild();
if (firstChild == null) {
return;
} else {
if (firstChild instanceof Symbol) {
myUnboundSymbols.add((Symbol) firstChild);
}
}
final PsiElement operator = MathematicaPsiUtilities.getNextSiblingSkippingWhitespace(firstChild);
if (operator == null) {
return;
}
final PsiElement pattern = MathematicaPsiUtilities.getNextSiblingSkippingWhitespace(operator);
if (pattern != null) {
pattern.accept(this);
}
}
@Override
public void visitRuleDelayed(RuleDelayed ruleDelayed) {
final PsiElement lhs = ruleDelayed.getFirstChild();
myAssignmentType = Assignment.NONE_;
lhs.accept(this);
}
@Override
public void visitElement(PsiElement element) {
element.acceptChildren(this);
}
public enum Assignment {SET_, SET_DELAYED_, TAG_SET_, TAG_SET_DELAYED_, NONE_}
}