29 allowLocalVariableDeclarationWithInitializerExpression |
29 allowLocalVariableDeclarationWithInitializerExpression |
30 allowDomainVariables allowArrayIndexSyntaxExtension |
30 allowDomainVariables allowArrayIndexSyntaxExtension |
31 allowReservedWordsAsSelectors allowVariableReferences |
31 allowReservedWordsAsSelectors allowVariableReferences |
32 allowLazyValueExtension allowFixedPointLiterals |
32 allowLazyValueExtension allowFixedPointLiterals |
33 allowExtendedSTXSyntax allowVisualAgeESSymbolLiterals |
33 allowExtendedSTXSyntax allowVisualAgeESSymbolLiterals |
34 arraysAreImmutable stringsAreImmutable implicitSelfSends' |
34 arraysAreImmutable stringsAreImmutable implicitSelfSends |
|
35 stcKeepCIntermediate stcKeepOIntermediate stcKeepSTIntermediate |
|
36 stcModulePath stcCompilation stcCompilationIncludes |
|
37 stcCompilationDefines stcCompilationOptions stcPath |
|
38 ccCompilationOptions ccPath linkArgs linkCommand libPath |
|
39 searchedLibraries' |
35 classVariableNames:'WarnST80Directives WarnUnusedVars WarnUndeclared |
40 classVariableNames:'WarnST80Directives WarnUnusedVars WarnUndeclared |
36 WarnAboutWrongVariableNames WarnAboutBadComments |
41 WarnAboutWrongVariableNames WarnAboutBadComments |
37 WarnAboutVariableNameConventions WarnSTXSpecials |
42 WarnAboutVariableNameConventions WarnSTXSpecials |
38 WarnOldStyleAssignment WarnUnderscoreInIdentifier |
43 WarnOldStyleAssignment WarnUnderscoreInIdentifier |
39 WarnCommonMistakes WarnPossibleIncompatibilities |
44 WarnCommonMistakes WarnPossibleIncompatibilities |
46 AllowDollarInIdentifier AllowSqueakExtensions AllowQualifiedNames |
51 AllowDollarInIdentifier AllowSqueakExtensions AllowQualifiedNames |
47 AllowDolphinExtensions AllowOldStyleAssignment |
52 AllowDolphinExtensions AllowOldStyleAssignment |
48 AllowExtendedBinarySelectors AllowExtendedSTXSyntax |
53 AllowExtendedBinarySelectors AllowExtendedSTXSyntax |
49 AllowFixedPointLiterals AllowLiteralNameSpaceSymbols |
54 AllowFixedPointLiterals AllowLiteralNameSpaceSymbols |
50 ArraysAreImmutable StringsAreImmutable ImplicitSelfSends |
55 ArraysAreImmutable StringsAreImmutable ImplicitSelfSends |
51 AllowVisualAgeESSymbolLiterals' |
56 AllowVisualAgeESSymbolLiterals STCModulePath STCKeepCIntermediate |
|
57 STCKeepOIntermediate STCKeepSTIntermediate STCCompilation |
|
58 STCCompilationIncludes STCCompilationDefines |
|
59 STCCompilationOptions STCPath CCCompilationOptions CCPath |
|
60 LinkArgs LinkCommand LibPath SearchedLibraries' |
52 poolDictionaries:'' |
61 poolDictionaries:'' |
53 category:'System-Compiler' |
62 category:'System-Compiler' |
54 ! |
63 ! |
55 |
64 |
56 !ParserFlags class methodsFor:'documentation'! |
65 !ParserFlags class methodsFor:'documentation'! |
142 ParserFlags stringsAreImmutable:true |
151 ParserFlags stringsAreImmutable:true |
143 ParserFlags stringsAreImmutable:false |
152 ParserFlags stringsAreImmutable:false |
144 " |
153 " |
145 |
154 |
146 "Created: / 3.8.1998 / 14:53:28 / cg" |
155 "Created: / 3.8.1998 / 14:53:28 / cg" |
|
156 ! ! |
|
157 |
|
158 !ParserFlags class methodsFor:'accessing-stc compilation control'! |
|
159 |
|
160 ccCompilationOptions |
|
161 ^ CCCompilationOptions |
|
162 ! |
|
163 |
|
164 ccCompilationOptions:aString |
|
165 CCCompilationOptions := aString |
|
166 ! |
|
167 |
|
168 ccPath |
|
169 ^ CCPath |
|
170 ! |
|
171 |
|
172 ccPath:aSymbol |
|
173 CCPath := aSymbol |
|
174 ! |
|
175 |
|
176 libPath |
|
177 ^ LibPath |
|
178 ! |
|
179 |
|
180 libPath:aString |
|
181 LibPath := aString |
|
182 ! |
|
183 |
|
184 linkArgs |
|
185 ^ LinkArgs |
|
186 ! |
|
187 |
|
188 linkArgs:aString |
|
189 LinkArgs := aString |
|
190 ! |
|
191 |
|
192 linkCommand |
|
193 ^ LinkCommand |
|
194 ! |
|
195 |
|
196 linkCommand:aString |
|
197 LinkCommand := aString |
|
198 ! |
|
199 |
|
200 searchedLibraries |
|
201 ^ SearchedLibraries |
|
202 ! |
|
203 |
|
204 searchedLibraries:aString |
|
205 SearchedLibraries := aString |
|
206 ! |
|
207 |
|
208 stcCompilation |
|
209 ^ STCCompilation |
|
210 ! |
|
211 |
|
212 stcCompilation:aSymbol |
|
213 STCCompilation := aSymbol |
|
214 ! |
|
215 |
|
216 stcCompilationDefines |
|
217 ^ STCCompilationDefines |
|
218 ! |
|
219 |
|
220 stcCompilationDefines:aString |
|
221 STCCompilationDefines := aString |
|
222 ! |
|
223 |
|
224 stcCompilationIncludes |
|
225 ^ STCCompilationIncludes |
|
226 ! |
|
227 |
|
228 stcCompilationIncludes:aString |
|
229 STCCompilationIncludes := aString |
|
230 ! |
|
231 |
|
232 stcCompilationOptions |
|
233 ^ STCCompilationOptions |
|
234 ! |
|
235 |
|
236 stcCompilationOptions:aString |
|
237 STCCompilationOptions := aString |
|
238 ! |
|
239 |
|
240 stcKeepCIntermediate |
|
241 ^ STCKeepCIntermediate |
|
242 ! |
|
243 |
|
244 stcKeepCIntermediate:something |
|
245 STCKeepCIntermediate := something. |
|
246 ! |
|
247 |
|
248 stcKeepOIntermediate |
|
249 ^ STCKeepOIntermediate |
|
250 ! |
|
251 |
|
252 stcKeepOIntermediate:something |
|
253 STCKeepOIntermediate := something. |
|
254 ! |
|
255 |
|
256 stcKeepSTIntermediate |
|
257 ^ STCKeepSTIntermediate |
|
258 ! |
|
259 |
|
260 stcKeepSTIntermediate:something |
|
261 STCKeepSTIntermediate := something. |
|
262 ! |
|
263 |
|
264 stcModulePath |
|
265 ^ STCModulePath |
|
266 ! |
|
267 |
|
268 stcModulePath:something |
|
269 STCModulePath := something. |
|
270 ! |
|
271 |
|
272 stcPath |
|
273 ^ STCPath |
|
274 ! |
|
275 |
|
276 stcPath:aSymbol |
|
277 STCPath := aSymbol |
|
278 ! |
|
279 |
|
280 withSTCCompilation:howSymbol do:aBlock |
|
281 |prev| |
|
282 |
|
283 prev := self stcCompilation. |
|
284 self stcCompilation:howSymbol. |
|
285 aBlock ensure:[ self stcCompilation:prev ] |
147 ! ! |
286 ! ! |
148 |
287 |
149 !ParserFlags class methodsFor:'accessing-syntax-control'! |
288 !ParserFlags class methodsFor:'accessing-syntax-control'! |
150 |
289 |
151 allowArrayIndexSyntaxExtension |
290 allowArrayIndexSyntaxExtension |
586 |
725 |
587 ArraysAreImmutable := false. "/ no longer care for ST-80 compatibility |
726 ArraysAreImmutable := false. "/ no longer care for ST-80 compatibility |
588 StringsAreImmutable := false. "/ no longer care for ST-80 compatibility |
727 StringsAreImmutable := false. "/ no longer care for ST-80 compatibility |
589 ImplicitSelfSends := false. |
728 ImplicitSelfSends := false. |
590 |
729 |
|
730 STCKeepCIntermediate := false. |
|
731 STCKeepOIntermediate := false. |
|
732 STCKeepSTIntermediate := false. |
|
733 STCModulePath := './modules'. |
|
734 STCCompilation := #default. |
|
735 |
|
736 OperatingSystem isMSWINDOWSlike ifTrue:[ |
|
737 STCCompilationIncludes := '-I..\..\include -I..\..\libopengl -IC:\Borland\bcc55\Include'. |
|
738 STCCompilationDefines := '-DWIN32'. |
|
739 STCCompilationOptions := '+optinline +inlineNew'. |
|
740 STCPath := '..\..\stc\stc.exe'. |
|
741 CCCompilationOptions := ''. |
|
742 CCPath := 'bcc32'. |
|
743 LinkArgs := '-L..\..\libbc -LC:\Borland\bcc55\Lib -r -c -ap -Tpd -Gi -w-dup'. |
|
744 LinkCommand := 'ilink32'. |
|
745 LibPath := ''. |
|
746 SearchedLibraries := 'import32.lib'. |
|
747 ] ifFalse:[ |
|
748 STCCompilationIncludes := '-I../../include'. |
|
749 STCCompilationDefines := ''. |
|
750 STCCompilationOptions := '+optinline +inlineNew'. |
|
751 STCPath := '../../stc/stc'. |
|
752 CCCompilationOptions := '-O'. |
|
753 CCPath := 'cc'. |
|
754 LinkArgs := ''. |
|
755 LinkCommand := 'ld'. |
|
756 LibPath := ''. |
|
757 SearchedLibraries := ''. |
|
758 ]. |
|
759 |
591 " |
760 " |
592 ParserFlags initialize |
761 ParserFlags initialize |
593 " |
762 " |
594 ! ! |
763 ! ! |
595 |
764 |
596 !ParserFlags methodsFor:'accessing'! |
765 !ParserFlags methodsFor:'accessing-compilation control'! |
|
766 |
|
767 arraysAreImmutable |
|
768 ^ arraysAreImmutable |
|
769 ! |
|
770 |
|
771 arraysAreImmutable:aBoolean |
|
772 arraysAreImmutable := aBoolean. |
|
773 ! |
|
774 |
|
775 stringsAreImmutable |
|
776 ^ stringsAreImmutable |
|
777 ! |
|
778 |
|
779 stringsAreImmutable:aBoolean |
|
780 stringsAreImmutable := aBoolean. |
|
781 ! ! |
|
782 |
|
783 !ParserFlags methodsFor:'accessing-stc compilation control'! |
|
784 |
|
785 ccCompilationOptions |
|
786 ^ ccCompilationOptions |
|
787 ! |
|
788 |
|
789 ccCompilationOptions:something |
|
790 ccCompilationOptions := something. |
|
791 ! |
|
792 |
|
793 ccPath |
|
794 ^ ccPath |
|
795 ! |
|
796 |
|
797 ccPath:something |
|
798 ccPath := something. |
|
799 ! |
|
800 |
|
801 implicitSelfSends |
|
802 ^ implicitSelfSends |
|
803 ! |
|
804 |
|
805 implicitSelfSends:aBoolean |
|
806 implicitSelfSends := aBoolean. |
|
807 ! |
|
808 |
|
809 libPath |
|
810 ^ libPath |
|
811 ! |
|
812 |
|
813 libPath:aString |
|
814 libPath := aString |
|
815 ! |
|
816 |
|
817 linkArgs |
|
818 ^ linkArgs |
|
819 ! |
|
820 |
|
821 linkArgs:aString |
|
822 linkArgs := aString |
|
823 ! |
|
824 |
|
825 linkCommand |
|
826 ^ linkCommand |
|
827 ! |
|
828 |
|
829 linkCommand:aString |
|
830 linkCommand := aString |
|
831 ! |
|
832 |
|
833 searchedLibraries |
|
834 ^ searchedLibraries |
|
835 ! |
|
836 |
|
837 searchedLibraries:aString |
|
838 searchedLibraries := aString |
|
839 ! |
|
840 |
|
841 stcCompilation |
|
842 ^ stcCompilation |
|
843 ! |
|
844 |
|
845 stcCompilation:something |
|
846 stcCompilation := something. |
|
847 ! |
|
848 |
|
849 stcCompilationDefines |
|
850 ^ stcCompilationDefines |
|
851 ! |
|
852 |
|
853 stcCompilationDefines:something |
|
854 stcCompilationDefines := something. |
|
855 ! |
|
856 |
|
857 stcCompilationIncludes |
|
858 ^ stcCompilationIncludes |
|
859 ! |
|
860 |
|
861 stcCompilationIncludes:something |
|
862 stcCompilationIncludes := something. |
|
863 ! |
|
864 |
|
865 stcCompilationOptions |
|
866 ^ stcCompilationOptions |
|
867 ! |
|
868 |
|
869 stcCompilationOptions:something |
|
870 stcCompilationOptions := something. |
|
871 ! |
|
872 |
|
873 stcKeepCIntermediate |
|
874 ^ stcKeepCIntermediate |
|
875 ! |
|
876 |
|
877 stcKeepCIntermediate:something |
|
878 stcKeepCIntermediate := something. |
|
879 ! |
|
880 |
|
881 stcKeepOIntermediate |
|
882 ^ stcKeepOIntermediate |
|
883 ! |
|
884 |
|
885 stcKeepOIntermediate:something |
|
886 stcKeepOIntermediate := something. |
|
887 ! |
|
888 |
|
889 stcKeepSTIntermediate |
|
890 ^ stcKeepSTIntermediate |
|
891 ! |
|
892 |
|
893 stcKeepSTIntermediate:something |
|
894 stcKeepSTIntermediate := something. |
|
895 ! |
|
896 |
|
897 stcModulePath |
|
898 ^ stcModulePath |
|
899 ! |
|
900 |
|
901 stcModulePath:something |
|
902 stcModulePath := something. |
|
903 ! |
|
904 |
|
905 stcPath |
|
906 ^ stcPath |
|
907 ! |
|
908 |
|
909 stcPath:something |
|
910 stcPath := something. |
|
911 ! ! |
|
912 |
|
913 !ParserFlags methodsFor:'accessing-syntax-control'! |
597 |
914 |
598 allowArrayIndexSyntaxExtension |
915 allowArrayIndexSyntaxExtension |
599 ^ allowArrayIndexSyntaxExtension |
916 ^ allowArrayIndexSyntaxExtension |
600 ! |
917 ! |
601 |
918 |
745 ^ allowVisualAgeESSymbolLiterals |
1062 ^ allowVisualAgeESSymbolLiterals |
746 ! |
1063 ! |
747 |
1064 |
748 allowVisualAgeESSymbolLiterals:aBoolean |
1065 allowVisualAgeESSymbolLiterals:aBoolean |
749 allowVisualAgeESSymbolLiterals := aBoolean. |
1066 allowVisualAgeESSymbolLiterals := aBoolean. |
750 ! |
1067 ! ! |
751 |
1068 |
752 arraysAreImmutable |
1069 !ParserFlags methodsFor:'accessing-warning-control'! |
753 ^ arraysAreImmutable |
|
754 ! |
|
755 |
|
756 arraysAreImmutable:aBoolean |
|
757 arraysAreImmutable := aBoolean. |
|
758 ! |
|
759 |
|
760 implicitSelfSends |
|
761 ^ implicitSelfSends |
|
762 ! |
|
763 |
|
764 implicitSelfSends:aBoolean |
|
765 implicitSelfSends := aBoolean. |
|
766 ! |
|
767 |
|
768 stringsAreImmutable |
|
769 ^ stringsAreImmutable |
|
770 ! |
|
771 |
|
772 stringsAreImmutable:aBoolean |
|
773 stringsAreImmutable := aBoolean. |
|
774 ! |
|
775 |
1070 |
776 warnAboutBadComments |
1071 warnAboutBadComments |
777 ^ warnAboutBadComments |
1072 ^ warnAboutBadComments |
778 ! |
1073 ! |
779 |
1074 |
933 |
1228 |
934 arraysAreImmutable := ArraysAreImmutable ? true. |
1229 arraysAreImmutable := ArraysAreImmutable ? true. |
935 stringsAreImmutable := StringsAreImmutable ? true. |
1230 stringsAreImmutable := StringsAreImmutable ? true. |
936 implicitSelfSends := ImplicitSelfSends ? false. |
1231 implicitSelfSends := ImplicitSelfSends ? false. |
937 |
1232 |
|
1233 stcKeepCIntermediate := STCKeepCIntermediate. |
|
1234 stcKeepOIntermediate := STCKeepOIntermediate. |
|
1235 stcKeepSTIntermediate := STCKeepSTIntermediate. |
|
1236 stcModulePath := STCModulePath. |
|
1237 stcCompilation := STCCompilation. |
|
1238 stcCompilationIncludes := STCCompilationIncludes. |
|
1239 stcCompilationDefines := STCCompilationDefines. |
|
1240 stcCompilationOptions := STCCompilationOptions. |
|
1241 stcPath := STCPath. |
|
1242 ccCompilationOptions := CCCompilationOptions. |
|
1243 ccPath := CCPath. |
|
1244 linkArgs := LinkArgs. |
|
1245 linkCommand := LinkCommand. |
|
1246 libPath := LibPath. |
|
1247 searchedLibraries := SearchedLibraries. |
|
1248 |
938 " |
1249 " |
939 ParserFlags initialize. |
1250 ParserFlags initialize. |
940 self new inspect. |
1251 self new inspect. |
941 " |
1252 " |
942 ! ! |
1253 ! ! |
943 |
1254 |
944 !ParserFlags class methodsFor:'documentation'! |
1255 !ParserFlags class methodsFor:'documentation'! |
945 |
1256 |
946 version |
1257 version |
947 ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.4 2006-02-03 16:06:37 cg Exp $' |
1258 ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.5 2006-02-08 15:11:45 cg Exp $' |
948 ! ! |
1259 ! ! |
949 |
1260 |
950 ParserFlags initialize! |
1261 ParserFlags initialize! |