mirror of
				https://github.com/zenorogue/hyperrogue.git
				synced 2025-10-31 05:52:59 +00:00 
			
		
		
		
	
		
			
				
	
	
		
			228 lines
		
	
	
		
			7.0 KiB
		
	
	
	
		
			C++
		
	
	
	
	
	
			
		
		
	
	
			228 lines
		
	
	
		
			7.0 KiB
		
	
	
	
		
			C++
		
	
	
	
	
	
| #include "../hyper.h"
 | |
| #include <iostream>
 | |
| #include <thread>
 | |
| 
 | |
| namespace hr {
 | |
| 
 | |
| char buf[10000000];
 | |
| int bufpos;
 | |
| 
 | |
| bool chk(const char *s) {
 | |
|   char *t = buf+bufpos;
 | |
|   while(*s == *t) s++, t++;
 | |
|   return *s == 0;
 | |
|   }
 | |
| 
 | |
| bool eat(const char *s) {
 | |
|   bool ret = chk(s);
 | |
|   if(ret) bufpos += strlen(s);
 | |
|   return ret;
 | |
|   }
 | |
| 
 | |
| char eatchar() {
 | |
|   return buf[bufpos++];
 | |
|   }
 | |
| 
 | |
| set<string> seen;
 | |
| 
 | |
| void check_ex(string s, string help) {
 | |
|   if(seen.count(s)) return;
 | |
|   seen.insert(s);
 | |
|   if(!translation_exists(s)) println(hlog, "S(", as_nice_cstring(s), ", ", help, ")");
 | |
|   }
 | |
| 
 | |
| void check_nonliteral(string s, string fname, int line) {
 | |
|   if(seen.count(s)) return;
 | |
|   seen.insert(s);
 | |
|   string thu = "", end = "";
 | |
|   for(char c: s) if(c == '[') break; else thu += c;
 | |
|   for(char c: s) if(c == ']') end = ""; else end += c;
 | |
|   
 | |
|   if(s == "s") ;
 | |
|   else if(thu == "minetexts")
 | |
|     for(string m: minetexts) check_ex(m, s);
 | |
|   else if(thu == "dfnames")
 | |
|     for(string m: dfnames) check_ex(m, s);
 | |
|   else if(thu == "ncnames")
 | |
|     for(string m: ncnames) check_ex(m, s);
 | |
|   else if(thu == "slides" && end == ".help") ;
 | |
|     // for(auto sl: tour::slides) check_ex(sl.help);
 | |
|   else if(thu == "slides" && end == ".name") ;
 | |
|     // for(auto sl: tour::slides) check_ex(sl.name);
 | |
|   else if(end == ".menu_displayed_name") ;
 | |
|     // for(auto g: ginf) check_ex(g.menu_displayed_name);
 | |
|   else if(end == ".tiling_name") ;
 | |
|     // for(auto g: ginf) check_ex(g.tiling_name);
 | |
|   else if(end == ".name_hyperbolic")
 | |
|     for(auto md: mdinf) check_ex(md.name_hyperbolic, s);
 | |
|   else if(end == ".name_spherical")
 | |
|     for(auto md: mdinf) { if(md.name_spherical != md.name_hyperbolic) check_ex(md.name_spherical, s); }
 | |
|   else if(end == ".name_euclidean")
 | |
|     for(auto md: mdinf) { if(md.name_euclidean != md.name_hyperbolic && md.name_euclidean != md.name_hyperbolic) check_ex(md.name_euclidean, s); }
 | |
|   else if(thu == "olrdesc") ;
 | |
|   else if(thu == "wdmodes") 
 | |
|     for(string m: wdmodes) check_ex(m, s);
 | |
|   else if(thu == "axemodes") 
 | |
|     for(string m: multi::axemodes) check_ex(m, s);
 | |
|   else if(thu == "axmodes") 
 | |
|     for(string m: multi::axmodes) check_ex(m, s);
 | |
|   else if(thu == "mpnames") 
 | |
|     for(string m: texture::mpnames) check_ex(m, s);
 | |
|   else if(thu == "axemodes3") 
 | |
|     for(string m: multi::axemodes3) check_ex(m, s);
 | |
|   else if(thu == "mdmodes") 
 | |
|     for(string m: mdmodes) check_ex(m, s);
 | |
|   else if(thu == "hlmodes") 
 | |
|     for(string m: hlmodes) check_ex(m, s);
 | |
|   else if(thu == "current_filter->name") 
 | |
|     for(auto f: available_filters) check_ex(f->name, s);
 | |
|   else if(thu == "olrDescriptions")
 | |
|     for(string m: olrDescriptions) check_ex(m, s);
 | |
|   else if(thu == "shmupcmdtable") ;
 | |
|   else if(thu == "stringx") ;
 | |
|   else if(thu == "lv.msg") ; /* trust */
 | |
|   else if(thu == "opt") ; /* todo */
 | |
|   else if(thu == "menu_item_name") ; /* todo */
 | |
|   else if(s == "winf[w].help") ;
 | |
|   else if(s == "linf[l].help") ;
 | |
|   else if(s == "iinf[it].help") ;
 | |
|   else if(s == "minf[m].help") ;
 | |
|   else if(among(s, "mapeditorhelp", "patthelp", "drawhelp", "warpdesc", "hyperstone_optional", "irrhelp", "helptext", "inv::helptext", "power_help", "trollhelp2")) ; /* trust */
 | |
|   else
 | |
|     println(hlog, "// unrecognized nonliteral: ", s, " in ", fname, ":", line);
 | |
|   }
 | |
| 
 | |
| void check_xlat_content(string s, string fname, int line) {
 | |
|   // println(hlog, "// xlat content found: ", s);
 | |
|   string literal = "";
 | |
|   string nonliteral = "";
 | |
|   bool in_quote = false;
 | |
|   int i = 0;
 | |
|   while(i < isize(s)) {
 | |
|     auto chk = [&] (string mname, string mvalue) {
 | |
|       if(in_quote) return false;
 | |
|       for(int k=0; k<isize(mname); k++) if(s[i+k] != mname[k]) return false;
 | |
|       literal += mvalue; i += isize(mname);
 | |
|       return true;
 | |
|       };
 | |
|     if(chk("LEADERFULL", "Steam Leaderboards")) continue;
 | |
|     if(chk("LEADER", "Steam")) continue;
 | |
|     if(chk("IMAGEEXT", IMAGEEXT)) continue;
 | |
|     if(chk("SHMUPTITLE", SHMUPTITLE)) continue;
 | |
|     if(s[i] == '"') in_quote = !in_quote;
 | |
|     else if(s[i] == '\\') {
 | |
|       i++;
 | |
|       if(s[i] == '"' || s[i] == '\'' || s[i] == '\\')  literal += s[i];
 | |
|       else if(s[i] == 'n') literal += "\n";
 | |
|       else println(hlog, "unknown escape: ", s0+s[i]);
 | |
|       }
 | |
|     else if(in_quote) literal += s[i];
 | |
|     else if(among(s[i], ' ', '\n', '\r')) ;
 | |
|     else nonliteral += s[i];
 | |
|     i++;
 | |
|     }
 | |
|   if(literal != "" && nonliteral != "") {
 | |
|     println(hlog, "// confused about: ", s, " ", fname, ":", line);
 | |
|     println(hlog, "literal = ", literal);
 | |
|     println(hlog, "nonliteral = ", nonliteral);
 | |
|     }
 | |
|   else if(nonliteral != "")
 | |
|     check_nonliteral(nonliteral, fname, line);
 | |
|   else {
 | |
|     if(seen.count(literal)) return;
 | |
|     seen.insert(literal);
 | |
|     if(!translation_exists(literal)) 
 | |
|       println(hlog, "S(", s, ", literal in ", fname, ":", line, ")");
 | |
|     }
 | |
|   }
 | |
| 
 | |
| void check_file(string s) {
 | |
|   FILE *f = fopen(s.c_str(), "rt");
 | |
|   int qty = fread(buf, 1, 10000000, f);
 | |
|   buf[qty] = 0;
 | |
|   fclose(f);
 | |
|   // println(hlog, "// checking file ", s, ", ", qty, " B");
 | |
|   
 | |
|   bufpos = 0;
 | |
|   
 | |
|   bool in_xlat = false;
 | |
|   bool in_quote = false;
 | |
|   string xlat_content;
 | |
|   
 | |
|   int linenum = 0;
 | |
|   
 | |
|   while(true) {
 | |
|     if(bufpos == qty) break;
 | |
|     if(buf[bufpos] == '\n') linenum++;
 | |
|     if(!in_xlat) {
 | |
|       if(eat("XLAT(")) {
 | |
|         in_xlat = true;
 | |
|         xlat_content = "";
 | |
|         }
 | |
|       else 
 | |
|         eatchar();
 | |
|       }
 | |
|     else {
 | |
|       if(eat("\"")) {
 | |
|         xlat_content += "\"";
 | |
|         in_quote = !in_quote;
 | |
|         }
 | |
|       else if(in_quote && eat("\\")) {
 | |
|         xlat_content += "\\";
 | |
|         xlat_content += eatchar();
 | |
|         }
 | |
|       else if(!in_quote && eat("(")) {
 | |
|         println(hlog, "// found parenthesis inside XLAT: ", xlat_content, " at ", s, ":", linenum);
 | |
|         }
 | |
|       else if(!in_quote && eat("?")) {
 | |
|         println(hlog, "// found '?' inside XLAT: ", xlat_content, " at ", s, ":", linenum);
 | |
|         }
 | |
|       else if(!in_quote && (eat(")") || eat(","))) {
 | |
|         check_xlat_content(xlat_content, s, linenum);
 | |
|         in_xlat = false;
 | |
|         }
 | |
|       else
 | |
|         xlat_content += eatchar();
 | |
|       }
 | |
|     }
 | |
|   }
 | |
| 
 | |
| void gentrans() {
 | |
|   DIR           *d;
 | |
|   struct dirent *dir;
 | |
|   
 | |
|   println(hlog, "\n\n// checking all the files");
 | |
| 
 | |
|   d = opendir(".");
 | |
| 
 | |
|   if(d) {
 | |
|     while ((dir = readdir(d)) != NULL) {
 | |
|       string s = dir->d_name;
 | |
|       if(s.size() > 4 && s.substr(s.size()-4) == ".cpp")
 | |
|         check_file(s);
 | |
|       }
 | |
|     closedir(d);
 | |
|     }
 | |
| 
 | |
|   println(hlog, "\n\n// checking configurables");
 | |
|   
 | |
|   for(auto& fs: params) {
 | |
|     auto& sett = fs.second;
 | |
|     if(sett->menu_item_name_modified)
 | |
|       check_ex(sett->menu_item_name, "menu_item_name for " + sett->parameter_name);
 | |
|     check_ex(sett->help_text, "help_text for " + sett->parameter_name);
 | |
|     auto ls = dynamic_cast<list_setting*> ( (setting*) &*sett);
 | |
|     if(ls)
 | |
|       for(auto opt: ls->options) {
 | |
|         check_ex(opt.first, "option first for " + sett->parameter_name);
 | |
|         check_ex(opt.second, "option second for " + sett->parameter_name);
 | |
|         }
 | |
|     }
 | |
|   
 | |
|   exit(0);
 | |
|   }
 | |
| 
 | |
| auto gtar = arg::add3("-gentrans", gentrans);
 | |
| 
 | |
| }
 | 
