Author Topic: Отображения комментария в Navigation bar  (Read 2828 times)

Offline DenisP

  • Newbie
  • *
  • Posts: 4
  • Karma: +0/-0
    • View Profile
Как надо оформить комментарий к функции (Syntax - Cliper), чтобы этот комментарий отобразился в поле "Label description" при выборе функции в "Navigation bar"?
Пример:
Code: [Select]
Function MyFunction ()//Комментарий к моей функции
Return

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

Offline alex

  • Developer
  • Global Moderator
  • Hero Member
  • *****
  • Posts: 2181
  • Karma: +37/-3
    • View Profile
    • HippoEDIT
Re: Отображения комментария в Navigation bar
« Reply #1 on: March 04, 2013, 03:02:57 pm »
Это не поддерживается схемой, но можно поправить. Замените в clipper_spec.xml:
Code: XML
  1. <Label group="Function" match="(?:^|\s)((STATIC)\s+)?FUNCTION\s+(\w+)" name="\3" descr="\1Function \3" image="9" scope="1">
  2.    <SubImage if="\2" equal="STATIC" value="3"/>
  3. </Label>
на
Code: XML
  1. <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">
  2.    <SubImage if="\2" equal="STATIC" value="3"/>
  3. </Label>
Ну и вообще гляньте, может что можно улучшить.
С PROCEDURE также?
Code: XML
  1. <Label group="Procedure" match="(?:^|\s)((STATIC|INIT|EXIT)\s+)?PROCEDURE\s+(\w+)" descr="\1PROCEDURE \3" name="\1Procedure \3" image="9" scope="1">
  2.         <SubImage if="\2" equal="STATIC" value="3"/>
  3.       </Label>

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

Тестировалось на этом:
Code: [Select]
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

Offline DenisP

  • Newbie
  • *
  • Posts: 4
  • Karma: +0/-0
    • View Profile
Re: Отображения комментария в Navigation bar
« Reply #2 on: March 05, 2013, 01:34:21 am »
Схему в репозитории я поправлю.

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

С PROCEDURE также?

Не использую PROCEDURE.
« Last Edit: March 05, 2013, 01:40:39 am by DenisP »

 

Related Topics

  Subject / Started by Replies Last post
6 Replies
2302 Views
Last post April 11, 2009, 05:54:41 pm
by Stefan
1 Replies
2255 Views
Last post June 18, 2009, 04:35:57 pm
by alex
2 Replies
1842 Views
Last post August 06, 2009, 04:56:08 pm
by Arthur
6 Replies
5306 Views
Last post November 02, 2009, 11:12:18 pm
by alex
1 Replies
2907 Views
Last post October 07, 2011, 07:53:43 pm
by alex