static void readLocally(S progID, S varNames) {

  readLocally2(mc(), progID, varNames);

}

static void readLocally(S varNames) {

  readLocally2(mc(), programID(), varNames);

}

static void readLocally2(O obj, S varNames) {

  readLocally2(obj, programID(), varNames);

}

static int readLocally_stringLength;

static new ThreadLocal<Bool> readLocally2_allDynamic;

static new ThreadLocal readLocally2_classFinder;

// read a string variable from standard storage

// does not overwrite variable contents if there is no file

static void readLocally2(O obj, S progID, S varNames) ctex {

  bool allDynamic = isTrue(getAndClearThreadLocal(readLocally2_allDynamic));

  for (S variableName : javaTokC(varNames)) {

    File textFile = new File(programDir(progID), variableName + ".text");

    S value = loadTextFile(textFile);

    if (value != null)

      set(main.class, variableName, value);

    else {

      File structureFile = new File(programDir(progID), variableName + ".structure");

      value = loadTextFile(structureFile);

      if (value == null) {

        File structureGZFile = new File(programDir(progID), variableName + ".structure.gz");

        if (!structureGZFile.isFile()) ret;

        //value = loadGZTextFile(structureGZFile);

        temp InputStream fis = new FileInputStream(structureGZFile);

        GZIPInputStream gis = newGZIPInputStream(fis);

        InputStreamReader reader = new InputStreamReader(gis, "UTF-8");

        BufferedReader bufferedReader = new BufferedReader(reader);

        //O o = unstructure_reader(bufferedReader);

        O o = unstructure_tok(javaTokC_noMLS_onReader(bufferedReader), allDynamic, readLocally2_classFinder!);

        readLocally_set(obj, variableName, o);

        ret;

      }

      readLocally_stringLength = l(value);

      if (nempty(value))

        readLocally_set(obj, variableName, unstructure(value, allDynamic, readLocally2_classFinder!));

    }

  }

}

static void readLocally_set(O c, S varName, O value) {

  O oldValue = get(c, varName);

  if (oldValue instanceof List && !(oldValue instanceof ArrayList) && value != null) {

    // Assume it's a synchroList.

    value = synchroList((L) value);

  }

  set(c, varName, value);

}