Cannot load a lexer

[Roger Tunnicliffe]

I am using Linux, FreeBasic, GTK3, Scintilla and lexilla.

Scintilla and Lexilla are both statically linked.

The following code returns pLexer but SETILEXER always returns a 0. 

I have spent so long on this. Can anyone help 

Dim pLexer As Any Ptr = CreateLexer("freebasic")

Dim result As ULong = scintilla_send_message(sci, SCI_GETLEXER, 0, pLexer)

CONST SCI_SETILEXER As UInteger = 2187

result = scintilla_send_message(sci, SCI_SETILEXER, 0, pLexer)

[Neil Hodgson]

Roger Tunnicliffe:

> The following code returns pLexer but SETILEXER always returns a 0.

SCI_SETILEXER does not return anything. There aren't even any checks
on that call, Scintilla just stores the value given.

https://scintilla.org/ScintillaDoc.html#SCI_SETILEXER

> Dim pLexer As Any Ptr = CreateLexer("freebasic")

Good. Check for NULL.

> Dim result As ULong = scintilla_send_message(sci, SCI_GETLEXER, 0, pLexer)

SCI_GETLEXER doesn't take any arguments. At this point it will likely
return something boring like 0.

> CONST SCI_SETILEXER As UInteger = 2187

From Scintilla.h:
#define SCI_SETILEXER 4033

2187 is not associated with lexing:
#define SCI_GETOVERTYPE 2187

Neil

[Roger Tunnicliffe]

Roger Tunnicliffe

8:

Thx for the reply Neil.

Correcting SCI_SETILEXER did not provide any Highlighting in Scintilla at all.

I have been struggling with this for days and days and the snippet I posted was just a cut down of all those efforts.

The doco page for Lexilla suggest that the posted code is all I need but I keep reading that I have to provide keywords as well.

I have tried that but still get no highlighting. In fact there probably isn't anything I haven't tried (except the right thing I suppose)

As an aside, I have spent days with all those dumb$#@ AI's who can only explain why their idiotic code does not even compile (Mostly they tell you that you are frustrated and that they lied)

God knows why there's been a trillion dollars spent on these things.

All that aside I wonder if you or anyone else here could guide me thru this as I  just don't believe it should be that hard.

edit:- 

Dim pLexer As Any Ptr = CreateLexer("freebasic")

CONST SCI_SETILEXER As UInteger = 4033

VAR result = scintilla_send_message(sci, SCI_SETILEXER, 0, pLexer)

Dim tmp As string

scintilla_send_message(sci, SCI_GETLEXERLANGUAGE, 0, strptr(tmp))

SCI_GETLEXERLANGUAGE returns nothing

Thanking you in advance

Roger

[Roger Tunnicliffe]

Sorry but I cant see how to edit a post.

The following though

dim R as integer = scintilla_send_message(sci, SCI_GETLEXER, NULL, pLexer)

returns a value of 75

[Neil Hodgson]

Roger Tunnicliffe:

> Dim pLexer As Any Ptr = CreateLexer("freebasic")

...

> dim R as integer = scintilla_send_message(sci, SCI_GETLEXER, NULL, pLexer)
>
> returns a value of 75

That looks good since that is the right ID for freebasic.
#define SCLEX_FREEBASIC 75

> Correcting SCI_SETILEXER did not provide any Highlighting in Scintilla at all.

Have you defined appearances for the lexical classes?
SCI_STYLESETFORE and related.
https://scintilla.org/ScintillaDoc.html#SCI_STYLESETFORE

Neil

[Roger Tunnicliffe]

Yes Neil, I have the following code which appears to be working...

VAR sci = scintilla_new()

scintilla_send_message(sci, SCI_STYLESETBACK, STYLE_DEFAULT, mRGB(33,37,43)) ' Background Dark

scintilla_send_message(sci, SCI_STYLESETFORE, STYLE_DEFAULT, mRGB(0,255,255)) ' Foreground Cyan

scintilla_send_message(sci, SCI_STYLESETFONT, STYLE_DEFAULT, strptr("Consolas")) ' Font style

scintilla_send_message(sci, SCI_STYLESETSIZE, STYLE_DEFAULT, 9) ' Font size

scintilla_send_message(sci, SCI_SETTABWIDTH, STYLE_DEFAULT, 2) ' Tab width

scintilla_send_message(sci, SCI_SETSELBACK, STYLE_DEFAULT, mRGB(38,79,120)) ' Selected Text BGR color BLUISH

scintilla_send_message(sci, SCI_SETSELFORE, STYLE_DEFAULT, &hffffff) ' Selected Text FOR color WHITE

scintilla_send_message(sci, SCI_SETCARETFORE,mRGB(255,255,255),0) ' Caret Colour

' Propergate thru all styles

scintilla_send_message(sci, SCI_STYLECLEARALL, 0, 0)

' line-number text + background style

scintilla_send_message(sci, SCI_SETMARGINTYPEN, 1, SC_MARGIN_NUMBER)

