551   char         *work, *par, *epar = NULL, env[1024], *tfree, *a = (char *)aa;  in PetscStrreplace()  local
595     PetscCall(PetscStrstr(b, s[i], &par));  in PetscStrreplace()
596     while (par) {  in PetscStrreplace()
597       *par = 0;  in PetscStrreplace()
598       par += l;  in PetscStrreplace()
602       PetscCall(PetscStrlen(par, &l3));  in PetscStrreplace()
606       PetscCall(PetscStrlcat(work, par, len));  in PetscStrreplace()
608       PetscCall(PetscStrstr(b, s[i], &par));  in PetscStrreplace()
620   PetscCall(PetscStrstr(b, "${", &par));  in PetscStrreplace()
621   while (par) {  in PetscStrreplace()
622     *par = 0;  in PetscStrreplace()
623     par += 2;  in PetscStrreplace()
625     PetscCall(PetscStrstr(par, "}", &epar));  in PetscStrreplace()
628     PetscCall(PetscOptionsGetenv(comm, par, env, sizeof(env), &flag));  in PetscStrreplace()
629 …M_SELF, PETSC_ERR_ARG_WRONG, "Substitution string ${%s} not found as environmental variable", par);  in PetscStrreplace()
633     PetscCall(PetscStrstr(b, "${", &par));  in PetscStrreplace()