PageRenderTime 59ms CodeModel.GetById 30ms RepoModel.GetById 0ms app.codeStats 0ms

/elpa/php-mode-20171204.23/php-filesystem.el

https://github.com/andreaja/dotemacs
Lisp | 590 lines | 489 code | 81 blank | 20 comment | 4 complexity | fbc9b79b5678a48821b82d04882e90da MD5 | raw file
Possible License(s): GPL-3.0
  1. ;; Copyright (C) 2015 David Arroyo MenĂŠndez
  2. ;; Author: David Arroyo MenĂŠndez <davidam@gnu.org>
  3. ;; Maintainer: David Arroyo MenĂŠndez <davidam@gnu.org>
  4. ;; This file is free software; you can redistribute it and/or modify
  5. ;; it under the terms of the GNU General Public License as published by
  6. ;; the Free Software Foundation; either version 3, or (at your option)
  7. ;; any later version.
  8. ;; This file is distributed in the hope that it will be useful,
  9. ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  11. ;; GNU General Public License for more details.
  12. ;; You should have received a copy of the GNU General Public License
  13. ;; along with GNU Emacs; see the file COPYING. If not, write to
  14. ;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  15. ;; Boston, MA 02110-1301 USA,
  16. ;; To install php-ext.el:
  17. ;; You can add (load "path/php-ext/php-ext.el") to your .emacs
  18. ;; Filesystem Functions
  19. ;; http://php.net/manual/en/ref.filesystem.php
  20. ;; file:///usr/share/doc/php-doc/html/ref.filesystem.html
  21. (define-skeleton php-basename
  22. "Insert an addcslashes statement"
  23. ""
  24. '(setq path (skeleton-read "Path: "))
  25. '(setq suffix (skeleton-read "Suffix? "))
  26. > "basename(" path ", " suffix ");" \n)
  27. (define-skeleton php-chgrp
  28. "Insert a chgrp statemt"
  29. ""
  30. '(setq filename (skeleton-read "Filename: "))
  31. '(setq group (skeleton-read "Group: "))
  32. > "chgrp(" filename ", " group ");" \n
  33. )
  34. (define-skeleton php-chmod
  35. "Insert a chmod statement."
  36. ""
  37. '(setq filename (skeleton-read "Filename: "))
  38. '(setq perm (skeleton-read "Permissions: "))
  39. > "chmod(" filename ", " perm ");" \n
  40. )
  41. (define-skeleton php-clearstatcache
  42. "Insert a clearstatcache statement."
  43. > "clearstatcache();" \n
  44. )
  45. (define-skeleton php-copy
  46. "Insert a clearstatcache statement."
  47. ""
  48. '(setq file1 (skeleton-read "Filename 1: "))
  49. '(setq file2 (skeleton-read "Filename 2: "))
  50. > "copy(" file1 ", " file2 ");" \n
  51. )
  52. (define-skeleton php-dirname
  53. "Insert a dirname statement."
  54. ""
  55. '(setq dir (skeleton-read "Dirname: "))
  56. > "dirname(" dir ");" \n
  57. )
  58. (define-skeleton php-disk_free_space
  59. "Insert a disk_free_space statement."
  60. ""
  61. '(setq dir (skeleton-read "Directory: "))
  62. > "disk_free_space(" dir ");" \n
  63. )
  64. (define-skeleton php-disk_total_space
  65. "Insert a disk_total_space statement."
  66. ""
  67. '(setq dir (skeleton-read "Directory: "))
  68. > "disk_total_space(" dir ");" \n
  69. )
  70. (define-skeleton php-fclose
  71. "Insert a fclose statement. fclose closes an open file pointer"
  72. ""
  73. '(setq handle (skeleton-read "handle: "))
  74. > "fclose(" handle ");" \n
  75. )
  76. (define-skeleton php-feof
  77. "Insert a feof statement. feof tests for end-of-file on a file pointer"
  78. ""
  79. '(setq file (skeleton-read "file: "))
  80. > "feof(" file ");" \n
  81. )
  82. (define-skeleton php-fflush
  83. "Insert a fflush statement. fflush flushes the output to a file"
  84. ""
  85. '(setq file (skeleton-read "file: "))
  86. > "fflush(" file ");" \n
  87. )
  88. (define-skeleton php-fgetc
  89. "Insert a fgetc statement. fgetc gets character from file pointer"
  90. ""
  91. '(setq handle (skeleton-read "handle: "))
  92. > "fgetc(" handle ");" \n
  93. )
  94. (define-skeleton php-fgetcsv
  95. "Insert a fgetcsv statement. fgetcsv gets line from file pointer and parse for CSV fields"
  96. ""
  97. '(setq handle (skeleton-read "handle: "))
  98. '(setq length (skeleton-read "length: "))
  99. '(setq delimiter (skeleton-read "delimiter: "))
  100. '(setq enclosure (skeleton-read "enclosure: "))
  101. '(setq escape (skeleton-read "escape: "))
  102. > "fgetc(" handle ", " length ", " delimiter ", " enclosure ", " escape ");" \n
  103. )
  104. (define-skeleton php-fgets
  105. "Insert a fgets statement. Fgets gets line from file pointer"
  106. ""
  107. '(setq handle (skeleton-read "handle: "))
  108. '(setq length (skeleton-read "length: "))
  109. > "fgets(" handle ", " length ");" \n
  110. )
  111. (define-skeleton php-fgetss
  112. "Insert a fgetss statement. Fgets gets line from file pointer and strip HTML tags"
  113. ""
  114. '(setq handle (skeleton-read "handle: "))
  115. '(setq length (skeleton-read "length: "))
  116. '(setq allowable_tags (skeleton-read "allowable_tags: "))
  117. > "fgets(" handle ", " length ", " allowable_tags ");" \n
  118. )
  119. (define-skeleton php-file_exists
  120. "Insert a file_exists statement."
  121. ""
  122. '(setq file (skeleton-read "file: "))
  123. > "file_exists(" file ");" \n
  124. )
  125. (define-skeleton php-file_get_contents
  126. "Insert a file_get_contents statement. file_get_contents reads entire file into a string"
  127. ""
  128. '(setq filename (skeleton-read "filename: "))
  129. '(setq use_include_path (skeleton-read "use_include_path: "))
  130. '(setq resource (skeleton-read "resource: "))
  131. '(setq offset (skeleton-read "offset: "))
  132. '(setq maxlen (skeleton-read "maxlen: "))
  133. > "file_get_contents(" filename ", " use_include_path ", " resource ", " offset ", " maxlen ");" \n
  134. )
  135. (define-skeleton php-file_put_contents
  136. "Insert a file_put_contents statement. file_put_contents writes a string to a file"
  137. ""
  138. '(setq filename (skeleton-read "filename: "))
  139. '(setq data (skeleton-read "data: "))
  140. '(setq flags (skeleton-read "flags: "))
  141. '(setq context (skeleton-read "context: "))
  142. > "file_put_contents(" filename ", " data ", " flags ", " context ");" \n
  143. )
  144. (define-skeleton php-file
  145. "Insert a file statement. file reads a string into an array"
  146. ""
  147. '(setq filename (skeleton-read "filename: "))
  148. '(setq flags (skeleton-read "flags: "))
  149. '(setq context (skeleton-read "context: "))
  150. > "file(" filename ", " flags ", " context ");" \n
  151. )
  152. (define-skeleton php-fileatime
  153. "Insert a fileatime statement. fileatime gets last access time of file"
  154. ""
  155. '(setq filename (skeleton-read "filename: "))
  156. > "fileatime(" filename ");" \n
  157. )
  158. (define-skeleton php-filectime
  159. "Insert a filectime statement. filectime gets inode change time of file"
  160. ""
  161. '(setq filename (skeleton-read "filectime: "))
  162. > "filectime(" filename ");" \n
  163. )
  164. (define-skeleton php-fileinode
  165. "Insert a fileinode statement. fileinode gets the file inode"
  166. ""
  167. '(setq filename (skeleton-read "fileinode: "))
  168. > "fileinode(" filename ");" \n
  169. )
  170. (define-skeleton php-filemtime
  171. "Insert a filemtime statement. filemtime gets the file modification"
  172. ""
  173. '(setq filename (skeleton-read "filemtime: "))
  174. > "filemtime(" filename ");" \n
  175. )
  176. (define-skeleton php-fileowner
  177. "Insert a fileowner statement. fileowner gets the file owner"
  178. ""
  179. '(setq filename (skeleton-read "fileowner: "))
  180. > "fileowner(" filename ");" \n
  181. )
  182. (define-skeleton php-fileperms
  183. "Insert a fileperms statement. fileperms gets the file permissions"
  184. ""
  185. '(setq filename (skeleton-read "fileperms: "))
  186. > "fileperms(" filename ");" \n
  187. )
  188. (define-skeleton php-filesize
  189. "Insert a filesize statement. filesize gets the size for the given file"
  190. '(setq filename (skeleton-read "filesize: "))
  191. > "filesize(" filename ");" \n
  192. )
  193. (define-skeleton php-filetype
  194. "Insert a filetype statement. filetype gets the type for the given file"
  195. '(setq filename (skeleton-read "filetype: "))
  196. > "filetype(" filename ");" \n
  197. )
  198. (define-skeleton php-flock
  199. "Insert a flock statement. flock is a portable advisory file locking"
  200. ""
  201. '(setq handle (skeleton-read "handle: "))
  202. '(setq operation (skeleton-read "operation: "))
  203. '(setq wouldblock (skeleton-read "wouldblock: "))
  204. > "flock(" handle ", " operation ", " wouldblock ");" \n
  205. )
  206. (define-skeleton php-fnmatch
  207. "Insert a fnmatch statement. fnmatch match filename against a pattern"
  208. ""
  209. '(setq pattern (skeleton-read "pattern: "))
  210. '(setq string (skeleton-read "string: "))
  211. '(setq flags (skeleton-read "flags: "))
  212. > "fnmatch(" pattern ", " string ", " flags ");" \n
  213. )
  214. (define-skeleton php-fopen
  215. "Insert a fopen statement. fopen binds a named resource"
  216. ""
  217. '(setq filename (skeleton-read "filename: "))
  218. '(setq mode (skeleton-read "mode: "))
  219. '(setq use_include_path (skeleton-read "use_include_path: "))
  220. '(setq context (skeleton-read "context: "))
  221. > "fopen(" filename ", " mode ", " use_include_path ", " context ");" \n
  222. )
  223. (define-skeleton php-fpassthru
  224. "Insert a fpassthru statement. fpassthru output all remaining data on a file pointer"
  225. ""
  226. '(setq handle (skeleton-read "handle: "))
  227. > "fpassthru(" handle ");" \n
  228. )
  229. (define-skeleton php-fputcsv
  230. "Insert a fputcsv statement. fputcsv formats line as csv and write to file pointer"
  231. ""
  232. '(setq handle (skeleton-read "handle: "))
  233. '(setq fields (skeleton-read "fields: "))
  234. '(setq delimiter (skeleton-read "delimiter: "))
  235. '(setq enclosure (skeleton-read "enclosure: "))
  236. > "fputcsv(" handle ", " fields ", " delimiter ", " enclosure ");" \n
  237. )
  238. (define-skeleton php-fread
  239. "Insert a fread statement. Binary-safe file read"
  240. ""
  241. '(setq handle (skeleton-read "handle: "))
  242. '(setq length (skeleton-read "length: "))
  243. > "fread(" handle ", " length ");" \n
  244. )
  245. (define-skeleton php-fscanf
  246. "Insert a fscanf statement. fscanf parses input from a file according to a format"
  247. ""
  248. '(setq handle (skeleton-read "handle: "))
  249. '(setq format (skeleton-read "format: "))
  250. > "fscanf(" handle ", " format ");" \n
  251. )
  252. (define-skeleton php-fseek
  253. "Insert a fseek statement. fseek seeks on a file pointer."
  254. ""
  255. '(setq handle (skeleton-read "handle: "))
  256. '(setq offset (skeleton-read "offset: "))
  257. '(setq whence (skeleton-read "whence: "))
  258. > "fseek(" handle ", " offset ", " whence ");" \n
  259. )
  260. (define-skeleton php-fstat
  261. "Insert a fstat statement. fstat gets information about a file using an open file pointer"
  262. ""
  263. '(setq handle (skeleton-read "handle: "))
  264. > "fstat(" handle ");" \n
  265. )
  266. (define-skeleton php-ftell
  267. "Insert a ftell statement. ftell returns the current position of the file read/write pointer"
  268. ""
  269. '(setq handle (skeleton-read "handle: "))
  270. > "ftell(" handle ");" \n
  271. )
  272. (define-skeleton php-ftruncate
  273. "Insert a ftruncate statement. ftruncate truncates a file to a given length"
  274. ""
  275. '(setq handle (skeleton-read "handle: "))
  276. '(setq size (skeleton-read "size: "))
  277. > "ftruncate(" handle ", " size ");" \n
  278. )
  279. (define-skeleton php-fwrite
  280. "Insert a fwrite statement. Binary safe file write"
  281. '(setq handle (skeleton-read "handle: "))
  282. '(setq string (skeleton-read "string: "))
  283. '(setq length (skeleton-read "length: "))
  284. > "fwrite(" handle ", " string ", " length ");" \n
  285. )
  286. (define-skeleton php-glob
  287. "Insert a glob statement. Find pathnames matching a pattern"
  288. '(setq pattern (skeleton-read "pattern: "))
  289. '(setq flags (skeleton-read "flags: "))
  290. > "glob(" pattern ", " flags ");" \n
  291. )
  292. (define-skeleton php-is_dir
  293. "Insert a is_dir statement. is_dir tells whether the filename is a directory"
  294. ""
  295. '(setq filename (skeleton-read "filename: "))
  296. > "is_dir(" filename ");" \n
  297. )
  298. (define-skeleton php-is_executable
  299. "Insert a is_executable statement. is_executable tells whether the filename is a executable"
  300. ""
  301. '(setq filename (skeleton-read "filename: "))
  302. > "is_executable(" filename ");" \n
  303. )
  304. (define-skeleton php-is_file
  305. "Insert a is_file statement. is_file tells whether the filename is a regular file"
  306. '(setq filename (skeleton-read "filename: "))
  307. > "is_file(" filename ");" \n
  308. )
  309. (define-skeleton php-is_link
  310. "Insert a is_link statement. is_link tells whether the filename is a symbolic link"
  311. ""
  312. '(setq filename (skeleton-read "filename: "))
  313. > "is_link(" filename ");" \n
  314. )
  315. (define-skeleton php-is_readable
  316. "Insert a is_readable statement. is_readable tells whether the filename is a readable"
  317. ""
  318. '(setq filename (skeleton-read "filename: "))
  319. > "is_readable(" filename ");" \n
  320. )
  321. (define-skeleton php-is_uploaded_file
  322. "Insert a is_uploaded_file statement. is_uploaded_file tells whether the filename is a executable"
  323. ""
  324. '(setq filename (skeleton-read "filename: "))
  325. > "is_uploaded_file(" filename ");" \n
  326. )
  327. (define-skeleton php-is_writable
  328. "Insert a is_writable statement. is_writable tells whether the filename is a writable"
  329. ""
  330. '(setq filename (skeleton-read "filename: "))
  331. > "is_writable(" filename ");" \n
  332. )
  333. (define-skeleton php-lchgrp
  334. "Insert a lchgrp statement. lchgrp changes group ownership of symlink"
  335. ""
  336. '(setq filename (skeleton-read "filename: "))
  337. '(setq group (skeleton-read "group: "))
  338. > "lchgrp(" filename ", " group ");" \n
  339. )
  340. (define-skeleton php-lchown
  341. "Insert a lchown statement. lchown changes user ownership of symlink"
  342. ""
  343. '(setq filename (skeleton-read "filename: "))
  344. '(setq user (skeleton-read "user: "))
  345. > "lchown(" filename ", " user ");" \n
  346. )
  347. (define-skeleton php-link
  348. "Insert a link statement. link creates a hard link"
  349. ""
  350. '(setq target (skeleton-read "target of the link: "))
  351. '(setq link (skeleton-read "link: "))
  352. > "link(" target ", " link ");" \n
  353. )
  354. (define-skeleton php-linkinfo
  355. "Insert a linkinfo statement. linkinfo gets information about a link"
  356. ""
  357. '(setq path (skeleton-read "path of the link: "))
  358. > "linkinfo(" path ");" \n
  359. )
  360. (define-skeleton php-lstat
  361. "Insert a lstat statement. lstat gives information about a symbolic link or file"
  362. ""
  363. '(setq path (skeleton-read "path of the link: "))
  364. > "lstat(" path ");" \n
  365. )
  366. (define-skeleton php-mkdir
  367. "Insert a mkdir statement. mkdir makes a directory"
  368. ""
  369. '(setq path (skeleton-read "path: "))
  370. '(setq mode (skeleton-read "permissions mode (numeric): "))
  371. '(setq recursive (skeleton-read "recursive: "))
  372. '(setq resource (skeleton-read "context: "))
  373. > "mkdir(" path ", " mode ", " recursive ", " resource ");" \n
  374. )
  375. (define-skeleton php-move_uploaded_file
  376. "Insert a move_uploaded_file statement. move an uploaded file to a new location"
  377. ""
  378. '(setq filename (skeleton-read "filename: "))
  379. '(setq destination (skeleton-read "destination: "))
  380. > "move_uploaded_file(" filename ", " destination ");" \n
  381. )
  382. (define-skeleton php-parse_ini_file
  383. "Insert a parse_ini_file statement. parse_ini_file parses a configuration file"
  384. ""
  385. '(setq filename (skeleton-read "filename: "))
  386. '(setq process_sections (skeleton-read "process sections: "))
  387. '(setq scanner_mode (skeleton-read "scanner mode: "))
  388. > "parse_ini_file(" filename ", " process_sections ", " scanner_mode ");" \n
  389. )
  390. (define-skeleton php-parse_ini_string
  391. "Insert a parse_ini_string statement. parse_ini_string parses a configuration string"
  392. ""
  393. '(setq string (skeleton-read "string: "))
  394. '(setq process_sections (skeleton-read "process sections: "))
  395. '(setq scanner_mode (skeleton-read "scanner mode: "))
  396. > "parse_ini_string(" string ", " process_sections ", " scanner_mode ");" \n
  397. )
  398. (define-skeleton php-pathinfo
  399. "Insert a pathinfo statement. pathinfo returns information about a file path"
  400. ""
  401. '(setq path (skeleton-read "path: "))
  402. '(setq options (skeleton-read "options: "))
  403. > "pathinfo(" path ", " options ");" \n
  404. )
  405. (define-skeleton php-pclose
  406. "Insert a pclose statement. pclose closes process file pointer"
  407. ""
  408. '(setq handle (skeleton-read "handle: "))
  409. > "pclose(" handle ");" \n
  410. )
  411. (define-skeleton php-popen
  412. "Insert a popen statement. popen opens process file pointer"
  413. ""
  414. '(setq command (skeleton-read "command: "))
  415. '(setq mode (skeleton-read "mode: "))
  416. > "popen(" command ", " mode ");" \n
  417. )
  418. (define-skeleton php-readfile
  419. "Insert a readfile statement. readfile outputs a file"
  420. ""
  421. '(setq filename (skeleton-read "filename: "))
  422. '(setq use_include_path (skeleton-read "use_include_path: "))
  423. '(setq context (skeleton-read "context: "))
  424. > "readfile(" filename ", " use_include_path ", " context ");" \n
  425. )
  426. (define-skeleton php-readlink
  427. "Insert a readlink statement. readlink returns the target of the symbolic link."
  428. ""
  429. '(setq path (skeleton-read "path: "))
  430. > "readlink(" path ");" \n
  431. )
  432. (define-skeleton php-realpath_cache_get
  433. "Insert a realpath_cache_get statement. Returns an array of realpath cache entries."
  434. > "realpath_cache_get();" \n
  435. )
  436. (define-skeleton php-realpath_cache_size
  437. "Insert a realpath_cache_size statement. Get the amount of memory used by the realpath cache"
  438. > "realpath_cache_size();" \n
  439. )
  440. (define-skeleton php-realpath
  441. "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."
  442. ""
  443. '(setq path (skeleton-read "path: "))
  444. > "realpath(" path ");" \n
  445. )
  446. (define-skeleton php-rename
  447. "Insert a rename statement. Renames a file or directory"
  448. ""
  449. '(setq oldname (skeleton-read "oldname: "))
  450. '(setq newname (skeleton-read "newname: "))
  451. '(setq context (skeleton-read "context: "))
  452. > "rename(" oldname ", " newname ", " context ");" \n
  453. )
  454. (define-skeleton php-rewind
  455. "Insert a rewind statement. Rewind the position of a file pointer"
  456. ""
  457. '(setq handle (skeleton-read "handle: "))
  458. > "rewind(" handle ");" \n
  459. )
  460. (define-skeleton php-rmdir
  461. "Insert a rmdir statement. Removes directory."
  462. ""
  463. '(setq dirname (skeleton-read "dirname: "))
  464. > "rmdir(" dirname ");" \n
  465. )
  466. (define-skeleton php-stat
  467. "Insert a stat statement. Gives information about a file."
  468. '(setq filename (skeleton-read "filename: "))
  469. > "stat(" filename ");" \n
  470. )
  471. (define-skeleton php-symlink
  472. "Insert a symlink statement. symlink creates a symbolic link."
  473. ""
  474. '(setq target (skeleton-read "target: "))
  475. '(setq link (skeleton-read "link: "))
  476. > "symlink(" target ", " link ");" \n
  477. )
  478. (define-skeleton php-tempnam
  479. "Insert a tempname statement. tempnam creates file with unique file name."
  480. ""
  481. '(setq dir (skeleton-read "directory: "))
  482. '(setq prefix (skeleton-read "prefix: "))
  483. > "tempnam(" dir ", " prefix ");" \n
  484. )
  485. (define-skeleton php-tmpfile
  486. "Insert a tmpfile statement. tmpfile creates a temporary file."
  487. > "tmpfile();" \n
  488. )
  489. (define-skeleton php-touch
  490. "Insert a touch statement. touch set access and modification time of file."
  491. ""
  492. '(setq filename (skeleton-read "filename: "))
  493. '(setq time (skeleton-read "time: "))
  494. '(setq atime (skeleton-read "atime: "))
  495. > "touch(" filename ", " time ", " atime ");" \n
  496. )
  497. (define-skeleton php-umask
  498. "Insert umask statement. Changes the current umask."
  499. ""
  500. '(setq mask (skeleton-read "mask: "))
  501. > "umask(" mask ");" \n
  502. )
  503. (define-skeleton php-unlink
  504. "Insert unlink statement. Deletes a file."
  505. ""
  506. '(setq filename (skeleton-read "filename: "))
  507. '(setq context (skeleton-read "context: "))
  508. > "unlink(" filename ", " context ");" \n
  509. )