vb6parse 1.0.1

vb6parse is a library for parsing and analyzing VB6 code, from projects, to controls, to modules, and forms.
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112

use vb6parse::files::project::compilesettings::*;
use vb6parse::files::project::properties::*;
use vb6parse::*;

#[test]
fn ppdm_project_load() {
    let project_file_bytes = include_bytes!("./data/ppdm/ppdm.vbp").as_slice();

    let source_file = SourceFile::decode_with_replacement("ppdm.vbp", project_file_bytes)
        .expect("Failed to decode project file");

    let (project_file_opt, failures) = ProjectFile::parse(&source_file).unpack();

    if !failures.is_empty() {
        for failure in failures {
            failure.print();
        }

        panic!("Project parse had failures");
    }

    let project = project_file_opt.expect("Project should be present.");

    assert_eq!(project.project_type, CompileTargetType::Exe);
    assert_eq!(project.references().collect::<Vec<_>>().len(), 15);
    assert_eq!(project.objects().collect::<Vec<_>>().len(), 11);
    assert_eq!(project.modules().collect::<Vec<_>>().len(), 34);
    assert_eq!(project.classes().collect::<Vec<_>>().len(), 76);
    assert_eq!(project.designers().collect::<Vec<_>>().len(), 54);
    assert_eq!(project.forms().collect::<Vec<_>>().len(), 156);
    assert_eq!(project.user_controls().collect::<Vec<_>>().len(), 13);
    assert_eq!(project.user_documents().collect::<Vec<_>>().len(), 0);

    assert_eq!(
        project.properties.res_file_32_path,
        "..\\DBCommon\\PSFC.RES"
    );
    assert_eq!(project.properties.icon_form, "frmMain");
    assert_eq!(project.properties.startup, "Sub Main");
    assert_eq!(project.properties.help_file_path, "");
    assert_eq!(project.properties.title, "PPDM");
    assert_eq!(project.properties.exe_32_file_name, "PPDM.exe");
    assert_eq!(
        project.properties.command_line_arguments,
        "-DisableRememberPassword  -CHARTING -U"
    );
    assert_eq!(project.properties.name, "PPDM");
    assert_eq!(project.properties.help_context_id, "0");
    assert_eq!(
        project.properties.compatibility_mode,
        CompatibilityMode::NoCompatibility
    );
    assert_eq!(
        project.properties.upgrade_controls,
        UpgradeControls::Upgrade
    );
    assert_eq!(
        project.properties.server_support_files,
        ServerSupportFiles::Local
    );
    assert_eq!(
        project.properties.conditional_compile,
        "PDMBuild = 1 : PDM_SHORTCUTS = 1"
    );
    assert_eq!(
        project.properties.compilation_type,
        CompilationType::NativeCode(NativeCodeSettings {
            optimization_type: OptimizationType::FavorFastCode,
            favor_pentium_pro: FavorPentiumPro::False,
            code_view_debug_info: CodeViewDebugInfo::NotCreated,
            aliasing: Aliasing::AssumeAliasing,
            bounds_check: BoundsCheck::CheckBounds,
            overflow_check: OverflowCheck::CheckOverflow,
            floating_point_check: FloatingPointErrorCheck::CheckFloatingPointError,
            pentium_fdiv_bug_check: PentiumFDivBugCheck::CheckPentiumFDivBug,
            unrounded_floating_point: UnroundedFloatingPoint::DoNotAllow,
        })
    );

    assert_eq!(project.properties.start_mode, StartMode::StandAlone);
    assert_eq!(project.properties.unattended, InteractionMode::Interactive);
    assert_eq!(project.properties.retained, Retained::UnloadOnExit);
    assert_eq!(project.properties.thread_per_object, 0);
    assert_eq!(project.properties.max_number_of_threads, 1);
    assert_eq!(
        project.properties.debug_startup_option,
        DebugStartupOption::WaitForComponentCreation
    );

    // version information.
    assert_eq!(project.properties.version_info.major, 11);
    assert_eq!(project.properties.version_info.minor, 0);
    assert_eq!(project.properties.version_info.revision, 177);
    assert_eq!(project.properties.version_info.auto_increment_revision, 1);
    assert_eq!(
        project.properties.version_info.company_name,
        "Predator Software Inc."
    );
    assert_eq!(
        project.properties.version_info.file_description,
        "Predator PDM "
    );
    assert_eq!(
        project.properties.version_info.copyright,
        "Copyright ©1994 - 2017 Predator Software Inc.  All Rights Reserved."
    );
    assert_eq!(
        project.properties.version_info.trademark,
        "Predator SFC® and Predator PDM® are Registered Trademarks of Predator Software Inc."
    );
    assert_eq!(project.properties.version_info.product_name, "Predator PDM");
}