author | Jan Vrany <jan.vrany@labware.com> |
Thu, 28 Jul 2022 06:56:07 +0100 | |
changeset 943 | 442fe77c421f |
parent 481 | 0cfef855baa2 |
permissions | -rw-r--r-- |
8
4275f357d3e8
- API fixes, more to come
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
1 |
"{ Package: 'stx:libscm/git' }" |
4275f357d3e8
- API fixes, more to come
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
2 |
|
4275f357d3e8
- API fixes, more to come
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
3 |
ExternalStructure subclass:#GitStructure |
4275f357d3e8
- API fixes, more to come
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
4 |
instanceVariableNames:'' |
4275f357d3e8
- API fixes, more to come
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
5 |
classVariableNames:'' |
4275f357d3e8
- API fixes, more to come
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
6 |
poolDictionaries:'' |
24 | 7 |
category:'SCM-Git-Core-Internal-Structures' |
8
4275f357d3e8
- API fixes, more to come
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
8 |
! |
4275f357d3e8
- API fixes, more to come
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
9 |
|
4275f357d3e8
- API fixes, more to come
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
10 |
|
10 | 11 |
!GitStructure class methodsFor:'instance creation'! |
12 |
||
13 |
address: address |
|
14 |
^self address: address size: self structSize. |
|
15 |
||
16 |
"Created: / 19-09-2012 / 14:04:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
16
83e178bfe891
- GitCommitterQuery
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
10
diff
changeset
|
17 |
! |
83e178bfe891
- GitCommitterQuery
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
10
diff
changeset
|
18 |
|
24 | 19 |
fromExternalAddress:anExternalAddress |
20 |
^ self basicNew fromExternalAddress:anExternalAddress |
|
21 |
||
22 |
"Created: / 01-10-2012 / 14:26:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
23 |
! |
|
24 |
||
23
5cbdd3cb7ce4
- GitPrimitives
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
16
diff
changeset
|
25 |
new |
5cbdd3cb7ce4
- GitPrimitives
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
16
diff
changeset
|
26 |
^self new: self structSize |
5cbdd3cb7ce4
- GitPrimitives
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
16
diff
changeset
|
27 |
|
5cbdd3cb7ce4
- GitPrimitives
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
16
diff
changeset
|
28 |
"Created: / 30-09-2012 / 20:21:27 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
5cbdd3cb7ce4
- GitPrimitives
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
16
diff
changeset
|
29 |
! |
5cbdd3cb7ce4
- GitPrimitives
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
16
diff
changeset
|
30 |
|
26 | 31 |
new: size |
32 |
size == self structSize ifFalse:[ |
|
33 |
self error:'Invalid size for git_checkout_opts'. |
|
34 |
^nil. |
|
35 |
]. |
|
36 |
^(super new: size) initialize. |
|
37 |
||
38 |
"Created: / 19-09-2012 / 18:13:42 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
39 |
! |
|
40 |
||
16
83e178bfe891
- GitCommitterQuery
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
10
diff
changeset
|
41 |
newAddress: address |
83e178bfe891
- GitCommitterQuery
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
10
diff
changeset
|
42 |
^self address: address size: self structSize. |
83e178bfe891
- GitCommitterQuery
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
10
diff
changeset
|
43 |
|
83e178bfe891
- GitCommitterQuery
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
10
diff
changeset
|
44 |
"Created: / 25-09-2012 / 15:07:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
10 | 45 |
! ! |
46 |
||
8
4275f357d3e8
- API fixes, more to come
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
47 |
!GitStructure class methodsFor:'accessing'! |
4275f357d3e8
- API fixes, more to come
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
48 |
|
4275f357d3e8
- API fixes, more to come
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
49 |
structSize |
4275f357d3e8
- API fixes, more to come
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
50 |
^0 |
4275f357d3e8
- API fixes, more to come
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
51 |
|
4275f357d3e8
- API fixes, more to come
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
52 |
"Created: / 19-09-2012 / 01:53:13 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
4275f357d3e8
- API fixes, more to come
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
53 |
! ! |
4275f357d3e8
- API fixes, more to come
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
54 |
|
26 | 55 |
!GitStructure methodsFor:'initialization'! |
56 |
||
57 |
initialize |
|
58 |
1 to: self size do:[:i|self at: i put: 0] |
|
59 |
||
60 |
"Created: / 03-10-2012 / 20:31:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
61 |
! ! |
|
62 |
||
8
4275f357d3e8
- API fixes, more to come
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
63 |
!GitStructure methodsFor:'private'! |
4275f357d3e8
- API fixes, more to come
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
64 |
|
4275f357d3e8
- API fixes, more to come
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
65 |
fromExternalAddress:anExternalAddress |
4275f357d3e8
- API fixes, more to come
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
66 |
self setAddress:(anExternalAddress address) size: self class structSize |
4275f357d3e8
- API fixes, more to come
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
67 |
|
4275f357d3e8
- API fixes, more to come
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
68 |
"Created: / 19-09-2012 / 01:53:13 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
4275f357d3e8
- API fixes, more to come
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
69 |
! ! |
4275f357d3e8
- API fixes, more to come
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
70 |
|
4275f357d3e8
- API fixes, more to come
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
71 |
!GitStructure class methodsFor:'documentation'! |
4275f357d3e8
- API fixes, more to come
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
72 |
|
31
d96d7eff6efc
- GitDiffDeltaStructure
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
26
diff
changeset
|
73 |
version_GIT |
d96d7eff6efc
- GitDiffDeltaStructure
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
26
diff
changeset
|
74 |
"Never, ever change this method. Ask JV or CG why" |
d96d7eff6efc
- GitDiffDeltaStructure
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
26
diff
changeset
|
75 |
^thisContext method mclass theNonMetaclass instVarNamed: #revision |
d96d7eff6efc
- GitDiffDeltaStructure
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
26
diff
changeset
|
76 |
! |
d96d7eff6efc
- GitDiffDeltaStructure
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
26
diff
changeset
|
77 |
|
8
4275f357d3e8
- API fixes, more to come
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
78 |
version_SVN |
481
0cfef855baa2
Initial import from upstream repository
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
31
diff
changeset
|
79 |
^ '$Id$' |
8
4275f357d3e8
- API fixes, more to come
vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
parents:
diff
changeset
|
80 |
! ! |