Merge branch 'upstream'

demo/function_block.dem

@@ -1,7 +1,7 @@
 #
 # Demonstrate use of function block definitions to
 # implement the complex lngamma(z) function using a 15 term
-# Lancosz approximation valid on the half-plane with Real(z) > 0.
+# Lanczos approximation valid on the half-plane with Real(z) > 0.
 # To deal with the other half plane we use the reflection formula
 #       Gamma(1-z) = (pi*z) / ( Gamma(1+z) * sin(pi*z) )
 #
@@ -10,7 +10,7 @@
 # z = negative integer and adjustment of the imaginary component
 # by multiples of 2pi to produce a continuous 3D surface.
 #
-# After execution of this script, $Reflect(z), $Lancosz(z), and coef remain
+# After execution of this script, $Reflect(z), $Lanczos(z), and coef remain
 # visible globally.  The coefficient array could be declared local, but then
 # the routines defined here would fail to execute outside of this script.
 # That is, "load eval_function.dem" works either way,  but a subsequent
@@ -41,20 +41,20 @@ array coef[15] = [ \
        -0.26190838401581408670e-4, 0.36899182659531622704e-5 ]
 
 function $Reflect(z) << EOD
-    local w = $Lancosz(1.0 - z)
+    local w = $Lanczos(1.0 - z)
     local temp = log( sin(pi * z) )
     return log(pi) - (w + temp)
 EOD
 
-function $Lancosz(z) << EOD
+function $Lanczos(z) << EOD
     local Sum = coef[1] + sum [k=2:15] coef[k] / (z + k - 1)
     local temp = z + 671./128.
     temp = (z + 0.5) * log(temp) - temp
     temp = temp + log( sqrt(2*pi) * Sum/z )
     return temp
 EOD
 
-my_lngamma(z) = (z == 0) ? NaN : (real(z) < 0.5) ? $Reflect(z) : $Lancosz(z)
+my_lngamma(z) = (z == 0) ? NaN : (real(z) < 0.5) ? $Reflect(z) : $Lanczos(z)
 Gamma(z) = exp( my_lngamma(z) )
 
 show var $

docs/Makefile.am

@@ -197,36 +197,33 @@ doc2ms_CPPFLAGS = -DALL_TERM_DOC $(AM_CPPFLAGS)
 ### PDF documentation can inset figures using either tikz+wrapfig or pdf+picins
 pdf_figures: $(GNUPLOT_EXE) $(srcdir)/plotstyles.gnu
 	$(AM_V_at)GNUPLOT_LIB=$(top_srcdir)/demo $(GNUPLOT_EXE) $(srcdir)/plotstyles.gnu
-	  rm -f gpinsetfigure.tex ; \
-	  ( echo "\usepackage{graphicx}" > gpinsetfigure.tex ; \
-	    echo "\usepackage{picins}" >> gpinsetfigure.tex ; \
-	    echo "\newcommand{\gpinsetfigure}[1]{" >> gpinsetfigure.tex ; \
-	    echo "  \parpic[r][rt]{\includegraphics[width=3in,keepaspectratio]{#1}}" >> gpinsetfigure.tex ; \
-	    echo "}" >> gpinsetfigure.tex ; \
-	  ) ; \
+	rm -f gpinsetfigure.tex
+	printf '%s\n' '\usepackage{graphicx}' \
+		'\usepackage{picins}' \
+		'\newcommand{\gpinsetfigure}[1]{' \
+		'  \parpic[r][rt]{\includegraphics[width=3in,keepaspectratio]{#1}}' \
+		'}' > gpinsetfigure.tex
 	$(AM_V_GEN)touch $@
-	$(AM_V_GEN)touch figurestyle
+	$(AM_V_at)touch figurestyle
 
 tikz_figures: $(GNUPLOT_EXE) $(srcdir)/plotstyles.gnu
 	$(AM_V_at)GNUPLOT_LIB=$(top_srcdir)/demo GNUTERM=tikz $(GNUPLOT_EXE) $(srcdir)/plotstyles.gnu
-	  rm -f gpinsetfigure.tex ; \
-	  ( echo "\usepackage{gnuplot-lua-tikz}" > gpinsetfigure.tex ; \
-	    echo "\usepackage{wrapfig}" >> gpinsetfigure.tex ; \
-	    echo "\newcommand{\gpinsetfigure}[1]{" >> gpinsetfigure.tex ; \
-	    echo "    \begin{wrapfigure}[10]{r}{3.0in}" >> gpinsetfigure.tex ; \
-	    echo "    \vspace{-20pt} \input{#1} \vspace{-20pt}" >> gpinsetfigure.tex ; \
-	    echo "    \end{wrapfigure}" >> gpinsetfigure.tex ; \
-	    echo "}" >> gpinsetfigure.tex ; \
-	  ) ; \
+	rm -f gpinsetfigure.tex
+	printf '%s\n' '\usepackage{gnuplot-lua-tikz}' \
+		'\usepackage{wrapfig}' \
+		'\newcommand{\gpinsetfigure}[1]{' \
+		'    \begin{wrapfigure}[10]{r}{3.0in}' \
+		'    \vspace{-20pt} \input{#1} \vspace{-20pt}' \
+		'    \end{wrapfigure}' \
+		'}' > gpinsetfigure.tex
 	$(AM_V_GEN)touch $@
