equal
deleted
inserted
replaced
556 "Created: / 16-08-2009 / 11:05:46 / Jan Vrany <vranyj1@fel.cvut.cz>" |
556 "Created: / 16-08-2009 / 11:05:46 / Jan Vrany <vranyj1@fel.cvut.cz>" |
557 ! ! |
557 ! ! |
558 |
558 |
559 !ProgrammingLanguage methodsFor:'utilities - source code'! |
559 !ProgrammingLanguage methodsFor:'utilities - source code'! |
560 |
560 |
|
561 methodSourceForVersionMethodCVS:versionString |
|
562 |generatorClass| |
|
563 |
|
564 (generatorClass := self codeGeneratorClass) isNil ifTrue:[^ nil]. |
|
565 ^ generatorClass methodSourceForVersionMethodCVS:versionString |
|
566 |
|
567 "Created: / 28-08-2018 / 11:52:41 / Claus Gittinger" |
|
568 ! |
|
569 |
561 methodTemplate |
570 methodTemplate |
562 "return a method definition template string (or nil)" |
571 "return a method definition template string (or nil)" |
563 |
572 |
564 "/ cg: I think this should be the codeGeneratorClass - not the writer |
573 "/ cg: I think this should be the codeGeneratorClass - not the writer |
565 "/ |writerClass| |
574 "/ |writerClass| |