equal
deleted
inserted
replaced
1589 self |
1589 self |
1590 createAcceptVisitorMethod:('visit' , aClass nameWithoutPrefix , ':') asSymbol |
1590 createAcceptVisitorMethod:('visit' , aClass nameWithoutPrefix , ':') asSymbol |
1591 in:aClass |
1591 in:aClass |
1592 ! |
1592 ! |
1593 |
1593 |
|
1594 createAspectMethodFor:anAspectSymbol in:aClass |
|
1595 "create an aspect method." |
|
1596 |
|
1597 |source aspect| |
|
1598 |
|
1599 aspect := anAspectSymbol asSymbol. |
|
1600 source := String |
|
1601 streamContents:[:s | |
|
1602 s nextPutAll:aspect asString. |
|
1603 s nextPutAll:' |
|
1604 |holder| |
|
1605 |
|
1606 (holder := builder bindingAt:',aspect storeString,') isNil ifTrue:[ |
|
1607 builder aspectAt:',aspect storeString,' put:(holder := nil asValue). |
|
1608 ]. |
|
1609 ^ holder. |
|
1610 '. |
|
1611 ]. |
|
1612 self compile:source forClass:aClass inCategory:#aspects. |
|
1613 ! |
|
1614 |
1594 createCopyrightMethodFor:copyRightText for:aClass |
1615 createCopyrightMethodFor:copyRightText for:aClass |
1595 "add copyright method containing text, |
1616 "add copyright method containing text, |
1596 but only if not already present." |
1617 but only if not already present." |
1597 |
1618 |
1598 |txt log initialYear scm firstRev firstRevDate| |
1619 |txt log initialYear scm firstRev firstRevDate| |
2527 ! ! |
2548 ! ! |
2528 |
2549 |
2529 !SmalltalkCodeGeneratorTool class methodsFor:'documentation'! |
2550 !SmalltalkCodeGeneratorTool class methodsFor:'documentation'! |
2530 |
2551 |
2531 version |
2552 version |
2532 ^ '$Header: /cvs/stx/stx/libtool/SmalltalkCodeGeneratorTool.st,v 1.20 2013-04-25 13:11:09 stefan Exp $' |
2553 ^ '$Header: /cvs/stx/stx/libtool/SmalltalkCodeGeneratorTool.st,v 1.21 2013-06-07 12:08:27 cg Exp $' |
2533 ! |
2554 ! |
2534 |
2555 |
2535 version_CVS |
2556 version_CVS |
2536 ^ '$Header: /cvs/stx/stx/libtool/SmalltalkCodeGeneratorTool.st,v 1.20 2013-04-25 13:11:09 stefan Exp $' |
2557 ^ '$Header: /cvs/stx/stx/libtool/SmalltalkCodeGeneratorTool.st,v 1.21 2013-06-07 12:08:27 cg Exp $' |
2537 ! |
2558 ! |
2538 |
2559 |
2539 version_SVN |
2560 version_SVN |
2540 ^ '§Id§' |
2561 ^ '$Id: SmalltalkCodeGeneratorTool.st,v 1.21 2013-06-07 12:08:27 cg Exp $' |
2541 ! ! |
2562 ! ! |
2542 |
2563 |