Dlaczego to używanie funkcji Begin [] nie działa?

Question

Jeśli ocenimy te linie: jeden po drugim, x zostanie utworzony w kontekście cc.

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

Jednakże, jeśli je oceniać razem,

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

następnie x zostanie utworzony w Global. Dzieje się tak pomimo poniższych drukowania cc`:

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

Co jest przyczyną takiego zachowania? Zgaduję, że konteksty mają znaczenie tylko podczas fazy analizy, a nie oceny.

Przypadek użycia: Chciałem utworzyć paletę Button, która zdefiniuje niektóre symbole, jeśli jeszcze nie istnieją, w "prywatnym" kontekście, aby uniknąć konfliktu z globalnymi. Jaka jest preferowana metoda wykonywania tego, inne niż umieszczanie wszystkich definicji w pliku pakietu i ładowanie ich z palety? (Chciałbym zachować niezależność palety).

Answer 1

Symbole (i ich konteksty) są tworzone podczas analizy, a nie podczas oceniania. Jeśli używamy $NewSymbol widzimy to w rezultacie:

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

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

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

pierwszy wydruki:

first 
Name: test1 Context: Global` 
last 

ponieważ każda linia w komórce jest traktowany jako oddzielny wejścia. Drugi wykorzystuje nawiasy zmusić wszystkich trzech linii uznać jedno wejście i drukuje

Name: test2 Context: Global` 
first 
last 

, z którego widać, że test2 powstała w kontekście Global` przed wystąpieniem dowolnego oceny.

Myślę, że najprościej z tym pracować, używając wyraźnego kontekstu na swoim symbolu: cc`x = 1.

Answer 2

Dla twojego drugiego pytania, odsyłam do mojej odpowiedzi this, która skutecznie automatyzuje kroki, które opisałeś (z funkcją ParseTimeNameSpaceWrapper). Może wymagać więcej pracy, aby uczynić go solidniejszym, ale może to być punkt wyjścia. Używam tych rzeczy osobiście przy okazji.

Answer 3

Tylko dla odniesienia:

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

cc`x 

1