filemorph

Check-in [061f050393]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Further refinement of Windows C exe
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:061f0503931f82824e40946d023b24548c7dd63a
User & Date: kevin 2015-11-12 12:20:25
Context
2015-11-13
11:39
Refine Windows exe; now changes working directory to location of script, launches much faster check-in: 897c670d65 user: kevin tags: trunk
2015-11-12
12:20
Further refinement of Windows C exe check-in: 061f050393 user: kevin tags: trunk
11:47
Add filemorph.c check-in: 8b85ff041b user: kevin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to filemorph.c.

48
49
50
51
52
53
54
55
56
57
58

59
60

61
62


63
64
65
66
67
68
69

    argv[1] = "-Ilib";
	argv[2] = "-Isite/lib";
	argv[3] = "-Ivendor/lib";
	
	
	//Construct absolute path to script so exe can be launched from anywhere.
	char script = "\\FileMorph_App\\filemorph\\filemorph.pl\0";
	char appdata = "";
	BOOL ok = SHGetSpecialFolderPath(NULL, appdata, CSIDL_APPDATA, TRUE);
	char path; //strlen(appdata) + strlen(script)];

	strcpy(path, appdata);
	strcat(path, script);


	argv[4] = path;



    PERL_SYS_INIT3( &argc , &argv , &env );
    my_perl = perl_alloc();
    perl_construct( my_perl );

    perl_parse( my_perl , xs_init , argc , argv , (char **)NULL );








<
|
|
<
>

<
>


>
>







48
49
50
51
52
53
54

55
56

57
58

59
60
61
62
63
64
65
66
67
68
69
70

    argv[1] = "-Ilib";
	argv[2] = "-Isite/lib";
	argv[3] = "-Ivendor/lib";
	
	
	//Construct absolute path to script so exe can be launched from anywhere.

	char appdata[MAX_PATH];
	BOOL ok = SHGetSpecialFolderPath(NULL, appdata, CSIDL_APPDATA, FALSE);

	char path[1024]; 
	strcpy(path, appdata);

	strcat(path,  "\\FileMorph_App\\filemorph\\filemorph.pl");

	argv[4] = path;
	printf("%s\n", path);
	printf("%d\n", strlen(path));

    PERL_SYS_INIT3( &argc , &argv , &env );
    my_perl = perl_alloc();
    perl_construct( my_perl );

    perl_parse( my_perl , xs_init , argc , argv , (char **)NULL );