591 lines
18 KiB
EmacsLisp
591 lines
18 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,
|
||
|
|
||
|
;; To install php-ext.el:
|
||
|
;; You can add (load "path/php-ext/php-ext.el") to your .emacs
|
||
|
|
||
|
;; Filesystem Functions
|
||
|
;; http://php.net/manual/en/ref.filesystem.php
|
||
|
;; file:///usr/share/doc/php-doc/html/ref.filesystem.html
|
||
|
|
||
|
(define-skeleton php-basename
|
||
|
"Insert an addcslashes statement"
|
||
|
""
|
||
|
'(setq path (skeleton-read "Path: "))
|
||
|
'(setq suffix (skeleton-read "Suffix? "))
|
||
|
> "basename(" path ", " suffix ");" \n)
|
||
|
|
||
|
(define-skeleton php-chgrp
|
||
|
"Insert a chgrp statemt"
|
||
|
""
|
||
|
'(setq filename (skeleton-read "Filename: "))
|
||
|
'(setq group (skeleton-read "Group: "))
|
||
|
> "chgrp(" filename ", " group ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-chmod
|
||
|
"Insert a chmod statement."
|
||
|
""
|
||
|
'(setq filename (skeleton-read "Filename: "))
|
||
|
'(setq perm (skeleton-read "Permissions: "))
|
||
|
> "chmod(" filename ", " perm ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-clearstatcache
|
||
|
"Insert a clearstatcache statement."
|
||
|
> "clearstatcache();" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-copy
|
||
|
"Insert a clearstatcache statement."
|
||
|
""
|
||
|
'(setq file1 (skeleton-read "Filename 1: "))
|
||
|
'(setq file2 (skeleton-read "Filename 2: "))
|
||
|
> "copy(" file1 ", " file2 ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-dirname
|
||
|
"Insert a dirname statement."
|
||
|
""
|
||
|
'(setq dir (skeleton-read "Dirname: "))
|
||
|
> "dirname(" dir ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-disk_free_space
|
||
|
"Insert a disk_free_space statement."
|
||
|
""
|
||
|
'(setq dir (skeleton-read "Directory: "))
|
||
|
> "disk_free_space(" dir ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-disk_total_space
|
||
|
"Insert a disk_total_space statement."
|
||
|
""
|
||
|
'(setq dir (skeleton-read "Directory: "))
|
||
|
> "disk_total_space(" dir ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-fclose
|
||
|
"Insert a fclose statement. fclose closes an open file pointer"
|
||
|
""
|
||
|
'(setq handle (skeleton-read "handle: "))
|
||
|
> "fclose(" handle ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-feof
|
||
|
"Insert a feof statement. feof tests for end-of-file on a file pointer"
|
||
|
""
|
||
|
'(setq file (skeleton-read "file: "))
|
||
|
> "feof(" file ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-fflush
|
||
|
"Insert a fflush statement. fflush flushes the output to a file"
|
||
|
""
|
||
|
'(setq file (skeleton-read "file: "))
|
||
|
> "fflush(" file ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-fgetc
|
||
|
"Insert a fgetc statement. fgetc gets character from file pointer"
|
||
|
""
|
||
|
'(setq handle (skeleton-read "handle: "))
|
||
|
> "fgetc(" handle ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-fgetcsv
|
||
|
"Insert a fgetcsv statement. fgetcsv gets line from file pointer and parse for CSV fields"
|
||
|
""
|
||
|
'(setq handle (skeleton-read "handle: "))
|
||
|
'(setq length (skeleton-read "length: "))
|
||
|
'(setq delimiter (skeleton-read "delimiter: "))
|
||
|
'(setq enclosure (skeleton-read "enclosure: "))
|
||
|
'(setq escape (skeleton-read "escape: "))
|
||
|
> "fgetc(" handle ", " length ", " delimiter ", " enclosure ", " escape ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-fgets
|
||
|
"Insert a fgets statement. Fgets gets line from file pointer"
|
||
|
""
|
||
|
'(setq handle (skeleton-read "handle: "))
|
||
|
'(setq length (skeleton-read "length: "))
|
||
|
> "fgets(" handle ", " length ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-fgetss
|
||
|
"Insert a fgetss statement. Fgets gets line from file pointer and strip HTML tags"
|
||
|
""
|
||
|
'(setq handle (skeleton-read "handle: "))
|
||
|
'(setq length (skeleton-read "length: "))
|
||
|
'(setq allowable_tags (skeleton-read "allowable_tags: "))
|
||
|
> "fgets(" handle ", " length ", " allowable_tags ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-file_exists
|
||
|
"Insert a file_exists statement."
|
||
|
""
|
||
|
'(setq file (skeleton-read "file: "))
|
||
|
> "file_exists(" file ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-file_get_contents
|
||
|
"Insert a file_get_contents statement. file_get_contents reads entire file into a string"
|
||
|
""
|
||
|
'(setq filename (skeleton-read "filename: "))
|
||
|
'(setq use_include_path (skeleton-read "use_include_path: "))
|
||
|
'(setq resource (skeleton-read "resource: "))
|
||
|
'(setq offset (skeleton-read "offset: "))
|
||
|
'(setq maxlen (skeleton-read "maxlen: "))
|
||
|
> "file_get_contents(" filename ", " use_include_path ", " resource ", " offset ", " maxlen ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-file_put_contents
|
||
|
"Insert a file_put_contents statement. file_put_contents writes a string to a file"
|
||
|
""
|
||
|
'(setq filename (skeleton-read "filename: "))
|
||
|
'(setq data (skeleton-read "data: "))
|
||
|
'(setq flags (skeleton-read "flags: "))
|
||
|
'(setq context (skeleton-read "context: "))
|
||
|
> "file_put_contents(" filename ", " data ", " flags ", " context ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-file
|
||
|
"Insert a file statement. file reads a string into an array"
|
||
|
""
|
||
|
'(setq filename (skeleton-read "filename: "))
|
||
|
'(setq flags (skeleton-read "flags: "))
|
||
|
'(setq context (skeleton-read "context: "))
|
||
|
> "file(" filename ", " flags ", " context ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-fileatime
|
||
|
"Insert a fileatime statement. fileatime gets last access time of file"
|
||
|
""
|
||
|
'(setq filename (skeleton-read "filename: "))
|
||
|
> "fileatime(" filename ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-filectime
|
||
|
"Insert a filectime statement. filectime gets inode change time of file"
|
||
|
""
|
||
|
'(setq filename (skeleton-read "filectime: "))
|
||
|
> "filectime(" filename ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-fileinode
|
||
|
"Insert a fileinode statement. fileinode gets the file inode"
|
||
|
""
|
||
|
'(setq filename (skeleton-read "fileinode: "))
|
||
|
> "fileinode(" filename ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-filemtime
|
||
|
"Insert a filemtime statement. filemtime gets the file modification"
|
||
|
""
|
||
|
'(setq filename (skeleton-read "filemtime: "))
|
||
|
> "filemtime(" filename ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-fileowner
|
||
|
"Insert a fileowner statement. fileowner gets the file owner"
|
||
|
""
|
||
|
'(setq filename (skeleton-read "fileowner: "))
|
||
|
> "fileowner(" filename ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-fileperms
|
||
|
"Insert a fileperms statement. fileperms gets the file permissions"
|
||
|
""
|
||
|
'(setq filename (skeleton-read "fileperms: "))
|
||
|
> "fileperms(" filename ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-filesize
|
||
|
"Insert a filesize statement. filesize gets the size for the given file"
|
||
|
'(setq filename (skeleton-read "filesize: "))
|
||
|
> "filesize(" filename ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-filetype
|
||
|
"Insert a filetype statement. filetype gets the type for the given file"
|
||
|
'(setq filename (skeleton-read "filetype: "))
|
||
|
> "filetype(" filename ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-flock
|
||
|
"Insert a flock statement. flock is a portable advisory file locking"
|
||
|
""
|
||
|
'(setq handle (skeleton-read "handle: "))
|
||
|
'(setq operation (skeleton-read "operation: "))
|
||
|
'(setq wouldblock (skeleton-read "wouldblock: "))
|
||
|
> "flock(" handle ", " operation ", " wouldblock ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-fnmatch
|
||
|
"Insert a fnmatch statement. fnmatch match filename against a pattern"
|
||
|
""
|
||
|
'(setq pattern (skeleton-read "pattern: "))
|
||
|
'(setq string (skeleton-read "string: "))
|
||
|
'(setq flags (skeleton-read "flags: "))
|
||
|
> "fnmatch(" pattern ", " string ", " flags ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-fopen
|
||
|
"Insert a fopen statement. fopen binds a named resource"
|
||
|
""
|
||
|
'(setq filename (skeleton-read "filename: "))
|
||
|
'(setq mode (skeleton-read "mode: "))
|
||
|
'(setq use_include_path (skeleton-read "use_include_path: "))
|
||
|
'(setq context (skeleton-read "context: "))
|
||
|
> "fopen(" filename ", " mode ", " use_include_path ", " context ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-fpassthru
|
||
|
"Insert a fpassthru statement. fpassthru output all remaining data on a file pointer"
|
||
|
""
|
||
|
'(setq handle (skeleton-read "handle: "))
|
||
|
> "fpassthru(" handle ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-fputcsv
|
||
|
"Insert a fputcsv statement. fputcsv formats line as csv and write to file pointer"
|
||
|
""
|
||
|
'(setq handle (skeleton-read "handle: "))
|
||
|
'(setq fields (skeleton-read "fields: "))
|
||
|
'(setq delimiter (skeleton-read "delimiter: "))
|
||
|
'(setq enclosure (skeleton-read "enclosure: "))
|
||
|
> "fputcsv(" handle ", " fields ", " delimiter ", " enclosure ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-fread
|
||
|
"Insert a fread statement. Binary-safe file read"
|
||
|
""
|
||
|
'(setq handle (skeleton-read "handle: "))
|
||
|
'(setq length (skeleton-read "length: "))
|
||
|
> "fread(" handle ", " length ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-fscanf
|
||
|
"Insert a fscanf statement. fscanf parses input from a file according to a format"
|
||
|
""
|
||
|
'(setq handle (skeleton-read "handle: "))
|
||
|
'(setq format (skeleton-read "format: "))
|
||
|
> "fscanf(" handle ", " format ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-fseek
|
||
|
"Insert a fseek statement. fseek seeks on a file pointer."
|
||
|
""
|
||
|
'(setq handle (skeleton-read "handle: "))
|
||
|
'(setq offset (skeleton-read "offset: "))
|
||
|
'(setq whence (skeleton-read "whence: "))
|
||
|
> "fseek(" handle ", " offset ", " whence ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-fstat
|
||
|
"Insert a fstat statement. fstat gets information about a file using an open file pointer"
|
||
|
""
|
||
|
'(setq handle (skeleton-read "handle: "))
|
||
|
> "fstat(" handle ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-ftell
|
||
|
"Insert a ftell statement. ftell returns the current position of the file read/write pointer"
|
||
|
""
|
||
|
'(setq handle (skeleton-read "handle: "))
|
||
|
> "ftell(" handle ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-ftruncate
|
||
|
"Insert a ftruncate statement. ftruncate truncates a file to a given length"
|
||
|
""
|
||
|
'(setq handle (skeleton-read "handle: "))
|
||
|
'(setq size (skeleton-read "size: "))
|
||
|
> "ftruncate(" handle ", " size ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-fwrite
|
||
|
"Insert a fwrite statement. Binary safe file write"
|
||
|
'(setq handle (skeleton-read "handle: "))
|
||
|
'(setq string (skeleton-read "string: "))
|
||
|
'(setq length (skeleton-read "length: "))
|
||
|
> "fwrite(" handle ", " string ", " length ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-glob
|
||
|
"Insert a glob statement. Find pathnames matching a pattern"
|
||
|
'(setq pattern (skeleton-read "pattern: "))
|
||
|
'(setq flags (skeleton-read "flags: "))
|
||
|
> "glob(" pattern ", " flags ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-is_dir
|
||
|
"Insert a is_dir statement. is_dir tells whether the filename is a directory"
|
||
|
""
|
||
|
'(setq filename (skeleton-read "filename: "))
|
||
|
> "is_dir(" filename ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-is_executable
|
||
|
"Insert a is_executable statement. is_executable tells whether the filename is a executable"
|
||
|
""
|
||
|
'(setq filename (skeleton-read "filename: "))
|
||
|
> "is_executable(" filename ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-is_file
|
||
|
"Insert a is_file statement. is_file tells whether the filename is a regular file"
|
||
|
'(setq filename (skeleton-read "filename: "))
|
||
|
> "is_file(" filename ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-is_link
|
||
|
"Insert a is_link statement. is_link tells whether the filename is a symbolic link"
|
||
|
""
|
||
|
'(setq filename (skeleton-read "filename: "))
|
||
|
> "is_link(" filename ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-is_readable
|
||
|
"Insert a is_readable statement. is_readable tells whether the filename is a readable"
|
||
|
""
|
||
|
'(setq filename (skeleton-read "filename: "))
|
||
|
> "is_readable(" filename ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-is_uploaded_file
|
||
|
"Insert a is_uploaded_file statement. is_uploaded_file tells whether the filename is a executable"
|
||
|
""
|
||
|
'(setq filename (skeleton-read "filename: "))
|
||
|
> "is_uploaded_file(" filename ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-is_writable
|
||
|
"Insert a is_writable statement. is_writable tells whether the filename is a writable"
|
||
|
""
|
||
|
'(setq filename (skeleton-read "filename: "))
|
||
|
> "is_writable(" filename ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-lchgrp
|
||
|
"Insert a lchgrp statement. lchgrp changes group ownership of symlink"
|
||
|
""
|
||
|
'(setq filename (skeleton-read "filename: "))
|
||
|
'(setq group (skeleton-read "group: "))
|
||
|
> "lchgrp(" filename ", " group ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-lchown
|
||
|
"Insert a lchown statement. lchown changes user ownership of symlink"
|
||
|
""
|
||
|
'(setq filename (skeleton-read "filename: "))
|
||
|
'(setq user (skeleton-read "user: "))
|
||
|
> "lchown(" filename ", " user ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-link
|
||
|
"Insert a link statement. link creates a hard link"
|
||
|
""
|
||
|
'(setq target (skeleton-read "target of the link: "))
|
||
|
'(setq link (skeleton-read "link: "))
|
||
|
> "link(" target ", " link ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-linkinfo
|
||
|
"Insert a linkinfo statement. linkinfo gets information about a link"
|
||
|
""
|
||
|
'(setq path (skeleton-read "path of the link: "))
|
||
|
> "linkinfo(" path ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-lstat
|
||
|
"Insert a lstat statement. lstat gives information about a symbolic link or file"
|
||
|
""
|
||
|
'(setq path (skeleton-read "path of the link: "))
|
||
|
> "lstat(" path ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-mkdir
|
||
|
"Insert a mkdir statement. mkdir makes a directory"
|
||
|
""
|
||
|
'(setq path (skeleton-read "path: "))
|
||
|
'(setq mode (skeleton-read "permissions mode (numeric): "))
|
||
|
'(setq recursive (skeleton-read "recursive: "))
|
||
|
'(setq resource (skeleton-read "context: "))
|
||
|
> "mkdir(" path ", " mode ", " recursive ", " resource ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-move_uploaded_file
|
||
|
"Insert a move_uploaded_file statement. move an uploaded file to a new location"
|
||
|
""
|
||
|
'(setq filename (skeleton-read "filename: "))
|
||
|
'(setq destination (skeleton-read "destination: "))
|
||
|
> "move_uploaded_file(" filename ", " destination ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-parse_ini_file
|
||
|
"Insert a parse_ini_file statement. parse_ini_file parses a configuration file"
|
||
|
""
|
||
|
'(setq filename (skeleton-read "filename: "))
|
||
|
'(setq process_sections (skeleton-read "process sections: "))
|
||
|
'(setq scanner_mode (skeleton-read "scanner mode: "))
|
||
|
> "parse_ini_file(" filename ", " process_sections ", " scanner_mode ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-parse_ini_string
|
||
|
"Insert a parse_ini_string statement. parse_ini_string parses a configuration string"
|
||
|
""
|
||
|
'(setq string (skeleton-read "string: "))
|
||
|
'(setq process_sections (skeleton-read "process sections: "))
|
||
|
'(setq scanner_mode (skeleton-read "scanner mode: "))
|
||
|
> "parse_ini_string(" string ", " process_sections ", " scanner_mode ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-pathinfo
|
||
|
"Insert a pathinfo statement. pathinfo returns information about a file path"
|
||
|
""
|
||
|
'(setq path (skeleton-read "path: "))
|
||
|
'(setq options (skeleton-read "options: "))
|
||
|
> "pathinfo(" path ", " options ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-pclose
|
||
|
"Insert a pclose statement. pclose closes process file pointer"
|
||
|
""
|
||
|
'(setq handle (skeleton-read "handle: "))
|
||
|
> "pclose(" handle ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-popen
|
||
|
"Insert a popen statement. popen opens process file pointer"
|
||
|
""
|
||
|
'(setq command (skeleton-read "command: "))
|
||
|
'(setq mode (skeleton-read "mode: "))
|
||
|
> "popen(" command ", " mode ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-readfile
|
||
|
"Insert a readfile statement. readfile outputs a file"
|
||
|
""
|
||
|
'(setq filename (skeleton-read "filename: "))
|
||
|
'(setq use_include_path (skeleton-read "use_include_path: "))
|
||
|
'(setq context (skeleton-read "context: "))
|
||
|
> "readfile(" filename ", " use_include_path ", " context ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-readlink
|
||
|
"Insert a readlink statement. readlink returns the target of the symbolic link."
|
||
|
""
|
||
|
'(setq path (skeleton-read "path: "))
|
||
|
> "readlink(" path ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-realpath_cache_get
|
||
|
"Insert a realpath_cache_get statement. Returns an array of realpath cache entries."
|
||
|
> "realpath_cache_get();" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-realpath_cache_size
|
||
|
"Insert a realpath_cache_size statement. Get the amount of memory used by the realpath cache"
|
||
|
> "realpath_cache_size();" \n
|
||
|
)
|
||
|
|
||
|
|
||
|
(define-skeleton php-realpath
|
||
|
"Insert a realpath statement. realpath expands all symbolic links and resolves references to '/./', '/../' and extra '/' characters in the input path and returns the canonicalized absolute pathname."
|
||
|
""
|
||
|
'(setq path (skeleton-read "path: "))
|
||
|
> "realpath(" path ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-rename
|
||
|
"Insert a rename statement. Renames a file or directory"
|
||
|
""
|
||
|
'(setq oldname (skeleton-read "oldname: "))
|
||
|
'(setq newname (skeleton-read "newname: "))
|
||
|
'(setq context (skeleton-read "context: "))
|
||
|
> "rename(" oldname ", " newname ", " context ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-rewind
|
||
|
"Insert a rewind statement. Rewind the position of a file pointer"
|
||
|
""
|
||
|
'(setq handle (skeleton-read "handle: "))
|
||
|
> "rewind(" handle ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-rmdir
|
||
|
"Insert a rmdir statement. Removes directory."
|
||
|
""
|
||
|
'(setq dirname (skeleton-read "dirname: "))
|
||
|
> "rmdir(" dirname ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-stat
|
||
|
"Insert a stat statement. Gives information about a file."
|
||
|
'(setq filename (skeleton-read "filename: "))
|
||
|
> "stat(" filename ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-symlink
|
||
|
"Insert a symlink statement. symlink creates a symbolic link."
|
||
|
""
|
||
|
'(setq target (skeleton-read "target: "))
|
||
|
'(setq link (skeleton-read "link: "))
|
||
|
> "symlink(" target ", " link ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-tempnam
|
||
|
"Insert a tempname statement. tempnam creates file with unique file name."
|
||
|
""
|
||
|
'(setq dir (skeleton-read "directory: "))
|
||
|
'(setq prefix (skeleton-read "prefix: "))
|
||
|
> "tempnam(" dir ", " prefix ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-tmpfile
|
||
|
"Insert a tmpfile statement. tmpfile creates a temporary file."
|
||
|
> "tmpfile();" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-touch
|
||
|
"Insert a touch statement. touch set access and modification time of file."
|
||
|
""
|
||
|
'(setq filename (skeleton-read "filename: "))
|
||
|
'(setq time (skeleton-read "time: "))
|
||
|
'(setq atime (skeleton-read "atime: "))
|
||
|
> "touch(" filename ", " time ", " atime ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-umask
|
||
|
"Insert umask statement. Changes the current umask."
|
||
|
""
|
||
|
'(setq mask (skeleton-read "mask: "))
|
||
|
> "umask(" mask ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-unlink
|
||
|
"Insert unlink statement. Deletes a file."
|
||
|
""
|
||
|
'(setq filename (skeleton-read "filename: "))
|
||
|
'(setq context (skeleton-read "context: "))
|
||
|
> "unlink(" filename ", " context ");" \n
|
||
|
)
|