Added FilterDeb from Kevin Kubasik.
[beagle.git] / Filters / FilterFortran.cs
blobb9fba0580340bca83bc1824092be2af6a0269cb9
1 //
2 // FilterFortran.cs
3 //
4 // Copyright (C) 2004 Novell, Inc.
5 //
7 //
8 // Permission is hereby granted, free of charge, to any person obtaining a
9 // copy of this software and associated documentation files (the "Software"),
10 // to deal in the Software without restriction, including without limitation
11 // the rights to use, copy, modify, merge, publish, distribute, sublicense,
12 // and/or sell copies of the Software, and to permit persons to whom the
13 // Software is furnished to do so, subject to the following conditions:
15 // The above copyright notice and this permission notice shall be included in
16 // all copies or substantial portions of the Software.
18 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
19 // IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
20 // FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
21 // AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
22 // LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
23 // FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
24 // DEALINGS IN THE SOFTWARE.
27 using System;
28 using System.Collections;
29 using System.IO;
30 using System.Text;
32 using Beagle.Daemon;
34 namespace Beagle.Filters {
36 public class FilterFortran : FilterSource {
38 static string [] strKeyWords = { "call", "character", "continue",
39 "data", "dimension", "do", "else", "elseif",
40 "end", "enddo", "endif", "function", "goto",
41 "if", "parameter", "real", "return",
42 "subroutine", "then", "use" };
44 public FilterFortran ()
46 AddSupportedFlavor (FilterFlavor.NewFromMimeType ("text/x-fortran"));
49 override protected void DoOpen (FileInfo info)
51 foreach (string keyword in strKeyWords)
52 KeyWordsHash [keyword] = true;
54 SrcLangType = LangType.Fortran_Style;
57 override protected void DoPull ()
59 string str = TextReader.ReadLine ();
60 if (str == null)
61 Finished ();
62 else
63 ExtractTokens (str);