* Re: ConvertToConteXt - convert special ConTeXt-characters (PHP)
2011-11-01 16:16 ConvertToConteXt - convert special ConTeXt-characters (PHP) Jan Heinen
2011-11-01 17:21 ` Peter Münster
@ 2011-11-01 17:54 ` Aditya Mahajan
2011-11-01 17:58 ` Philipp Gesang
2 siblings, 0 replies; 4+ messages in thread
From: Aditya Mahajan @ 2011-11-01 17:54 UTC (permalink / raw)
To: mailing list for ConTeXt users
[-- Attachment #1: Type: TEXT/PLAIN, Size: 5796 bytes --]
On Tue, 1 Nov 2011, Jan Heinen wrote:
> Hello,
>
> I am just programming a catalog which should be printed.
>
> I have a lot of data, text and pictures in a MySQL-database and want to
> generate a nice catalog with ConTeXt.
> To get the data from MySQL to ConTeXt I use PHP as an Interface:
>
> MySQL -> PHP -> ConTeXt
>
> And lot's of ConTeXt-macros will make a nice layout :-)
>
> To give something back to this ConTeXt-community, I will put some helpfull
> PHP-functions into the wiki of contextgarden.net.
>
> Today I wrote the function "ConvertToConteXt" which converts special
> ConTeXt-characters. You can see it below.
>
>
> Before I put it into contextgarden.net ...
> 1. ... please test it.
> 2. You see three characters, where I don't know the code-number \char??? for
> ConTeXt. Do you know them?
> 3. Did I forget to convert a character?
>
> Regards
> Jannis
>
>
>
> function ConvertToConteXt ( $xstring ) {
> /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> *
> *
> * author: Jörg Kopp
> * www.dr-kopp.com
> * 01.11.2011
> *
> * Convert special ConTeXt-characters with php
> * Works with PHP5
> *
> * Call it with the string you want to convert ...
> * ConvertToConteXt ($xstring);
> *
> * ... and you get back the converted string
> *
> * e.g.:
> * Input:
> * $string = "My root-Directory: /home/hans";
> * $string = ConvertToConteXt ( $string );
> *
> * Output/Return:
> * $string = "My root\\char45Directory\\char58
> \\char47home\\char47hans";
> *
> * When you write this into a file ...
> * file_put_contents ( "example.tex", "My
> root\\char45Directory\char58 \\char47home\\char47hans", FILE_APPEND );
> *
> * ... You will find the following in example.tex:
> * My root\char45Directory\char58 \char47home\char47hans
> *
> * An when you compile example.tex with ConTeXt
> * context example.text
> *
> * You can read the following in the resulting example.pdf:
> * My root-Directory: /home/hans
> *
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
>
> $xstring = html_entity_decode ( $xstring ); // convert
> HTML-entities into normal characters
> $xstring = str_replace ( "!", "\\char33", $xstring ); //
> Ausrufungszeichen/ConvertToConteXt
> $xstring = str_replace ( "\"", "\\char34", $xstring ); //
> Anführungszeichen/quotation mark
> $xstring = str_replace ( "#", "\\char35", $xstring ); // Raute/number
> sign
> $xstring = str_replace ( "$", "\\char36", $xstring ); //
> Dollar-Zeichen/dollar sign
> $xstring = str_replace ( "%", "\\char37", $xstring ); //
> Prozent-Zeichen/percent sign
> $xstring = str_replace ( "&", "\\char38", $xstring ); // Kaufmännisches
> Und/ampersand
> $xstring = str_replace ( "'", "\\char39", $xstring ); //
> Apostroph/apostrophe
> $xstring = str_replace ( "(", "\\char40", $xstring ); // Klammer auf/left
> parenthesis
> $xstring = str_replace ( ")", "\\char41", $xstring ); // Klammer zu/right
> parenthesis
> $xstring = str_replace ( "*", "\\char42", $xstring ); // Stern/asterisk
> $xstring = str_replace ( "+", "\\char43", $xstring ); // Plus/plus sign
> $xstring = str_replace ( ",", "\\char44", $xstring ); // Komma/comma
> $xstring = str_replace ( "-", "\\char45", $xstring ); // Minus/hyphen
> $xstring = str_replace ( ".", "\\char46", $xstring ); // Punkt/period
> $xstring = str_replace ( "/", "\\char47", $xstring ); //
> Schrägstrich/period
> $xstring = str_replace ( ":", "\\char58", $xstring ); //
> Doppelpunkt/colon
> $xstring = str_replace ( ";", "\\char59", $xstring ); //
> Semikolon/semicolon
> $xstring = str_replace ( "<", "\\char60", $xstring ); //
> Kleinerzeichen/less-than
> $xstring = str_replace ( "=", "\\char61", $xstring ); //
> Gleichzeichen/equals-to
> $xstring = str_replace ( ">", "\\char62", $xstring ); //
> Größerzeichen/greater-than
> $xstring = str_replace ( "?", "\\char63", $xstring ); //
> Fragezeichen/question mark
> $xstring = str_replace ( "@", "\\char64", $xstring ); // at-Zeichen/at
> sign
> $xstring = str_replace ( "[", "\\char91", $xstring ); // eckige Klammer
> auf/left square bracket
> $xstring = str_replace ( "\\", "\\char92", $xstring ); //
> Backslash/backslash
> $xstring = str_replace ( "]", "\\char93", $xstring ); // eckige Klammer
> zu/right square bracket
> $xstring = str_replace ( "^", "\\char94", $xstring ); // Zirkumflex/caret
> $xstring = str_replace ( "_", "\\char95", $xstring ); //
> Unterstrich/underscore
> //$xstring = str_replace ( "°", "\\char", $xstring ); // Grad/ < ------
> missing
> $xstring = str_replace ( "`", "\\char96", $xstring ); // accent
> aigu/acute accent
> $xstring = str_replace ( "{", "\\char123", $xstring ); // geschweifte
> Klammer auf/left curly brace
> $xstring = str_replace ( "|", "\\char124", $xstring ); //
> Pipezeichen/vertical bar
> $xstring = str_replace ( "}", "\\char125", $xstring ); // geschweifte
> Klammer zu/right curly brace
> $xstring = str_replace ( "~", "\\char126", $xstring ); // Tilde/tilde
> //$xstring = str_replace ( "•", "\\char", $xstring ); // ?/ < ------
> missing
> //$xstring = str_replace ( "º", "\\char", $xstring ); // ?/ < ------
> missing
>
> return $xstring;
> }
This is what I use in t-vim
" Change special TeX characters to escape sequences.
let s:temp = escape( s:temp, '\{}')
and read everything in a catcode regime that sets only \ { } to their
regular meaning.
Aditya
[-- Attachment #2: Type: text/plain, Size: 485 bytes --]
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!
maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage : http://www.pragma-ade.nl / http://tex.aanhet.net
archive : http://foundry.supelec.fr/projects/contextrev/
wiki : http://contextgarden.net
___________________________________________________________________________________
^ permalink raw reply [flat|nested] 4+ messages in thread* Re: ConvertToConteXt - convert special ConTeXt-characters (PHP)
2011-11-01 16:16 ConvertToConteXt - convert special ConTeXt-characters (PHP) Jan Heinen
2011-11-01 17:21 ` Peter Münster
2011-11-01 17:54 ` Aditya Mahajan
@ 2011-11-01 17:58 ` Philipp Gesang
2 siblings, 0 replies; 4+ messages in thread
From: Philipp Gesang @ 2011-11-01 17:58 UTC (permalink / raw)
To: mailing list for ConTeXt users
[-- Attachment #1.1: Type: text/plain, Size: 8682 bytes --]
Good evening, Jannis!
On 2011-11-01 17:16, Jan Heinen wrote:
> Today I wrote the function "ConvertToConteXt" which converts special
> ConTeXt-characters. You can see it below.
The data necessary for converting HTML entities is already in
Context, have a look at “char-ent.lua” if you are interested.
Based on this you could write the deentitizer (== your
“html_entity_decode” function?) + character handler in “pure”
Context (no PHP needed) as follows:
··· deent.cld ···················································
thirddata = thirddata or { }
thirddata.myfunctions = thirddata.myfunctions or { }
local myfunctions = thirddata.myfunctions
local entities = characters.entities
local utf8byte = unicode.utf8.byte
local lpegmatch = lpeg.match
local P, R, S, Cs = lpeg.P, lpeg.R, lpeg.S, lpeg.Cs
local fmt, stringupper = string.format, string.upper
do
local s_hex = [[{\char"%s}]]
local s_dec = [[{\char%s}]]
local replace_hex_entity = function (hexnum)
return fmt(s_hex, stringupper(hexnum))
end
local replace_dec_entity = function (decimal)
return fmt(s_dec, decimal)
end
local replace_named_entity = function (name)
return fmt(s_dec, utf8byte(entities[name]))
end
local replace_unsafe = function (char)
return fmt(s_dec, utf8byte(char))
end
--local backslash = P[[\]]
--local escaped = backslash / "" * 1
local semicolon = P";"
local ucase_letter = R"AZ"
local lcase_letter = R"az"
local decimal_digit = R"09"
local decimal_number = decimal_digit^1
local hex_digit = decimal_digit + R"AF" + R"af"
local hex_number = hex_digit^1
local entity_char = ucase_letter + lcase_letter + decimal_digit
local entity_chars = entity_char^1
local entity = (P"&#x" / "") * (hex_number / replace_hex_entity) * (semicolon / "")
+ (P"&#" / "") * (decimal_number / replace_dec_entity) * (semicolon / "")
+ (P"&" / "") * (entity_chars / replace_named_entity) * (semicolon / "")
local unsafe = S[[{}\$~%]] / replace_unsafe
--local p_characters = Cs((escaped + unsafe + entity + 1)^0)
local p_characters = Cs((unsafe + entity + 1)^0)
myfunctions.convert_to_context = function (str)
return lpegmatch(p_characters, str)
end
end
--- Testing ...
local someinput = [[
a º b • c ° d
B e Ł f } g } h
&non-well-formed; i { j
} k { l \ m $ n + o - p ^ q _ r @ s ` t ~ u ! v % w
« x
]]
context.starttext()
context(myfunctions.convert_to_context(someinput))
context.stoptext()
·································································
> 3. Did I forget to convert a character?
Most of the chars you substituted have no special semantics in
the first place.
Philipp
> Before I put it into contextgarden.net ...
> 1. ... please test it.
> 2. You see three characters, where I don't know the code-number
> \char??? for ConTeXt. Do you know them?
> 3. Did I forget to convert a character?
>
> Regards
> Jannis
>
>
>
> function ConvertToConteXt ( $xstring ) {
> /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> * * * * *
> *
> * author: Jörg Kopp
> * www.dr-kopp.com
> * 01.11.2011
> *
> * Convert special ConTeXt-characters with php
> * Works with PHP5
> *
> * Call it with the string you want to convert ...
> * ConvertToConteXt ($xstring);
> *
> * ... and you get back the converted string
> *
> * e.g.:
> * Input:
> * $string = "My root-Directory: /home/hans";
> * $string = ConvertToConteXt ( $string );
> *
> * Output/Return:
> * $string = "My root\\char45Directory\\char58
> \\char47home\\char47hans";
> *
> * When you write this into a file ...
> * file_put_contents ( "example.tex", "My
> root\\char45Directory\char58 \\char47home\\char47hans", FILE_APPEND
> );
> *
> * ... You will find the following in example.tex:
> * My root\char45Directory\char58 \char47home\char47hans
> *
> * An when you compile example.tex with ConTeXt
> * context example.text
> *
> * You can read the following in the resulting example.pdf:
> * My root-Directory: /home/hans
> *
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> * * * */
>
> $xstring = html_entity_decode ( $xstring ); // convert
> HTML-entities into normal characters
> $xstring = str_replace ( "!", "\\char33", $xstring ); //
> Ausrufungszeichen/ConvertToConteXt
> $xstring = str_replace ( "\"", "\\char34", $xstring ); //
> Anführungszeichen/quotation mark
> $xstring = str_replace ( "#", "\\char35", $xstring ); //
> Raute/number sign
> $xstring = str_replace ( "$", "\\char36", $xstring ); //
> Dollar-Zeichen/dollar sign
> $xstring = str_replace ( "%", "\\char37", $xstring ); //
> Prozent-Zeichen/percent sign
> $xstring = str_replace ( "&", "\\char38", $xstring ); //
> Kaufmännisches Und/ampersand
> $xstring = str_replace ( "'", "\\char39", $xstring ); //
> Apostroph/apostrophe
> $xstring = str_replace ( "(", "\\char40", $xstring ); // Klammer
> auf/left parenthesis
> $xstring = str_replace ( ")", "\\char41", $xstring ); // Klammer
> zu/right parenthesis
> $xstring = str_replace ( "*", "\\char42", $xstring ); //
> Stern/asterisk
> $xstring = str_replace ( "+", "\\char43", $xstring ); //
> Plus/plus sign
> $xstring = str_replace ( ",", "\\char44", $xstring ); //
> Komma/comma
> $xstring = str_replace ( "-", "\\char45", $xstring ); //
> Minus/hyphen
> $xstring = str_replace ( ".", "\\char46", $xstring ); //
> Punkt/period
> $xstring = str_replace ( "/", "\\char47", $xstring ); //
> Schrägstrich/period
> $xstring = str_replace ( ":", "\\char58", $xstring ); //
> Doppelpunkt/colon
> $xstring = str_replace ( ";", "\\char59", $xstring ); //
> Semikolon/semicolon
> $xstring = str_replace ( "<", "\\char60", $xstring ); //
> Kleinerzeichen/less-than
> $xstring = str_replace ( "=", "\\char61", $xstring ); //
> Gleichzeichen/equals-to
> $xstring = str_replace ( ">", "\\char62", $xstring ); //
> Größerzeichen/greater-than
> $xstring = str_replace ( "?", "\\char63", $xstring ); //
> Fragezeichen/question mark
> $xstring = str_replace ( "@", "\\char64", $xstring ); //
> at-Zeichen/at sign
> $xstring = str_replace ( "[", "\\char91", $xstring ); // eckige
> Klammer auf/left square bracket
> $xstring = str_replace ( "\\", "\\char92", $xstring ); //
> Backslash/backslash
> $xstring = str_replace ( "]", "\\char93", $xstring ); // eckige
> Klammer zu/right square bracket
> $xstring = str_replace ( "^", "\\char94", $xstring ); //
> Zirkumflex/caret
> $xstring = str_replace ( "_", "\\char95", $xstring ); //
> Unterstrich/underscore
> //$xstring = str_replace ( "°", "\\char", $xstring ); // Grad/ <
> ------ missing
> $xstring = str_replace ( "`", "\\char96", $xstring ); // accent
> aigu/acute accent
> $xstring = str_replace ( "{", "\\char123", $xstring ); //
> geschweifte Klammer auf/left curly brace
> $xstring = str_replace ( "|", "\\char124", $xstring ); //
> Pipezeichen/vertical bar
> $xstring = str_replace ( "}", "\\char125", $xstring ); //
> geschweifte Klammer zu/right curly brace
> $xstring = str_replace ( "~", "\\char126", $xstring ); //
> Tilde/tilde
> //$xstring = str_replace ( "•", "\\char", $xstring ); // ?/ <
> ------ missing
> //$xstring = str_replace ( "º", "\\char", $xstring ); // ?/ <
> ------ missing
>
> return $xstring;
> }
>
>
> ___________________________________________________________________________________
> If your question is of interest to others as well, please add an entry to the Wiki!
>
> maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
> webpage : http://www.pragma-ade.nl / http://tex.aanhet.net
> archive : http://foundry.supelec.fr/projects/contextrev/
> wiki : http://contextgarden.net
> ___________________________________________________________________________________
--
() ascii ribbon campaign - against html e-mail
/\ www.asciiribbon.org - against proprietary attachments
[-- Attachment #1.2: Type: application/pgp-signature, Size: 198 bytes --]
[-- Attachment #2: Type: text/plain, Size: 485 bytes --]
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!
maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage : http://www.pragma-ade.nl / http://tex.aanhet.net
archive : http://foundry.supelec.fr/projects/contextrev/
wiki : http://contextgarden.net
___________________________________________________________________________________
^ permalink raw reply [flat|nested] 4+ messages in thread