[system] / trunk / pg / macros / PGbasicmacros.pl Repository:
ViewVC logotype

Diff of /trunk/pg/macros/PGbasicmacros.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 1267 Revision 1286
83# This is initializes the remaining variables in the runtime main:: compartment. 83# This is initializes the remaining variables in the runtime main:: compartment.
84 84
85main::PG_restricted_eval( <<'EndOfFile'); 85main::PG_restricted_eval( <<'EndOfFile');
86 $displayMode = $displayMode; 86 $displayMode = $displayMode;
87 87
88 $PAR = PAR(); 88 $main::PAR = PAR();
89 $BR = BR(); 89 $main::BR = BR();
90 $main::LQ = LQ(); 90 $main::LQ = LQ();
91 $main::RQ = RQ(); 91 $main::RQ = RQ();
92 $BM = BM(); 92 $main::BM = BM();
93 $EM = EM(); 93 $main::EM = EM();
94 $main::BDM = BDM(); 94 $main::BDM = BDM();
95 $main::EDM = EDM(); 95 $main::EDM = EDM();
96 $main::LTS = LTS(); 96 $main::LTS = LTS();
97 $main::GTS = GTS(); 97 $main::GTS = GTS();
98 $main::LTE = LTE(); 98 $main::LTE = LTE();
102 $main::SOL = SOLUTION_HEADING(); 102 $main::SOL = SOLUTION_HEADING();
103 $main::SOLUTION = SOLUTION_HEADING(); 103 $main::SOLUTION = SOLUTION_HEADING();
104 $main::HINT = HINT_HEADING(); 104 $main::HINT = HINT_HEADING();
105 $main::US = US(); 105 $main::US = US();
106 $main::SPACE = SPACE(); 106 $main::SPACE = SPACE();
107 $BBOLD = BBOLD(); 107 $main::BBOLD = BBOLD();
108 $EBOLD = EBOLD(); 108 $main::EBOLD = EBOLD();
109 $main::BITALIC = BITALIC(); 109 $main::BITALIC = BITALIC();
110 $main::EITALIC = EITALIC(); 110 $main::EITALIC = EITALIC();
111 $main::BCENTER = BCENTER(); 111 $main::BCENTER = BCENTER();
112 $main::ECENTER = ECENTER(); 112 $main::ECENTER = ECENTER();
113 $main::HR = HR(); 113 $main::HR = HR();
128 128
129# Next we transfer the correct definitions in the main:: compartment to the local my variables 129# Next we transfer the correct definitions in the main:: compartment to the local my variables
130# This can't be done inside the eval above because my variables seem to be invisible inside the eval 130# This can't be done inside the eval above because my variables seem to be invisible inside the eval
131 131
132 132
133 $PAR = $PAR; 133 $PAR = PAR();
134 $BR = $BR; 134 $BR = BR();
135 $LQ = $main::LQ; 135 $LQ = LQ();
136 $RQ = $main::RQ; 136 $RQ = RQ();
137 $BM = $BM; 137 $BM = BM();
138 $EM = $EM; 138 $EM = EM();
139 $BDM = $main::BDM; 139 $BDM = BDM();
140 $EDM = $main::EDM; 140 $EDM = EDM();
141 $LTS = $main::LTS; 141 $LTS = LTS();
142 $GTS = $main::GTS; 142 $GTS = GTS();
143 $LTE = $main::LTE; 143 $LTE = LTE();
144 $GTE = $main::GTE; 144 $GTE = GTE();
145 $BEGIN_ONE_COLUMN = $main::BEGIN_ONE_COLUMN; 145 $BEGIN_ONE_COLUMN = BEGIN_ONE_COLUMN();
146 $END_ONE_COLUMN = $main::END_ONE_COLUMN; 146 $END_ONE_COLUMN = END_ONE_COLUMN();
147 $SOL = $main::SOLUTION_HEADING; 147 $SOL = SOLUTION_HEADING();
148 $SOLUTION = $main::SOLUTION_HEADING; 148 $SOLUTION = SOLUTION_HEADING();
149 $HINT = $main::HINT_HEADING; 149 $HINT = HINT_HEADING();
150 $US = $main::US; 150 $US = US();
151 $SPACE = $main::SPACE; 151 $SPACE = SPACE();
152 $BBOLD = $BBOLD; 152 $BBOLD = BBOLD();
153 $EBOLD = $EBOLD; 153 $EBOLD = EBOLD();
154 $BITALIC = BITALIC();
155 $EITALIC = EITALIC();
156 $BCENTER = BCENTER();
157 $ECENTER = ECENTER();
154 $HR = $main::HR; 158 $HR = HR();
155 $LBRACE = $main::LBRACE; 159 $LBRACE = LBRACE();
156 $RBRACE = $main::RBRACE; 160 $RBRACE = RBRACE();
157 $LB = $main::LB; 161 $LB = LB();
158 $RB = $main::RB; 162 $RB = RB();
159 $DOLLAR = $main::DOLLAR; 163 $DOLLAR = DOLLAR();
160 $PERCENT = $main::PERCENT; 164 $PERCENT = PERCENT();
161 $CARET = $main::CARET; 165 $CARET = CARET();
162 $PI = $main::PI; 166 $PI = PI();
163 $E = $main::E; 167 $E = E();
164 @ALPHABET = ('A'..'ZZ'); 168 @ALPHABET = ('A'..'ZZ');
165
166# We initialize a local reference to the environment hash rather than transfer the entire hash
167# This way is slightly more efficient.
168 169
169 $envir = PG_restricted_eval(q!\%main::envir!); 170 $envir = PG_restricted_eval(q!\%main::envir!);
170 $PG_random_generator = PG_restricted_eval(q!$main::PG_random_generator!); 171 $PG_random_generator = PG_restricted_eval(q!$main::PG_random_generator!);
171 $inputs_ref = $envir{inputs_ref}; 172 $inputs_ref = $envir{inputs_ref};
172 173

Legend:
Removed from v.1267  
changed lines
  Added in v.1286

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9