home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / BC_502 / APPEXPRT.PAK / CADDSXFR.SNP < prev    next >
Encoding:
Text File  |  1997-05-06  |  1.3 KB  |  56 lines
  1. ##--BEGIN-- QUERY_CLASS_NAME [[ClassName]]
  2. ##\\"//{{[[ClassName]] Implementation}}" [[ClassMarker]]
  3. ##QUERY_FILE_H [[FileName]]
  4. ##^BOF
  5. ##? ClassMarker [[Search]]
  6. ##Search == FALSE
  7. ##:     %\\"Unable to add [[ClassName]]::SetUpXfer() for instance data to [[FileName]].  "
  8. ##*
  9. ##^BOL
  10. ##^1
  11.  
  12.  
  13. static [[ClassName]]Xfer far *[[ClassName]]Data = 0;
  14.  
  15. [[ClassName]]Xfer far * [[ClassName]]::CreateXfer()
  16. {
  17.   if (![[ClassName]]Data) {
  18.     [[ClassName]]Data = new [[ClassName]]Xfer;
  19.  
  20.     // Initialize all data values to zero.
  21.     //
  22.     memset([[ClassName]]Data, 0, sizeof([[ClassName]]Xfer));
  23.  
  24. //{{[[ClassName]]XFER_CREATE}}
  25. //{{[[ClassName]]XFER_CREATE_END}}
  26.   }
  27.  
  28.   return [[ClassName]]Data;
  29. }
  30.  
  31.  
  32. void [[ClassName]]::ReleaseXfer()
  33. {
  34.   if ([[ClassName]]Data) {
  35. //{{[[ClassName]]XFER_RELEASE}}
  36. //{{[[ClassName]]XFER_RELEASE_END}}
  37.  
  38.     delete [[ClassName]]Data;
  39.     [[ClassName]]Data = 0;
  40.   }
  41. }
  42. ##TRUE [[Search2]]
  43. ##^BOF
  44. ##"#include <mem.h>" IncludeFile
  45. ##--BEGIN-- ? IncludeFile [[Search1]]
  46. ##Search1 == FALSE
  47. ##:     ? "#include" Search2
  48. ##Search2 == FALSE
  49. ##:         %\\"[[ClassName]] missing #include <mem.h> for instance data.  "
  50. ##*
  51. ## (Search1 == FALSE) && (Search2 == TRUE) 
  52. ##:     ^BOL
  53. [[IncludeFile]]
  54. ##--END-- ? IncludeFile [[Search1]]
  55. ##--END-- QUERY_CLASS_NAME [[ClassName]]
  56.