Отображения комментария в Navigation bar

[DenisP]

Как надо оформить комментарий к функции (Syntax - Cliper), чтобы этот комментарий отобразился в поле "Label description" при выборе функции в "Navigation bar"?
Пример:

Code Select Expand


Function MyFunction ()//Комментарий к моей функции
Return


Есть ли возможность увидеть текст "Комментарий к моей функции" в поле "Label description"?

[alex]

Это не поддерживается схемой, но можно поправить. Замените в clipper_spec.xml:

Code (xml) Select Expand

<Label group="Function" match="(?:^|\s)((STATIC)\s+)?FUNCTION\s+(\w+)" name="\3" descr="\1Function \3" image="9" scope="1">
   <SubImage if="\2" equal="STATIC" value="3"/>
</Label>
на

Code (xml) Select Expand

<Label group="Function" match="(?:^|\s)((STATIC)\s+)?FUNCTION\s+(\w+)\s*(\([^.;)]*\))\s*//\s*([^\r\n)]+)" name="\3" descr="\1Function \3 \4 - \5" image="9" scope="1">
   <SubImage if="\2" equal="STATIC" value="3"/>
</Label>
Ну и вообще гляньте, может что можно улучшить.
С PROCEDURE также?

Code (xml) Select Expand

<Label group="Procedure" match="(?:^|\s)((STATIC|INIT|EXIT)\s+)?PROCEDURE\s+(\w+)" descr="\1PROCEDURE \3" name="\1Procedure \3" image="9" scope="1">
        <SubImage if="\2" equal="STATIC" value="3"/>
      </Label>

Схему в репозитории я поправлю.

Тестировалось на этом:

Code Select Expand


Function MyFunction ()//Комментарий к моей функции
Return


FUNCTION MyFunc( param1, param2, param3 )  // my function MyFunc
IF param2 == NIL
   param2 := "default value"
ENDIF
.
. <statements>
.
RETURN NIL


FUNCTION ListAsArray( cList ) // my function ListAsArray
LOCAL nPos
// Define an empty array
LOCAL aList := {}
//
DO WHILE (nPos := AT(",", cList)) != 0
   // Add a new element
   AADD(aList, SUBSTR(cList, 1, nPos - 1))
   cList := SUBSTR(cList, nPos + 1)
ENDDO
AADD(aList, cList)
//
// Return the array
//
RETURN aList

FUNCTION Currency( nNumber ) // my function Currency
   LOCAL cNumber
   IF nNumber < 0
  cNumber := TRANSFORM(-1 * nNumber, ;
"999,999,999,999.99")
  cNumber := PADL("($" + LTRIM(cNumber) + ")", ;
LEN(cNumber))
   ELSE
  cNumber := TRANSFORM(nNumber, ;
"999,999,999,999.99")
  cNumber := PADL("$" + LTRIM(cNumber), ;
LEN(cNumber))
   ENDIF
   RETURN cNumber


[DenisP]

Схему в репозитории я поправлю.

Попробовал. Все красиво! Спасибо!

С PROCEDURE также?

Не использую PROCEDURE.