home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 May / Pcwk5b98.iso / Borland / Cplus45 / BC45 / EXPERT.PAK / CLIENTCG.SNP < prev    next >
Text File  |  1995-08-29  |  3KB  |  94 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")
  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")
  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. ##ClientReplace == FALSE
  78. ##:     %\\"Unable to find client instantiation in base constructor.  " 
  79. ##*
  80. ##--BEGIN-- ClientReplace
  81. ##YPos() != BaseConstructorLine
  82. ##:     %\\"Unable to find client instantiation in base constructor.  " 
  83. ##*
  84. ##QUERY_WIND_CLIENT [[Client]]
  85. ##\\QUERY_WIND_CLIENT_PARAM [[ClientParam]]
  86. ##:     InsertText(\\"[[Client]][[ClientParam]]")
  87. ##*
  88. ##^BOL
  89. ##^^
  90. ##--END-- ClientReplace
  91. ##--END-- ? OldClient,") :",0 [[ClientReplace]]
  92. ##--END-- QUERY_CLASS_NAME [[ClassName]]
  93. >>[CPP]
  94.