home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 May / Pcwk5b98.iso / Borland / Cplus45 / BC45 / EXPERT.PAK / RESCAN.SNP < prev    next >
Text File  |  1995-08-29  |  5KB  |  131 lines
  1. <<[H]
  2. ##--BEGIN-- QUERY_CLASS_NAME [[ClassName]]
  3. ##QUERY_BASE_NAME [[BaseName]]
  4. ##^BOF
  5. ##--BEGIN-- ? \\"//{{[[BaseName]] = [[ClassName]]}}" [[Search]]
  6. ##    Search == FALSE
  7. ##        :%\\"Class [[ClassName]] derived from [[BaseName]] definition not found in header file.  "
  8. ##*
  9. ##--END-- ? \\"//{{[[BaseName]] = [[ClassName]]}}"
  10. ##0 [[StartLine]]
  11. ##0 [[EndLine]]
  12. ##--BEGIN-- ? \\"//{{[[ClassName]]VIRTUAL_BEGIN}}"
  13. ##    :(YPos() + 2) StartLine
  14. ##    --BEGIN-- ? \\"//{{[[ClassName]]VIRTUAL_END}}"
  15. ##        :YPos() EndLine
  16. ##        :^@StartLine
  17. ##        :^BOL
  18. ##        --BEGIN-- ((StartLine - 1) != EndLine) && (StartLine != EndLine)
  19. ##            :--FOR-- VEntries = 1 TO (EndLine - StartLine)
  20. ##                :ScanVEntry([[FunctionName]])
  21. ##                    :DBVirtual(ClassName, FunctionName)
  22. ##                    :^1
  23. ##*
  24. ##            :--NEXT-- VEntries = 1 TO (EndLine - StartLine)
  25. ##        --END-- ((StartLine - 2) != EndLine) && (StartLine != EndLine)
  26. ##    --END-- ? \\"//{{[[ClassName]]VIRTUAL_END}}"
  27. ##--END-- ? \\"//{{[[ClassName]]VIRTUAL_BEGIN}}"
  28. ##--BEGIN-- QUERY_BASE_NAME == "TDialog"
  29. ##      :^BOF
  30. ##      --BEGIN-- ? \\"[[ClassName]] (TWindow"
  31. ##          :^BOL
  32. ##          :ScanDialog([[RCDialogID]])
  33. ##              :DBDialog(ClassName, RCDialogID)
  34. ##*
  35. ##      --END-- ? \\"[[ClassName]]::[[ClassName]] "
  36. ##--END-- QUERY_BASE_NAME == "TDialog"
  37. ##^BOF
  38. ##--BEGIN-- ? \\"//{{[[ClassName]]AUTO_TBL_BEGIN}}"
  39. ##      :AutomateClass(ClassName)
  40. ##          :{HResAuto.SNP}
  41. ##*
  42. ##--END-- ? \\"//{{[[ClassName]]AUTO_TBL_BEGIN}}"
  43. ##--END-- QUERY_CLASS_NAME [[ClassName]]
  44. >>[H]
  45.  
  46.  
  47. <<[CPP]
  48. ##--BEGIN-- QUERY_CLASS_NAME [[ClassName]]
  49. ##--BEGIN-- QUERY_BASE_NAME == "TDialog"
  50. ##      ^BOF
  51. ##      --BEGIN-- ? \\"//{{[[ClassName]]XFER_USE}}"
  52. ##          :(YPos() + 1) [[StartLine]]
  53. ##          --BEGIN-- ? \\"//{{[[ClassName]]XFER_USE_END}}"
  54. ##              :(YPos() - 2) [[EndLine]]
  55. ##              :^@StartLine
  56. ##              :^BOL
  57. ##              :--FOR-- IEntries = 1 TO (EndLine - StartLine)
  58. ##                  :ScanIEntry([[ResourceID]], [[MemberName]], [[MemberType]])
  59. ##                  :DBInstance(ClassName, ResourceID, MemberName, MemberType)
  60. ##                  :^1
  61. ##*
  62. ##              :--NEXT-- IEntries = 1 TO (EndLine - StartLine)
  63. ##          --END-- ? \\"//{{[[ClassName]]XFER_DEF_END}}"
  64. ##      --END-- ? \\"//{{[[ClassName]]XFER_DEF}}"
  65. ##--END-- QUERY_BASE_NAME == "TDialog"
  66. ##--BEGIN-- @OPT_APPL_DOCVIEW
  67. ##          0 [[StartLine]]
  68. ##          1 [[EndLine]]
  69. ##      --BEGIN-- QUERY_BASE_NAME == "TApplication"
  70. ##          :^BOF
  71. ##          --BEGIN-- ? "//{{DOC_VIEW}}"
  72. ##              :@QUERY_APPL_OLE != VALUE_NOOLE
  73. ##                  :{ResDVOle.snp}
  74. ##*
  75. ##              --BEGIN-- @QUERY_APPL_OLE == VALUE_NOOLE
  76. ##                  :^1
  77. ##                  :YPos() StartLine
  78. ##                  --BEGIN-- ? "//{{DOC_VIEW_END}}"
  79. ##                      :^-1
  80. ##                      :YPos() EndLine
  81. ##                      :^@StartLine
  82. ##                      :^BOL
  83. ##                      :0 [[CurrViewLine]]
  84. ##                      --FOR-- ViewEntry = 1 TO ((EndLine - StartLine) + 1)
  85. ##                          :ScanViewEntry([[Template]], [[TDocument]], [[TView]]) [[viewResult]]
  86. ##                          :YPos() CurrViewLine
  87. ##                          :? "//{{DOC_MANAGER}}"
  88. ##                              :--BEGIN-- ? \\"[[Template]]"
  89. ##                                  :^BOL
  90. ##                                  :ScanDocEntry([[Style]], [[Descr]], [[Filter]], [[Ext]])
  91. ##                                      :DBDocView(Style, Descr, Filter, Ext, TDocument, TView)
  92. ##*
  93. ##                              :--END-- ? \\"[[Template]]"
  94. ##                              :^@CurrViewLine
  95. ##*
  96. ##                          :^1
  97. ##                      --NEXT-- ViewEntry
  98. ##                  --END-- ? "//{{DOC_VIEW_END}}"
  99. ##              --END-- @QUERY_APPL_OLE == VALUE_NOOLE
  100. ##          --END-- ? "//{{DOC_VIEW}}"
  101. ##      --END-- QUERY_BASE_NAME == "TApplication"
  102. ##--END-- @OPT_APPL_DOCVIEW
  103. ##^BOF
  104. ##0 [[StartLine]]
  105. ##0 [[EndLine]]
  106. ##--BEGIN-- ? \\"//{{[[ClassName]]RSP_TBL_BEGIN}}"
  107. ##      :^1
  108. ##      :YPos() StartLine
  109. ##      --BEGIN-- ? \\"//{{[[ClassName]]RSP_TBL_END}}"
  110. ##          :YPos() EndLine
  111. ##          :^@StartLine
  112. ##          :^BOL
  113. ##          --BEGIN-- 0 != (EndLine - StartLine)
  114. ##              :--FOR-- RespEntry = 1 TO (EndLine - StartLine)
  115. ##                  :ScanRespEntry([[RspConstant]], [[RspFunctionName]], [[RspEventType]], [[RspMenuType]])
  116. ##                      :RspEventType != "OWLVIEW"
  117. ##                          :DBResponse(ClassName, RspConstant, RspFunctionName, RspEventType, RspMenuType)
  118. ##*
  119. ##                  :^1
  120. ##              :--NEXT-- RespEntry
  121. ##          --END-- 0 != (EndLine - StartLine)
  122. ##      --END-- ? \\"//{{[[ClassName]]RSP_TBL_END}}"
  123. ##--END-- ? \\"//{{[[ClassName]]RSP_TBL_BEGIN}}"
  124. ##^BOF
  125. ##--BEGIN-- ? \\"//{{[[ClassName]]SYM_TBL_BEGIN}}"
  126. ##      :{CResAuto.SNP}
  127. ##*
  128. ##--END-- ? \\"//{{[[ClassName]]SYM_TBL_BEGIN}}"
  129. ##--END-- QUERY_CLASS_NAME [[ClassName]]
  130. >>[CPP]
  131.