helptree.mpr

用汇编语言或高级语言编写的源程序翻译成机器可执行的机器语言程序的工具称为“语言处理程序.

DEFINE BAR 13 OF functions PROMPT "\<Memory Variables and Arrays"
DEFINE BAR 14 OF functions PROMPT "Menus and \<Popups"
DEFINE BAR 15 OF functions PROMPT "Multi-\<User"
DEFINE BAR 16 OF functions PROMPT "\<Numeric"
DEFINE BAR 17 OF functions PROMPT "\<Windows"
ON SELECTION BAR 1 OF functions DO hfilter WITH 'Function' in helptree.mpr
ON SELECTION BAR 2 OF functions DO hfilter WITH 'Function', ' ch ' in helptree.mpr
ON SELECTION BAR 3 OF functions DO hfilter WITH 'Function',' dc ' in helptree.mpr
ON SELECTION BAR 4 OF functions DO hfilter WITH 'Function',' db ' in helptree.mpr
ON SELECTION BAR 5 OF functions DO hfilter WITH 'Function',' dt ' in helptree.mpr
ON SELECTION BAR 6 OF functions DO hfilter WITH 'Function',' en ' in helptree.mpr
ON SELECTION BAR 7 OF functions DO hfilter WITH 'Function',' fm ' in helptree.mpr
ON SELECTION BAR 8 OF functions DO hfilter WITH 'Function',' ix ' in helptree.mpr
ON SELECTION BAR 9 OF functions DO hfilter WITH 'Function',' in ' in helptree.mpr
ON SELECTION BAR 10 OF functions DO hfilter WITH 'Function',' km ' in helptree.mpr
ON SELECTION BAR 11 OF functions DO hfilter WITH 'Function',' lo ' in helptree.mpr
ON SELECTION BAR 12 OF functions DO hfilter WITH 'Function',' ll ' in helptree.mpr
ON SELECTION BAR 13 OF functions DO hfilter WITH 'Function',' mv ' in helptree.mpr
ON SELECTION BAR 14 OF functions DO hfilter WITH 'Function',' mp ' in helptree.mpr
ON SELECTION BAR 15 OF functions DO hfilter WITH 'Function',' mu ' in helptree.mpr
ON SELECTION BAR 16 OF functions DO hfilter WITH 'Function',' nu ' in helptree.mpr
ON SELECTION BAR 17 OF functions DO hfilter WITH 'Function',' wi ' in helptree.mpr

DEFINE POPUP systemmemo MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF systemmemo PROMPT "\<All System Memory Variables"
DEFINE BAR 2 OF systemmemo PROMPT "\<Desk Accessories"
DEFINE BAR 3 OF systemmemo PROMPT "\<Printing"
DEFINE BAR 4 OF systemmemo PROMPT "\<Text Merge"
DEFINE BAR 5 OF systemmemo PROMPT "\<Menu Names"
ON SELECTION BAR 1 OF systemmemo DO hfilter WITH 'Sysmemvar' in helptree.mpr
ON SELECTION BAR 2 OF systemmemo DO hfilter WITH 'Sysmemvar',' da ' in helptree.mpr
ON SELECTION BAR 3 OF systemmemo DO hfilter WITH 'Sysmemvar',' pr ' in helptree.mpr
ON SELECTION BAR 4 OF systemmemo DO hfilter WITH 'Sysmemvar',' tm ' in helptree.mpr
ON SELECTION BAR 5 OF systemmemo DO hfilter WITH 'Sysmemvar',' sn ' in helptree.mpr


*       *********************************************************
*       *                                                         
*       *                 Cleanup Code & Procedures               
*       *                                                         
*       *********************************************************
*

PROCEDURE hfilter
PARAMETERS class1,class2,either
PUBLIC filter1,filter2
IF SET('TALK') = 'ON'
   SET TALK OFF
   STORE 'ON' TO talkset
ELSE
   STORE 'OFF' TO talkset
ENDIF (SET('TALK') = 'ON')
STORE class1 TO filter1
STORE class2 TO filter2
DO CASE
CASE PARAMETERS() = 1 and filter1 = 'Search'
   DO searchhelp
   IF okcancel = 2
      RETURN TO MASTER
   ENDIF (okcancel = 2)
CASE either
   SET HELPFILTER AUTOMATIC TO UPPER(filter1)$UPPER(class) ;
      or UPPER(filter2)$UPPER(class)
CASE PARAMETERS() = 2
   SET HELPFILTER AUTOMATIC TO UPPER(filter1)$UPPER(class) ;
      and UPPER(filter2)$UPPER(class)
CASE PARAMETERS() = 1
   SET HELPFILTER AUTOMATIC TO UPPER(filter1)$UPPER(class)
CASE PARAMETERS() = 0
   SET HELPFILTER TO
ENDCASE
SET TALK &talkset
HELP NOWAIT

