envi's blog notes with stylus

MFC나 ATL에 있는 컨테이너들을 주로 쓰다가 STL로 넘어가려니 MFC의 편리한 함수들이 아쉽습니다.

특히나 CString 의 Format이나 Tokenizer, Replace 등의 함수가 std::string 에선 아예 없거나 동작 방식이 다르다보니..코딩하다가 버벅이는데..

틈틈히 CString의 함수들을 std::string에 이식한 유틸들을 만들던가 해야겠네요. :)

요즘 다시 Topcoder 나 UVa 문제들을 하루에 한문제씩 풀고있습니다.
기존엔 Visual C++ 로 풀었는데 emacs에 익숙해질겸해서 에디터를 갈아치웠죠..

그런데 Visual C++ 처럼 단축키만으로 컴파일을 하고 실행이 안되니 너무 불편합니다 T.T

문제를 풀고 컴파일 여부와 실행해서 Test Case 를 입력 후 답이 제대로 나오는지 확인해야되는데.. 이게 금방금방 안되니.. ;(

하지만!! emacs 는 extensible! customizable! 한 에디터 아니겠습니까? ^^

그래서 그 단축키만으로 컴파일!을 하고 실행! 을 할수있게 기능을 추가했습니다.

; 현재 소스파일명으로 컴파일을 합니다. (ex. source.cpp -> source)
(defun compile-filename()
  "Compile buffer filename"
  (interactive)
  (let (compileString fileName))
  (setq fileName (file-name-nondirectory buffer-file-name))
  (setq fileName (file-name-sans-extension fileName))
  (setq compileString (format "g++ %s -o %s" buffer-file-name fileName))
  (compile compileString)
)

; 창을 두개로 나눠 쉘을 띄운 후 컴파일된 파일을 실행합니다.
(defun execute-filename ()
  "Run ./filename"
  (interactive)
  (let ((fileName (file-name-nondirectory buffer-file-name)))
    (setq fileName (format "./%s" (file-name-sans-extension fileName)))
    (setq windowHeight (- (window-height) 10))
    (split-window-vertically windowHeight)
    (other-window 1)
    (shell)
    (sit-for 0.1)
    (insert fileName)
    (comint-send-input)
    ) 
  )

;; M-x compile-filename 로 입력하니 불편하니 Ctrl+c c 로 컴파일 할수있게합니다.
(global-set-key [(control c) ?c] 'compile-filename)

;; 역시 실행시도 Ctrl+c x 로 실행할 수 있게 합니다.
(global-set-key [(control c) ?x] 'execute-filename)

#!/usr/bin/perl

use warnings;
use strict;
use LWP::Simple;
use threads ('yield',
             'stack_size' => 64*4096,
             'exit' => 'threads_only',
             'stringify');

my $thread;
my $episode = 0;

while (1)
{
    $episode++;
    my $fileTitle = "0" x (3-length($episode))."$episode";
    next if -e "$fileTitle.jpg";

    my $contents = get("http://www.gamtoon.com/NEW/TF/ctn99/view.gam?num=$episode");

    if ($contents ne "")
    {
        if ($contents =~ m/<img src="down\/(.*).\w\w\w"><\/center>/g)
        {
            print "now downloding: $episode\n";
            my $jpg = get("http://www.gamtoon.com/NEW/TF/ctn99/down/$1.jpg");
            open my $out, '>', "$fileTitle.jpg";
            binmode $out;
            print $out $jpg;
        }
    }
    else
    {
        last;
    }
}

이히.. 잘되는구나