remove obsolete file
Slava Pestov
parent
3f38246bff
commit
d9764b0b8e
|
|
@ -1,323 +0,0 @@
|
|||
/* :folding=explicit:collapseFolds=1: */
|
||||
|
||||
/*
|
||||
* $Id$
|
||||
*
|
||||
* Copyright (C) 2004, 2005 Slava Pestov.
|
||||
*
|
||||
* Redistribution and use in source and binary forms, with or without
|
||||
* modification, are permitted provided that the following conditions are met:
|
||||
*
|
||||
* 1. Redistributions of source code must retain the above copyright notice,
|
||||
* this list of conditions and the following disclaimer.
|
||||
*
|
||||
* 2. Redistributions in binary form must reproduce the above copyright notice,
|
||||
* this list of conditions and the following disclaimer in the documentation
|
||||
* and/or other materials provided with the distribution.
|
||||
*
|
||||
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
|
||||
* INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
|
||||
* FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
|
||||
* DEVELOPERS AND CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
|
||||
* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
|
||||
* PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
|
||||
* OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
|
||||
* WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
|
||||
* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
|
||||
* ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
||||
*/
|
||||
|
||||
package factor;
|
||||
|
||||
import factor.parser.*;
|
||||
import java.io.*;
|
||||
import java.util.*;
|
||||
|
||||
public class DefaultVocabularyLookup implements VocabularyLookup
|
||||
{
|
||||
public static final Cons DEFAULT_USE = new Cons("syntax",new Cons("scratchpad",null));
|
||||
public static final String DEFAULT_IN = "scratchpad";
|
||||
|
||||
/**
|
||||
* Maps vocabulary names to vocabularies.
|
||||
*/
|
||||
private Map vocabularies;
|
||||
|
||||
//{{{ DefaultVocabularyLookup constructor
|
||||
public DefaultVocabularyLookup()
|
||||
{
|
||||
vocabularies = new HashMap();
|
||||
|
||||
/* comments */
|
||||
FactorWord lineComment = define("syntax","!");
|
||||
lineComment.parsing = new LineComment(lineComment);
|
||||
FactorWord stackComment = define("syntax","(");
|
||||
stackComment.parsing = new StackComment(stackComment);
|
||||
FactorWord docComment = define("syntax","#!");
|
||||
docComment.parsing = new LineComment(docComment);
|
||||
|
||||
/* strings */
|
||||
FactorWord str = define("syntax","\"");
|
||||
str.parsing = new StringLiteral(str);
|
||||
FactorWord sbuf = define("syntax","SBUF\"");
|
||||
sbuf.parsing = new StringBufferLiteral(str);
|
||||
FactorWord ch = define("syntax","CHAR:");
|
||||
ch.parsing = new CharLiteral(ch);
|
||||
|
||||
/* constants */
|
||||
FactorWord t = define("syntax","t");
|
||||
t.parsing = new T(t);
|
||||
FactorWord f = define("syntax","f");
|
||||
f.parsing = new F(f);
|
||||
FactorWord complex = define("syntax","#{");
|
||||
complex.parsing = new ComplexLiteral(complex,"}#");
|
||||
|
||||
/* lists */
|
||||
FactorWord bra = define("syntax","[");
|
||||
bra.parsing = new Bra(bra);
|
||||
FactorWord ket = define("syntax","]");
|
||||
ket.parsing = new Ket(bra,ket);
|
||||
|
||||
/* conses */
|
||||
FactorWord beginCons = define("syntax","[[");
|
||||
beginCons.parsing = new BeginCons(beginCons);
|
||||
FactorWord endCons = define("syntax","]]");
|
||||
endCons.parsing = new EndCons(beginCons,endCons);
|
||||
|
||||
/* vectors */
|
||||
FactorWord beginVector = define("syntax","{");
|
||||
beginVector.parsing = new BeginVector(beginVector);
|
||||
FactorWord endVector = define("syntax","}");
|
||||
endVector.parsing = new EndVector(beginVector,endVector);
|
||||
|
||||
/* word defs */
|
||||
FactorWord def = define("syntax",":");
|
||||
def.parsing = new Def(def);
|
||||
FactorWord ine = define("syntax",";");
|
||||
ine.parsing = new Ine(ine);
|
||||
FactorWord symbol = define("syntax","SYMBOL:");
|
||||
symbol.parsing = new Definer(symbol);
|
||||
|
||||
/* reading numbers with another base */
|
||||
FactorWord bin = define("syntax","BIN:");
|
||||
bin.parsing = new Base(bin,2);
|
||||
FactorWord oct = define("syntax","OCT:");
|
||||
oct.parsing = new Base(oct,8);
|
||||
FactorWord hex = define("syntax","HEX:");
|
||||
hex.parsing = new Base(hex,16);
|
||||
|
||||
/* vocabulary parsing words */
|
||||
FactorWord noParsing = define("syntax","POSTPONE:");
|
||||
noParsing.parsing = new NoParsing(noParsing);
|
||||
FactorWord defer = define("syntax","DEFER:");
|
||||
defer.parsing = new Definer(defer);
|
||||
FactorWord in = define("syntax","IN:");
|
||||
in.parsing = new In(in);
|
||||
FactorWord use = define("syntax","USE:");
|
||||
use.parsing = new Use(use);
|
||||
FactorWord using = define("syntax","USING:");
|
||||
using.parsing = new Using(using);
|
||||
|
||||
FactorWord pushWord = define("syntax","\\");
|
||||
pushWord.parsing = new PushWord(pushWord);
|
||||
|
||||
/* OOP */
|
||||
FactorWord generic = define("syntax","GENERIC:");
|
||||
generic.parsing = new Definer(generic);
|
||||
FactorWord beginMethod = define("syntax","M:");
|
||||
beginMethod.parsing = new BeginMethod(beginMethod);
|
||||
FactorWord beginConstructor = define("syntax","C:");
|
||||
beginConstructor.parsing = new BeginConstructor(beginConstructor);
|
||||
FactorWord beginPredicate = define("syntax","PREDICATE:");
|
||||
beginPredicate.parsing = new BeginPredicate(beginPredicate);
|
||||
FactorWord beginUnion = define("syntax","UNION:");
|
||||
beginUnion.parsing = new ClassDefinition(beginUnion);
|
||||
FactorWord beginBuiltin = define("syntax","BUILTIN:");
|
||||
beginBuiltin.parsing = new ClassDefinition(beginBuiltin);
|
||||
FactorWord tuple = define("syntax","TUPLE:");
|
||||
tuple.parsing = new Tuple(tuple);
|
||||
FactorWord primitive = define("syntax","PRIMITIVE:");
|
||||
primitive.parsing = new Primitive(primitive);
|
||||
|
||||
/* Alien */
|
||||
FactorWord beginStruct = define("alien","BEGIN-STRUCT:");
|
||||
beginStruct.parsing = new BeginStruct(beginStruct);
|
||||
FactorWord endStruct = define("alien","END-STRUCT");
|
||||
endStruct.parsing = new EndStruct(beginStruct,endStruct);
|
||||
FactorWord field = define("alien","FIELD:");
|
||||
field.parsing = new Field(field);
|
||||
} //}}}
|
||||
|
||||
//{{{ getVocabulary() method
|
||||
public Map getVocabulary(String name)
|
||||
{
|
||||
return (Map)vocabularies.get(name);
|
||||
} //}}}
|
||||
|
||||
//{{{ searchVocabulary() method
|
||||
/**
|
||||
* Search in the given vocabulary for the given word.
|
||||
*/
|
||||
public FactorWord searchVocabulary(String vname, String name)
|
||||
{
|
||||
Map v = getVocabulary(vname);
|
||||
if(v != null)
|
||||
return (FactorWord)v.get(name);
|
||||
else
|
||||
return null;
|
||||
} //}}}
|
||||
|
||||
//{{{ searchVocabulary() method
|
||||
/**
|
||||
* Search through the given vocabulary list for the given word.
|
||||
*/
|
||||
public FactorWord searchVocabulary(Cons vocabulary, String name)
|
||||
{
|
||||
while(vocabulary != null)
|
||||
{
|
||||
FactorWord word = searchVocabulary(
|
||||
(String)vocabulary.car,name);
|
||||
if(word != null)
|
||||
return word;
|
||||
|
||||
vocabulary = vocabulary.next();
|
||||
}
|
||||
|
||||
return null;
|
||||
} //}}}
|
||||
|
||||
//{{{ define() method
|
||||
/**
|
||||
* Define a word in the given vocabulary if it doesn't exist already.
|
||||
*/
|
||||
public FactorWord define(String vocabulary, String name)
|
||||
{
|
||||
Map v = getVocabulary(vocabulary);
|
||||
if(v == null)
|
||||
{
|
||||
v = new HashMap();
|
||||
vocabularies.put(vocabulary,v);
|
||||
}
|
||||
Object value = v.get(name);
|
||||
if(value instanceof FactorWord)
|
||||
return (FactorWord)value;
|
||||
else
|
||||
{
|
||||
// save to same workspace as vocabulary,
|
||||
// or no workspace if vocabulary is builtins
|
||||
FactorWord word = new FactorWord(this,vocabulary,name);
|
||||
v.put(name,word);
|
||||
return word;
|
||||
}
|
||||
} //}}}
|
||||
|
||||
//{{{ forget() method
|
||||
public void forget(FactorWord word)
|
||||
{
|
||||
Map vocab = (Map)vocabularies.get(word.vocabulary);
|
||||
if(vocab != null)
|
||||
vocab.remove(word.name);
|
||||
} //}}}
|
||||
|
||||
//{{{ getVocabularies() method
|
||||
public Cons getVocabularies()
|
||||
{
|
||||
Cons vocabs = null;
|
||||
Iterator iter = vocabularies.keySet().iterator();
|
||||
while(iter.hasNext())
|
||||
vocabs = new Cons(iter.next(),vocabs);
|
||||
return vocabs;
|
||||
} //}}}
|
||||
|
||||
//{{{ getWordCompletions() method
|
||||
/**
|
||||
* @param use A list of vocabularies.
|
||||
* @param word A substring of the word name to complete
|
||||
* @param anywhere If true, matches anywhere in the word name are
|
||||
* returned; otherwise, only matches from beginning.
|
||||
* @param completions Set to add completions to
|
||||
*/
|
||||
public void getWordCompletions(Cons use, String word, boolean anywhere,
|
||||
Set completions) throws Exception
|
||||
{
|
||||
while(use != null)
|
||||
{
|
||||
String vocab = (String)use.car;
|
||||
getWordCompletions(vocab,word,anywhere,completions);
|
||||
use = use.next();
|
||||
}
|
||||
} //}}}
|
||||
|
||||
//{{{ isCompletion() method
|
||||
public boolean isCompletion(String match, String against, boolean anywhere)
|
||||
{
|
||||
if(anywhere)
|
||||
{
|
||||
if(against.indexOf(match) != -1)
|
||||
return true;
|
||||
}
|
||||
else
|
||||
{
|
||||
if(against.startsWith(match))
|
||||
return true;
|
||||
}
|
||||
|
||||
return false;
|
||||
} //}}}
|
||||
|
||||
//{{{ getWordCompletions() method
|
||||
public void getWordCompletions(String vocab, String word, boolean anywhere,
|
||||
Set completions) throws Exception
|
||||
{
|
||||
Map v = (Map)vocabularies.get(vocab);
|
||||
if(v == null)
|
||||
return;
|
||||
|
||||
Iterator words = v.values().iterator();
|
||||
|
||||
while(words.hasNext())
|
||||
{
|
||||
FactorWord w = (FactorWord)words.next();
|
||||
if(w != null && w.name != null)
|
||||
{
|
||||
if(!completions.contains(w))
|
||||
{
|
||||
if(isCompletion(word,w.name,anywhere))
|
||||
completions.add(w);
|
||||
}
|
||||
}
|
||||
}
|
||||
} //}}}
|
||||
|
||||
//{{{ getVocabCompletions() method
|
||||
/**
|
||||
* @param vocab A string to complete
|
||||
* @param anywhere If true, matches anywhere in the vocab name are
|
||||
* returned; otherwise, only matches from beginning.
|
||||
*/
|
||||
public String[] getVocabCompletions(String vocab, boolean anywhere)
|
||||
throws Exception
|
||||
{
|
||||
List completions = new ArrayList();
|
||||
Cons vocabs = getVocabularies();
|
||||
while(vocabs != null)
|
||||
{
|
||||
String v = (String)vocabs.car;
|
||||
if(isCompletion(vocab,v,anywhere))
|
||||
completions.add(v);
|
||||
vocabs = vocabs.next();
|
||||
}
|
||||
|
||||
return (String[])completions.toArray(new String[completions.size()]);
|
||||
} //}}}
|
||||
|
||||
//{{{ parseObject() method
|
||||
public Cons parseObject(String source) throws Exception
|
||||
{
|
||||
FactorReader parser = new FactorReader(
|
||||
"parseObject()",
|
||||
new BufferedReader(new StringReader(source)),
|
||||
true,this);
|
||||
return parser.parse();
|
||||
} //}}}
|
||||
}
|
||||
Loading…
Reference in New Issue