¿Por qué este uso de Begin [] no funciona?

Question

Si evaluamos estas líneas uno a uno, se creará x en el contexto cc.

Begin["cc`"]; 
x = 1; 
End[] 

Sin embargo, si los evaluamos juntos,

(Begin["cc`"]; 
x = 1; 
End[]) 

continuación x se creará en Global. Esto es a pesar de la siguiente impresión cc`:

(Begin["cc`"]; 
Print[$Context]; 
End[]) 

¿Cuál es la razón de este comportamiento? Supongo que los contextos solo importan durante la fase de análisis, no de evaluación.

Caso de uso: Quería crear una paleta Button que definirá algunos símbolos si aún no existen, en un contexto "privado" para evitar conflictos con los globales. ¿Cuál es el método preferido para hacer esto, aparte de poner todas las definiciones en un archivo de paquete y cargarlas desde la paleta? (Me gustaría mantener la paleta autónoma.)

Answer 1

Los símbolos (y sus contextos) se crean al analizar, no a la evaluación. Si utilizamos $NewSymbol podemos ver esto en efecto:

$NewSymbol=Print["Name: ",#1," Context: ",#2]&; 

Print["first"]; 
test1; 
Print["last"] 

(Print["first"]; 
test2; 
Print["last"]) 

Los primeros uno grabados:

first 
Name: test1 Context: Global` 
last 

porque cada línea en la célula es tratada como una entrada separada. El segundo utiliza paréntesis para forzar las tres líneas que han de considerarse una entrada y grabados

Name: test2 Context: Global` 
first 
last 

de la que podemos ver que test2 fue creado en el contexto Global` antes de que ocurriera cualquier evaluación.

Creo que la manera más fácil de trabajar con esto es utilizar un contexto explícito en su símbolo: cc`x = 1.

Answer 2

Para su segunda pregunta, lo remito a this respuesta mía, que efectivamente automatiza los pasos que se describen (con la función ParseTimeNameSpaceWrapper). Es posible que necesite más trabajo para hacerlo más robusto, pero ese podría ser un punto de partida. Yo uso esto yo mismo en alguna ocasión.

Answer 3

Sólo como referencia:

(Begin["cc`"]; Evaluate[Symbol["x"]] = 1; End[]) 

cc`x 

1