-	$(AM_V_GEN)touch figurestyle
+	$(AM_V_at)touch figurestyle
 
 no_figures:
-	  rm -f gpinsetfigure.tex ; \
-	  ( echo "\newcommand{\gpinsetfigure}[1]{}" > gpinsetfigure.tex ; \
-	  ) ; \
+	rm -f gpinsetfigure.tex
+	printf '%s\n' '\newcommand{\gpinsetfigure}[1]{}' > gpinsetfigure.tex
 	$(AM_V_GEN)touch $@
-	$(AM_V_GEN)touch figurestyle
+	$(AM_V_at)touch figurestyle
 
 gpinsetfigure.tex: no_figures
 	$(AM_V_GEN) touch $@
@@ -290,7 +287,7 @@ gnuplot.ps: gnuplot.dvi
 # Known limitations:
 # - The title page is not completely translated.
 # - Only the original English keywords appear in the index and hyperlinks.
-# - gnuplot-tikz-ja.help is converted to utf8 but not actually included
+# - gnuplot-tikz-ja.help can be converted to utf8 but not actually included
 #   in the resulting *.tex file because this happens too late in the
 #   build process
 allterm-ja.h: $(CORETERM) $(LUA_HELP)
@@ -299,7 +296,6 @@ allterm-ja.h: $(CORETERM) $(LUA_HELP)
 	cp doc2rtf.c ja/docs
 	cp -r $(top_srcdir)/term $(TJ)
 	-( cd ja ; patch -p0 < ../term-ja.diff )
-	iconv -f EUC-JP -t UTF-8 < $(TJ)lua/gnuplot-tikz-ja.help > $(TJ)lua/gnuplot-tikz-ja.utf8
 	$(AM_V_GEN) for e in `grep -E "^[ 	]*START_HELP" $(JATERM) |\
 	     LC_ALL=C sort -f -t':' -k2` ; do \
 	  f=`echo $$e |cut -d\: -f1` ; s=`echo $$e | cut -d\: -f2` ;\

docs/allterm-ja.h

@@ -939,7 +939,8 @@ START_HELP(block)
 "",
 " 書式:",
 "         set term block",
-"                 {dot | half | quadrants | sextants | braille | octants}",
+"                 {dot | half | quadrants | sextants | octants | braille |",
+"                   sextpua | octpua}",
 "                 {{no}enhanced}",
 "                 {size <x>, <y>}",
 #ifndef NO_DUMB_COLOR_SUPPORT
@@ -948,23 +949,27 @@ START_HELP(block)
 #endif
 "                 {[no]attributes}",
 "                 {numpoints | charpoints | gppoints}",
+"                 {[no]animate}",
 "",
 " `size` は、ターミナルサイズを文字セル単位で設定します。",
 "",
 " `dot`, `half`, `quadrants`, `sextants`, `braille` は、疑似グラフィック",
 " の生成に用いる文字セットの選択です。`dot` は単純なドットを、`half` は半",
 " ブロック文字群を使用します。`quadrants` は、縦横両方向に 2 倍の解像度を",
 " 生む四分ブロック文字群を使います。`sextants` は、2x3 の六分ブロック文字",
-" 群 (Block Sextant; U+1FB00-1FB3B) を使用します。`braille` は点字記号を",
-" 使い、これは 2x4 の疑似解像度を提供します。`octants` は KreativeKorp",
-"  PUA の 2x4 ブロック文字を使用しますが、これのうち有効なのは多分",
-" `FairfaxHD` と `KreativeSquare` フォントのみです。",
-"",
-" 2x3 の六分ブロック文字は、Unicode 13 にのみ含まれていることに注意してく",
-" ださい。よって、それをサポートするフォントは未だ限定的です。それは点字",
-" 記号についても同様です。利用可能なフォントには、例えば `unscii`,",
-" `IBM 3270`, `GNU Unifont`, `DejaVu Sans`, `FairfaxHD` などがあります。",
-" octants のサポートは試験段階です。",
+" 群を使用します。`braille` は点字記号を使い、これは 2x4 の疑似解像度を提",
+" 供します。`octants` は、提案された 2x4 ブロック文字を使います。`sectpua`",
+" と `octpua` は、KreativeKorp 私用領域 (PUA) 内の 2x3, 2x4 ブロック文字",
+" をそれぞれ使用しますが、そのうち利用可能なのは多分 `FairfaxHD` と",
+" `KreativeSquare` フォントのみです。",
+"",
+" 2x3 の六分ブロック文字 ('sextants') は、Unicode 13 にのみ含まれているこ",
+" とに注意してください。よって、それをサポートするフォントは未だ限定的で",
+" す。それは点字記号についても同様です。利用可能なフォントには、例えば",
+" `unscii`, `IBM 3270`, `GNU Unifont`, `DejaVu Sans`, `FairfaxHD` などが",
+" あります。2x4 ブロック文字 ('octants') は、まだ 2022 年に将来の Unicode",
+" 規格に入ることが決まった段階にすぎません。`FairfaxHD` フォントには含ま",
+" れています。",
 #ifndef NO_DUMB_COLOR_SUPPORT
 "",
 " オプション `ansi`, `ansi256`, `ansirgb` は、出力に色を表示させるための",
