qscilexeroctave.cpp 1.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869
  1. // This module implements the QsciLexerOctave class.
  2. //
  3. // Copyright (c) 2017 Riverbank Computing Limited <info@riverbankcomputing.com>
  4. //
  5. // This file is part of QScintilla.
  6. //
  7. // This file may be used under the terms of the GNU General Public License
  8. // version 3.0 as published by the Free Software Foundation and appearing in
  9. // the file LICENSE included in the packaging of this file. Please review the
  10. // following information to ensure the GNU General Public License version 3.0
  11. // requirements will be met: http://www.gnu.org/copyleft/gpl.html.
  12. //
  13. // If you do not wish to use this file under the terms of the GPL version 3.0
  14. // then you may purchase a commercial license. For more information contact
  15. // info@riverbankcomputing.com.
  16. //
  17. // This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
  18. // WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  19. #include "Qsci/qscilexeroctave.h"
  20. #include <qcolor.h>
  21. #include <qfont.h>
  22. // The ctor.
  23. QsciLexerOctave::QsciLexerOctave(QObject *parent)
  24. : QsciLexerMatlab(parent)
  25. {
  26. }
  27. // The dtor.
  28. QsciLexerOctave::~QsciLexerOctave()
  29. {
  30. }
  31. // Returns the language name.
  32. const char *QsciLexerOctave::language() const
  33. {
  34. return "Octave";
  35. }
  36. // Returns the lexer name.
  37. const char *QsciLexerOctave::lexer() const
  38. {
  39. return "octave";
  40. }
  41. // Returns the set of keywords.
  42. const char *QsciLexerOctave::keywords(int set) const
  43. {
  44. if (set == 1)
  45. return
  46. "__FILE__ __LINE__ break case catch classdef continue do else "
  47. "elseif end end_try_catch end_unwind_protect endclassdef "
  48. "endenumeration endevents endfor endfunction endif endmethods "
  49. "endparfor endproperties endswitch endwhile enumeration events "
  50. "for function get global if methods otherwise parfor persistent "
  51. "properties return set static switch try until unwind_protect "
  52. "unwind_protect_cleanup while";
  53. return 0;
  54. }