|
1 "{ Package: 'stx:libscm/git' }" |
|
2 |
|
3 ExternalStructure subclass:#GitOdbBackend |
|
4 instanceVariableNames:'' |
|
5 classVariableNames:'' |
|
6 poolDictionaries:'' |
|
7 category:'Git-Support-libgit2' |
|
8 ! |
|
9 |
|
10 |
|
11 !GitOdbBackend class methodsFor:'accessing'! |
|
12 |
|
13 libraryName |
|
14 |
|
15 OperatingSystem isUNIXlike ifTrue:[^'libgit2.so']. |
|
16 |
|
17 OperatingSystem isMSWINDOWSlike ifTrue:[^'git2.dll']. |
|
18 |
|
19 self error:'Library name for host OS is not known' |
|
20 ! |
|
21 |
|
22 structSize |
|
23 |
|
24 ^320 |
|
25 ! ! |
|
26 |
|
27 !GitOdbBackend methodsFor:'accessing'! |
|
28 |
|
29 exists |
|
30 "Returns (pointer-to ;; Line: 3164 |
|
31 )" |
|
32 |
|
33 ^self pointerAt:1 + 28 |
|
34 ! |
|
35 |
|
36 exists: value |
|
37 |
|
38 self pointerAt:1 + 28 put:value |
|
39 ! |
|
40 |
|
41 foreach |
|
42 "Returns (pointer-to ;; Line: 3176 |
|
43 )" |
|
44 |
|
45 ^self pointerAt:1 + 32 |
|
46 ! |
|
47 |
|
48 foreach: value |
|
49 |
|
50 self pointerAt:1 + 32 put:value |
|
51 ! |
|
52 |
|
53 free |
|
54 "Returns (pointer-to ;; Line: 3182 |
|
55 )" |
|
56 |
|
57 ^self pointerAt:1 + 36 |
|
58 ! |
|
59 |
|
60 free: value |
|
61 |
|
62 self pointerAt:1 + 36 put:value |
|
63 ! |
|
64 |
|
65 odb |
|
66 "Returns (pointer-to ;; Line: 317 |
|
67 ;; Class: GitOdb |
|
68 )" |
|
69 |
|
70 ^self pointerAt:1 + 0 |
|
71 ! |
|
72 |
|
73 odb: value |
|
74 |
|
75 self pointerAt:1 + 0 put:value |
|
76 ! |
|
77 |
|
78 read |
|
79 "Returns (pointer-to ;; Line: 3109 |
|
80 )" |
|
81 |
|
82 ^self pointerAt:1 + 4 |
|
83 ! |
|
84 |
|
85 read: value |
|
86 |
|
87 self pointerAt:1 + 4 put:value |
|
88 ! |
|
89 |
|
90 readHeader |
|
91 "Returns (pointer-to ;; Line: 3130 |
|
92 )" |
|
93 |
|
94 ^self pointerAt:1 + 12 |
|
95 ! |
|
96 |
|
97 readHeader: value |
|
98 |
|
99 self pointerAt:1 + 12 put:value |
|
100 ! |
|
101 |
|
102 readPrefix |
|
103 "Returns (pointer-to ;; Line: 3121 |
|
104 )" |
|
105 |
|
106 ^self pointerAt:1 + 8 |
|
107 ! |
|
108 |
|
109 readPrefix: value |
|
110 |
|
111 self pointerAt:1 + 8 put:value |
|
112 ! |
|
113 |
|
114 readstream |
|
115 "Returns (pointer-to ;; Line: 3157 |
|
116 )" |
|
117 |
|
118 ^self pointerAt:1 + 24 |
|
119 ! |
|
120 |
|
121 readstream: value |
|
122 |
|
123 self pointerAt:1 + 24 put:value |
|
124 ! |
|
125 |
|
126 write |
|
127 "Returns (pointer-to ;; Line: 3140 |
|
128 )" |
|
129 |
|
130 ^self pointerAt:1 + 16 |
|
131 ! |
|
132 |
|
133 write: value |
|
134 |
|
135 self pointerAt:1 + 16 put:value |
|
136 ! |
|
137 |
|
138 writestream |
|
139 "Returns (pointer-to ;; Line: 3149 |
|
140 )" |
|
141 |
|
142 ^self pointerAt:1 + 20 |
|
143 ! |
|
144 |
|
145 writestream: value |
|
146 |
|
147 self pointerAt:1 + 20 put:value |
|
148 ! ! |
|
149 |
|
150 !GitOdbBackend class methodsFor:'documentation'! |
|
151 |
|
152 version_SVN |
|
153 ^ '$Id:: $' |
|
154 ! ! |