このディレクトリの索引
#  
#  連番のエロ画像をダウンロードするスクリプトください 
#  
#  
#  %%% バッチファイル anonymouget %%%
#  anonymousget2 $2 $3 | ftp -n $1
#  
#  %%% バッチファイル anonymousget2 %%%
#  echo user anonymous *****
#  echo binary
#  echo get $1 $2 | plustosp
#  echo close
#  echo quit
#  
#  %%% plustosp.c %%%
#  #include 
#  main() {
#     unsigned int c0,n;
#     n=0;
#     while((c0=getchar()) != EOF) {
#           if(c0=='+')
#              putchar(32);
#           else
#              putchar(c0);
#     }
#  }

連番のエロ画像をダウンロードする(_ftpサイト名,_ファイル名,_サフィックス,_連番桁数,_連番起点,_連番終点) :-
        連番ファイルをダウンロードする(_ftpサイト名,_ファイル名,_サフィックス,_連番桁数,_連番起点,_連番終点).


連番ファイルをダウンロードする(_ftpサイト名,_ファイル名,_サフィックス,_連番桁数,_連番起点,_連番終点) :-
        anonymousgetの準備,
        ダウンロード対象ファイルを得る(_ftpサイト名,_ファイル名,_サフィックス,_連番桁数,_連番起点,_連番終点,_連番,_ファイル名_2),
        anonymousget(_ftpサイト名,_ファイル名_2,_ファイル名_2),
        _連番終点 = _連番.

ダウンロード対象ファイルを得る(_ftpサイト名,_ファイル名,_サフィックス,_連番桁数,_連番起点,_連番終点,_連番,_ファイル名_2) :-
        between(_連番起点,_連番終点,_連番),
        整数から文字列(_連番桁数,_連番,_連番文字列),
        atomic_list_concat([_ファイル名,_連番文字列,'.',_サフィックス],_ファイル名_2).


anonymousgetの準備 :-
        バッチファイルanonymousgetの生成,
        コマンドデータanonymousget2の生成,
        実行プログラムplustospの生成.

バッチファイルanonymousgetの生成 :-
        open(anonymousget,write,Outstream),
        write(Outstream,'anonymousget2 $2 $3 | ftp -n $1\n'),
        close(Outstream),
        shell('chmod 777 anonymousget'),!.

コマンドデータanonymousget2の生成 :-
        open(anonymousget2,write,Outstream),
        write(Outstream,'echo user anonymous *****\necho binary\necho get $1 $2 | plustosp\necho close\necho quit\n'),
        close(Outstream).

実行プログラムplustospの生成 :-
        open('plustosp.c',write,Outstream),
        write(Outstream,'#include \nmain() {\n   unsigned int c0,n;\n   n=0;\n   while((c0=getchar()) != EOF) {\n         if(c0==\'+\')\n            putchar(32);\n          else\n            putchar(c0);\n   }\n}\n'),
        close(Outstream),
        shell('cc -o plustosp plustosp.c';chmod 777 plustosp),!.

anonymousget(_ftpサイト名,_入力ファイル名,_出力ファイル名) :-
        atomic_list_concat(['anonymousget ',_ftpサイト名,' "',_入力ファイル名,'" "',_出力ファイル名,'"'],S),
        shell(S),!.

整数から文字列(_文字桁,_整数,_数値文字列) :-
        length(L,_文字桁),
        number_chars(_整数,Chars),
        append(L0,Chars,L),
        all(L0,'0').

all([],_).
all([A|R],A) :-
        all(R,A).