自作プログラムを公開するスレ

1 名前：滝沢村の名無しさん 投稿日： 2002/10/19(土) 23:29 [ kCrdr.bc ]

いいプログラムを作ったはいいが公開する場がない
人のためのスレです。
ソースを公開してコミュニティーを作るのもいいでしょう。
簡単なスクリプトでもいいのでどんどん公開しましょう。

2 名前：トリアエーズ 投稿日： 2002/10/20(日) 23:32 [ Qz7VbAM2 ]

#include <stdio.h>

int main()
{
printf("2ゲットォォォォ！！！\n");
printf("￣￣￣￣￣∨￣￣￣　　　　　　　(´´ \n");
printf("　　∧∧　　　）　　　　　　(´⌒(´ \n");
printf("⊂（ﾟДﾟ⊂⌒｀つ≡≡≡(´⌒;;;≡≡≡ \n");
printf("　　　　 ￣￣　 (´⌒(´⌒;; \n");
printf("　　ｽﾞｻﾞｰｰｰｰｰｯ \n");
}

3 名前：まぁ 投稿日： 2002/10/20(日) 23:43 [ .AWCsUbs ]

↑コンパイルできんだろーに･･･

4 名前：トリアエーズ 投稿日： 2002/10/20(日) 23:58 [ Qz7VbAM2 ]

普通にできるような気がするのですが…。

5 名前：トリアエーズ 投稿日： 2002/10/21(月) 00:00 [ .8n6SECE ]

あー、確かにずれてる。そこはご愛嬌で…。

6 名前：滝沢村の名無しさん 投稿日： 2002/10/21(月) 00:45 [ ZcpqfSxU ]

戻値でintにしてるのだから
正常終了なら ０を
異常終了なら １を
返すように

7 名前：滝沢村の名無しさん 投稿日： 2002/10/21(月) 01:11 [ 481U1csE ]

#include <stdio.h>
void main()
{
　　printf("プログラミング相互支援スレとどこが違うんだ(ﾟДﾟ)ｺﾞﾙｧ!!");
　　printf("\t\b\b");
}

ＮＴ系ＯＳで動かしてください。

8 名前：学食のおばちゃん 投稿日： 2002/10/21(月) 08:10 [ xG2IbCK2 ]

>>7
それ、ＮＴだと落ちるんだっけか？

9 名前：カペラ 投稿日： 2002/10/21(月) 09:31 [ XUFRz01. ]

素敵な仕様ですよね。

10 名前：カペラ 投稿日： 2002/10/21(月) 18:24 [ XUFRz01. ]

ちょっと借ります。
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <termios.h>

static struct termios tm;

void begin_kbhit(void)
{
struct termios t;

tcgetattr( 0, &t);
tm = t;
t.c_lflag &= ~(ICANON | ECHO);
t.c_cc[VMIN] = 0;
tcsetattr( 0, TCSADRAIN, &t);
}

char get_kbhit(void)
{
char ret = 0;
char c;
int status = 0;

status = read( 0, &c, sizeof(char));
if(status != 0) ret = c;
else ret = (char)status;
return ret;
}

void end_kbhit(void)
{
tcsetattr( 0, TCSADRAIN, &tm);
}

11 名前：カペラ 投稿日： 2002/10/21(月) 18:25 [ XUFRz01. ]

メインです。
int main( int argv, char *argc[])
{
int i = 0;
char key = 0;
char str[][256] = {
" ｷﾀ---------( ﾟ ∀ ﾟ )---------!!"," ｷﾀ---------(ﾟ ∀ ﾟ )---------!!",
" ｷﾀ---------( ∀ ﾟ )---------!!"," ｷﾀ---------(∀ ﾟ )---------!!",
" ｷﾀ---------(V ﾟ )---------!!"," ｷﾀ---------( ﾟ )---------!!",
" ｷﾀ---------(ﾟ )---------!!"," ｷﾀ---------( )---------!!",
" ｷﾀ---------( )---------!!"," ｷﾀ---------( )---------!!",
" ｷﾀ---------( ﾟ)---------!!"," ｷﾀ---------( ﾟ )---------!!",
" ｷﾀ---------( ﾟ V)---------!!"," ｷﾀ---------( ﾟ ∀)---------!!",
" ｷﾀ---------( ﾟ ∀ )---------!!"," ｷﾀ---------( ﾟ ∀ ﾟ)---------!!"};

if(argv >= 2 && strcmp(argc[1], "-c") == 0) system("clear");

begin_kbhit();

while(key != 27) /* 27 は Escape code*/
{
printf("%s\r", str[i]);
fflush(stdout);

i++; i %= 16;

key = 0;
key = get_kbhit();

usleep(50000);
}

end_kbhit();
printf("\n");

return 0;
}

