home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 May / Pcwk5b98.iso / Borland / Cplus45 / BC45 / EXPERT.PAK / VERIFY.SNP < prev    next >
Text File  |  1995-08-29  |  2KB  |  65 lines
  1. <<[H]
  2. ##--BEGIN-- QUERY_CLASS_NAME [[ClassName]]
  3. ##QUERY_BASE_NAME [[BaseName]]
  4. ##^BOF
  5. ##--BEGIN-- ? \\"//{{[[BaseName]] = [[ClassName]]}}" [[Search]]
  6. ##Search == TRUE
  7. ##:     VerifyClass(BaseName, ClassName) [[result]]
  8. ##:     result == FALSE
  9. ##:     Exit()
  10. ##*
  11. ##Search == FALSE
  12. ##:     VerifyClass("", ClassName) [[result2]]
  13. ##:     Exit()
  14. ##*
  15. ##--END-- ? \\"//{{[[BaseName]] = [[ClassName]]}}"
  16. ##*
  17. ##--BEGIN-- ? \\"//{{[[ClassName]]VIRTUAL_BEGIN}}"
  18. ##:     (YPos() + 2) [[StartLine]]
  19. ##:     --BEGIN-- ? \\"//{{[[ClassName]]VIRTUAL_END}}"
  20. ##:         YPos() [[EndLine]]
  21. ##:         ^@StartLine
  22. ##:         ^BOL
  23. ##:         --FOR-- VEntries = 1 TO (EndLine - StartLine)
  24. ##:             ScanIEntry([[FunctionName]])
  25. ##:             DBVirtual(ClassName, FunctionName)
  26. ##*    
  27. ##:         --NEXT-- VEntries = 1 TO (EndLine - StartLine)
  28. ##:     --END-- ? \\"//{{[[ClassName]]VIRTUAL_END}}"
  29. ##--END-- ? \\"//{{[[ClassName]]VIRTUAL_BEGIN}}"
  30. ##--END-- QUERY_CLASS_NAME [[ClassName]]
  31. >>[H]
  32.  
  33.  
  34. <<[CPP]
  35. ##--BEGIN-- QUERY_CLASS_NAME [[ClassName]]
  36. ##--BEGIN-- QUERY_BASE_NAME == TDIALOG
  37. ##:     ^BOF
  38. ##:     --BEGIN-- ? \\"[[ClassName]]::[[ClassName]] "
  39. ##:         ^1
  40. ##:         ^BOL
  41. ##:         ScanDialog([[RCDialogID]])
  42. ##:             DBDialog(ClassName, RCDialogID)
  43. ##*
  44. ##:     --END-- ? \\"[[ClassName]]::[[ClassName]] "
  45. ##--END-- QUERY_BASE_NAME == TDIALOG
  46. ##^BOF
  47. ##--BEGIN-- ? \\"//{{[[ClassName]]RSP_TBL_BEGIN}}"
  48. ##:     ^1
  49. ##:     YPos() [[StartLine]]
  50. ##:     --BEGIN-- ? \\"//{{[[ClassName]]RSP_TBL_END}}"
  51. ##:         ^-1
  52. ##:         YPos() [[EndLine]]
  53. ##:         ^@StartLine + 1
  54. ##:         ^BOL
  55. ##:         --FOR-- RespEntry = 1 TO ((EndLine - StartLine) + 1)
  56. ##:             ScanRespEntry([[RspConstant]], [[RspFunctionName]], [[RspEventType]], [[RspMenuType]]) [[result]]
  57. ##:                 DBResponse(ClassName, RspConstant, RspFunctionname, RspEventType, RspMenuType)
  58. ##*
  59. ##:             ^1
  60. ##:         --NEXT-- RespEntry
  61. ##:     --END-- ? \\"//{{[[ClassName]]RSP_TBL_END}}"
  62. ##--END-- ? \\"//{{[[ClassName]]RSP_TBL_BEGIN}}"
  63. ##--END-- QUERY_CLASS_NAME [[ClassName]]
  64. >>[CPP]
  65.