@@ -981,20 +986,26 @@ START_HELP(block)
 " る必要があります。これは、ひとつの文字セルで、すべてのピクセルの色の平",
 " 均を取ることで処理しています。`optimize` をつけると、この出力形式は背景",
 " 色と前景色の両方の設定によってそれを改善しようとします。この手法は、",
-" `half` モードでは完全に機能しますが、`quadrants`, `sextants`では難しさ",
-" が増していきます。また、`braille` では使用できません。",
+" `half` モードでは完全に機能しますが、`quadrants`, `sextants`, `octants`",
+" では難しさが増していきます。また、`braille` では使用できません。",
 #endif
 "",
 " `gppoints` は、グラフィックコマンドを使って点記号を描きます。端末の低解",
-" 像度性のため、`braille` モードではこれは大抵実用的です。多分エラーバー",
-" としては最も有用でしょう。",
+" 像度性のため、`braille` と `octant` モードではこれは大抵実用的です。多",
+" 分エラーバーとしては最も有用でしょう。",
 " `charpoints` は、代わりに Unicode 記号文字を使用します。これらも常にグ",
 " ラフィックの一番上に描かれることに注意してください。",
 " `numpoints` は上付き下付きの数字を使用し、垂直方向に 2 倍の解像度にしま",
 " す。しかし `sextants` に対しては、文字の枠の中心位置の点は、通常の数字",
 " で描く必要があります。`charpoints` か `numpoints` を使っている場合、ビ",
 " ットマップの解像度はそれでも異なり、線と記号は一般に正確には揃わないこ",
-" とに注意してください。"
+" とに注意してください。",
+"",
+" オプション `animate` は、各描画後に、カーソル位置をグラフの左上にリセッ",
+" トし、前のグラフを上にスクロールして消す代わりにスクリーンの同じ領域に",
+" 次のグラフを上書きするようにします。これは、同じ場所でのアニメーション",
+" を作成するためには有用でしょう。",
+""
 #endif /* JAPANESE_DOC */
 END_HELP(block)
 START_HELP(caca)
@@ -1148,7 +1159,7 @@ START_HELP(caca)
 " てください。これは、デフォルトの線種の黒を白にも変えます。",
 "",
 " 拡張文字列処理は、オプション `enhanced` を使うことで有効になります。以",
-" 下参照 `enhanced text`。",
+" 下参照: `enhanced text`。",
 "",
 " 出力ウィンドウのタイトルは、`libcaca` ドライバがサポートしていれば、オ",
 " プション `title` で変更できます。",
@@ -1212,7 +1223,7 @@ START_HELP(caca)
 "",
 " 明るい背景色は点滅することがあります。",
 "",
-" マウス操作では修飾キーはサポートしません。以下参照: `term caca`",
+" マウス操作では修飾キーはサポートしません。以下参照: `term caca`。",
 "",
 " 拡張文字列の回転、および透明化はサポートしていません。`size` オプション",
 " は、オンスクリーンディスプレイでは考慮されません。",
@@ -3245,8 +3256,8 @@ PS_COMMON_DOC1
 " (b) '[' で始まる文字列の場合は、位置の指定をする文字列 (t,b,l,r,c のう",
 " ち 2 つまで) が続き、次に ']{'、文字列本体、で最後に '}' としますが、",
 " この文字列は  LaTeX が LR-box として整形します。\\rule{}{} を使えばさ",
-" らに良い位置合わせが可能でしょう。以下も参照: ドライバ `pslatex` に関",
-" する説明。",
+" らに良い位置合わせが可能でしょう。ドライバ `pslatex` に関する説明も参",
+" 照。",
 " 複数行の見出しを作成するには \\shortstack を使用してください。例えば、",
 "    set ylabel '[r]{\\shortstack{first line \\\\ second line}}'",
 "",
