Filters/FilterPerl.cs

   1 //
   2 // FilterPerl.cs
   3 //
   4 // Copyright (C) 2004 Novell, Inc.
   5 //
   6
   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:
  14 //
  15 // The above copyright notice and this permission notice shall be included in
  16 // all copies or substantial portions of the Software.
  17 //
  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.
  25 //
  26
  27 using System;
  28 using System.Collections;
  29 using System.IO;
  30 using System.Text;
  31
  32 using Beagle.Daemon;
  33
  34 namespace Beagle.Filters {
  35
  36         public class FilterPerl : FilterSource {
  37
  38                 static string [] strKeyWords = { "and", "break", "chop", "class", "close", "closedir",
  39                                                  "continue", "defined", "die", "do", "eval",
  40                                                  "each", "else", "elsif", "eof", "eq", "exec", "for",
  41                                                  "foreach", "ge", "getc", "glob", "goto", "gt",
  42                                                  "if", "index", "keys", "last", "le", "length",
  43                                                  "lt", "ne", "next", "not", "or", "pick", "print", "quit",
  44                                                  "redo", "rename", "reply", "require", "return",
  45                                                  "scalar", "sub", "tr", "unless", "until", "use", "undef",
  46                                                  "values", "wantarray", "warn", "while", "xor" };
  47
  48                 public FilterPerl ()
  49                 {
  50                         AddSupportedFlavor (FilterFlavor.NewFromMimeType ("text/x-perl"));
  51                         AddSupportedFlavor (FilterFlavor.NewFromMimeType ("application/x-perl"));
  52                 }
  53
  54                 override protected void DoOpen (FileInfo info)
  55                 {
  56                         foreach (string keyword in strKeyWords)
  57                                 KeyWordsHash [keyword] = true;
  58                         SrcLangType = LangType.Python_Style;
  59                 }
  60
  61                 override protected void DoPull ()
  62                 {
  63                         string str = TextReader.ReadLine ();
  64                         if (str == null)
  65                                 Finished ();
  66                         else
  67                                 ExtractTokens (str);
  68                 }
  69         }
  70 }