home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / BC_502 / APPEXPRT.PAK / CADDMETH.SNP < prev    next >
Encoding:
Text File  |  1997-05-06  |  1.8 KB  |  59 lines
  1. ##"//{{[[ClassName]]SYM_TBL_END}}" [[ClassTMarker]]
  2. ##\\ClassTMarker [[ClassMarker]]
  3. ##^BOF
  4. ##--BEGIN-- ? ClassMarker [[Search]]
  5. ##Search == FALSE
  6. ##      :{CAddSym.SNP}
  7. ##      :^BOF
  8. ##      :? ClassMarker [[Search]]
  9. ##*
  10. ##--END-- ? ClassMarker [[Search]]
  11. ##^BOL
  12. ## (OLEType == CPPType) && (OLEType != "TAutoCurrency") && (OLEType != "TAutoDate")
  13. ##      :StripPtrRef(OLEType, [[StripType]]) [[AnyStripping]]
  14. ##      :StripType OLEType
  15. ##*
  16.   EXPOSE_METHOD([[InternalName]], [[OLEType]], "[[InternalName]]", "[[Description]]", 0)
  17. ##"" [[OLEArg]]
  18. ##"" [[ParamName]]
  19. ##"" [[CPPArg]]
  20. ##"" [[StripArg]]
  21. ##--BEGIN-- AutoParse(CPPArguments, OLEArguments)
  22. ##      --BEGIN-- AutoCount() [[Count]]
  23. ##          --FOR-- Index = 1 TO Count
  24. ##              :AutoOLE(Index - 1) OLEArg
  25. ##              :AutoName(Index - 1) ParamName
  26. ##              :AutoCPP(Index - 1) CPPArg
  27. ##              :(OLEArg == CPPArg) && (OLEArg != "TAutoCurrency") && (OLEArg != "TAutoDate")
  28. ##                  :StripPtrRef(OLEArg, [[StripArg]]) [[AnyStripping]]
  29. ##                  :StripArg OLEArg
  30. ##*
  31.     REQUIRED_ARG([[OLEArg]], "[[ParamName]]")
  32. ##          --Next-- Index
  33. ##      --END-- AutoCount() [[Count]]
  34. ##--END-- AutoParse([[CPPArguments]], [[OLEArguments]])
  35. ##AutoReset()
  36. ##0 [[DuplicateFunction]]
  37. ##--BEGIN-- TRUE
  38. ##      {FindAuto.SNP}
  39. ##      DuplicateFunction MethodDuplicateFunc
  40. ##      0 [[ScrollPosition]]
  41. ##      --BEGIN-- DuplicateFunction == 0
  42. ##          :^EOF
  43. ##          :(YPos() + 2) ScrollPosition
  44. ##          --BEGIN-- TRUE
  45.  
  46.  
  47. [[CPPType]] [[ClassName]]::[[InternalName]][[CPPArguments]]
  48. {
  49.   // INSERT>> Your code here.
  50.  
  51. }
  52. ##          --END-- TRUE
  53. ##          :^@ScrollPosition
  54. ##          :^BOL
  55. ##          :^SCROLL
  56. ##          :^^
  57. ##      --END-- DuplicateFunction == 0
  58. ##--END-- TRUE
  59.