equal
deleted
inserted
replaced
109 poolDictionaries:'' |
109 poolDictionaries:'' |
110 privateIn:HGCommand |
110 privateIn:HGCommand |
111 ! |
111 ! |
112 |
112 |
113 HGCommand subclass:#remove |
113 HGCommand subclass:#remove |
114 instanceVariableNames:'paths' |
114 instanceVariableNames:'force paths' |
115 classVariableNames:'' |
115 classVariableNames:'' |
116 poolDictionaries:'' |
116 poolDictionaries:'' |
117 privateIn:HGCommand |
117 privateIn:HGCommand |
118 ! |
118 ! |
119 |
119 |
1503 !HGCommand::remove methodsFor:'private'! |
1503 !HGCommand::remove methodsFor:'private'! |
1504 |
1504 |
1505 argumentsCommandOn:stream |
1505 argumentsCommandOn:stream |
1506 "Called to get command specific options" |
1506 "Called to get command specific options" |
1507 |
1507 |
|
1508 force == true ifTrue:[ |
|
1509 stream nextPut: '-f'. |
|
1510 ]. |
|
1511 |
1508 paths isEmptyOrNil ifTrue:[ |
1512 paths isEmptyOrNil ifTrue:[ |
1509 self error: 'No paths given' |
1513 self error: 'No paths given' |
1510 ]. |
1514 ]. |
1511 stream nextPutAll: paths |
1515 stream nextPutAll: paths |
1512 |
1516 |
1513 "Created: / 15-11-2012 / 00:05:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1517 "Created: / 15-11-2012 / 00:05:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1518 "Modified: / 11-10-2013 / 18:27:51 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1514 ! |
1519 ! |
1515 |
1520 |
1516 parseOutput:stream |
1521 parseOutput:stream |
1517 "Parses output of 'hg' command, i.e. commit, log, update, checkout, |
1522 "Parses output of 'hg' command, i.e. commit, log, update, checkout, |
1518 etc." |
1523 etc." |