home *** CD-ROM | disk | FTP | other *** search
/ C Programming Starter Kit 2.0 / SamsPublishing-CProgrammingStarterKit-v2.0-Win31.iso / bc45 / expert.pak / DELAUTO.SNP < prev    next >
Text File  |  1997-07-23  |  7KB  |  178 lines
  1. <<[H]
  2. ##QUERY_SNP_AUTO_KIND [[Kind]]
  3. ##QUERY_SNP_AUTO_NAME [[InternalName]]
  4. ##QUERY_SNP_AUTO_GETNAME [[GetName]]
  5. ##QUERY_SNP_AUTO_SETNAME [[SetName]]
  6. ##QUERY_SNP_AUTO_CPPTYPE [[CPPType]]
  7. ##QUERY_SNP_AUTO_OLETYPE [[OLEType]]
  8. ##QUERY_SNP_AUTO_DESCR [[Description]]
  9. ##QUERY_SNP_AUTO_GETPROPERTY [[GetProperty]]
  10. ##QUERY_SNP_AUTO_SETPROPERTY [[SetProperty]]
  11. ##QUERY_SNP_AUTO_CPPARGS [[CPPArguments]]
  12. ##QUERY_SNP_AUTO_OLEARGS [[OLEArguments]]
  13. ##QUERY_SNP_AUTO_VALIDATOR [[Validator]]
  14. ##"" [[SearchStr]]
  15. ##--BEGIN-- QUERY_CLASS_NAME [[ClassName]]
  16. ##--BEGIN--Kind == VALUE_DATA
  17. ##      :OLEType == "TAutoBool"
  18. ##          :"TAutoBool" CPPType
  19. ##*
  20. ##(OLEType == CPPType) && (OLEType != "TAutoCurrency") && (OLEType != "TAutoDate") && (OLEType != "TAutoBool")
  21. ##      --BEGIN-- StripPtrRef(CPPType, [[StripCPPType]]) [[AnyStripping]]
  22. ##          !AnyStripping
  23. ##              :\\"AUTODATA([[InternalName]], [[InternalName]], TAutoObject<[[StripCPPType]]>, )" SearchStr
  24. ##*
  25. ##          AnyStripping
  26. ##              :\\"AUTODATA([[InternalName]], [[InternalName]], TAutoObject<[[StripCPPType]]>, )" SearchStr
  27. ##*
  28. ##      --END-- StripPtrRef(CPPType, [[StripCPPType]]) [[AnyStripping]]
  29. ##*
  30. ##(OLEType != CPPType) && (OLEType != "TAutoString")
  31. ##      :\\"AUTODATA([[InternalName]], [[InternalName]], [[CPPType]], )" SearchStr
  32. ##*
  33. ##(OLEType == CPPType) && ((OLEType == "TAutoCurrency") || (OLEType == "TAutoDate") || (OLEType == "TAutoBool"))
  34. ##      :\\"AUTODATA([[InternalName]], [[InternalName]], [[CPPType]], )" SearchStr
  35. ##*
  36. ##(OLEType == "TAutoString") && (CPPType != "string")
  37. ##      :\\"AUTODATA([[InternalName]], [[InternalName]], TAutoString, )" SearchStr
  38. ##*
  39. ##(OLEType == "TAutoString") && (CPPType == "string")
  40. ##      :\\"AUTODATA([[InternalName]], [[InternalName]], string, )" SearchStr
  41. ##*
  42. ##      :^BOF
  43. ##      :? SearchStr [[Search]]
  44. ##      :Search == TRUE
  45. ##      :^BOL
  46. ##      :^DELL
  47. ##*
  48. ##--END--Kind == VALUE_DATA
  49. ##--BEGIN-- Kind == VALUE_PROPERTY
  50. ##      :OLEType == "TAutoBool"
  51. ##          :"TAutoBool" CPPType
  52. ##*
  53. ##      :"" [[XlateOLEProp]]
  54. ##      --BEGIN-- "" [[OLEAutoProp]]
  55. ##          :^BOL
  56. ##          :(OLEType == CPPType) && (OLEType != "TAutoCurrency") && (OLEType != "TAutoDate") && (OLEType != "TAutoBool")
  57. ##              --BEGIN-- StripPtrRef(CPPType, [[StripCPPType]]) [[AnyStripping]]
  58. ##                  !AnyStripping
  59. ##                      :\\"TAutoObject<[[StripCPPType]]>" OLEAutoProp
  60. ##*
  61. ##                  AnyStripping
  62. ##                      :\\"TAutoObject<[[StripCPPType]]>" OLEAutoProp
  63. ##*
  64. ##              --END-- StripPtrRef(CPPType) [[StripCPPType]]
  65. ##*
  66. ##          :(OLEType != CPPType) && (OLEType != "TAutoString")
  67. ##              :"[[CPPType]]" OLEAutoProp
  68. ##*
  69. ##          :(OLEType == CPPType) && ((OLEType == "TAutoCurrency") || (OLEType == "TAutoDate") || (OLEType == "TAutoBool"))
  70. ##              :"[[CPPType]]" OLEAutoProp
  71. ##*
  72. ##          :(OLEType == "TAutoString") && (CPPType != "string")
  73. ##              :"TAutoString" OLEAutoProp
  74. ##*
  75. ##          :(OLEType == "TAutoString") && (CPPType == "string")
  76. ##              :"string" OLEAutoProp
  77. ##*
  78. ##          :\\OLEAutoProp XlateOLEProp
  79. ##          :(GetProperty == TRUE) && (SetProperty == TRUE)
  80. ##              :\\"AUTOPROP([[InternalName]], [[GetName]], [[SetName]], [[XlateOLEProp]],)" SearchStr
  81. ##*
  82. ##          :(GetProperty == TRUE) && (SetProperty == FALSE)
  83. ##              :\\"AUTOPROPRO([[InternalName]], [[GetName]], [[XlateOLEProp]], )" SearchStr
  84. ##*
  85. ##          :(GetProperty == FALSE) && (SetProperty == TRUE)
  86. ##              :\\"AUTOPROPWO([[InternalName]], [[SetName]], [[XlateOLEProp]], )" SearchStr
  87. ##*
  88. ##      --END-- "" [[OLEAutoProp]]
  89. ##      :^BOF
  90. ##      :? SearchStr [[Search]]
  91. ##      :Search == TRUE
  92. ##      :^BOL
  93. ##      :^DELL
  94. ##*
  95. ##--END-- Kind == VALUE_PROPERTY
  96. ##"" [[AutoFuncLine]]
  97. ##--BEGIN-- Kind == VALUE_METHOD
  98. ##      :{MethRip.SNP}
  99. ##      :? AutoFuncLine [[Search]]
  100. ##      :Search == TRUE
  101. ##          :^BOL
  102. ##          :^DELL
  103. ##*
  104. ##--END-- Kind == VALUE_METHOD
  105. ##--END-- QUERY_CLASS_NAME [[ClassName]]
  106. ##*
  107. >>[H]
  108.  
  109.  
  110. <<[CPP]
  111. ##QUERY_SNP_AUTO_KIND [[Kind]]
  112. ##QUERY_SNP_AUTO_NAME [[InternalName]]
  113. ##QUERY_SNP_AUTO_GETNAME [[GetName]]
  114. ##QUERY_SNP_AUTO_SETNAME [[SetName]]
  115. ##QUERY_SNP_AUTO_CPPTYPE [[CPPType]]
  116. ##QUERY_SNP_AUTO_OLETYPE [[OLEType]]
  117. ##QUERY_SNP_AUTO_DESCR [[Description]]
  118. ##QUERY_SNP_AUTO_GETPROPERTY [[GetProperty]]
  119. ##QUERY_SNP_AUTO_SETPROPERTY [[SetProperty]]
  120. ##QUERY_SNP_AUTO_CPPARGS [[CPPArguments]]
  121. ##QUERY_SNP_AUTO_OLEARGS [[OLEArguments]]
  122. ##QUERY_SNP_AUTO_VALIDATOR [[Validator]]
  123. ##"" [[SearchStr]]
  124. ##--BEGIN-- QUERY_CLASS_NAME [[ClassName]]
  125. ##--BEGIN--Kind == VALUE_DATA
  126. ##      :(OLEType == CPPType) && (OLEType != "TAutoCurrency") && (OLEType != "TAutoDate")
  127. ##          :StripPtrRef(OLEType, [[StripCPPType]]) [[AnyStripping]]
  128. ##          :StripCPPPType OLEType
  129. ##*
  130. ##      :\\"EXPOSE_PROPRW([[InternalName]], [[OLEType]], \"[[InternalName]]\"" SearchStr
  131. ##      :? SearchStr [[Search]]
  132. ##      :Search == TRUE
  133. ##      :^BOL
  134. ##      :^DELL
  135. ##*
  136. ##--END--Kind == VALUE_DATA
  137. ##--BEGIN-- Kind == VALUE_PROPERTY
  138. ##      :(OLEType == CPPType) && (OLEType != "TAutoCurrency") && (OLEType != "TAutoDate")
  139. ##          :StripPtrRef(OLEType, [[StripCPPType]]) [[AnyStripping]]
  140. ##          :StripCPPType OLEType
  141. ##*
  142. ##(GetProperty == TRUE) && (SetProperty == TRUE)
  143. ##      :\\"EXPOSE_PROPRW([[InternalName]], [[OLEType]], \"[[InternalName]]\"" SearchStr
  144. ##*
  145. ##(GetProperty == TRUE) && (SetProperty == FALSE)
  146. ##      :\\"EXPOSE_PROPRO([[InternalName]], [[OLEType]], \"[[InternalName]]\"" SearchStr
  147. ##*
  148. ##(GetProperty == FALSE) && (SetProperty == TRUE)
  149. ##      :\\"EXPOSE_PROPWO([[InternalName]], [[OLEType]], \"[[InternalName]]\"" SearchStr
  150. ##*
  151. ##      :? SearchStr [[Search]]
  152. ##      :Search == TRUE
  153. ##          :^BOL
  154. ##          :^DELL
  155. ##*
  156. ##--END-- Kind == VALUE_PROPERTY
  157. ##--BEGIN-- Kind == VALUE_METHOD
  158. ##      :(OLEType == CPPType) && (OLEType != "TAutoCurrency") && (OLEType != "TAutoDate")
  159. ##          :StripPtrRef(OLEType, [[StripCPPType]]) [[AnyStripping]]
  160. ##          :StripCPPType OLEType
  161. ##*
  162. ##      :\\"EXPOSE_METHOD([[InternalName]], [[OLEType]], \"[[InternalName]]\"" SearchStr
  163. ##      :? SearchStr [[Search]]
  164. ##      :Search == TRUE
  165. ##          :^BOL
  166. ##          :^DELL
  167. ##*
  168. ##      :AutoParse(CPPArguments, OLEArguments)
  169. ##AutoCount() [[Count]]
  170. ##          --FOR-- Index = 1 TO Count
  171. ##              :^DELL
  172. ##          --Next-- Index
  173. ##      :AutoReset()
  174. ##*
  175. ##--END-- Kind == VALUE_METHOD
  176. ##--END-- QUERY_CLASS_NAME [[ClassName]]
  177. >>[CPP]
  178.