src/files.c

   1 /*!
   2  * @file files.c
   3  * @brief ファイル入出力管理 / Purpose: code dealing with files (and death)
   4  * @date 2014/01/28
   5  * @author
   6  * <pre>
   7  * Copyright (c) 1997 Ben Harrison, James E. Wilson, Robert A. Koeneke
   8  * This software may be copied and distributed for educational, research,
   9  * and not for profit purposes provided that this copyright and statement
  10  * are included in all such copies.  Other copyrights may also apply.
  11  * 2014 Deskull rearranged comment for Doxygen.\n
  12  * </pre>
  13  */
  14
  15 #include "angband.h"
  16 #include "uid-checker.h"
  17 #include "files.h"
  18 #include "core.h" // 暫定。後で消す.
  19 #include "character-dump.h"
  20
  21 concptr ANGBAND_DIR; //!< Path name: The main "lib" directory This variable is not actually used anywhere in the code
  22 concptr ANGBAND_DIR_APEX; //!< High score files (binary) These files may be portable between platforms
  23 concptr ANGBAND_DIR_BONE; //!< Bone files for player ghosts (ascii) These files are portable between platforms
  24 concptr ANGBAND_DIR_DATA; //!< Binary image files for the "*_info" arrays (binary) These files are not portable between platforms
  25 concptr ANGBAND_DIR_EDIT; //!< Textual template files for the "*_info" arrays (ascii) These files are portable between platforms
  26 concptr ANGBAND_DIR_SCRIPT; //!< Script files These files are portable between platforms.
  27 concptr ANGBAND_DIR_FILE; //!< Various extra files (ascii) These files may be portable between platforms
  28 concptr ANGBAND_DIR_HELP; //!< Help files (normal) for the online help (ascii) These files are portable between platforms
  29 concptr ANGBAND_DIR_INFO; //!< Help files (spoilers) for the online help (ascii) These files are portable between platforms
  30 concptr ANGBAND_DIR_PREF; //!< Default user "preference" files (ascii) These files are rarely portable between platforms
  31 concptr ANGBAND_DIR_SAVE; //!< Savefiles for current characters (binary)
  32 concptr ANGBAND_DIR_USER; //!< User "preference" files (ascii) These files are rarely portable between platforms
  33 concptr ANGBAND_DIR_XTRA; //!< Various extra files (binary) These files are rarely portable between platforms
  34
  35 /*
  36  * Buffer to hold the current savefile name
  37  * 'savefile' holds full path name. 'savefile_base' holds only base name.
  38  */
  39 char savefile[1024];
  40 char savefile_base[40];
  41
  42 /*!
  43  * todo サブルーチンとは言い難い。autopick.c から直接呼ばれている
  44  * @brief process_pref_fileのサブルーチンとして条件分岐処理の解釈と結果を返す
  45  * Helper function for "process_pref_file()"
  46  * @param creature_ptr プレーヤーへの参照ポインタ
  47  * @param sp テキスト文字列の参照ポインタ
  48  * @param fp 再帰中のポインタ参照
  49  * @return
  50  * @details
  51  * <pre>
  52  * Input:
  53  *   v: output buffer array
  54  *   f: final character
  55  * Output:
  56  *   result
  57  * </pre>
  58  */
  59 concptr process_pref_file_expr(player_type *creature_ptr, char **sp, char *fp)
  60 {
  61         char *s;
  62         s = (*sp);
  63         while (iswspace(*s)) s++;
  64
  65         char *b;
  66         b = s;
  67
  68         concptr v = "?o?o?";
  69
  70         char b1 = '[';
  71         char b2 = ']';
  72         char f = ' ';
  73         static char tmp[16];
  74         if (*s == b1)
  75         {
  76                 concptr p;
  77                 concptr t;
  78
  79                 /* Skip b1 */
  80                 s++;
  81
  82                 /* First */
  83                 t = process_pref_file_expr(creature_ptr, &s, &f);
  84
  85                 if (!*t)
  86                 {
  87                 }
  88                 else if (streq(t, "IOR"))
  89                 {
  90                         v = "0";
  91                         while (*s && (f != b2))
  92                         {
  93                                 t = process_pref_file_expr(creature_ptr, &s, &f);
  94                                 if (*t && !streq(t, "0")) v = "1";
  95                         }
  96                 }
  97                 else if (streq(t, "AND"))
  98                 {
  99                         v = "1";
 100                         while (*s && (f != b2))
 101                         {
 102                                 t = process_pref_file_expr(creature_ptr, &s, &f);
 103                                 if (*t && streq(t, "0")) v = "0";
 104                         }
 105                 }
 106                 else if (streq(t, "NOT"))
 107                 {
 108                         v = "1";
 109                         while (*s && (f != b2))
 110                         {
 111                                 t = process_pref_file_expr(creature_ptr, &s, &f);
 112                                 if (*t && streq(t, "1")) v = "0";
 113                         }
 114                 }
 115                 else if (streq(t, "EQU"))
 116                 {
 117                         v = "0";
 118                         if (*s && (f != b2))
 119                         {
 120                                 t = process_pref_file_expr(creature_ptr, &s, &f);
 121                         }
 122                         while (*s && (f != b2))
 123                         {
 124                                 p = process_pref_file_expr(creature_ptr, &s, &f);
 125                                 if (streq(t, p)) v = "1";
 126                         }
 127                 }
 128                 else if (streq(t, "LEQ"))
 129                 {
 130                         v = "1";
 131                         if (*s && (f != b2))
 132                         {
 133                                 t = process_pref_file_expr(creature_ptr, &s, &f);
 134                         }
 135                         while (*s && (f != b2))
 136                         {
 137                                 p = t;
 138                                 t = process_pref_file_expr(creature_ptr, &s, &f);
 139                                 if (*t && atoi(p) > atoi(t)) v = "0";
 140                         }
 141                 }
 142                 else if (streq(t, "GEQ"))
 143                 {
 144                         v = "1";
 145                         if (*s && (f != b2))
 146                         {
 147                                 t = process_pref_file_expr(creature_ptr, &s, &f);
 148                         }
 149                         while (*s && (f != b2))
 150                         {
 151                                 p = t;
 152                                 t = process_pref_file_expr(creature_ptr, &s, &f);
 153                                 if (*t && atoi(p) < atoi(t)) v = "0";
 154                         }
 155                 }
 156                 else
 157                 {
 158                         while (*s && (f != b2))
 159                         {
 160                                 t = process_pref_file_expr(creature_ptr, &s, &f);
 161                         }
 162                 }
 163
 164                 if (f != b2) v = "?x?x?";
 165
 166                 if ((f = *s) != '\0') *s++ = '\0';
 167
 168                 *fp = f;
 169                 *sp = s;
 170                 return v;
 171         }
 172
 173         /* Accept all printables except spaces and brackets */
 174 #ifdef JP
 175         while (iskanji(*s) || (isprint(*s) && !my_strchr(" []", *s)))
 176         {
 177                 if (iskanji(*s)) s++;
 178                 s++;
 179         }
 180 #else
 181         while (isprint(*s) && !my_strchr(" []", *s)) ++s;
 182 #endif
 183
 184         if ((f = *s) != '\0') *s++ = '\0';
 185
 186         if (*b != '$')
 187         {
 188                 v = b;
 189                 *fp = f;
 190                 *sp = s;
 191                 return v;
 192         }
 193
 194         if (streq(b + 1, "SYS"))
 195         {
 196                 v = ANGBAND_SYS;
 197         }
 198         else if (streq(b + 1, "KEYBOARD"))
 199         {
 200                 v = ANGBAND_KEYBOARD;
 201         }
 202         else if (streq(b + 1, "GRAF"))
 203         {
 204                 v = ANGBAND_GRAF;
 205         }
 206         else if (streq(b + 1, "MONOCHROME"))
 207         {
 208                 if (arg_monochrome)
 209                         v = "ON";
 210                 else
 211                         v = "OFF";
 212         }
 213         else if (streq(b + 1, "RACE"))
 214         {
 215 #ifdef JP
 216                 v = rp_ptr->E_title;
 217 #else
 218                 v = rp_ptr->title;
 219 #endif
 220         }
 221         else if (streq(b + 1, "CLASS"))
 222         {
 223 #ifdef JP
 224                 v = cp_ptr->E_title;
 225 #else
 226                 v = cp_ptr->title;
 227 #endif
 228         }
 229         else if (streq(b + 1, "PLAYER"))
 230         {
 231                 static char tmp_player_name[32];
 232                 char *pn, *tpn;
 233                 for (pn = creature_ptr->name, tpn = tmp_player_name; *pn; pn++, tpn++)
 234                 {
 235 #ifdef JP
 236                         if (iskanji(*pn))
 237                         {
 238                                 *(tpn++) = *(pn++);
 239                                 *tpn = *pn;
 240                                 continue;
 241                         }
 242 #endif
 243                         *tpn = my_strchr(" []", *pn) ? '_' : *pn;
 244                 }
 245
 246                 *tpn = '\0';
 247                 v = tmp_player_name;
 248         }
 249         else if (streq(b + 1, "REALM1"))
 250         {
 251 #ifdef JP
 252                 v = E_realm_names[creature_ptr->realm1];
 253 #else
 254                 v = realm_names[creature_ptr->realm1];
 255 #endif
 256         }
 257         else if (streq(b + 1, "REALM2"))
 258         {
 259 #ifdef JP
 260                 v = E_realm_names[creature_ptr->realm2];
 261 #else
 262                 v = realm_names[creature_ptr->realm2];
 263 #endif
 264         }
 265         else if (streq(b + 1, "LEVEL"))
 266         {
 267                 sprintf(tmp, "%02d", creature_ptr->lev);
 268                 v = tmp;
 269         }
 270         else if (streq(b + 1, "AUTOREGISTER"))
 271         {
 272                 if (creature_ptr->autopick_autoregister)
 273                         v = "1";
 274                 else
 275                         v = "0";
 276         }
 277         else if (streq(b + 1, "MONEY"))
 278         {
 279                 sprintf(tmp, "%09ld", (long int)creature_ptr->au);
 280                 v = tmp;
 281         }
 282
 283         *fp = f;
 284         *sp = s;
 285         return v;
 286 }
 287
 288
 289 /*!
 290  * @brief プレイヤーステータスをファイルダンプ出力する
 291  * Hack -- Dump a character description file
 292  * @param creature_ptr プレーヤーへの参照ポインタ
 293  * @param name 出力ファイル名
 294  * @return エラーコード
 295  * @details
 296  * Allow the "full" flag to dump additional info,
 297  * and trigger its usage from various places in the code.
 298  */
 299 errr file_character(player_type *creature_ptr, concptr name, update_playtime_pf update_playtime, display_player_pf display_player, map_name_pf map_name)
 300 {
 301         char buf[1024];
 302         path_build(buf, sizeof(buf), ANGBAND_DIR_USER, name);
 303
 304         FILE_TYPE(FILE_TYPE_TEXT);
 305
 306         int     fd = fd_open(buf, O_RDONLY);
 307         if (fd >= 0)
 308         {
 309                 char out_val[160];
 310                 (void)fd_close(fd);
 311                 (void)sprintf(out_val, _("現存するファイル %s に上書きしますか? ", "Replace existing file %s? "), buf);
 312                 if (get_check_strict(out_val, CHECK_NO_HISTORY)) fd = -1;
 313         }
 314
 315         FILE *fff = NULL;
 316         if (fd < 0) fff = my_fopen(buf, "w");
 317
 318         if (!fff)
 319         {
 320                 prt(_("キャラクタ情報のファイルへの書き出しに失敗しました！", "Character dump failed!"), 0, 0);
 321                 (void)inkey();
 322                 return -1;
 323         }
 324
 325         make_character_dump(creature_ptr, fff, update_playtime, display_player, map_name);
 326         my_fclose(fff);
 327         msg_print(_("キャラクタ情報のファイルへの書き出しに成功しました。", "Character dump successful."));
 328         msg_print(NULL);
 329         return 0;
 330 }
 331
 332
 333 /*!
 334  * @brief ファイルからランダムに行を一つ取得する /
 335  * Get a random line from a file
 336  * @param file_name ファイル名
 337  * @param entry 特定条件時のN:タグヘッダID
 338  * @param output 出力先の文字列参照ポインタ
 339  * @return エラーコード
 340  * @details
 341  * <pre>
 342  * Based on the monster speech patch by Matt Graham,
 343  * </pre>
 344  */
 345 errr get_rnd_line(concptr file_name, int entry, char *output)
 346 {
 347         char buf[1024];
 348         path_build(buf, sizeof(buf), ANGBAND_DIR_FILE, file_name);
 349         FILE *fp;
 350         fp = my_fopen(buf, "r");
 351         if (!fp) return -1;
 352
 353         int test;
 354         int line_num = 0;
 355         while (TRUE)
 356         {
 357                 if (my_fgets(fp, buf, sizeof(buf)) != 0)
 358                 {
 359                         my_fclose(fp);
 360                         return -1;
 361                 }
 362
 363                 line_num++;
 364                 if ((buf[0] != 'N') || (buf[1] != ':')) continue;
 365
 366                 if (buf[2] == '*')
 367                 {
 368                         break;
 369                 }
 370                 else if (buf[2] == 'M')
 371                 {
 372                         if (r_info[entry].flags1 & RF1_MALE) break;
 373                 }
 374                 else if (buf[2] == 'F')
 375                 {
 376                         if (r_info[entry].flags1 & RF1_FEMALE) break;
 377                 }
 378                 else if (sscanf(&(buf[2]), "%d", &test) != EOF)
 379                 {
 380                         if (test == entry) break;
 381                 }
 382
 383                 msg_format("Error in line %d of %s!", line_num, file_name);
 384                 my_fclose(fp);
 385                 return -1;
 386         }
 387
 388         int counter;
 389         for (counter = 0; ; counter++)
 390         {
 391                 while (TRUE)
 392                 {
 393                         test = my_fgets(fp, buf, sizeof(buf));
 394                         if (!test)
 395                         {
 396                                 /* Ignore lines starting with 'N:' */
 397                                 if ((buf[0] == 'N') && (buf[1] == ':')) continue;
 398
 399                                 if (buf[0] != '#') break;
 400                         }
 401                         else break;
 402                 }
 403
 404                 if (!buf[0]) break;
 405
 406                 if (one_in_(counter + 1)) strcpy(output, buf);
 407         }
 408
 409         my_fclose(fp);
 410         return counter ? 0 : -1;
 411 }
 412
 413
 414 #ifdef JP
 415 /*!
 416  * @brief ファイルからランダムに行を一つ取得する(日本語文字列のみ) /
 417  * @param file_name ファイル名
 418  * @param entry 特定条件時のN:タグヘッダID
 419  * @param output 出力先の文字列参照ポインタ
 420  * @param count 試行回数
 421  * @return エラーコード
 422  * @details
 423  */
 424 errr get_rnd_line_jonly(concptr file_name, int entry, char *output, int count)
 425 {
 426         errr result = 1;
 427         for (int i = 0; i < count; i++)
 428         {
 429                 result = get_rnd_line(file_name, entry, output);
 430                 if (result) break;
 431                 bool kanji = FALSE;
 432                 for (int j = 0; output[j]; j++) kanji |= iskanji(output[j]);
 433                 if (kanji) break;
 434         }
 435
 436         return result;
 437 }
 438 #endif
 439
 440
 441 /*!
 442  * @brief ファイル位置をシーク /
 443  * @param creature_ptr プレーヤーへの参照ポインタ
 444  * @param fd ファイルディスクリプタ
 445  * @param where ファイルバイト位置
 446  * @param flag FALSEならば現ファイルを超えた位置へシーク時エラー、TRUEなら足りない間を0で埋め尽くす
 447  * @return エラーコード
 448  * @details
 449  */
 450 static errr counts_seek(player_type *creature_ptr, int fd, u32b where, bool flag)
 451 {
 452         char temp1[128], temp2[128];
 453 #ifdef SAVEFILE_USE_UID
 454         (void)sprintf(temp1, "%d.%s.%d%d%d", creature_ptr->player_uid, savefile_base, creature_ptr->pclass, creature_ptr->pseikaku, creature_ptr->age);
 455 #else
 456         (void)sprintf(temp1, "%s.%d%d%d", savefile_base, creature_ptr->pclass, creature_ptr->pseikaku, creature_ptr->age);
 457 #endif
 458         for (int i = 0; temp1[i]; i++)
 459                 temp1[i] ^= (i + 1) * 63;
 460
 461         int seekpoint = 0;
 462         u32b zero_header[3] = { 0L, 0L, 0L };
 463         while (TRUE)
 464         {
 465                 if (fd_seek(fd, seekpoint + 3 * sizeof(u32b)))
 466                         return 1;
 467                 if (fd_read(fd, (char*)(temp2), sizeof(temp2)))
 468                 {
 469                         if (!flag)
 470                                 return 1;
 471                         /* add new name */
 472                         fd_seek(fd, seekpoint);
 473                         fd_write(fd, (char*)zero_header, 3 * sizeof(u32b));
 474                         fd_write(fd, (char*)(temp1), sizeof(temp1));
 475                         break;
 476                 }
 477
 478                 if (strcmp(temp1, temp2) == 0)
 479                         break;
 480
 481                 seekpoint += 128 + 3 * sizeof(u32b);
 482         }
 483
 484         return fd_seek(fd, seekpoint + where * sizeof(u32b));
 485 }
 486
 487
 488 /*!
 489  * @brief ファイル位置を読み込む
 490  * @param creature_ptr プレーヤーへの参照ポインタ
 491  * @param where ファイルバイト位置
 492  * @return エラーコード
 493  * @details
 494  */
 495 u32b counts_read(player_type *creature_ptr, int where)
 496 {
 497         char buf[1024];
 498         path_build(buf, sizeof(buf), ANGBAND_DIR_DATA, _("z_info_j.raw", "z_info.raw"));
 499         int fd = fd_open(buf, O_RDONLY);
 500
 501         u32b count = 0;
 502         if (counts_seek(creature_ptr, fd, where, FALSE) ||
 503                 fd_read(fd, (char*)(&count), sizeof(u32b)))
 504                 count = 0;
 505
 506         (void)fd_close(fd);
 507
 508         return count;
 509 }
 510
 511
 512 /*!
 513  * @brief ファイル位置に書き込む /
 514  * @param creature_ptr プレーヤーへの参照ポインタ
 515  * @param where ファイルバイト位置
 516  * @param count 書き込む値
 517  * @return エラーコード
 518  * @details
 519  */
 520 errr counts_write(player_type *creature_ptr, int where, u32b count)
 521 {
 522         char buf[1024];
 523         path_build(buf, sizeof(buf), ANGBAND_DIR_DATA, _("z_info_j.raw", "z_info.raw"));
 524
 525         safe_setuid_grab();
 526         int fd = fd_open(buf, O_RDWR);
 527         safe_setuid_drop();
 528         if (fd < 0)
 529         {
 530                 FILE_TYPE(FILE_TYPE_DATA);
 531                 safe_setuid_grab();
 532                 fd = fd_make(buf, 0644);
 533                 safe_setuid_drop();
 534         }
 535
 536         safe_setuid_grab();
 537         errr err = fd_lock(fd, F_WRLCK);
 538         safe_setuid_drop();
 539         if (err) return 1;
 540
 541         counts_seek(creature_ptr, fd, where, TRUE);
 542         fd_write(fd, (char*)(&count), sizeof(u32b));
 543         safe_setuid_grab();
 544         err = fd_lock(fd, F_UNLCK);
 545         safe_setuid_drop();
 546
 547         if (err) return 1;
 548
 549         (void)fd_close(fd);
 550         return 0;
 551 }
 552
 553
 554 /*!
 555  * @brief 墓のアスキーアートテンプレを読み込む
 556  * @param buf テンプレへのバッファ
 557  * @param buf_size バッファの長さ
 558  * @return なし
 559  */
 560 void read_dead_file(char *buf, size_t buf_size)
 561 {
 562         path_build(buf, buf_size, ANGBAND_DIR_FILE, _("dead_j.txt", "dead.txt"));
 563
 564         FILE *fp;
 565         fp = my_fopen(buf, "r");
 566         if (!fp) return;
 567
 568         int i = 0;
 569         while (my_fgets(fp, buf, buf_size) == 0)
 570         {
 571                 put_str(buf, i++, 0);
 572         }
 573
 574         my_fclose(fp);
 575 }