2891 |
2891 |
2892 revisionInfo |
2892 revisionInfo |
2893 "return a dictionary filled with revision info. |
2893 "return a dictionary filled with revision info. |
2894 This extracts the relevant info from the revisionString. |
2894 This extracts the relevant info from the revisionString. |
2895 The revisionInfo contains all or a subset of: |
2895 The revisionInfo contains all or a subset of: |
2896 #binaryRevision - the revision upon which the binary of this class is based |
2896 #binaryRevision - the revision upon which the binary of this class is based |
2897 #revision - the revision upon which the class is based logically |
2897 #revision - the revision upon which the class is based logically |
2898 (different, if a changed class was checked in, but not yet recompiled) |
2898 (different, if a changed class was checked in, but not yet recompiled) |
2899 #user - the user who checked in the logical revision |
2899 #user - the user who checked in the logical revision |
2900 #date - the date when the logical revision was checked in |
2900 #date - the date when the logical revision was checked in |
2901 #time - the time when the logical revision was checked in |
2901 #time - the time when the logical revision was checked in |
2902 #fileName - the classes source file name |
2902 #fileName - the classes source file name |
2903 #repositoryPath - the classes source container |
2903 #repositoryPath - the classes source container |
2904 " |
2904 " |
2905 |
2905 |
2906 |vsnString info| |
2906 |vsnString info| |
2907 |
2907 |
2908 vsnString := self revisionString. |
2908 vsnString := self revisionString. |
2909 vsnString notNil ifTrue:[ |
2909 vsnString notNil ifTrue:[ |
2910 info := Class revisionInfoFromString:vsnString. |
2910 info := Class revisionInfoFromString:vsnString. |
2911 info at:#binaryRevision put:revision. |
2911 info notNil ifTrue:[ |
|
2912 info at:#binaryRevision put:revision. |
|
2913 ] |
2912 ]. |
2914 ]. |
2913 ^ info |
2915 ^ info |
2914 |
2916 |
2915 " |
2917 " |
2916 Object revisionString |
2918 Object revisionString |
2917 Object revisionInfo |
2919 Object revisionInfo |
2918 Image revisionInfo |
2920 Image revisionInfo |
2919 " |
2921 " |
2920 |
2922 |
2921 "Created: 11.11.1995 / 14:27:20 / cg" |
2923 "Created: 11.11.1995 / 14:27:20 / cg" |
2922 "Modified: 7.12.1995 / 12:45:06 / cg" |
2924 "Modified: 9.12.1995 / 21:35:26 / cg" |
2923 ! |
2925 ! |
2924 |
2926 |
2925 revisionString |
2927 revisionString |
2926 "return my revision string; that one is extracted from the |
2928 "return my revision string; that one is extracted from the |
2927 classes #version method. Either this is a method returning that string, |
2929 classes #version method. Either this is a method returning that string, |