home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / BC_502 / APPEXPRT.PAK / CLIENTCG.SNP < prev    next >
Encoding:
Text File  |  1997-05-06  |  3.1 KB  |  98 lines
  1. <<[H]
  2. ##QUERY_PASSED_PARAM [[OldClient]]
  3. ##QUERY_WIND_CLIENT [[Client]]
  4. ##--BEGIN-- Client != ""
  5. ##:     GetIncludeFile(\\"[[Client]]") [[ClientIncludeFile]]
  6. ##^BOF
  7. ##? \\"#include [[ClientIncludeFile]]" [[FoundInclude]]
  8. ##--BEGIN-- FoundInclude == FALSE
  9. ##^BOF
  10. ## ? "#pragma hdrstop" [[PragmaFound]]
  11. ##--BEGIN-- PragmaFound == TRUE
  12. ##^BOL
  13. ##^2
  14. #include [[ClientIncludeFile]]
  15. ##--END-- PragmaFound == TRUE
  16. ##--BEGIN-- PragmaFound == FALSE
  17. ## ? "#include"
  18. ##:     ^BOL
  19. ##:     ^1
  20. #include [[ClientIncludeFile]]
  21. ##--END-- PragmaFound == FALSE
  22. ##--END-- FoundInclude == FALSE
  23. ##QUERY_BASE_NAME [[BaseName]]
  24. ##QUERY_WIND_CLIENT [[Client]]
  25. ##"" [[ClientBase]]
  26. ##--BEGIN-- (BaseName == "TMDIFrame") || (BaseName == "TDecoratedMDIFrame") || (BaseName == "TOleMDIFrame")
  27. ##:  <<*Client QUERY_BASE_NAME ClientBase
  28. ## (Client != "TMDIClient") && (ClientBase != "TMDIClient")
  29. ##:     QUERY_CLASS_NAME [[ClassName]]
  30. ##:     %\\"The class [[ClassName]]'s client can only be a TMDIClient type class.  "
  31. ##*
  32. ##QUERY_CLASS_NAME [[ClassName]]
  33. ##FALSE [[ClientReplace]]
  34. ##--BEGIN-- ? \\"[[ClassName]]("
  35. ##:     YPos() [[ConstructorLine]]
  36. ##:     \\"*new [[OldClient]]" [[MDIFrameClient]]
  37. ##:     ? MDIFrameClient [[FoundIt]]
  38. ##:     --BEGIN-- FoundIt
  39. ##:        (YPos() == ConstructorLine) ClientReplace
  40. ##ClientReplace == FALSE
  41. ##:         %\\"Unable to find client instantiation in constructor.  "
  42. ##*
  43. ##:         ^BOL
  44. ##:         ? MDIFrameClient,"),",0 ClientReplace
  45. ##ClientReplace == FALSE
  46. ##:         %\\"Unable to find client instantiation in constructor.  "
  47. ##*
  48. ##:         QUERY_WIND_CLIENT [[Client]]
  49. ##:         \\QUERY_WIND_CLIENT_PARAM [[ClientParam]]
  50. ##:         InsertText(\\"*new [[Client]][[ClientParam]]")
  51. ##*
  52. ##:     --END-- FoundIt
  53. ##--END-- ? \\"[[ClassName]]("
  54. ##--END-- (BaseName == "TMDIFrame") || (BaseName == "TDecoratedMDIFrame") || (BaseName == "TOleMDIFrame")
  55. ##--END-- Client != ""
  56. >>[H]
  57.  
  58.  
  59. <<[CPP]
  60. ##QUERY_BASE_NAME [[BaseName]]
  61. ## (BaseName == "TMDIFrame") || (BaseName == "TDecoratedMDIFrame")
  62. ##:     Exit()
  63. ##*
  64. ##QUERY_PASSED_PARAM [[OldClient]]
  65. ##--BEGIN-- QUERY_CLASS_NAME [[ClassName]]
  66. ##\\"[[ClassName]]::[[ClassName]](" [[FindClass]]
  67. ##^BOF
  68. ##? FindClass [[Search]]
  69. ##Search == FALSE
  70. ##:     QUERY_FILE_CPP [[FileName]]
  71. ##:     %\\"Unable to locate class constructor in [[FileName]].  "
  72. ##*
  73. ##^BOL
  74. ##^1
  75. ##YPos() [[BaseConstructorLine]]
  76. ##--BEGIN-- ? OldClient,") :",0 [[ClientReplace]]
  77. ##--BEGIN-- ClientReplace == FALSE
  78. ##:^1
  79. ##:? OldClient,") :",0 [[ClientReplace]]
  80. ##:ClientReplace == FALSE
  81. ##:     %\\"Unable to find client instantiation in base constructor.(1)  "
  82. ##*
  83. ##--END-- ClientReplace == FALSE
  84. ##--BEGIN-- ClientReplace
  85. ##(YPos() != BaseConstructorLine) && (YPos() != BaseConstructorLine + 1)
  86. ##:     %\\"Unable to find client instantiation in base constructor.(2)  "
  87. ##*
  88. ##QUERY_WIND_CLIENT [[Client]]
  89. ##\\QUERY_WIND_CLIENT_PARAM [[ClientParam]]
  90. ##:     InsertText(\\"[[Client]][[ClientParam]]")
  91. ##*
  92. ##^BOL
  93. ##^^
  94. ##--END-- ClientReplace
  95. ##--END-- ? OldClient,") :",0 [[ClientReplace]]
  96. ##--END-- QUERY_CLASS_NAME [[ClassName]]
  97. >>[CPP]
  98.