103 lines
3.0 KiB
EmacsLisp
103 lines
3.0 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,
|
||
|
|
||
|
;; Dio Functions
|
||
|
;; http://php.net/manual/en/ref.dio.php
|
||
|
;; file:///usr/share/doc/php-doc/html/ref.dio.html
|
||
|
|
||
|
|
||
|
(define-skeleton php-dio_close
|
||
|
"Insert a dio_close statement"
|
||
|
""
|
||
|
'(setq fd (skeleton-read "File Descriptor: "))
|
||
|
> "dio_close(" fd ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-dio_fcntl
|
||
|
"Insert a dio_fcntl statement"
|
||
|
""
|
||
|
'(setq fd (skeleton-read "File Descriptor: "))
|
||
|
'(setq cmd (skeleton-read "Command: (F_SETLK | F_SETLKW | F_GETLK | F_DUPFD | F_SETFL ) "))
|
||
|
|
||
|
'(setq args (skeleton-read "Args: (start | length | whence | type ) "))
|
||
|
> "dio_fcntl(" fd ", " cmd ", " args ");" \n
|
||
|
)
|
||
|
|
||
|
|
||
|
(define-skeleton php-dio_open
|
||
|
"Insert a dio_open statement"
|
||
|
""
|
||
|
'(setq filename (skeleton-read "Filename: "))
|
||
|
'(setq flags (skeleton-read "Flags: "))
|
||
|
'(setq mode (skeleton-read "Mode: "))
|
||
|
> "dio_open(" filename ", " flags ", " mode ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-dio_read
|
||
|
"Insert a dio_read statement"
|
||
|
""
|
||
|
'(setq fd (skeleton-read "File Descriptor: "))
|
||
|
'(setq length (skeleton-read "Length: "))
|
||
|
> "dio_read(" fd ", " length ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-dio_seek
|
||
|
"Insert a dio_seek statement"
|
||
|
""
|
||
|
'(setq fd (skeleton-read "File Descriptor: "))
|
||
|
'(setq pos (skeleton-read "Position: "))
|
||
|
'(setq whence (skeleton-read "Specifies how the position pos should be interpreted (SEEK_SET | SEEK_CUR | SEEK_END): "))
|
||
|
> "dio_seek(" fd ", " pos ", " whence ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-dio_stat
|
||
|
"Insert a dio_read statement"
|
||
|
""
|
||
|
'(setq fd (skeleton-read "File Descriptor: "))
|
||
|
> "dio_stat(" fd ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-dio_tcsetattr
|
||
|
"Insert a dio_tcsetattr statement"
|
||
|
""
|
||
|
'(setq fd (skeleton-read "File Descriptor: "))
|
||
|
'(setq options (skeleton-read "Options: "))
|
||
|
> "dio_tcsetattr(" fd ", " options ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-dio_truncate
|
||
|
"Insert a dio_truncate statement"
|
||
|
""
|
||
|
'(setq fd (skeleton-read "File Descriptor: "))
|
||
|
'(setq offset (skeleton-read "Offset: "))
|
||
|
> "dio_truncate(" fd ", " offset ");" \n
|
||
|
)
|
||
|
|
||
|
(define-skeleton php-dio_write
|
||
|
"Insert a dio_write statement"
|
||
|
""
|
||
|
'(setq fd (skeleton-read "File Descriptor: "))
|
||
|
'(setq data (skeleton-read "Data: "))
|
||
|
'(setq len (skeleton-read "Length: "))
|
||
|
> "dio_write(" fd ", " data ", " len ");" \n
|
||
|
)
|
||
|
|
||
|
|