% settings
\def\MAPSETJP{hiragino-elcapitan-pron}
\def\MAPSETJPVAR{-04}% or (empty)
\def\MAPSETKO{unfonts}
\def\MAPSETSC{fandol}
\def\MAPSETTC{arphic}
\def\CLASS{jsarticle}
\def\CLASSOPTION{uplatex}
\def\USEOTF{y}% or n

\documentclass[a4paper,\CLASSOPTION]{\CLASS}
\if y\USEOTF\usepackage{otf}\fi
\pagestyle{empty}
\usepackage[english]{babel}
\usepackage[main=japanese]{pxbabel}

%% common
\def\BOX{\vrule height10pt}

%% japanese
\ifx\MAPSETJP\undefined\else
\ifx\ucs\undefined
  \AtBeginDvi{\special{pdf:mapfile ptex-\MAPSETJP\MAPSETJPVAR.map}}
  \if y\USEOTF
    \AtBeginDvi{\special{pdf:mapfile otf-\MAPSETJP.map}}
  \fi
\else
  \AtBeginDvi{\special{pdf:mapfile uptex-\MAPSETJP\MAPSETJPVAR.map}}
  \if y\USEOTF
    \AtBeginDvi{\special{pdf:mapfile otf-up-\MAPSETJP.map}}
  \fi
\fi
\long\def\TESTJP{%
  日本語Japanese\par
  \BOX 一一一「おはよう、ありがとう」。壱壱壱\BOX\par
  \BOX 二二二『ちょっと，（チェック．）しちゃった！』弐弐弐\BOX\par
  \BOX 三三三“髙島屋と葛飾区”参参参\BOX\par % <= quote
  \BOX 四四四‘（骨曜）’肆肆肆\BOX\par % <= quote
}
\fi

%% korean
\ifx\MAPSETKO\undefined\else
\ifx\ucs\undefined
  \if y\USEOTF
    \AtBeginDvi{\special{pdf:mapfile otf-ko-\MAPSETKO.map}}
  \fi
\else
  \AtBeginDvi{\special{pdf:mapfile uptex-ko-\MAPSETKO.map}}
\fi
\long\def\TESTKO{%
  한국어Korean\par
  \BOX 일일일“안녕, 감사합니다.”일일일\BOX\par
  \BOX 이이이『김치를 잘 먹는대요.』이이이\BOX\par
  \BOX 삼삼삼“내 호버크라프트는 장어로 가득 차 있어요.”삼삼삼\BOX\par
  \BOX 사사사‘（骨曜）’사사사\BOX\par
}
\fi

%% simplified chinese
\ifx\MAPSETSC\undefined\else
\ifx\ucs\undefined
  \if y\USEOTF
    \AtBeginDvi{\special{pdf:mapfile otf-sc-\MAPSETSC.map}}
  \fi
\else
  \AtBeginDvi{\special{pdf:mapfile uptex-sc-\MAPSETSC.map}}
\fi
\long\def\TESTSC{%
  简体中文Simplified Chinese\par
  \BOX 一壹一“早上好，谢谢你。”一壹一\BOX\par
  \BOX 二贰二「想吃好吃的中国菜。」二贰二\BOX\par
  \BOX 三叁三“我的气垫船充满了鳝鱼。”三叁三\BOX\par
  \BOX 四肆四‘（骨曜）’四肆四\BOX\par
}
\fi

%% traditional chinese
\ifx\MAPSETTC\undefined\else
\ifx\ucs\undefined
  \if y\USEOTF
    \AtBeginDvi{\special{pdf:mapfile otf-tc-\MAPSETTC.map}}
  \fi
\else
  \AtBeginDvi{\special{pdf:mapfile uptex-tc-\MAPSETTC.map}}
\fi
\long\def\TESTTC{%
  繁體中文Traditional Chinese\par
  \BOX 一壹一“早上好，謝謝你。”一壹一\BOX\par
  \BOX 二貳二「想吃好吃的中國菜。」二貳二\BOX\par
  \BOX 三叄三“我的氣墊船充滿了鱔魚。”三叄三\BOX\par
  \BOX 四肆四‘（骨曜）’四肆四\BOX\par
}
\fi

\begin{document}

% japanese
\ifx\MAPSETJP\undefined\else
\selectlanguage{japanese}
\mcfamily\TESTJP
\gtfamily\TESTJP
\fi

% korean
\ifx\MAPSETKO\undefined\else
\selectlanguage{korean}
\mcfamily\TESTKO
\gtfamily\TESTKO
\fi

% simplified chinese
\ifx\MAPSETSC\undefined\else
\selectlanguage{schinese}
\mcfamily\TESTSC
\gtfamily\TESTSC
\fi

% traditional chinese
\ifx\MAPSETTC\undefined\else
\selectlanguage{tchinese}
\mcfamily\TESTTC
\gtfamily\TESTTC
\fi

\end{document}