equal
deleted
inserted
replaced
19 poolDictionaries:'' |
19 poolDictionaries:'' |
20 category:'Interface-Tools-File-Tags' |
20 category:'Interface-Tools-File-Tags' |
21 ! |
21 ! |
22 |
22 |
23 Tag subclass:#TElement |
23 Tag subclass:#TElement |
|
24 instanceVariableNames:'' |
|
25 classVariableNames:'' |
|
26 poolDictionaries:'' |
|
27 privateIn:Tag |
|
28 ! |
|
29 |
|
30 Tag subclass:#TCaseLabel |
24 instanceVariableNames:'' |
31 instanceVariableNames:'' |
25 classVariableNames:'' |
32 classVariableNames:'' |
26 poolDictionaries:'' |
33 poolDictionaries:'' |
27 privateIn:Tag |
34 privateIn:Tag |
28 ! |
35 ! |
385 "/ |
392 "/ |
386 "/ type notNil ifTrue:[ |
393 "/ type notNil ifTrue:[ |
387 "/ ^ type, ' ' , l |
394 "/ ^ type, ' ' , l |
388 "/ ]. |
395 "/ ]. |
389 ^ l |
396 ^ l |
|
397 ! |
|
398 |
|
399 shortInfoString |
|
400 |s| |
|
401 |
|
402 s := self typeString. |
|
403 fileName notNil ifTrue:[ |
|
404 s := s , ' in ', fileName baseName "pathName". |
|
405 ]. |
|
406 ^ s |
390 ! ! |
407 ! ! |
391 |
408 |
392 !Tag methodsFor:'queries'! |
409 !Tag methodsFor:'queries'! |
393 |
410 |
394 widthOn:aGC |
411 widthOn:aGC |
427 (pat startsWith:$^) ifTrue:[ |
444 (pat startsWith:$^) ifTrue:[ |
428 pat := pat copyFrom:2. |
445 pat := pat copyFrom:2. |
429 atStart := true. |
446 atStart := true. |
430 ]. |
447 ]. |
431 (pat endsWith:$$) ifTrue:[ |
448 (pat endsWith:$$) ifTrue:[ |
432 pat := pat copyButLast:1. |
449 pat := pat copyButLast. |
433 atEnd := true. |
450 atEnd := true. |
434 ]. |
451 ]. |
435 atStart == true ifTrue:[ |
452 atStart == true ifTrue:[ |
436 atEnd == true ifTrue:[ |
453 atEnd == true ifTrue:[ |
437 lnr := someText findFirst:[:l| l = pat]. |
454 lnr := someText findFirst:[:line | line = pat]. |
438 ] ifFalse:[ |
455 ] ifFalse:[ |
439 lnr := someText findFirst:[:l| l startsWith:pat]. |
456 lnr := someText findFirst:[:line | line startsWith:pat]. |
440 ] |
457 ] |
441 ] ifFalse:[ |
458 ] ifFalse:[ |
442 atEnd == true ifTrue:[ |
459 atEnd == true ifTrue:[ |
443 lnr := someText findFirst:[:l| l endsWith:pat]. |
460 lnr := someText findFirst:[:line | line endsWith:pat]. |
444 ] ifFalse:[ |
461 ] ifFalse:[ |
445 lnr := someText findFirst:[:l| l includesString:pat]. |
462 lnr := someText findFirst:[:line | line includesString:pat]. |
446 ]. |
463 ]. |
447 ]. |
464 ]. |
448 |
465 |
449 lnr == 0 ifTrue:[ |
466 lnr == 0 ifTrue:[ |
450 lnr := someText findFirst:[:l| l includesString:self label]. |
467 lnr := someText findFirst:[:line | line includesString:self label]. |
451 lnr == 0 ifTrue:[ |
468 lnr == 0 ifTrue:[ |
452 lnr := 1. |
469 lnr := 1. |
453 ]. |
470 ]. |
454 ]. |
471 ]. |
455 ^ lnr |
472 ^ lnr |
491 ^ false |
508 ^ false |
492 |
509 |
493 |
510 |
494 ! |
511 ! |
495 |
512 |
|
513 isFunctionOrMethodTag |
|
514 "return true, if this is a function or a method tag |
|
515 " |
|
516 ^ false |
|
517 ! |
|
518 |
496 isFunctionTag |
519 isFunctionTag |
497 "return true, if this is a function tag |
520 "return true, if this is a function tag |
498 " |
521 " |
499 ^ false |
522 ^ false |
500 |
523 |
659 "return true, if this is an element tag |
682 "return true, if this is an element tag |
660 " |
683 " |
661 ^ true |
684 ^ true |
662 |
685 |
663 "Created: / 20-04-2011 / 18:53:16 / cg" |
686 "Created: / 20-04-2011 / 18:53:16 / cg" |
|
687 ! ! |
|
688 |
|
689 !Tag::TCaseLabel class methodsFor:'accessing'! |
|
690 |
|
691 typeIdentifier |
|
692 ^ 'L' |
|
693 ! ! |
|
694 |
|
695 !Tag::TCaseLabel methodsFor:'accessing'! |
|
696 |
|
697 typeString |
|
698 ^ 'case label' |
|
699 ! ! |
|
700 |
|
701 !Tag::TCaseLabel methodsFor:'testing'! |
|
702 |
|
703 isCaseLabelTag |
|
704 "return true, if this is a case label tag |
|
705 " |
|
706 ^ true |
|
707 ! |
|
708 |
|
709 isLabelTag |
|
710 "return true, if this is a label tag |
|
711 " |
|
712 ^ true |
|
713 |
|
714 |
664 ! ! |
715 ! ! |
665 |
716 |
666 !Tag::TClass class methodsFor:'accessing'! |
717 !Tag::TClass class methodsFor:'accessing'! |
667 |
718 |
668 typeIdentifier |
719 typeIdentifier |
893 |
944 |
894 ! ! |
945 ! ! |
895 |
946 |
896 !Tag::TFunction methodsFor:'testing'! |
947 !Tag::TFunction methodsFor:'testing'! |
897 |
948 |
|
949 isFunctionOrMethodTag |
|
950 "return true, if this is a function or method tag |
|
951 " |
|
952 ^ true |
|
953 ! |
|
954 |
898 isFunctionTag |
955 isFunctionTag |
899 "return true, if this is a function tag |
956 "return true, if this is a function tag |
900 " |
957 " |
901 ^ true |
958 ^ true |
902 |
959 |
1084 ! ! |
1141 ! ! |
1085 |
1142 |
1086 !Tag::TMacro methodsFor:'testing'! |
1143 !Tag::TMacro methodsFor:'testing'! |
1087 |
1144 |
1088 isMacroTag |
1145 isMacroTag |
1089 "return true, if this is a define macro tag |
1146 "return true, if this is a define macro / macro tag |
1090 " |
1147 " |
1091 ^ true |
1148 ^ true |
1092 |
|
1093 |
|
1094 ! ! |
1149 ! ! |
1095 |
1150 |
1096 !Tag::TMakeRule class methodsFor:'accessing'! |
1151 !Tag::TMakeRule class methodsFor:'accessing'! |
1097 |
1152 |
1098 typeIdentifier |
1153 typeIdentifier |
1194 |
1249 |
1195 ! ! |
1250 ! ! |
1196 |
1251 |
1197 !Tag::TMethod methodsFor:'testing'! |
1252 !Tag::TMethod methodsFor:'testing'! |
1198 |
1253 |
|
1254 isFunctionOrMethodTag |
|
1255 "return true, if this is a function or method tag |
|
1256 " |
|
1257 ^ true |
|
1258 ! |
|
1259 |
1199 isMethodTag |
1260 isMethodTag |
1200 "return true, if this is a java method tag |
1261 "return true, if this is a method tag |
1201 " |
1262 " |
1202 ^ true |
1263 ^ true |
1203 |
|
1204 |
|
1205 ! ! |
1264 ! ! |
1206 |
1265 |
1207 !Tag::TPackage class methodsFor:'accessing'! |
1266 !Tag::TPackage class methodsFor:'accessing'! |
1208 |
1267 |
1209 typeIdentifier |
1268 typeIdentifier |
1372 |
1431 |
1373 ! ! |
1432 ! ! |
1374 |
1433 |
1375 !Tag class methodsFor:'documentation'! |
1434 !Tag class methodsFor:'documentation'! |
1376 |
1435 |
|
1436 version |
|
1437 ^ '$Header: /cvs/stx/stx/libtool/Tools__Tag.st,v 1.14 2014-07-04 10:27:24 cg Exp $' |
|
1438 ! |
|
1439 |
1377 version_CVS |
1440 version_CVS |
1378 ^ '$Header: /cvs/stx/stx/libtool/Tools__Tag.st,v 1.8 2013-09-01 07:31:11 cg Exp $' |
1441 ^ '$Header: /cvs/stx/stx/libtool/Tools__Tag.st,v 1.14 2014-07-04 10:27:24 cg Exp $' |
1379 ! |
|
1380 |
|
1381 version_HG |
|
1382 |
|
1383 ^ '$Changeset: <not expanded> $' |
|
1384 ! |
1442 ! |
1385 |
1443 |
1386 version_SVN |
1444 version_SVN |
1387 ^ '$Id: Tools__Tag.st,v 1.8 2013-09-01 07:31:11 cg Exp $' |
1445 ^ '$Id: Tools__Tag.st,v 1.14 2014-07-04 10:27:24 cg Exp $' |
1388 ! ! |
1446 ! ! |
1389 |
1447 |