このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1268699491/855
# 『あるフォルダ中の moc*.cpp に一致するファイルの先頭に、「#include "stdafx.h"」 を挿入する』 
# いう処理を行うスクリプトがほしい 

'『あるフォルダ中の moc*.cpp に一致するファイルの先頭に、「#include "stdafx.h"」 を挿入する』 ' :-
        tmpnam(TMPNAM1),
        tmpnam(TMPNAM2),
        open(TMPNAM1,write,Output),
        write(Output,'#include "stdafx.h"\n'),
        close(Output),
        shs('ls -N moc*.cpp',L),
        (       member(F,L),
                concat_atom(['cat ',TMPNAM1,' ',F,' >'TMPNAM2',';mv ',TMPNAM2,' ',F],S),
                system(S),fail;
                concat_atom(['rm -f ',TMPNAM1],RM),
                system(RM)
        ).