Action_Thermostats
Add_AtomRandomPerturbation
Add_RotateAroundBondAction
Add_SelectAtomByNameAction
Adding_Graph_to_ChangeBondActions
Adding_MD_integration_tests
Adding_StructOpt_integration_tests
Automaking_mpqc_open
AutomationFragmentation_failures
Candidate_v1.6.0
Candidate_v1.6.1
ChangeBugEmailaddress
ChangingTestPorts
ChemicalSpaceEvaluator
Combining_Subpackages
Debian_Package_split
Debian_package_split_molecuildergui_only
Disabling_MemDebug
Docu_Python_wait
EmpiricalPotential_contain_HomologyGraph_documentation
Enable_parallel_make_install
Enhance_userguide
Enhanced_StructuralOptimization
Enhanced_StructuralOptimization_continued
Example_ManyWaysToTranslateAtom
Exclude_Hydrogens_annealWithBondGraph
FitPartialCharges_GlobalError
Fix_ChronosMutex
Fix_StatusMsg
Fix_StepWorldTime_single_argument
Fix_Verbose_Codepatterns
ForceAnnealing_goodresults
ForceAnnealing_oldresults
ForceAnnealing_tocheck
ForceAnnealing_with_BondGraph
ForceAnnealing_with_BondGraph_continued
ForceAnnealing_with_BondGraph_continued_betteresults
ForceAnnealing_with_BondGraph_contraction-expansion
GeometryObjects
Gui_displays_atomic_force_velocity
IndependentFragmentGrids_IntegrationTest
JobMarket_RobustOnKillsSegFaults
JobMarket_StableWorkerPool
JobMarket_unresolvable_hostname_fix
ODR_violation_mpqc_open
PartialCharges_OrthogonalSummation
PythonUI_with_named_parameters
QtGui_reactivate_TimeChanged_changes
Recreated_GuiChecks
RotateToPrincipalAxisSystem_UndoRedo
StoppableMakroAction
Subpackage_levmar
Subpackage_vmg
ThirdParty_MPQC_rebuilt_buildsystem
TremoloParser_IncreasedPrecision
TremoloParser_MultipleTimesteps
Ubuntu_1604_changes
stable
| Line | |
|---|
| 1 | #
|
|---|
| 2 | eval 'exec perl $0 $*'
|
|---|
| 3 | if 0;
|
|---|
| 4 |
|
|---|
| 5 | $path = shift;
|
|---|
| 6 | $newpath = rmdd($path);
|
|---|
| 7 |
|
|---|
| 8 | while ($path ne $newpath) {
|
|---|
| 9 | $path = $newpath;
|
|---|
| 10 | $newpath = rmdd($path);
|
|---|
| 11 | }
|
|---|
| 12 |
|
|---|
| 13 | print $newpath;
|
|---|
| 14 |
|
|---|
| 15 | sub rmdd {
|
|---|
| 16 | my $path = shift;
|
|---|
| 17 | $path =~ s/\/[^\/.]*\/\.\.//;
|
|---|
| 18 | return $path;
|
|---|
| 19 | }
|
|---|
| 20 |
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
