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 allowExtensionsToPrivateClasses arraysAreImmutable |
34 allowExtensionsToPrivateClasses allowSqueakPrimitives |
35 stringsAreImmutable implicitSelfSends stcKeepCIntermediate |
35 allowVisualAgePrimitives arraysAreImmutable stringsAreImmutable |
36 stcKeepOIntermediate stcKeepSTIntermediate stcModulePath |
36 implicitSelfSends stcKeepCIntermediate stcKeepOIntermediate |
37 stcCompilation stcCompilationIncludes stcCompilationDefines |
37 stcKeepSTIntermediate stcModulePath stcCompilation |
|
38 stcCompilationIncludes stcCompilationDefines |
38 stcCompilationOptions stcPath ccCompilationOptions ccPath |
39 stcCompilationOptions stcPath ccCompilationOptions ccPath |
39 linkArgs linkCommand libPath searchedLibraries' |
40 linkArgs linkCommand libPath searchedLibraries' |
40 classVariableNames:'WarnST80Directives WarnUnusedVars WarnUndeclared |
41 classVariableNames:'WarnST80Directives WarnUnusedVars WarnUndeclared |
41 WarnAboutWrongVariableNames WarnAboutBadComments |
42 WarnAboutWrongVariableNames WarnAboutBadComments |
42 WarnAboutVariableNameConventions WarnSTXSpecials |
43 WarnAboutVariableNameConventions WarnSTXSpecials |
51 AllowDollarInIdentifier AllowSqueakExtensions AllowQualifiedNames |
52 AllowDollarInIdentifier AllowSqueakExtensions AllowQualifiedNames |
52 AllowDolphinExtensions AllowOldStyleAssignment |
53 AllowDolphinExtensions AllowOldStyleAssignment |
53 AllowExtendedBinarySelectors AllowExtendedSTXSyntax |
54 AllowExtendedBinarySelectors AllowExtendedSTXSyntax |
54 AllowFixedPointLiterals AllowLiteralNameSpaceSymbols |
55 AllowFixedPointLiterals AllowLiteralNameSpaceSymbols |
55 AllowVisualAgeESSymbolLiterals AllowExtensionsToPrivateClasses |
56 AllowVisualAgeESSymbolLiterals AllowExtensionsToPrivateClasses |
56 ArraysAreImmutable StringsAreImmutable ImplicitSelfSends |
57 AllowSqueakPrimitives AllowVisualAgePrimitives ArraysAreImmutable |
57 STCModulePath STCKeepCIntermediate STCKeepOIntermediate |
58 StringsAreImmutable ImplicitSelfSends STCModulePath |
58 STCKeepSTIntermediate STCCompilation STCCompilationIncludes |
59 STCKeepCIntermediate STCKeepOIntermediate STCKeepSTIntermediate |
59 STCCompilationDefines STCCompilationOptions STCPath |
60 STCCompilation STCCompilationIncludes STCCompilationDefines |
60 CCCompilationOptions CCPath LinkArgs LinkCommand LibPath |
61 STCCompilationOptions STCPath CCCompilationOptions CCPath |
61 SearchedLibraries' |
62 LinkArgs LinkCommand LibPath SearchedLibraries' |
62 poolDictionaries:'' |
63 poolDictionaries:'' |
63 category:'System-Compiler' |
64 category:'System-Compiler' |
64 ! |
65 ! |
65 |
66 |
66 !ParserFlags class methodsFor:'documentation'! |
67 !ParserFlags class methodsFor:'documentation'! |
503 self allowSqueakExtensions:true |
504 self allowSqueakExtensions:true |
504 self allowSqueakExtensions:false |
505 self allowSqueakExtensions:false |
505 " |
506 " |
506 ! |
507 ! |
507 |
508 |
|
509 allowSqueakPrimitives |
|
510 "return true, if support for squeak primitives is enabled." |
|
511 |
|
512 ^ AllowSqueakPrimitives |
|
513 ! |
|
514 |
|
515 allowSqueakPrimitives:aBoolean |
|
516 "this allows turning on/off support for squeak primitives" |
|
517 |
|
518 AllowSqueakPrimitives := aBoolean |
|
519 ! |
|
520 |
508 allowUnderscoreInIdentifier |
521 allowUnderscoreInIdentifier |
509 "return true, if underscores are allowed in identifiers" |
522 "return true, if underscores are allowed in identifiers" |
510 |
523 |
511 ^ AllowUnderscoreInIdentifier |
524 ^ AllowUnderscoreInIdentifier |
512 ! |
525 ! |
534 |
547 |
535 allowVisualAgeESSymbolLiterals:aBoolean |
548 allowVisualAgeESSymbolLiterals:aBoolean |
536 "if on, visualAge's ##symbols are allowed (treated like symbols)" |
549 "if on, visualAge's ##symbols are allowed (treated like symbols)" |
537 |
550 |
538 AllowVisualAgeESSymbolLiterals := aBoolean. |
551 AllowVisualAgeESSymbolLiterals := aBoolean. |
|
552 ! |
|
553 |
|
554 allowVisualAgePrimitives |
|
555 "return true, if support for V'Age primitives is enabled." |
|
556 |
|
557 ^ AllowVisualAgePrimitives |
|
558 ! |
|
559 |
|
560 allowVisualAgePrimitives:aBoolean |
|
561 "this allows turning on/off support for V'Age primitives" |
|
562 |
|
563 AllowVisualAgePrimitives := aBoolean |
539 ! ! |
564 ! ! |
540 |
565 |
541 !ParserFlags class methodsFor:'accessing-warning-control'! |
566 !ParserFlags class methodsFor:'accessing-warning-control'! |
542 |
567 |
543 warnAboutBadComments |
568 warnAboutBadComments |
788 AllowLazyValueExtension := false. |
813 AllowLazyValueExtension := false. |
789 AllowFixedPointLiterals := false. |
814 AllowFixedPointLiterals := false. |
790 AllowExtendedSTXSyntax := false. |
815 AllowExtendedSTXSyntax := false. |
791 AllowVisualAgeESSymbolLiterals := false. |
816 AllowVisualAgeESSymbolLiterals := false. |
792 AllowExtensionsToPrivateClasses := true. |
817 AllowExtensionsToPrivateClasses := true. |
|
818 AllowVisualAgePrimitives := false. |
|
819 AllowSqueakPrimitives := false. |
793 |
820 |
794 ArraysAreImmutable := false. "/ no longer care for ST-80 compatibility |
821 ArraysAreImmutable := false. "/ no longer care for ST-80 compatibility |
795 StringsAreImmutable := false. "/ no longer care for ST-80 compatibility |
822 StringsAreImmutable := false. "/ no longer care for ST-80 compatibility |
796 ImplicitSelfSends := false. |
823 ImplicitSelfSends := false. |
797 |
824 |
1129 " |
1156 " |
1130 |
1157 |
1131 allowSqueakExtensions := aBoolean |
1158 allowSqueakExtensions := aBoolean |
1132 ! |
1159 ! |
1133 |
1160 |
|
1161 allowSqueakPrimitives |
|
1162 "return true, if support for squeak primitives is enabled." |
|
1163 |
|
1164 ^ allowSqueakPrimitives |
|
1165 ! |
|
1166 |
|
1167 allowSqueakPrimitives:aBoolean |
|
1168 "this allows turning on/off support for squeak primitives" |
|
1169 |
|
1170 allowSqueakPrimitives := aBoolean |
|
1171 ! |
|
1172 |
1134 allowUnderscoreInIdentifier |
1173 allowUnderscoreInIdentifier |
1135 ^ allowUnderscoreInIdentifier |
1174 ^ allowUnderscoreInIdentifier |
1136 ! |
1175 ! |
1137 |
1176 |
1138 allowUnderscoreInIdentifier:aBoolean |
1177 allowUnderscoreInIdentifier:aBoolean |
1151 ^ allowVisualAgeESSymbolLiterals |
1190 ^ allowVisualAgeESSymbolLiterals |
1152 ! |
1191 ! |
1153 |
1192 |
1154 allowVisualAgeESSymbolLiterals:aBoolean |
1193 allowVisualAgeESSymbolLiterals:aBoolean |
1155 allowVisualAgeESSymbolLiterals := aBoolean. |
1194 allowVisualAgeESSymbolLiterals := aBoolean. |
|
1195 ! |
|
1196 |
|
1197 allowVisualAgePrimitives |
|
1198 "return true, if support for V'Age primitives is enabled." |
|
1199 |
|
1200 ^ allowVisualAgePrimitives |
|
1201 ! |
|
1202 |
|
1203 allowVisualAgePrimitives:aBoolean |
|
1204 "this allows turning on/off support for V'Age primitives" |
|
1205 |
|
1206 allowVisualAgePrimitives := aBoolean |
1156 ! ! |
1207 ! ! |
1157 |
1208 |
1158 !ParserFlags methodsFor:'accessing-warning-control'! |
1209 !ParserFlags methodsFor:'accessing-warning-control'! |
1159 |
1210 |
1160 warnAboutBadComments |
1211 warnAboutBadComments |
1331 allowFixedPointLiterals := AllowFixedPointLiterals. |
1382 allowFixedPointLiterals := AllowFixedPointLiterals. |
1332 allowExtendedSTXSyntax := AllowExtendedSTXSyntax. |
1383 allowExtendedSTXSyntax := AllowExtendedSTXSyntax. |
1333 allowQualifiedNames := AllowQualifiedNames. |
1384 allowQualifiedNames := AllowQualifiedNames. |
1334 allowVisualAgeESSymbolLiterals := AllowVisualAgeESSymbolLiterals. |
1385 allowVisualAgeESSymbolLiterals := AllowVisualAgeESSymbolLiterals. |
1335 allowExtensionsToPrivateClasses := AllowExtensionsToPrivateClasses. |
1386 allowExtensionsToPrivateClasses := AllowExtensionsToPrivateClasses. |
|
1387 allowVisualAgePrimitives := AllowVisualAgePrimitives. |
|
1388 allowSqueakPrimitives := AllowSqueakPrimitives. |
1336 |
1389 |
1337 arraysAreImmutable := ArraysAreImmutable ? true. |
1390 arraysAreImmutable := ArraysAreImmutable ? true. |
1338 stringsAreImmutable := StringsAreImmutable ? true. |
1391 stringsAreImmutable := StringsAreImmutable ? true. |
1339 implicitSelfSends := ImplicitSelfSends ? false. |
1392 implicitSelfSends := ImplicitSelfSends ? false. |
1340 |
1393 |