6 2014 Deskull rearranged comment for Doxygen.
21 #elif defined(MACINTOSH)
22 #include <OpenTransport.h>
23 #include <OpenTptInternet.h>
25 #include <sys/types.h>
26 #include <sys/socket.h>
27 #include <netinet/in.h>
30 #include <arpa/inet.h>
36 #define MAX_HOSTNAME 256
39 #define RINGBUF_SIZE 1024*1024
40 #define FRESH_QUEUE_SIZE 4096
44 #define WAIT 100*1000 /* ブラウズ側のウエイト(us単位) */
46 #define DEFAULT_DELAY 50
47 #define RECVBUF_SIZE 1024
49 static long epoch_time; /* バッファ開始時刻 */
50 static int browse_delay; /* 表示するまでの時間(100ms単位)(この間にラグを吸収する) */
52 static int sd; /* ソケットのファイルディスクリプタ */
53 static long time_diff; /* プレイ側との時間のずれ(これを見ながらディレイを調整していく) */
54 static int server_port;
55 static char server_name[MAX_HOSTNAME];
59 static int movie_mode;
63 #define close closesocket
67 static InetSvcRef inet_services = nil;
68 static EndpointRef ep = kOTInvalidEndpointRef;
71 /* 描画する時刻を覚えておくキュー構造体 */
74 int time[FRESH_QUEUE_SIZE];
90 int recv(int s, char *buffer, size_t buflen, int flags)
93 int n = OTRcv(ep, (void *) buffer, buflen, &junkFlags);
103 static errr (*old_xtra_hook)(int n, int v);
104 static errr (*old_curs_hook)(int x, int y);
105 static errr (*old_bigcurs_hook)(int x, int y);
106 static errr (*old_wipe_hook)(int x, int y, int n);
107 static errr (*old_text_hook)(int x, int y, int n, byte a, cptr s);
109 static void disable_chuukei_server(void)
111 term *t = angband_term[0];
113 chuukei_server = FALSE;
115 t->xtra_hook = old_xtra_hook;
116 t->curs_hook = old_curs_hook;
117 t->bigcurs_hook = old_bigcurs_hook;
118 t->wipe_hook = old_wipe_hook;
119 t->text_hook = old_text_hook;
122 /* ANSI Cによればstatic変数は0で初期化されるが一応初期化する */
123 static errr init_buffer(void)
125 fresh_queue.next = fresh_queue.tail = 0;
126 ring.wptr = ring.rptr = ring.inlen = 0;
127 fresh_queue.time[0] = 0;
128 ring.buf = malloc(RINGBUF_SIZE);
129 if (ring.buf == NULL) return (-1);
134 /* 現在の時間を100ms単位で取得する */
135 static long get_current_time(void)
138 return timeGetTime() / 100;
139 #elif defined(MACINTOSH)
143 gettimeofday(&tv, NULL);
145 return (tv.tv_sec * 10 + tv.tv_usec / 100000);
150 /* リングバッファ構造体に buf の内容を加える */
151 static errr insert_ringbuf(char *buf)
154 len = strlen(buf) + 1; /* +1は終端文字分 */
158 fd_write(movie_fd, buf, len);
160 if (!chuukei_server) return 0;
167 if (ring.inlen + len >= RINGBUF_SIZE)
170 if (chuukei_server) disable_chuukei_server();
171 else chuukei_client = FALSE;
173 prt("送受信バッファが溢れました。サーバとの接続を切断します。", 0, 0);
182 if (ring.wptr + len < RINGBUF_SIZE)
184 memcpy(ring.buf + ring.wptr, buf, len);
187 /* バッファの終端までに収まらない(ピッタリ収まる場合も含む) */
190 int head = RINGBUF_SIZE - ring.wptr; /* 前半 */
191 int tail = len - head; /* 後半 */
193 memcpy(ring.buf + ring.wptr, buf, head);
194 memcpy(ring.buf, buf + head, tail);
205 void flush_ringbuf(void)
211 if (!chuukei_server) return;
213 if (ring.inlen == 0) return;
228 /* ソケットにデータを書き込めるかどうか調べる */
229 select(sd+1, (fd_set *)NULL, &tmp_fdset, (fd_set *)NULL, &tv);
232 if (FD_ISSET(sd, &tmp_fdset) == 0) break;
234 result = send(sd, ring.buf + ring.rptr, ((ring.wptr > ring.rptr ) ? ring.wptr : RINGBUF_SIZE) - ring.rptr, 0);
239 if (chuukei_server) disable_chuukei_server();
241 prt("サーバとの接続が切断されました。", 0, 0);
249 ring.inlen -= result;
251 if (ring.rptr == RINGBUF_SIZE) ring.rptr = 0;
252 if (ring.inlen == 0) break;
255 if (!chuukei_server) return;
257 if (ring.inlen == 0) return;
263 /* ソケットにデータを書き込めるかどうか調べる */
264 result = OTSnd(ep, ring.buf + ring.rptr, ((ring.wptr > ring.rptr ) ? ring.wptr : RINGBUF_SIZE) - ring.rptr, 0);
269 if (chuukei_server) disable_chuukei_server();
271 prt("サーバとの接続が切断されました。", 0, 0);
279 ring.inlen -= result;
281 if (ring.rptr == RINGBUF_SIZE) ring.rptr = 0;
282 if (ring.inlen == 0) break;
288 static int read_chuukei_prf(cptr prf_name)
293 path_build(buf, sizeof(buf), ANGBAND_DIR_XTRA, prf_name);
294 fp = my_fopen(buf, "r");
296 if (!fp) return (-1);
301 browse_delay = DEFAULT_DELAY;
303 while (0 == my_fgets(fp, buf, sizeof(buf)))
306 if (!strncmp(buf, "server:", 7))
308 strncpy(server_name, buf + 7, MAX_HOSTNAME - 1);
309 server_name[MAX_HOSTNAME - 1] = '\0';
313 if (!strncmp(buf, "port:", 5))
315 server_port = atoi(buf + 5);
319 if (!strncmp(buf, "delay:", 6))
321 browse_delay = atoi(buf + 6);
328 if (server_port == -1 || server_name[0] == 0) return (-1);
333 int connect_chuukei_server(char *prf_name)
339 WORD wVersionRequested = (WORD) (( 1) | ( 1 << 8));
342 struct sockaddr_in ask;
345 if (read_chuukei_prf(prf_name) < 0)
347 printf("Wrong prf file\n");
351 if (init_buffer() < 0)
353 printf("Malloc error\n");
358 if (WSAStartup(wVersionRequested, &wsaData))
360 msg_print("Report: WSAStartup failed.");
365 printf("server = %s\nport = %d\n", server_name, server_port);
367 if ((hp = gethostbyname(server_name)) != NULL)
369 memset(&ask, 0, sizeof(ask));
370 memcpy(&ask.sin_addr, hp->h_addr_list[0], hp->h_length);
374 if ((ask.sin_addr.s_addr=inet_addr(server_name)) == 0)
376 printf("Bad hostname\n");
381 ask.sin_family = AF_INET;
382 ask.sin_port = htons((unsigned short)server_port);
385 if ((sd=socket(PF_INET,SOCK_STREAM, 0)) < 0)
387 if ((sd=socket(PF_INET,SOCK_STREAM, 0)) == INVALID_SOCKET)
390 printf("Can't create socket\n");
394 if (connect(sd, (struct sockaddr *)&ask, sizeof(ask)) < 0)
397 printf("Can't connect %s port %d\n", server_name, server_port);
402 #else /* MACINTOSH */
404 InetHostInfo response;
408 Boolean bind = false;
411 if (read_chuukei_prf(prf_name) < 0){
412 printf("Wrong prf file\n");
418 printf("server = %s\nport = %d\n", server_name, server_port);
421 #if TARGET_API_MAC_CARBON
422 err = InitOpenTransportInContext(kInitOTForApplicationMask, NULL);
424 err = InitOpenTransport();
427 memset(&response, 0, sizeof(response));
430 #if TARGET_API_MAC_CARBON
431 inet_services = OTOpenInternetServicesInContext(kDefaultInternetServicesPath, 0, &err, NULL);
433 inet_services = OTOpenInternetServices(kDefaultInternetServicesPath, 0, &err);
437 err = OTInetStringToAddress(inet_services, (char *)server_name, &response);
440 host_addr = response.addrs[0];
442 printf("Bad hostname\n");
445 #if TARGET_API_MAC_CARBON
446 ep = (void *)OTOpenEndpointInContext(OTCreateConfiguration(kTCPName), 0, nil, &err, NULL);
448 ep = (void *)OTOpenEndpoint(OTCreateConfiguration(kTCPName), 0, nil, &err);
452 err = OTBind(ep, nil, nil);
453 bind = (err == noErr);
456 OTInitInetAddress(&inAddr, server_port, host_addr);
458 sndCall.addr.len = sizeof(InetAddress);
459 sndCall.addr.buf = (unsigned char*) &inAddr;
460 sndCall.opt.buf = nil; /* no connection options */
462 sndCall.udata.buf = nil; /* no connection data */
463 sndCall.udata.len = 0;
464 sndCall.sequence = 0; /* ignored by OTConnect */
466 err = OTConnect(ep, &sndCall, NULL);
469 printf("Can't connect %s port %d\n", server_name, server_port);
473 err = OTSetSynchronous(ep);
475 err = OTSetBlocking(ep);
484 if (ep != kOTInvalidEndpointRef) {
488 if (inet_services != nil) {
489 OTCloseProvider(inet_services);
502 /* strが同じ文字の繰り返しかどうか調べる */
503 static bool string_is_repeat(char *str, int len)
508 if (len < 2) return (FALSE);
510 if (iskanji(c)) return (FALSE);
513 for (i = 1; i < len; i++)
516 if(c != str[i] || iskanji(str[i])) return (FALSE);
518 if(c != str[i]) return (FALSE);
525 static errr send_text_to_chuukei_server(int x, int y, int len, byte col, cptr str)
530 strncpy(buf2, str, len);
535 sprintf(buf, "s%c%c%c%c", x+1, y+1, col, buf2[0]);
537 else if(string_is_repeat(buf2, len))
540 for (i = len; i > 0; i -= 127)
542 sprintf(buf, "n%c%c%c%c%c", x+1, y+1, MIN(i, 127), col, buf2[0]);
550 sprintf(buf, "t%c%c%c%c%s", x+1, y+1, len, col, buf2);
555 return (*old_text_hook)(x, y, len, col, str);
558 static errr send_wipe_to_chuukei_server(int x, int y, int len)
562 sprintf(buf, "w%c%c%c", x+1, y+1, len);
566 return (*old_wipe_hook)(x, y, len);
569 static errr send_xtra_to_chuukei_server(int n, int v)
573 if (n == TERM_XTRA_CLEAR || n == TERM_XTRA_FRESH || n == TERM_XTRA_SHAPE)
575 sprintf(buf, "x%c", n+1);
579 if (n == TERM_XTRA_FRESH)
581 sprintf(buf, "d%ld", get_current_time() - epoch_time);
586 /* Verify the hook */
587 if (!old_xtra_hook) return -1;
589 return (*old_xtra_hook)(n, v);
592 static errr send_curs_to_chuukei_server(int x, int y)
596 sprintf(buf, "c%c%c", x+1, y+1);
600 return (*old_curs_hook)(x, y);
603 static errr send_bigcurs_to_chuukei_server(int x, int y)
607 sprintf(buf, "C%c%c", x+1, y+1);
611 return (*old_bigcurs_hook)(x, y);
616 * Prepare z-term hooks to call send_*_to_chuukei_server()'s
618 void prepare_chuukei_hooks(void)
620 term *t0 = angband_term[0];
622 /* Save original z-term hooks */
623 old_xtra_hook = t0->xtra_hook;
624 old_curs_hook = t0->curs_hook;
625 old_bigcurs_hook = t0->bigcurs_hook;
626 old_wipe_hook = t0->wipe_hook;
627 old_text_hook = t0->text_hook;
629 /* Prepare z-term hooks */
630 t0->xtra_hook = send_xtra_to_chuukei_server;
631 t0->curs_hook = send_curs_to_chuukei_server;
632 t0->bigcurs_hook = send_bigcurs_to_chuukei_server;
633 t0->wipe_hook = send_wipe_to_chuukei_server;
634 t0->text_hook = send_text_to_chuukei_server;
639 * Prepare z-term hooks to call send_*_to_chuukei_server()'s
641 void prepare_movie_hooks(void)
650 if (!chuukei_server) disable_chuukei_server();
652 disable_chuukei_server();
655 msg_print(_("録画を終了しました。", "Stopped recording."));
659 sprintf(tmp, "%s.amv", player_base);
660 if (get_string(_("ムービー記録ファイル: ", "Movie file name: "), tmp, 80))
664 path_build(buf, sizeof(buf), ANGBAND_DIR_USER, tmp);
666 fd = fd_open(buf, O_RDONLY);
677 (void)sprintf(out_val, _("現存するファイルに上書きしますか? (%s)", "Replace existing file %s? "), buf);
680 if (!get_check(out_val)) return;
682 movie_fd = fd_open(buf, O_WRONLY | O_TRUNC);
686 movie_fd = fd_make(buf, 0644);
691 msg_print(_("ファイルを開けません!", "Can not open file."));
697 if (!chuukei_server) prepare_chuukei_hooks();
699 prepare_chuukei_hooks();
707 static int handle_timestamp_data(int timestamp)
709 long current_time = get_current_time();
712 if (fresh_queue.tail == fresh_queue.next)
714 /* バッファリングし始めの時間を保存しておく */
715 epoch_time = current_time;
716 epoch_time += browse_delay;
717 epoch_time -= timestamp;
718 time_diff = current_time - timestamp;
721 /* 描画キューに保存し、保存位置を進める */
722 fresh_queue.time[fresh_queue.tail] = timestamp;
725 /* キューの最後尾に到達したら先頭に戻す */
726 fresh_queue.tail %= FRESH_QUEUE_SIZE;
728 if (fresh_queue.tail == fresh_queue.next)
731 prt("描画タイミングキューが溢れました。サーバとの接続を切断します。", 0, 0);
739 if (time_diff != current_time - timestamp)
741 long old_time_diff = time_diff;
742 time_diff = current_time - timestamp;
743 epoch_time -= (old_time_diff - time_diff);
751 static int handle_movie_timestamp_data(int timestamp)
753 static int initialized = FALSE;
758 /* バッファリングし始めの時間を保存しておく */
759 epoch_time = get_current_time();
760 epoch_time += browse_delay;
761 epoch_time -= timestamp;
762 //time_diff = current_time - timestamp;
766 /* 描画キューに保存し、保存位置を進める */
767 fresh_queue.time[fresh_queue.tail] = timestamp;
770 /* キューの最後尾に到達したら先頭に戻す */
771 fresh_queue.tail %= FRESH_QUEUE_SIZE;
778 static int read_sock(void)
780 static char recv_buf[RECVBUF_SIZE];
781 static int remain_bytes = 0;
785 /* 前回残ったデータの後につづけて配信サーバからデータ受信 */
786 recv_bytes = recv(sd, recv_buf + remain_bytes, RECVBUF_SIZE - remain_bytes, 0);
791 /* 前回残ったデータ量に今回読んだデータ量を追加 */
792 remain_bytes += recv_bytes;
794 for (i = 0; i < remain_bytes; i ++)
796 /* データのくぎり('\0')を探す */
797 if (recv_buf[i] == '\0')
799 /* 'd'で始まるデータ(タイムスタンプ)の場合は
801 if ((recv_buf[0] == 'd') &&
802 (handle_timestamp_data(atoi(recv_buf + 1)) < 0))
806 if (insert_ringbuf(recv_buf) < 0)
809 /* 次のデータ移行をrecv_bufの先頭に移動 */
810 memmove(recv_buf, recv_buf + i + 1, remain_bytes - i - 1);
812 remain_bytes -= (i+1);
821 static int read_movie_file(void)
823 static char recv_buf[RECVBUF_SIZE];
824 static int remain_bytes = 0;
828 recv_bytes = read(movie_fd, recv_buf + remain_bytes, RECVBUF_SIZE - remain_bytes);
833 /* 前回残ったデータ量に今回読んだデータ量を追加 */
834 remain_bytes += recv_bytes;
836 for (i = 0; i < remain_bytes; i ++)
838 /* データのくぎり('\0')を探す */
839 if (recv_buf[i] == '\0')
841 /* 'd'で始まるデータ(タイムスタンプ)の場合は
843 if ((recv_buf[0] == 'd') &&
844 (handle_movie_timestamp_data(atoi(recv_buf + 1)) < 0))
848 if (insert_ringbuf(recv_buf) < 0)
851 /* 次のデータ移行をrecv_bufの先頭に移動 */
852 memmove(recv_buf, recv_buf + i + 1, remain_bytes - i - 1);
854 remain_bytes -= (i+1);
864 /* Win版の床の中点と壁の豆腐をピリオドとシャープにする。*/
865 static void win2unix(int col, char *buf)
868 if ( col == 9 ) kabe = '%';
880 if (*buf == 127) *buf = kabe;
881 else if(*buf == 31) *buf = '.';
887 static bool get_nextbuf(char *buf)
893 *ptr = ring.buf[ring.rptr ++];
895 if (ring.rptr == RINGBUF_SIZE) ring.rptr = 0;
896 if (*ptr++ == '\0') break;
899 if (buf[0] == 'd') return (FALSE);
904 /* プレイホストのマップが大きいときクライアントのマップもリサイズする */
905 static void update_term_size(int x, int y, int len)
909 Term_get_size(&ox, &oy);
914 if (x + len > ox) nx = x + len;
916 if (y + 1 > oy) ny = y + 1;
918 if (nx != ox || ny != oy) Term_resize(nx, ny);
921 static bool flush_ringbuf_client(void)
926 if (fresh_queue.next == fresh_queue.tail) return (FALSE);
929 if (fresh_queue.time[fresh_queue.next] > get_current_time() - epoch_time) return (FALSE);
931 /* 時間情報(区切り)が得られるまで書く */
932 while (get_nextbuf(buf))
937 unsigned char tmp1, tmp2, tmp3, tmp4;
940 sscanf(buf, "%c%c%c%c%c", &id, &tmp1, &tmp2, &tmp3, &tmp4);
941 x = tmp1-1; y = tmp2-1; len = tmp3; col = tmp4;
958 update_term_size(x, y, len);
959 (void)((*angband_term[0]->text_hook)(x, y, len, (byte)col, mesg));
960 strncpy(&Term->scr->c[y][x], mesg, len);
961 for (i = x; i < x+len; i++)
963 Term->scr->a[y][i] = col;
968 for (i = 1; i < len; i++)
973 update_term_size(x, y, len);
974 (void)((*angband_term[0]->text_hook)(x, y, len, (byte)col, mesg));
975 strncpy(&Term->scr->c[y][x], mesg, len);
976 for (i = x; i < x+len; i++)
978 Term->scr->a[y][i] = col;
983 update_term_size(x, y, 1);
984 (void)((*angband_term[0]->text_hook)(x, y, 1, (byte)col, mesg));
985 strncpy(&Term->scr->c[y][x], mesg, 1);
986 Term->scr->a[y][x] = col;
990 update_term_size(x, y, len);
991 (void)((*angband_term[0]->wipe_hook)(x, y, len));
995 if (x == TERM_XTRA_CLEAR) Term_clear();
996 (void)((*angband_term[0]->xtra_hook)(x, 0));
1000 update_term_size(x, y, 1);
1001 (void)((*angband_term[0]->curs_hook)(x, y));
1004 update_term_size(x, y, 1);
1005 (void)((*angband_term[0]->bigcurs_hook)(x, y));
1011 if (fresh_queue.next == FRESH_QUEUE_SIZE) fresh_queue.next = 0;
1016 void browse_chuukei()
1030 Term_xtra(TERM_XTRA_REACT, 0);
1035 struct timeval tmp_tv;
1037 if (flush_ringbuf_client()) continue;
1042 /* ソケットにデータが来ているかどうか調べる */
1043 select(sd+1, &tmp_fdset, (fd_set *)NULL, (fd_set *)NULL, &tmp_tv);
1044 if (FD_ISSET(sd, &tmp_fdset) == 0)
1046 Term_xtra(TERM_XTRA_FLUSH, 0);
1050 if (read_sock() < 0)
1052 chuukei_client = FALSE;
1055 /* 接続が切れた状態で書くべきデータがなくなっていたら終了 */
1056 if (!chuukei_client && fresh_queue.next == fresh_queue.tail ) break;
1061 Term_xtra(TERM_XTRA_REACT, 0);
1065 UInt32 unreadData = 0;
1068 if (flush_ringbuf_client()) continue;
1070 /* ソケットにデータが来ているかどうか調べる */
1072 OTCountDataBytes(ep, &unreadData);
1073 if(unreadData <= 0 ){
1074 Term_xtra(TERM_XTRA_FLUSH, 0);
1077 if (read_sock() < 0)
1079 chuukei_client = FALSE;
1082 /* 接続が切れた状態で書くべきデータがなくなっていたら終了 */
1083 if (!chuukei_client && fresh_queue.next == fresh_queue.tail ) break;
1085 #endif /*MACINTOSH*/
1087 #endif /* CHUUKEI */
1089 void prepare_browse_movie_aux(cptr filename)
1091 movie_fd = fd_open(filename, O_RDONLY);
1093 browsing_movie = TRUE;
1098 void prepare_browse_movie(cptr filename)
1101 path_build(buf, sizeof(buf), ANGBAND_DIR_USER, filename);
1103 prepare_browse_movie_aux(buf);
1106 void browse_movie(void)
1110 Term_xtra(TERM_XTRA_REACT, 0);
1112 while (read_movie_file() == 0)
1114 while (fresh_queue.next != fresh_queue.tail)
1116 if (!flush_ringbuf_client())
1118 Term_xtra(TERM_XTRA_FLUSH, 0);
1120 /* ソケットにデータが来ているかどうか調べる */