Z.1 Run.Pl 1st Order Commands from Existing Perl Driver Script

1 | #!/usr/bin/perl 2 | ## 3 | ## created by Daniel Schwarz/[email protected] 4 | ## released under Creative Commons/CC-BY 5 | ## Attribution 6 | ## 7 | ## the defs 8 | if(!File | | Spec->file_name_is_absolute($BIN_PATH_REL)){

9 | sub getCcdWidths{ 10 | }

11 | $ccdWidths = getCcdWidths();

12 | $BIN_PATH = $BIN_PATH_ABS."/bin";

13 | my %objectStats = { 14 | };

15 | my %jobOptions = {

16 | };

17 | my %args = {};

18 | $jobOptions{srcDir} = "$CURRENT_DIR";

19 | sub run { 20 | }

21 | sub now { 22 | }

23 | sub parseArgs { 24 | }

25 | if($args{"--help"}){ 26 | }

27 | print "\n - configuration | ";

28 | foreach $args_key (sort keys %args) { 29 | }

30 | print "\n"; 31 | print "\n"; 32 | }

33 | sub prepareObjects { 34 | }

35 | sub resize { 36 | }

37 | sub getKeypoints { 38 | }

39 | sub bundler { 40 | }

41 | sub cmvs { 42 | }

43 | sub pmvs { 44 | }

45 | sub odm_meshing { 46 | }

47 | sub odm_texturing { 48 | }

49 | sub odm_georeferencing { 50 | }

51 | sub odm_orthophoto { 52 | }

53 | parseArgs(); 54 | prepareObjects();

55 | chdir($jobOptions{jobDir});

56 | switch ($args{"--start-with"}) {

57 | case "resize" { resize(); }

58 | case "getKeypoints" { getKeypoints(); }

59 | case "match" { match(); }

60 | case "bundler" { bundler(); }

61 | case "cmvs" { cmvs(); }

62 | case "pmvs" { pmvs(); }

63 | case "odm_meshing" { odm_meshing(); }

64 | case "odm_texturing" { odm_texturing(); }

65 | case "odm_georeferencing" { odm_georeferencing(); }

66 | case "odm_orthophoto" { odm_orthophoto(); }

67 | }

68 | print "\n"; 69 | print "\n - done - "; now(); print "\n"; 70 | print "\n";