equal
deleted
inserted
replaced
15 You should have received a copy of the GNU Lesser General Public |
15 You should have received a copy of the GNU Lesser General Public |
16 License along with this library; if not, write to the Free Software |
16 License along with this library; if not, write to the Free Software |
17 Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
17 Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
18 " |
18 " |
19 "{ Package: 'stx:libscm/mercurial' }" |
19 "{ Package: 'stx:libscm/mercurial' }" |
|
20 |
|
21 "{ NameSpace: Smalltalk }" |
20 |
22 |
21 Object subclass:#HGCommand |
23 Object subclass:#HGCommand |
22 instanceVariableNames:'workingDirectory result error errors blocker errorReader |
24 instanceVariableNames:'workingDirectory result error errors blocker errorReader |
23 outputReader' |
25 outputReader' |
24 classVariableNames:'HGCommandString HGExecutable HGExecutableArguments HGVersion |
26 classVariableNames:'HGCommandString HGExecutable HGExecutableArguments HGVersion |
153 privateIn:HGCommand |
155 privateIn:HGCommand |
154 ! |
156 ! |
155 |
157 |
156 HGCommand subclass:#resolve__list |
158 HGCommand subclass:#resolve__list |
157 instanceVariableNames:'' |
159 instanceVariableNames:'' |
|
160 classVariableNames:'' |
|
161 poolDictionaries:'' |
|
162 privateIn:HGCommand |
|
163 ! |
|
164 |
|
165 HGCommand subclass:#share |
|
166 instanceVariableNames:'source destination update' |
158 classVariableNames:'' |
167 classVariableNames:'' |
159 poolDictionaries:'' |
168 poolDictionaries:'' |
160 privateIn:HGCommand |
169 privateIn:HGCommand |
161 ! |
170 ! |
162 |
171 |
655 |
664 |
656 resolve__list |
665 resolve__list |
657 ^resolve__list new |
666 ^resolve__list new |
658 |
667 |
659 "Created: / 14-01-2013 / 16:42:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
668 "Created: / 14-01-2013 / 16:42:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
669 ! |
|
670 |
|
671 share |
|
672 ^share new |
|
673 |
|
674 "Created: / 25-08-2015 / 01:50:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
660 ! |
675 ! |
661 |
676 |
662 showconfig |
677 showconfig |
663 ^showconfig new |
678 ^showconfig new |
664 |
679 |
1645 ^ nil |
1660 ^ nil |
1646 |
1661 |
1647 "Created: / 13-02-2014 / 12:36:44 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1662 "Created: / 13-02-2014 / 12:36:44 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1648 ! ! |
1663 ! ! |
1649 |
1664 |
1650 |
|
1651 !HGCommand::locate methodsFor:'accessing'! |
1665 !HGCommand::locate methodsFor:'accessing'! |
1652 |
1666 |
1653 revision |
1667 revision |
1654 ^ revision |
1668 ^ revision |
1655 ! |
1669 ! |
2182 ^ (self parserOn:stream) parseCommandResolveList |
2196 ^ (self parserOn:stream) parseCommandResolveList |
2183 |
2197 |
2184 "Modified: / 14-01-2013 / 16:43:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2198 "Modified: / 14-01-2013 / 16:43:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2185 ! ! |
2199 ! ! |
2186 |
2200 |
|
2201 !HGCommand::share methodsFor:'accessing'! |
|
2202 |
|
2203 destination |
|
2204 ^ destination |
|
2205 ! |
|
2206 |
|
2207 destination:aString |
|
2208 destination := aString. |
|
2209 ! |
|
2210 |
|
2211 source |
|
2212 ^ source |
|
2213 ! |
|
2214 |
|
2215 source:aString |
|
2216 source := aString. |
|
2217 ! |
|
2218 |
|
2219 update |
|
2220 ^ update |
|
2221 ! |
|
2222 |
|
2223 update:aBoolean |
|
2224 update := aBoolean. |
|
2225 ! ! |
|
2226 |
|
2227 !HGCommand::share methodsFor:'private'! |
|
2228 |
|
2229 argumentsCommandOn:stream |
|
2230 "Called to get command specific options" |
|
2231 update == false ifTrue:[ |
|
2232 stream nextPut:'--noupdate'. |
|
2233 ]. |
|
2234 stream nextPut: '--bookmarks'. |
|
2235 stream nextPut: source; nextPut: destination. |
|
2236 |
|
2237 "Created: / 01-10-2012 / 00:04:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2238 "Modified: / 25-08-2015 / 01:46:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2239 ! |
|
2240 |
|
2241 argumentsGlobalOn: stream |
|
2242 stream nextPut: '--config'; nextPut:'extensions.share=' |
|
2243 |
|
2244 "Created: / 25-08-2015 / 01:47:55 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2245 ! |
|
2246 |
|
2247 parseOutput:stream |
|
2248 "superclass Command says that I am responsible to implement this method" |
|
2249 |
|
2250 ^ nil |
|
2251 |
|
2252 "Modified: / 14-11-2012 / 22:42:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
2253 ! ! |
|
2254 |
2187 !HGCommand::showconfig methodsFor:'accessing'! |
2255 !HGCommand::showconfig methodsFor:'accessing'! |
2188 |
2256 |
2189 argumentsCommandOn:stream |
2257 argumentsCommandOn:stream |
2190 "Called to get command specific options" |
2258 "Called to get command specific options" |
2191 |
2259 |