Lines Matching refs:expr
2924 expr beg end cmd)
2927 (setq expr (read-string "Expression: ")))
2959 (setq expr (buffer-substring beg end)))
2971 (while (string-match "\n[ \t]*\\(;.*\\)?\r*\n" expr)
2972 (setq expr (replace-match "\n" t t expr)))
2974 (while (string-match "[ \t]*\\$[ \t]*\\(;.*\\)?\\(\n[ \t]*\\|$\\)" expr)
2975 (setq expr (replace-match "" t t expr)))
2977 (if (string-match "\n[ \t\r]*\\'" expr)
2978 (setq expr (replace-match "" t t expr)))
3008 (format "==>%s<==\n%s:" expr (car help-cons))
3013 (format "==>%s<==\n%s:" expr
3021 (setq expr (idlwave-retrieve-expression-from-level
3022 expr
3024 (setq cmd (idlwave-shell-help-statement help expr))
3144 (defun idlwave-retrieve-expression-from-level (expr level)
3166 "\\(\\`\\|[^a-zA-Z0-9$_][ \t]*\\)\\([a-zA-Z][a-zA-Z0-9$_]*\\)\\([ \t]*[^a-zA-Z0-9$_]\\|\\'\\)" expr start)
3167 (setq var (match-string 2 expr)
3169 pre (substring expr 0 (match-beginning 2))
3170 post (substring expr (match-end 2)))
3190 (put-text-property start (- start (length var)) 'fetch t expr))))
3194 (next-single-property-change start 'fetch expr))
3195 (if (get-text-property start 'fetch expr) ; it's on in range
3198 (setq fetch-end (next-single-property-change fetch-start 'fetch expr)))
3199 (unless fetch-end (setq fetch-end (length expr)))
3200 (remove-text-properties fetch-start fetch-end '(fetch) expr)
3201 (setq expr (concat (substring expr 0 fetch-start)
3203 (substring expr fetch-start fetch-end)
3205 (substring expr fetch-end)))
3207 (if (get-text-property 0 'fetch expr) ; Full expression, left over
3208 (setq expr (format "(routine_names('%s',fetch=%d))" expr fetch)))
3209 expr))
3212 (defun idlwave-shell-help-statement (help expr)
3220 (concat "idlwave_print_safe, " expr ","
3225 expr
3228 (concat "help, " expr))))