264 lines
6.6 KiB
EmacsLisp
264 lines
6.6 KiB
EmacsLisp
|
;; Copyright (C) 2015 David Arroyo Menéndez
|
||
|
|
||
|
;; Author: David Arroyo Menéndez <davidam@gnu.org>
|
||
|
;; Maintainer: David Arroyo Menéndez <davidam@gnu.org>
|
||
|
|
||
|
;; This file 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, or (at your option)
|
||
|
;; any later version.
|
||
|
|
||
|
;; This file 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; see the file COPYING. If not, write to
|
||
|
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
||
|
;; Boston, MA 02110-1301 USA,
|
||
|
|
||
|
;; Variable handling functions
|
||
|
;; http://php.net/manual/en/ref.var.php
|
||
|
;; file:///usr/share/doc/php-doc/html/ref.var.html
|
||
|
|
||
|
(define-skeleton php-boolval
|
||
|
"Insert a boolval statement"
|
||
|
""
|
||
|
'(setq variable (skeleton-read "Variable? "))
|
||
|
"boolval(" variable ");"
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-debug_zval_dump
|
||
|
"Insert a debug_zval_dump"
|
||
|
""
|
||
|
'(setq variable (skeleton-read "Variable: "))
|
||
|
"debug_zval_dump(" variable ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-empty
|
||
|
"Insert an empty statement"
|
||
|
""
|
||
|
'(setq variable (skeleton-read "Variable? "))
|
||
|
"empty(" variable ");"
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-floatval
|
||
|
"Insert a floatval statement. Gets the float value of a variable"
|
||
|
""
|
||
|
'(setq variable (skeleton-read "Variable: "))
|
||
|
> "floatval(" variable ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-get_defined_vars
|
||
|
"Insert a get_defined_vars statement. Returns an array of all defined variables"
|
||
|
> "get_defined_vars();" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-get_resource_type
|
||
|
"Insert a get_resource_type statement. Returns the resource type"
|
||
|
""
|
||
|
'(setq variable (skeleton-read "Variable: "))
|
||
|
> "get_resource_type(" variable ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-gettype
|
||
|
"Insert a gettype statement. Returns the type of variable"
|
||
|
""
|
||
|
'(setq variable (skeleton-read "Variable: "))
|
||
|
> "gettype(" variable ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-import_request_variables
|
||
|
"Insert an import_request_variables statement. Import GET/POST/Cookie variables into the global scope"
|
||
|
""
|
||
|
'(setq types (skeleton-read "Types: "))
|
||
|
'(setq prefix (skeleton-read "Prefix: "))
|
||
|
> "import_request_variables(" types ", " prefix ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-intval
|
||
|
"Insert an intval statement."
|
||
|
""
|
||
|
'(setq variable (skeleton-read "Variable: "))
|
||
|
'(setq base (skeleton-read "Base: "))
|
||
|
> "intval(" variable ", " base ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-is_array
|
||
|
"Insert an is_array statement"
|
||
|
""
|
||
|
'(setq variable (skeleton-read "Variable: "))
|
||
|
> "is_array(" variable ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-is_bool
|
||
|
"Insert an is_bool statement"
|
||
|
""
|
||
|
'(setq variable (skeleton-read "Variable: "))
|
||
|
> "is_bool(" variable ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-is_callable
|
||
|
"Insert an is_callable statement"
|
||
|
""
|
||
|
'(setq variable (skeleton-read "Variable: "))
|
||
|
> "is_callable(" variable ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-is_double
|
||
|
"Insert an is_double statement"
|
||
|
""
|
||
|
'(setq variable (skeleton-read "Variable: "))
|
||
|
> "is_double(" variable ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-is_float
|
||
|
"Insert an is_float statement"
|
||
|
""
|
||
|
'(setq variable (skeleton-read "Variable: "))
|
||
|
> "is_float(" variable ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-is_int
|
||
|
"Insert an is_int statement"
|
||
|
""
|
||
|
'(setq variable (skeleton-read "Variable: "))
|
||
|
> "is_int(" variable ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-is_integer
|
||
|
"Insert an is_integer statement"
|
||
|
""
|
||
|
'(setq variable (skeleton-read "Variable: "))
|
||
|
> "is_integer(" variable ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-is_long
|
||
|
"Insert an is_long statement"
|
||
|
""
|
||
|
'(setq variable (skeleton-read "Variable: "))
|
||
|
> "is_long(" variable ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-is_null
|
||
|
"Insert an is_null statement"
|
||
|
""
|
||
|
'(setq variable (skeleton-read "Variable: "))
|
||
|
> "is_null(" variable ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-is_numeric
|
||
|
"Insert an is_numeric statement"
|
||
|
""
|
||
|
'(setq variable (skeleton-read "Variable: "))
|
||
|
> "is_numeric(" variable ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-is_object
|
||
|
"Insert an is_object statement"
|
||
|
""
|
||
|
'(setq variable (skeleton-read "Variable: "))
|
||
|
> "is_object(" variable ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-is_real
|
||
|
"Insert an is_real statement"
|
||
|
""
|
||
|
'(setq variable (skeleton-read "Variable: "))
|
||
|
> "is_real(" variable ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-is_resource
|
||
|
"Insert an is_resource statement"
|
||
|
""
|
||
|
'(setq variable (skeleton-read "Variable: "))
|
||
|
> "is_resource(" variable ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-is_scalar
|
||
|
"Insert an is_scalar statement"
|
||
|
""
|
||
|
'(setq variable (skeleton-read "Variable: "))
|
||
|
> "is_scalar(" variable ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-is_string
|
||
|
"Insert an is_string statement"
|
||
|
""
|
||
|
'(setq variable (skeleton-read "Variable: "))
|
||
|
> "is_string(" variable ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-isset
|
||
|
"Insert an isset statement"
|
||
|
""
|
||
|
'(setq variable (skeleton-read "Variable: "))
|
||
|
> "isset(" variable ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-print_r
|
||
|
"Insert a print_r statement"
|
||
|
""
|
||
|
'(setq expression (skeleton-read "Expression: "))
|
||
|
'(setq return (skeleton-read "Return (true | false): "))
|
||
|
> "print_r(" expression ", " return ");"
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-serialize
|
||
|
"Insert an serialize statement. Generates a storable representation of a value
|
||
|
"
|
||
|
""
|
||
|
'(setq variable (skeleton-read "Variable: "))
|
||
|
> "serialize(" variable ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-settype
|
||
|
"Insert a settype statement. Set the type of a variable"
|
||
|
""
|
||
|
'(setq variable (skeleton-read "Variable: "))
|
||
|
'(setq type (skeleton-read "Type: "))
|
||
|
> "settype(" variable ", " type ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-strval
|
||
|
"Insert a strval statement. Get string value of a variable"
|
||
|
""
|
||
|
'(setq variable (skeleton-read "Variable: "))
|
||
|
> "strval(" variable ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-unserialize
|
||
|
"Insert an unserialize statement. Creates a php value from a stored representation"
|
||
|
""
|
||
|
'(setq variable (skeleton-read "Variable: "))
|
||
|
> "unserialize(" variable ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-unset
|
||
|
"Insert an unset statement. Unset a given variable."
|
||
|
""
|
||
|
'(setq variable (skeleton-read "Variable: "))
|
||
|
> "unset(" variable ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-var_dump
|
||
|
"Insert a var_dump statement"
|
||
|
""
|
||
|
'(setq variable (skeleton-read "Variable? "))
|
||
|
> "var_dump(" variable
|
||
|
( "Other variable? %s: "
|
||
|
> ", " str )
|
||
|
> ");"
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-var_export
|
||
|
"Insert a var_export statement"
|
||
|
""
|
||
|
'(setq variable (skeleton-read "Variable? "))
|
||
|
'(setq return (skeleton-read "Return? "))
|
||
|
> "var_export(" variable ", " return ");" \n
|
||
|
)
|
||
|
|
||
|
|