X-Git-Url: http://git.cinelerra-gg.org/git/?p=goodguy%2Fhistory.git;a=blobdiff_plain;f=cinelerra-5.1%2Fcinelerra%2Ffile.C;h=b9d161e93fcdafe9bda24e0af7647c79de8e32fc;hp=57b09f0eac0aad61c38787bb2877dc4b55b9c733;hb=089f2be86316b88f72a6c359ab10e2b95539005b;hpb=7a70932d3e04454177c456d0b42ee2f5318d6ad1

diff --git a/cinelerra-5.1/cinelerra/file.C b/cinelerra-5.1/cinelerra/file.C
index 57b09f0e..b9d161e9 100644
--- a/cinelerra-5.1/cinelerra/file.C
+++ b/cinelerra-5.1/cinelerra/file.C
@@ -1629,16 +1629,88 @@ int File::record_fd()
 }
 
 
-void get_exe_path(char *result)
+void File::get_exe_path(char *result, char *bnp)
 {
-// Get executable path
+// Get executable path, basename
 	int len = readlink("/proc/self/exe", result, BCTEXTLEN-1);
 	if( len >= 0 ) {
 		result[len] = 0;
 		char *ptr = strrchr(result, '/');
-		if( ptr ) *ptr = 0;
+		if( ptr ) *ptr++ = 0; else ptr = result;
+		if( bnp ) strncpy(bnp, ptr, BCTEXTLEN);
+	}
+	else {
+		*result = 0;
+		if( bnp ) *bnp = 0;
 	}
-	else
-		result[0] = 0;
 }
 
+void File::getenv_path(char *result, const char *path)
+{
+	char *rp = result, *ep = rp + BCTEXTLEN-1;
+	const char *cp = path;
+// any env var can be used here to expand a path as:
+//   "path...$id...": and id is a word as alpha,alnum...
+//   expands as "path...getenv(id)..."
+// CIN_PATH, CIN_LIB are set in main.C,
+	for( int ch=*cp++; ch && rp < ep; ch=*cp++ ) {
+		if( ch == '$' && isalpha(*cp) ) { // scan alpha,alnum...
+			const char *bp = cp;  char *p = rp;
+			while( p < ep && *bp && (isalnum(*bp) || *bp == '_') ) *p++ = *bp++;
+			*p = 0;
+			const char *envp = getenv(rp); // read env value
+			if( !envp ) continue;
+			while( *envp && rp < ep ) *rp++ = *envp++;
+			cp = bp;		 // subst id=value
+			continue;
+		}
+		*rp++ = ch;
+	}
+	*rp = 0;
+}
+
+char File::cinexe_path[BCTEXTLEN];
+char File::cinpkg_path[BCTEXTLEN];
+char File::cindat_path[BCTEXTLEN];
+char File::cinlib_path[BCTEXTLEN];
+char File::cincfg_path[BCTEXTLEN];
+char File::cinplg_path[BCTEXTLEN];
+char File::cinlad_path[BCTEXTLEN];
+char File::cinlcl_path[BCTEXTLEN];
+
+void File::init_cin_path()
+{
+	char env_path[BCTEXTLEN], env_pkg[BCTEXTLEN];
+// these values are advertised for forks/shell scripts
+	get_exe_path(env_path, env_pkg);
+	snprintf(cinexe_path, sizeof(cinexe_path), "CIN_PATH=%s", env_path);
+	putenv(cinexe_path);
+	snprintf(cinpkg_path, sizeof(cinpkg_path), "CIN_PKG=%s", env_pkg);
+	putenv(cinpkg_path);
+
+	getenv_path(env_path, CINDAT_DIR);
+	snprintf(cindat_path, sizeof(cindat_path), "CIN_DAT=%s", env_path);
+	putenv(cindat_path);
+
+	getenv_path(env_path, CINLIB_DIR);
+	snprintf(cinlib_path, sizeof(cinlib_path), "CIN_LIB=%s", env_path);
+	putenv(cinlib_path);
+
+	getenv_path(env_path, CONFIG_DIR);
+	snprintf(cincfg_path, sizeof(cincfg_path), "CIN_CONFIG=%s", env_path);
+	putenv(cincfg_path);
+
+	getenv_path(env_path, PLUGIN_DIR);
+	snprintf(cinplg_path, sizeof(cinplg_path), "CIN_PLUGIN=%s", env_path);
+	putenv(cinplg_path);
+
+	getenv_path(env_path, LADSPA_DIR);
+	snprintf(cinlad_path, sizeof(cinlad_path), "CIN_LADSPA=%s", env_path);
+	putenv(cinlad_path);
+
+	getenv_path(env_path, LOCALE_DIR);
+	snprintf(cinlcl_path, sizeof(cinlcl_path), "CIN_LOCALE=%s", env_path);
+	putenv(cinlcl_path);
+}
+
+