/skeleton/php-strings.el
Emacs Lisp | 768 lines | 645 code | 106 blank | 17 comment | 1 complexity | 8f24df3af9d30526ae6abb667cfb721f MD5 | raw file
Possible License(s): GPL-3.0
- ;; 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,
- ;; http://php.net/manual/en/ref.strings.php
- ;; file:///usr/share/doc/php-doc/html/ref.strings.html
- (define-skeleton php-addcslashes
- "Insert an addcslashes statement"
- ""
- '(setq str (skeleton-read "String? "))
- '(setq charlist (skeleton-read "Charlist? "))
- > "addclslashes(" str ", " charlist ");" \n)
- (define-skeleton php-addslashes
- "Insert an addcslashes statement"
- ""
- '(setq str (skeleton-read "String? "))
- > "addclslashes(" str ");" \n)
- (define-skeleton php-bin2hex
- "Insert a bin2hex statement"
- ""
- '(setq str (skeleton-read "String? "))
- > "bin2hex(" str ");" \n)
- (define-skeleton php-chop
- "Insert a chop statement. Alias of rtrim"
- ""
- '(setq str (skeleton-read "String: "))
- > "chop(" str ");" \n)
- (define-skeleton php-chr
- "Insert a chr statement. Returns a specific character from ascii code"
- ""
- '(setq ascii (skeleton-read "String: "))
- > "chr(" ascii ");" \n)
- (define-skeleton php-chunk_split
- "Insert a chunk_split statement. Split a a string into smaller chunks"
- ""
- '(setq body (skeleton-read "String: "))
- '(setq chunklen (skeleton-read "Chunk length: "))
- '(setq end (skeleton-read "End: "))
- > "chunk_split(" body ", " chunklen ", " end ");" \n
- )
- (define-skeleton php-convert_cyr_string
- "Insert a convert_cyr_string statement"
- ""
- '(setq str (skeleton-read "String? "))
- '(setq from (skeleton-read "From? "))
- '(setq to (skeleton-read "To? "))
- > "convert_cyr_string(" str ", " from ", " to ");" \n)
- (define-skeleton php-convert_uudecode
- "Insert a bin2hex statement"
- ""
- '(setq str (skeleton-read "String? "))
- > "convert_uudecode(" str ");" \n)
- (define-skeleton php-convert_uuencode
- "Insert a bin2hex statement"
- ""
- '(setq str (skeleton-read "String? "))
- > "convert_uuencode(" str ");" \n)
- (define-skeleton php-count_chars
- "Insert a count_chars statement. Return information about characters used in a string"
- ""
- '(setq str (skeleton-read "String? "))
- '(setq mode (skeleton-read "Mode? "))
- > "count_chars(" str ", " mode ");" \n
- )
- (define-skeleton php-crc32
- "Insert a crc32 statement. Calculates the crc32 polynomial of a string"
- ""
- '(setq str (skeleton-read "String: "))
- > "crc32(" str ");" \n
- )
- (define-skeleton php-crypt
- "Insert a crypt statement. One-way string hashing"
- ""
- '(setq str (skeleton-read "String: "))
- '(setq salt (skeleton-read "Salt: "))
- > "crypt(" str ", " salt ");" \n
- )
- (define-skeleton php-echo
- "Insert an echo statement"
- ""
- '(setq str (skeleton-read "String: "))
- > "echo '" str "';" \n)
- (define-skeleton php-explode
- "Insert an explode statement"
- ""
- '(setq separator (skeleton-read "Explode separator? "))
- '(setq var (skeleton-read "Explode variable? "))
- > "explode('" separator "', " var ");" \n)
- (define-skeleton php-fprintf
- "Insert a fprintf statement"
- ""
- '(setq handle (skeleton-read "Handle: "))
- '(setq format (skeleton-read "Format: "))
- '(setq args (skeleton-read "Args: "))
- > "fprintf(" handle ", " format ", " args ");" \n
- )
- (define-skeleton php-get_html_translation_table
- "Insert a get_html_translation_table statement. Returns the translation table used by htmlspecialchars and htmlentities"
- ""
- '(setq table (skeleton-read "Table: "))
- '(setq flags (skeleton-read "Flags: "))
- '(setq encoding (skeleton-read "Encoding: "))
- > "get_html_translation_table(" table ", " flags ", " encoding ");" \n
- )
- (define-skeleton php-hebrev
- "Insert a hebrev statement. Convert logical Hebrew text to visual text with newline conversion"
- ""
- '(setq hebrew_text (skeleton-read "Hebrew text: "))
- '(setq max_chars_per_line (skeleton-read "Maximum number of characters per line: "))
- > "hebrev(" hebrew_text ", " max_chars_per_line ");" \n
- )
- (define-skeleton php-hebrevc
- "Insert a hebrevc statement. Convert logical Hebrew text to visual text with newline conversion"
- ""
- '(setq hebrew_text (skeleton-read "Hebrew text: "))
- '(setq max_chars_per_line (skeleton-read "Maximum number of characters per line: "))
- > "hebrevc(" hebrew_text ", " max_chars_per_line ");" \n
- )
- (define-skeleton php-hex2bin
- "Insert a hex2bin statement. Decodes a hexadecimally encoded binary string."
- ""
- '(setq data (skeleton-read "Data: "))
- > "hex2bin(" data ");" \n
- )
- (define-skeleton php-html_entity_decode
- "Insert a html_entity_decode statement. Convert special characters to HTML entities"
- ""
- '(setq string (skeleton-read "String: "))
- '(setq flags (skeleton-read "Flags: "))
- '(setq encoding (skeleton-read "Encoding: "))
- > "html_entity_decode(" string ", " flags ", " encoding ");" \n
- )
- (define-skeleton php-htmlentities
- "Insert a htmlentities statement. Convert all applicable characters to HTML entities"
- ""
- '(setq string (skeleton-read "String: "))
- '(setq flags (skeleton-read "Flags: "))
- '(setq encoding (skeleton-read "Encoding: "))
- > "htmlentities(" string ", " flags ", " encoding ");" \n
- )
- (define-skeleton php-htmlspecialchars_decode
- "Insert a htmlspecialchars_decode statement. Convert special HTML entities back to characters"
- ""
- '(setq string (skeleton-read "String: "))
- '(setq flags (skeleton-read "Flags: "))
- > "htmlspecialchars_decode(" string ", " flags ");" \n
- )
- (define-skeleton php-htmlspecialchars
- "Insert a htmlspecialchars_decode statement. Convert special HTML entities back to characters"
- ""
- '(setq string (skeleton-read "String: "))
- '(setq flags (skeleton-read "Flags: "))
- '(setq encoding (skeleton-read "Encoding: "))
- '(setq double_encode (skeleton-read "Double encode (true | false): "))
- > "htmlspecialchars_decode(" string ", " flags ");" \n
- )
- (define-skeleton php-implode
- "Insert an implode statement"
- ""
- '(setq separator (skeleton-read "Implode separator? "))
- '(setq var (skeleton-read "Implode variable? "))
- > "implode('" separator "', " var
- (skeleton-read
- > ", " str )
- > ");"
- )
- (define-skeleton php-join
- "Insert an join statement"
- ""
- '(setq separator (skeleton-read "Join separator? "))
- '(setq var (skeleton-read "Join variable? "))
- > "join('" separator "', " var
- (skeleton-read
- > ", " str )
- > ");"
- )
- (define-skeleton php-lcfirst
- "Insert a lcfirst statement. Make a string's first character lowercase"
- ""
- '(setq str (skeleton-read "String? "))
- > "lcfirst(" str ");" \n
- )
- (define-skeleton php-levenshtein
- "Insert a levenshtein statement. Calculate Levenshtein distance between two strings"
- ""
- '(setq str1 (skeleton-read "String? "))
- '(setq str2 (skeleton-read "String? "))
- > "levenshtein(" str1 ", " str2 ");" \n
- )
- (define-skeleton php-localeconv
- "Insert a localeconv statement."
- > "localeconv();" \n
- )
- (define-skeleton php-ltrim
- "Insert a ltrim statement"
- ""
- '(setq str (skeleton-read "String? "))
- '(setq charlist (skeleton-read "Char list? "))
- > "ltrim(" str ", " charlist ");" \n)
- (define-skeleton php-md5_file
- "Insert a md5_file statement"
- ""
- '(setq filename (skeleton-read "Filename? "))
- '(setq rawoutput (skeleton-read "Raw output? "))
- > "ltrim(" filename ", " rawoutput ");" \n)
- (define-skeleton php-md5
- "Insert a md5 statement"
- ""
- '(setq str (skeleton-read "String? "))
- '(setq rawoutput (skeleton-read "Raw output? "))
- > "md5(" str ", " rawoutput ");" \n)
- (define-skeleton php-metaphone
- "Insert a metaphone statament"
- ""
- '(setq str (skeleton-read "String? "))
- '(setq phonemes (skeleton-read "Phonemes? "))
- > "metaphone(" str ", " phonemes ");" \n)
- (define-skeleton php-money_format
- "Insert a money_format statement"
- ""
- '(setq str (skeleton-read "Format? "))
- '(setq number (skeleton-read "Number? "))
- > "money_format(" str ", " number ");" \n)
- (define-skeleton php-nl_langinfo
- "Insert a nl_langinfo statement"
- ""
- '(setq str (skeleton-read "Item? "))
- > "nl_langinfo(" str ");" \n)
- (define-skeleton php-nl2br
- "Insert a nl2br statement"
- ""
- '(setq str (skeleton-read "String? "))
- '(setq is_xhtml (skeleton-read "Is xhtml? "))
- > "nl2br(" str ", " is_xhtml ");" \n)
- (define-skeleton php-number_format
- "Insert a number_format statement"
- ""
- '(setq float (skeleton-read "Float? "))
- '(setq number (skeleton-read "Number? "))
- > "number_format(" float ", " number ");" \n)
- (define-skeleton php-ord
- "Insert an ord statement"
- ""
- '(setq char (skeleton-read "Character? "))
- > "ord(" str ");" \n)
- (define-skeleton php-parse_str
- "Insert a parse_str statement"
- ""
- '(setq str (skeleton-read "String? "))
- '(setq arr (skeleton-read "Array? "))
- > "parse_str(" str ", " arr ");" \n)
- (define-skeleton php-print
- "Insert a print statement"
- ""
- '(setq str (skeleton-read "String? "))
- > "print(" str ");" \n)
- (define-skeleton php-printf
- "Insert a printf statement. Output a formatted string"
- ""
- '(setq str (skeleton-read "String? "))
- > "printf(" str ");" \n)
- (define-skeleton php-quoted_printable_decode
- "Insert a quoted_printable_decode statement. Convert a quoted-printable string to an 8 bit string"
- ""
- '(setq str (skeleton-read "String? "))
- > "quoted_printable_decode(" str ");" \n)
- (define-skeleton php-quoted_printable_encode
- "Insert a quoted_printable_encode statement. Convert a 8 bit string to a quoted-printable string"
- ""
- '(setq str (skeleton-read "String? "))
- > "quoted_printable_encode(" str ");" \n)
- (define-skeleton php-quotemeta
- "Insert a quotemeta statement. Quote meta characters"
- ""
- '(setq str (skeleton-read "String? "))
- > "quotemeta(" str ");" \n)
- (define-skeleton php-rtrim
- "Insert a rtrim statement"
- ""
- '(setq str (skeleton-read "String? "))
- > "rtrim(" str ");" \n)
- (define-skeleton php-setlocale
- "Insert a setlocale statement"
- '(setq category (skeleton-read "Category? "))
- '(setq locale (skeleton-read "Locale? "))
- > "setlocale(" category ", " locale ");" \n
- )
- (define-skeleton php-sha1_file
- "Insert a sha1_file statement. Calculate the sha1 of a file"
- ""
- '(setq filename (skeleton-read "Filename? "))
- '(setq rawoutuput (skeleton-read "Rawoutuput? "))
- > "sha1_file(" filename ", " rawoutuput ");" \n
- )
- (define-skeleton php-sha1
- "Insert a sha1 statement. Calculate the sha1 of a string"
- ""
- '(setq string (skeleton-read "String? "))
- '(setq rawoutuput (skeleton-read "Rawoutuput? "))
- > "sha1_file(" string ", " rawoutuput ");" \n
- )
- (define-skeleton php-similar_text
- "Insert a similar_text statement. Calculate the similarity between two words"
- ""
- '(setq first (skeleton-read "First string? "))
- '(setq second (skeleton-read "Second string? "))
- '(setq percentage (skeleton-read "Percentage? "))
- > "similar_text(" first ", " second ", " percentage ");" \n
- )
- (define-skeleton php-soundex
- "Insert a soundex statement. Calculates the soundex key of a string"
- ""
- '(setq str (skeleton-read "String? "))
- > "soundex(" str ");" \n
- )
- (define-skeleton php-sprintf
- "Insert a sprintf statement. Return a formatted string"
- ""
- '(setq str (skeleton-read "String? "))
- > "sprintf(" str ");" \n
- )
-
- (define-skeleton php-sscanf
- "Insert a sscanf statement. Parses input from a string according to a format"
- ""
- '(setq str (skeleton-read "String? "))
- '(setq format (skeleton-read "Format? "))
- > "sprintf(" str ", " format ");" \n
- )
-
- (define-skeleton php-str_getcsv
- "Insert a str_getcsv statement. Parse a CSV string into an array"
- ""
- '(setq input (skeleton-read "Input? "))
- '(setq delimiter (skeleton-read "Delimiter? "))
- '(setq enclosure (skeleton-read "Enclosure? "))
- '(setq escape (skeleton-read "Escape? "))
- > "str_getcsv(" input ", " delimiter ", " enclosure ", " escape ");" \n
- )
- (define-skeleton php-str_ireplace
- "Insert a str_ireplace statement. Case-insensitive version of str_replace."
- ""
- '(setq search (skeleton-read "Search? "))
- '(setq replace (skeleton-read "Replace? "))
- '(setq subject (skeleton-read "Subject? "))
- '(setq count (skeleton-read "Count? "))
- > "str_ireplace(" search ", " replace ", " subject ", " count ");" \n
- )
- (define-skeleton php-str_pad
- "Insert a str_pad statement. Pad a string to a certain length with another string"
- ""
- '(setq input (skeleton-read "Input? "))
- '(setq pad_length (skeleton-read "Pad length? "))
- '(setq pad_string (skeleton-read "Pad string? "))
- '(setq pad_type (skeleton-read "Pad type? "))
- > "str_pad(" input ", " pad_length ", " pad_string ", " pad_type ");" \n
- )
- (define-skeleton php-str_repeat
- "Insert a str_repeat statement. Repeat a string"
- ""
- '(setq input (skeleton-read "Input? "))
- '(setq multiplier (skeleton-read "Multiplier? "))
- > "str_repeat(" input ", " multiplier ");" \n
- )
- (define-skeleton php-str_rot13
- "Insert a str_rot13 statement"
- ""
- '(setq str (skeleton-read "String? "))
- > "str_rot13(" str ");" \n
- )
- (define-skeleton php-str_shuffle
- "Insert a str_shuffle statement"
- ""
- '(setq str (skeleton-read "String? "))
- > "str_shuffle(" str ");" \n
- )
- (define-skeleton php-str_split
- "Insert a str_shuffle statement"
- ""
- '(setq str (skeleton-read "String? "))
- '(setq split_length (skeleton-read "Split length? "))
- > "str_split(" str ", " split_length ");" \n
- )
- (define-skeleton php-str_word_count
- "Insert a str_word_count statement. Return information about words used in a string."
- ""
- '(setq str (skeleton-read "String? "))
- '(setq format (skeleton-read "Format? "))
- '(setq charlist (skeleton-read "Charlist? "))
- > "str_word_count(" str ", " format ", " charlist ");" \n
- )
- (define-skeleton php-strcasecmp
- "Insert a strcasecmp statement. Binary safe case-insensitive string comparison"
- ""
- '(setq str (skeleton-read "String? "))
- '(setq str2 (skeleton-read "String? "))
- > "strcasecmp(" str ", " str2 ");" \n
- )
- (define-skeleton php-strcmp
- "Insert a strcmp statement. Binary safe string comparison"
- ""
- '(setq str (skeleton-read "String? "))
- '(setq str2 (skeleton-read "String? "))
- > "strcmp(" str ", " str2 ");" \n
- )
- (define-skeleton php-strcoll
- "Insert a strcoll statement. Locale based string comparison"
- ""
- '(setq str (skeleton-read "String? "))
- '(setq str2 (skeleton-read "String? "))
- > "strcoll(" str ", " str2 ");" \n
- )
- (define-skeleton php-strcspn
- "Insert a strcspn statement. Find length of initial segment not matching mask"
- ""
- '(setq str (skeleton-read "String? "))
- '(setq str2 (skeleton-read "String? "))
- '(setq start (skeleton-read "The start position of the string? "))
- '(setq length (skeleton-read "The length of the string? "))
- > "strcspn(" str ", " str2 ");" \n
- )
- (define-skeleton php-strip_tags
- "Insert a strip_tags statement. Strip HTML and PHP tags from a string"
- ""
- '(setq str (skeleton-read "String? "))
- '(setq allowable_tags (skeleton-read "Allowable tags? "))
- > "strcoll(" str ", " allowable_tags ");" \n
- )
- (define-skeleton php-stripslashes
- "Insert a stripcslashes statement."
- ""
- '(setq str (skeleton-read "String? "))
- > "stripcslashes(" str ");" \n
- )
- (define-skeleton php-stripcslashes
- "Insert a stripcslashes statement. Find the numeric position of the first occurrence of needle in the haystack string. "
- ""
- '(setq haystack (skeleton-read "String haystack? "))
- '(setq needle (skeleton-read "String needle? "))
- '(setq offset (skeleton-read "Offset?"))
- > "stripcslashes(" haystack ", " needle ", " offset ");" \n
- )
- (define-skeleton php-stristr
- "Insert a stristr statement. Case-insensitive strstr "
- ""
- '(setq haystack (skeleton-read "String haystack? "))
- '(setq needle (skeleton-read "String needle? "))
- '(setq before_needle (skeleton-read "Before needle?"))
- > "stripcslashes(" haystack ", " needle ", " before_needle ");" \n
- )
- (define-skeleton php-strlen
- "Insert a strlen statement"
- ""
- '(setq str (skeleton-read "String? "))
- > "strlen(" str ");" \n)
- (define-skeleton php-strnatcasecmp
- "Insert a strnatcasecmp statement"
- ""
- '(setq str (skeleton-read "String? "))
- '(setq str2 (skeleton-read "String? "))
- > "strnatcasecmp(" str "," str2 ");" \n)
- (define-skeleton php-strnatcmp
- "Insert a strnatcasecmp statement. String comparisons using a natural order algorithm"
- ""
- '(setq str (skeleton-read "String? "))
- '(setq str2 (skeleton-read "String? "))
- > "strnatcmp(" str "," str2 ");" \n)
- (define-skeleton php-strncasecmp
- "Insert a strncasecmp statement. Binary safe case-insensitive string comparison of the first n characters"
- ""
- '(setq str (skeleton-read "String? "))
- '(setq str2 (skeleton-read "String? "))
- '(setq len (skeleton-read "Length? "))
- > "strncasecmp(" str "," str2 ", " len ");" \n)
- (define-skeleton php-strncmp
- "Insert a strncmp statement."
- ""
- '(setq str (skeleton-read "String? "))
- '(setq str2 (skeleton-read "String? "))
- '(setq len (skeleton-read "Length? "))
- > "strncmp(" str "," str2 ", " len ");" \n)
- (define-skeleton php-strpbrk
- "Insert a strpbrk statement"
- ""
- '(setq haystack (skeleton-read "String? "))
- '(setq charlist (skeleton-read "Char list? "))
- > "strlen(" str ", " charlist ");" \n)
- (define-skeleton php-strpos
- "Insert a strpos statement."
- ""
- '(setq haystack (skeleton-read "String haystack? "))
- '(setq needle (skeleton-read "String needle? "))
- '(setq offset (skeleton-read "Offset?"))
- > "strpos(" haystack ", " needle ", " offset ");" \n
- )
- (define-skeleton php-strrchr
- "Insert a strrchr statement. Find the last occurrence of a character in a string"
- ""
- '(setq haystack (skeleton-read "String haystack? "))
- '(setq needle (skeleton-read "String needle? "))
- > "strrchr(" haystack ", " needle ");" \n
- )
- (define-skeleton php-strrev
- "Insert a strrev statement. Reverse a string"
- ""
- '(setq string (skeleton-read "String? "))
- > "strrev(" string ");" \n
- )
- (define-skeleton php-strripos
- "Insert a strripos statement. Find the position of the last occurrence of a case-insensitive substring in a string"
- ""
- '(setq haystack (skeleton-read "String haystack? "))
- '(setq needle (skeleton-read "String needle? "))
- '(setq offset (skeleton-read "Offset?"))
- > "strripos(" string ", " needle ", " offset ");" \n
- )
- (define-skeleton php-strrpos
- "Insert a strripos statement. Find the position of the last occurrence of a substring in a string"
- ""
- '(setq haystack (skeleton-read "String haystack? "))
- '(setq needle (skeleton-read "String needle? "))
- '(setq offset (skeleton-read "Offset?"))
- > "strrpos(" string ", " needle ", " offset ");" \n
- )
- (define-skeleton php-strspn
- "Insert a strspn statement."
- ""
- '(setq subject (skeleton-read "Subject? "))
- '(setq mask (skeleton-read "Mask? "))
- '(setq start (skeleton-read "Start? "))
- '(setq length (skeleton-read "Length? "))
- > "strspn(" subject ", " mask ", " start ", " length ");" \n
- )
- (define-skeleton php-strstr
- "Insert a strstr statement. Find the first occurrence of a stringFind the first occurrence of a string"
- ""
- '(setq haystack (skeleton-read "String haystack? "))
- '(setq needle (skeleton-read "String needle? "))
- '(setq before_needle (skeleton-read "Before needle?"))
- > "strstr(" string ", " needle ", " before_needle ");" \n
- )
- (define-skeleton php-strtok
- "Insert a strlower statement"
- ""
- '(setq str (skeleton-read "String? "))
- '(setq token (skeleton-read "Token? "))
- > "strtolower(" str ");" \n)
- (define-skeleton php-strtolower
- "Insert a strlower statement"
- ""
- '(setq str (skeleton-read "String? "))
- > "strtolower(" str ");" \n)
- (define-skeleton php-strtotime
- "Insert a strtotime statement"
- ""
- '(setq str (skeleton-read "String? "))
- > "strtotime(" str ");" \n)
- (define-skeleton php-strtoupper
- "Insert a strtoupper statement"
- ""
- '(setq str (skeleton-read "String? "))
- > "strtoupper(" str ");" \n)
- (define-skeleton php-strtr
- "Insert a strtr statement"
- ""
- '(setq str (skeleton-read "String? "))
- '(setq from (skeleton-read "From? "))
- '(setq to (skeleton-read "To? "))
- > "strtr(" str ", " from ", " to ");" \n
- )
- (define-skeleton php-substr_compare
- "Insert a substr_compare"
- ""
- '(setq main_str (skeleton-read "The main string being compared? "))
- '(setq str (skeleton-read "The secondary string being compared? "))
- '(setq offset (skeleton-read "The start position for the comparison? "))
- '(setq length (skeleton-read "The length of the comparison? "))
- > "substr_compare(" main_str ", " str ", " offset ", " length ");" \n
- )
- (define-skeleton php-substr_count
- "Insert a substr_count"
- ""
- '(setq haystack (skeleton-read "String haystack? "))
- '(setq needle (skeleton-read "String needle? "))
- '(setq offset (skeleton-read "Offset?"))
- '(setq length (skeleton-read "Length? "))
- > "substr_count(" haystack ", " needle ", " offset ", " length ");" \n
- )
- (define-skeleton php-substr_replace
- "Insert a substr_replace"
- ""
- '(setq str (skeleton-read "String? "))
- '(setq replacement (skeleton-read "Replacement? "))
- '(setq start (skeleton-read "Start? "))
- '(setq length (skeleton-read "Length? "))
- > "substr_replace(" str ", " replacement ", " start ", " length ");" \n
- )
- (define-skeleton php-substr
- "Insert a substr_replace statement"
- ""
- '(setq str (skeleton-read "String? "))
- '(setq start (skeleton-read "Start? "))
- '(setq length (skeleton-read "Length? "))
- > "substr(" str ", " start ", " length ");" \n
- )
- (define-skeleton php-trim
- "Insert a trim statement"
- ""
- '(setq str (skeleton-read "String? "))
- '(setq charlist (skeleton-read "Charlist? "))
- > "trim(" str ", " charlist ");" \n
- )
- (define-skeleton php-ucfirst
- "Insert a ucfirst statement"
- ""
- '(setq str (skeleton-read "String? "))
- > "ucfirst('" str "');" \n)
- (define-skeleton php-ucwords
- "Insert a ucfirst statement"
- ""
- '(setq str (skeleton-read "String? "))
- > "ucwords('" str "');" \n)
- (define-skeleton php-vfprintf
- "Insert a vfprintf statement"
- ""
- '(setq handle (skeleton-read "Handle? "))
- '(setq format (skeleton-read "Format? "))
- '(setq args (skeleton-read "Args? "))
- > "vfprintf(" handle ", " format ", " args ");" \n
- )
- (define-skeleton php-vprintf
- "Insert a vprintf statement"
- ""
- '(setq format (skeleton-read "Format? "))
- '(setq args (skeleton-read "Args? "))
- > "vprintf(" format ", " args ");" \n
- )
- (define-skeleton php-vsprintf
- "Insert a vsprintf statement"
- ""
- '(setq format (skeleton-read "Format? "))
- '(setq args (skeleton-read "Args? "))
- > "vsprintf(" format ", " args ");" \n
- )
- (define-skeleton php-wordwrap
- "Insert a wordwrap statement. Wraps a string to a given number of characters"
- ""
- '(setq str (skeleton-read "String? "))
- '(setq width (skeleton-read "Width? "))
- '(setq break (skeleton-read "Break? "))
- '(setq cut (skeleton-read "Cut? (TRUE | FALSE) "))
- > "wordwrap(" str ", " width ", " break ", " cut ");" \n
- )