hg/stx-libscm: comparison mercurial/HGCommand.st

equal deleted inserted replaced

-:af5fea76e6ed
+:5acd6d915c77
 	poolDictionaries:''
 	privateIn:HGCommand
 !
 HGCommand subclass:#log
-	instanceVariableNames:'start stop path childrenOnly revsets'
+	instanceVariableNames:'start stop path childrenOnly idsOnly revsets limit'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:HGCommand
 !
 Logger log: 'cmd: propagating: ' , anException class name , ' - ', anException description severity: #trace facility: 'HG'.
 ].
 errors nextPut: anException.
 "Created: / 04-02-2013 / 21:29:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-"Modified: / 05-03-2013 / 19:32:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+"Modified: / 09-02-2014 / 19:28:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 signal
 "Signal all propagated exceptions to the caller"
 "Modified (format): / 27-12-2011 / 15:47:10 / dundee"
 "Modified: / 30-09-2012 / 23:43:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 command
-"Returns the git 'command' option, i.e. commit,
+"Returns the hg 'command' option, i.e. commit,
 push, pull, ..."
 ^self class nameWithoutPrefix
 "
 "
 "Created: / 11-05-2011 / 07:58:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified (format): / 27-12-2011 / 15:47:17 / dundee"
 "Modified: / 30-09-2012 / 23:37:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-"Modified (comment): / 17-10-2012 / 13:25:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+"Modified (comment): / 08-02-2014 / 11:41:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 executable
 ^ self class hgCommand
 "Created: / 15-11-2012 / 17:04:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 08-03-2013 / 19:35:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !HGCommand::locate methodsFor:'accessing'!
 revision
 ^ revision
 !
 ^ childrenOnly
 !
 childrenOnly:aBoolean
 childrenOnly := aBoolean.
+!
+idsOnly
+^ idsOnly
+!
+idsOnly:aBoolean
+idsOnly := aBoolean.
+!
+limit
+^ limit
+!
+limit:anInteger
+limit := anInteger.
 !
 path
 ^ path
 !
 argumentsCommandOn:stream
 "Called to get command specific options"
 | template |
+template := HGCommandParser templateLog.
 path isNil ifTrue:[
 revsets isEmptyOrNil ifTrue:[
 self error:'No revisions given'.
 ].
 revsets do:[:revset|
 stream nextPut:'--rev'.
 stream nextPut:revset asString
 ].
-template := HGCommandParser templateLog.
 ] ifFalse:[
 stream nextPut: '--follow'.
-template := HGCommandParser templateLogFile.
+].
+idsOnly == true ifTrue:[
+template := HGCommandParser templateLogIdsOnly.
 ].
 childrenOnly == true ifTrue:[
 template := HGCommandParser templateLogChildren.
 ].
 stream
 nextPut:'--debug';
 nextPut:'--template';
 nextPut:template.
+limit notNil ifTrue:[
+stream
+nextPut: '-l';
+nextPut: limit printString
+].
 path notNil ifTrue:[
 stream nextPut: path.
 ].
 "Created: / 13-11-2012 / 09:05:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-"Modified: / 22-01-2013 / 16:16:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+"Modified: / 08-02-2014 / 22:22:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
-parseOutput:stream
+parseError:stream
 "Parses output of 'hg' command, i.e. commit, log, update, checkout,
 etc."
+^ (self parserOn: stream) parseErrorLog.
+"Created: / 09-02-2014 / 10:22:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+parseOutput:stream
+"Parses output of 'hg' command, i.e. commit, log, update, checkout,
+etc."
 childrenOnly == true ifTrue:[
 ^ (self parserOn:stream) parseCommandLogChildren.
 ].
-^ path isNil
+^ idsOnly ~~ true
 ifTrue:[ (self parserOn:stream) parseCommandLog ]
-ifFalse:[ (self parserOn:stream) parseCommandLogFile ]
+ifFalse:[ (self parserOn:stream) parseCommandLogIdsOnly ]
 "Created: / 13-11-2012 / 09:05:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-"Modified: / 05-12-2012 / 23:51:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+"Modified: / 08-02-2014 / 22:12:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !HGCommand::merge methodsFor:'accessing'!
 revision

changeset 372	5acd6d915c77
parent 366	9da938d1e76a
child 395	fc0607653d8a