... 'cl)) ;;; Variables (defconst cal-china-x-celestial-stem ["甲" "乙" "丙" "丁" "戊" "已" "庚" "辛" "壬" "癸"]) (defconst cal-china-x-...lunar-day string))) (when (and (> (length cn-years) 12) (not (zerop num... "%%%%%%dd%%%%s" calendar-day-digit-width) day (make-string (- calendar-column-width ...

...'cl)) ;;; Variables (defconst cal-china-x-celestial-stem ["甲" "乙" "丙" "丁" "戊" "已" "庚" "辛" "壬" "癸"]) (defconst cal-china-...lunar-day string))) (when (and (> (length cn-years) 12) (not (zerop ...cons date (aref cal-china-x-solar-term-name i)) into...multibyte-characters (truncate-string-to-width string 2) (substring string 0...

...Ergonomic ambidextrous design Ultra-large non-slip buttons Gold-plated USB connector Seven-foot, lightweight, non-tangle cord Approximate size: 130mm (length) x 66mm (width) x 41mm (height) oèuvan, original pakovanje, garancija kori¹ten cca 6 mj crveno osvijetljenje http://www.razerzone.com/index.php?...&products_id...

.../calshing/chinesecalendar.htm (defconst cal-china-x-solar-term-name ["小寒" "大寒" "立春" "雨水" "惊蛰" "春分" "清明" "谷雨" "立夏" "小满" "芒种" "夏至" "小暑" "大暑" "立秋" "处暑" "白露" "秋分" "寒露" "霜降" "立冬" "小雪" "大雪" "冬至"] "24 solar terms... (and num (= num 0)) (when (> (length cn-years) 12) (let ((run (car...-multibyte-characters (truncate-string-to-width string 2) (substring string 0 2...

.../calshing/chinesecalendar.htm (defconst cal-china-x-solar-term-name ["小寒" "大寒" "立春" "雨水" "惊蛰" "春分" "清明" "谷雨" "立夏" "小满" "芒种" "夏至" "小暑" "大暑" "立秋" "处暑" "白露" "秋分" "寒露" "霜降" "立冬" "小雪" "大雪" "冬至"] "24 solar terms... (and num (= num 0)) (when (> (length cn-years) 12) (let ((run (car...-multibyte-characters (truncate-string-to-width string 2) (substring string 0 2...

.../calshing/chinesecalendar.htm (defconst cal-china-x-solar-term-name ["小寒" "大寒" "立春" "雨水" "惊蛰" "春分" "清明" "谷雨" "立夏" "小满" "芒种" "夏至" "小暑" "大暑" "立秋" "处暑" "白露" "秋分" "寒露" "霜降" "立冬" "小雪" "大雪" "冬至"] "24 solar terms... (and num (= num 0)) (when (> (length cn-years) 12) (let ((run (car...-multibyte-characters (truncate-string-to-width string 2) (substring string 0 2...

...'bw-interactive) ;; (global-set-key [(control x) ?+] 'bw-start-resize-mode) ;; ;; Typing "C... window siblings the same height or width." (interactive) (balance-windows (selected-window)) ...window-resize-mode'." (interactive) (if (= 1 (length (window-list))) (message "There is only...-message-string err))) ))) (when (= 1 (length (window-list))) (bw-exit-resize-...

... XCHAR xc in address units. X-SIZE ( xc_addr u1 -- u2 ) XCHAR ... only the xcaddr is needed? X-SIZE can be at most ... to the description. I use : x/string  ( xcaddr u -- xcaddr1 u1 ... confuse an UTF-8 terminal. X-WIDTH ( xc_addr u -- n ) XCHAR ... I have also xc-length that counts the number of xchars ... only xstring- and +xstring (better +x/string) really make sense. -- Bernd...

... <none@non.net> a écrit : write(*,'(G D A)') x, a, s With gfortran: At line 13 of file essai.f90 Fortran runtime error: Nonnegative width required in format (G D A) Certainly not ... use list directed formating and be even simpler. I had forgotten that the zero-length field widths for other than integer forms and character data are an extension (although I ...

...be used, several of them variable-width. Most prominent representant is UTF-8... without the last (garbled) XCHAR. X-WIDTH ( xc_addr u -- n ) XCHAR ...(UCS codepage, byte-oriented variable length encoding) The following words behave ... swap - /string ; \ skip trailing garbage : x-size ( xcaddr u1 -- u2 ) drop ... end2 ) 2dup dup over over - x-size + = IF \ last character ok ...