You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
tqscintilla/qt/qextscintillalexerbash.cpp

375 lines
7.8 KiB

// This module implements the QextScintillaLexerBash class.
//
// Copyright (c) 2006
// Riverbank Computing Limited <info@riverbankcomputing.co.uk>
//
// This file is part of TQScintilla.
//
// This copy of TQScintilla is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public License as published by
// the Free Software Foundation; either version 2, or (at your option) any
// later version.
//
// TQScintilla is supplied in the hope that it will be useful, but WITHOUT ANY
// WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
// FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
// details.
//
// You should have received a copy of the GNU General Public License along with
// TQScintilla; see the file LICENSE. If not, write to the Free Software
// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#ifdef HAVE_CONFIG_H
# include "config.h"
#endif
#include <tqcolor.h>
#include <tqfont.h>
#include <tqsettings.h>
#include "qextscintillalexerbash.h"
// The ctor.
QextScintillaLexerBash::QextScintillaLexerBash(TQObject *parent,
const char *name)
: QextScintillaLexer(parent,name), fold_comments(FALSE),
fold_compact(TRUE)
{
}
// The dtor.
QextScintillaLexerBash::~QextScintillaLexerBash()
{
}
// Returns the language name.
const char *QextScintillaLexerBash::language() const
{
return "Bash";
}
// Returns the lexer name.
const char *QextScintillaLexerBash::lexer() const
{
return "bash";
}
// Return the style used for braces.
int QextScintillaLexerBash::braceStyle() const
{
return Operator;
}
// Return the string of characters that comprise a word.
const char *QextScintillaLexerBash::wordCharacters() const
{
return "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_$@%&";
}
// Returns the foreground colour of the text for a style.
TQColor QextScintillaLexerBash::color(int style) const
{
switch (style)
{
case Default:
return TQColor(0x80,0x80,0x80);
case Error:
case Backticks:
return TQColor(0xff,0xff,0x00);
case Comment:
return TQColor(0x00,0x7f,0x00);
case Number:
return TQColor(0x00,0x7f,0x7f);
case Keyword:
return TQColor(0x00,0x00,0x7f);
case DoubleQuotedString:
case SingleQuotedString:
case SingleQuotedHereDocument:
return TQColor(0x7f,0x00,0x7f);
case Operator:
case Identifier:
case Scalar:
case ParameterExpansion:
case HereDocumentDelimiter:
return TQColor(0x00,0x00,0x00);
}
return QextScintillaLexer::color(style);
}
// Returns the end-of-line fill for a style.
bool QextScintillaLexerBash::eolFill(int style) const
{
switch (style)
{
case SingleQuotedHereDocument:
return TRUE;
}
return FALSE;
}
// Returns the font of the text for a style.
TQFont QextScintillaLexerBash::font(int style) const
{
TQFont f;
switch (style)
{
case Comment:
#if defined(Q_OS_WIN)
f = TQFont("Comic Sans MS",9);
#else
f = TQFont("Bitstream Vera Serif",9);
#endif
break;
case Keyword:
case Operator:
f = QextScintillaLexer::font(style);
f.setBold(TRUE);
break;
case DoubleQuotedString:
case SingleQuotedString:
#if defined(Q_OS_WIN)
f = TQFont("Courier New",10);
#else
f = TQFont("Bitstream Vera Sans Mono",9);
#endif
break;
default:
f = QextScintillaLexer::font(style);
}
return f;
}
// Returns the set of keywords.
const char *QextScintillaLexerBash::keywords(int set) const
{
if (set == 1)
return
"alias ar asa awk banner basename bash bc bdiff break "
"bunzip2 bzip2 cal calendar case cat cc cd chmod "
"cksum clear cmp col comm compress continue cp cpio "
"crypt csplit ctags cut date dc dd declare deroff dev "
"df diff diff3 dircmp dirname do done du echo ed "
"egrep elif else env esac eval ex exec exit expand "
"export expr false fc fgrep fi file find fmt fold for "
"function functions getconf getopt getopts grep gres "
"hash head help history iconv id if in integer jobs "
"join kill local lc let line ln logname look ls m4 "
"mail mailx make man mkdir more mt mv newgrp nl nm "
"nohup ntps od pack paste patch pathchk pax pcat perl "
"pg pr print printf ps pwd read readonly red return "
"rev rm rmdir sed select set sh shift size sleep sort "
"spell split start stop strings strip stty sum "
"suspend sync tail tar tee test then time times touch "
"tr trap true tsort tty type typeset ulimit umask "
"unalias uname uncompress unexpand uniq unpack unset "
"until uudecode uuencode vi vim vpax wait wc whence "
"which while who wpaste wstart xargs zcat "
"chgrp chown chroot dir dircolors factor groups "
"hostid install link md5sum mkfifo mknod nice pinky "
"printenv ptx readlink seq sha1sum shred stat su tac "
"unlink users vdir whoami yes";
return 0;
}
// Returns the user name of a style.
TQString QextScintillaLexerBash::description(int style) const
{
switch (style)
{
case Default:
return tr("Default");
case Error:
return tr("Error");
case Comment:
return tr("Comment");
case Number:
return tr("Number");
case Keyword:
return tr("Keyword");
case DoubleQuotedString:
return tr("Double-quoted string");
case SingleQuotedString:
return tr("Single-quoted string");
case Operator:
return tr("Operator");
case Identifier:
return tr("Identifier");
case Scalar:
return tr("Scalar");
case ParameterExpansion:
return tr("Parameter expansion");
case Backticks:
return tr("Backticks");
case HereDocumentDelimiter:
return tr("Here document delimiter");
case SingleQuotedHereDocument:
return tr("Single-quoted here document");
}
return TQString();
}
// Returns the background colour of the text for a style.
TQColor QextScintillaLexerBash::paper(int style) const
{
switch (style)
{
case Error:
return TQColor(0xff,0x00,0x00);
case Scalar:
return TQColor(0xff,0xe0,0xe0);
case ParameterExpansion:
return TQColor(0xff,0xff,0xe0);
case Backticks:
return TQColor(0xa0,0x80,0x80);
case HereDocumentDelimiter:
case SingleQuotedHereDocument:
return TQColor(0xdd,0xd0,0xdd);
}
return QextScintillaLexer::paper(style);
}
// Refresh all properties.
void QextScintillaLexerBash::refreshProperties()
{
setCommentProp();
setCompactProp();
}
// Read properties from the settings.
bool QextScintillaLexerBash::readProperties(TQSettings &qs,const TQString &prefix)
{
int rc = TRUE;
bool ok, flag;
// Read the fold comments flag.
flag = qs.readBoolEntry(prefix + "foldcomments",FALSE,&ok);
if (ok)
fold_comments = flag;
else
rc = FALSE;
// Read the fold compact flag.
flag = qs.readBoolEntry(prefix + "foldcompact",TRUE,&ok);
if (ok)
fold_compact = flag;
else
rc = FALSE;
return rc;
}
// Write properties to the settings.
bool QextScintillaLexerBash::writeProperties(TQSettings &qs,const TQString &prefix) const
{
int rc = TRUE;
// Write the fold comments flag.
if (!qs.writeEntry(prefix + "foldcomments",fold_comments))
rc = FALSE;
// Write the fold compact flag.
if (!qs.writeEntry(prefix + "foldcompact",fold_compact))
rc = FALSE;
return rc;
}
// Return TRUE if comments can be folded.
bool QextScintillaLexerBash::foldComments() const
{
return fold_comments;
}
// Set if comments can be folded.
void QextScintillaLexerBash::setFoldComments(bool fold)
{
fold_comments = fold;
setCommentProp();
}
// Set the "fold.comment" property.
void QextScintillaLexerBash::setCommentProp()
{
emit propertyChanged("fold.comment",(fold_comments ? "1" : "0"));
}
// Return TRUE if folds are compact.
bool QextScintillaLexerBash::foldCompact() const
{
return fold_compact;
}
// Set if folds are compact
void QextScintillaLexerBash::setFoldCompact(bool fold)
{
fold_compact = fold;
setCompactProp();
}
// Set the "fold.compact" property.
void QextScintillaLexerBash::setCompactProp()
{
emit propertyChanged("fold.compact",(fold_compact ? "1" : "0"));
}
#include "qextscintillalexerbash.moc"