Particular question about a RegEx

[boddhi]

Hello,

I created the following RegEx to detect a procedure in a code (the arguments part was deliberately omitted):

Code: Select all

RegEx.s="(?i)^(\s*;*)procedure(dll|cdll|c)? *(\.(a|b|c|d|f|i|l|q|s|u|w))? *_*[a-z]{1}(\w)*\({1}.*\){1}"

It works very well for the following cases:

Code: Select all

Procedure Name() => Accepted
  Procedure Name() => Accepted
; Procedure Name() => Comment => Rejected

But, because PB allows this kind of syntax, how do you ensure that a case like the following will be accepted?

Code: Select all

Debug “;” : Procedure Name()

Thanks for your help.

[EDITS] : Question not solved but below RegEx updated to authorize spaces in certain locations and prohibit ProcedureReturn :

Code: Select all

(?i)procedure(?!return)(dll|cdll|c)? *( *\. *(a|b|c|d|f|i|l|q|s|u|w))? *_*[a-z]{1}(\w)* *\({1}.*\){1}"

[STARGÅTE]

You need to check the full syntax.
While you are test for procedure, you have to check for comment and strings as well but just evaluate your case.
In such case, ";" is matched as string and not as command.

[boddhi]

Hi,

You need to check the full syntax.

that's what I expected.
I wanted to avoid this and try to evaluate all this, if possible (a little too naively, lazy as I am) with a single RegEx.

Thanks.

[AZJIO]

Code: Select all

(?mi)^\h*(?:Procedure[CDL$]{0,5}?(?:\h*\.[abcdfilqsuw])?\h+\K)[A-Za-z_]\w*\h*(?=\()

[boddhi]

For all intents and purposes, I've modified the RegEx to allow permitted spaces in certain locations.

[Piero]

WHAT?!

Code: Select all

~"\";\"":Procedure(:Debug #THIS_THREAD:)

[boddhi]

WHAT?!

Code: Select all

~"\";\"":Procedure(:Debug #THIS_THREAD:)

Couldn't do less laconic and unexplicit!!!

[Piero]

WHAT?!

Code: Select all

~"\";\"":Procedure(:Debug #THIS_THREAD:)

Couldn't do less laconic and unexplicit!!!

Forgive me boddhi, I'm having problems with the forum atm… anyaway:
If you want to consider ":", IMHO you are seeking for problems and slowness if you want to solve it all with a single regexp (better check with stringfield?) also, I see “” instead of ''"………

[boddhi]

If you want to consider ":", IMHO you are seeking for problems and slowness if you want to solve it all with a single regexp (better check with stringfield?)

Yes I confirm, for want of a better solution, that's what I had to do! Combine RegEx(es) and StringField() to solve my problem.

[boddhi]

If you want to consider ":", IMHO you are seeking for problems and slowness if you want to solve it all with a single regexp (better check with stringfield?)

Yes I confirm, for want of a better solution, that's what I had to do! Combine RegEx(es) and StringField() to solve my problem.

Note : RegEx updated to prohibit "ProcedureReturn"

[AZJIO]

Code: Select all

^(\s*;*)
(\v|:)[\h;])
(\v|(?<!:):(?!:))[\h;]*
[\h:;]+

Code: Select all

(\v+|(?<!:):(?!:))[\h;]*(?:Procedure[CDL$]{0,5}?(?:\h*\.[abcdfilqsuw])?\h+\K)[A-Za-z_]\w*\h*(?=\()

[Piero]

Note : RegEx updated to prohibit "ProcedureReturn"

Did you see my post about "exclusive regexps"?
https://www.purebasic.fr/english/viewtopic.php?t=84113

What if the ":" is into a string?

[AZJIO]

Code: Select all

{1}

there is no need to write this, it is by default

The "OR" group is used if at least one element is more than one character

Code: Select all

(a|b|c|d|f|i|l|q|s|u|w) = [abcdfilqsuw]

why put part of the name in a group?

Code: Select all

(\w)* = \w*

without use "?" (non-greedy capture) will capture all the code up to the last parenthesis.

Code: Select all

.*\)

In general, I think capturing procedure parameters in parentheses is unproductive, since you may encounter nested functions and, accordingly, a bunch of parentheses. You will have to analyze the number of parentheses and whether the parentheses are inside quotes or inside comments, so it is unrealistic to make such a parser.

Code: Select all

Debug “;” : Procedure Name()

This is the wrong way to encode. I don't think anyone will write a program in one line. Unless someone codes specifically to make your program unable to analyze code, I don’t see any other reason to write code that way.

[Piero]

Code: Select all

(\v+|(?<!:):(?!:))[\h;]*(?:Procedure[CDL$]{0,5}?(?:\h*\.[abcdfilqsuw])?\h+\K)[A-Za-z_]\w*\h*(?=\()

Seems to fail on:

Code: Select all

; Debug "p" : Procedure Name()

(quick test on regex101.com)

[AZJIO]

Seems to fail on:

It doesn't crash - RegExpPB. Because it uses the PCRE engine.

Added ?: so as not to add the group to the search

Code: Select all

(?:\v+|(?<!:):(?!:))[\h;]*