home *** CD-ROM | disk | FTP | other *** search
Text File | 1991-07-23 | 709 b | 30 lines | [TEXT/TCEd] |
- #
- # MarkCFunctions
- #
- # Marks all of the C functions in the window "~1" with the
- # name of the function. This will produce a list of marks
- # which contain a complete list of functions in the file, from
- # which you can select and immediatly jump to that function
- #
- # The expected format for a function is:
- # <type> <function name>(
- #
-
- Select(•, ~1)
-
- while (Search("p", "^[A-Za-z_][A-Za-z0-9_]* [A-Za-z_][A-Za-z0-9_]*\\(", NULL, ~1))
-
- Select([§]≤0, ~1)
- Search("p", "[A-Za-z_][A-Za-z0-9_]*\\(", NULL, ~1)
-
- /* Shrink the selection to remove the '(' */
-
- len = Length(Select([§]≤0:[§]≥-1, ~1))
- If (len >= 32)
- Select([§]≤0:[§]≤-30, ~1)
- End
-
- Mark("y", §, Select(§, ~1), ~1)
-
- Select([»1]≤0, ~1)
- End