tpr.cpp 44 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451
  1. /*
  2. ktigcc - TIGCC IDE for KDE
  3. tpr handling routines adapted from tprbuilder
  4. Copyright (C) 2002 Romain Liévin
  5. Copyright (C) 2002-2009 Kevin Kofler
  6. Copyright (C) 2006 Joey Adams
  7. This program is free software; you can redistribute it and/or modify
  8. it under the terms of the GNU General Public License as published by
  9. the Free Software Foundation; either version 2, or (at your option)
  10. any later version.
  11. This program is distributed in the hope that it will be useful,
  12. but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  14. GNU General Public License for more details.
  15. You should have received a copy of the GNU General Public License
  16. along with this program; if not, write to the Free Software Foundation,
  17. Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  18. */
  19. #include <cstdio>
  20. #include <cstdlib>
  21. #include <cerrno>
  22. #include <cstring>
  23. #include <unistd.h>
  24. #include <sys/stat.h>
  25. #ifndef _WIN32
  26. #include <sys/dir.h>
  27. #endif
  28. #include <QApplication>
  29. #include <QEventLoop>
  30. #include <kapplication.h>
  31. #include <kcmdlineargs.h>
  32. #include <kaboutdata.h>
  33. #include <kurl.h>
  34. #include <QString>
  35. #include <QStringList>
  36. #include <QByteArray>
  37. #include <QRegExp>
  38. #include <QTextCodec>
  39. #include <QDir>
  40. #include <glib.h>
  41. #include <ticonv.h>
  42. #include "ktigcc.h"
  43. #include "tpr.h"
  44. #include "preferences.h"
  45. TiconvTextCodec *TiconvTextCodec::instance=NULL;
  46. QByteArray TiconvTextCodec::convertFromUnicode(const QChar *input, int number,
  47. ConverterState *state __attribute__((unused))) const
  48. {
  49. QString inputNullTerminated(input,number);
  50. const unsigned short *utf16=inputNullTerminated.utf16();
  51. if (!utf16) return QByteArray();
  52. char *ti=ticonv_charset_utf16_to_ti(CALC_TI89,utf16);
  53. QByteArray result(ti);
  54. g_free(ti);
  55. return result;
  56. }
  57. QString TiconvTextCodec::convertToUnicode(const char *chars, int len,
  58. ConverterState *state __attribute__((unused))) const
  59. {
  60. QByteArray inputNullTerminated(chars,len);
  61. const char *ti=inputNullTerminated.constData();
  62. if (!ti) return QString();
  63. unsigned short *utf16=ticonv_charset_ti_to_utf16(CALC_TI89,ti);
  64. QString result=QString::fromUtf16(utf16);
  65. g_free(utf16);
  66. return result;
  67. }
  68. #define find_param(s_,t_) find_param_ex((s_),(t_),sizeof(t_)-1)
  69. static char *find_param_ex(char *s, const char *t, size_t l)
  70. {
  71. if (!strncmp(s,t,l))
  72. return s+l;
  73. else
  74. return NULL;
  75. }
  76. static char *find_numbered_param(char *s, const char*t, int *i)
  77. {
  78. char *p;
  79. int endpos = 0;
  80. int ret = 0;
  81. char arglist[256];
  82. strcpy(arglist, t);
  83. strcat(arglist, "%n");
  84. ret = sscanf(s, arglist, i, &endpos);
  85. if(ret < 1 || !endpos) return NULL;
  86. p = s + endpos;
  87. return p;
  88. }
  89. // converts Windows paths to Unix paths if necessary.
  90. static QString convert_path_separators(const char *file)
  91. {
  92. QString s=file;
  93. int o;
  94. #ifndef _WIN32
  95. while ((o=s.find('\\',0,TRUE))>=0)
  96. s[o]='/';
  97. #endif
  98. return s;
  99. }
  100. static char* strip(char *str)
  101. {
  102. int len = strlen(str);
  103. if(len > 0)
  104. if( (str[len-1] == '\r') || (str[len-1] == '\n') )
  105. str[len-1] = '\0';
  106. if(len > 1)
  107. if( (str[len-2] == '\r') || (str[len-2] == '\n') )
  108. str[len-2] = '\0';
  109. return str;
  110. }
  111. /*
  112. Read a line from file and do a clean-up
  113. */
  114. static int read_line(FILE *f, char *buffer, int *l)
  115. {
  116. strcpy(buffer, "");
  117. if(feof(f)) return EOF;
  118. if (!fgets(buffer, 256, f)) return feof(f)?EOF:1;
  119. strip(buffer);
  120. (*l)++;
  121. while( (buffer[0] == '\r') || (buffer[0] == '\n') || (buffer[0] == '\0') )
  122. {
  123. if(feof(f)) return EOF;
  124. if (!fgets(buffer, 256, f)) return feof(f)?EOF:1;
  125. strip(buffer);
  126. (*l)++;
  127. }
  128. return 0;
  129. }
  130. //some items from the TSR might still be ignored or not shown here.
  131. //if you need one of them, add an entry to one of the
  132. //definition "tables".
  133. //If you add an entry here, don't forget to add something to
  134. // save_tpr!
  135. static int parse_file(FILE *f,TPRDataStruct *dest)
  136. {
  137. char buffer[256];
  138. int l = 0;
  139. SectionType stype = SECTION_NONE;
  140. // Some defaults are different when opening an existing project.
  141. dest->settings.cc_switches="";
  142. dest->settings.as_switches="";
  143. dest->settings.a68k_switches="";
  144. dest->libopts.use_ti89=0;
  145. dest->libopts.use_ti92p=0;
  146. dest->libopts.use_v200=0;
  147. dest->libopts.use_minams=0;
  148. dest->libopts.save_screen=0;
  149. while(!feof(f))
  150. {
  151. char *p;
  152. // Get a line from file
  153. int result=read_line(f, buffer, &l);
  154. if (result == 1) return -1; // error
  155. if (result == EOF) break;
  156. // Search for sections
  157. if( !strcmp(buffer, "[Settings]") )
  158. {
  159. stype = SECTION_SETTINGS;
  160. continue;
  161. }
  162. if( !strcmp(buffer, "[Library Options]") )
  163. {
  164. stype = SECTION_LIBOPTS;
  165. continue;
  166. }
  167. if( !strcmp(buffer, "[File Editing]") )
  168. {
  169. stype = SECTION_FILEEDIT;
  170. continue;
  171. }
  172. if( !strcmp(buffer, "[Included Files]") )
  173. {
  174. stype = SECTION_FILES;
  175. continue;
  176. }
  177. // Keywords in the [Settings] section
  178. if(stype == SECTION_SETTINGS) {
  179. #define boolean_param(token,setting) \
  180. if ( (p=find_param(buffer, token)) ) \
  181. { \
  182. if(!strcmp(p, "0")) dest->settings.setting = FALSE; \
  183. else if(!strcmp(p, "1")) dest->settings.setting = TRUE; \
  184. else return l; \
  185. continue; \
  186. } else
  187. #define tistring_vparam(token,var) \
  188. if ( (p=find_param(buffer, token)) ) \
  189. { \
  190. if (*p) { \
  191. dest->var = TiconvTextCodec::instance->toUnicode(p); \
  192. } \
  193. continue; \
  194. } else
  195. #define tistring_param(token,setting) tistring_vparam(token,settings.setting)
  196. #define string_param(token,setting) \
  197. if ( (p=find_param(buffer, token)) ) \
  198. { \
  199. if (*p) dest->settings.setting = p; \
  200. continue; \
  201. } else
  202. #define ignore_param(token) \
  203. if( (p=find_param(buffer, token)) ) \
  204. { \
  205. continue; \
  206. } else
  207. boolean_param("Archive=",archive)
  208. boolean_param("Pack=",pack)
  209. tistring_param("Packed Variable=",pack_name)
  210. tistring_vparam("Project Name=",prj_name)
  211. string_param("GCC Switches=",cc_switches)
  212. string_param("Assembler Switches=",a68k_switches)
  213. ignore_param("Linker Switches=") // Obsolete. Ignore.
  214. ignore_param("GNU Linker Switches=") // Obsolete. Ignore.
  215. string_param("GNU Assembler Switches=",as_switches)
  216. ignore_param("BSR Patch=") // Obsolete. Ignore.
  217. boolean_param("Debug Info=",debug_info)
  218. boolean_param("Standard Library=",std_lib)
  219. tistring_param("Command Line=",cmd_line)
  220. string_param("Post-Build Process=",post_build)
  221. boolean_param("Use Data Variable=",use_data_var)
  222. tistring_param("Data Variable=",data_var)
  223. boolean_param("Copy Data Variable=",copy_data_var)
  224. boolean_param("Copy Data Variable if Archived=",copy_data_var_arc)
  225. boolean_param("Optimize NOPs=",optimize_nops)
  226. boolean_param("Optimize Returns=",optimize_returns)
  227. boolean_param("Optimize Branches=",optimize_branches)
  228. boolean_param("Optimize Moves=",optimize_moves)
  229. boolean_param("Optimize Tests=",optimize_tests)
  230. boolean_param("Optimize Calculations=",optimize_calcs)
  231. boolean_param("Remove Unused Sections=",remove_unused)
  232. boolean_param("Binary Output=",outputbin)
  233. boolean_param("Fargo=",fargo)
  234. boolean_param("Flash OS=",flash_os)
  235. boolean_param("Cut Unused Ranges=",cut_ranges)
  236. boolean_param("Reorder Sections=",reorder_sections)
  237. boolean_param("Merge Constants=",merge_constants)
  238. boolean_param("Initialize BSS=",initialize_bss)
  239. return l;
  240. #undef boolean_param
  241. #undef tistring_vparam
  242. #undef tistring_param
  243. #undef string_param
  244. #undef ignore_param
  245. }
  246. // Keywords in the [Library Options] section
  247. if(stype == SECTION_LIBOPTS) {
  248. #define boolean_param(token,setting) \
  249. if ( (p=find_param(buffer, token)) ) \
  250. { \
  251. if(!strcmp(p, "0")) dest->libopts.setting = FALSE; \
  252. else if(!strcmp(p, "1")) dest->libopts.setting = TRUE; \
  253. else return l; \
  254. continue; \
  255. } else
  256. #define reloc_param(token,setting) \
  257. if ( (p=find_param(buffer, token)) ) \
  258. { \
  259. if (!strcmp(p,"None")) \
  260. dest->libopts.setting = RT_NONE; \
  261. else if (!strcmp(p,"Direct")) \
  262. dest->libopts.setting = RT_DIRECT; \
  263. else if (!strcmp(p,"AMS")) \
  264. dest->libopts.setting = RT_AMS; \
  265. else if (!strcmp(p, "Precomputed")) \
  266. dest->libopts.setting = RT_PRECOMP; \
  267. else if (!strcmp(p, "Kernel")) \
  268. dest->libopts.setting = RT_KERNEL; \
  269. else if (!strcmp(p, "Compressed")) \
  270. dest->libopts.setting = RT_COMPRESSED; \
  271. else if (!strcmp(p, "MLink")) \
  272. dest->libopts.setting = RT_MLINK; \
  273. else if (!strcmp(p, "F-Line")) \
  274. dest->libopts.setting = RT_FLINE; \
  275. else if (strcmp(p, "Unknown")) \
  276. return l; \
  277. continue; \
  278. } else
  279. #define minams_param(token,setting) \
  280. if ( (p=find_param(buffer, "Minimum AMS Version=")) ) \
  281. { \
  282. int major, minor; \
  283. if ((strlen(p)==4) \
  284. && (sscanf(p,"%1d.%2d",&major,&minor)==2)) \
  285. dest->libopts.minams = major * 100 + minor; \
  286. else \
  287. return l; \
  288. continue; \
  289. } else
  290. boolean_param("Use TI-89=",use_ti89)
  291. boolean_param("Use TI-92 Plus=",use_ti92p)
  292. boolean_param("Use V200=",use_v200)
  293. boolean_param("Optimize Calc Consts=",opt_calc_consts)
  294. boolean_param("Use Kernel=",use_kernel)
  295. boolean_param("Use PreOS=",use_preos)
  296. boolean_param("Minimum AMS Version Defined=",use_minams)
  297. minams_param("Minimum AMS Version=",minams)
  298. boolean_param("Unofficial OS Support=",unofficial_os)
  299. reloc_param("Reloc Format=",reloc_format)
  300. reloc_param("ROM Call Format=",rom_call_format)
  301. reloc_param("BSS Ref Format=",bss_ref_format)
  302. reloc_param("Data Ref Format=",data_ref_format)
  303. boolean_param("Use F-Line Jumps=",use_fline_jumps)
  304. boolean_param("Use 4-Byte F-Line Jumps=",use_4b_fline_jumps)
  305. boolean_param("Use Internal F-Line Emulator=",use_internal_fline_emu)
  306. boolean_param("Use Return Value=",use_return_value)
  307. boolean_param("Enable Error Return=",enable_error_return)
  308. boolean_param("Save Screen=",save_screen)
  309. boolean_param("Optimize ROM Calls=",opt_rom_calls)
  310. return l;
  311. #undef boolean_param
  312. #undef reloc_param
  313. #undef minams_param
  314. }
  315. // Keywords in the [File Editing] section
  316. if(stype == SECTION_FILEEDIT)
  317. {
  318. if ( (p=find_param(buffer, "Open File=")) ) \
  319. { \
  320. if (*p) dest->open_file = p; \
  321. continue; \
  322. } else return l;
  323. }
  324. // Keywords in the [Included Files] section
  325. if(stype == SECTION_FILES)
  326. {
  327. int v;
  328. if( (p=find_numbered_param(buffer, "C File %i=", &v)) )
  329. {
  330. QString s = convert_path_separators(p);
  331. dest->c_files.path << s;
  332. dest->c_files.folder << QString::null;
  333. continue;
  334. }
  335. else if( (p=find_numbered_param(buffer, "C File %i Folder=", &v)) )
  336. {
  337. dest->c_files.folder[v-1]=p;
  338. continue;
  339. }
  340. else if( (p=find_numbered_param(buffer, "GNU Assembler File %i=", &v)) )
  341. {
  342. QString s = convert_path_separators(p);
  343. dest->s_files.path << s;
  344. dest->s_files.folder << QString::null;
  345. continue;
  346. }
  347. else if( (p=find_numbered_param(buffer, "GNU Assembler File %i Folder=", &v)) )
  348. {
  349. dest->s_files.folder[v-1]=p;
  350. continue;
  351. }
  352. else if( (p=find_numbered_param(buffer, "Header File %i=", &v)) )
  353. {
  354. QString s = convert_path_separators(p);
  355. dest->h_files.path << s;
  356. dest->h_files.folder << QString::null;
  357. continue;
  358. }
  359. else if( (p=find_numbered_param(buffer, "Header File %i Folder=", &v)) )
  360. {
  361. dest->h_files.folder[v-1]=p;
  362. continue;
  363. }
  364. else if( (p=find_numbered_param(buffer, "Assembler File %i=", &v)) )
  365. {
  366. QString s = convert_path_separators(p);
  367. dest->asm_files.path << s;
  368. dest->asm_files.folder << QString::null;
  369. continue;
  370. }
  371. else if( (p=find_numbered_param(buffer, "Assembler File %i Folder=", &v)) )
  372. {
  373. dest->asm_files.folder[v-1]=p;
  374. continue;
  375. }
  376. else if( (p=find_numbered_param(buffer, "Object File %i=", &v)) )
  377. {
  378. QString s = convert_path_separators(p);
  379. dest->o_files.path << s;
  380. dest->o_files.folder << QString::null;
  381. continue;
  382. }
  383. else if( (p=find_numbered_param(buffer, "Object File %i Folder=", &v)) )
  384. {
  385. dest->o_files.folder[v-1]=p;
  386. continue;
  387. }
  388. else if( (p=find_numbered_param(buffer, "Archive File %i=", &v)) )
  389. {
  390. QString s = convert_path_separators(p);
  391. dest->a_files.path << s;
  392. dest->a_files.folder << QString::null;
  393. continue;
  394. }
  395. else if( (p=find_numbered_param(buffer, "Archive File %i Folder=", &v)) )
  396. {
  397. dest->a_files.folder[v-1]=p;
  398. continue;
  399. }
  400. else if( (p=find_numbered_param(buffer, "Text File %i=", &v)) )
  401. {
  402. QString s = convert_path_separators(p);
  403. dest->txt_files.path << s;
  404. dest->txt_files.folder << QString::null;
  405. continue;
  406. }
  407. else if( (p=find_numbered_param(buffer, "Text File %i Folder=", &v)) )
  408. {
  409. dest->txt_files.folder[v-1]=p;
  410. continue;
  411. }
  412. else if( (p=find_numbered_param(buffer, "Quill File %i=", &v)) )
  413. {
  414. QString s = convert_path_separators(p);
  415. dest->quill_files.path << s;
  416. dest->quill_files.folder << QString::null;
  417. continue;
  418. }
  419. else if( (p=find_numbered_param(buffer, "Quill File %i Folder=", &v)) )
  420. {
  421. dest->quill_files.folder[v-1]=p;
  422. continue;
  423. }
  424. else if( (p=find_numbered_param(buffer, "Other File %i=", &v)) )
  425. {
  426. QString s = convert_path_separators(p);
  427. dest->oth_files.path << s;
  428. dest->oth_files.folder << QString::null;
  429. continue;
  430. }
  431. else if( (p=find_numbered_param(buffer, "Other File %i Folder=", &v)) )
  432. {
  433. dest->oth_files.folder[v-1]=p;
  434. continue;
  435. }
  436. else return l;
  437. }
  438. }
  439. return 0;
  440. }
  441. // returns 0 on success, -1 if it can't open the TPR and a (positive) line
  442. // number if there is an error in the TPR
  443. int loadTPR(const QString &fileName,TPRDataStruct *dest)
  444. {
  445. FILE *f;
  446. int ret;
  447. f = fopen(fileName, "r");
  448. if(f == NULL) {
  449. return -1;
  450. }
  451. ret=parse_file(f,dest);
  452. fclose(f);
  453. return ret;
  454. }
  455. QString loadFileText(const char *fileName)
  456. {
  457. FILE *f;
  458. f=fopen(fileName,"rb");
  459. if (!f)
  460. return QString::null;
  461. fseek(f,0,SEEK_END);
  462. size_t flen=ftell(f);
  463. fseek(f,0,SEEK_SET);
  464. char *buffer = new(std::nothrow) char[flen+1];
  465. if (!buffer) {
  466. fclose(f);
  467. return QString::null;
  468. }
  469. std::memset(buffer,0,flen+1);
  470. QString ret;
  471. if (fread(buffer,1,flen,f)<flen) {
  472. fclose(f);
  473. delete[] buffer;
  474. ret=QString::null;
  475. } else {
  476. fclose(f);
  477. if (preferences.useCalcCharset) {
  478. ret=TiconvTextCodec::instance->toUnicode(buffer);
  479. } else {
  480. ret=buffer;
  481. }
  482. delete[] buffer;
  483. }
  484. if (!ret.isNull()) {
  485. // convert Windows line endings
  486. ret=ret.replace("\r\n","\n");
  487. // interpret remaining \r characters as Mac line endings
  488. ret=ret.replace('\r','\n');
  489. // remove trailing spaces if requested
  490. if (preferences.removeTrailingSpaces) {
  491. ret=ret.replace(QRegExp("((?!\n)\\s)*\n"),"\n");
  492. ret=ret.remove(QRegExp("((?!\n)\\s)*$"));
  493. }
  494. }
  495. return ret;
  496. }
  497. // Returns -1 if the file is empty, -2 on error.
  498. int peekFirstChar(const char *fileName)
  499. {
  500. FILE *f;
  501. f=fopen(fileName,"rb");
  502. if (!f)
  503. return -2;
  504. int result=getc(f);
  505. if (result==EOF) result=feof(f)?-1:-2;
  506. fclose(f);
  507. return result;
  508. }
  509. static QString convert_path_separators_save(QString s)
  510. {
  511. int o;
  512. #ifndef _WIN32
  513. while ((o=s.find('/',0,TRUE))>=0)
  514. s[o]='\\';
  515. #endif
  516. return s;
  517. }
  518. //this is here because QString::ascii() returns "(null)" on a null string.
  519. const char *smartAscii(const QString &s)
  520. {
  521. if (s.isNull())
  522. return "";
  523. return s.ascii();
  524. }
  525. static int save_tpr(FILE *f,TPRDataStruct *dest)
  526. {
  527. unsigned i=0,e;
  528. QString tmp;
  529. #define boolean_param(token,setting) if (fprintf(f,token "%d\r\n",!!dest->settings.setting)<0) return -2;
  530. #define tistring_vparam(token,var) { \
  531. const char *ti=TiconvTextCodec::instance->fromUnicode(dest->var).constData(); \
  532. if (!ti) ti=""; \
  533. if (fprintf(f,token "%s\r\n",ti)<0) return -2; \
  534. }
  535. #define tistring_param(token,setting) tistring_vparam(token,settings.setting)
  536. #define string_param(token,setting) if (fprintf(f,token "%s\r\n",smartAscii(dest->settings.setting))<0) return -2;
  537. #define ignore_param(token) /**/
  538. if (fputs("[Settings]\r\n",f)<0) return -2;
  539. boolean_param("Archive=",archive)
  540. boolean_param("Pack=",pack)
  541. tistring_param("Packed Variable=",pack_name)
  542. tistring_vparam("Project Name=",prj_name)
  543. string_param("GCC Switches=",cc_switches)
  544. string_param("Assembler Switches=",a68k_switches)
  545. ignore_param("Linker Switches=") // Obsolete. Ignore.
  546. ignore_param("GNU Linker Switches=") // Obsolete. Ignore.
  547. string_param("GNU Assembler Switches=",as_switches)
  548. ignore_param("BSR Patch=") // Obsolete. Ignore.
  549. boolean_param("Debug Info=",debug_info)
  550. boolean_param("Standard Library=",std_lib)
  551. tistring_param("Command Line=",cmd_line)
  552. string_param("Post-Build Process=",post_build)
  553. boolean_param("Use Data Variable=",use_data_var)
  554. tistring_param("Data Variable=",data_var)
  555. boolean_param("Copy Data Variable=",copy_data_var)
  556. boolean_param("Copy Data Variable if Archived=",copy_data_var_arc)
  557. boolean_param("Optimize NOPs=",optimize_nops)
  558. boolean_param("Optimize Returns=",optimize_returns)
  559. boolean_param("Optimize Branches=",optimize_branches)
  560. boolean_param("Optimize Moves=",optimize_moves)
  561. boolean_param("Optimize Tests=",optimize_tests)
  562. boolean_param("Optimize Calculations=",optimize_calcs)
  563. boolean_param("Remove Unused Sections=",remove_unused)
  564. boolean_param("Binary Output=",outputbin)
  565. boolean_param("Fargo=",fargo)
  566. boolean_param("Flash OS=",flash_os)
  567. boolean_param("Cut Unused Ranges=",cut_ranges)
  568. boolean_param("Reorder Sections=",reorder_sections)
  569. boolean_param("Merge Constants=",merge_constants)
  570. boolean_param("Initialize BSS=",initialize_bss)
  571. #undef boolean_param
  572. #undef tistring_vparam
  573. #undef tistring_param
  574. #undef string_param
  575. #undef ignore_param
  576. #define boolean_param(token,setting) if (fprintf(f,token "%d\r\n",!!dest->libopts.setting)<0) return -2;
  577. #define reloc_param(token,setting) \
  578. switch(dest->libopts.setting) \
  579. { \
  580. case RT_NONE: \
  581. if (fprintf(f,token "None\r\n")<0) return -2; \
  582. break; \
  583. case RT_DIRECT: \
  584. if (fprintf(f,token "Direct\r\n")<0) return -2; \
  585. break; \
  586. case RT_AMS: \
  587. if (fprintf(f,token "AMS\r\n")<0) return -2; \
  588. break; \
  589. case RT_PRECOMP: \
  590. if (fprintf(f,token "Precomputed\r\n")<0) return -2; \
  591. break; \
  592. case RT_KERNEL: \
  593. if (fprintf(f,token "Kernel\r\n")<0) return -2; \
  594. break; \
  595. case RT_COMPRESSED: \
  596. if (fprintf(f,token "Compressed\r\n")<0) return -2; \
  597. break; \
  598. case RT_MLINK: \
  599. if (fprintf(f,token "MLink\r\n")<0) return -2; \
  600. break; \
  601. case RT_FLINE: \
  602. if (fprintf(f,token "F-Line\r\n")<0) return -2; \
  603. break; \
  604. }
  605. #define minams_param(token,setting) \
  606. { \
  607. int major,minor; \
  608. major=dest->libopts.setting/100; \
  609. minor=dest->libopts.setting%100; \
  610. if (fprintf(f,token "%d.%02d\r\n",major,minor)<0) return -2; \
  611. }
  612. if (fputs("\r\n[Library Options]\r\n",f)<0) return -2;
  613. boolean_param("Use TI-89=",use_ti89)
  614. boolean_param("Use TI-92 Plus=",use_ti92p)
  615. boolean_param("Use V200=",use_v200)
  616. boolean_param("Optimize Calc Consts=",opt_calc_consts)
  617. boolean_param("Use Kernel=",use_kernel)
  618. boolean_param("Use PreOS=",use_preos)
  619. boolean_param("Minimum AMS Version Defined=",use_minams)
  620. minams_param("Minimum AMS Version=",minams)
  621. boolean_param("Unofficial OS Support=",unofficial_os)
  622. reloc_param("Reloc Format=",reloc_format)
  623. reloc_param("ROM Call Format=",rom_call_format)
  624. reloc_param("BSS Ref Format=",bss_ref_format)
  625. reloc_param("Data Ref Format=",data_ref_format)
  626. boolean_param("Use F-Line Jumps=",use_fline_jumps)
  627. boolean_param("Use 4-Byte F-Line Jumps=",use_4b_fline_jumps)
  628. boolean_param("Use Internal F-Line Emulator=",use_internal_fline_emu)
  629. boolean_param("Use Return Value=",use_return_value)
  630. boolean_param("Enable Error Return=",enable_error_return)
  631. boolean_param("Save Screen=",save_screen)
  632. boolean_param("Optimize ROM Calls=",opt_rom_calls)
  633. #undef boolean_param
  634. #undef reloc_param
  635. #undef minams_param
  636. if (fprintf(f,"\r\n[File Editing]\r\nOpen File=%s\r\n\r\n[Included Files]\r\n",smartAscii(dest->open_file))<0) return -2;
  637. #define filepath_param(token,filetype) \
  638. e=dest->filetype.path.count(); \
  639. for(i=0;i<e;i++) \
  640. { \
  641. tmp=convert_path_separators_save(smartAscii(dest->filetype.path[i])); \
  642. if (fprintf(f,token " %u=%s\r\n",i+1,smartAscii(tmp))<0) return -2; \
  643. if (!dest->filetype.folder[i].isEmpty()) \
  644. { \
  645. if (fprintf(f,token " %u Folder=%s\r\n",i+1,smartAscii(dest->filetype.folder[i]))<0) return -2; \
  646. } \
  647. }
  648. filepath_param("C File",c_files)
  649. filepath_param("GNU Assembler File",s_files)
  650. filepath_param("Header File",h_files)
  651. filepath_param("Assembler File",asm_files)
  652. filepath_param("Object File",o_files)
  653. filepath_param("Archive File",a_files)
  654. filepath_param("Text File",txt_files)
  655. filepath_param("Quill File",quill_files)
  656. filepath_param("Other File",oth_files)
  657. #undef filepath_param
  658. if (fputs("\r\n",f)<0) return -2;
  659. return 0;
  660. }
  661. void newSettings(tprSettings *settings,tprLibOpts *libopts)
  662. {
  663. tprSettings newSettings;
  664. tprLibOpts newLibOpts;
  665. *settings=newSettings;
  666. *libopts=newLibOpts;
  667. }
  668. //returns 0 on success, -1 if the file couldn't be created or -2 if fprintf,
  669. //fputs or fclose failed
  670. int saveTPR(const QString &fileName,TPRDataStruct *src)
  671. {
  672. FILE *f;
  673. int ret;
  674. f=fopen(fileName,"wb");
  675. if (!f)
  676. {
  677. return -1;
  678. }
  679. ret=save_tpr(f,src);
  680. if (fclose(f)) return -2;
  681. return ret;
  682. }
  683. void mkdir_multi(const char *fileName)
  684. {
  685. int l=strlen(fileName);
  686. char buffer[l+2];
  687. char *ptr;
  688. #ifdef _WIN32
  689. ptr=strchr(fileName,'\\');
  690. #else
  691. ptr=strchr(fileName,'/');
  692. #endif
  693. while (ptr)
  694. {
  695. memcpy(buffer,fileName,ptr-fileName);
  696. buffer[ptr-fileName]=0;
  697. #ifdef _WIN32
  698. mkdir(buffer);
  699. ptr=strchr(ptr+1,'\\');
  700. #else
  701. mkdir(buffer,S_IRWXU | S_IRWXG | S_IRWXO);
  702. ptr=strchr(ptr+1,'/');
  703. #endif
  704. }
  705. }
  706. static int writeToFile(FILE *f, const QString &text)
  707. {
  708. if (preferences.useCalcCharset) {
  709. if (!text.isEmpty()) {
  710. QByteArray s=TiconvTextCodec::instance->fromUnicode(text);
  711. size_t l=s.length();
  712. if (fwrite(s.constData(),1,l,f)<l) {
  713. return -2;
  714. }
  715. }
  716. } else {
  717. const char *s=smartAscii(text);
  718. size_t l=std::strlen(s);
  719. if (fwrite(s,1,l,f)<l) return -2;
  720. }
  721. return 0;
  722. }
  723. enum CharModes {cmNone, cmNormalText, cmNumber, cmMultiSymbol, cmString, cmChar,
  724. cmComment, cmUnchangeableLine, cmExtUnchangeableLine,
  725. cmExtUnchangeableLineString, cmTrigraph};
  726. int saveAndSplitFileText(const char *fileName, const QString &fileText,
  727. bool split, bool addCLineDirective,
  728. bool addASMLineDirective, const QString &origFileName,
  729. LineStartList *pLineStartList)
  730. {
  731. FILE *f;
  732. LineStartList lineStartList;
  733. // remove trailing spaces if requested
  734. QString text=fileText;
  735. if (preferences.removeTrailingSpaces && !text.isNull()) {
  736. text=text.replace(QRegExp("((?!\n)\\s)*\n"),"\n");
  737. text=text.remove(QRegExp("((?!\n)\\s)*$"));
  738. }
  739. f=fopen(fileName,"wb");
  740. if (!f)
  741. {
  742. mkdir_multi(fileName);
  743. f=fopen(fileName,"wb");
  744. if (!f)
  745. return -1;
  746. }
  747. if (split && preferences.splitSourceFiles && !settings.debug_info) {
  748. unsigned curPos=0, curLine=0, curCol=0, l=text.length();
  749. bool atLineStart;
  750. CharModes curMode=cmNone;
  751. #define INSERT_CHAR(ch) do {if (writeToFile(f,QString((ch)))) {fclose(f); return -2;}} while(0)
  752. #define INSERT_STRING(str) do {if (writeToFile(f,(str))) {fclose(f); return -2;}} while(0)
  753. #define ADD_LINE() do {lineStartList.append(qMakePair(curLine,curCol)); atLineStart=TRUE;} while(0)
  754. #define IS_NEWLINE() (text[curPos]=='\n')
  755. #define ADD_LINE_NEXT() do {lineStartList.append(qMakePair(curLine+(unsigned)(IS_NEWLINE()),(IS_NEWLINE())?0u:(curCol+1u))); atLineStart=TRUE;} while(0)
  756. #define NEW_LINE() do {if((!(atLineStart||IS_NEWLINE())) || (text[curPos]=='#')) {INSERT_CHAR(QChar('\n')); ADD_LINE();} curMode=cmNone;} while(0)
  757. #define SET_MULTI_CHAR_MODE(mode) do {if (curMode!=(mode)) {NEW_LINE(); curMode=(mode);}} while(0)
  758. ADD_LINE(); // Line 0
  759. for (; curPos<l; curPos++) {
  760. bool noInsert=FALSE;
  761. QChar c=text[curPos];
  762. if (c=='\n')
  763. ADD_LINE_NEXT();
  764. switch (curMode) {
  765. case cmString:
  766. if (c=='\"') {
  767. bool b=TRUE;
  768. unsigned i=curPos-1;
  769. while (i && ((text[i]=='\\')||(i>=2&&!text.mid(i-2,3).compare("?""?""/")))) {
  770. b=!b;
  771. if (text[i]=='\\') --i; else i-=3;
  772. }
  773. if (b) {
  774. curMode=cmNone;
  775. noInsert=TRUE;
  776. INSERT_STRING(QString(c)+"\n");
  777. atLineStart=TRUE;
  778. ADD_LINE_NEXT();
  779. }
  780. }
  781. break;
  782. case cmChar:
  783. if (c=='\'') {
  784. bool b=TRUE;
  785. unsigned i=curPos-1;
  786. while (i && ((text[i]=='\\')||(i>=2&&!text.mid(i-2,3).compare("?""?""/")))) {
  787. b=!b;
  788. if (text[i]=='\\') --i; else i-=3;
  789. }
  790. if (b) curMode=cmNone;
  791. }
  792. break;
  793. case cmComment:
  794. if ((c=='/')&&(text[curPos-1]=='*')) curMode=cmNone;
  795. break;
  796. case cmUnchangeableLine:
  797. if (c=='\n') curMode=cmNone;
  798. break;
  799. case cmExtUnchangeableLine:
  800. if ((c=='\n')&&(text[curPos-1]!='\\')) curMode=cmNone;
  801. else if (c=='\"') curMode=cmExtUnchangeableLineString;
  802. break;
  803. case cmExtUnchangeableLineString:
  804. if (c=='\"') {
  805. bool b=TRUE;
  806. unsigned i=curPos-1;
  807. while (i && ((text[i]=='\\')||(i>=2&&!text.mid(i-2,3).compare("?""?""/")))) {
  808. b=!b;
  809. if (text[i]=='\\') --i; else i-=3;
  810. }
  811. if (b) curMode=cmExtUnchangeableLine;
  812. }
  813. break;
  814. case cmTrigraph:
  815. if ((c!='?')&&((curPos+1>=l)||(text[curPos+1]!='?'))) curMode=cmNone;
  816. break;
  817. default:
  818. if (!text.mid(curPos,2).compare("//"))
  819. SET_MULTI_CHAR_MODE(cmUnchangeableLine);
  820. else if (!text.mid(curPos,2).compare("/*"))
  821. SET_MULTI_CHAR_MODE(cmComment);
  822. else if (!text.mid(curPos,3).compare("?""?""="))
  823. SET_MULTI_CHAR_MODE(cmExtUnchangeableLine);
  824. else if (!text.mid(curPos,2).compare("?""?")&&(curPos+2<l)
  825. &&QString("()/\'<>!-").contains(text[curPos+2]))
  826. SET_MULTI_CHAR_MODE(cmTrigraph);
  827. else {
  828. switch(c.unicode()) {
  829. case ' ':
  830. case '\t':
  831. if (curPos && text[curPos-1]!=' ' && text[curPos-1]!='\t')
  832. NEW_LINE();
  833. break;
  834. case 'A' ... 'Z':
  835. case 'a' ... 'z':
  836. case '0' ... '9':
  837. case '_':
  838. case '$':
  839. if (curMode!=cmNormalText && curMode!=cmNumber) {
  840. NEW_LINE();
  841. if (c>=QChar('0') && c<=QChar('9'))
  842. curMode=cmNumber;
  843. else
  844. curMode=cmNormalText;
  845. }
  846. break;
  847. case '\"':
  848. SET_MULTI_CHAR_MODE(cmString);
  849. break;
  850. case '\'':
  851. SET_MULTI_CHAR_MODE(cmChar);
  852. break;
  853. case '#':
  854. SET_MULTI_CHAR_MODE(cmExtUnchangeableLine);
  855. break;
  856. case '.':
  857. if (curMode!=cmNumber) {
  858. if ((curPos+1<l)
  859. &&(text[curPos+1]>=QChar('0')
  860. &&text[curPos+1]<=QChar('9'))) {
  861. NEW_LINE();
  862. curMode=cmNumber;
  863. } else SET_MULTI_CHAR_MODE(cmMultiSymbol);
  864. }
  865. break;
  866. case '+':
  867. case '-':
  868. if ((curMode!=cmNumber)||(curPos<=1)
  869. ||!QString("eEpP").contains(text[curPos-1]))
  870. SET_MULTI_CHAR_MODE(cmMultiSymbol);
  871. break;
  872. default:
  873. if (QString(",;()[]{}").contains(c)) {
  874. if (curMode!=cmNone) {
  875. NEW_LINE();
  876. curMode=cmNone;
  877. }
  878. if ((curPos+1<l)&&text[curPos+1]!='\n') {
  879. noInsert=TRUE;
  880. INSERT_STRING(QString(c)+"\n");
  881. ADD_LINE_NEXT();
  882. }
  883. } else SET_MULTI_CHAR_MODE(cmMultiSymbol);
  884. break;
  885. }
  886. }
  887. break;
  888. }
  889. if (!noInsert) {
  890. // Special cases:
  891. switch(c.unicode()) {
  892. // Surrogate pairs.
  893. case 0xd800 ... 0xdbff:
  894. if (curPos<l && text[curPos+1].unicode()>=0xdc00
  895. && text[curPos+1].unicode()<=0xdfff) {
  896. INSERT_STRING(QString(c)+text[curPos+1]);
  897. // Allow the UI to respond, splitting is a lengthy operation.
  898. if ((curPos++)&127)
  899. QCoreApplication::processEvents(QEventLoop::AllEvents,1000);
  900. curPos++;
  901. curCol++;
  902. break;
  903. } else goto de_fault;
  904. // x-bar and y-bar are special if we use the calculator charset.
  905. case 0x305:
  906. if (preferences.useCalcCharset && curPos<l
  907. && (text[curPos+1]=='x' || text[curPos+1]=='y')) {
  908. INSERT_STRING(QString(c)+text[curPos+1]);
  909. // Allow the UI to respond, splitting is a lengthy operation.
  910. if ((curPos++)&127)
  911. QCoreApplication::processEvents(QEventLoop::AllEvents,1000);
  912. curCol++;
  913. break;
  914. }
  915. default:
  916. de_fault:
  917. INSERT_CHAR(c);
  918. break;
  919. }
  920. if (c!='\n') atLineStart=FALSE;
  921. }
  922. if (c=='\n') {
  923. curLine++;
  924. curCol=0;
  925. } else curCol++;
  926. // Allow the UI to respond, splitting is a lengthy operation.
  927. if (curPos&127)
  928. QCoreApplication::processEvents(QEventLoop::AllEvents,1000);
  929. }
  930. NEW_LINE();
  931. #undef INSERT_CHAR
  932. #undef INSERT_STRING
  933. #undef ADD_LINE
  934. #undef IS_NEWLINE
  935. #undef ADD_LINE_NEXT
  936. #undef NEW_LINE
  937. #undef SET_MULTI_CHAR_MODE
  938. } else {
  939. if ((addCLineDirective || addASMLineDirective) && settings.debug_info) {
  940. QString escapedFileName=origFileName, lineDirective;
  941. escapedFileName.replace("\\","\\\\");
  942. escapedFileName.replace("\"","\\\"");
  943. // These have no business to be in a file name, but someone somewhere may
  944. // have that very bad idea...
  945. escapedFileName.replace("\r","\\r");
  946. escapedFileName.replace("\n","\\n");
  947. lineDirective=QString(addCLineDirective
  948. ?"#line 1 \"%1\"\n"
  949. :".appfile \"%1\"; .appline 1\n").arg(escapedFileName);
  950. // Don't use calc charset for this, it's a host file name.
  951. const char *s=smartAscii(lineDirective);
  952. size_t l=std::strlen(s);
  953. if (fwrite(s,1,l,f)<l) return -2;
  954. }
  955. if (writeToFile(f,text)) {fclose(f); return -2;}
  956. if (fwrite("\n",1,1,f)<1) {fclose(f); return -2;}
  957. }
  958. if (fclose(f)) return -2;
  959. if (pLineStartList) *pLineStartList=lineStartList;
  960. return 0;
  961. }
  962. void kurlNewFileName(KUrl &dir,const QString &newFileName)
  963. {
  964. if (!newFileName.isEmpty() && newFileName[0]=='/')
  965. dir.setPath(newFileName);
  966. else
  967. dir.setFileName(newFileName);
  968. }
  969. static QString pullOutFileSuffix(const QString &srcFileName,QString &destFileName)
  970. {
  971. int a,b;
  972. QString ret;
  973. destFileName=srcFileName;
  974. a=destFileName.findRev('.');
  975. b=destFileName.findRev('/');
  976. if (a<0)
  977. return QString::null;
  978. if (a<b)
  979. return QString::null;
  980. ret=destFileName.mid(a+1);
  981. destFileName.truncate(a);
  982. return ret;
  983. }
  984. int checkFileName(const QString &fileName,const QStringList &fileNameList)
  985. {
  986. int i;
  987. QString fileName_name,fileName_suffix;
  988. QString name,suffix;
  989. fileName_suffix=pullOutFileSuffix(fileName,fileName_name);
  990. for (i=fileNameList.count()-1;i>=0;i--)
  991. {
  992. suffix=pullOutFileSuffix(fileNameList[i],name);
  993. if (!suffix.compare("c")||!suffix.compare("s")||!suffix.compare("asm")||!suffix.compare("o")||!suffix.compare("qll"))
  994. {
  995. if (!fileName_suffix.compare("c")||!fileName_suffix.compare("s")||!fileName_suffix.compare("asm")||!fileName_suffix.compare("o")||!fileName_suffix.compare("qll"))
  996. {
  997. if (!name.compare(fileName_name))
  998. return 0;
  999. }
  1000. }
  1001. else
  1002. {
  1003. if (!fileNameList[i].compare(fileName))
  1004. return 0;
  1005. }
  1006. }
  1007. return 1;
  1008. }
  1009. // returns 0 on success, >0 on read failure, <0 on write failure
  1010. int copyFile(const char *src, const char *dest)
  1011. {
  1012. // This doesn't load everything at once onto the stack because it may be
  1013. // used for huge binary files, which don't fit on the stack. So we copy 1KB
  1014. // at a time.
  1015. FILE *sf=fopen(src,"rb");
  1016. if (!sf) return 1;
  1017. FILE *df=fopen(dest,"wb");
  1018. if (!df) {fclose(sf); return -1;}
  1019. char buffer[1024];
  1020. while (!ferror(sf) && !feof(sf)) {
  1021. size_t bytes_read=fread(buffer,1,1024,sf);
  1022. if (fwrite(buffer,1,bytes_read,df)<bytes_read) {
  1023. fclose(df);
  1024. fclose(sf);
  1025. return -2;
  1026. }
  1027. }
  1028. if (ferror(sf)) {
  1029. fclose(df);
  1030. fclose(sf);
  1031. return 2;
  1032. }
  1033. if (fclose(df)) {fclose(sf); return -3;}
  1034. if (fclose(sf)) return 3;
  1035. return 0;
  1036. }
  1037. // Returns TRUE on success, FALSE on failure.
  1038. bool moveFile(const QString &src, const QString &dest)
  1039. {
  1040. // Trap the obvious case before even bothering.
  1041. if (src==dest) return TRUE;
  1042. QDir qdir;
  1043. // First try a simple rename.
  1044. if (qdir.rename(src,dest)) return TRUE;
  1045. // That didn't work, probably because the files are not on the same file
  1046. // system. So do a copy&delete operation.
  1047. if (copyFile(src,dest)) return FALSE;
  1048. return qdir.remove(src);
  1049. }
  1050. // Replaces the first occurrence of "tempprog" in a pstarter with name.
  1051. // returns 0 on success, >0 on read failure, <0 on write failure
  1052. int insertName(const char *src, const char *dest, const char *name)
  1053. {
  1054. FILE *sf=std::fopen(src,"rb");
  1055. if (!sf) return 1;
  1056. std::fseek(sf,0,SEEK_END);
  1057. std::size_t flen=std::ftell(sf);
  1058. std::fseek(sf,0,SEEK_SET);
  1059. char *buffer = new(std::nothrow) char[flen];
  1060. if (!buffer) {std::fclose(sf); return 4;}
  1061. if (std::fread(buffer,1,flen,sf)<flen) {
  1062. delete[] buffer;
  1063. std::fclose(sf);
  1064. return 2;
  1065. }
  1066. if (fclose(sf)) {delete[] buffer; return 3;}
  1067. for (std::size_t i=0; i<=flen-8; i++) {
  1068. if (!std::memcmp(buffer+i,"tempprog",8)) {
  1069. std::strncpy(buffer+i,name,8);
  1070. break; // do only one replacement
  1071. }
  1072. }
  1073. FILE *df=std::fopen(dest,"wb");
  1074. if (!df) {delete[] buffer; return -1;}
  1075. if (std::fwrite(buffer,1,flen,df)<flen) {
  1076. delete[] buffer;
  1077. std::fclose(df);
  1078. return -2;
  1079. }
  1080. delete[] buffer;
  1081. if (std::fclose(df)) return -3;
  1082. return 0;
  1083. }
  1084. int getPathType(const QString &thePath)
  1085. {
  1086. struct stat statvar;
  1087. int result=stat(thePath,&statvar);
  1088. if (result)
  1089. return errno==ENOENT?PATH_NOTFOUND:PATH_ERROR;
  1090. if (statvar.st_mode&S_IFDIR)
  1091. return PATH_FOLDER;
  1092. if (statvar.st_mode&S_IFREG)
  1093. return PATH_FILE;
  1094. return PATH_ERROR;
  1095. }
  1096. /*
  1097. Build command line arguments (Library Options section)
  1098. */
  1099. QStringList process_libopts(void)
  1100. {
  1101. QStringList args;
  1102. if (libopts.use_ti89) {
  1103. args.append("-DUSE_TI89");
  1104. }
  1105. if (libopts.use_ti92p) {
  1106. args.append("-DUSE_TI92PLUS");
  1107. }
  1108. if (libopts.use_v200) {
  1109. args.append("-DUSE_V200");
  1110. }
  1111. if (libopts.opt_calc_consts) {
  1112. args.append("-DOPTIMIZE_CALC_CONSTS");
  1113. }
  1114. if (libopts.use_kernel || libopts.use_preos) {
  1115. args.append("-DUSE_KERNEL");
  1116. }
  1117. if (libopts.use_preos) {
  1118. args.append("-DUSE_PREOS_COMPRESSED_TABLES");
  1119. }
  1120. if (libopts.use_minams) {
  1121. args.append(QString("-DMIN_AMS=%1").arg(libopts.minams));
  1122. }
  1123. if (libopts.unofficial_os) {
  1124. args.append("-DUNOFFICIAL_OS_SUPPORT");
  1125. }
  1126. if (libopts.use_preos) {
  1127. if (libopts.bss_ref_format == RT_NONE)
  1128. args.append("-DMERGE_BSS");
  1129. } else {
  1130. switch (libopts.reloc_format) {
  1131. case RT_KERNEL:
  1132. args.append("-DKERNEL_FORMAT_RELOCS");
  1133. break;
  1134. case RT_COMPRESSED:
  1135. args.append("-DCOMPRESSED_FORMAT_RELOCS");
  1136. break;
  1137. case RT_MLINK:
  1138. args.append("-DMLINK_FORMAT_RELOCS");
  1139. break;
  1140. case RT_FLINE:
  1141. args.append("-DUSE_FLINE_JUMPS");
  1142. break;
  1143. default:
  1144. break;
  1145. }
  1146. switch (libopts.rom_call_format) {
  1147. case RT_KERNEL:
  1148. args.append("-DKERNEL_FORMAT_ROM_CALLS");
  1149. break;
  1150. case RT_COMPRESSED:
  1151. args.append("-DCOMPRESSED_FORMAT_ROM_CALLS");
  1152. break;
  1153. case RT_MLINK:
  1154. args.append("-DMLINK_FORMAT_ROM_CALLS");
  1155. break;
  1156. case RT_PRECOMP:
  1157. args.append("-DOPTIMIZE_ROM_CALLS");
  1158. break;
  1159. case RT_FLINE:
  1160. args.append("-DUSE_FLINE_ROM_CALLS");
  1161. args.append("-fno-function-cse");
  1162. break;
  1163. default:
  1164. break;
  1165. }
  1166. if (libopts.opt_rom_calls) {
  1167. args.append("-DOPTIMIZE_ROM_CALLS");
  1168. }
  1169. switch (libopts.bss_ref_format) {
  1170. case RT_NONE:
  1171. args.append("-DMERGE_BSS");
  1172. break;
  1173. case RT_KERNEL:
  1174. args.append("-DKERNEL_FORMAT_BSS");
  1175. break;
  1176. case RT_COMPRESSED:
  1177. args.append("-DCOMPRESSED_FORMAT_BSS");
  1178. break;
  1179. case RT_MLINK:
  1180. args.append("-DMLINK_FORMAT_BSS");
  1181. break;
  1182. default:
  1183. break;
  1184. }
  1185. }
  1186. switch (libopts.data_ref_format) {
  1187. case RT_KERNEL:
  1188. args.append("-DKERNEL_FORMAT_DATA_VAR");
  1189. break;
  1190. case RT_COMPRESSED:
  1191. args.append("-DCOMPRESSED_FORMAT_DATA_VAR");
  1192. break;
  1193. case RT_MLINK:
  1194. args.append("-DMLINK_FORMAT_DATA_VAR");
  1195. break;
  1196. default:
  1197. break;
  1198. }
  1199. if (libopts.use_fline_jumps) {
  1200. args.append("-DUSE_FLINE_JUMPS");
  1201. if (libopts.use_4b_fline_jumps) {
  1202. args.append("-DUSE_4BYTE_FLINE_JUMPS");
  1203. }
  1204. }
  1205. if (libopts.use_internal_fline_emu) {
  1206. args.append("-DUSE_INTERNAL_FLINE_EMULATOR");
  1207. }
  1208. if (libopts.use_return_value) {
  1209. args.append("-DRETURN_VALUE");
  1210. }
  1211. if (libopts.enable_error_return) {
  1212. args.append("-DENABLE_ERROR_RETURN");
  1213. }
  1214. if (libopts.save_screen) {
  1215. args.append("-DSAVE_SCREEN");
  1216. }
  1217. return args;
  1218. }
  1219. static QString urlencode(const QByteArray &byteArray)
  1220. {
  1221. QString result;
  1222. int len=byteArray.size();
  1223. for (int i=0; i<len; i++) {
  1224. unsigned char c=byteArray.at(i);
  1225. if (c<128) result+=c; else result+=QString::number(c,16).prepend('%');
  1226. }
  1227. return result;
  1228. }
  1229. /*
  1230. Build linker command line arguments
  1231. */
  1232. QStringList process_settings(const QString &prjNameUnicode,
  1233. const QString &projectBaseName,
  1234. QString &pstarterName, QByteArray &packName)
  1235. {
  1236. QStringList args;
  1237. args<<"-o"<<projectBaseName<<"-n";
  1238. // Convert the project name to the calculator charset.
  1239. QByteArray projectName=TiconvTextCodec::instance->fromUnicode(prjNameUnicode);
  1240. if (settings.pack && !settings.pack_name.isEmpty()) {
  1241. // Split the PPG name into folder and file.
  1242. QString packNameUnicode;
  1243. int slashPos=settings.pack_name.find('\\');
  1244. if (slashPos>=0) {
  1245. packNameUnicode=settings.pack_name.mid(slashPos+1);
  1246. } else {
  1247. packNameUnicode=settings.pack_name;
  1248. }
  1249. // Convert the PPG file name to the calculator charset.
  1250. packName=TiconvTextCodec::instance->fromUnicode(packNameUnicode);
  1251. args<<urlencode(TiconvTextCodec::instance->fromUnicode(settings.pack_name));
  1252. pstarterName=urlencode(projectName);
  1253. } else args<<urlencode(projectName);
  1254. if (settings.use_data_var && !settings.data_var.isEmpty()) {
  1255. args<<"-d"
  1256. <<urlencode(TiconvTextCodec::instance->fromUnicode(settings.data_var))
  1257. <<"--output-data-var"<<projectBaseName+"-data";
  1258. if (!settings.copy_data_var) {
  1259. args.append("--data-var-copy=never");
  1260. } else if (!settings.copy_data_var_arc) {
  1261. args.append("--data-var-copy=always");
  1262. }
  1263. }
  1264. if (settings.optimize_nops) {
  1265. args.append("--optimize-nops");
  1266. }
  1267. if (settings.optimize_returns) {
  1268. args.append("--optimize-returns");
  1269. }
  1270. if (settings.optimize_branches) {
  1271. args.append("--optimize-branches");
  1272. }
  1273. if (settings.optimize_moves) {
  1274. args.append("--optimize-moves");
  1275. }
  1276. if (settings.optimize_tests) {
  1277. args.append("--optimize-tests");
  1278. }
  1279. if (settings.optimize_calcs) {
  1280. args.append("--optimize-calcs");
  1281. }
  1282. if (settings.remove_unused) {
  1283. args.append("--remove-unused");
  1284. }
  1285. if (settings.cut_ranges) {
  1286. args.append("--cut-ranges");
  1287. }
  1288. if (settings.reorder_sections) {
  1289. args.append("--reorder-sections");
  1290. }
  1291. if (settings.merge_constants) {
  1292. args.append("--merge-constants");
  1293. }
  1294. if (settings.pack) {
  1295. args.append("--pack");
  1296. }
  1297. if (settings.outputbin) {
  1298. args.append("--outputbin");
  1299. }
  1300. if (!settings.initialize_bss) {
  1301. args.append("--omit-bss-init");
  1302. }
  1303. if (settings.fargo) {
  1304. args.append("--fargo");
  1305. }
  1306. if (settings.flash_os) {
  1307. args.append("--flash-os");
  1308. }
  1309. return args;
  1310. }