C - ファイル入出力((数値リストのファイルを読み込み、条件によって2つのファイルに書き出す(ctype.hヘッダ, isdigit関数))

C実践プログラミング 第3版
(オライリージャパン)
Steve Oualline (著)
望月 康司 (監訳) (翻訳) 谷口 功 (翻訳)

開発環境

• OS X Mavericks - Apple(OS)
• Emacs (CUI)、BBEdit - Bare Bones Software, Inc. (GUI) (Text Editor)
• C (プログラミング言語)
• Clang (コンパイラ)

C実践プログラミング 第3版 (Steve Oualline (著)、 望月 康司 (監訳) (翻訳)、谷口 功 (翻訳)、オライリー・ジャパン)のⅡ部(単純なプログラミング)の14章(ファイル入出力)、14.1(ファイル関数)、14.2(変換ルーチン)、14.3(バイナリファイルとASCIIファイル)、14.4(行終端にまつわる謎)、14.5(バイナリI/O)、14.6(バッファリングの問題)、14.7(バッファリングを行わないI/O)、14.8(ファイル形式の設計)、14.10(プログラミング実習)、実習 14-3を解いてみる。

その他参考書籍

• プログラミング言語C 第2版 ANSI規格準拠 (B.W. カーニハン D.M. リッチー (著)、 石田 晴久 (翻訳)、共立出版)
• プログラミング言語Cアンサー・ブック 第2版 (クロビス・L．トンド、スコット・E．ギンペル(著)、矢吹 道郎(翻訳))

実習14-3.

コード

sample.c

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>

int main(int argc, char *argv[])
{
    char ch;
    int n;
    int flag;
    char pm;
    char filename1[100];
    char filename2[100];
    FILE *in_file;
    FILE *out_file1;
    FILE *out_file2;
    
    if (argc != 2){
        fprintf(stderr, "Error: Wrong number of arguments\n");
        fprintf(stderr, "Usage is: sample <filename>\n");
        exit (8);
    }
    in_file = fopen(argv[1], "r");
    if (in_file == NULL){
        fprintf(stderr, "Cannot open %s\n", argv[1]);
        exit (8);
    }
    strcpy(filename1, argv[1]);
    out_file1 = fopen(strcat(filename1, "1.out"), "w");
    if (out_file1 == NULL){
        fprintf(stderr, "Cannot open %s\n", strcat(filename1, "1.out"));
        exit (8);
    }
    strcpy(filename2, argv[1]);
    out_file2 = fopen(strcat(filename2, "2.out"), "w");
    if (out_file2 == NULL){
        fprintf(stderr, "Cannot open %s\n", strcat(filename2, "2.out"));
        exit (8);
    }
    
    n = 0;
    pm = 1;
    flag = 0;
    while (1){
        ch = fgetc(in_file);
        if (ch == EOF){
            if (flag == 1){
                if (n % 3 == 0){
                    if (pm == 1){
                        fprintf(out_file1, "-%d", n);
                    } else {
                        fprintf(out_file1, "%d", n);
                    }
                } else {
                    if (pm == 1){
                        fprintf(out_file2, "-%d", n);
                    } else {
                        fprintf(out_file2, "%d", n);
                    }
                }
            }
            break;
        }
        if (ch == '-'){
            pm = -1;
        } else if (isdigit(ch)){
            n = ch - '0' + 10 * n;
            flag = 1;
        } else {
            if (flag == 1){
                if (n % 3 == 0){
                    fprintf(out_file1, "%d ", pm * n);
                } else {
                    fprintf(out_file2, "%d ", pm * n);
                }
                n = 0;
                flag = 0;
                pm = 1;
            }
        }
    }
    fputc('\n', out_file1);
    fputc('\n', out_file2);
    fclose(in_file);
    fclose(out_file1);
    fclose(out_file2);
    return (0);
}

makefile

CC=cc
CFLAGS=-g

sample: sample.c
 $(CC) $(CFLAGS) -o sample sample.c

clean:
 rm -f sample

入出力結果(Terminal)

$ cat numbers
1 2 3 4 5 6 7 8 9 10
11 12 13 14 15 16 17 18 19 20
-1 -2 -3 -4 -5 -6 -7 -8 -9 -10
-11 -12 -13 -14 -15 -16 -17 -18 -19 -20
$ make
cc -g -o sample sample.c
$ ./sample
Error: Wrong number of arguments
Usage is: sample <filename>
$ ./sample numbers
$ cat numbers1.out
3 6 9 12 15 18 -3 -6 -9 -12 -15 -18 
$ cat numbers2.out
1 2 4 5 7 8 10 11 13 14 16 17 19 20 -1 -2 -4 -5 -7 -8 -10 -11 -13 -14 -16 -17 -19 -20 
$