Textmate :: Jumpto.

TextMate°¡ ƯÁ¤ ÆÄÀÏ·Î À̵¿Çϵµ·Ï TextMate¿¡
Áö±Ý ´Ù¿î·Îµå

Textmate :: Jumpto. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Andy Armstrong
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~andya/

Textmate :: Jumpto. ű×


Textmate :: Jumpto. ¼³¸í

Textmate¿¡°Ô ƯÁ¤ ÆÄÀÏ·Î À̵¿Çϵµ·Ï Áö½ÃÇϽʽÿÀ. Developer Commenti´Â ~ / .perldb¿¡¼­ TextMate¸¦ »ç¿ëÇÏ¿© ÇöÀç µð¹ö°Å À§Ä¡¸¦ ÃßÀûÇÕ´Ï´Ù. ¿©±â¿¡ÀÖ´Â °Íó·³ º¸ÀÌ´Â °ÍÀÔ´Ï´Ù : $ cat ~ / .perldb textmate :: jumpto qw (jumpto); ÆÄÀÏ :: »ç¾ç »ç¿ë; ÇÏÀ§ ¾ÖÇÁÅÍ {$ trace | = 4; # WatchFunction # È°¼ºÈ­ # ÆÄÀÏ À̸§ÀÌ Chomp ($ base_dir =`pwd``)¸¦ »ó´ëÀûÀ¸·Î ÀÛµ¿ÇÏ´Â µ¥ ÇÊ¿äÇÑ °æ¿ì ÇÊ¿äÇÕ´Ï´Ù. $ ¿É¼Ç {Animate} = 0; Ǫ½Ã @Options, '¾Ö´Ï¸ÞÀ̼Ç'; } Sub WatchFunction {My ($ ÆÐÅ°Áö, $ ÆÄÀÏ, $ line) = @_; $ db :: ½Ì±Û || $ ¿É¼Ç {Animate}; ·ÎÄà $ trace = 0; if ($ file = ~ / ^ \ val\s+ =d + \ =) {$ file = $ 1; $ line + = $ 2 - 1; } $ file = file :: spec-> rel2abs ($ file, $ base_dir); jumpto (file => $ file, line => $ line, bg => 1); ¹Ýȯ 1; } ½Ã³ñ½Ã½º »ç¿ë TextMate :: Jumpto QW (jumpto tm_location); jumpto (file => 'mysrc.pl', line => 123); MY $ TEXTMATE_LINK = TM_Location (file => 'foo.t', line => 12); ¿ä±¸ »çÇ× : ¡¤ Perl.


Textmate :: Jumpto. °ü·Ã ¼ÒÇÁÆ®¿þ¾î