340 bosch_dapasx_kernel unixPathToTop |
340 bosch_dapasx_kernel unixPathToTop |
341 stx_goodies_xml unixPathToTop |
341 stx_goodies_xml unixPathToTop |
342 " |
342 " |
343 |
343 |
344 "Created: / 09-08-2006 / 15:45:54 / fm" |
344 "Created: / 09-08-2006 / 15:45:54 / fm" |
345 "Modified: / 17-08-2006 / 14:17:59 / cg" |
345 "Modified: / 07-09-2006 / 15:50:54 / cg" |
346 ! |
346 ! |
347 |
347 |
348 pathToTop_win32 |
348 pathToTop_win32 |
349 "Returns the path to stx counting the number of $/ and $: in the package name and adding for each one '../' to get the ST/X top directory" |
349 "Returns the path to stx counting the number of $/ and $: in the package name and adding for each one '../' to get the ST/X top directory" |
350 |
350 |
354 bosch_dapasx_datenbasis pathToTop_win32 |
354 bosch_dapasx_datenbasis pathToTop_win32 |
355 stx_libbasic pathToTop_win32 |
355 stx_libbasic pathToTop_win32 |
356 " |
356 " |
357 |
357 |
358 "Created: / 09-08-2006 / 15:45:54 / fm" |
358 "Created: / 09-08-2006 / 15:45:54 / fm" |
359 "Modified: / 17-08-2006 / 14:25:28 / cg" |
359 "Modified: / 07-09-2006 / 15:51:00 / cg" |
360 ! |
360 ! |
361 |
361 |
362 requiredProjects |
362 requiredProjects |
363 |
363 |
364 ^self preRequisites, self subProjects |
364 ^self preRequisites, self subProjects |
1039 |fileNamesAndSelectors| |
1039 |fileNamesAndSelectors| |
1040 |
1040 |
1041 fileNamesAndSelectors := self fileNamesToGenerate asOrderedCollection. |
1041 fileNamesAndSelectors := self fileNamesToGenerate asOrderedCollection. |
1042 fileNamesAndSelectors |
1042 fileNamesAndSelectors |
1043 add:(Array |
1043 add:(Array |
1044 with:self packageName , '.rc' |
1044 with:self rcFilename |
1045 with:#'generate_packageName_dot_rc'). |
1045 with:#'generate_packageName_dot_rc'). |
1046 fileNamesAndSelectors pairsDo:aTwoArgBlock |
1046 fileNamesAndSelectors pairsDo:aTwoArgBlock |
|
1047 |
|
1048 "Modified: / 07-09-2006 / 17:07:58 / cg" |
1047 ! |
1049 ! |
1048 |
1050 |
1049 generateFile:filename |
1051 generateFile:filename |
1050 self fileNamesToGenerate |
1052 self fileNamesToGenerate |
1051 pairsDo:[:fn :action | |
1053 pairsDo:[:fn :action | |
1052 filename = fn ifTrue:[ |
1054 filename = fn ifTrue:[ |
1053 ^ self perform:action |
1055 ^ self perform:action |
1054 ]. |
1056 ]. |
1055 ]. |
1057 ]. |
1056 filename = 'application.rc' ifTrue:[ |
1058 (filename = 'application.rc' or:[filename = self rcFilename]) ifTrue:[ |
1057 ^ self generate_packageName_dot_rc |
1059 ^ self generate_packageName_dot_rc |
1058 ]. |
1060 ]. |
1059 self error:('File "%1" not appropriate (not generated) for this type of project.' |
1061 self error:('File "%1" not appropriate (not generated) for this type of project.' |
1060 bindWith:filename) |
1062 bindWith:filename) |
1061 |
1063 |
1062 "Modified: / 30-08-2006 / 19:22:52 / cg" |
1064 "Modified: / 07-09-2006 / 17:08:38 / cg" |
1063 ! |
1065 ! |
1064 |
1066 |
1065 generate_abbrev_dot_stc |
1067 generate_abbrev_dot_stc |
1066 ^ String |
1068 ^ String |
1067 streamContents:[:s | |
1069 streamContents:[:s | |