equal
deleted
inserted
replaced
11 " |
11 " |
12 |
12 |
13 "{ Package: 'stx:libbasic3' }" |
13 "{ Package: 'stx:libbasic3' }" |
14 |
14 |
15 ProjectDefinition subclass:#LibraryDefinition |
15 ProjectDefinition subclass:#LibraryDefinition |
16 instanceVariableNames:'' |
16 instanceVariableNames:'' |
17 classVariableNames:'' |
17 classVariableNames:'' |
18 poolDictionaries:'' |
18 poolDictionaries:'' |
19 category:'System-Support-Projects' |
19 category:'System-Support-Projects' |
20 ! |
20 ! |
21 |
21 |
22 !LibraryDefinition class methodsFor:'documentation'! |
22 !LibraryDefinition class methodsFor:'documentation'! |
23 |
23 |
24 copyright |
24 copyright |
636 mappings := self classLine_libInit_dot_cc_mappings: className. |
636 mappings := self classLine_libInit_dot_cc_mappings: className. |
637 newClassLine := self replaceMappings:mappings in:self classLine_libInit_dot_cc. |
637 newClassLine := self replaceMappings:mappings in:self classLine_libInit_dot_cc. |
638 s nextPutLine: newClassLine |
638 s nextPutLine: newClassLine |
639 ]. |
639 ]. |
640 |
640 |
641 self compiled_classNames do:putLineForClassName. |
641 self common_compiled_classNames do:putLineForClassName. |
|
642 |
642 #( |
643 #( |
643 ('UNIX' #unix) |
644 ('UNIX' #unix) |
644 ('WIN32' #win32) |
645 ('WIN32' #win32) |
645 ('VMS' #vms) |
646 ('VMS' #vms) |
646 ('BEOS' #beos) |
647 ('BEOS' #beos) |
662 stx_libbasic3 generateClassLines_libInit_dot_cc |
663 stx_libbasic3 generateClassLines_libInit_dot_cc |
663 " |
664 " |
664 |
665 |
665 "Created: / 09-08-2006 / 11:21:48 / fm" |
666 "Created: / 09-08-2006 / 11:21:48 / fm" |
666 "Modified: / 16-08-2006 / 18:52:10 / User" |
667 "Modified: / 16-08-2006 / 18:52:10 / User" |
667 "Modified: / 18-08-2006 / 13:41:37 / cg" |
668 "Modified: / 21-08-2006 / 18:47:21 / cg" |
668 ! |
669 ! |
669 |
670 |
670 generateExtensionLine_libInit_dot_cc |
671 generateExtensionLine_libInit_dot_cc |
671 |mappings| |
672 |mappings| |
672 |
673 |
884 s nextPutLine:' ^ #('. |
885 s nextPutLine:' ^ #('. |
885 s tab; nextPutLine:'"/ <className> or (<className> attributes...)'. |
886 s tab; nextPutLine:'"/ <className> or (<className> attributes...)'. |
886 self searchForClasses do:[:eachClass | |
887 self searchForClasses do:[:eachClass | |
887 |attributes specEntry| |
888 |attributes specEntry| |
888 |
889 |
889 eachClass isPrivate ifFalse:[ |
890 (eachClass isLoaded not or:[eachClass isPrivate not]) ifTrue:[ |
890 specEntry := self classNamesAndAttributes detect:[:entry | entry first = eachClass name] ifNone:nil. |
891 specEntry := self classNamesAndAttributes detect:[:entry | entry first = eachClass name] ifNone:nil. |
891 specEntry notNil ifTrue:[ |
892 specEntry notNil ifTrue:[ |
892 attributes := specEntry copyFrom:2. |
893 attributes := specEntry copyFrom:2. |
893 ]. |
894 ]. |
894 |
895 |
911 stx_libbasic3 classNamesAndAttributes_code |
912 stx_libbasic3 classNamesAndAttributes_code |
912 " |
913 " |
913 |
914 |
914 "Modified: / 08-08-2006 / 19:24:34 / fm" |
915 "Modified: / 08-08-2006 / 19:24:34 / fm" |
915 "Created: / 17-08-2006 / 21:03:07 / cg" |
916 "Created: / 17-08-2006 / 21:03:07 / cg" |
|
917 "Modified: / 21-08-2006 / 18:41:25 / cg" |
916 ! |
918 ! |
917 |
919 |
918 extensionMethodNames_code |
920 extensionMethodNames_code |
919 ^ String streamContents:[:s | |
921 ^ String streamContents:[:s | |
920 s nextPutLine:'extensionMethodNames'. |
922 s nextPutLine:'extensionMethodNames'. |
950 ! ! |
952 ! ! |
951 |
953 |
952 !LibraryDefinition class methodsFor:'documentation'! |
954 !LibraryDefinition class methodsFor:'documentation'! |
953 |
955 |
954 version |
956 version |
955 ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.35 2006-08-21 14:41:38 cg Exp $' |
957 ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.36 2006-08-21 17:11:34 cg Exp $' |
956 ! ! |
958 ! ! |