scintilla_send_message(sci, SCI_SETMARGINWIDTHN, 1, 45)

scintilla_send_message(sci, SCI_STYLESETFORE, STYLE_LINENUMBER, mRGB(86,133,229))

scintilla_send_message(sci, SCI_STYLESETBACK, STYLE_LINENUMBER, mRGB(56,56,56))

[Roger Tunnicliffe]

Further to the above Neil..

You have led me to an epiphany.. So I have the following which works

CONST SCI_SETILEXER As UInteger = 4033

CONST SCE_B_COMMENT = 1

CONST SCE_B_NUMBER = 2

CONST SCE_B_KEYWORD = 3

CONST SCE_B_STRING = 4

CONST SCE_B_PREPROCESSOR = 5

CONST SCE_B_OPERATOR = 6

CONST SCE_B_IDENTIFIER = 7

CONST SCE_B_DATE = 8

CONST SCE_B_STRINGEOL = 9

CONST SCE_B_KEYWORD2 = 10

CONST SCE_B_KEYWORD3 = 11

CONST SCE_B_KEYWORD4 = 12

CONST SCE_B_CONSTANT = 13

CONST SCE_B_ASM = 14

CONST SCE_B_LABEL = 15

CONST SCE_B_ERROR = 16

CONST SCE_B_HEXNUMBER = 17

CONST SCE_B_BINNUMBER = 18

CONST SCE_B_COMMENTBLOCK = 19

CONST SCE_B_DOCLINE = 20

CONST SCE_B_DOCBLOCK = 21

CONST SCE_B_DOCKEYWORD = 22

Dim pLexer As Any Ptr = CreateLexer("freebasic")

scintilla_send_message(sci, SCI_SETILEXER, 0, pLexer)

scintilla_send_message(sci, SCI_STYLESETFORE, SCE_B_COMMENT, mRGB(90,90,90))

scintilla_send_message(sci, SCI_STYLESETFORE, SCE_B_NUMBER, mRGB(255,255,0))

scintilla_send_message(sci, SCI_STYLESETFORE, SCE_B_STRING, mRGB(224,176,255))

scintilla_send_message(sci, SCI_STYLESETFORE, SCE_B_OPERATOR, mRGB(255,255,255))

and this that doesn't

scintilla_send_message(sci, SCI_STYLESETFORE, SCE_B_CONSTANT, mRGB(0,255,255))

scintilla_send_message(sci, SCI_STYLESETFORE, SCE_B_ASM, mRGB(0,255,255))

scintilla_send_message(sci, SCI_STYLESETFORE, SCE_B_LABEL, mRGB(0,255,255))

dim one_keyword as string = "dim" & &h00

scintilla_send_message(sci, SCI_SETKEYWORDS, 1, strptr(one_keyword))

scintilla_send_message(sci, SCI_STYLESETFORE, SCE_B_KEYWORD, mRGB(0,255,255))

from the doc it says.

SCI_SETKEYWORDS(int keyWordSet, const char *keyWords)

You can set up to 9 lists of keywords for use by the current lexer. keyWordSet can be 0 to 8 (actually 0 to KEYWORDSET_MAX) and selects which keyword list to replace

If this is to replace keywords it tells us that they already exist so I am not sure why I would have to add any..

Regardless..

I have the constants from SciLexer.h and am selecting keywords set 1 because LexBasic.cxx says:-

static const char * const freebasicWordListDesc[] = {
"FreeBasic Keywords",
"FreeBasic PreProcessor Keywords",
"user defined 1",
"user defined 2",
0
};

I have tried other keyword lists (0,2,3, etc) but to no avail.

Can you spot what I am doing wrong ???

Cheers

Roger

[Neil Hodgson]

Roger Tunnicliffe:

> dim one_keyword as string = "dim" & &h00

I'm not familiar with FreeBasic and have no idea what the above line
does, particularly '& &h00'.

> If this is to replace keywords it tells us that they already exist so I am not sure why I would have to add any..

You need to replace an initially empty list "" with a non-empty list "x y z".

Neil

[Roger Tunnicliffe]

It's just a null terminated string (a C string) -> 4 bytes D,i,m,0x0
and 

scintilla_send_message(sci, SCI_SETKEYWORDS, 1, strptr(one_keyword))

and strptr (one_keyword) is the address of that string because FreeBasic holds a descriptor for the string (strptr is used to pass the string NOT the descriptor)

Your saying to the Lexer that DIM is the only keyword (sadly it is never highlighted)

Cheers

Roger

[Roger Tunnicliffe]

Hi Neil, not sure if you monitor this that closely but I have managed to get this working. (I'm just not sure how)

You know when you struggle with something for a long time you just lose track of what you have changed, what you have tried, what you have google'd. Well I woke up one morning and tried something and it worked. Just annoying that I don't know what that change was but have now got a number of lexers going and (hopefully) understand it.

Anyway, thanks for you help with this

Cheers

Roger