1280     ^ self browseMethods:list asOrderedCollection title:title

  1769     ^ list

  1281 

  1770 

  1282     "

  1771     "

  1283      SystemBrowser browseImplementorsOf:#+

  1772      SystemBrowser findImplementorsOf:#+

  1287                                   title:'some implementors of +'

  1776     "

  1288     "

  1777 

  1289 

  1778 !

  1290     "Modified: / 4.9.1995 / 17:33:39 / claus"

  1779 

  1291     "Modified: / 19.6.1996 / 14:19:02 / stefan"

  1780 findSendersOf:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase

  1292     "Modified: / 16.10.1998 / 13:16:29 / cg"

  1781     "search for all senders of aSelector in

  1293 !

  1782      the classes contained in aCollectionOfClasses and its metaclasses.

  1294 

  1783      Return a collection of methods"

  1295 browseImplementorsOf:aSelectorString in:aCollectionOfClasses title:title

  1784 

  1296     "launch a browser for all implementors of aSelector in

  1785     ^ self allCallsOn:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase

  1297      the classes contained in aCollectionOfClasses and its metaclasses"

  1786 

  1298 

  1787     "

  1299     ^ self

  1788      SystemBrowser findSendersOf:#+

  1300         browseImplementorsOf:aSelectorString 

  1789                    in:(Array with:Number

  1301         in:aCollectionOfClasses 

  1790                              with:Float

  1302         ignoreCase:false

  1791                              with:SmallInteger)

  1303         title:title

  1792                    ignoreCase:false

  1304 

  1793     "

  1305 !

  1794 

  1306 

  1307 browseImplementorsOf:aSelectorString under:aClass

  1308     "launch a browser for all implementors of aSelector in aClass

  1309      and its subclasses"

  1310 

  1311     ^ self 

  1312         browseImplementorsOf:aSelectorString

  1313         in:(aClass withAllSubclasses)

  1314         title:(self classResources 

  1315                 string:'implementors of: %1 (in and below %2)' 

  1316                 with:aSelectorString

  1317                 with:aClass name)

  1318 

  1319     "

  1320      SystemBrowser browseImplementorsOf:#+ under:Integer

  1321     "

  1322 

  1323     "Created: 9.12.1995 / 18:06:09 / cg"

  1324     "Modified: 9.12.1995 / 18:11:38 / cg"

  1325 !

  1326 

  1327 browseInstRefsTo:aString in:aCollectionOfClasses modificationsOnly:modsOnly

  1328     "launch a browser for all methods in aClass where the instVar named

  1329      aString is referenced; if modsOnly is true, browse only methods where the

  1330      instvar is modified"

  1331 

  1332     ^ self browseRefsTo:aString classVars:false in:aCollectionOfClasses modificationsOnly:modsOnly

  1333 !

  1334 

  1335 browseInstRefsTo:varName in:aCollectionOfClasses modificationsOnly:modsOnly title:title

  1336     "launch a browser for all methods in aClass where the instVar named

  1337      varName is referenced; if modsOnly is true, browse only methods where the

  1338      instvar is modified"

  1339 

  1340     ^ self browseRefsTo:varName classVars:false in:aCollectionOfClasses modificationsOnly:modsOnly title:title

  1341 !

  1342 

  1343 browseInstRefsTo:aString under:aClass modificationsOnly:modsOnly

  1344     "launch a browser for all methods in aClass and subclasses

  1345      where the instVar named aString is referenced; 

  1346      if modsOnly is true, browse only methods where the instvar is modified"

  1347 

  1348     ^ self browseInstRefsTo:aString in:(aClass withAllSubclasses) modificationsOnly:modsOnly

  1349 !

  1350 

  1351 browseReferendsOf:aGlobalName

  1352     "launch a browser for all methods referencing a global

  1353      named aGlobalName. The argument may be a symbol, a string or

  1354      a matchPattern.

  1355     "

  1356 

  1357     ^ self browseReferendsOf:aGlobalName warnIfNone:true 

  1358 

  1359    "

  1360     Browser browseReferendsOf:#Transcript

  1361     Browser browseReferendsOf:'Tr*'

  1362    "

  1363 

  1364     "Modified: / 30.10.1997 / 23:45:52 / cg"

  1365 !

  1366 

  1367 browseReferendsOf:aGlobalName ifNone:actionIfNone

  1368     "launch a browser for all methods referencing a global

  1369      named aGlobalName.

  1370     "

  1371 

  1372     ^ self

  1373         browseReferendsOf:aGlobalName 

  1374         title:(self classResources string:'users of: %1' with:aGlobalName)

  1375         ifNone:actionIfNone

  1376 

  1377     "Modified: / 31.10.1997 / 15:42:05 / cg"

  1378 

  1379 

  1380 !

  1381 

  1382 browseReferendsOf:aGlobalName in:aSetOfClasses

  1383     "launch a browser for all methods referencing a global

  1384      named aGlobalName.

  1385     "

  1386 

  1387     ^ self browseReferendsOf:aGlobalName in:aSetOfClasses warnIfNone:true 

  1388 

  1389    "

  1390     Browser browseReferendsOf:#Transcript

  1391    "

  1392 

  1393     "Created: 10.7.1996 / 10:37:30 / cg"

  1394 !

  1395 

  1396 browseReferendsOf:aGlobalName in:aSetOfClasses warnIfNone:doWarn

  1397     "launch a browser for all methods referencing a global

  1398      named aGlobalName.

  1399     "

  1400 

  1401     |globalsPlainName idx|

  1402 

  1403     globalsPlainName := aGlobalName.

  1404     (idx := globalsPlainName lastIndexOf:$:) ~~ 0 ifTrue:[

  1405         globalsPlainName := globalsPlainName copyFrom:idx+1

  1406     ].

  1407 

  1408     ^ self browseForSymbol:aGlobalName

  1409                         in:aSetOfClasses

  1410                      title:(self classResources string:'users of: %1' with:aGlobalName) 

  1411                 warnIfNone:doWarn

  1412                  searchFor:globalsPlainName

  1413 

  1414     "Created: 10.7.1996 / 10:37:02 / cg"

  1415     "Modified: 31.10.1996 / 14:56:38 / cg"

  1416 !

  1417 

  1418 browseReferendsOf:aGlobalName title:title ifNone:actionIfNone

  1419     "launch a browser for all methods referencing a global

  1420      named aGlobalName.

  1421     "

  1422 

  1423     |globalsPlainName idx|

  1424 

  1425     globalsPlainName := aGlobalName.

  1426     (idx := globalsPlainName lastIndexOf:$:) ~~ 0 ifTrue:[

  1427         globalsPlainName := globalsPlainName copyFrom:idx+1.

  1428         (globalsPlainName size == 0

  1429         or:[globalsPlainName = '*']) ifTrue:[

  1430             globalsPlainName := aGlobalName

  1431         ]

  1432     ].

  1433 

  1434     ^ self browseForSymbol:aGlobalName 

  1435                      title:title 

  1436                     ifNone:actionIfNone

  1437                  searchFor:globalsPlainName

  1438 

  1439     "Modified: / 31.10.1996 / 14:47:48 / cg"

  1440     "Created: / 31.10.1997 / 15:41:28 / cg"

  1441 

  1442 

  1443 !

  1444 

  1445 browseReferendsOf:aGlobalName title:title warnIfNone:doWarn

  1446     "launch a browser for all methods referencing a global

  1447      named aGlobalName.

  1448     "

  1449 

  1450     |b|

  1451 

  1452     doWarn ifTrue: [

  1453 	b := [self showNoneFound:title]

  1454     ].

  1455 

  1456     ^ self

  1457         browseReferendsOf:aGlobalName 

  1458         title:title 

  1459         ifNone:b

  1460 

  1461 !

  1462 

  1463 browseReferendsOf:aGlobalName warnIfNone:doWarn

  1464     "launch a browser for all methods referencing a global

  1465      named aGlobalName.

  1466     "

  1467 

  1468     ^ self

  1469         browseReferendsOf:aGlobalName 

  1470         title:(self classResources string:'users of: %1' with:aGlobalName)

  1471         warnIfNone:doWarn

  1472 

  1473     "Modified: / 31.10.1997 / 15:42:05 / cg"

  1474 !

  1475 

  1476 browseRefsTo:aString classVars:classVars in:aCollectionOfClasses modificationsOnly:modsOnly

  1477     "launch a browser for all methods in aClass where the instVar/classVar named

  1478      aString is referenced; if modsOnly is true, browse only methods where the

  1479      instvar is modified"

  1480 

  1481     |title|

  1482 

  1483     modsOnly ifTrue:[

  1484         title := 'modifications of: %1'

  1485     ] ifFalse:[

  1486         title := 'references to: %1 '

  1487     ].

  1488     ^ self 

  1489         browseRefsTo:aString 

  1490         classVars:classVars 

  1491         in:aCollectionOfClasses 

  1492         modificationsOnly:modsOnly 

  1493         title:(self classResources string:title with:aString)

  1494 

  1495     "Created: 9.12.1995 / 18:07:05 / cg"

  1496     "Modified: 9.12.1995 / 18:11:49 / cg"

  1497 !

  1498 

  1499 browseRefsTo:varName classVars:classVars in:aCollectionOfClasses modificationsOnly:modsOnly title:title

  1500     "launch a browser for all methods in aClass where the instVar/classVar named

  1501      varName is referenced; if modsOnly is true, browse only methods where the

  1502      instvar is modified"

  1503 

  1504     |filter browser pattern|

  1505 

  1506     filter := self filterToSearchRefsTo:varName classVars:classVars modificationsOnly:modsOnly.

  1507     browser := self browseMethodsIn:aCollectionOfClasses 

  1508 			inst:true class:classVars where:filter title:title.

  1509 

  1510     browser notNil ifTrue:[

  1511 	modsOnly ifTrue:[

  1512 	    pattern := varName , ' :='

  1513 	] ifFalse:[

  1514 	    pattern := varName

  1515 	].

  1516 	browser autoSearch:pattern 

  1517     ].

  1518     ^ browser

  1519 !

  1520 

  1521 browseSuperCallsIn:aCollectionOfClasses title:title

  1522     "launch a browser for all super sends in aCollectionOfClasses"

  1523 

  1524     |browser searchBlock|

  1525 

  1526     searchBlock := [:class :method :s | 

  1527         |src parser|

  1528 

  1529         src := method source.

  1530         (src notNil and:[src findString:'super']) ~~ 0 ifTrue:[

  1531             parser := Parser 

  1532                         parseMethod:src 

  1533                         in:class 

  1534                         ignoreErrors:true 

  1535                         ignoreWarnings:true.

  1536 

  1537             parser notNil and:[parser usesSuper]

  1538         ] ifFalse:[

  1539             false

  1540         ]

  1541     ].

  1542 

  1543     browser := self browseMethodsIn:aCollectionOfClasses

  1544                               where:searchBlock

  1545                               title:title.

  1546 

  1547     browser notNil ifTrue:[

  1548         browser autoSearch:'super' 

  1549     ].

  1550     ^ browser

  1551 

  1552     "

  1553      SystemBrowser

  1554          browseSuperCallsIn:(Array with:SortedCollection)

  1555                       title:'superSends in SortedCollection'

  1556     "

  1557 

  1558     "Created: 23.11.1995 / 14:08:55 / cg"

  1559     "Modified: 24.4.1996 / 13:25:31 / cg"

  1560 !

  1561 

  1562 browseSuperCallsUnder:aClass

  1563     "launch a browser for all supersends in aClass and subclasses"

  1564 

  1565     ^ self browseSuperCallsIn:(aClass withAllSubclasses)

  1566                         title:(self classResources string:'supersends (in and below %1)' with:aClass name)

  1567 

  1568     "

  1569      SystemBrowser browseSuperCallsUnder:Number

  1570     "

  1571 

  1572     "Created: 23.11.1995 / 12:06:06 / cg"

  1573     "Modified: 9.12.1995 / 18:11:59 / cg"

  1574 !

  1575 

  1576 browseUsesOf:aClass

  1577     |dict owners offsets

  1578      sz  "{ Class: SmallInteger }"

  1579      n   "{ Class: SmallInteger }"

  1580      removeSet newDict|

  1581 

  1582     owners := ObjectMemory whoReferencesInstancesOf:aClass.

  1583 

  1584     "

  1585      collect set of offsets in dict; key is class

  1586     "

  1587     dict := IdentityDictionary new.

  1588     owners do:[:someObject |

  1589 	|cls create|

  1590 

  1591 	someObject isContext ifFalse:[

  1592 	    "

  1593 	     someObject refers to an instance of aClass;

  1594 	     find out, which instVar(s)

  1595 	    "

  1596 	    cls := someObject class.

  1597 	    cls ~~ Array ifTrue:[

  1598 		n := cls instSize.

  1599 		create := [|s| s := Set new. dict at:cls put:s. s].

  1600 

  1601 		1 to:n do:[:i |

  1602 		    |ref|

  1603 

  1604 		    ref := someObject instVarAt:i.

  1605 		    (ref isMemberOf:aClass) ifTrue:[

  1606 			offsets := dict at:cls ifAbsent:create.

  1607 			offsets add:i.

  1608 		    ]

  1609 		].

  1610 		cls isVariable ifTrue:[

  1611 		    cls isPointers ifTrue:[

  1612 			| idx "{ Class: SmallInteger }" |

  1613 

  1614 			sz := someObject basicSize.

  1615 			idx := 1.

  1616 			[idx <= sz] whileTrue:[

  1617 			    |ref|

  1618 

  1619 			    ref := someObject basicAt:idx.

  1620 			    (ref isMemberOf:aClass) ifTrue:[

  1621 				offsets := dict at:cls ifAbsent:create.

  1622 				offsets add:0.

  1623 				idx := sz

  1624 			    ].

  1625 			    idx := idx + 1

  1626 			]

  1627 		    ]        

  1628 		]

  1629 	    ]

  1630 	]

  1631     ].

  1632 

  1633     "

  1634      merge with superclass refs

  1635     "

  1636     dict keysAndValuesDo:[:cls :set |

  1637 	cls allSuperclasses do:[:aSuperclass |

  1638 	    |superSet|

  1639 

  1640 	    superSet := dict at:aSuperclass ifAbsent:[].

  1641 	    superSet notNil ifTrue:[

  1642 		|removeSet|

  1643 

  1644 		superSet := dict at:aSuperclass.

  1645 		removeSet := Set new.

  1646 		set do:[:offset |

  1647 		    (superSet includes:offset) ifTrue:[

  1648 			removeSet add:offset

  1649 		    ]

  1650 		].

  1651 		set removeAll:removeSet

  1652 	    ]

  1653 	]

  1654     ].

  1655 

  1656     "

  1657      remove empty ones

  1658     "

  1659     removeSet := Set new.

  1660     dict keysAndValuesDo:[:cls :set |

  1661 	set isEmpty ifTrue:[

  1662 	    removeSet add:cls

  1663 	]

  1664     ].

  1665     removeSet do:[:cls |

  1666 	dict removeKey:cls

  1667     ].

  1668 

  1669     "

  1670      replace the indices by real names

  1671     "

  1672     newDict := IdentityDictionary new.

  1673     dict keysAndValuesDo:[:cls :set |

  1674 	|newSet names|

  1675 

  1676 	names := cls allInstVarNames.

  1677 	newSet := set collect:[:index | 

  1678 		index == 0 ifTrue:['*indexed*'] ifFalse:[names at:index].

  1679 	].

  1680 	newDict at:cls put:newSet

  1681     ].

  1682 

  1683     newDict inspect

  1684 

  1685 

  1686 !

  1687 

  1688 filterToSearchRefsTo:varName classVars:classVars modificationsOnly:modsOnly

  1689     "return a searchblock for variable references"

  1690 

  1691     |searchBlock|

  1692 

  1693     searchBlock := [:c :m :s |

  1694         |src result parser vars needMatch|

  1695 

  1696         needMatch := varName includesMatchCharacters.

  1697 

  1698         src := m source.

  1699         src isNil ifTrue:[

  1700             result := false

  1701         ] ifFalse:[

  1702             needMatch ifFalse:[

  1703                 "

  1704                  before doing a slow parse, quickly scan the

  1705                  methods source for the variables name ...

  1706                 "

  1707                 result := (src findString:varName) ~~ 0.

  1708             ] ifTrue:[

  1709                 result := true.

  1710             ].

  1711             result ifTrue:[

  1712                 result := false.

  1713                 parser := Parser

  1714                                 parseMethod:src 

  1715                                 in:c 

  1716                                 ignoreErrors:true 

  1717                                 ignoreWarnings:true.

  1718 

  1719                 (parser notNil and:[parser ~~ #Error]) ifTrue:[

  1720                     classVars ifFalse:[

  1721                         modsOnly ifTrue:[

  1722                             vars := parser modifiedInstVars

  1723                         ] ifFalse:[

  1724                             vars := parser usedInstVars

  1725                         ].

  1726                     ] ifTrue:[    

  1727                         modsOnly ifTrue:[

  1728                             vars := parser modifiedClassVars

  1729                         ] ifFalse:[

  1730                             vars := parser usedClassVars

  1731                         ].

  1732                     ].

  1733                     vars size > 0 ifTrue:[

  1734                         needMatch ifTrue:[

  1735                             vars do:[:cv |

  1736                                 (varName match:cv) ifTrue:[result := true]

  1737                             ]

  1738                         ] ifFalse:[

  1739                             result := vars includes:varName

  1740                         ]

  1741                     ]

  1742                 ].

  1743             ].

  1744         ].

  1745         Processor yield.

  1746         result

  1747     ].

  1748     ^ searchBlock

  1749 

  1750     "Modified: 19.6.1997 / 18:27:57 / cg"

  2218     ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.102 2000-02-22 18:40:47 cg Exp $'

  2262     ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.103 2000-03-21 11:24:17 cg Exp $'