/*
  Matsu2
  	訪問調査依頼一覧出力プログラム
	original written by GNU-awk

  Last Change: 2019-05-17 金 15:39:21.
*/
package main

/*
#cgo LDFLAGS: -L. -lxdwapi -static
#include <stdio.h>
#include <string.h>

#include <windows.h>
#include <xdw_api.h>

char* xdw_x2t(const char* file) {
	char in_path[_MAX_PATH];
    _fullpath(in_path, file, _MAX_PATH);

	XDW_DOCUMENT_HANDLE h = NULL; // 文書ハンドルを開く
	XDW_OPEN_MODE_EX mode = {sizeof(XDW_OPEN_MODE_EX), XDW_OPEN_READONLY, XDW_AUTH_NODIALOGUE};
	if (XDW_OpenDocumentHandle(in_path, &h, (XDW_OPEN_MODE*)&mode)) {
		printf("Error: cannot open %s\n", file);
		return NULL;
	}

	XDW_DOCUMENT_INFO info = {sizeof(XDW_DOCUMENT_INFO), 0, 0, 0}; // 総ページ数を得る
	XDW_GetDocumentInformation(h, &info);
    int nPage = info.nPages;

    // メイン処理
    char *lpszvalue, *all_lpszvalue;
	long datasize[9999];
    for (int i=1; i<=nPage; i++) {
		datasize[i] = XDW_GetPageTextToMemory(h, i, NULL, 0, NULL);
		datasize[0] += datasize[i];
    }
	datasize[0] += nPage - 1;	// for "\n"
	all_lpszvalue = (char*)malloc(sizeof(char)*datasize[0]);
	all_lpszvalue[0] = '\0';
    for (int i=1; i<=nPage; i++) {
		if (i<nPage) datasize[i]++;	// for "\n"
        lpszvalue = (char*)malloc(sizeof(char)*(datasize[i]));
        XDW_GetPageTextToMemory(h, i, lpszvalue, datasize[i], NULL);
		strcat(all_lpszvalue, lpszvalue);
		if (i<nPage) strcat(all_lpszvalue, "\n");
        free(lpszvalue);
    }

	XDW_CloseDocumentHandle(h, NULL); // 文書ハンドルを閉じる
	return all_lpszvalue;
}
*/
import "C"
import (
	"bufio"
    "fmt"
	"flag"
	"log"
	"os"
	"regexp"
	"strings"

	"golang.org/x/text/encoding/japanese"
	"golang.org/x/text/transform"
)

func main() {
	infile   := flag.String("i", "KBPC116G.xdw", "input file")
	outfile  := flag.String("o", "-",            "output file")
	utf8     := flag.Bool("w",  false, "write utf8")
	verbose  := flag.Bool("v",  false, "verbose")
	vverbose := flag.Bool("vv", false, "very verbose")
	version  := flag.Bool("V",  false, "print version")
	flag.Parse()

	if *version {
		fmt.Println("matsu2 - v1.0")
		os.Exit(0)
	}
	if *vverbose {
		*verbose = true
	}

	s := C.GoString(C.xdw_x2t(C.CString(*infile)))
	r := strings.NewReader(s)
	tr := transform.NewReader(r, japanese.ShiftJIS.NewDecoder())

	f := os.Stdout
	if *outfile != "-" {
		var err error
		f, err = os.Create(*outfile)
		if err != nil {
			log.Fatal(err)
		}
		defer f.Close()
	}

	if *verbose {
		fmt.Fprintln(os.Stderr, "input:  " + *infile)
		fmt.Fprintln(os.Stderr, "output: " + *outfile)
	}

	var rehhsno = regexp.MustCompile(`0[1238]\d{8}`)
	var redate  = regexp.MustCompile(`((明治)|(大正)|(昭和)|(平成)|(令和)).{1,2}年.\d月.\d日`)
	var recity  = regexp.MustCompile(`(((平成)|(令和)).{1,2}年.\d月.\d日){2}...`)
	var rename  = regexp.MustCompile(`0[1238]\d{8}.*((平成)|(令和)).{1,2}年.\d月.\d日`)
	var rezensp = regexp.MustCompile(`　{2,}`)

	w := bufio.NewWriter(f)
	if !*utf8 {
		tw := transform.NewWriter(f, japanese.ShiftJIS.NewEncoder())
		w = bufio.NewWriter(tw)
	}
	header := []string{"申請日", "被保番", "氏名", "生年月日",  "市町村", "-", "-", "-", "依頼日"}
	fmt.Fprintln(w, strings.Join(header, ","))

	var p, q int
	var req string
	buf := bufio.NewScanner(tr)
	for buf.Scan() {
		str := strings.TrimRight(buf.Text(), " ")
		if strings.HasSuffix(str, "依頼書") {
			req = redate.FindString(str)
			req = strings.Replace(req, " ", "", -1)
			if *verbose {
				p++
				fmt.Fprintf(os.Stderr, "req: %d\n", p)
			}
		} else {
			row := strings.Split(str, "〒")
			for i := 0; i < len(row) - 1; i++ {
				var app, hhsno, name, birth, city, empty string

				d := redate.FindAllString(row[i], -1)
				if len(d) > 0 {
					birth = strings.Replace(d[0], " ", "", -1)
					app   = strings.Replace(d[1], " ", "", -1)
				}
				if rehhsno.MatchString(row[i]) {
					hhsno = "=\"" + rehhsno.FindString(row[i]) + "\""
				}
				if rename.MatchString(row[i]) {
					n := []rune(rename.FindString(row[i]))
					kana := string(n[10:36])
					kana = strings.Trim(kana, " ")
					name = string(n[37:55])
					name = strings.Trim(name, " ")
					name = rezensp.ReplaceAllString(name, "")
					name += "(" + kana + ")"
				}
				if recity.MatchString(row[i]) {
					c := []rune(recity.FindString(row[i]))
					city = string(c[len(c)-3:])
					city = strings.Replace(city, "仙北郡", "美郷町", -1)
				}

				if hhsno != "" {
					fields := []string{app, hhsno, name, birth, city, empty, empty, empty, req}
					fmt.Fprintln(w, strings.Join(fields, ","))
					if *vverbose {
						fmt.Fprintf(os.Stderr, " %02d: %s\n", i + 1, hhsno[2:12])
					}
					q++
				}
			}
		}
	}

	if *verbose {
		fmt.Fprintf(os.Stderr, "finish [%d customer]\n", q)
	}
	w.Flush()
}