Skip to content

Instantly share code, notes, and snippets.

@shawwn shawwn/ai.el
Created Jul 31, 2019

Embed
What would you like to do?
WARNING: Logging before flag parsing goes to stderr.
W0730 21:03:55.281007 139779186857856 deprecation_wrapper.py:119] From /content/drive/My Drive/ml/2019-07-30/gpt-2-elisp-untab/src/model.py:147: The name tf.AUTO_REUSE is deprecated. Please use tf.compat.v1.AUTO_REUSE instead.
W0730 21:03:57.490804 139779186857856 deprecation_wrapper.py:119] From /content/drive/My Drive/ml/2019-07-30/gpt-2-elisp-untab/src/memory_saving_gradients.py:13: The name tf.GraphKeys is deprecated. Please use tf.compat.v1.GraphKeys instead.
W0730 21:04:02.302061 139779186857856 deprecation_wrapper.py:119] From ./train.py:87: The name tf.ConfigProto is deprecated. Please use tf.compat.v1.ConfigProto instead.
W0730 21:04:02.302422 139779186857856 deprecation_wrapper.py:119] From ./train.py:90: The name tf.Session is deprecated. Please use tf.compat.v1.Session instead.
2019-07-30 21:04:02.319198: I tensorflow/core/platform/profile_utils/cpu_utils.cc:94] CPU Frequency: 2200000000 Hz
2019-07-30 21:04:02.321230: I tensorflow/compiler/xla/service/service.cc:168] XLA service 0x2240f40 executing computations on platform Host. Devices:
2019-07-30 21:04:02.321265: I tensorflow/compiler/xla/service/service.cc:175] StreamExecutor device (0): <undefined>, <undefined>
2019-07-30 21:04:02.324886: I tensorflow/stream_executor/platform/default/dso_loader.cc:42] Successfully opened dynamic library libcuda.so.1
2019-07-30 21:04:02.548402: I tensorflow/stream_executor/cuda/cuda_gpu_executor.cc:1005] successful NUMA node read from SysFS had negative value (-1), but there must be at least one NUMA node, so returning NUMA node zero
2019-07-30 21:04:02.548907: I tensorflow/compiler/xla/service/service.cc:168] XLA service 0x223fc00 executing computations on platform CUDA. Devices:
2019-07-30 21:04:02.548934: I tensorflow/compiler/xla/service/service.cc:175] StreamExecutor device (0): Tesla T4, Compute Capability 7.5
2019-07-30 21:04:02.549131: I tensorflow/stream_executor/cuda/cuda_gpu_executor.cc:1005] successful NUMA node read from SysFS had negative value (-1), but there must be at least one NUMA node, so returning NUMA node zero
2019-07-30 21:04:02.549491: I tensorflow/core/common_runtime/gpu/gpu_device.cc:1640] Found device 0 with properties:
name: Tesla T4 major: 7 minor: 5 memoryClockRate(GHz): 1.59
pciBusID: 0000:00:04.0
2019-07-30 21:04:02.553246: I tensorflow/stream_executor/platform/default/dso_loader.cc:42] Successfully opened dynamic library libcudart.so.10.0
2019-07-30 21:04:02.683040: I tensorflow/stream_executor/platform/default/dso_loader.cc:42] Successfully opened dynamic library libcublas.so.10.0
2019-07-30 21:04:02.743339: I tensorflow/stream_executor/platform/default/dso_loader.cc:42] Successfully opened dynamic library libcufft.so.10.0
2019-07-30 21:04:02.763851: I tensorflow/stream_executor/platform/default/dso_loader.cc:42] Successfully opened dynamic library libcurand.so.10.0
2019-07-30 21:04:02.930609: I tensorflow/stream_executor/platform/default/dso_loader.cc:42] Successfully opened dynamic library libcusolver.so.10.0
2019-07-30 21:04:03.020950: I tensorflow/stream_executor/platform/default/dso_loader.cc:42] Successfully opened dynamic library libcusparse.so.10.0
2019-07-30 21:04:03.347626: I tensorflow/stream_executor/platform/default/dso_loader.cc:42] Successfully opened dynamic library libcudnn.so.7
2019-07-30 21:04:03.347850: I tensorflow/stream_executor/cuda/cuda_gpu_executor.cc:1005] successful NUMA node read from SysFS had negative value (-1), but there must be at least one NUMA node, so returning NUMA node zero
2019-07-30 21:04:03.348336: I tensorflow/stream_executor/cuda/cuda_gpu_executor.cc:1005] successful NUMA node read from SysFS had negative value (-1), but there must be at least one NUMA node, so returning NUMA node zero
2019-07-30 21:04:03.348663: I tensorflow/core/common_runtime/gpu/gpu_device.cc:1763] Adding visible gpu devices: 0
2019-07-30 21:04:03.353854: I tensorflow/stream_executor/platform/default/dso_loader.cc:42] Successfully opened dynamic library libcudart.so.10.0
2019-07-30 21:04:03.355800: I tensorflow/core/common_runtime/gpu/gpu_device.cc:1181] Device interconnect StreamExecutor with strength 1 edge matrix:
2019-07-30 21:04:03.355834: I tensorflow/core/common_runtime/gpu/gpu_device.cc:1187] 0
2019-07-30 21:04:03.355846: I tensorflow/core/common_runtime/gpu/gpu_device.cc:1200] 0: N
2019-07-30 21:04:03.361883: I tensorflow/stream_executor/cuda/cuda_gpu_executor.cc:1005] successful NUMA node read from SysFS had negative value (-1), but there must be at least one NUMA node, so returning NUMA node zero
2019-07-30 21:04:03.362293: I tensorflow/stream_executor/cuda/cuda_gpu_executor.cc:1005] successful NUMA node read from SysFS had negative value (-1), but there must be at least one NUMA node, so returning NUMA node zero
2019-07-30 21:04:03.362650: I tensorflow/core/common_runtime/gpu/gpu_device.cc:1326] Created TensorFlow device (/job:localhost/replica:0/task:0/device:GPU:0 with 14202 MB memory) -> physical GPU (device: 0, name: Tesla T4, pci bus id: 0000:00:04.0, compute capability: 7.5)
W0730 21:04:03.363384 139779186857856 deprecation_wrapper.py:119] From ./train.py:91: The name tf.placeholder is deprecated. Please use tf.compat.v1.placeholder instead.
W0730 21:04:08.228200 139779186857856 deprecation.py:323] From /content/drive/My Drive/ml/2019-07-30/gpt-2-elisp-untab/src/sample.py:65: to_float (from tensorflow.python.ops.math_ops) is deprecated and will be removed in a future version.
Instructions for updating:
Use `tf.cast` instead.
W0730 21:04:08.241265 139779186857856 deprecation.py:323] From /content/drive/My Drive/ml/2019-07-30/gpt-2-elisp-untab/src/sample.py:16: add_dispatch_support.<locals>.wrapper (from tensorflow.python.ops.array_ops) is deprecated and will be removed in a future version.
Instructions for updating:
Use tf.where in 2.0, which has the same broadcast rule as np.where
W0730 21:04:08.242809 139779186857856 deprecation.py:323] From /content/drive/My Drive/ml/2019-07-30/gpt-2-elisp-untab/src/sample.py:70: multinomial (from tensorflow.python.ops.random_ops) is deprecated and will be removed in a future version.
Instructions for updating:
Use `tf.random.categorical` instead.
W0730 21:04:08.252497 139779186857856 deprecation_wrapper.py:119] From ./train.py:120: The name tf.train.AdamOptimizer is deprecated. Please use tf.compat.v1.train.AdamOptimizer instead.
W0730 21:04:13.685754 139779186857856 deprecation_wrapper.py:119] From ./train.py:143: The name tf.summary.scalar is deprecated. Please use tf.compat.v1.summary.scalar instead.
W0730 21:04:13.688318 139779186857856 deprecation_wrapper.py:119] From ./train.py:146: The name tf.summary.merge is deprecated. Please use tf.compat.v1.summary.merge instead.
W0730 21:04:13.689069 139779186857856 deprecation_wrapper.py:119] From ./train.py:148: The name tf.summary.FileWriter is deprecated. Please use tf.compat.v1.summary.FileWriter instead.
W0730 21:04:13.690085 139779186857856 deprecation_wrapper.py:119] From ./train.py:151: The name tf.train.Saver is deprecated. Please use tf.compat.v1.train.Saver instead.
Loading checkpoint checkpoint/run1/model-8000
W0730 21:04:20.187521 139779186857856 deprecation.py:323] From /usr/local/lib/python3.6/dist-packages/tensorflow/python/training/saver.py:1276: checkpoint_exists (from tensorflow.python.training.checkpoint_management) is deprecated and will be removed in a future version.
Instructions for updating:
Use standard file APIs to check for files with this prefix.
Loading dataset...
100% 1/1 [00:01<00:00, 1.91s/it]
dataset has 28687664 tokens
Training...
2019-07-30 21:04:33.099080: W tensorflow/compiler/jit/mark_for_compilation_pass.cc:1412] (One-time warning): Not using XLA:CPU for cluster because envvar TF_XLA_FLAGS=--tf_xla_cpu_global_jit was not set. If you want XLA:CPU, either set that envvar, or use experimental_jit_scope to enable XLA:CPU. To confirm that XLA is active, pass --vmodule=xla_compilation_cache=1 (as a proper command-line flag, not via TF_XLA_FLAGS) or set the envvar XLA_FLAGS=--xla_hlo_profile.
2019-07-30 21:04:33.331786: I tensorflow/stream_executor/platform/default/dso_loader.cc:42] Successfully opened dynamic library libcublas.so.10.0
[8001 | 5.45] loss=1.26 avg=1.26
[8002 | 6.30] loss=1.09 avg=1.17
[8003 | 7.14] loss=1.19 avg=1.18
[8004 | 7.99] loss=0.98 avg=1.13
[8005 | 8.83] loss=1.35 avg=1.17
[8006 | 9.69] loss=1.10 avg=1.16
[8007 | 10.54] loss=1.21 avg=1.17
[8008 | 11.39] loss=0.70 avg=1.11
[8009 | 12.24] loss=1.17 avg=1.11
[8010 | 13.09] loss=0.88 avg=1.09
[8011 | 13.94] loss=1.65 avg=1.14
[8012 | 14.79] loss=1.12 avg=1.14
[8013 | 15.65] loss=1.06 avg=1.14
[8014 | 16.51] loss=0.63 avg=1.10
[8015 | 17.37] loss=0.79 avg=1.08
[8016 | 18.23] loss=0.81 avg=1.06
[8017 | 19.09] loss=1.15 avg=1.06
[8018 | 19.94] loss=1.28 avg=1.08
[8019 | 20.80] loss=1.11 avg=1.08
[8020 | 21.67] loss=1.72 avg=1.11
[8021 | 22.53] loss=0.84 avg=1.10
[8022 | 23.39] loss=1.17 avg=1.10
[8023 | 24.25] loss=1.24 avg=1.11
[8024 | 25.12] loss=1.39 avg=1.12
[8025 | 25.99] loss=0.97 avg=1.12
[8026 | 26.86] loss=1.37 avg=1.13
[8027 | 27.73] loss=1.34 avg=1.14
[8028 | 28.60] loss=1.21 avg=1.14
[8029 | 29.46] loss=1.28 avg=1.14
[8030 | 30.34] loss=0.97 avg=1.14
[8031 | 31.21] loss=1.01 avg=1.13
[8032 | 32.08] loss=1.55 avg=1.15
[8033 | 32.96] loss=0.97 avg=1.14
[8034 | 33.83] loss=1.32 avg=1.15
[8035 | 34.71] loss=1.14 avg=1.15
[8036 | 35.59] loss=1.34 avg=1.15
[8037 | 36.47] loss=1.17 avg=1.15
[8038 | 37.35] loss=1.37 avg=1.16
[8039 | 38.23] loss=0.95 avg=1.15
[8040 | 39.11] loss=1.00 avg=1.15
[8041 | 39.99] loss=1.03 avg=1.15
[8042 | 40.87] loss=0.95 avg=1.14
[8043 | 41.75] loss=1.16 avg=1.14
[8044 | 42.64] loss=1.18 avg=1.14
[8045 | 43.52] loss=0.85 avg=1.13
[8046 | 44.42] loss=1.15 avg=1.14
[8047 | 45.31] loss=0.94 avg=1.13
[8048 | 46.21] loss=1.30 avg=1.13
[8049 | 47.10] loss=1.17 avg=1.14
[8050 | 48.00] loss=0.96 avg=1.13
[8051 | 48.89] loss=1.12 avg=1.13
[8052 | 49.79] loss=1.50 avg=1.14
[8053 | 50.68] loss=1.80 avg=1.16
[8054 | 51.58] loss=1.23 avg=1.16
[8055 | 52.48] loss=1.28 avg=1.16
[8056 | 53.38] loss=1.56 avg=1.17
[8057 | 54.28] loss=1.28 avg=1.17
[8058 | 55.18] loss=1.19 avg=1.17
[8059 | 56.08] loss=1.11 avg=1.17
[8060 | 56.99] loss=0.80 avg=1.16
[8061 | 57.90] loss=1.28 avg=1.17
[8062 | 58.81] loss=1.04 avg=1.16
[8063 | 59.72] loss=0.74 avg=1.15
[8064 | 60.63] loss=0.91 avg=1.15
[8065 | 61.55] loss=0.89 avg=1.14
[8066 | 62.47] loss=1.14 avg=1.14
[8067 | 63.39] loss=0.82 avg=1.14
[8068 | 64.31] loss=0.99 avg=1.13
[8069 | 65.24] loss=0.98 avg=1.13
[8070 | 66.16] loss=1.39 avg=1.14
[8071 | 67.09] loss=1.66 avg=1.15
[8072 | 68.02] loss=1.33 avg=1.15
[8073 | 68.95] loss=0.81 avg=1.14
[8074 | 69.89] loss=1.36 avg=1.15
[8075 | 70.83] loss=1.26 avg=1.15
[8076 | 71.77] loss=1.58 avg=1.16
[8077 | 72.71] loss=1.24 avg=1.16
[8078 | 73.66] loss=0.44 avg=1.15
[8079 | 74.61] loss=0.69 avg=1.14
[8080 | 75.55] loss=1.17 avg=1.14
[8081 | 76.51] loss=1.19 avg=1.14
[8082 | 77.46] loss=1.80 avg=1.15
[8083 | 78.41] loss=1.08 avg=1.15
[8084 | 79.37] loss=1.60 avg=1.16
[8085 | 80.32] loss=1.28 avg=1.16
[8086 | 81.28] loss=1.45 avg=1.17
[8087 | 82.23] loss=1.12 avg=1.16
[8088 | 83.18] loss=1.07 avg=1.16
[8089 | 84.13] loss=1.04 avg=1.16
[8090 | 85.08] loss=1.41 avg=1.16
[8091 | 86.02] loss=1.01 avg=1.16
[8092 | 86.96] loss=1.11 avg=1.16
[8093 | 87.90] loss=0.60 avg=1.15
[8094 | 88.84] loss=1.45 avg=1.16
[8095 | 89.77] loss=0.98 avg=1.15
[8096 | 90.70] loss=1.01 avg=1.15
[8097 | 91.63] loss=1.14 avg=1.15
[8098 | 92.56] loss=1.76 avg=1.16
[8099 | 93.49] loss=0.91 avg=1.16
Generating samples...
======== SAMPLE 1 ========
kill)
(progn
;; Clean up the file if there's only one; the file's in the
;; "default" dir
(unless (file-remote-p localhost)
(setq localhost (concat alist (concat "%s" (car alist)) "-")))
(setq localhost (concat "\"(\".*|\".*(\",\"\".*|\"*$\"\",\"\"$\"*)\"\"\"`"
(or alist (substring alist 1 -1)))
default-directory))
(if (> localhost (or alist-substring alist-substring alist-substring nil))))
(defun create-default-directory (directory &optional ignore)
"Make default directory in Directory.
If directories are included, make the directory itself."
(directory
(and ignore (directory-files
(file-remote-p (current-buffer))))
(and ignore (directory-files
(file-remote-p (current-buffer))))
(unless ignore
(dolist (directory
(let ((alist (apply
(substring
(concat (cdr (assq "default-directory" alist)) "-")))
(concat "*" (regexp-opt (cdr (assq "dir-default" (car alist))))
alist (cdr (assq "default-directory" (car alist)))))))
file-name
(setq directory localhost)))
default-location)))
(defun create-default-directory (directory)
"Make directory in Directory which is to be created in the default directory.
If the directory includes \"%s\" or \"%s\", make it its own
directory."
(and directory
(or (not ignore)
(setq default-directory
(and ignore (directory-files ignore dir-files))
(cdr (assq "default-directory" (car alist)))))))
(defalias 'file-remote-p nil "make a default directory" nil
"Check if directory exists in directory.
If so, do anything necessary as long as the default directory exists.
Otherwise, do nothing for most of the time."
(or ignore
(file-remote-p ignore
(and ignore (directory-files ignore dir-files)))))
(defalias 'name-directory-p nil "put the default name of that directory in."
"If called with a directory-file-name-separator arg, put it in name-1.
If called with no such argument, put it in name-2.
This option also does not add any new names.")
(defun create-default-directory-file (dir &optional name)
"Make a directory in DIRECTORY specified by DIR.
If DIR is given, create a new one and then create it.
The default name of the file is also set in DIR.
With no prefix argument, make it its own directory."
(unless (file-readable-p dir)
(add-hook '
======== SAMPLE 2 ========
kill."
(message (concat "`%s'"
(if (string-match "\\(.*\\)\n"
(cddr-cdr-match-string last-word)
"\\(\\|\\|([^\n]+\\)[^\n]+\\)"
"\\(\\|\\))"
last-word))
"<" (if (string-match "\\|"))
"<" (if (cddr-cdr-match-string last-word)
"\\)"))
)
nil "\n")
;; we don't have to add `%s' so we keep
;; we are using `%s' in this case because
;; it returns empty string anyway.
("^[^\n]+"
last-word "\n" nil)
1)
(setq idx-idx-regexp idx-idx-regexp)
(if (> idx-idx-last-number last-word t)
(if (> idx-start-number last-word)
(if (< idx-last-number idx-start-number)
(setq idx-start-number idx-start-number)
(setq next-word idx-start-number))
idx-start-number)))))
(setq idx-idx-regexp (cursor-up-list idx-list)
idx-idx-regexp (cursor-down-list idx-list))))
(when start-number
(when (>
======== SAMPLE 3 ========
kill-cached-entry)
"Call the cache functions `cache-cached-all' and
`cache-cached-error' in the same file.
A cached file may be created using the value of
`cache-cached-entry' when it is in an empty `cache-entry' file.
The cache-entry function returns the entries of the cache for
`Cached-name', `cached-file-name' and its child.
All entries are cached by `cache-cached-function' function;
it returns a lazy list with all the functions the last one called.
To access the cached files, the functions have to be explicitly called by
`cached-cache-function' function.
This function does more than caches."
(dolist (cache-cached-list
(if (get 'cache-caches cache-caches) nil
(let* ((entries (cached-entry cache-caches))
(current (current-column))))
(progn
(setq entries (cached-entry entries))
(if current
(goto-char (cadr entries))
(replace-match (char-after) (nth 1 out-caches)))))))
(if current
(put 'cache-caches 'car entries))
(if current
(put 'cache-caches 'c-point)
(put 'cache-caches 'calculate-caches)))
(save-excursion
(if (and (nth last out-caches) (not uploaded)
(setq entries (cached-entry entries))
(goto-char (cadr entries))
(replace-match (nth 1 out-caches)))))))
(defun cache-cached-entry (n)
"Call the process `cache-cached-entry' for N records or nil."
(or (nth (nth last out-caches) cached-cache-alist)
'(("" n 0 ;; 0 is the last cached entry. 0 does not mean
;; cache entry. 0 does not mean entry. 1 does not mean. 2 does not
;; do not cache entry.
(nconc n (mapcar (lambda (entry)
(if
(read-file-name
(concat
"Cached entries: "
(or (nth 2 out-caches) (nth 1 cached-files)))
n
n)))
======== SAMPLE 4 ========
kill-functions (car (car (nth 3 entry)))
'(
(cdr (nth 1 entry)))
(car (nth 2 entry)))
t
(t
(and
(setq t (format "Moved to %d"
(nth 1 entry)))))
(or (bobp)
(and (cdr (nth 1 entry)))
(setq b (1+ (nth 1 entry)))
(push b 0))
(or (and (cdr (nth 2 entry) (math-realp b))
(or not (memq (nth 0 entry))))) (setq b (1+ b)))
(or (math-expert-not-a (nth 2 entry))
(and (not (memq (math-expand b 1))
(and (eq (nth 2 entry) 'math-abstract)
(math-abstract-boundp b)
(math-add-sub-b (nth 1 entry)))))
(or (math-expert-not-a (nth 3 entry))
(and (eq (math-expert-not-c (nth 4 entry))
math-abstract-boundp))))
(and (not (nth 1 entry)))
(and (not (nth 2 entry
[8100 | 121.24] loss=0.91 avg=1.15
[8101 | 122.14] loss=1.53 avg=1.16
[8102 | 123.05] loss=0.54 avg=1.15
[8103 | 123.95] loss=1.37 avg=1.15
[8104 | 124.85] loss=0.97 avg=1.15
[8105 | 125.76] loss=0.60 avg=1.14
[8106 | 126.66] loss=1.11 avg=1.14
[8107 | 127.57] loss=1.24 avg=1.14
[8108 | 128.47] loss=1.02 avg=1.14
[8109 | 129.37] loss=1.46 avg=1.15
[8110 | 130.28] loss=1.43 avg=1.15
[8111 | 131.19] loss=1.35 avg=1.15
[8112 | 132.09] loss=1.23 avg=1.15
[8113 | 132.99] loss=1.58 avg=1.16
[8114 | 133.90] loss=1.34 avg=1.16
[8115 | 134.81] loss=1.25 avg=1.16
[8116 | 135.72] loss=1.17 avg=1.16
[8117 | 136.63] loss=1.56 avg=1.17
[8118 | 137.54] loss=1.15 avg=1.17
[8119 | 138.45] loss=1.02 avg=1.17
[8120 | 139.36] loss=1.11 avg=1.17
[8121 | 140.27] loss=1.04 avg=1.16
[8122 | 141.18] loss=1.62 avg=1.17
[8123 | 142.10] loss=1.22 avg=1.17
[8124 | 143.01] loss=0.71 avg=1.17
[8125 | 143.93] loss=1.13 avg=1.17
[8126 | 144.84] loss=1.14 avg=1.16
[8127 | 145.76] loss=1.38 avg=1.17
[8128 | 146.67] loss=0.97 avg=1.16
[8129 | 147.59] loss=0.95 avg=1.16
[8130 | 148.51] loss=0.94 avg=1.16
[8131 | 149.43] loss=0.97 avg=1.16
[8132 | 150.35] loss=1.63 avg=1.16
[8133 | 151.27] loss=0.91 avg=1.16
[8134 | 152.20] loss=1.16 avg=1.16
[8135 | 153.12] loss=0.57 avg=1.15
[8136 | 154.04] loss=1.52 avg=1.16
[8137 | 154.96] loss=1.22 avg=1.16
[8138 | 155.89] loss=1.17 avg=1.16
[8139 | 156.82] loss=1.36 avg=1.16
[8140 | 157.74] loss=1.46 avg=1.16
[8141 | 158.66] loss=1.16 avg=1.16
[8142 | 159.59] loss=1.09 avg=1.16
[8143 | 160.52] loss=1.22 avg=1.16
[8144 | 161.45] loss=1.40 avg=1.17
[8145 | 162.38] loss=0.94 avg=1.16
[8146 | 163.30] loss=1.02 avg=1.16
[8147 | 164.24] loss=0.91 avg=1.16
[8148 | 165.16] loss=0.64 avg=1.15
[8149 | 166.10] loss=1.17 avg=1.15
[8150 | 167.02] loss=0.99 avg=1.15
[8151 | 167.95] loss=1.70 avg=1.16
[8152 | 168.88] loss=1.17 avg=1.16
[8153 | 169.81] loss=1.03 avg=1.16
[8154 | 170.74] loss=0.99 avg=1.15
[8155 | 171.67] loss=1.46 avg=1.16
[8156 | 172.60] loss=1.19 avg=1.16
[8157 | 173.53] loss=1.21 avg=1.16
[8158 | 174.46] loss=1.13 avg=1.16
[8159 | 175.39] loss=0.98 avg=1.16
[8160 | 176.32] loss=1.19 avg=1.16
[8161 | 177.25] loss=0.97 avg=1.15
[8162 | 178.18] loss=1.19 avg=1.15
[8163 | 179.10] loss=1.43 avg=1.16
[8164 | 180.03] loss=1.74 avg=1.17
[8165 | 180.96] loss=1.02 avg=1.16
[8166 | 181.88] loss=0.99 avg=1.16
[8167 | 182.81] loss=0.91 avg=1.16
[8168 | 183.73] loss=0.91 avg=1.16
[8169 | 184.65] loss=1.34 avg=1.16
[8170 | 185.58] loss=0.81 avg=1.15
[8171 | 186.50] loss=1.03 avg=1.15
[8172 | 187.42] loss=1.29 avg=1.15
[8173 | 188.35] loss=1.02 avg=1.15
[8174 | 189.27] loss=0.84 avg=1.15
[8175 | 190.19] loss=1.12 avg=1.15
[8176 | 191.11] loss=1.04 avg=1.15
[8177 | 192.03] loss=1.03 avg=1.14
[8178 | 192.95] loss=1.24 avg=1.15
[8179 | 193.87] loss=0.99 avg=1.14
[8180 | 194.79] loss=1.33 avg=1.15
[8181 | 195.71] loss=1.53 avg=1.15
[8182 | 196.63] loss=1.07 avg=1.15
[8183 | 197.55] loss=1.39 avg=1.15
[8184 | 198.47] loss=1.35 avg=1.16
[8185 | 199.39] loss=0.89 avg=1.15
[8186 | 200.30] loss=0.92 avg=1.15
[8187 | 201.22] loss=1.10 avg=1.15
[8188 | 202.13] loss=1.55 avg=1.15
[8189 | 203.05] loss=0.57 avg=1.15
[8190 | 203.97] loss=1.42 avg=1.15
[8191 | 204.88] loss=0.97 avg=1.15
[8192 | 205.79] loss=0.98 avg=1.15
[8193 | 206.71] loss=1.09 avg=1.14
[8194 | 207.63] loss=1.13 avg=1.14
[8195 | 208.55] loss=0.97 avg=1.14
[8196 | 209.47] loss=0.97 avg=1.14
[8197 | 210.38] loss=1.34 avg=1.14
[8198 | 211.29] loss=1.25 avg=1.14
[8199 | 212.21] loss=1.60 avg=1.15
Generating samples...
======== SAMPLE 1 ========
;; Add the `@' characters when `@' is used.
(regexp-quote regexp-end))))
;;
(setq regexp-quote (symbol-name regexp-end))
(setf regexp-end (max (length regexp-begin) 0)
regexp-end (max (point-min) (setq regexp-begin
(point-max))))
(t
(error "Cannot find file `%s': %s" regexp-end))))
(when (eq symbol-name '@)
(setq regexp-begin (point-min) (max (point-min) regexp-end))))
(when (eq symbol-name '@)
(setq regexp-end (point-min) (max (point-min) regexp-end))))
;;;###autoload
(defun regexp-file-completion--compile ()
"Compile the current buffer for interactive use, in
a compiled version of `resolv-buffer' (included as in Emacs Lisp)."
(save-excursion
(setq regexp-file-completion
(if (re-search-backward regexp-command (prefix-numeric-value prefix-numeric-value))
'resolv-compile)
(regexp-compile regexp-file-completions)
(if (re-search-backward regexp-command (prefix-numeric-value prefix-numeric-value))
'resolv-compile))
(error "Not a regular expression"))
(unless (memq (regexp-match regexp-completions) '(1 2))
(error "-Expected regular expression")))
;; Add the new regexp at the end of the last line if needed.
(let* ((regexp-list
(cond ((and (re-search-backward regexp-command (prefix-numeric-value prefix-numeric-value))
(regexp-quote regexp-begin) t))
(t (insert " " "")))
(t (insert "\n"))
((or (eq (setq regexp-end (point-min)))
(regexp-quote regexp-end) nil)
(t (setq regexp-end nil))
(t regexp-end nil))))
(t
(error "Not a regexp"))
(insert
" " regexp-completion-string "/"
"Compiling Emacs Lisp.")))
;;;; Compile functions in a separate process.
(defcustom regexp-match-function nil
"Function to match a file in or after a match.
This is called on the Lisp interpreter. This function
must return a function that is called (with no return statement),
with no error, and also a value (which represents a character
in `'
======== SAMPLE 2 ========
(list (if (featurep 'gnuplot2) (setq gnus-plot-flag "gnuplot2")
(gnus-plot-flag "gnuplot0") gnus-plot-flag)))
(list gnus-plot-flag))
(gnus-plot-on "x"
;; Make x position visible and
;; set gcm-vertical-columns.
(list (gnus-find-horizontal-column (gnus-get-horizontal-column)))
(list gnus-plot-flag)))))
(defun gnus-vertical-columns ()
"Vertical-columns is the number of columns on the line.
It is defined here by `gnus-vertical-columns-format-alist'.
The default value lies between 1 and 256 column.
It is defined by `gnus-vertical-columns-format-alist'.")
(let ((gnus-find-horizontal-columns (gnus-get-horizontal-column (gnus-get-horizontal-columns)))
(gnus-vertical-columns-format-alist gnus-horizontal-columns-count))))
(defun gnus-horizontal-columns-count ()
"Digits the column count per point in the HORIZONTAL-STYLE.
Calls gnus-horizontal-columns-format-alist with the column
counts from point."
(cl-loop for column in gnus-horizontal-columns-count do
;; For now, we only want to call it as-is, so
;; no need to call it in any other loop, since the
;; display itself is a function that doesn't support HORIZONTAL-STYLE
;; behavior.
(gnus-horizontal-columns-format-alist gnus-horizontal-columns-count)))
(if gnus-vertical-columns-format-alist
(gnus-horizontal-columns-format-alist gnus-horizontal-columns-count)))
(provide 'gnus-horizontal-columns)
;; Local variables:
;; generated-autoload-file: "loaddefs.el"
;; generated-autoload-load-name: "gnus-horizontal-columns"
;;; instabilities:
(require 'latin-align)
(require 'gnus-scan-string)
(defvar gnus-scan-string)
(declare-function gnus-scan-string-function "gnus-scan-string")
(defvar gnus-scan-string-face))
;;; Internal variables.
(defvar gnus-show-item-count-or-msg-count nil)
(defun gnus-show-item (num args)
"Display the list of entries in the current item.
If num is nil (nil means the message is not displayed), the
messages are displayed separately.
NUM is the number of lines in the message, and the number of
separators.
GROUP is a symbol. See `gnus-display-message' for a
help-string which might match an item."
(when (and (> (- num 1) gnus-show-item-count-or-msg)))
(let ((num (1+ num))))
(save-excursion
(let* ((len (nth 0 gnus-show-item-count-or-msg-count)) nargs)
(while (<= num num)
(when (or (> num minibuffer) (> num numminibuffer)))
(gnus-list-scan-string
(
======== SAMPLE 3 ========
(define-key map [cadr] [cvs-pre-save] 'cvs-pre-save)))
(define-key map [x-m-s-x] [cvs-delete-mark] 'cvs-delete-mark)
(define-key map [x-m-s-x] [cvs-delete-mark] 'cvs-delete-mark)))
((eq map 'cvs-delete-mark)
(define-key map [x-m-g-z] [cvs-insert-mark] 'cvs-insert-mark))
(setq maps (cdr maps))
(define-key map [cvs-save] [cvs-save-mark] 'cvs-save-mark)
(define-key map [cvs-recenter] [cvs-recenter-mark] #'cvs-recenter-mark)
(define-key map [cvs-mark-mark] [cvs-mark-mark-mark-save-mark] 'cvs-mark-mark-save-mark-mark-mark)
(define-key map [cvs-save-mark-mark] [cvs-save-mark-mark-save-mark] 'cvs-save-mark-save-mark-mark-mark)
(define-key map [cvs-move] [cvs-move t] #'cvs-move-mark))
(define-key map [cvs-delete][cvs-insert] [cvs-delete-mark] #'cvs-insert-mark)) ; for the last
(define-key map [cvs-move-mark] [cvs-move-mark-mark-save-mark] #'cvs-move-mark-save-mark-mark-save-mark-mark)
(define-key map [cvs-mark-mark-mark-save] [cvs-mark-mark-mark-save-mark] #'cvs-mark-mark-save-mark-save-mark-mark-save)
(define-key map [cvs-move] [cvs-move-mark-mark-save-mark] #'cvs-move-mark-save-mark-save-mark-mark-save-mark-mark-save))
(define-key map [cvs-mark-save] [cvs-mark-mark-save-mark] 'cvs-mark-save-mark-mark-save-mark-mark-save)
(define-key map [cvs-replace] [cvs-replace-mark] #'cvs-replace-mark-mark-mark-save-mark-mark)
(define-key map [cvs-mark-mark-save] [cvs-mark-mark-mark-save] 'cvs-mark-mark-save-mark-mark-save-mark)
(define-key map [cvs-move] [cvs-move-mark-save] #'cvs-move-mark-save-mark-mark-save-mark-mark-mark-mark-save)
(define-key map [cvs-move-mark-save] [cvs-move-mark-mark-save-mark] 'cvs-move-mark-save-mark-mark-save-mark-mark-mark-save)
(define-key map [cvs-mark-save-mark] [cvs-mark-mark-save-mark] 'cvs-mark-save-mark-save-mark-mark-save-mark-save-save)
(define-key map [cvs-delete] [cvs-delete] #'cvs-delete-mark-mark-save-mark-mark-mark)
(define-key map [cvs-move] [cvs-move-mark-save] #'cvs-
======== SAMPLE 4 ========
(nconc
" (if (nconc cname) "%s"
" " " " " ") "
" (nconc cname) "
" (nconc cclass) " ")
(nconc (nstring cname) " ")))
(nconc "" (list cname))))
;; No strings must be inserted before beginning of list
;; with no spaces.
(nconc
"[ \t]*\n"
"^[ \t]*\n\n? "
(if (nconc cclass) "[ \t\n]"
"|" "[ \t]*\n\n; "
(list cname))))
(nndoc cname
(noref cname
"\\[nndoc]" nil t)))
(setq cname (nreverse cname)))))
(if (featurep 'xemacs)
(setq-local xemacs-regexp-function
'(xemacs-regexp-function (buffer-file-name "*.xemacs"))
(if (eq xemacs-use-xemacs-regexp 'yes)
(setq xemacs-use-xemacs-regexp t)
(make-local-variable 'mouse-face 'caption-name-face-region)
(make-string (- (length (caption-name-face) (length cname))))
(if (and (eq use-xemacs-regexp 'yes)
(string= (caption-name-face) (1- (length cname))) (caption-name-face))))
(concat
(if (memq (char-syntax
'(xemacs-use-xemacs-regexp 'yes)
'(nth cname))))
(subst-char (char-syntax))))
[8200 | 238.28] loss=1.67 avg=1.16
[8201 | 239.19] loss=0.97 avg=1.15
[8202 | 240.10] loss=1.38 avg=1.16
[8203 | 241.02] loss=1.17 avg=1.16
[8204 | 241.94] loss=1.64 avg=1.16
[8205 | 242.85] loss=0.84 avg=1.16
[8206 | 243.77] loss=1.29 avg=1.16
[8207 | 244.69] loss=2.13 avg=1.17
[8208 | 245.61] loss=1.02 avg=1.17
[8209 | 246.53] loss=1.41 avg=1.17
[8210 | 247.44] loss=1.86 avg=1.18
[8211 | 248.36] loss=1.28 avg=1.18
[8212 | 249.28] loss=1.38 avg=1.18
[8213 | 250.19] loss=1.03 avg=1.18
[8214 | 251.11] loss=0.71 avg=1.18
[8215 | 252.03] loss=1.19 avg=1.18
[8216 | 252.95] loss=1.18 avg=1.18
[8217 | 253.87] loss=0.74 avg=1.17
[8218 | 254.79] loss=1.02 avg=1.17
[8219 | 255.71] loss=0.70 avg=1.16
[8220 | 256.62] loss=0.65 avg=1.16
[8221 | 257.54] loss=1.44 avg=1.16
[8222 | 258.45] loss=1.13 avg=1.16
[8223 | 259.37] loss=1.29 avg=1.16
[8224 | 260.29] loss=1.07 avg=1.16
[8225 | 261.21] loss=1.07 avg=1.16
[8226 | 262.13] loss=0.73 avg=1.16
[8227 | 263.04] loss=1.04 avg=1.15
[8228 | 263.96] loss=1.59 avg=1.16
[8229 | 264.88] loss=0.93 avg=1.16
[8230 | 265.80] loss=1.21 avg=1.16
[8231 | 266.72] loss=0.99 avg=1.16
[8232 | 267.64] loss=1.25 avg=1.16
[8233 | 268.56] loss=1.49 avg=1.16
[8234 | 269.48] loss=1.08 avg=1.16
[8235 | 270.40] loss=0.85 avg=1.16
[8236 | 271.32] loss=0.77 avg=1.15
[8237 | 272.23] loss=1.04 avg=1.15
[8238 | 273.15] loss=0.86 avg=1.15
[8239 | 274.07] loss=1.30 avg=1.15
[8240 | 274.99] loss=1.01 avg=1.15
[8241 | 275.91] loss=0.89 avg=1.14
[8242 | 276.82] loss=1.10 avg=1.14
[8243 | 277.74] loss=0.94 avg=1.14
[8244 | 278.66] loss=1.07 avg=1.14
[8245 | 279.58] loss=0.77 avg=1.14
[8246 | 280.50] loss=0.74 avg=1.13
[8247 | 281.42] loss=0.95 avg=1.13
[8248 | 282.34] loss=1.16 avg=1.13
[8249 | 283.26] loss=1.40 avg=1.13
[8250 | 284.18] loss=0.74 avg=1.13
[8251 | 285.10] loss=0.81 avg=1.13
[8252 | 286.01] loss=1.39 avg=1.13
[8253 | 286.93] loss=0.87 avg=1.13
[8254 | 287.85] loss=1.09 avg=1.13
[8255 | 288.77] loss=0.85 avg=1.12
[8256 | 289.69] loss=1.30 avg=1.12
[8257 | 290.61] loss=0.81 avg=1.12
[8258 | 291.53] loss=1.01 avg=1.12
[8259 | 292.44] loss=0.59 avg=1.11
[8260 | 293.36] loss=0.86 avg=1.11
[8261 | 294.28] loss=0.98 avg=1.11
[8262 | 295.20] loss=1.54 avg=1.12
[8263 | 296.12] loss=0.79 avg=1.11
[8264 | 297.05] loss=1.32 avg=1.11
[8265 | 297.97] loss=1.14 avg=1.11
[8266 | 298.89] loss=1.64 avg=1.12
[8267 | 299.81] loss=1.17 avg=1.12
[8268 | 300.73] loss=1.73 avg=1.13
[8269 | 301.65] loss=0.99 avg=1.13
[8270 | 302.57] loss=0.93 avg=1.12
[8271 | 303.49] loss=1.11 avg=1.12
[8272 | 304.41] loss=0.78 avg=1.12
[8273 | 305.33] loss=1.12 avg=1.12
[8274 | 306.26] loss=1.15 avg=1.12
[8275 | 307.17] loss=1.74 avg=1.13
[8276 | 308.10] loss=0.89 avg=1.12
[8277 | 309.02] loss=0.86 avg=1.12
[8278 | 309.94] loss=1.22 avg=1.12
[8279 | 310.86] loss=1.56 avg=1.13
[8280 | 311.78] loss=1.21 avg=1.13
[8281 | 312.70] loss=0.64 avg=1.12
[8282 | 313.62] loss=0.92 avg=1.12
[8283 | 314.54] loss=0.97 avg=1.12
[8284 | 315.46] loss=0.90 avg=1.12
[8285 | 316.39] loss=1.32 avg=1.12
[8286 | 317.30] loss=1.23 avg=1.12
[8287 | 318.22] loss=1.22 avg=1.12
[8288 | 319.15] loss=1.43 avg=1.12
[8289 | 320.07] loss=0.92 avg=1.12
[8290 | 320.99] loss=1.37 avg=1.12
[8291 | 321.92] loss=1.04 avg=1.12
[8292 | 322.84] loss=1.07 avg=1.12
[8293 | 323.76] loss=1.33 avg=1.13
[8294 | 324.68] loss=0.63 avg=1.12
[8295 | 325.60] loss=1.26 avg=1.12
[8296 | 326.53] loss=0.97 avg=1.12
[8297 | 327.45] loss=1.04 avg=1.12
[8298 | 328.37] loss=1.21 avg=1.12
[8299 | 329.29] loss=1.24 avg=1.12
Generating samples...
======== SAMPLE 1 ========
nil
"If at least one \"\" in the buffer, toggle it."
:type 'sexp
:group 'maphash
:version "24.1"
:package-version 0.4)
(defun maphash-edit-sexp (sexp)
"Return non-nil if an edit-sexp was applied to the current buffer.
Uses the sexp variable `message-sexp'."
(let ((old-sexp nil)
(sexp-last-sexp-re nil))
(switch-to-buffer-other-window)))
;;; Variables to be passed as sexp.el through `maphash-load' and `maphash-set'
;;
;; This depends on how many arguments the program has.
;;
;;
;; The value of this variable is either the value in the
;; sexp-init-arguments header of the argument list, when
;; the sexp is defined, or the value in the arg-list of
;; the call of the call of the call of the call of
;; the call of the call of the call of the call of the call
;; of the call of the call of the call of the call of
;; the call of the call of the call of the call of the call
;; of the call of the call of the call call of the call of
;; the call of the call of the call of the call of the call
;; of the call of the call of the call of the call of the call
;; of the call of the call of the call of the call of the call
;; of the call of the call of the call of the call of the call
;; of the call of the call of the call of the call of the call
;; of the call of the call of the call of the call of the
;; call of the call of the call of the call of the call of
;; the call of the call of the call of the call of the call of
;; the call of the call of the call of the call of the call
;; of the call of the call of the call of the call of the call
;; of the call of the call of the call of the call of the
;; call of the call of the call of the call of the call
;; of the call of the call of the call of the call (non-interactively)
;; and the sexp is one of `maphash-make-sexp',
;; the sexp is one of `maphash-change-sexp', or the sexp is
;; one of `maphash-sexp'. If the value is nil,
;; the sexp is the sexp at the beginning of the argument list.
(add-hook 'maphash-set-sexp-arguments-functions
(if maphash-set-sexp-arguments-functions (append (mapcar #'comint-make-sexp-functions)) 'maphash-sexp)))
;;;###mh-autoload
(prog1
(require 'mh-auto)
(add-hook 'mh-hookp-functions 'mh-edit-sexp))
;;;###mh-autoload
(defcustom mh-maphash-mode nil
"Mode for editing Maphash files."
:type (let ((mode (mh-maphash-mode)))
(if mode
;; Mphash
(setq mode 'mh-maphash nil)
(setq mode-1 mode-2)))
mode)))
(defvar mh-maphash-expanded-file-lines nil
"Specify expanded file names or values for Mh-ExpandedFileList.
This variable defaults to nil if no value is specified, and
if non-nil also has the effect of t (if it is non-nil). See
`mh-expand-expanded-files-list'. If nil, expand in a `mh-expand-expanded'
variable.
This variable controls expanding and deleting an expanded file list,
but is normally bound to t (`expand-expanded-files' is non-nil)."
:type (
======== SAMPLE 2 ========
(goto-char (match-beginning 0))
(forward-line 1))))
(if (looking-at t) regexp)
(setq match-begin (match-beginning 0)))
(when (looking-at t)
(setq match-end (match-end 0)))
(or (looking-at-marker match-end)
(setq match-begin (match-beginning 0)))
(setq match-end (match-end 0)))
;; Check before moving
(when (eq (matching-string match-begin) 'move)
;; Don't move too far
(while regexp
(when (match-beginning match-end)
(setq match-begin (- match-begin match-end))))
(goto-char match-end)
(setq match-end (match-beginning match-end)))
(forward-line 1)))
======== SAMPLE 3 ========
(if (string-match "\\\\^{\\^[ \t]*$\\}" t)
(match-string 1 t))
e-mail-list-id-id e-mail-type-id (not e-mail-list-id-id))
e-mail-list-id e-mail-list-id)
(setq e-mail-list-id (substring e-mail-list-id 1))))
(setq e-mail-list-id (match-string 1))
(setq e-mail-list-id (if e-mail-list-id-id
(substring-no-properties e-mail-list-id 1)
t
e-mail-list-id))))
(if (not e-mail-list-id e-mail-view-id)
(setq e-mail-view-id (match-string 1)))
(setq e-mail-view-id (if e-mail-view-id
(substring e-mail-view-id 1)
e-mail-view-id)
(setq e-mail-view-id (if e-mail-view-id
(substring e-mail-view-id 1)
e-mail-view-id)))))
;; No error code available.
(add-excursion (progn
(delete-process e-mail-list-id)
(delete-file e-mail-list-id)
(set-process-filter e-mail-list-id e-mail-list-id)
(process-send-string e-mail-view-id e-mail-view-id (process-name)
;; Make sure that the file in the list is
;; saved since this file is saved in
======== SAMPLE 4 ========
["Misc Info" xmltok-menu-info-entry (file-name)))
;; This contains the entry to be used when the XMltok M-menu is
;; not available from the XMltok server.
function
(if xmltok-check-menu-display
(progn
(setq xmltok-menu-display
(if xmltok-check-menu-displacement xmltok-menu-displacement
(display-image xmltok-header)
xmltok-menu-displacement 'noerror)
xmltok-menu-displacement xmltok-menu-displacement 'noerror -1)))
(setq xmltok-menu-display
(if xmltok-check-menu-display
(display-image xmltok-header)
xmltok-menu-displacement
xmltok-menu-displacement 'noterror)
xmltok-menu-displacement xmltok-menu-displacement 'noterror 1))))))))))
(when (stringp xmltok-message-format)
(message
;; We try to be as short as we can. If the user doesn't want
;; the first message to contain a character, add it to
;; "Message-Lines" for the second message as the short of
;; that is required and it could be a string.
(concat xmltok-message-format " "
(if (setq (numberp xmltok-message-format)
(format "%-z %-z")
xmltok-message-format))
(number-to-string
(if xmltok-message-format " "
xmltok-message-format nil)
(if xmltok-message-format " "
xmltok-message-format nil)))) ; This handles message-to-string
(concat (number-to-string
[8300 | 355.29] loss=1.16 avg=1.12
[8301 | 356.20] loss=1.41 avg=1.12
[8302 | 357.12] loss=0.82 avg=1.12
[8303 | 358.04] loss=1.26 avg=1.12
[8304 | 358.96] loss=1.06 avg=1.12
[8305 | 359.88] loss=1.49 avg=1.13
[8306 | 360.80] loss=1.56 avg=1.13
[8307 | 361.72] loss=0.82 avg=1.13
[8308 | 362.63] loss=0.97 avg=1.13
[8309 | 363.55] loss=0.95 avg=1.12
[8310 | 364.46] loss=1.00 avg=1.12
[8311 | 365.38] loss=1.30 avg=1.12
[8312 | 366.30] loss=0.91 avg=1.12
[8313 | 367.21] loss=1.14 avg=1.12
[8314 | 368.13] loss=1.02 avg=1.12
[8315 | 369.04] loss=1.46 avg=1.12
[8316 | 369.96] loss=1.24 avg=1.13
[8317 | 370.88] loss=1.16 avg=1.13
[8318 | 371.80] loss=1.22 avg=1.13
[8319 | 372.71] loss=1.31 avg=1.13
[8320 | 373.63] loss=1.06 avg=1.13
[8321 | 374.55] loss=0.68 avg=1.12
[8322 | 375.47] loss=1.38 avg=1.13
[8323 | 376.39] loss=1.06 avg=1.13
[8324 | 377.30] loss=0.99 avg=1.12
[8325 | 378.22] loss=1.19 avg=1.13
[8326 | 379.14] loss=1.11 avg=1.13
[8327 | 380.05] loss=1.42 avg=1.13
[8328 | 380.97] loss=1.19 avg=1.13
[8329 | 381.89] loss=1.08 avg=1.13
[8330 | 382.80] loss=1.48 avg=1.13
[8331 | 383.72] loss=1.06 avg=1.13
[8332 | 384.64] loss=1.01 avg=1.13
[8333 | 385.56] loss=1.00 avg=1.13
[8334 | 386.48] loss=0.97 avg=1.13
[8335 | 387.40] loss=1.69 avg=1.13
[8336 | 388.32] loss=1.50 avg=1.14
[8337 | 389.24] loss=1.09 avg=1.14
[8338 | 390.16] loss=0.81 avg=1.13
[8339 | 391.08] loss=1.29 avg=1.13
[8340 | 392.00] loss=0.97 avg=1.13
[8341 | 392.92] loss=1.30 avg=1.13
[8342 | 393.84] loss=1.52 avg=1.14
[8343 | 394.75] loss=1.14 avg=1.14
[8344 | 395.67] loss=1.16 avg=1.14
[8345 | 396.59] loss=1.19 avg=1.14
[8346 | 397.51] loss=0.83 avg=1.14
[8347 | 398.43] loss=0.88 avg=1.13
[8348 | 399.36] loss=0.73 avg=1.13
[8349 | 400.28] loss=1.18 avg=1.13
[8350 | 401.20] loss=1.21 avg=1.13
[8351 | 402.12] loss=1.04 avg=1.13
[8352 | 403.05] loss=1.29 avg=1.13
[8353 | 403.97] loss=1.16 avg=1.13
[8354 | 404.89] loss=1.25 avg=1.13
[8355 | 405.82] loss=1.45 avg=1.14
[8356 | 406.74] loss=0.96 avg=1.13
[8357 | 407.66] loss=1.61 avg=1.14
[8358 | 408.59] loss=0.88 avg=1.14
[8359 | 409.51] loss=1.29 avg=1.14
[8360 | 410.43] loss=0.94 avg=1.14
[8361 | 411.36] loss=1.25 avg=1.14
[8362 | 412.28] loss=1.76 avg=1.14
[8363 | 413.21] loss=1.03 avg=1.14
[8364 | 414.13] loss=1.13 avg=1.14
[8365 | 415.06] loss=0.92 avg=1.14
[8366 | 415.98] loss=0.96 avg=1.14
[8367 | 416.91] loss=1.04 avg=1.14
[8368 | 417.83] loss=1.15 avg=1.14
[8369 | 418.76] loss=1.11 avg=1.14
[8370 | 419.69] loss=1.52 avg=1.14
[8371 | 420.61] loss=0.71 avg=1.14
[8372 | 421.54] loss=0.99 avg=1.13
[8373 | 422.47] loss=0.96 avg=1.13
[8374 | 423.39] loss=0.95 avg=1.13
[8375 | 424.32] loss=0.60 avg=1.13
[8376 | 425.24] loss=1.19 avg=1.13
[8377 | 426.17] loss=1.02 avg=1.13
[8378 | 427.09] loss=0.99 avg=1.12
[8379 | 428.02] loss=1.24 avg=1.13
[8380 | 428.94] loss=0.78 avg=1.12
[8381 | 429.87] loss=0.84 avg=1.12
[8382 | 430.79] loss=1.09 avg=1.12
[8383 | 431.72] loss=1.12 avg=1.12
[8384 | 432.64] loss=1.23 avg=1.12
[8385 | 433.56] loss=0.44 avg=1.11
[8386 | 434.49] loss=1.39 avg=1.12
[8387 | 435.41] loss=1.35 avg=1.12
[8388 | 436.34] loss=1.00 avg=1.12
[8389 | 437.26] loss=0.71 avg=1.11
[8390 | 438.19] loss=1.14 avg=1.11
[8391 | 439.11] loss=1.16 avg=1.11
[8392 | 440.04] loss=0.90 avg=1.11
[8393 | 440.96] loss=1.49 avg=1.12
[8394 | 441.88] loss=1.21 avg=1.12
[8395 | 442.80] loss=1.30 avg=1.12
[8396 | 443.73] loss=1.21 avg=1.12
[8397 | 444.65] loss=1.11 avg=1.12
[8398 | 445.57] loss=1.16 avg=1.12
[8399 | 446.49] loss=0.88 avg=1.12
Generating samples...
======== SAMPLE 1 ========
:tag "List of objects with name `%%"))
:type (:tag ""))
#'n
:group (:attr :value #'n))))
;;;###autoload
(defun nnxml-parse-value()
"Parse the XML document as a string."
(interactive)
(nxml-define-parse-string string value))
(defun nxml-parse-value-as-string ()
"Parse the XML document as a string using its text string."
(interactive)
(nxml-define-parse-string string value))
;;;###autoload
(defun nxml-parse-xml-p (value &optional text-width)
"Parse the XML document as a string.
POPULATE and ENDOW must be an integer or a
string of values."
(interactive "P")
(nxml-define-parse-string value text-width))
;;;###autoload
(defun nxml-parse-xml-p2 (value &optional text-width)
"Parse the XML document as a string.
POPULATE and ENDOW must be an integer or a
string of values."
(interactive "P")
(nxml-define-parse-string value text-width))
(defun nxml-parse-xml-p3 (value &optional text-width)
"Parse the XDocument document as a string.
POPULATE and ENDOW must be an integer or a
string of values."
(interactive "P")
(nxml-define-parse-string value text-width)))
;;;###autoload
(defun nxml-parse-xml-p4 (value &optional text-width)
"Parse the XDocument document as a string.
POPULATE and ENDOW must be an integer or a
string of values."
(interactive "P")
(nxml-define-parse-string value text-width))
;;;###autoload
(defun nxml-parse-xml-p5 (value &optional text-width)
"Parse the XDocument document as a string.
POPULATE and ENDOW must be an integer or a
string of values."
(interactive "P")
(nxml-define-parse-string value text-width))))
(provide 'nxml)
;;; nxml.el ends here
<|endoftext|>;;; nxml.el --- optional data decoding commands
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
;; 2006, 2007, 2008, 2009, 2010, 2011, 2012,
;; 2013, 2014, 2015, 2016, 2017
;; This file is part of GNU Emacs.
;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
;; Provides the support and management of any form of data decoding or decoding.
;; Provides access to any kind of non-decoded XML document that is
;; associated with the text you want to read, or just one XML document that you
;; want to decode. It does not work with data formats that are encoded
;; elsewhere, nor with XML files or JSON data.
;;
;; It also supports "undecoded XML" with additional support for those files
;; that are already encoded in a decoded format. In that case, if the decoder is
;; non-nil, it has control in that case.
;;
;; It might need
======== SAMPLE 2 ========
(goto-char next-line))
(t
(while
(move-match (match-beginning (1+ (- cursor-move-point)
(point-max) 1)))
(if (looking-at "^\\w+\\s-+" start)
(setq end (1+ end)))
(forward-line)
(set-marker (point-marker) cursor-end-position)
(if (looking-at "")
;; End is where we left off, for now.
(goto-char (match-beginning cursor-end))
(t
(setq cursor-end-position (point) (point)))
(goto-char next-line))
(looking-at "")
(if (looking-at "^ \t")
(set-marker (match-beginning cursor-end-position)
(point))
(setq cursor-end-position (point) (point)))
(_) (forward-line-addressed)
;; End is where we left off, at cursor, for now.
(forward-line-backward)
;; End is where we moved, so we get to where we left off
;; now
;; (replace-match \\<end\\>\\>\\>\n+\\(.*[]+\\)\\>\\>" :end
t)
;; Go to a place where we would want to leave point
;; then go back over the cursor again.
t)
(goto-char end)))
(defun mark-start -1 (- end)
"Move point to the end of the line at end of a line at point, by marking `Marked' for non-nil."
(interactive)
(goto-char start)
(mark)
(mark-end)
(forward-line-addressed)
(goto-char end)
(if mark-start
(if mark-end
(if end
(if mark-indent-point
(line-beginning-position)
end)
'mark-forward)
(if mark-indent-point
;; Mark the mark with a blank line.
(mark mark end))))))
(defun mark-indent-point (+ (- end 1) (* (- mark (point-marker)) (* (- mark (- (point--) (- end))) 1))))
(defun mark-move (* (* (- mark (- (point-end) (* (* mark (+ (* mark (* (* (+ (* (* (* mark (+ (* (+ (* (* (+ (* (+ (- (- t t) (- 1))))))) 2) 5)
1) 1)
2)))
;; Find the appropriate position for mark-start.
======== SAMPLE 3 ========
(goto-char p)))
((= p ?h)
(dolist (a b)
(let ((last (last (if (member b 'pup) pup-last pup-last))
(pos x) (pos y))
(when (string-match a (expand-ability-p last))
(unless last (message "No match found for `%s'" last)))
(message "No match found for `%s'"))))
(setq pos (1+ pos))
(when pos (when (looking-at
"[%c]") (search-forward pos #'stringp)))))
((= pos ?s)
(cond ((string-match "^" pos))
((eq ?s ?s)
(setq last pos 2))))
(if (and (< pos pos)
(< pos pos)
(> pos pos)) (push pos pos))
(backward-char -1)
(t (replace-match " ")))
(let ((match-list
(cond
((string-match " " pos)
(let ((pos nil))
(setq pos (match-string-no-properties pos))
;; FIXME: FIXME: FIXME: Fix ?\s.?
;; FIXME: FIXME: FIXME: FIXME: FIXME: FIXME: FIXME: FIXME: FIXME: FIXME: FIXME: FIXME: FIXME: FIXME: FIXME: FIXME:
pos (pos pos))))
(setq match-list nil))
(t
(let ((pos nil))
(setq pos (match-string-no-properties pos)))))
(dolist (a b)
(cond ((string-match "^#" b)
(setq pos (match-string-no-properties pos))
(when (string-match a (regexp-quote pos t))
(setq pos (1+ pos)))
(push pos pos)
pos (pos (1+ pos))))))))
(defun math-symbol-to-string-of-match (a b)
(or (zerop (eval-when (eval-and-debugp b) 'calcFunc-fetch-match-flag))
(let* ((regexp (car b)))
(setq last (apply 'calcFunc-fetch-match-flag regexp regexp)))
(calc-stack-match regexp last)))
(defvar math-linc nil)
(def
======== SAMPLE 4 ========
(cadr (and (symbolp args)
(stringp (cadr args)))
(cddr (assq 'possible-args args))))
(with-current-buffer (cadr args)
(insert-buffer-substring
" " args)))
(setq args '(" ""))
(insert-buffer-substring
args)))
(if (null (cdr args))
(insert-buffer-separate args))))
(defun dired-backend-function ()
"Convert back-end-to-backend at point into directory or region.
This hook uses the Dired window system and defaults to
The file system.
This function returns `DIR' in the current buffer, where DIR is
directory and DIR is the current buffer."
(interactive)
(if (null dired-backend-current-directory)
(let ((res nil)
(files dirs)
pwd)
(setq dirs (cdr pwd)))
(if (or (not file-exists)
(stringp pwd))
(let ((files nil)
pwd)
(files-in-directory
(concat dir pwd t)
file nil))
(dired-get-up-hook nil nil 'dired-backend-function)
(dired-get-up-hook nil t nil 'backend-function))))
(defun dired-get-directory ()
(let ((dir (concat dir "/"))
(defaults nil)
(files nil)
(file-exists-p default-directory)
(defaults-or-default
(list (format filename "/" dired-directory-regexp)))
(dired-directory-or-defaultp default-directory)))
(let ((dir (concat dir "/"))
(defaults nil)
(files nil)
(defaults nil)
(files-unmodified nil)))
(dired-get-up-hook nil nil 'dired-backend-function))
(defun dired-get-directory-or-file-ext (dir)
;; Get the directory of the directory in DIRECTORY.
;; dir is the directory to search.
(dired-read-directory dir)
(directory-parse nil)
(let ((defaults nil))
(set-buffer-modified-p (concat "^/directory-exts" dired-filename))
(setq file nil)
(narrow-to-region (point) (point) dir))
(with-temp-buffer
(dired-dirname dir)
(kill-buffer (current-buffer))
(dired-read-buffer))))
;; Copyright, x-www-gnu.org
[8400 | 472.71] loss=1.74 avg=1.12
[8401 | 473.62] loss=0.86 avg=1.12
[8402 | 474.54] loss=1.51 avg=1.12
[8403 | 475.46] loss=0.68 avg=1.12
[8404 | 476.38] loss=1.08 avg=1.12
[8405 | 477.30] loss=1.59 avg=1.12
[8406 | 478.22] loss=1.44 avg=1.13
[8407 | 479.14] loss=1.14 avg=1.13
[8408 | 480.06] loss=1.36 avg=1.13
[8409 | 480.97] loss=1.57 avg=1.13
[8410 | 481.89] loss=1.20 avg=1.14
[8411 | 482.81] loss=1.15 avg=1.14
[8412 | 483.73] loss=1.14 avg=1.14
[8413 | 484.64] loss=1.67 avg=1.14
[8414 | 485.56] loss=1.42 avg=1.14
[8415 | 486.47] loss=1.21 avg=1.14
[8416 | 487.39] loss=1.54 avg=1.15
[8417 | 488.31] loss=1.10 avg=1.15
[8418 | 489.23] loss=0.86 avg=1.14
[8419 | 490.14] loss=1.10 avg=1.14
[8420 | 491.06] loss=1.03 avg=1.14
[8421 | 491.98] loss=1.81 avg=1.15
[8422 | 492.89] loss=1.68 avg=1.16
[8423 | 493.81] loss=0.83 avg=1.15
[8424 | 494.72] loss=1.09 avg=1.15
[8425 | 495.64] loss=1.21 avg=1.15
[8426 | 496.55] loss=0.85 avg=1.15
[8427 | 497.47] loss=0.89 avg=1.15
[8428 | 498.39] loss=0.99 avg=1.15
[8429 | 499.30] loss=1.43 avg=1.15
[8430 | 500.22] loss=1.46 avg=1.15
[8431 | 501.13] loss=1.65 avg=1.16
[8432 | 502.05] loss=0.91 avg=1.15
[8433 | 502.96] loss=1.98 avg=1.16
[8434 | 503.88] loss=1.50 avg=1.17
[8435 | 504.80] loss=1.31 avg=1.17
[8436 | 505.71] loss=0.80 avg=1.16
[8437 | 506.63] loss=0.63 avg=1.16
[8438 | 507.54] loss=0.52 avg=1.15
[8439 | 508.46] loss=0.96 avg=1.15
[8440 | 509.37] loss=1.19 avg=1.15
[8441 | 510.29] loss=1.14 avg=1.15
[8442 | 511.21] loss=1.20 avg=1.15
[8443 | 512.13] loss=0.85 avg=1.15
[8444 | 513.04] loss=0.86 avg=1.14
[8445 | 513.96] loss=1.22 avg=1.15
[8446 | 514.88] loss=1.04 avg=1.14
[8447 | 515.79] loss=1.51 avg=1.15
[8448 | 516.71] loss=0.78 avg=1.14
[8449 | 517.63] loss=1.44 avg=1.15
[8450 | 518.55] loss=1.68 avg=1.15
[8451 | 519.47] loss=1.17 avg=1.15
[8452 | 520.39] loss=1.17 avg=1.15
[8453 | 521.31] loss=0.64 avg=1.15
[8454 | 522.23] loss=1.31 avg=1.15
[8455 | 523.15] loss=1.19 avg=1.15
[8456 | 524.07] loss=1.09 avg=1.15
[8457 | 524.98] loss=0.98 avg=1.15
[8458 | 525.90] loss=1.26 avg=1.15
[8459 | 526.82] loss=0.92 avg=1.15
[8460 | 527.74] loss=1.02 avg=1.14
[8461 | 528.66] loss=0.70 avg=1.14
[8462 | 529.58] loss=1.78 avg=1.15
[8463 | 530.50] loss=1.29 avg=1.15
[8464 | 531.42] loss=0.92 avg=1.15
[8465 | 532.33] loss=1.15 avg=1.15
[8466 | 533.25] loss=1.04 avg=1.14
[8467 | 534.17] loss=1.23 avg=1.15
[8468 | 535.08] loss=1.38 avg=1.15
[8469 | 536.01] loss=1.04 avg=1.15
[8470 | 536.93] loss=1.33 avg=1.15
[8471 | 537.85] loss=1.16 avg=1.15
[8472 | 538.77] loss=0.95 avg=1.15
[8473 | 539.69] loss=0.93 avg=1.14
[8474 | 540.61] loss=1.44 avg=1.15
[8475 | 541.53] loss=1.19 avg=1.15
[8476 | 542.45] loss=1.22 avg=1.15
[8477 | 543.37] loss=1.75 avg=1.16
[8478 | 544.30] loss=1.76 avg=1.16
[8479 | 545.21] loss=1.26 avg=1.16
[8480 | 546.13] loss=1.48 avg=1.17
[8481 | 547.05] loss=1.15 avg=1.17
[8482 | 547.98] loss=1.04 avg=1.16
[8483 | 548.90] loss=0.93 avg=1.16
[8484 | 549.82] loss=0.90 avg=1.16
[8485 | 550.74] loss=0.66 avg=1.15
[8486 | 551.66] loss=0.94 avg=1.15
[8487 | 552.58] loss=1.44 avg=1.15
[8488 | 553.50] loss=1.16 avg=1.15
[8489 | 554.42] loss=1.09 avg=1.15
[8490 | 555.35] loss=0.62 avg=1.15
[8491 | 556.27] loss=1.02 avg=1.15
[8492 | 557.19] loss=1.86 avg=1.15
[8493 | 558.11] loss=1.30 avg=1.16
[8494 | 559.03] loss=0.96 avg=1.15
[8495 | 559.95] loss=1.00 avg=1.15
[8496 | 560.88] loss=0.91 avg=1.15
[8497 | 561.80] loss=0.96 avg=1.15
[8498 | 562.72] loss=1.23 avg=1.15
[8499 | 563.65] loss=1.03 avg=1.15
Generating samples...
======== SAMPLE 1 ========
)))
(defun rng-check-status ()
"Ask the user for information on a message status.
Return the number of status lines and a list.
This function does not check the current message; instead,
it checks the messages and returns status code."
(when rng-search-in-field (or rng-status-check-command t))
(while (setq result-status (rng-check-status t)))
(if rng-status-valid
(with-current-buffer
(when rng-status-match-file
(setq result-status
(cond ((null rng-status-match-file)
(get-buffer-process rng-status-match-file) 'rng-status-match-file))
((null rng-status-match-file)
(goto-char start-line)
(while rng-status-match--active-lines
(if (and (get rng-status-search-function t)
(y-or-n-p
(format "You must be logged in to be recognized as logged %d"
rng-status-match-file)
rng-status-match-file))
(if (and (get rng-status-search-function t)
(y-or-n-p
(format "Checking %s is slow to do %s due to buffer%s"
rng-status-match-file)
(buffer-file-name (get buffer-name)))
rng-status-match-file)))))
(buffer-file-name (get-buffer-create buffer))))))
nil t)
(with-current-buffer (get-buffer rng-
======== SAMPLE 2 ========
)))
(defun rlint-c-in-buffer (&optional buffer mode)
"Call Rlint-c-in-buffer to check the buffer.
Argument BUFFER defaults to BUFFER with a value of `+'.
Called from Lisp, a `C-e' character will be added to an existing
buffer and an `C-f' (with no trailing C-s) will be removed from it.
The argument defaults to the number of lines that the buffer has.
The mode argument must be `-t' for C-mode to work properly, but
otherwise the mode argument defaults to `+'. A prefix arg means to call this
variant on the current line, i.e.:
rlint-c-in-buffer +1 +1
The default value for this variable is TO, or the default would be
to TO+100."
(when (eq (buffer-local-variable 'rls-buffer) 'cursor-auto)
(and (bobp)
(read-string "C-use C-mode: ")
(setq mode (read-string "")
buffer (read-string "From %s: ")
rlint-c-in-buffer)))
(goto-char (point-min))
(goto-char (point-max))
(let ((buffer (rlint-buffer-to-buffer (current-buffer))))
(goto-char (point-min))
(when (and (memq (process-status process) '(PROGRAMS PROCEDEDICATE PROCEDICATE))))
`(
,@buffer (make-marker ))
(setq mode readout-flag 'rls-mode)
(when (and (eq (process-status process) (Rlint-mode)) (looking-at rlint-p)))
(funcall set-buffer-name buffer))
(save-excursion
(goto-char (point-min))
(setq mode 'rls-mode))))
(defvar rlint-mode-alist nil
"Literal name of variable called with the key \"%")
;; Initializes Rlint mode. (default nil)
(defvar mode-up-hook nil
"Hook run before completion of the following line.")
(defun rlint-read-lines-function ()
(let ((lines (1- lines)))
(ring-begin (ring-end))
(while (not (eobp))
(let ((newlines (ring-begin (ring-end)))))
(when (and newlines (looking-at "$"))
(setq lines (cdr newlines)))
(setq rlint-mode-alist (nreverse lines))
(run-hook-with-values-default
rlint-read-lines-fun #'rxlines
rlint-read-lines-fun
rlint-mode-alist)
(ring-end
(ring-end)))
(setq rlint-mode-alist
(mapcar (lambda (x)
(format "M-%d" (match-string 0 x))
rlint-c-mode-alist)))
(mapc
(lambda (c)
rlint-c-mode-alist))
;; The list of lines that are supposed to be read.
(
======== SAMPLE 3 ========
)))
(org-trim
'("I am not a printer" "")))
[t] )
((stringp
'("print1". "")
"print0.")
(mapconcat #'identity "..."))
(org-trim
"")))
t))
;; Check the input, or do the actual printing
;; here to avoid doing the actual printing.
((save-excursion
(goto-char (point-min))
(let ((t
(list '("I am not a printer" "" )))
(mapconcat #'identity
'("print1". "")
nil t))
(looking-at "I am not a printer")
;; Do the actual printing here.
;; This can be done on the input, if the
;; output value is a list
(org-trim
(org-trim "I am not a printer"))))))))
(when (null
'(mouse-1 'org-babel-mouse-face))
(list
'(mouse-1 mouse-3
'(mouse-3 mouse-8
'(mouse-p 'org-babel-mouse-face))))))
(when (not (listp "I am not a printer"))
(let ((trim-p
======== SAMPLE 4 ========
)))
(set-point-marker (point) (point-max))
;; If point is marked, the window will be
;; changed to point if point is not marked.
(let ((current-col)
;; Set the current point and buffer to its current position:
(and (window-width window)
nil
(and (selected-window)
(window-width)
`((selected-control-frame . t)
(selected-frame . t t))))
(setq current-col (1+ current-col)))
(set-window-parameter (nth 0 buffer) nil)
;; A function to make a window in another window (if it is) set to the
;; buffer in the previous window instead of setting the buffer there.
(and (window-buffer window)
(eq (window-buffer window) window))
(let ((window-in-windows nil)
(oldwin-window t))
;; The window (if visible to all other windows) has to be
;; set to the current non-local window. The window is
;; set for this window if the window already has one (which
;; we use in our window-buffer window-reserve functions
;; if the window has none). If the window
;; has multiple windows, the function to set a window's
;; window-registry is called.
(setq window-window
(set-window-parameter (nth 1 window) nil)))
;; If the window has two windows, put the window before
;; it in the appropriate window and create a new window. The window
;; is also set for this window if it has multiple windows
;; and the function to set a window's window registry already exists and
;; we set it to the new window.
;; To make a window set to the original window, try to
;; copy the new window's value at the end of window
;; registry entry to the new window.
(aset window (1- window))
(let ((parent (window-parent window) oldwin window))
;; If the window is not selected the function set (which
;; returns a window with no windows. This is because the
;; function does a good job of keeping the window set here
;; but it is still setting the window-rearlist.
(while (setq window (or (selected-window) (selected-frame)))
;; A function to make the new window a new window
(let ((old-window old-win window))
[8500 | 589.63] loss=0.91 avg=1.15
[8501 | 590.55] loss=0.71 avg=1.14
[8502 | 591.46] loss=0.95 avg=1.14
[8503 | 592.38] loss=0.90 avg=1.14
[8504 | 593.29] loss=1.16 avg=1.14
[8505 | 594.21] loss=1.06 avg=1.14
[8506 | 595.13] loss=0.81 avg=1.13
[8507 | 596.05] loss=1.48 avg=1.14
[8508 | 596.96] loss=1.05 avg=1.14
[8509 | 597.88] loss=1.28 avg=1.14
[8510 | 598.79] loss=0.67 avg=1.13
[8511 | 599.71] loss=1.14 avg=1.13
[8512 | 600.62] loss=0.74 avg=1.13
[8513 | 601.53] loss=1.08 avg=1.13
[8514 | 602.44] loss=1.21 avg=1.13
[8515 | 603.36] loss=1.12 avg=1.13
[8516 | 604.27] loss=0.97 avg=1.13
[8517 | 605.19] loss=1.03 avg=1.13
[8518 | 606.10] loss=1.02 avg=1.12
[8519 | 607.02] loss=0.80 avg=1.12
[8520 | 607.93] loss=1.52 avg=1.13
[8521 | 608.85] loss=1.08 avg=1.13
[8522 | 609.76] loss=1.05 avg=1.12
[8523 | 610.68] loss=1.38 avg=1.13
[8524 | 611.59] loss=1.19 avg=1.13
[8525 | 612.51] loss=1.43 avg=1.13
[8526 | 613.42] loss=1.80 avg=1.14
[8527 | 614.34] loss=1.68 avg=1.14
[8528 | 615.26] loss=0.85 avg=1.14
[8529 | 616.17] loss=0.86 avg=1.14
[8530 | 617.08] loss=1.45 avg=1.14
[8531 | 618.00] loss=1.45 avg=1.14
[8532 | 618.92] loss=0.91 avg=1.14
[8533 | 619.83] loss=1.49 avg=1.14
[8534 | 620.75] loss=1.37 avg=1.15
[8535 | 621.67] loss=1.03 avg=1.15
[8536 | 622.58] loss=0.82 avg=1.14
[8537 | 623.50] loss=1.67 avg=1.15
[8538 | 624.42] loss=1.02 avg=1.15
[8539 | 625.34] loss=1.15 avg=1.15
[8540 | 626.25] loss=1.57 avg=1.15
[8541 | 627.18] loss=1.30 avg=1.15
[8542 | 628.10] loss=0.69 avg=1.15
[8543 | 629.02] loss=1.10 avg=1.15
[8544 | 629.93] loss=0.87 avg=1.14
[8545 | 630.86] loss=1.27 avg=1.15
[8546 | 631.78] loss=0.99 avg=1.14
[8547 | 632.70] loss=1.12 avg=1.14
[8548 | 633.62] loss=1.08 avg=1.14
[8549 | 634.54] loss=1.06 avg=1.14
[8550 | 635.46] loss=0.96 avg=1.14
[8551 | 636.37] loss=1.37 avg=1.14
[8552 | 637.30] loss=0.74 avg=1.14
[8553 | 638.22] loss=0.90 avg=1.14
[8554 | 639.14] loss=1.47 avg=1.14
[8555 | 640.06] loss=1.00 avg=1.14
[8556 | 640.98] loss=0.85 avg=1.14
[8557 | 641.91] loss=1.16 avg=1.14
[8558 | 642.83] loss=1.10 avg=1.14
[8559 | 643.76] loss=0.97 avg=1.13
[8560 | 644.68] loss=1.77 avg=1.14
[8561 | 645.60] loss=1.08 avg=1.14
[8562 | 646.52] loss=1.17 avg=1.14
[8563 | 647.45] loss=1.20 avg=1.14
[8564 | 648.37] loss=1.37 avg=1.14
[8565 | 649.30] loss=0.96 avg=1.14
[8566 | 650.22] loss=1.06 avg=1.14
[8567 | 651.14] loss=1.07 avg=1.14
[8568 | 652.07] loss=0.98 avg=1.14
[8569 | 653.00] loss=1.01 avg=1.14
[8570 | 653.92] loss=1.47 avg=1.14
[8571 | 654.85] loss=1.18 avg=1.14
[8572 | 655.77] loss=1.07 avg=1.14
[8573 | 656.70] loss=0.82 avg=1.14
[8574 | 657.62] loss=0.74 avg=1.13
[8575 | 658.55] loss=1.09 avg=1.13
[8576 | 659.47] loss=0.89 avg=1.13
[8577 | 660.40] loss=1.44 avg=1.13
[8578 | 661.33] loss=0.85 avg=1.13
[8579 | 662.25] loss=1.89 avg=1.14
[8580 | 663.18] loss=1.13 avg=1.14
[8581 | 664.11] loss=0.82 avg=1.13
[8582 | 665.03] loss=1.89 avg=1.14
[8583 | 665.96] loss=0.98 avg=1.14
[8584 | 666.88] loss=1.58 avg=1.14
[8585 | 667.80] loss=0.58 avg=1.14
[8586 | 668.72] loss=1.26 avg=1.14
[8587 | 669.65] loss=0.92 avg=1.14
[8588 | 670.57] loss=1.29 avg=1.14
[8589 | 671.50] loss=0.63 avg=1.13
[8590 | 672.42] loss=0.99 avg=1.13
[8591 | 673.35] loss=1.22 avg=1.13
[8592 | 674.27] loss=1.05 avg=1.13
[8593 | 675.19] loss=1.19 avg=1.13
[8594 | 676.11] loss=0.71 avg=1.13
[8595 | 677.03] loss=1.15 avg=1.13
[8596 | 677.95] loss=0.97 avg=1.13
[8597 | 678.87] loss=1.53 avg=1.13
[8598 | 679.80] loss=1.66 avg=1.14
[8599 | 680.71] loss=0.58 avg=1.13
Generating samples...
======== SAMPLE 1 ========
Info) = nil
`(pr-with-temp-buffer
;; If we are at a string, the buffer with point is
;; moved here. Otherwise the string is moved to the last
;; current line, in opposite direction of the current one.
(pr-with-temp-buffer
;; If the current line already has point as the last
;; text, move the next two strings in the same direction.
(pr-move-to-line (list (string-to-number (point))) nil nil nil
; If point moved here we move to the
;; previous string, nil here we go backwards
;; down.
(setq pos (substring (string-to-number 0 pos))
(string-to-number 0 pos)))
(pr-move-to-line (list (substring (string-to-number pos) 0 0)
0)))
;; If the current line already contains some text, we move it
;; to the next line.
(pr-move-to-line
(list (char-to-string text (substring text pos 1)))
(pr-move-to-line (list (substring text (char-to-number text pos))
(string-to-number pos))
(pr-move-to-line (list (substring text (char-to-number text pos)
pos)))))))
;;; Keybindings
;;
;; These routines give the user control over the keybindings of a
;; language. They are responsible for setting up the keybindings of
;; a language that it knows about. When
;; the user hits `c-key-save' on a word, the word will get the
;; cursor on the corresponding key (e.g. "C-k") and after that, the user is
;; bound to the first key in the list
;; which is the key to click to save the buffer and press the
;; key to choose the buffer. This is called `c-key-save'.
;;
;; If the user clicks on the "c-key-save" after the word is saved,
;; the user in question then has one of three choices:
;;
;; (1) save the buffer, or
;; (2) repeat the action with
;; the key
;;
;; To change the meaning of the corresponding keybind, type the key in
;; each of the following languages: Latin
======== SAMPLE 2 ========
Info-format "%s"
"s" s)))))))
;; ;[lisp-refinement-with-coding-system ctl]
(defun ctl-referenced-to-coding-system (coding-system)
"Rescribe a coding system for a coding file."
;; This has to happen right after point, not at
;; any point in this buffer, because at this point, we're
;; already at `coding-system' (point was not on a cddeb)."
(save-excursion
(cdr (assq coding-system ctl-referenced-to-coding-system)))
(cursor-point))))
(defun ctl-referenced-to-coding-system (coding-system)
"Rescribe a coding system for a coding file."
(interactive)
(save-excursion
(save-restriction
(narrow-to-region (point) (coding-system-create 'coding-system)))
(while (and (not (or (cdr (car (cdr (car (cdr (cdr (cdr (cdr (cdr (cdr (cdr (cdr (cdr (cdr (cdr (cdr (cdr (cdr (= 1 1 " " " " " " " " " " " " "))))))
0))))))
; Not inside any coding system (the value
; was already in the context
; so we don't bother doing the following
; after the default
; of the file
; the default cdr is not yet in the
; buffer
; non-nil
; nil
)
(not (cdr (cdr (car (cdr (cdr (cdr (cdr (cdr (cdr (cdr (cdr (cdr
(" " "
======== SAMPLE 3 ========
Info)
(if (not (string-match str-start name)))
(list name)
(string . (read-printable "Copy to new file name: \nM+ "))))
;;;
;; Return location, or nil if none was found.
;;; (defconst filename-defaults (list current-prefixes default-prefixes))
;;; (defstruct filename-file-locations
;;; (:init-file filename-locations file-id-locative)))
(defvar filename-dir-files nil
"List of directories to be searched for NAME.
A list of the following:
NAME \\ . Name of a directory FILE . The file name returned to
NAME.")
(defvar filename-dir-directory ""))
(defun filename-file-p (filename)
"File FILENAME for a filename to start editing.
Returns a string with the filename value returned by
\\[filename-file-p-setup]. This is used as the first value in
`filename-file-locations'."
(let* ((name (completing-read
"Name to start editing in; NAME \\
FILENAME . \"\\([^\e{4:3:}\\]\\)?\\" (match-string 1)
(file-name-as-directory (expand-file-name (match-string 3)
"\\[.*:[.\\]$\\]"))))
(when (and name
(file-exists-p filename-dir-files)
;; If possible, use the filename to find the file if we
;; know about its contents.
(if (file-exists-p filename-dir-directory)
(progn
(while (file-directory-p filename)
(let ((x file-name-exists-p)
(filename-file-locations filename-dir-files)
(cdr x)
(file-name-nondirectory filename-file-alist)))
(let ((pos (point-min)))
(cond
((and pos (pos-active-p pos-pos))
(concat pos "&$ " (re-search-forward name nil nil t))))
(t (concat (char-to-string pos) " "))))
(t)))))
;; Remove directories as visited.
(put-text-property pos
(min 0 (length name-dir-files
======== SAMPLE 4 ========
Info ((string :initform-input-list
(:startstart
(:maxend (match-end 0))
(:endend (match-end 0))
(:startend
(:maxend
(:startstart (:maxend (match-end 0))
(maxend (match-end 0))
(maxend (match-end 0))
(maxend (match-end 0))))))))))
(define-indentation
(lambda ()
;; Try to use the input field so it aligns with the input in
;; the same form as the input in all contexts, so that all
;; input fields are displayed on the same line in the buffer
(define-indent-type indent-name
(`(,name . ,input-field-name, ,indent-name)
,indent-name)
;; Use the form to adjust the indentation.
(lambda ()
;; Find the form with the type argument (`default-form' will
;; change the form to `default-form, which is not always
;; used in Emacs 20).
(or (stringp (car input-field-form))
(setq string (assq-method input-field-form
`(regexp (car input-field-form))
input-field-form input-field-name)))
;; Replace the last form with the form specified in the
;; form's name (if any), or to correct what the first is.
(let ((form (assq-form-alist input-form-type)))
(or (and form
(not (assq-defun form input-defun-alist)))
(setq form (assq-defun-alist input-defun-alist
'(,input-table
(if (and input-table (aref input-table (length input-table))))
(car input-table))
[8600 | 706.31] loss=1.29 avg=1.13
[8601 | 707.22] loss=0.83 avg=1.13
[8602 | 708.14] loss=0.67 avg=1.13
[8603 | 709.05] loss=0.80 avg=1.12
[8604 | 709.97] loss=0.93 avg=1.12
[8605 | 710.88] loss=0.97 avg=1.12
[8606 | 711.80] loss=1.18 avg=1.12
[8607 | 712.72] loss=1.00 avg=1.12
[8608 | 713.64] loss=0.90 avg=1.12
[8609 | 714.55] loss=1.10 avg=1.12
[8610 | 715.47] loss=1.22 avg=1.12
[8611 | 716.38] loss=0.98 avg=1.12
[8612 | 717.29] loss=0.78 avg=1.11
[8613 | 718.21] loss=1.25 avg=1.11
[8614 | 719.12] loss=1.16 avg=1.11
[8615 | 720.04] loss=1.23 avg=1.12
[8616 | 720.96] loss=0.85 avg=1.11
[8617 | 721.88] loss=1.46 avg=1.12
[8618 | 722.79] loss=0.90 avg=1.11
[8619 | 723.71] loss=1.24 avg=1.11
[8620 | 724.62] loss=0.68 avg=1.11
[8621 | 725.54] loss=1.57 avg=1.12
[8622 | 726.46] loss=1.11 avg=1.12
[8623 | 727.37] loss=1.07 avg=1.11
[8624 | 728.29] loss=1.12 avg=1.11
[8625 | 729.21] loss=1.81 avg=1.12
[8626 | 730.13] loss=1.35 avg=1.12
[8627 | 731.05] loss=1.11 avg=1.12
[8628 | 731.96] loss=1.03 avg=1.12
[8629 | 732.88] loss=0.92 avg=1.12
[8630 | 733.80] loss=1.54 avg=1.13
[8631 | 734.71] loss=1.20 avg=1.13
[8632 | 735.63] loss=1.13 avg=1.13
[8633 | 736.55] loss=1.29 avg=1.13
[8634 | 737.47] loss=0.79 avg=1.12
[8635 | 738.39] loss=1.10 avg=1.12
[8636 | 739.31] loss=1.86 avg=1.13
[8637 | 740.22] loss=0.56 avg=1.13
[8638 | 741.14] loss=0.80 avg=1.12
[8639 | 742.06] loss=1.09 avg=1.12
[8640 | 742.98] loss=1.12 avg=1.12
[8641 | 743.90] loss=0.63 avg=1.12
[8642 | 744.82] loss=1.13 avg=1.12
[8643 | 745.74] loss=1.05 avg=1.12
[8644 | 746.66] loss=1.43 avg=1.12
[8645 | 747.58] loss=1.15 avg=1.12
[8646 | 748.50] loss=1.52 avg=1.12
[8647 | 749.42] loss=0.73 avg=1.12
[8648 | 750.33] loss=1.02 avg=1.12
[8649 | 751.25] loss=0.59 avg=1.11
[8650 | 752.17] loss=1.01 avg=1.11
[8651 | 753.09] loss=1.00 avg=1.11
[8652 | 754.01] loss=1.45 avg=1.11
[8653 | 754.93] loss=0.94 avg=1.11
[8654 | 755.85] loss=0.95 avg=1.11
[8655 | 756.77] loss=1.15 avg=1.11
[8656 | 757.70] loss=1.24 avg=1.11
[8657 | 758.61] loss=0.95 avg=1.11
[8658 | 759.54] loss=0.90 avg=1.11
[8659 | 760.46] loss=1.35 avg=1.11
[8660 | 761.38] loss=1.67 avg=1.12
[8661 | 762.30] loss=0.91 avg=1.12
[8662 | 763.22] loss=1.35 avg=1.12
[8663 | 764.14] loss=1.06 avg=1.12
[8664 | 765.07] loss=1.62 avg=1.12
[8665 | 765.99] loss=0.86 avg=1.12
[8666 | 766.91] loss=0.80 avg=1.12
[8667 | 767.84] loss=1.42 avg=1.12
[8668 | 768.76] loss=0.85 avg=1.12
[8669 | 769.68] loss=1.79 avg=1.12
[8670 | 770.60] loss=1.02 avg=1.12
[8671 | 771.52] loss=1.28 avg=1.12
[8672 | 772.45] loss=1.04 avg=1.12
[8673 | 773.37] loss=0.84 avg=1.12
[8674 | 774.30] loss=1.12 avg=1.12
[8675 | 775.22] loss=1.54 avg=1.12
[8676 | 776.14] loss=1.40 avg=1.13
[8677 | 777.06] loss=0.83 avg=1.12
[8678 | 777.98] loss=2.08 avg=1.13
[8679 | 778.90] loss=1.09 avg=1.13
[8680 | 779.83] loss=1.21 avg=1.13
[8681 | 780.75] loss=0.94 avg=1.13
[8682 | 781.67] loss=0.48 avg=1.13
[8683 | 782.60] loss=0.93 avg=1.12
[8684 | 783.53] loss=0.91 avg=1.12
[8685 | 784.45] loss=1.78 avg=1.13
[8686 | 785.37] loss=1.27 avg=1.13
[8687 | 786.30] loss=0.99 avg=1.13
[8688 | 787.22] loss=0.78 avg=1.12
[8689 | 788.15] loss=1.04 avg=1.12
[8690 | 789.08] loss=0.80 avg=1.12
[8691 | 790.00] loss=0.99 avg=1.12
[8692 | 790.93] loss=1.43 avg=1.12
[8693 | 791.85] loss=0.96 avg=1.12
[8694 | 792.78] loss=1.31 avg=1.12
[8695 | 793.70] loss=1.77 avg=1.13
[8696 | 794.63] loss=1.11 avg=1.13
[8697 | 795.55] loss=1.19 avg=1.13
[8698 | 796.47] loss=0.43 avg=1.12
[8699 | 797.40] loss=1.65 avg=1.13
Generating samples...
======== SAMPLE 1 ========
" ("--help" :help-tag "Add menu element from help string to `message-help'." :tags 'message-help))
("--help-tag (cons :help-tag "List additional help text.")
("--help-tag-1 (cons :help-tag "View help text.")))
("--help-tag-2 (cons :help-tag "Help multiple lines.")))
("--help-tag-3 (cons :help-tag "Show multiple lines.")))
("--help-tag-4 (cons :help-tag "Show multiple rows.")))
("--help-tag-5 (cons :help-tag "Show multiple columns.")))
("--help-tag-6 (cons :help-tag "Show multiple lines.")))
("--help-tag-7 (cons :help-tag "Show multiple paragraphs.")))
("--help-tag-8 (cons :help-tag "Show multiple lines.")))
("--help-tag-9 (cons :help-tag "Show multiple lines.")))
(defgroup help nil)
(defcustom help-toggle-multi-entry _message--help-string
"An error message if the message's multilingual help string is \"Missing help section,\".
This is a very old and annoying message-error-message that is usually a
symbol used by MS programs to be printed in the mail. In my
personal system, it is a bit too long to get rid of, and I want to
do the same now. Please be advised that if you have an
unilingual help string, that could be a warning that the
user already has an error message about the multilingual advice
string. If I am not correct in my message, it could potentially be a
warning that the user already has another error message about this
tramp."
:type 'set
:version "22.1")
(defcustom help-multilingual-helpstring nil
"The multilingual help string.
For example \"" (quail-help-string) (quail-help-string) is a
non-nil value. If optional argument ALIAS is non-nil, it can be any
string. For example: . "\" (quail-help-string) is
an expression. The user may also set the variable
`message-multilingual-help-string-possible-p' to nil if you try or say
it. For example: . "\" (quail-help-string) is
a non-nil value.
If ALIAS is non-nil, the variable `message-multilingual-help-string-possible-p'
will be set to nil if you try or say it. If it is nil. It can't be a
keyword argument that is repeated to complete a multilingual option
list. If ALIAS is non-nil, an error message will be printed."
:type '(choice (const :tag "Missing help section,\"")
(const :tag "Missing help section,\"" error
(const :tag "Missing help topic (nil) ")
(const :tag "Missing help text with multiple help tokens"
(const :tag "Missing help text with multi-help token"
(const :tag "Missing help text with multiple help token"
======== SAMPLE 2 ========
(setq buffer-file-name (match-string 1))
(setq buffer-file-name
(concat " * * * * "
(regexp-quote (car (org-n-in-out-buffer))
(cl-incf buffer-file-name))
(cdr (org-n-in-inout-buffer))
(cdr (org-n-out-in-buffer))
(cdr (org-n-out-out-buffer)))) )
buffer-file-name))
(defun org-n-out-buffer-in-out-buffer ()
"Like an INOUT, but this time only if a buffer is actually in an Inout buffer."
(org-n-in-out-buffer)
(if (eq (org-n-in-out-buffer buffer) 'out-buffer)
(org-out-out buffer)
(let* ((buf (goto-char (point-min))
(buffer-file-name (org-n-in-out-buffer)))
(sorter-buffer (save-excursion
(let ((read (concat "Buffer= %s " (buffer-name buffer)
buffer)))
(org-in-out-buffer buffer)
(when read
(setq buffer-file-name (concat " * * " (org-in-out-buffer))
(cl-incf buffer-file-name))))
(if read
(progn
(goto-char (org-n-out-out-buffer))
(delete-region (match-beginning 1) (point))))
(goto-char (1-
======== SAMPLE 3 ========
;; Update the state of the current process.
;;
;; Current server should be in the local server list, which should
;; be in the process-name context.
(let ((processname (and (memq system-process-name pgg-process-server-regexp)
process-name))
(process-name (or (process-name pgg-process-server-regexp) process-name)
(not (string= process-name process-name))
(or process-name (process-name pgg-process-server-regexp) process-name))))
(push process-name process-name)))
(defun pgg-process-process-regexp (process)
"Return the process name for the current process (or nil if no process.")
(defcustom pgg-process-name nil
"The name of the process that should be parsed.
The process name itself can use `pgg--name-to-be-process'.
This is useful when creating the first server in the server
list or when editing a buffer.
The default is t, so see `pgg-name-to-be-process'.
In a server list for example, using the default would be:
* http://www.example.com\n http://www.example.com/*;
* \\[pgg-server]* http://www.example.com/*;
* \\[pgg-buffer-name] http://www.example.com/*;
If the process is in a buffer, then the user's name is
used by the `list-process' command. If the process is not part of the list
list, the process name is used by the function called by this
function, unless `list-process' is `pgg-process'. If the
process name already exists, then `pgg-process' will be returned."
:group 'pgg-name-to-be-process
:version "25.1"
:package-version '(pgg-compat "pgg-compat"))
(defun pgg-process-server (process-name server &optional state start end &optional default)
"Process the current process in the PGG server list.
The server list is the buffer name of the server (or nil if no server)."
(let ((process-name server)
(state (cons process-state process-name))
(process-name (pgg-process-server-regexp process-name)))
(with-silent-modifications
(if default
(message "Process failed with %s"
pgg-server "Not a server, need to be \"%s\"." (name))))
(pgg-process-server process-name server state start end end default)
(pgg-process-server -1 server state start end)
(pgg-buffer-name)
(pgg-read-file-name)
(pgg-server-set-process-timeout server)
(pgg-server-reset-state server start state end))
(with-current-buffer pgg-server-buffer
(message "/S %d %s\nProcess: \
Process failed\
\nRequest restart, wait %s\n" pgg-server-last-process-name
pgg-server-last-read-dir t)
(pgg-server-reset-state)
(pgg-server-reset-state (buffer-name))
(pgg-get-buffer-create (buffer-
======== SAMPLE 4 ========
(should (stringify (nth 1 (cdar-char (nth 2 (cdr (assoc (cdr (assoc (car m) m))))
m-m-name))))
(should (stringify (nth 3 (cdar-char (nth 4 (cdar-char (nth 3 (cdar-char (nth 1 m)))))))
m-m-name)))
(should (eq (cdr m-name) '((?\s . t))
(car-safe m-name))
(should (stringify (cdr m-name) ',(cdr m-name))))
(should (eq (copy-sequence m-id-name nth 0))))
(should (assoc (nth 1 (cdar-char (cdr m-id-name)))
m-id-name))))
(ert-deftest m-delete-duplex ()
;; Don't delete the whole thing.
(let ((id-mark ()
(cdr (assq (cdr m-mark)) id-mark))))
(should (cdr (assq (cons 'id-mark
(mapcar
(lambda (id-mark-count)
(let ((id-mark-count 2)
(cl-dungeon
(and (not (cdr m-mark))) id-mark-count 1))
(let ((id-mark-count 2))
(cl-dungeon
(let ((id-mark-count 2)))
(cl-dungeon
(and (not (cdr m-mark))) id-mark-count 1))
(cl-dungeon
(and (not (cdr m-mark)))
(cl-dungeon
(and (not (cdr m-mark)) id-mark-
[8700 | 822.94] loss=0.74 avg=1.12
[8701 | 823.86] loss=1.00 avg=1.12
[8702 | 824.77] loss=1.14 avg=1.12
[8703 | 825.68] loss=1.26 avg=1.12
[8704 | 826.60] loss=1.01 avg=1.12
[8705 | 827.51] loss=0.53 avg=1.12
[8706 | 828.43] loss=1.08 avg=1.12
[8707 | 829.34] loss=1.05 avg=1.12
[8708 | 830.25] loss=0.76 avg=1.11
[8709 | 831.16] loss=1.48 avg=1.12
[8710 | 832.08] loss=1.14 avg=1.12
[8711 | 832.99] loss=1.56 avg=1.12
[8712 | 833.90] loss=1.62 avg=1.13
[8713 | 834.82] loss=1.15 avg=1.13
[8714 | 835.73] loss=1.13 avg=1.13
[8715 | 836.64] loss=0.60 avg=1.12
[8716 | 837.55] loss=0.98 avg=1.12
[8717 | 838.47] loss=1.37 avg=1.12
[8718 | 839.38] loss=0.69 avg=1.12
[8719 | 840.29] loss=1.05 avg=1.12
[8720 | 841.21] loss=1.67 avg=1.12
[8721 | 842.12] loss=0.98 avg=1.12
[8722 | 843.04] loss=1.18 avg=1.12
[8723 | 843.96] loss=0.84 avg=1.12
[8724 | 844.88] loss=1.07 avg=1.12
[8725 | 845.79] loss=1.32 avg=1.12
[8726 | 846.71] loss=1.08 avg=1.12
[8727 | 847.62] loss=1.09 avg=1.12
[8728 | 848.54] loss=0.62 avg=1.11
[8729 | 849.46] loss=1.90 avg=1.12
[8730 | 850.38] loss=1.44 avg=1.13
[8731 | 851.29] loss=0.92 avg=1.12
[8732 | 852.22] loss=1.43 avg=1.13
[8733 | 853.14] loss=0.78 avg=1.12
[8734 | 854.06] loss=0.91 avg=1.12
[8735 | 854.98] loss=0.73 avg=1.12
[8736 | 855.89] loss=1.06 avg=1.12
[8737 | 856.81] loss=1.24 avg=1.12
[8738 | 857.73] loss=0.87 avg=1.12
[8739 | 858.65] loss=1.27 avg=1.12
[8740 | 859.57] loss=1.30 avg=1.12
[8741 | 860.49] loss=0.90 avg=1.12
[8742 | 861.41] loss=1.16 avg=1.12
[8743 | 862.33] loss=0.99 avg=1.12
[8744 | 863.25] loss=0.48 avg=1.11
[8745 | 864.17] loss=0.84 avg=1.11
[8746 | 865.08] loss=1.27 avg=1.11
[8747 | 866.01] loss=1.34 avg=1.11
[8748 | 866.93] loss=0.99 avg=1.11
[8749 | 867.85] loss=1.17 avg=1.11
[8750 | 868.77] loss=1.15 avg=1.11
[8751 | 869.69] loss=1.17 avg=1.11
[8752 | 870.62] loss=1.19 avg=1.11
[8753 | 871.54] loss=0.81 avg=1.11
[8754 | 872.46] loss=0.63 avg=1.10
[8755 | 873.38] loss=1.44 avg=1.11
[8756 | 874.31] loss=1.13 avg=1.11
[8757 | 875.23] loss=1.34 avg=1.11
[8758 | 876.15] loss=1.39 avg=1.11
[8759 | 877.07] loss=1.23 avg=1.11
[8760 | 878.00] loss=1.45 avg=1.12
[8761 | 878.92] loss=1.41 avg=1.12
[8762 | 879.84] loss=1.04 avg=1.12
[8763 | 880.77] loss=0.78 avg=1.12
[8764 | 881.69] loss=1.25 avg=1.12
[8765 | 882.62] loss=0.88 avg=1.11
[8766 | 883.54] loss=1.39 avg=1.12
[8767 | 884.46] loss=1.07 avg=1.12
[8768 | 885.38] loss=1.26 avg=1.12
[8769 | 886.31] loss=0.37 avg=1.11
[8770 | 887.23] loss=1.37 avg=1.11
[8771 | 888.15] loss=1.09 avg=1.11
[8772 | 889.08] loss=1.06 avg=1.11
[8773 | 890.00] loss=0.91 avg=1.11
[8774 | 890.92] loss=0.83 avg=1.11
[8775 | 891.84] loss=0.84 avg=1.11
[8776 | 892.76] loss=0.91 avg=1.10
[8777 | 893.69] loss=0.96 avg=1.10
[8778 | 894.60] loss=1.41 avg=1.11
[8779 | 895.53] loss=1.11 avg=1.11
[8780 | 896.45] loss=0.94 avg=1.10
[8781 | 897.37] loss=1.04 avg=1.10
[8782 | 898.30] loss=1.64 avg=1.11
[8783 | 899.22] loss=1.54 avg=1.11
[8784 | 900.14] loss=1.04 avg=1.11
[8785 | 901.06] loss=0.75 avg=1.11
[8786 | 901.98] loss=1.23 avg=1.11
[8787 | 902.90] loss=1.52 avg=1.11
[8788 | 903.82] loss=1.45 avg=1.12
[8789 | 904.74] loss=1.48 avg=1.12
[8790 | 905.66] loss=0.67 avg=1.12
[8791 | 906.58] loss=1.14 avg=1.12
[8792 | 907.50] loss=1.25 avg=1.12
[8793 | 908.43] loss=1.06 avg=1.12
[8794 | 909.35] loss=0.96 avg=1.12
[8795 | 910.27] loss=0.77 avg=1.11
[8796 | 911.20] loss=0.65 avg=1.11
[8797 | 912.12] loss=1.11 avg=1.11
[8798 | 913.04] loss=1.17 avg=1.11
[8799 | 913.96] loss=1.74 avg=1.11
Generating samples...
======== SAMPLE 1 ========
(org-red-buffer)
;; Display "buffer" and "buffer" instead of "emacs-show-text" and "emacs-narrow-to-buffer"
;; in order to make emacs-read-only show "emacs-show-text" in the
;; current buffer. To do that, create the
;; first element (a string as the first element) after point. This
;; does not have an effect except to show emacs-show-text.
(org-red-buffer)
(unless (org-export-window-visible-p (window-buffer)))
(setq buffer-read-only t
emacs-show-text nil))
(and (org-aget t 'emacs-show-text)
emacs-show-text))))
(defun org-set-mode-line (line)
"Set or update the mode line.
PREFIX is the line that starts the line.
CASE-PREFIX is t.
Use with emacs-show-text 1 to display the mode line
in any window.
For more details, see:
\\([org-at]-+\tline \t\\([1-9]+\\)\\s-*\\[^%]\\|[%]+\\)<%>\\s-*"
(org-red-buffer
(let ((line (point-at-eol))
(window (or (car (format "%s" (org-get-text-property line 'org-mode-line)))
(org-get-text-property line 'org-mode-line 'frame-name))))
(current-frame (point-max))
(mode (org-get-mode-line start 'current-frame)))
(setq buffer-read-only t
emacs-show-text nil)))
(defun org-set-mode-lines (line)
"Set or update the mode line.
PREFIX is the line that starts the line.
For more details, see:
\\([org-at]-+\tline \t\\([1-9]+\\)\\s-*\\[^%]\\|[%]+\\)<%>\\s-*"
(org-red-buffer
(let ((line (point-at-eol))
(window (or (cdr (format "\\([^@]\\)\\s-*\\)" (org-get-text-property line 'org-mode-line)))
(org-get-text-property line 'org-mode-line 'frame-name))))
(current-frame (point-max))
(mode (org-get-mode-line start 'current-frame)))
(setq buffer-read-only t
emacs-mode nil)))
; ; ======================================================================;
; This section implements Emacs's mode line (see `emacs-mode').
;; The function `org-mode-line-set-buffer' provides a `comint-at-point' which
; `run' when `emacs-mode' has already been run. The
current buffer, `buffer', may be nil to set this to nil.
; ; In any buffer (non-frame) this function will be called,
; when `run' is set to t, and the current buffer for
======== SAMPLE 2 ========
;; The first arg would look only like an expression (that's really only in `%s':
;; (\"_%s\" %e(^%^)`
(if (integerp '%s)
(setq second (1- arg))
(- (get-form (car arg) ""))
(if (eql (car arg)
(setq char-code arg)))
(if (char-code-string char)
(setq arg (read 2))
(if char-code-function
(setq charcode (car-safe (cadr arg)))
(setq arg (1- arg)))
(setq arg (1- arg)))
;; (string literal char)
(if (string-match "\\´\\(.+\\)[ \t-]\\)*" char
(if (eq char-code-function 'c-chars-list)
(if char-code-function 'c-string-ignoring)
(setq char (setq char (cdr arg))))
;; We should get used to this: for example, in `%s':
;; (\"(!t %e\\|%e\\|%e|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\)\"
(if (eql (car elt)
(if (consp (cadr elt))
(setq elt (1- elt))
(cons (cadr elt) (nth 1 elt) nil)))
(if (char-code-string char)
(setq char (cdr elt)))
;; We should get used to this: for example, in `%s':
;; (\"(!t %e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e
======== SAMPLE 3 ========
;; this is now just a temporary file with unbound non-nil parens, but it's more likely to be the old buffer)
;; This is one of the old-buffer-variables which could be modified by
;; `goto-buffer-start-re' in G-mode's `read-only-hook'.
(save-excursion
(if (looking-at g-mode-reload-hook)
(with-some-restriction
(looking-at "G-mode-reload")))
(goto-char (match-end 0))))
;; A copy of this is not used here (it is not in `save-excursion'
;; but it might be used after this, in which case Emacs will try
;; to take the original (or modified) buffer out of its temporary buffer. (See
;; `goto-buffer-start-re'. (It has also been tested in
;; `read-only-hook' with Emacs 22 (which is called
;; only by `goto-buffer-start-re' as buffer-file-re nil) so that no
;; other buffer or system can write the buffer into the new buffer.)
(goto-char (point-min))
(re-search-forward "^\\s-*\\([#\\]*\\)*\\([0-9]*\\)*\\>\\s-*\\([+\\]" nil t)
(match-end 0))))
(forward-line -1)
(condition-case nil
(setq pos nil)
(error nil)
(setq buffer-file-name (split-string buffer-file-name "\\s-*\\([?A-Z][0-9]+\\)" pos)))
(sit-for 1))
nil)
(defun save-excursion (self)
"Save the state of this current file."
(unless (or (and (boundp 'save-excursion-overlay)
(not (and (looking-at "C-s-*\\([?A-Z]\\)[?0-9]*\\([?A-Z]\\)"))
(looking-back "...\\(?:\\S-+\\(\\S-+\\)*\\([#\t]+\\)?\
[a-zA-Z]\\)?\
[\t]+")
nil)
;; This only saves the current buffer.
(back-to-indentation 'max)
(save-excursion
(set-buffer start-file "G-file" buffer-file-name))))
(defun read-only-hook (beg end &optional ignore)
"Like `save-excursion'.
If `this', don't save the buffer.
If `ignore' then use `ignore-non-read-only'."
(let (buffer-done (save-excursion
(while (or (looking-at (looking-at "^\\s-*\\([.*\\|]*\\)\\) \\([#\\]*\\)\\] +\\)")
(or (re-search-backward "[0-
======== SAMPLE 4 ========
"\\|\\|^\\|([^]\\|[A-Z]*\\)\\|")))
(defmacro flet ((a (purecopy "\\\\^\\|[^]"))
(list "\\|" (purecopy (purecopy "\\\\^\\|[^]")))
"\\|" t 'self))
;; For instance, an operator "\\" in an `as-symbol{}' token matches an ordinary symbol,
;; but one that is "\\[a-zA-Z0-9_.]" where "a" is a symbol.
;; The syntax below defines the type of expression of a symbol, but it does not
;; define the behavior of a literal, or a form whose syntax
;; includes the same syntax. It just defines the syntax as the
;; appropriate one is.
(defmacro flet ((a (purecopy "\\|\\|^\\|[^]'\\|[^]"))
(list "\\|" (purecopy (purecopy "\\|[^]")))
(t 'self))
"List of expressions that support as-symbol characters."
'(:abbrev "\\|" a "\\|" t t nil))
(defmacro flet (_a (purecopy (purecopy "\\\\^")))
"List of expressions that represent a symbol by a function.
The symbol of the list is a symbol of the form (_a), and the
expression is evaluated as an expression."
(:syntax "\\|\\|[^]\\|\\|\\|\\|\\|\\|" (_a (purecopy "\\\\^")))
"List of expressions defining a list (as expression)."
'(:syntax "\\|" an "\\|" t t nil))
;; There is a new symbol for this function. It is "\\|" for a new symbol.
;; But it does not have the same syntax as "\\.\\'" because it is
;; not a literal.
(defmacro flet (_a (purecopy _a (purecopy "\\\\^")))
"List of expressions that represent a list of symbols.
Like `list' in functions, but not as the symbol itself."
;; Flet is a type of function, where `as' is a variable,
;; and `_' is a subtype of "cons", where `cons' is a map and
;; `cons' is a value (an object). A map is a symbol with at least one
;; type, which is a list containing list variables whose values
;; can be symbols. A subtype is an object that has a symbol. A non-nil means it
;; is an object, so it can be a list of symbols that can have
;; any value.
;; Flet is still valid, but you can override this
;; option by setting `syntax-style' to `syntax-class', or by
;; setting `style' to `style', or to `syntax-function'."
;; Flet is valid: it is a func , a func.
(let ((syntax-class (syntax-class 'list))
(syntax-syntax (syntax-syntax 'list)))
(while (< (setq syntax-syntax (syntax-table 'syntax-classes)) 0)
;; If a form has type `func', `apply' and `func-apply',
;; then it forms a value of value `func-apply', and not `apply-if-not'."
(funcall (and (syntax-propertize (syntax-class syntactic-type-function) 'style 'syntax-classes))
(syntax-propertize (syntax-class syntactic-type-function)
(list
[8800 | 939.57] loss=0.78 avg=1.11
[8801 | 940.49] loss=1.50 avg=1.12
[8802 | 941.40] loss=1.35 avg=1.12
[8803 | 942.32] loss=0.97 avg=1.12
[8804 | 943.23] loss=1.01 avg=1.11
[8805 | 944.14] loss=1.23 avg=1.12
[8806 | 945.05] loss=0.63 avg=1.11
[8807 | 945.97] loss=1.37 avg=1.11
[8808 | 946.88] loss=1.14 avg=1.11
[8809 | 947.79] loss=1.76 avg=1.12
[8810 | 948.71] loss=1.34 avg=1.12
[8811 | 949.62] loss=1.30 avg=1.12
[8812 | 950.53] loss=1.15 avg=1.12
[8813 | 951.44] loss=0.86 avg=1.12
[8814 | 952.35] loss=1.10 avg=1.12
[8815 | 953.26] loss=1.12 avg=1.12
[8816 | 954.18] loss=1.21 avg=1.12
[8817 | 955.09] loss=1.83 avg=1.13
[8818 | 956.00] loss=1.20 avg=1.13
[8819 | 956.92] loss=0.86 avg=1.13
[8820 | 957.84] loss=1.38 avg=1.13
[8821 | 958.75] loss=1.45 avg=1.13
[8822 | 959.67] loss=1.24 avg=1.13
[8823 | 960.58] loss=1.40 avg=1.14
[8824 | 961.50] loss=1.17 avg=1.14
[8825 | 962.41] loss=1.15 avg=1.14
[8826 | 963.33] loss=1.28 avg=1.14
[8827 | 964.25] loss=1.16 avg=1.14
[8828 | 965.16] loss=1.39 avg=1.14
[8829 | 966.08] loss=0.90 avg=1.14
[8830 | 967.00] loss=1.20 avg=1.14
[8831 | 967.92] loss=0.86 avg=1.14
[8832 | 968.84] loss=1.47 avg=1.14
[8833 | 969.75] loss=1.06 avg=1.14
[8834 | 970.67] loss=0.63 avg=1.13
[8835 | 971.59] loss=1.46 avg=1.14
[8836 | 972.51] loss=0.89 avg=1.14
[8837 | 973.43] loss=1.04 avg=1.13
[8838 | 974.35] loss=1.07 avg=1.13
[8839 | 975.27] loss=0.98 avg=1.13
[8840 | 976.19] loss=1.11 avg=1.13
[8841 | 977.11] loss=1.33 avg=1.13
[8842 | 978.03] loss=1.37 avg=1.14
[8843 | 978.95] loss=0.97 avg=1.13
[8844 | 979.87] loss=1.09 avg=1.13
[8845 | 980.79] loss=0.97 avg=1.13
[8846 | 981.71] loss=1.20 avg=1.13
[8847 | 982.63] loss=0.86 avg=1.13
[8848 | 983.54] loss=1.15 avg=1.13
[8849 | 984.46] loss=1.16 avg=1.13
[8850 | 985.38] loss=0.75 avg=1.13
[8851 | 986.30] loss=1.55 avg=1.13
[8852 | 987.23] loss=1.08 avg=1.13
[8853 | 988.15] loss=1.03 avg=1.13
[8854 | 989.07] loss=1.00 avg=1.13
[8855 | 989.99] loss=1.21 avg=1.13
[8856 | 990.92] loss=1.12 avg=1.13
[8857 | 991.84] loss=1.04 avg=1.13
[8858 | 992.76] loss=1.27 avg=1.13
[8859 | 993.69] loss=1.11 avg=1.13
[8860 | 994.61] loss=1.33 avg=1.13
[8861 | 995.54] loss=1.36 avg=1.13
[8862 | 996.46] loss=1.02 avg=1.13
[8863 | 997.38] loss=0.87 avg=1.13
[8864 | 998.31] loss=1.44 avg=1.13
[8865 | 999.23] loss=0.85 avg=1.13
[8866 | 1000.16] loss=0.93 avg=1.13
[8867 | 1001.08] loss=1.37 avg=1.13
[8868 | 1002.00] loss=1.01 avg=1.13
[8869 | 1002.93] loss=0.79 avg=1.13
[8870 | 1003.85] loss=1.11 avg=1.13
[8871 | 1004.77] loss=0.88 avg=1.12
[8872 | 1005.70] loss=0.62 avg=1.12
[8873 | 1006.62] loss=1.35 avg=1.12
[8874 | 1007.55] loss=0.91 avg=1.12
[8875 | 1008.47] loss=1.21 avg=1.12
[8876 | 1009.40] loss=1.11 avg=1.12
[8877 | 1010.32] loss=1.42 avg=1.12
[8878 | 1011.24] loss=1.20 avg=1.12
[8879 | 1012.16] loss=1.28 avg=1.13
[8880 | 1013.09] loss=0.87 avg=1.12
[8881 | 1014.01] loss=1.76 avg=1.13
[8882 | 1014.93] loss=1.57 avg=1.13
[8883 | 1015.86] loss=0.95 avg=1.13
[8884 | 1016.78] loss=0.53 avg=1.13
[8885 | 1017.70] loss=0.82 avg=1.12
[8886 | 1018.62] loss=1.38 avg=1.13
[8887 | 1019.54] loss=1.10 avg=1.12
[8888 | 1020.46] loss=1.12 avg=1.12
[8889 | 1021.38] loss=1.38 avg=1.13
[8890 | 1022.30] loss=0.66 avg=1.12
[8891 | 1023.22] loss=0.98 avg=1.12
[8892 | 1024.15] loss=1.18 avg=1.12
[8893 | 1025.07] loss=1.40 avg=1.12
[8894 | 1025.99] loss=0.98 avg=1.12
[8895 | 1026.90] loss=0.72 avg=1.12
[8896 | 1027.82] loss=0.95 avg=1.12
[8897 | 1028.75] loss=1.31 avg=1.12
[8898 | 1029.67] loss=1.20 avg=1.12
[8899 | 1030.60] loss=1.05 avg=1.12
Generating samples...
======== SAMPLE 1 ========
filter-function nil)
(defcustom semantic-gv-auto-mode 'semantic-auto-mode
"Highly customizable mode used for speed and ease of use."
:group 'semantic
:type 'hook)
(defcustom semantic-gv-auto-indent-function 'semantic-auto-indent-function
"Function that is called once, with optional argument `auto-indent' after it.
Non-nil means make this function active in the buffer, using the value of
`semantic-gv-auto-indent'. For example:
(if (save-excursion
(save-restriction
(skip-chars-backward "\\`[ \t]*-*\\([0-9]+\\)?:[ \n]+\\)\\'" nil t)
(save-excursion
(skip-chars-backward "^ \t]+" t)
(setq semantic-gv-auto-indent-function (make-symbol "auto-indent") t)
(if (zerop (skip-chars-forward " \t\\|\\(*[:]?\\)\\s-*\\)?[-:]{")
(setq semantic-gv-auto-indent-function (make-symbol "autoindent")))
(setq semantic-gv-auto-indent-function (make-symbol "auto-indent")))
(if (zerop (skip-chars-forward " \t\\|\\(.*\\)\\(.*\n\\)?\\)?[-:]{")
(setq semantic-gv-auto-indent-function (make-symbol "autoindent")))
(setq semantic-gv-auto-indent-function (make-symbol "autoin")))
(setq semantic-gv-auto-indent-function (make-symbol "autoindent")))
(let ((key-keys (make-symbol :key-function)))
(define-key semantic-gv-auto-indent-function 'font-lock-keywords-function
'(semantic-gv-auto-indent-function)
'font-lock-comment-keyword))
(defvar semantic-gv-auto-prefix-list
'("\\`" . semantic-gv-auto-prefix-key)
"@{" . (semantic-gv-auto-prefix-key))
"Keywords used in auto-indent syntax in Emacs."))
;;;###autoload
(defvar semantic-gv-auto-indent-alist
'("\\([0-9]+\\)" "\\$\\([0-9]+\\)"
["Syntax highlighting for font-lock commands"])
(defun semantic-gv-auto-indent (key code)
"Indent the keystrokes displayed in the current buffer according to the current regexp string.
The symbol `semantic-auto-indent-regexp' is a symbol that is repeated on each
stroke in each buffer. The symbols `semantic-gv-auto-indent-syntax' and
`semantic-gv-auto-indent-syntax-regexp' refer to the same
regexp string which matches any of the following regexp:
`0-9'
`[ \t ]*\\(\\`\\(\\`\\(\\`\\(\\*\\(\\|\\)+\\)\\)\\)\\)\\'"
"Syntax highlighting for font-lock commands in Emacs." ; default to 1
(semantic-gv-auto-indent-regexp key 0)
"Symbol used in auto-indent syntax.")
(prov
======== SAMPLE 2 ========
filter-mode
"Customize Emacs to use `set-window-buffer' to display frames in the window list."
(setq w32-minor-mode-properties
(apply #'custom-properties
(custom-properties-alist
(mapcar (lambda (buffer)
(cons (1+ buffer) (1+ buffer)))
(cons (1+ buffer) (1+ buffer)))
(mapcar (lambda (buffer)
(cons (1* buffer) (1* buffer)))
(cons (1* buffer) (1* buffer)))))))
(deffoo set-window-previous-selected-frame (frame-previous-list)
(let ((w32-pre-view-frame (window-previous-list))))
(set-window-previous-list
nil
(apply #'custom-properties
(apply #'custom-properties
(cons (1+ frame-pre-view-frame)
(1+ nil)))
;; The first frame is marked as this.
(if (featurep 'xemacs)
;; The first frame (the one with the first window
;; ) was marked as this
(setq w32-pre-view-frame nil)
(setq w32-pre-view-frames nil)))
frames)))
(deffoo set-window-previous-selected-in-frame
(apply #'custom-properties
(apply #'custom-properties
(cons (1+ frame-pre-inhibit-selection) w32-pre-inhibit-selection)))
"Customize Emacs to use `set-window-previous-buffer' to display a frame in the frame list."
(let* ((w32-pre-view-inhibit-selection
(cons (1+ frame-pre-inhibit-selection)
(1- frame-pre-inhibit-selection)))
(set-window-previous-buffer
(cons (1- frame-pre-select-buffer)
(1- frame-select-select-buffer))))
(if (featurep 'xemacs)
(if (featurep 'xemacs)
(if (featurep 'xemacs)
(if (featurep 'xemacs)
======== SAMPLE 3 ========
filter-ignore-case p1
'pcase 1 t 1) nil)))
;;
;;(ert-deftest eos-test-completion-test ()
;; ;; Test completions work, however they only work if the user clicks the prefix
;; ;; on a test line. Only if a line contains a non-negative
;; ;; character will a completion prompt prompt for completion.
;; (let* ((prog2
;; (or prog1
;; (prog2 --complete proc
;; (prog1 --ignore proc)))
;; (prog1 --test-complete proc)
;; (prog2 --test proc)
;; (prog1 --test-test proc)
;; (prog1 --test-test proc))))
(defun eos-test-with-pcomplete ()
"Find completion tests that match `prog-def-p' or the value of `prog-def-p'."
(let* ((prompt (point-min))
test)
(while (and (re-search-forward pcomplete-skip t)
(save-excursion
(skip-chars-backward "^ \t:^ \t" pcomplete-skip t)
(skip-chars-backward "\r") (point-min))))
(while (and (re-search-forward prog-def-p t)
(save-excursion
(skip-syntax-backward "![ \t:^']")
(point))
(if (re-search-forward prog-def-p t)
(point)
(point-min)))) nil t))
(defun eos-completion-test (&optional beg end)
"Completes a completion test, or any of the completion tests, if the user clicks on
a test line.
The completion tests operate on completion lines. If a completion line is
found, it is repeated for any non-positive completion line number.
COMPONENTS should come first.
If there is a non-positive completion line for a completion line, return the number point
near the completion line which is the first non-positive completion line."
(setf (point)
(if (not (search-backward "\\s */\\(.\\)" beg end t))
(progn (search-forward "^")
(point-min)
(point-max)))) ; Check completion fails
(while (and (re-search-forward eos-completion-line t)
(/= (point) end)
(/= (point) beg end))
(while (< (point) end)
(setq end (point-min)
======== SAMPLE 4 ========
filter-function-handler c-unmodified-flag)
"-T" (concat "\\.t\\'" c-unmodified-flag)))
(save-buffer
(unless (user-error "Can't change the current buffer"))
(if (c-majors-up (c-list-current-variable c-list-current-variable))
(save-excursion
(goto-char (point-min))
(let ((e
(concat "\\(.*\\|\\s-+[:]*\\s +\\'" c-list-variable-name "\\)\\([^ ]*\\)[ \t]+\\)"
'(("*$" . (car-safe (current-buffer))))))])
(when (> (point) c-max-maximum-width)
(setq c-max-maximum-width (1+ (= c-max-maximum-width)))
;; If a variable was already defined, it was changed
;; to this one
(setcdr-safe (cons c-max-maximum-width c-max-maximum-width
(- (point) c-max-maximum-width)))
(if (< (point) (1- limit))
;; Otherwise, find the beginning of the variable, return
;; it.
(setq c-min-max-width (- max-min-width 3))
(setq c-max-max-width c-max-max-width)
(when (< c-min-max-width 3)
(setq c-max-max-width c-max-max-width)))))))
(forward-line -1))))))
(defun c-set-variable (&optional c)
(interactive)
(goto-char (point-min))
(setq c-set-variable-start nil)
(let ((variable-name
(if (null (car (c-list-variable-name-p variable)))
(setq variable-name c)))
(car (cdr (c-backward-char 1- (- c-list-variable-name-or-start-or-end-or-end)
c-list-variable-name)
c-list-variable-name-or-start-or-end-or-end)
(if (
[8900 | 1056.17] loss=1.93 avg=1.13
[8901 | 1057.09] loss=0.89 avg=1.13
[8902 | 1058.01] loss=1.17 avg=1.13
[8903 | 1058.92] loss=0.92 avg=1.12
[8904 | 1059.84] loss=1.25 avg=1.12
[8905 | 1060.76] loss=1.25 avg=1.13
[8906 | 1061.68] loss=1.42 avg=1.13
[8907 | 1062.60] loss=2.03 avg=1.14
[8908 | 1063.51] loss=1.96 avg=1.15
[8909 | 1064.43] loss=0.78 avg=1.14
[8910 | 1065.34] loss=0.90 avg=1.14
[8911 | 1066.26] loss=1.05 avg=1.14
[8912 | 1067.17] loss=0.90 avg=1.14
[8913 | 1068.09] loss=0.66 avg=1.13
[8914 | 1069.00] loss=0.96 avg=1.13
[8915 | 1069.92] loss=1.33 avg=1.13
[8916 | 1070.84] loss=1.07 avg=1.13
[8917 | 1071.75] loss=1.57 avg=1.14
[8918 | 1072.67] loss=0.84 avg=1.13
[8919 | 1073.58] loss=0.65 avg=1.13
[8920 | 1074.50] loss=0.85 avg=1.13
[8921 | 1075.41] loss=1.12 avg=1.13
[8922 | 1076.33] loss=1.21 avg=1.13
[8923 | 1077.24] loss=1.37 avg=1.13
[8924 | 1078.16] loss=0.98 avg=1.13
[8925 | 1079.07] loss=1.06 avg=1.13
[8926 | 1079.99] loss=0.72 avg=1.12
[8927 | 1080.90] loss=1.19 avg=1.12
[8928 | 1081.82] loss=1.23 avg=1.12
[8929 | 1082.74] loss=1.06 avg=1.12
[8930 | 1083.66] loss=1.32 avg=1.13
[8931 | 1084.57] loss=0.94 avg=1.12
[8932 | 1085.49] loss=0.82 avg=1.12
[8933 | 1086.41] loss=1.18 avg=1.12
[8934 | 1087.33] loss=0.90 avg=1.12
[8935 | 1088.24] loss=0.90 avg=1.12
[8936 | 1089.16] loss=0.96 avg=1.12
[8937 | 1090.08] loss=1.21 avg=1.12
[8938 | 1091.00] loss=0.67 avg=1.11
[8939 | 1091.92] loss=1.14 avg=1.11
[8940 | 1092.84] loss=0.91 avg=1.11
[8941 | 1093.77] loss=1.18 avg=1.11
[8942 | 1094.69] loss=1.29 avg=1.11
[8943 | 1095.61] loss=1.04 avg=1.11
[8944 | 1096.52] loss=1.17 avg=1.11
[8945 | 1097.45] loss=1.19 avg=1.11
[8946 | 1098.37] loss=1.14 avg=1.11
[8947 | 1099.28] loss=1.30 avg=1.12
[8948 | 1100.21] loss=1.00 avg=1.11
[8949 | 1101.13] loss=0.81 avg=1.11
[8950 | 1102.04] loss=1.43 avg=1.11
[8951 | 1102.97] loss=1.19 avg=1.12
[8952 | 1103.89] loss=0.83 avg=1.11
[8953 | 1104.81] loss=0.77 avg=1.11
[8954 | 1105.74] loss=1.24 avg=1.11
[8955 | 1106.66] loss=1.11 avg=1.11
[8956 | 1107.58] loss=1.22 avg=1.11
[8957 | 1108.50] loss=1.57 avg=1.12
[8958 | 1109.42] loss=1.22 avg=1.12
[8959 | 1110.34] loss=1.58 avg=1.12
[8960 | 1111.26] loss=1.23 avg=1.12
[8961 | 1112.18] loss=1.11 avg=1.12
[8962 | 1113.10] loss=1.23 avg=1.12
[8963 | 1114.02] loss=1.00 avg=1.12
[8964 | 1114.93] loss=0.83 avg=1.12
[8965 | 1115.85] loss=1.16 avg=1.12
[8966 | 1116.78] loss=1.48 avg=1.12
[8967 | 1117.70] loss=1.06 avg=1.12
[8968 | 1118.62] loss=1.00 avg=1.12
[8969 | 1119.55] loss=1.25 avg=1.12
[8970 | 1120.47] loss=0.92 avg=1.12
[8971 | 1121.40] loss=1.37 avg=1.12
[8972 | 1122.32] loss=1.11 avg=1.12
[8973 | 1123.25] loss=1.36 avg=1.13
[8974 | 1124.17] loss=1.16 avg=1.13
[8975 | 1125.09] loss=1.17 avg=1.13
[8976 | 1126.02] loss=1.02 avg=1.13
[8977 | 1126.94] loss=1.10 avg=1.12
[8978 | 1127.86] loss=0.97 avg=1.12
[8979 | 1128.79] loss=1.18 avg=1.12
[8980 | 1129.71] loss=1.24 avg=1.13
[8981 | 1130.64] loss=0.88 avg=1.12
[8982 | 1131.56] loss=1.05 avg=1.12
[8983 | 1132.49] loss=1.06 avg=1.12
[8984 | 1133.41] loss=1.26 avg=1.12
[8985 | 1134.33] loss=0.93 avg=1.12
[8986 | 1135.26] loss=1.57 avg=1.13
[8987 | 1136.18] loss=1.01 avg=1.12
[8988 | 1137.11] loss=0.85 avg=1.12
[8989 | 1138.03] loss=1.13 avg=1.12
[8990 | 1138.96] loss=1.29 avg=1.12
[8991 | 1139.88] loss=0.76 avg=1.12
[8992 | 1140.81] loss=0.84 avg=1.12
[8993 | 1141.73] loss=0.98 avg=1.12
[8994 | 1142.65] loss=1.17 avg=1.12
[8995 | 1143.57] loss=0.91 avg=1.11
[8996 | 1144.50] loss=0.99 avg=1.11
[8997 | 1145.42] loss=0.82 avg=1.11
[8998 | 1146.35] loss=0.92 avg=1.11
[8999 | 1147.27] loss=1.06 avg=1.11
Saving checkpoint/run1/model-9000
Generating samples...
======== SAMPLE 1 ========
) (file-name-directory (concat "\\.el\\'" (substring dirname 0 -1)))
(cond
((eq dirname '\\.el) (- -1 (nth (nth 3 (nthcdr dirname))))
(setcdr (nthcdr 2)))))))
((posp pos) (- 1 (- -1 dirname))))
(when dir (mapconcat #'string-to-number dirname ""))
(let ((dir (expand-file-name dir))
(- 1 dirname))))
(provide 'nntp)
;;; nntp.el ends here
;;
;; Local Variables:
;; generated-autoload-file: "loaddefs.el"
;; End:
<|endoftext|>;;; cpp--tests.el
;;; Commentary:
(provide 'cpp-tests)
;;; cpp-tests.el ends here
;;; Copying and Modifying:
(require 'cl-lib)
;;; Code:
(defgroup cpptest nil
"CppTest program."
:group 'cvs
:group 'cvs-test;
:group 'tcp)
(defcustom cpp--test-file-name t
"File name when compiling."
:type '(file)
:group 'cvs
(defcustom cpp-test-test-directory nil
"Non-nil means directory of test files should be included at point; see `cpp-test-directory'."
:type '(choice symbol)
:group 'cvs
:type 'boolean)
(defcustom cpp-test-directory-in-dir 'cpp-test-test-directory-in-dir
"CppTest test file containing test files."
:type '(choice symbol)
:group 'cvs
:type 'string)
(defcustom cpp-test-file-name "test"
"File name if included in output.")
(defcustom cpp-test-output-directory nil
"Directory when output file is in output."
:type '(file)
:group 'cvs
:type 'directory)
(defcustom cpp-test-file-name-directory :test-dir
"The directory where the test output file is to be loaded.
It can be set according to directory specification."
:type '(choice (const nil))
:group 'cvs
:type 'directory)
;;
;; CppTest class library
;;
;;;###autoload
(defun cpp--test-class-library (class)
;; `(cpp--test-library-class ,class))
(defvar cpp-test-library nil
"The class we test.")
(easy-lisp-define (cpp--test-class-library ,class))
(add-in-expand-property
'(cpp--test-class-class ',("a-" (cpp--test-class-get))
cpp-test-class (cpp--test-library-class
nil
class))))
;;
;; CppTest class library, with documentation (optional)
;;
;; This file could also be used with emacs
(require 'cpp-tests)
(defun cpp-test-class-get-class (class)
(progn
(cpp--test-libraryclass (cpp--test-find-class class))
(set (make-local-variable 'cpp-test-libraryclass) :enable-variables nil
'class))
(let ((class (cperl-find-package class)))
(cperl-check-in-output class
(list 'string class (list 'string
:propertize 'cperl-test-test-libraryclass
:type cperl-test-libraryclass))))
(setcdr class cperl-test-libraryclass)
======== SAMPLE 2 ========
)
(org-element-type-with-extra-properties object
:before-end (point)
:after-end (point)
:before-end (point)
:before-start (point))
(when (and (org-element-property :before-end type)
(org-list-item :before-end (point)))))
(not (and (org-element-property :after-end type)
(funcall org-element-property
'after-end (point) (org-element-end-property)))
(nconc (or (org-element-property :after-end type) :before-end))
nil (funcall (funcall :before-end :end))))
(setq-item (if (and (eq type (org-list-item :before-end type :before-end))
(funcall org-element-property :end)) nil))
(setq-item (funcall (make-overlay (point) (point)))
(overlay-start (progn
(overlay-start (point)))))
(if (overlay-start (progn
(overlay-end (point)))) nil
(overlay-start (point))))))
(if (and (funcall org-replace-replace-text
(funcall fill-table replace-table))
(funcall fill-table-replace-text replace-table)))
(list 'copy 'replace nil 'copy (1+ (length replace-table))))))
======== SAMPLE 3 ========
) (unless (cdr vipermanent) (setq vipermanent viperbose-active))
(setq vipermanent t)
(setq vipermanent (cons (list vipermanent) t))
(dolist (e vipermanent) (cons ((eq vipermanent 1) (list 'viper) (list vipermanent))
(setq e (cons (list (list vipermanent) (cons 'vipermanent-mode 1))))
e))))
(defun viperbose-get-activate ()
;; This is the one used a lot. A 'mode' function to activate a viperbose
;; message. We will use it when it is activated in the background.
(let ((buf (cons (list 'mode (list viperbose-mode)))
viperbose-active)
(bufname buffer (vector 0 buffer)))
(when bufname
(setq bufname (current-buffer))
(if (equal buf nil) (setq buf (pop bufname)))
(setq buf (dolist (buffer bufname)
(append (when (cdr (cdr bufname)))
(not (memq (car (caar file))))
(list 'mode-line-function-cached nil ))
;No need to call cdr-mode-function (nil)
(when (called-interactively-p 'interactive)
(apply 'proced-mode-hook nil t))))))
(setq bufn (buffer-substring-no-properties 1000000 0))
(setq bufn (cdr bufn)))
;; Make sure the list is narrowed if the buffer doesn't have it.
(while (and (not nbuf) (equal (list 'mode-line-function-cached nil) nbuf))
(let (entry-buf
(cons (vector (list 'mode-line-function-cached 'list) nbuf))))
(setq entry-buf ; The empty list.
(setq entry-buf (list 'mode-line-function-cached 'list))))
(&bufn (cdr buffer)))
(setq buf (cdr buf))
(when (and (not entry-buf) (equal (list 'vipermanent-mode (list 'vipermanent (list
viperbose-mode-line-list
'vipermanent-mode))
(number-lessp 1)) (error nil))))
(setq buffer
======== SAMPLE 4 ========
)
(when (and (not (eobp))
(stringp (ring-start char))
(string-to-number
(ring-end char)
(ring-begin char))))
(while line
(setq line (ring-begin (ring-end char))))
(cond ((eobp) (setq line (ring-begin char nil))
(setq line (mapconcat (lambda (line)
(if (and (eq (current-buffer-size)
(stringp (ring-start char)))
(eq (current-buffer-size)
(ring-end char)))
(progn
(ring-end (ring-begin char))
(setq line (list line))))
(setq line (append line
(ring-begin line))))
nil t))
((string-match "\\.\\.^.\\.\\*.\\*.\\.\\.*\\(.\\.\\.*?\\).$"
(regexp-quote regexp))
(ring-end nil
(ring-start (ring-end char))
(ring-end nil)))))
(dotimes (i (length line)
(aref p 0
(ring-begin (ring-end char) (ring-end line) p) ; ?\??)
(ring-end (ring-end char)))
(aref p (aref p lines)))
;; In case char starts at end of line, move it.
(skip-chars-backward " ?*:" nil)
(beginning-of-line)
(forward-line (+ ring-end 1)))
(end-of-substring start end)))))
(defun char-to-string (sexp begin end)
;; Write character.
(insert "!" ".")
(if (>= start (aref sexp end))
;; No end position. Write character.
(if (>= end (<= begin end))
[9000 | 1177.75] loss=1.24 avg=1.11
[9001 | 1178.67] loss=0.79 avg=1.11
[9002 | 1179.60] loss=1.13 avg=1.11
[9003 | 1180.51] loss=0.80 avg=1.10
[9004 | 1181.43] loss=0.81 avg=1.10
[9005 | 1182.35] loss=1.27 avg=1.10
[9006 | 1183.28] loss=1.47 avg=1.11
[9007 | 1184.20] loss=1.20 avg=1.11
[9008 | 1185.12] loss=1.25 avg=1.11
[9009 | 1186.04] loss=0.97 avg=1.11
[9010 | 1186.95] loss=0.77 avg=1.10
[9011 | 1187.87] loss=1.33 avg=1.10
[9012 | 1188.78] loss=1.22 avg=1.11
[9013 | 1189.70] loss=1.15 avg=1.11
[9014 | 1190.62] loss=1.18 avg=1.11
[9015 | 1191.54] loss=0.81 avg=1.10
[9016 | 1192.46] loss=0.66 avg=1.10
[9017 | 1193.37] loss=1.30 avg=1.10
[9018 | 1194.29] loss=1.05 avg=1.10
[9019 | 1195.20] loss=1.78 avg=1.11
[9020 | 1196.12] loss=1.43 avg=1.11
[9021 | 1197.04] loss=1.14 avg=1.11
[9022 | 1197.96] loss=0.87 avg=1.11
[9023 | 1198.87] loss=1.16 avg=1.11
[9024 | 1199.79] loss=1.10 avg=1.11
[9025 | 1200.70] loss=1.63 avg=1.11
[9026 | 1201.62] loss=1.41 avg=1.12
[9027 | 1202.54] loss=1.08 avg=1.12
[9028 | 1203.45] loss=1.33 avg=1.12
[9029 | 1204.37] loss=0.89 avg=1.12
[9030 | 1205.28] loss=1.28 avg=1.12
[9031 | 1206.20] loss=1.48 avg=1.12
[9032 | 1207.12] loss=0.66 avg=1.12
[9033 | 1208.03] loss=1.50 avg=1.12
[9034 | 1208.95] loss=1.23 avg=1.12
[9035 | 1209.87] loss=1.30 avg=1.12
[9036 | 1210.79] loss=1.13 avg=1.12
[9037 | 1211.71] loss=1.11 avg=1.12
[9038 | 1212.62] loss=1.09 avg=1.12
[9039 | 1213.54] loss=1.22 avg=1.12
[9040 | 1214.46] loss=1.30 avg=1.13
[9041 | 1215.37] loss=1.21 avg=1.13
[9042 | 1216.29] loss=1.15 avg=1.13
[9043 | 1217.20] loss=1.37 avg=1.13
[9044 | 1218.12] loss=0.93 avg=1.13
[9045 | 1219.04] loss=1.85 avg=1.14
[9046 | 1219.96] loss=1.62 avg=1.14
[9047 | 1220.88] loss=1.24 avg=1.14
[9048 | 1221.81] loss=0.97 avg=1.14
[9049 | 1222.73] loss=0.74 avg=1.14
[9050 | 1223.64] loss=1.20 avg=1.14
[9051 | 1224.56] loss=1.06 avg=1.14
[9052 | 1225.48] loss=0.72 avg=1.13
[9053 | 1226.40] loss=1.09 avg=1.13
[9054 | 1227.32] loss=1.29 avg=1.13
[9055 | 1228.24] loss=1.41 avg=1.13
[9056 | 1229.16] loss=1.15 avg=1.13
[9057 | 1230.08] loss=1.14 avg=1.14
[9058 | 1231.00] loss=1.09 avg=1.13
[9059 | 1231.92] loss=1.12 avg=1.13
[9060 | 1232.84] loss=1.18 avg=1.13
[9061 | 1233.76] loss=1.03 avg=1.13
[9062 | 1234.68] loss=1.20 avg=1.13
[9063 | 1235.60] loss=1.11 avg=1.13
[9064 | 1236.51] loss=1.10 avg=1.13
[9065 | 1237.43] loss=1.10 avg=1.13
[9066 | 1238.35] loss=0.91 avg=1.13
[9067 | 1239.27] loss=1.33 avg=1.13
[9068 | 1240.19] loss=0.92 avg=1.13
[9069 | 1241.11] loss=1.08 avg=1.13
[9070 | 1242.03] loss=1.28 avg=1.13
[9071 | 1242.96] loss=1.67 avg=1.14
[9072 | 1243.87] loss=1.34 avg=1.14
[9073 | 1244.79] loss=1.30 avg=1.14
[9074 | 1245.71] loss=1.36 avg=1.14
[9075 | 1246.63] loss=1.39 avg=1.15
[9076 | 1247.55] loss=1.26 avg=1.15
[9077 | 1248.47] loss=1.01 avg=1.15
[9078 | 1249.39] loss=1.11 avg=1.15
[9079 | 1250.32] loss=1.33 avg=1.15
[9080 | 1251.24] loss=1.01 avg=1.15
[9081 | 1252.16] loss=1.08 avg=1.14
[9082 | 1253.08] loss=1.56 avg=1.15
[9083 | 1254.00] loss=1.24 avg=1.15
[9084 | 1254.92] loss=1.01 avg=1.15
[9085 | 1255.84] loss=1.01 avg=1.15
[9086 | 1256.76] loss=1.17 avg=1.15
[9087 | 1257.68] loss=1.13 avg=1.15
[9088 | 1258.60] loss=0.80 avg=1.14
[9089 | 1259.52] loss=1.33 avg=1.15
[9090 | 1260.43] loss=1.18 avg=1.15
[9091 | 1261.36] loss=0.52 avg=1.14
[9092 | 1262.28] loss=1.22 avg=1.14
[9093 | 1263.20] loss=1.80 avg=1.15
[9094 | 1264.12] loss=0.72 avg=1.14
[9095 | 1265.04] loss=0.80 avg=1.14
[9096 | 1265.96] loss=0.91 avg=1.14
[9097 | 1266.88] loss=1.69 avg=1.14
[9098 | 1267.80] loss=0.79 avg=1.14
[9099 | 1268.72] loss=0.52 avg=1.13
Generating samples...
======== SAMPLE 1 ========
(setq last-modified nil))
(setq last-removed nil))
(if (not (member "--")
(member "---")
(member ":--"))
(format "--%s"
nil
(string-to-number last-modified)
(number-to-string last-modified))))))
(defun org--delete-contents ()
"Removes all occurrences and contents matching a name, if that name contains a \"\\<contents-toc>\" tag."
(if (stringp org--contents-toc)
(let* ((committed "," nil)
(subst (org-element-property :subst) org--contents-toc
(org-parent-parent (org-element-property :type-type org-contents-toc))
(last (org-element-property :tag-id org-contents-toc)))
(org-remove-contents (org-element-property :contents-toc subst)))
(goto-char (org-element-property :tag-id (org-element-contents))))
(if org--last-contents
(if first
(cond
;; No last-contents.
((member org--last-contents
(cl-incf (org-element-type org-contents))
org-contents-contents-last-contents)
(progn
(let ((last (org-element-property :tag-id (org-element-type last))
org-contents-contents-last-contents)
(if (numberp first) last last-contents))))))
(org-remove-contents (org-element-property :contents-toc tag--last-contents))))
;;;###autoload
;;;###autoload
(defun org-remove-contents (subst &optional no)
"Remove all the contents of SUBST and its substrings.
COMPOUND is the position in substring SUBST that was removed, the
most recent value in the same substring, or nil if there was no
substring to remove."
(save-excursion
(when (< (org-element-property :contents (point)) 0)
(save-excursion (goto-char end) (org-element-property :type subst)))
(when org-contents-contents-last-contents
(org-remove-contents (org-element-property :contents-toc subst)))
(org-remove-contents (org-element-property :contents-toc subst))))
;;;###autoload
;;;###autoload
(defun org-remove-contents (subst &optional no)
"Remove all the contents of SUBST and its substrings."
(save-excursion
======== SAMPLE 2 ========
(math-extract-frac t)))))
(let ((calc-tex-range t)
(pos (calc-calc-symbolic-start pos)))
;; Apply the math functions on the data.
(while (re-search-forward "[ \t]+%2b" (car-safe pos)))
(let ((calc-math-range (or (cadr pos)
(car-safe pos))
(math-expand-subtract (nth pos 2)
(nth pos 2)))
(math-extract-frac t))
(if (< (car pos) 0)
(setq pos (- (car pos) (if (= (cddr pos) 2)
1 -1))
(+ pos (car pos))
temp
(if (<= pos 0)
(- (cddr pos) (cddr pos))
temp))))
(math-extract-frac p1
(car pos)
temp)))))
(calc-tex-range (or (cadr pos)
(nth pos)
(math-expand-subtract
(nth pos 2)
(nth pos 2)))
(math-extract-frac (nth qp) temp
======== SAMPLE 3 ========
'(
;; The current buffer should not be changed.
(setq buffer-read-only t)
(if (consp buffer-read-only) (progn
(goto-char (point-min))
(insert-file-contents buffer-file-name)
(nconc `(goto-char (end-of-line)
(forward-line 1))))
(buffer-disable-undo)
;; Save the last buffer to keep the default state.
(setf buffer-read-only nil))
(let* ((buf (get-buffer-create buffer-buffer))
(buf-start nil)
(buf-end nil)
(buffer-substring-no-properties buffer-file-name
(match-beginning 0) (match-end 0))
(buffer-read-only t)
(current-buffer nil)
(current-buffer-undo nil)
(delete-file (nth 1 buffer-file-name) buf)
buf
(delete-file buffer-file-name nil))))
(if (<= (point) buffer-read-only)
(save-excursion
(save-restriction
(nth (min (point) (if (numberp 0)
(char-before b)
(if (= (point) (if (= (length b) b))
(- (point-max) b))))
(if (= (point) (if (= (length b) b))
(- (point-min)
(- (point-max)
======== SAMPLE 4 ========
(save-excursion
(goto-char (point-min))
1)
result)
result))
(forward-line (min btn)))
(if (and result (not (> (- (point) btn) btn))
(not (= btn (% btn result)))
;; There was some buffer cleanup.
(set-buffer-modified-p nil)
(when (looking-at ";;\n\n*"))
(goto-char (forward-line 2))
(delete-region (following-char) beg)
(when (eq (back-of-buffer-same-line) ?\t)
(set-buffer-modified-p nil))
(setq prev-pos (1+ prev-pos))
(setq btn (following-char))
(insert-before-marker (point) next-line)
(set-marker (mark) next-line)))
;; Cleanup of buffer has changed, this should be a proper error
(set-marker next-line (point))
(set-marker next-line (point)
(current-buffer)))
;; Cleanup
(when (>= prev-line btn)
;; Delete current buffer.
(set-marker current-buffer (point))
;; Find buffer closest to current one.
(set-marker buffer (point))
;; We found a buffer closest to current but still far enough to delete
;; it
(if (not (and (eq (following-char) ?\#) (looking-at
(forward-line 1)
(1- (match-beginning 0))))) t
;; We found a buffer closest to current, but
;; far enough to delete it. So delete it.
(set-point prev-line)
(set-marker beg (current-buffer))
(if (not (and (equal btn (> btn btn)))
[9100 | 1294.29] loss=1.06 avg=1.13
[9101 | 1295.21] loss=1.26 avg=1.13
[9102 | 1296.12] loss=1.36 avg=1.14
[9103 | 1297.04] loss=1.05 avg=1.13
[9104 | 1297.96] loss=1.05 avg=1.13
[9105 | 1298.87] loss=1.07 avg=1.13
[9106 | 1299.79] loss=1.06 avg=1.13
[9107 | 1300.70] loss=1.19 avg=1.13
[9108 | 1301.62] loss=1.56 avg=1.14
[9109 | 1302.53] loss=2.04 avg=1.15
[9110 | 1303.45] loss=1.45 avg=1.15
[9111 | 1304.36] loss=1.16 avg=1.15
[9112 | 1305.27] loss=0.47 avg=1.14
[9113 | 1306.19] loss=1.24 avg=1.14
[9114 | 1307.11] loss=1.25 avg=1.14
[9115 | 1308.02] loss=0.49 avg=1.14
[9116 | 1308.93] loss=1.06 avg=1.14
[9117 | 1309.84] loss=0.77 avg=1.13
[9118 | 1310.76] loss=0.81 avg=1.13
[9119 | 1311.67] loss=1.01 avg=1.13
[9120 | 1312.58] loss=1.52 avg=1.13
[9121 | 1313.50] loss=1.60 avg=1.14
[9122 | 1314.42] loss=0.93 avg=1.14
[9123 | 1315.33] loss=0.88 avg=1.13
[9124 | 1316.24] loss=1.60 avg=1.14
[9125 | 1317.16] loss=0.97 avg=1.14
[9126 | 1318.08] loss=0.84 avg=1.13
[9127 | 1318.99] loss=0.62 avg=1.13
[9128 | 1319.91] loss=1.25 avg=1.13
[9129 | 1320.82] loss=1.16 avg=1.13
[9130 | 1321.74] loss=0.82 avg=1.13
[9131 | 1322.66] loss=1.11 avg=1.13
[9132 | 1323.57] loss=0.99 avg=1.13
[9133 | 1324.49] loss=1.00 avg=1.12
[9134 | 1325.40] loss=1.42 avg=1.13
[9135 | 1326.32] loss=1.14 avg=1.13
[9136 | 1327.24] loss=1.35 avg=1.13
[9137 | 1328.16] loss=1.10 avg=1.13
[9138 | 1329.07] loss=1.18 avg=1.13
[9139 | 1329.99] loss=1.67 avg=1.13
[9140 | 1330.91] loss=0.81 avg=1.13
[9141 | 1331.83] loss=0.97 avg=1.13
[9142 | 1332.74] loss=1.06 avg=1.13
[9143 | 1333.66] loss=0.88 avg=1.13
[9144 | 1334.57] loss=1.12 avg=1.13
[9145 | 1335.49] loss=1.10 avg=1.13
[9146 | 1336.41] loss=1.67 avg=1.13
[9147 | 1337.33] loss=1.24 avg=1.13
[9148 | 1338.25] loss=1.19 avg=1.13
[9149 | 1339.17] loss=1.39 avg=1.14
[9150 | 1340.09] loss=0.57 avg=1.13
[9151 | 1341.01] loss=1.38 avg=1.13
[9152 | 1341.93] loss=1.24 avg=1.13
[9153 | 1342.85] loss=1.08 avg=1.13
[9154 | 1343.77] loss=1.08 avg=1.13
[9155 | 1344.69] loss=0.56 avg=1.13
[9156 | 1345.61] loss=0.90 avg=1.12
[9157 | 1346.53] loss=0.84 avg=1.12
[9158 | 1347.45] loss=1.02 avg=1.12
[9159 | 1348.37] loss=1.11 avg=1.12
[9160 | 1349.28] loss=1.33 avg=1.12
[9161 | 1350.20] loss=1.82 avg=1.13
[9162 | 1351.12] loss=1.15 avg=1.13
[9163 | 1352.04] loss=0.94 avg=1.13
[9164 | 1352.97] loss=0.55 avg=1.12
[9165 | 1353.89] loss=1.16 avg=1.12
[9166 | 1354.81] loss=1.13 avg=1.12
[9167 | 1355.73] loss=1.15 avg=1.12
[9168 | 1356.65] loss=1.07 avg=1.12
[9169 | 1357.57] loss=1.17 avg=1.12
[9170 | 1358.50] loss=0.98 avg=1.12
[9171 | 1359.42] loss=1.06 avg=1.12
[9172 | 1360.34] loss=0.58 avg=1.12
[9173 | 1361.26] loss=0.66 avg=1.11
[9174 | 1362.19] loss=1.58 avg=1.12
[9175 | 1363.11] loss=1.08 avg=1.12
[9176 | 1364.03] loss=1.19 avg=1.12
[9177 | 1364.96] loss=0.87 avg=1.11
[9178 | 1365.88] loss=0.90 avg=1.11
[9179 | 1366.80] loss=1.27 avg=1.11
[9180 | 1367.72] loss=1.41 avg=1.12
[9181 | 1368.64] loss=0.85 avg=1.11
[9182 | 1369.56] loss=0.77 avg=1.11
[9183 | 1370.48] loss=1.11 avg=1.11
[9184 | 1371.41] loss=1.92 avg=1.12
[9185 | 1372.33] loss=0.92 avg=1.12
[9186 | 1373.25] loss=1.25 avg=1.12
[9187 | 1374.17] loss=0.95 avg=1.12
[9188 | 1375.09] loss=0.95 avg=1.11
[9189 | 1376.02] loss=1.06 avg=1.11
[9190 | 1376.94] loss=1.14 avg=1.11
[9191 | 1377.87] loss=1.19 avg=1.11
[9192 | 1378.79] loss=0.85 avg=1.11
[9193 | 1379.72] loss=1.40 avg=1.11
[9194 | 1380.64] loss=1.15 avg=1.12
[9195 | 1381.56] loss=1.20 avg=1.12
[9196 | 1382.49] loss=1.21 avg=1.12
[9197 | 1383.41] loss=1.70 avg=1.12
[9198 | 1384.33] loss=1.42 avg=1.13
[9199 | 1385.26] loss=1.01 avg=1.12
Generating samples...
======== SAMPLE 1 ========
(not (match-beginning 3)))
(if (re-search-forward "\\`[0-9]+\\'" prev)
(save-excursion (skip-chars-backward "0") (point))
'(nil nil)
""))
;; Find next matching char in the string.
((and (re-search-forward "\e[0-9]+\\'" (point-max)))
(skip-chars-backward " \e[0-9]+$")))
(t nil)
;; Look through all chars if there is none left.
nil)
(goto-char (point-min))
(setq prev (char-to-string pos))
orig (beginning-of-line))
(while
(<= orig (1- orig))
(when (re-search-forward "\e[0-9]+\\'" (point-min))
(forward-char)
(skip-chars-backward " \e[0-9]+$")))
orig)
;; Look through all chars starting at the beginning of a line.
;; We have found a match for an element, we can move right away.
("")
))
(defvar ada-char-to-character '((; ; "&#x01;&#x02;&&#x03;" ,(save-excursion (forward-char) (point)))))
(defun ada-char-to-char (char beg end)
"Convert CHAR to a character, and save the resulting string.
CONVERT SPC:
\\[ada -]char= " ?\#?\\(ada-char-to-character ?\t)" ada-char)
"Convert SPC to CHAR.
When it is used in a regexp, it is used as a regexp, and it is always treated as an
attribute. In this case it doesn't matter: just convert SPC to
a character." ; uses ? for beginning of a regexp
(setq char (concat char ada-char-to-character)))
;;;
(defun ada-char-to-character-chars (char beg end)
"Convert CHAR to a char with a terminating part.
By doing so, a user will have to change to a character that is
always treated as an attribute. The default value is "&".
BEGIN : If the char is not a terminating part,
return the empty string. CASE-ON . END-ON or
INDEX-ON .
The value is always an integer, nil means never convert it."
(let* ((ch (point))
(end (point-at-eol)) ; ; start of the next char
(chars beg end)
(while (and (not (eq (char-at-bol (point))) ?\;)
(looking-at ada-char-to-character ?\t))
(if (not (match-beginning 3))
(goto-char beg end)
(concat (if (match-beginning 2) (match-beginning 3) ?\{) beg end))
)
(setq chars (make-string (- char (max ?_ (point)))))))
;; If
======== SAMPLE 2 ========
(if (not (string-match "" "\\`" (rmail-cassign-file-p file)))) ; ignore the "^" comment
nil ; only show it when
(if (eobp)
;; no matching comment
(save-excursion
(skip-chars-forward "^\\'")
;; nothing yet
(if (eobp) (eolp)
;; if a file's parent cannot
(setq file-parent
;; parent (not (file-parents-p file))))
;; finally we get a matched file. This case is
;; different from the case of "^" where
;; "^"
(let ((new-files (rmail-cassign-file-p file)))
(rmail-concat-new-files new-files)
(while new-files
(if (file-exists-p file) ; no parent
(setq file-parent
(not (rmail-cassign-file-p file))))
(setq file-parent