← Back to branch summary

~ubuntu-branches/ubuntu/raring/juffed/raring

« back to all changes in this revision

Viewing changes to src/app/qsci/lexers/qscilexerhaskell.cpp

  • Committer: Bazaar Package Importer
  • Author(s): Maia Kozheva
  • Date: 2011-04-30 13:43:26 UTC
  • mfrom: (2.1.1 experimental)
  • Revision ID: james.westby@ubuntu.com-20110430134326-0bnvvo5z2medbdxi
Tags: 0.9.1137-1
* New upstream release.
* Remove debian/juffed.1, added upstream (in debian.in).
* Remove debian/patches/static.patch: we can now bundle the .so after
  upstream has resolved soname issues.
* debian/control:
  - Bump Standards-Version to 0.9.2.
  - Update homepage.
  - Do not build-depend on chrpath, not needed anymore.
* debian/rules:
  - Remove chrpath rule, not needed anymore.
* Add juffed-dev and juffed-plugins packages.
* Do not install the libkeybindings.so plugin: causes a segfault on my
  amd64 machine.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/app/qsci/lexers/qscilexerhaskell.cpp
 
1
#include "qscilexerhaskell.h"
 
2
 
 
3
 
 
4
QsciLexerHaskell::QsciLexerHaskell(QObject *parent) :
 
5
    QsciLexer(parent)
 
6
{
 
7
}
 
8
 
 
9
const char * QsciLexerHaskell::keywords(int set) const
 
10
{
 
11
  // Keywords
 
12
  if (set == 1)
 
13
    return "as case class data default deriving do else hiding if import in "
 
14
        "infix infixl infixr instance let module newtype of proc qualified rec then type where";
 
15
 
 
16
  return 0;
 
17
}
 
18
 
 
19
QString QsciLexerHaskell::description(int style) const
 
20
{
 
21
  switch (style)
 
22
  {
 
23
  case SCE_HA_DEFAULT:
 
24
    return tr("Default");
 
25
  case SCE_HA_COMMENTLINE:
 
26
    return tr("Comment Line");
 
27
  case SCE_HA_COMMENTBLOCK:
 
28
    return tr("Comment Block 1");
 
29
  case SCE_HA_COMMENTBLOCK2:
 
30
    return tr("Comment Block 2");
 
31
  case SCE_HA_COMMENTBLOCK3:
 
32
    return tr("Comment Block 3");
 
33
  case SCE_HA_MODULE:
 
34
    return tr("Module");
 
35
  case SCE_HA_CHARACTER:
 
36
    return tr("Character");
 
37
  case SCE_HA_STRING:
 
38
    return tr("String");
 
39
  case SCE_HA_CAPITAL:
 
40
    return tr("Capital");
 
41
  case SCE_HA_IDENTIFIER:
 
42
    return tr("Identifier");
 
43
  case SCE_HA_CLASS:
 
44
    return tr("Class");
 
45
  case SCE_HA_NUMBER:
 
46
    return tr("Number");
 
47
  case SCE_HA_KEYWORD:
 
48
    return tr("Keyword");
 
49
  case SCE_HA_DATA:
 
50
    return tr("Data");
 
51
  case SCE_HA_IMPORT:
 
52
    return tr("Import");
 
53
  case SCE_HA_INSTANCE:
 
54
    return tr("Instance");
 
55
  case SCE_HA_OPERATOR:
 
56
    return tr("Operator");
 
57
  }
 
58
 
 
59
  return "";
 
60
}
 
61
 
 
62
QColor QsciLexerHaskell::defaultColor(int style) const
 
63
{
 
64
  switch (style)
 
65
  {
 
66
  case SCE_HA_DEFAULT:
 
67
    return Qt::black;
 
68
 
 
69
  case SCE_HA_CLASS:
 
70
  case SCE_HA_MODULE:
 
71
  case SCE_HA_INSTANCE:
 
72
    return Qt::darkRed;
 
73
 
 
74
  case SCE_HA_CAPITAL:
 
75
  case SCE_HA_DATA:
 
76
    return Qt::darkGray;
 
77
 
 
78
  case SCE_HA_COMMENTLINE:
 
79
  case SCE_HA_COMMENTBLOCK:
 
80
  case SCE_HA_COMMENTBLOCK2:
 
81
  case SCE_HA_COMMENTBLOCK3:
 
82
    return Qt::darkGreen;
 
83
 
 
84
  case SCE_HA_CHARACTER:
 
85
  case SCE_HA_STRING:
 
86
    return Qt::darkCyan;
 
87
 
 
88
  case SCE_HA_KEYWORD:
 
89
    return Qt::darkBlue;
 
90
 
 
91
  case SCE_HA_OPERATOR:
 
92
    return Qt::darkMagenta;
 
93
 
 
94
  case SCE_HA_IDENTIFIER:
 
95
    return Qt::magenta;
 
96
 
 
97
  case SCE_HA_IMPORT:
 
98
    return Qt::darkYellow;
 
99
 
 
100
  case SCE_HA_NUMBER:
 
101
    return Qt::blue;
 
102
  }
 
103
 
 
104
  return Qt::black;
 
105
}