home *** CD-ROM | disk | FTP | other *** search
/ Chip Hitware 6 A / CHIP_HITWARE6_A.iso / tools / Dana / FuncList.DAS < prev    next >
Text File  |  1998-01-01  |  850b  |  43 lines
  1. '
  2. ' function list
  3. '
  4. Main ()
  5.     Dim strType$
  6.     Dim I
  7.     strType = UCase(.FileType)
  8.     If strType = "CPP" Or strType = "C" Or strType = "HPP" Or strType = "H" Then
  9.         Command("MarkOff")
  10.         MarkCFunc()
  11.         ShowMarkList()
  12.     Else If strType = "DAS" Then
  13.         Command("MarkOff")
  14.         FindFor("Proc|Main", "GRMNIT")
  15.         ShowMarkList()
  16.     Else If strType = "PAS" Then
  17.         Command("MarkOff")
  18.         FindFor("procedure", "GMNI")
  19.         ShowMarkList()
  20.     End If
  21. End
  22.  
  23. Proc MarkCFunc()
  24.     Dim hLine%
  25.     Dim sLine$
  26.     Dim lLine%, lLineSv%
  27.     hLine = GetTopLine()
  28.     lLine = 0
  29.     lLineSv = .LineNo
  30.     While hLine
  31.         lLine = lLine + 1
  32.         sLine$ = LoadThisLine(hLine)
  33.         Dim nC%
  34.         nC = Asc(sLine$)
  35.         If nC <> &H09 And nC <> &H20 And nC <> &H2F And nC <> &H23 Then
  36.             If InStr(sLine$, "(") Then
  37.                 SetMark(True, hLine)
  38.             End If
  39.         End If
  40.         hLine = GetNext(hLine)
  41.     Wend
  42. End Proc
  43.