home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 May / Pcwk5b98.iso / Borland / Cplus45 / BC45 / EXPERT.PAK / HRESAUTO.SNP < prev    next >
Text File  |  1995-08-29  |  3KB  |  60 lines
  1. ##0 [[StartLine]]
  2. ##0 [[EndLine]]
  3. ##0 [[GetProp]]
  4. ##0 [[SetProp]]
  5. ##--BEGIN-- TRUE
  6. ##      :^1
  7. ##      :YPos() StartLine
  8. ##      --BEGIN-- ? \\"//{{[[ClassName]]AUTO_TBL_END}}"
  9. ##          :^-1
  10. ##          :YPos() EndLine
  11. ##          :^@StartLine
  12. ##          :^BOL
  13. ##          :0 [[CurrAutoLine]]
  14. ##          --FOR-- AutoEntry = 1 TO ((EndLine - StartLine) + 1)
  15. ##              :ScanAutoEntry([[InternalName]], [[Kind]], [[GetExtName]], [[SetExtName]], [[GetProp]], [[SetProp]])
  16. ##              --BEGIN-- TRUE
  17. ##                  :YPos() CurrAutoLine
  18. ##                  :^BOF
  19. ##                  :Kind == 1
  20. ##                      :? \\"//{{[[ClassName]]AUTO_DATA_BEGIN}}"
  21. ##                          :? \\" [[GetExtName]]"
  22. ##                              :^BOL
  23. ##                              :ScanDataEntry([[CPPType]])
  24. ##                                  :"" [[CPPArgs]]
  25. ##                                  :AddAutomation(ClassName, Kind, InternalName, GetExtName, SetExtName, CPPType, GetProp, SetProp, CPPArgs)
  26. ##*
  27. ##                  :Kind == 2
  28. ##                      :? \\"//{{[[ClassName]]AUTO_PROP_BEGIN}}"
  29. ##                          --BEGIN-- GetProp == TRUE
  30. ##                              :? \\" [[GetExtName]] "
  31. ##                                  :^BOL
  32. ##                                  :ScanGetProp(GetExtName, [[CPPType]])
  33. ##                                      :"" [[CPPArgs]]
  34. ##                                      :AddAutomation(ClassName, Kind, InternalName, GetExtName, SetExtName, CPPType, GetProp, SetProp, CPPArgs)
  35. ##*
  36. ##                          --END-- GetProp == TRUE
  37. ##                          --BEGIN-- ((SetProp == TRUE) && (GetProp == FALSE))
  38. ##                              :? \\" [[SetExtName]] "
  39. ##                                  :^BOL
  40. ##                                  :ScanSetProp([[CPPType]])
  41. ##                                      :"" [[CPPArgs]]
  42. ##                                      :AddAutomation(ClassName, Kind, InternalName, GetExtName, SetExtName, CPPType, GetProp, SetProp, CPPArgs)
  43. ##*
  44. ##                          --END-- ((SetProp == TRUE) && (GetProp == FALSE))
  45. ##*
  46. ##                  :Kind == 3
  47. ##                      :? \\"//{{[[ClassName]]AUTO_METH_BEGIN}}"
  48. ##                          :? \\" [[GetExtName]] "
  49. ##                              :^BOL
  50. ##                              :ScanMethEntry(GetExtName, [[CPPType]], [[CPPArgs]])
  51. ##                                  :AddAutomation(ClassName, Kind, InternalName, GetExtName, SetExtName, CPPType, GetProp, SetProp, CPPArgs)
  52. ##*
  53. ##              --END-- TRUE
  54. ##              :^@CurrAutoLine
  55. ##*
  56. ##              :^1
  57. ##          --NEXT-- AutoEntry
  58. ##      --END-- ? \\"//{{[[ClassName]]AUTO_TBL_END}}"
  59. ##--END-- TRUE
  60.