--Multipart_Wed_Aug__4_21:08:55_1999-1
Content-Type: text/plain; charset=ISO-2022-JP
¤´¤È¤±¤ó¤Ç¤¹
In message "[ruby-list:15875] Re: cannot install ruby-gtk into FreeBSD 2.2.x"
on 99/08/04, Katsuyuki Komatsu <komatsu / sarion.co.jp> writes:
>ruby.c¤Î#include <fcntl.h>¤âio.c¤ÈƱÍͤË#if defined(HAVE_FCNTL_H)
>¤Ç°Ï¤àɬÍפ¬¤¢¤ë¤È»×¤¤¤Þ¤¹¡Ä¡Ä¤Èruby.c¤ÎÊ̤ÎÌäÂê¤ò ¤¤Æ¤ª¤¤¤Æ¡¨Â
¤Â¡Öruby.c¤ò¤µ¤ï¤ë¤Ê¤é¤´¤¤¤Ã¤·¤ç¤Ë[ruby-list:15843]¤â¤¤¤«¤¬¤Ç¤¹¤«¡©¡×
>¤È¤ª´ê¤¤¤·¤Æ¤ß¤Þ¤·¤ç¤¦¤«¡£
¤ª¤ª¡¢¤Ïµ¤¤Å¤¤Þ¤»¤ó¤Ç¤·¤¿¡£¤È¤Ë¤«¤¯¤ª´ê¤¤¤·¤Þ¤·¤ç¤¦ ^^;;;
>|¤Ïµ¤¤Ë¤Ê¤Ã¤Æ¤Ï¤¤¤Þ¤·¤¿¤¬¡¢UNIX¥â¥Ç¥ë¤Ç¤Ï¼Â¹Ô¥Õ¥¡¥¤¥ë¤¬¼«
>|¿È¤Î¾ì òÃΤëÊýË¡¤Ã¤Æ¤Ê¤¤¤È»×¤¦¤Ç¤¹¡¢¤¿¤Ö¤ó¡£¤Ã¤Æ¤ï¤±¤¨Â
¾ü¤Æ¤ß¤Þ¤·¤¿¡£File::which("ls") ["/bin/ls"] ¤È¤¤¤¦¤â¤Î¤Ç¤¹¡£
>
>ÁêÂХѥ¹»ØÄ꤬¤Á¤ç¤Ã¤È (^^;
¥ì¥Ý¡¼¥È¤É¤¦¤â¤Ç¤¹¡£¤¢¤¦¡¼¡£¤³¤ì¤Ï µ¤·¤Þ¤·¤¿¡£¤ó¤¬¡¨Â
¤Â˺¤ì¤Æ¤Þ¤·¤¿¤¬¡¢¤³¤ì¤ÏCOMMAND.COM¤¢¤ë¤¤¤ÏCMD.EXE¤Îµ¡¤Î¤Ç
>cygwin¤Îbash¤Çmswin32¤Î./ruby¤òµ¯Æ°¤·¤¿¾ì¹ç¤Î¥±¡¼¥¹¤Ç¤ÏUNIX
>¤ÈƱÍͤÎÂÐ ¬É¬ÍפǤ¹¡¨Â
¤Â¤¹¤ë¤È¡¢which.rb¤Ë¤âdosish¤ÎÂкö¤¬É¬Íפ«¤â¡£
dosishÂкö¤Ã¤Æ¤è¤¯Ê¬¤«¤é¤Ê¤¤¤Î¤Ç¤¹¡Ä¥»¥Ñ¥ì¡¼¥¿¤òÀÚ¤êÂØ¤¨¤ì¤Ð
¤¤¤¤¤ó¤Ç¤·¤ç¤¦¤«?? ´ª°ã¤¤¤·¤Æ¤¿¤é¶µ¤¨¤Æ²¼¤µ¤¤¡£
-- gotoken
--Multipart_Wed_Aug__4_21:08:55_1999-1
Content-Type: application/octet-stream
Content-Disposition: attachment; filename="which.rb"
Content-Transfer-Encoding: 7bit
#!/usr/local/bin/ruby
class << File
def which(target, all alse)
path NV['PATH'].split (":") #(File::PATH_SEPARATOR)
res ]
for prog in target
if (prog File::SEPARATOR)
res.push prog if test(?x, prog) && test(?f, prog)
else
for e in path
cmd + File::SEPARATOR + prog
if test(?x, cmd) && test(?f, cmd)
res.push cmd
break unless all
end
end
end
end
res
end
end
if __FILE__ $0
all ilent ound alse
if ARGV[0] '-a'
all rue; ARGV.shift
elsif ARGV[0] '-s'
silent rue; ARGV.shift
elsif ARGV[0] /^-(h|help|\?)$/
STDERR.puts "usage: which [-a] [-s] program ..."
exit
end
res ile::which(ARGV, all)
puts res unless silent
exit (res.empty? ? 1 : 0)
end
--Multipart_Wed_Aug__4_21:08:55_1999-1--