12 名前：カペラ 投稿日： 2002/10/21(月) 18:25 [ XUFRz01. ]

あれ？半角スペース消えちゃいました。

13 名前：滝沢村の名無しさん 投稿日： 2002/10/23(水) 03:04 [ 4FCGyhtA ]

ダサ

14 名前：名無し＠Ｅｍａｃｓ 投稿日： 2002/10/27(日) 15:37 [ H3k149sQ ]

:10000000831686018312FF3086003C200E201120CB
:10001000142017201D202020232006287830262099
:100020000800843026200800823026200800413055
:1000300026200800413026200800823026200800B3
:1000400084302620080078302620080086003C20D6
:10005000003086003320080052308C000C0B312811
:1000600008008C002E282C202C202C202C202C202A
:100070002C202C202C200800332033203320332048
:04008000080041280B
:108000000000000000000000000000000000000070
:108010000000000000000000000000000000000060
:108020000000000000000000000000000000000050
:108030000000000000000000000000000000000040
:108040000000000000000000000000000000000030
:108050000000000000000000000000000000000020
:108060000000000000000000000000000000000010
:108070000000000000000000000000000000000000
:10FF00000231366638340000000200010100FFFFB4
:00000001FF

15 名前：滝沢村の名無しさん 投稿日： 2002/11/11(月) 07:05 [ 8/qLIVB2 ]

>>14
これ何？
マシン語？
Emacs lispでないのはわかるのだが。

個人的にはUNIXのコマンドでwcってのがあるけど、
あれの日本語＆Tex対応版誰か書いて。
ちゃんと日本語を１文字として認識してくれて、
Texの\begin{document}やコメントを文字としてカウントしない
そういうのがほしい。

まあ誰も書いてくれなかったら、仕方ないので俺が作るけど。
いつになるか知らないけどね。

16 名前：滝沢村の名無しさん 投稿日： 2002/11/12(火) 03:30 [ .ZTBQSeg ]

（ ´_ゝ`）ﾌｰﾝ
（ ´,_ゝ`）ﾌﾟｯ

17 名前：滝沢村の名無しさん 投稿日： 2002/11/13(水) 02:56 [ 5v7eW5UU ]

10 'SAVE "SAGE.BAS",A
20 CLS 3:WIDTH 80,25:CONSOLE 0,25,0,1,0:SCREEN 3,0,0,1:COLOR 7,0,0,7
30 FOR I=0 TO 65535
40 PRINT "（ ´_ゝ`）ﾌｰﾝ"
50 NEXT I
60 END

18 名前：滝沢村の名無しさん 投稿日： 2003/12/13(土) 04:26 [ oQ7mLZOE ]

（ ´_ゝ`）ﾌｰﾝ
（ ´,_ゝ`）ﾌﾟｯ

19 名前：盛岡の某大卒プログラマ 投稿日： 2003/12/15(月) 21:08 [ VxaHNzKk ]

