home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / BC_502 / APPEXPRT.PAK / AUTOREG.SNP < prev    next >
Encoding:
Text File  |  1997-05-06  |  5.7 KB  |  151 lines
  1. <<[CPP]
  2. ##^BOF
  3. ##TRUE [[Search1]]
  4. ##TRUE [[Search2]]
  5. ##"#include <owl/olefacto.h>" [[IncludeFile]]
  6. ##--BEGIN-- ? IncludeFile [[Search1]]
  7. ##      Search1 == FALSE
  8. ##      :? "#include " Search2
  9. ##*
  10. ##      Search2 == FALSE
  11. ##:     %\\"Missing any #include for class instantiation.  "
  12. ##*
  13. ##      (Search1 == FALSE) && (Search2 == TRUE)
  14. ##      :^BOL
  15. ##      :^2
  16. [[IncludeFile]]
  17. ##--END-- ? IncludeFile [[Search1]]
  18. ##^BOF
  19. ##FALSE [[RegAndFact]]
  20. ##FALSE [[Template]]
  21. ##--BEGIN-- ? "BEGIN_REGISTRATION(ApplicationReg)" [[RegThere]]
  22. ##      --BEGIN-- RegThere == FALSE
  23. ##          --BEGIN-- QUERY_CLASS_NAME [[ClassName]]
  24. ##              :"//{{[[ClassName]] Implementation}}" [[ClassMarker]]
  25. ##              :\\ClassMarker [[LookUp]]
  26. ##              :QUERY_FILE_CPP [[FileName]]
  27. ##              :^BOF
  28. ##              :? LookUp [[Search]]
  29. ##              :Search == FALSE
  30. ##                  :%\\"Unable to add application registration to [[FileName]].  "
  31. ##*
  32. ##              :^BOL
  33. ##          --END-- QUERY_CLASS_NAME [[ClassName]]
  34. DEFINE_APP_DICTIONARY(AppDictionary);
  35. ##@QUERY_APPL_OLE == VALUE_NOOLE
  36. static TPointer<TRegistrar> Registrar;
  37. ##@QUERY_APPL_OLE != VALUE_NOOLE
  38. static TPointer<TOcRegistrar> Registrar;
  39.  
  40. REGISTRATION_FORMAT_BUFFER(200)
  41.  
  42. BEGIN_REGISTRATION(ApplicationReg)
  43. ##          --BEGIN-- @QUERY_OLE_GUID [[GUID]]
  44. ##              :GUID != ""
  45.   REGDATA(clsid, "{[[GUID]]}")
  46. ##              :GUID == ""
  47.   REGDATA(clsid, "{544C5355-4547-4C4C-5248-4C4C75636173}")
  48. ##          --END-- @QUERY_OLE_GUID [[GUID]]
  49. ##          --BEGIN-- @QUERY_PRJ_NAME [[AppTitle]]
  50.   REGDATA(progid, "[[AppTitle]].Application.1")
  51.   REGDATA(appname, "[[AppTitle]] Server")
  52.   REGDATA(description, "[[AppTitle]] Server Application")
  53.   REGDATA(cmdline, "/Automation")
  54. //  REGDATA(debugger, "TDW")
  55. ##          --END-- @QUERY_PRJ_NAME [[AppTitle]]
  56. END_REGISTRATION
  57.  
  58. ##      --END-- RegThere == FALSE
  59. ##      --BEGIN-- QUERY_CLASS_NAME [[ClassName]]
  60. ##          :^BOF
  61. ##          :? "TApplication("
  62. ##              :^EOS
  63. ##              :YPos() [[CurrYLine]]
  64. ##              :XPos() [[CurrXCol]]
  65. ##              :? ","
  66. ##                  :YPos() != CurrYLine
  67. ##                      :^@CurrYLine, CurrXCol
  68. ##                      :? ")"
  69. ##                          :YPos() == CurrYLine
  70. ##                              :^BOS
  71. ##                              :XPos() [[X1Pos]]
  72. ##                              :^@CurrYLine, CurrXCol
  73. ##                              :^DROP
  74. ##                              :^@CurrYLine,(X1Pos - 1)
  75. ##                              :^RAISE
  76. ##                              :InsertText("::ApplicationReg[\"appname\"], ::Module, &::AppDictionary")
  77. ##*
  78. ##          :^BOF
  79. ##          :? " TOcRegistrar(" RegAndFact
  80. ##          RegAndFact == FALSE
  81. ##              :^BOF
  82. ##              :? " TRegistrar(" RegAndFact
  83. ##          FALSE [[AppFound]]
  84. ##          FALSE [[appFound]]
  85. ##          --BEGIN-- RegAndFact == FALSE
  86. ##              :^BOF
  87. ##              :? " OwlMain"
  88. ##                  :? \\"[[ClassName]] "
  89. ##                      :^BOL
  90. ##                      :^DELL
  91. ##                      --BEGIN-- @QUERY_APPL_OLE == VALUE_NOOLE
  92.   ::Registrar = new TRegistrar(::ApplicationReg, TAutoFactory<[[ClassName]]>(), TApplication::GetCmdLine(), _hInstance);
  93.   if (::Registrar->IsOptionSet(amAnyRegOption))
  94.     return 0;
  95.  
  96. ##                      --END-- @QUERY_APPL_OLE == VALUE_NOOLE
  97. ##                      --BEGIN-- @QUERY_APPL_OLE != VALUE_NOOLE
  98.   ::Registrar = new TOcRegistrar(::ApplicationReg, TOleDocViewAutoFactory<[[ClassName]]>(), TApplication::GetCmdLine(), ::DocTemplateStaticHead);
  99.   if (::Registrar->IsOptionSet(amAnyRegOption))
  100.     return 0;
  101.  
  102. ##                      --END-- @QUERY_APPL_OLE != VALUE_NOOLE
  103. ##                      :? \\"App.Run(" AppFound
  104. ##                      :AppFound == FALSE
  105. ##                          :? \\"app.Run(" appFound
  106. ##*
  107. ##                      :((AppFound == TRUE) || (appFound == TRUE))
  108. ##                          :^BOS
  109. ##                          :YPos() [[CurrYPos]]
  110. ##                          :XPos() [[CurrXPos]]
  111. ##                          :^@CurrYPos, CurrXPos
  112. ##                          :^DROP
  113. ##                          :^@CurrYPos,(CurrXPos + 3)
  114. ##                          :^RAISE
  115. ##                          :InsertText("::Registrar->")
  116. ##*
  117. ##          --END-- RegAndFact == FALSE
  118. ##          --BEGIN-- RegAndFact == TRUE
  119. ##              :YPos() [[CurrYLine]]
  120. ##              :? ","
  121. ##                  :YPos() == CurrYLine
  122. ##                      :^EOS
  123. ##                      :XPos() [[X1Pos]]
  124. ##                      :? ","
  125. ##                          :YPos() == CurrYLine
  126. ##                              :^BOS
  127. ##                              :XPos() [[X2Pos]]
  128. ##                              :^@CurrYLine, X1Pos
  129. ##                              :^DROP
  130. ##                              :^@CurrYLine,(X2Pos - 1)
  131. ##                              :^RAISE
  132. ##                              --BEGIN-- TRUE
  133. ##                                  :@QUERY_APPL_OLE == VALUE_NOOLE
  134. ##                                      :InsertText(\\" TAutoFactory<[[ClassName]]>()")
  135. ##*
  136. ##                                  :@QUERY_APPL_OLE != VALUE_NOOLE
  137. ##                                      :InsertText(\\" TOleDocViewAutoFactory<[[ClassName]]>()")
  138. ##*
  139. ##                              --END-- TRUE
  140. ##*
  141. ##              :^BOF
  142. ##              :? "REGDATA(cmdline, \""
  143. ##              :^EOS
  144. ##              :? "/Automation" == FALSE
  145. ##                  :InsertText("/Automation")
  146. ##*
  147. ##          --END-- RegAndFact == TRUE
  148. ##      --END-- QUERY_CLASS_NAME [[ClassName]]
  149. ##--END-- ? "BEGIN_REGISTRATION(ApplicationReg)" [[RegThere]]
  150. >>[CPP]
  151.