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