今作っているRPGの試作プログラム。
とりあえずシステムの実験だけでゲームの内容はなし(^^;

http://www.sm.rim.or.jp/~shishido/rpgp.html

20 名前：ソフト■ （iD9iQELI） 投稿日： 2003/12/16(火) 11:24 [ qwIIZTJs ]

>>19
盛岡の方だったんですね。
いつも参考にさせてもらってます。

ってここでこんなレスしていいのかな（汗

21 名前：盛岡の某大卒プログラマ 投稿日： 2003/12/18(木) 20:14 [ ERjuKcwI ]

>>20
どうも。
盛岡の某国立大学(^^;を卒業してからも盛岡にいついています。

ところで、プログラムの方はうまく動きました？
マップスクロールの描画速度や滑らかさをもう少し調整したいんですが、
どんな方向でやるべきか、いまいちつかめないので・・・。

22 名前：滝沢村の名無しさん 投稿日： 2005/01/26(水) 03:03:09 [ lxt6x4Nw ]

http://www.kumei.ne.jp/

23 名前：滝沢村の名無しさん 投稿日： 2007/08/21(火) 17:15:54 [ ql0sT19E ]

ホワイトスペースでいいよ

24 名前：滝沢村の名無しさん 投稿日： 2007/08/28(火) 16:50:33 [ VswMEAuo ]

こういうスレがあったのね
使い方: 引数にパスを渡す。
　　　　引数が無ければカレントディレクトリが対象になる。
#! /usr/local4/bin/ruby
# remove unnecessary files

# target files
trgt = ["*.*~", "\#*.*\#", # emacs backup file
"core", # gcc, cc debug
"a.exe.stackdump",
"*.log", "*.aux", # tex
"*.obj", "*.tds", # bcc
]

if ARGV == []
base = "./"
else
base = ARGV[0]
if base[-1] != ?/
base = base + "/"
end
end

trgt.each do |t|
pth = base + t
Dir.glob(pth).each do |file|
puts "remove #{file}"
File.unlink file
end
end

25 名前：滝沢村の名無しさん 投稿日： 2007/10/15(月) 16:18:07 [ w2Pl3vB2 ]

演習でHPCを使わなければならないのだがemacsが起動できず、
vi以外の選択肢を必死に探した結果。
以下を入力するとHPCでもemacsが使えるよ！しかも最新バージョンだから
デフォルトでソースコードに色づけしてくれる。Linuxだから
Imagemagickとかも使える。SGIさんのいじったカーネルっぽい(uname -r)。

1. ログイン元のターミナルで
$ xhost +hcuse100.mc.iwate-pu.ac.jp
2. ログイン先のターミナルで
$ export DISPLAY=isuxd000.edu.soft.iwate-pu.ac.jp:0.0

動作テスト：
$ emacs &
とか
$ display &
とか。
PPM画像を作ってみる。
$ python
f = open("test.ppm" ,"w")
f.write("P3\n256 256\n255\n")
for i in xrange(256):
for j in xrange(256):
f.write("%d %d %d " % (i, j, (i * j) % 256))
f.close()
で、ターミナルで
$ display test.ppm &

期間を空けた連投

26 名前：滝沢村の名無しさん 投稿日： 2007/10/16(火) 14:04:47 [ ORO6tVlw ]

ところでviはどうしてダメなの？
viの方がどこにでもあるから覚えておいて損は無いと思うんだが。

27 名前：滝沢村の名無しさん 投稿日： 2007/10/16(火) 16:03:13 [ ORO6tVlw ]

>> 26
覚えておいて損はないけど覚えるためにかける手間が面倒。
必要になったらそのときに学習すればいいと思う。
どうせ今覚えたところで必要になる頃には忘れるしね。
それにemacsだってどこにでもあるじゃないか。viほどではないけど。
ちなみにAltixにはxemacsもはいってるよ。あとviの強化バージョンの
vimとgvimが入ってる

28 名前：滝沢村の名無しさん 投稿日： 2007/10/16(火) 16:48:21 [ ORO6tVlw ]

外野だけど、ツッコミ。

>>27
> それにemacsだってどこにでもあるじゃないか

まぁ、どこにでもあるけど、それはPC-Linuxの世界だけだよ。
LinuxでもSlackwareとかだとインストール時にデフォルトで入らないし。
SH3-LinuxとかuCLinuxみたいなの使うと間違いなくディストリ自体に入ってない。

やっぱりviは覚えていて損はないと思うよ。
>>26 の
> viの方がどこにでもあるから覚えておいて損は無いと思うんだが。
が正にその通りなんだが、他にも、
crontab -e とか vipw を使うときにviの使い方覚えてないと少し困る（最近のLinuxだと全部GUIがあるから意識しないけど）。

RS232C経由でルーターとかCPUボード上のLinux弄るときにはviしか選択肢がないのがほとんどだ。

そんな俺は*BSD&Slackwareユーザー。

あと並列計算機ってリソースをみんなで分け合って使うんだから
俺だと不要なプログラムを走らせるのはちょっと気が引けるな。

29 名前：滝沢村の名無しさん 投稿日： 2007/10/16(火) 18:35:27 [ ORO6tVlw ]

>>28
確かにAltixでemacs使うとその分リソース使うからちょっと気が引けるけど
viを使うストレスに比べるとやっぱりemacsを使いたいという衝動にかられ
てしまうのです。。。

30 名前：滝沢村の名無しさん 投稿日： 2007/10/17(水) 20:45:06 [ zcI.nRXw ]

サーバ管理するようになってシリアルコンソールからいじらなければいけないこともあるよ。
まあ、それが必要になったら覚えるということなのかもしれないが。

emacsとviどっちもそこそこ覚えるぐらいがいいんじゃね？

31 名前：滝沢村の名無しさん 投稿日： 2007/10/18(木) 12:26:09 [ KRUO6gqo ]

ほんとうにどこにでもあるエディタと言えば

/bin/ed

今時対話モードで使ってる人はまずいないと思うけど

32 名前：滝沢村の名無しさん 投稿日： 2007/10/18(木) 18:31:56 [ KRUO6gqo ]

結局、CygwinからHPCにログインしたらうまく表示させられなかったので
vimを使っているのであった。残念。

33 名前：滝沢村の名無しさん 投稿日： 2007/10/20(土) 23:54:47 [ Y8ABQA0U ]

Windowsからsshやtelnet使うなら、せめてteratermとか使えよ・・・

34 名前：滝沢村の名無しさん 投稿日： 2007/10/21(日) 01:09:15 [ H9To25MQ ]

どう考えても最低限 putty だろ・・・。
teratermねぇよ・・・。
・・・。

35 名前：滝沢村の名無しさん 投稿日： 2007/10/21(日) 12:03:37 [ H9To25MQ ]

telnet, IP直打ちしたら成功しちゃった。よく考えたらDNSサーバに登録
されてないから(DHCP接続)、我がホスト名を入力してもサーバが解決できる
訳無かった。

37 名前：滝沢村の名無しさん 投稿日： 2008/04/10(木) 20:19:29 [ Q93lKAhU ]

新１年生が入学してきました。netscapeがしんどい人が結構いると思われる
のでfirefox1.0のインストーラを作成しました。ネット上からバイナリ版を
/tmpにダウンロードして展開、デフォルトでは $HOME/local/にインストール
します。実行は、下記プログラムをinstall.rbという名前で保存し、端末で
$ /usr/local4/bin/ruby install.rb
でインストールです。展開後のサイズは54MBあります。

プログラム中に変な所を発見した人は報告願います。
動かないって人も。

-=-=-=-=-=-=-=-=-=-=-=-= 以下プログラム -=-=-=-=-=-=-=-=-=-=-=-=-=-=
#! /usr/local4/bin/ruby
# install.rb

<<EOS
rubyは/opt/NSUG97/bin/ にもインストールされているがバージョンが1.0なので注意
EOS

<<EOS
firefox1.0 binary for solaris8のダウンロード＆インストールスクリプト
プログラムの実行：
$ /usr/local4/bin/ruby install.rb
EOS

# ------------- vars
installDir = ENV["HOME"] + "/local/"
launcherName = "firefox"

url = "ftp://ftp.sunfreeware.com/pub/freeware/sparc/8/firefox-1.0-sparc-sun-solaris2.8.tar.gz"
base = File.basename url

# -------------- logic
# if not exists #{installDir}, create it
if not File.exists? installDir
print "create directory: #{installDir}"
Dir.mkdir installDir
end

if File.exists? ( installDir + "firefox" )
msg = "install directory is already exists. continue installing ? [y/n]: "
input = ""
while not (input == "y" || input == "n")
print msg; input = gets.chomp
end
if input == "n"
exit
end
end

puts "Downloading #{url}... this may take a few minite"
system "wget --directory-prefix=/tmp/ #{url}"
puts
puts "Extracting #{base}..."

system "cd /tmp/ && gunzip #{base} && tar xf #{base[0..-4]} && cp -r firefox #{installDir}"
puts "cd #{installDir} && gunzip #{base} && tar xf #{base[0..-4]}"

puts "#########################"
puts "firefox is now installed."
puts "#########################"

puts "Type '#{installDir}firefox/firefox' to execute"
puts "Adding '#{installDir}firefox/' to $PATH is reccomend."

38 名前：滝沢村の名無しさん 投稿日： 2008/04/15(火) 00:06:10 [ 2lfpdnj2 ]

せっかくなんだから2.x系の方が良いんじゃないだろうか。
ftp://ftp.mozilla.org/pub/mozilla.org/firefox/releases/2.0.0.13/contrib/solaris_tarball/
ここに、2.0.0.13のバイナリあるし。英語版だけどね。

それとわざわざRubyなんか持ち出さなくてもシェルスクリプトで間に合うと思う。
そっちの方が予習・復習にもなるしね。

つーか、MozillaもNetscapeもFirefoxに移行しろって言っているんだから、
選択肢としてFirefoxも選べるように、最初から入っていてほしいよね。

39 名前：滝沢村の名無しさん 投稿日： 2008/04/15(火) 07:33:45 [ j29TzKf2 ]

solarisでFirefoxをソースからビルドした人っている？
俺はライブラリ揃える根気がなくてヘタレたけど

40 名前：滝沢村の名無しさん 投稿日： 2008/04/15(火) 10:45:04 [ 2lfpdnj2 ]

>>39
はーい！俺１年の前期にやったけど特に懸念するほど難しくないけど？
てか、>>37, >>38 はなんか自慢にしか見えん。低俗だな

41 名前：滝沢村の名無しさん 投稿日： 2008/04/15(火) 14:24:19 [ 2lfpdnj2 ]

>>40
えー、僕が三年前に試したときは依存で断念したなぁ
とりあえず、今試してみたら、新しいtarが必要だったり
新しいGNU Makeが必要だったりしたので諦めた (諦めるの早すぎ？

学生の大半はソースからビルドするという事を難しいと感じていると思うし、
現にワークステーションに入れようとすると依存地獄で死んじゃうから
上のような簡易導入スクリプトはお手軽で良いと思うけどなぁ。

(WSにxfceを導入したのも今となっては良い思い出だ･･･)

42 名前：滝沢村の名無しさん 投稿日： 2008/04/15(火) 15:06:15 [ 2lfpdnj2 ]

>>38
書いてるうちに俺もそう思った。

>>40
はいはい自慢自慢
一応自分の調べた限りでは2.0のビルドにはgcc, cvs, zip, pkg-configのアップデート
と、freetypeとfontconfigのインストールが必要ぽくて面倒くさくなったんだけれども
なにか簡単な方法があるのか・・・？

43 名前：滝沢村の名無しさん 投稿日： 2008/04/15(火) 21:10:12 [ dDicF7DM ]

mozillaでいいじゃん

44 名前：滝沢村の名無しさん 投稿日： 2008/04/16(水) 10:27:36 [ nP2QBppg ]

>>38
firefox2用ができた。展開後のサイズは41M
容量が小さいしバージョンも上だし本家のサーバだしこっちの方がよさげ
実行は
$ bash install.sh

***********************************************
#! /usr/local/bin/bash

# install.sh
# firefox2.0 for solaris8, sparc (英語版)バイナリインストーラ

installDir=$HOME/local/
url=ftp://ftp.mozilla.org/pub/mozilla.org/firefox/releases/2.0.0.13/contrib/solaris_tarball/firefox-2.0.0.13.en-US.solaris8-sparc-gtk1.tar.bz2
base=`basename $url`

echo "install directory : " $installDir
echo "download url : " $url

if [ ! -e $installDir ]; then
echo create $installDir
mkdir $installDir
fi

echo "Downloading..."
wget --directory-prefix=/tmp $url
echo "Extracting..."
cd /tmp/ && bunzip2 $base && tar xf ` echo $base | sed 's/.bz2//' ` && cp -r firefox $installDir

echo "*******************"
echo " installed "
echo "*******************"

echo "Type '" $installDir"firefox/firefox'" to execute
echo Adding $installDir"firefox/" to '$PATH' is recommend.

.	らいか・デイズ 7 (まんがタイムコミックス) ／ むんこ