// // FilterPascal.cs // // Copyright (C) 2004 Novell, Inc. // // // 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. // using System; using System.Collections; using System.IO; using System.Text; using Beagle.Daemon; namespace Beagle.Filters { public class FilterPascal : FilterSource { static string [] strKeyWords = { "and", "end", "library", "shl", "array", "exports", "mod", "shr", "asm", "file", "nil", "string", "begin", "for", "not", "then", "case", "function", "object", "to", "const", "goto", "of", "type", "constructor", "if", "or", "unit", "declare", "implementation", "packed", "until", "destructor", "in", "procedure", "uses", "div", "inherited", "program", "var", "do", "inline", "record", "while", "downto", "interface", "repeat", "with", "else", "label", "set", "xor" }; public FilterPascal () { AddSupportedFlavor (FilterFlavor.NewFromMimeType ("text/x-pascal")); } override protected void DoOpen (FileInfo info) { foreach (string keyword in strKeyWords) KeyWordsHash [keyword] = true; SrcLangType = LangType.Pascal_Style; } override protected void DoPull () { string str = TextReader.ReadLine (); if (str == null) Finished (); else ExtractTokens (str); } } }