equal
deleted
inserted
replaced
329 HGExecutable notNil ifTrue:[^ HGExecutable]. |
329 HGExecutable notNil ifTrue:[^ HGExecutable]. |
330 |
330 |
331 OperatingSystem isMSWINDOWSlike ifTrue:[ |
331 OperatingSystem isMSWINDOWSlike ifTrue:[ |
332 "/ h := Win32OperatingSystem registryEntry |
332 "/ h := Win32OperatingSystem registryEntry |
333 "/ key:'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\App Paths\svn.exe'. |
333 "/ key:'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\App Paths\svn.exe'. |
334 "/ h notNil ifTrue:[GitExecutable := h valueNamed:'']. |
334 "/ h notNil ifTrue:[HGExecutable := h valueNamed:'']. |
335 "/ GitExecutable notEmptyOrNil ifTrue:[^ GitExecutable] |
335 "/ HGExecutable notEmptyOrNil ifTrue:[^HGExecutable] |
336 HGExecutable := OperatingSystem pathOfCommand:'hg'. |
336 HGExecutable := OperatingSystem pathOfCommand:'hg'. |
337 ^HGExecutable |
337 ^HGExecutable |
338 ]. |
338 ]. |
339 |
339 |
340 OperatingSystem isUNIXlike ifTrue:[ |
340 OperatingSystem isUNIXlike ifTrue:[ |
344 |
344 |
345 self error:'''hg'' executable not found!!'. |
345 self error:'''hg'' executable not found!!'. |
346 |
346 |
347 |
347 |
348 " |
348 " |
349 GitExecutable := nil. |
349 HGExecutable := nil. |
350 self basicNew executable |
350 self basicNew executable |
351 " |
351 " |
352 |
352 |
353 "Created: / 11-05-2011 / 07:59:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
353 "Created: / 11-05-2011 / 07:59:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
354 "Modified: / 09-12-2011 / 22:48:33 / dundee" |
354 "Modified: / 09-12-2011 / 22:48:33 / dundee" |
437 |
437 |
438 "Created: / 01-10-2012 / 00:04:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
438 "Created: / 01-10-2012 / 00:04:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
439 ! |
439 ! |
440 |
440 |
441 parse:stream |
441 parse:stream |
442 "superclass GitCommand says that I am responsible to implement this method" |
442 "superclass Command says that I am responsible to implement this method" |
443 |
443 |
444 ^ nil |
444 ^ nil |
445 |
445 |
446 "Modified: / 14-11-2012 / 22:42:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
446 "Modified: / 14-11-2012 / 22:42:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
447 ! ! |
447 ! ! |
483 "Created: / 12-11-2012 / 22:38:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
483 "Created: / 12-11-2012 / 22:38:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
484 "Modified: / 14-11-2012 / 19:45:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
484 "Modified: / 14-11-2012 / 19:45:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
485 ! |
485 ! |
486 |
486 |
487 parse:stream |
487 parse:stream |
488 "superclass GitCommand says that I am responsible to implement this method" |
488 "superclass HGCommand says that I am responsible to implement this method" |
489 |
489 |
490 "Nothing to do" |
490 "Nothing to do" |
491 |
491 |
492 "Modified: / 12-11-2012 / 22:38:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
492 "Modified: / 12-11-2012 / 22:38:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
493 ! |
493 ! |
615 "Created: / 30-09-2012 / 23:44:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
615 "Created: / 30-09-2012 / 23:44:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
616 "Modified: / 15-11-2012 / 09:56:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
616 "Modified: / 15-11-2012 / 09:56:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
617 ! |
617 ! |
618 |
618 |
619 parse:stream |
619 parse:stream |
620 "superclass GitCommand says that I am responsible to implement this method" |
620 "superclass HGCommand says that I am responsible to implement this method" |
621 |
621 |
622 ^ nil |
622 ^ nil |
623 |
623 |
624 "Modified: / 15-11-2012 / 09:53:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
624 "Modified: / 15-11-2012 / 09:53:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
625 ! ! |
625 ! ! |
636 "Created: / 30-09-2012 / 23:44:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
636 "Created: / 30-09-2012 / 23:44:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
637 "Modified: / 15-11-2012 / 09:56:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
637 "Modified: / 15-11-2012 / 09:56:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
638 ! |
638 ! |
639 |
639 |
640 parse:stream |
640 parse:stream |
641 "superclass GitCommand says that I am responsible to implement this method" |
641 "superclass HGCommand says that I am responsible to implement this method" |
642 |
642 |
643 ^ nil |
643 ^ nil |
644 |
644 |
645 "Modified: / 15-11-2012 / 09:53:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
645 "Modified: / 15-11-2012 / 09:53:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
646 ! |
646 ! |