Предполагая, что у вас есть файл. prg
, который выглядит примерно так:
PROCEDURE DecryptUser
LPARAM lcUser
LOCAL Cadena_1
Cadena_1 = ""
For i = 1 to Len(TRIM(lcUser)) STEP 2
Cadena_1 = Cadena_1 + CHR(VAL(SUBSTR(lcUser, i, 2))-4)
Next
RETURN Cadena_1
procedure DecryptPwd
LPARAM lcPwd
LOCAL Cadena_2
Cadena_2 = ""
For i = 1 to Len(TRIM(lcPwd)) STEP 2
Cadena_2 = Cadena_2 + CHR(VAL(SUBSTR(lcPwd, i, 2))+5)
Next
RETURN Cadena_2
используйте в своих настройках:
"funcList": {
"doubleSpacing": true,
"filters": [
{
"extensions": [
".prg",
],
// lower and upper case will be captured with I flag
"native": "/^PROCEDURE\\s+\\w+/mgi",
// show everything captured in native filter (no modification)
"display": "/.*/",
// show only the procedure names, not preceded by "PROCEDURE"
"display": "/\\w+(\\s+\\w+)/1",
"sort": 0
}
]
}
производит этот вывод:
PROCEDURE DecryptUser
procedure DecryptPwd