345     exporter := [:pkgnm|

   345     exporter := [:pkgnm|

   346         | mcpkg mcwc mcvi mcversion |

   346         | mcpkg mcwc mcvi mcversion |

   347 

   347 

   348         Stdout nextPutAll: 'Exporting '; nextPutLine: pkgnm.

   348         Stdout nextPutAll: 'Exporting '; nextPutLine: pkgnm.

   349         mcpkg := MCPackage named: pkgnm.

   349         mcpkg := MCPackage named: pkgnm.

   351         mcvi := HGMCVersionInfo forPackage: pkgnm.

   351         mcvi := HGMCVersionInfo forPackage: pkgnm.

   353         [

   353         [

   354            mcversion := mcwc newVersion.

   354            mcversion := mcwc newVersion.

   356         ] on: MCVersionNameAndMessageRequest do:[:ex |

   356         ] on: MCVersionNameAndMessageRequest do:[:ex |

   357             ex resume: (Array with: mcvi name with: message)

   357             ex resume: (Array with: mcvi name with: message)

   358         ].

   358         ].

   360         mcrepo storeVersion: mcversion.

   360         mcrepo storeVersion: mcversion.

   361     ].

   361     ].

   362 

   362 

   363     mcrepo := MCDirectoryRepository new directory: directory.

   363     mcrepo := MCDirectoryRepository new directory: directory.

   364     packages do: exporter.

   364     packages do: exporter.

   366     "

   366     "

   367     stx_goodies_petitparser monticelloExportTo: '/tmp'

   367     stx_goodies_petitparser monticelloExportTo: '/tmp'

   368     "

   368     "

   369 

   369 

   370     "Created: / 04-10-2014 / 21:30:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   370     "Created: / 04-10-2014 / 21:30:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   372 ! !

   372 ! !

   373 

   373 

   374 !stx_goodies_petitparser class methodsFor:'documentation'!

   374 !stx_goodies_petitparser class methodsFor:'documentation'!

   375 

   375 

   376 version

   376 version