diff -r fc74bd43a3eb -r c110eef5b9ef Cface__GeneratorCommand.st --- a/Cface__GeneratorCommand.st Fri Jul 04 12:05:15 2008 +0000 +++ b/Cface__GeneratorCommand.st Thu Jul 10 07:31:14 2008 +0000 @@ -3,7 +3,7 @@ "{ NameSpace: Cface }" Object subclass:#GeneratorCommand - instanceVariableNames:'platform mappings definitions module' + instanceVariableNames:'platform mappings definitions unixLibraryName win32LibraryName' classVariableNames:'' poolDictionaries:'' category:'Cface-Generators' @@ -74,18 +74,6 @@ "Created: / 18-02-2008 / 15:35:04 / janfrog" ! -module - ^ module - - "Created: / 04-07-2008 / 07:40:38 / Jan Vrany " -! - -module:something - module := something. - - "Created: / 04-07-2008 / 07:40:38 / Jan Vrany " -! - platform platform ifNil:[platform := Cface::Platform theInstance]. @@ -112,6 +100,30 @@ ^platform typeResolver "Created: / 18-02-2008 / 15:30:32 / janfrog" +! + +unixLibraryName + ^ unixLibraryName + + "Created: / 10-07-2008 / 09:07:56 / Jan Vrany " +! + +unixLibraryName:something + unixLibraryName := something. + + "Created: / 10-07-2008 / 09:07:56 / Jan Vrany " +! + +win32LibraryName + ^ win32LibraryName + + "Created: / 10-07-2008 / 09:07:56 / Jan Vrany " +! + +win32LibraryName:something + win32LibraryName := something. + + "Created: / 10-07-2008 / 09:07:56 / Jan Vrany " ! ! !GeneratorCommand methodsFor:'processing'! @@ -122,11 +134,12 @@ self platform typeResolver process: definitions. self platform typeMapper process: definitions using: self mappings. ^self platform generator - module: module; + unixLibraryName: unixLibraryName; + win32LibraryName: win32LibraryName; process: definitions. "Created: / 18-02-2008 / 15:25:54 / janfrog" - "Modified: / 04-07-2008 / 07:40:53 / Jan Vrany " + "Modified: / 10-07-2008 / 09:08:18 / Jan Vrany " ! ! !GeneratorCommand class methodsFor:'documentation'!