@@ -4221,7 +4232,7 @@ START_HELP(hpgl)
 " Hewlett Packard 社製のペンプロッタ用の HPGL 出力を行ないます。",
 " HPGL グラフィックデータは、多くのソフトウェアで取り込むこともできます。",
 " HPGL コマンド言語は、その後のプリンタでは広く PCL コマンド言語に置き換",
-" えられました。以下参照: `set term pcl5`",
+" えられました。以下参照: `set term pcl5`。",
 "",
 " terminal オプションは、使用するペンの数と、終了時にプロッタにページを排",
 " 出 (eject) させるかどうかを制御します。デフォルトでは、6 つのペンを使",
@@ -4461,10 +4472,10 @@ START_HELP(latex)
 " 出力形式オプションを見るには、`set term tikz help` としてください。",
 "",
 " (4) `pict2e` 出力形式 (バージョン 5.4 で追加) は昔の gnuplot の古い出",
-" 力形式 `latex`, `emtex`, `eepic`, `tpic` に置き換わるものです。以下参",
-" 照: `pict2e`。",
+" 力形式 `latex`, `emtex`, `eepic`, `tpic` に置き換わるものです。以下",
+" 参照: `pict2e`。",
 "",
-" (5) その他は、以下参照: `context`, および古い出力形式 texdraw、mp",
+" (5) その他は、以下参照: `context`。および古い出力形式 texdraw、mp",
 " (metapost)。",
 "",
 " TeX 系出力形式に関する要約が以下にあります:",
@@ -5884,7 +5895,7 @@ PS_COMMON_DOC1
 "",
 " PostScript ファイルは編集可能で、一度 `gnuplot` でそれを作れば、それを",
 " 望むように修正することは自由に行なえます。そのためのヒントを得るには、",
-" 以下参照: `editing postscript` の節。",
+" 以下参照: `editing postscript`。",
 "2 PostScript の編集 (editing postscript)",
 "?commands set terminal postscript editing",
 "?set terminal postscript editing",
@@ -8814,9 +8825,9 @@ START_HELP(x11)
 "",
 "  <font> is the base name of the font (e.g. Times or Symbol)",
 "  <size> is the point size (defaults to 12 if not specified)",
-"  <s> is `i` if <slant>==\"italic\" `o` if <slant>==\"oblique\" `r` otherwise",
-"  <weight> is `medium` or `bold` if explicitly requested, otherwise `*`",
-"  <encoding> is set based on the current character set (see `set encoding`).",
+"  <s> is 'i' if <slant>==\"italic\" 'o' if <slant>==\"oblique\" 'r' otherwise",
+"  <weight> is 'medium' or 'bold' if explicitly requested, otherwise '*'",
+"  <encoding> is set based on the current character set.",
 " So `set term x11 font \"arial,15,italic\"` will be translated to",
 " -*-arial-*-i-*-*-15-*-*-*-*-*-iso8859-1 (assuming default encoding).",
 " The <size>, <slant>, and <weight> specifications are all optional.",

docs/doc2tex.c

@@ -472,14 +472,16 @@ puttex( char *str, FILE *file)
     static TBOOLEAN inquote = FALSE;
     int i;
 
-    while ((ch = *str++) != NUL) {
+    while ((ch = *str) != NUL) {
 
 	/* Japanese documentation trigger for cross-reference link */
 	if (!strncmp( str, "参照", strlen("参照") ))
 	    ja_see = TRUE;
 	if (!strncmp( str, "。", strlen("。") ))
 	    ja_see = FALSE;
 
+	str++;
+
 	switch (ch) {
 	case '#':
 	case '$':

docs/doc2texi.el

@@ -415,9 +415,6 @@ particular conversion chore."
     (search-forward "@node")
     ;; (beginning-of-line)
     ;; (insert "\n\n" d2t-main-menu "\n\n")
-    (search-forward "@node Bugs")	; `texinfo-all-menus-update' seems
-    (beginning-of-line)			; to miss this one.  how odd.
-    (insert "@menu\n* Bugs::\t\t\t\n@end menu\n\n")
     (goto-char (point-max))
     (insert d2t-texi-footer))
   (load-library "texinfo") ;; now do the hard stuff with texinfo-mode

docs/doc2web.c

@@ -529,8 +529,8 @@ process_line(char *line, FILE *b, FILE *d)
 		    fclose(b);
 
                     /* open new file */
-		    strcat(newfile,path);
-		    strncat(newfile,location,PATH_MAX-strlen(newfile)-6);
+		    strncpy(newfile, path, PATH_MAX-1);
+		    strncat(newfile, location, PATH_MAX-strlen(newfile)-6);
 		    strcat(newfile,".html");
                     if (!(b = fopen(newfile, "w"))) {
                         fprintf(stderr, "doc2web: Can't open %s for writing\n",