~ubuntu-branches/ubuntu/raring/codeblocks/raring-proposed

« back to all changes in this revision

Viewing changes to src/sdk/wxscintilla/src/scintilla/src/LexFortran.cxx

  • Committer: Bazaar Package Importer
  • Author(s): Cosme Domínguez Díaz
  • Date: 2010-08-09 04:38:38 UTC
  • mfrom: (1.1.1 upstream)
  • mto: This revision was merged to the branch mainline in revision 4.
  • Revision ID: james.westby@ubuntu.com-20100809043838-a59ygguym4eg0jgw
Tags: 10.05-0ubuntu1
* New upstream release. Closes (LP: #322350)
 - Switch to dpkg-source 3.0 (quilt) format
 - Remove unneeded README.source
 - Add debian/get-source-orig script that removes all
   Windows prebuilt binaries
* Bump Standards-Version to 3.9.1
 - Stop shipping *.la files
* debian/control
 - Add cdbs package as Build-Depend
 - Add libbz2-dev and zlib1g-dev packages as
   Build-Depends (needed by libhelp_plugin.so)
 - Remove dpatch package of Build-Depends
 - Add codeblocks-contrib-debug package
 - Split architecture-independent files of codeblocks
   package in codeblocks-common package
* debian/rules
 - Switch to CDBS rules system
 - Add parallel build support
 - Add a call to debian/get-source-orig script
 - Use lzma compression (saves 23,5 MB of free space)
* debian/patches
 - Refresh 01_codeblocks_plugin_path
 - Add 02_no_Makefiles_in_debian_dir to remove any link
   in codeblocks build system to deleted Makefiles of debian directory
 - Drop 02_ftbfs_gcc44 and 03_ftbfs_glib221 (merged in upstream)
* debian/watch
 - Update to use the new host (berlios.de)

Show diffs side-by-side

added added

removed removed

Lines of Context:
19
19
#include "KeyWords.h"
20
20
#include "Scintilla.h"
21
21
#include "SciLexer.h"
 
22
 
 
23
#ifdef SCI_NAMESPACE
 
24
using namespace Scintilla;
 
25
#endif
 
26
 
22
27
/***********************************************/
23
28
static inline bool IsAWordChar(const int ch) {
24
29
        return (ch < 0x80) && (isalnum(ch) || ch == '_' || ch == '%');
78
83
                // Handle the fix format generically
79
84
                int toLineStart = sc.currentPos - posLineStart;
80
85
                if (isFixFormat && (toLineStart < 6 || toLineStart > 72)) {
81
 
                        if (toLineStart == 0 && (tolower(sc.ch) == 'c' || sc.ch == '*') || sc.ch == '!') {
82
 
                                sc.SetState(SCE_F_COMMENT);
 
86
                        if ((toLineStart == 0 && (tolower(sc.ch) == 'c' || sc.ch == '*')) || sc.ch == '!') {
 
87
                if (sc.MatchIgnoreCase("cdec$") || sc.MatchIgnoreCase("*dec$") || sc.MatchIgnoreCase("!dec$") ||
 
88
                    sc.MatchIgnoreCase("cdir$") || sc.MatchIgnoreCase("*dir$") || sc.MatchIgnoreCase("!dir$") ||
 
89
                    sc.MatchIgnoreCase("cms$")  || sc.MatchIgnoreCase("*ms$")  || sc.MatchIgnoreCase("!ms$")  ||
 
90
                    sc.chNext == '$') {
 
91
                    sc.SetState(SCE_F_PREPROCESSOR);
 
92
                                } else {
 
93
                                        sc.SetState(SCE_F_COMMENT);
 
94
                                }
 
95
 
83
96
                                while (!sc.atLineEnd && sc.More()) sc.Forward(); // Until line end
84
97
                        } else if (toLineStart > 72) {
85
98
                                sc.SetState(SCE_F_COMMENT);
193
206
                // Determine if a new state should be entered.
194
207
                if (sc.state == SCE_F_DEFAULT) {
195
208
                        if (sc.ch == '!') {
196
 
                                if (sc.chNext == '$') {
 
209
                if (sc.MatchIgnoreCase("!dec$") || sc.MatchIgnoreCase("!dir$") ||
 
210
                    sc.MatchIgnoreCase("!ms$") || sc.chNext == '$') {
197
211
                                        sc.SetState(SCE_F_PREPROCESSOR);
198
212
                                } else {
199
213
                                        sc.SetState(SCE_F_COMMENT);
238
252
                                lev = 0;
239
253
                        else
240
254
                                lev = 1;
241
 
        } else if (strcmp(s, "end") == 0 && chNextNonBlank != '='
 
255
        } else if ((strcmp(s, "end") == 0 && chNextNonBlank != '=')
242
256
                || strcmp(s, "endassociate") == 0 || strcmp(s, "endblock") == 0
243
257
                || strcmp(s, "endblockdata") == 0 || strcmp(s, "endselect") == 0
244
258
                || strcmp(s, "enddo") == 0 || strcmp(s, "endenum") ==0