#!/usr/bin/perl # # dcnote-mkmf : # # 原始資源の種類に合わせてデフォルト Makefile, Mkinclude を # 作業ディレクトリに用意する. # # ●Usage : dcnote-mkmf [tex|gif|htm] # # ●作成されるファイル # # hogehoge/ : 作業ディレクトリ. # Makefile : # Mkinclude : # # 履歴 1999/07/20 小高正嗣 # 1999/11/20 竹広真一 # 1999/12/20 杉山耕一朗; 注釈の追加 # ###### 変数設定 # Makefile や Mkindex の雛型の置場を指定 #$DCNOTELIBDIR ="/usr/lib/dcnote" ; $DCNOTELIBDIR ="/GFD_Dennou_Club/dc-arch/riron/tools/lib" ; $MAKEFILE ="Makefile" ; $MKINCLUDE ="Mkinclude" ; $SRC_MAKEFILE ="$DCNOTELIBDIR/$MAKEFILE" ; ##$SRC_MKINCLUDE ="$DCNOTELIBDIR/$MKINCLUDE" ; ###### option 解析 # @ARGV にはコマンド行引数が保持されている # 資源に合った die "Usage: dcnote-mkmf type_of_src(tex|gif|htm) .\n" if @ARGV == 0 ; if ( $ARGV[0] =~ /^tex/ ) { $SRC_MKINCLUDE ="$DCNOTELIBDIR/Mkinclude.tex" ; print "Mkinclude for tex will be copied.\n" ; } elsif ( $ARGV[0] =~ /^gif/ ) { $SRC_MKINCLUDE ="$DCNOTELIBDIR/Mkinclude.gif" ; print "Mkinclude for gif will be copied.\n" ; } elsif ( $ARGV[0] =~ /^htm/ ) { $SRC_MKINCLUDE ="$DCNOTELIBDIR/Mkinclude.htm" ; print "Mkinclude for htm will be copied.\n" ; } else { print "error: unknown type of src. \n" ; exit 1; } ###### Makefile のコピー if ( -f $MAKEFILE ) { print "Warning; $MAKEFILE already exists. Overwright? [y/n]\n" ; $answer = ; if ($answer =~ m/y/) { print "make Makefile\n" ; system ("cp $SRC_MAKEFILE $MAKEFILE") ; } } else { print "make Makefile\n" ; system ("cp $SRC_MAKEFILE $MAKEFILE") ; } ###### Mkinclude のコピー if ( -f $MKINCLUDE ) { print "Warning; $MKINCLUDE already exists. Overwright? [y/n]\n" ; $answer = ; if ($answer =~ m/y/) { print "make Mkinclude\n" ; system ("cp $SRC_MKINCLUDE $MKINCLUDE") ; } } else { print "make Mkinclude\n" ; system ("cp $SRC_MKINCLUDE $MKINCLUDE") ; } exit 0;