*!*********************************************************************
*!
*!      Procedure: SEARCHHELP
*!
*!      Called by: HFILTER.PRG
*!
*!*********************************************************************
PROCEDURE searchhelp
PUBLIC search1,search2,search3,okcancel
STORE SPACE(50) TO search1,search2,search3
STORE 1 TO okcancel,anyall,topordet
STORE .F. TO matchwords
STORE .T. TO ignorecase
DEFINE WINDOW searchdlog;
   FROM 3,15;
   TO 21,64;
   FLOAT;
   NOGROW;
   NOCLOSE;
   NOZOOM;
   SHADOW;
   DOUBLE;
   COLOR SCHEME 5
ACTIVATE WINDOW searchdlog

@ 1,2 SAY "Tag only those topics that contain"
@ 1,38 GET anyall;
   PICTURE "@*RVN Any;All";
   SIZE 1,7,0
@ 4,2 SAY "of the following strings in the "
@ 4,35 GET topordet;
   PICTURE "@*RVN Topic;Details";
   SIZE 1,11,0
@ 7,5 GET search1;
   SIZE 1,37;
   PICTURE '@K'
@ 9,5 GET search2;
   SIZE 1,37;
   PICTURE '@K'
@ 11,5 GET search3;
   SIZE 1,37;
   PICTURE '@K'
@ 14,5 GET ignorecase;
   PICTURE "@*C Ignore Case";
   SIZE 1,15
@ 13,31 GET okcancel;
   PICTURE "@*V \!OK; \?Cancel";
   SIZE 1,10,1
READ CYCLE DEACTIVate noway()
RELEASE WINDOW searchdlog
STORE SET('EXACT') TO exactoffon
DO CASE
CASE EMPTY(search1) and EMPTY(search2) and EMPTY(search3)
   STORE 2 TO okcancel
   RETURN
CASE EMPTY(search1) and EMPTY(search2)
   STORE search3 TO search1,search2
CASE EMPTY(search2) and EMPTY(search3)
   STORE search1 TO search2,search3
CASE EMPTY(search1) and EMPTY(search3)
   STORE search2 TO search1,search3
CASE EMPTY(search1)
   STORE search2 TO search1
CASE EMPTY(search2)
   STORE search1 TO search2
CASE EMPTY(search3)
   STORE search1 TO search3
ENDCASE

DO CASE
CASE topordet = 2 and ignorecase and anyall = 1
   SET HELPFILTER AUTOMATIC TO;
      ALLTRIM(UPPER(search1))$UPPER(details) or;
      ALLTRIM(UPPER(search2))$UPPER(details) or;
      ALLTRIM(UPPER(search3))$UPPER(details)
CASE topordet = 2 and ignorecase and anyall = 2
   SET HELPFILTER AUTOMATIC TO;
      ALLTRIM(UPPER(search1))$UPPER(details) and;
      ALLTRIM(UPPER(search2))$UPPER(details) and;
      ALLTRIM(UPPER(search3))$UPPER(details)
CASE topordet = 2 and !ignorecase and anyall = 1
   SET HELPFILTER AUTOMATIC TO;
      ALLTRIM(search1)$details or;
      ALLTRIM(search2)$details or;
      ALLTRIM(search3)$details
CASE topordet = 2 and !ignorecase and anyall = 2
   SET HELPFILTER AUTOMATIC TO;
      ALLTRIM(search1)$details and;
      ALLTRIM(search2)$details and;
      ALLTRIM(search3)$details
CASE topordet = 1 and ignorecase and anyall = 1
   SET HELPFILTER AUTOMATIC TO;
      ALLTRIM(UPPER(search1))$UPPER(TOPIC) or;
      ALLTRIM(UPPER(search2))$UPPER(TOPIC) or;
      ALLTRIM(UPPER(search3))$UPPER(TOPIC)
CASE topordet = 1 and ignorecase and anyall = 2
   SET HELPFILTER AUTOMATIC TO;
      ALLTRIM(UPPER(search1))$UPPER(TOPIC) and;
      ALLTRIM(UPPER(search2))$UPPER(TOPIC) and;
      ALLTRIM(UPPER(search3))$UPPER(TOPIC)
CASE topordet = 1 and !ignorecase and anyall = 1
   SET HELPFILTER AUTOMATIC TO;
      ALLTRIM(search1)$TOPIC or;
      ALLTRIM(search2)$TOPIC or;
      ALLTRIM(search3)$TOPIC
CASE topordet = 1 and !ignorecase and anyall = 2
   SET HELPFILTER AUTOMATIC TO;
      ALLTRIM(search1)$TOPIC and;
      ALLTRIM(search2)$TOPIC and;
      ALLTRIM(search3)$TOPIC
ENDCASE

proc noway
? chr(7)
return .f.

*: EOF: HFILTER.PRG