Пример #1
0
 function addAssignment(&$node, $instruction)
 {
     $rule = trim($instruction->getRule());
     $rgid = trim($instruction->getRgid());
     // hide text
     $excluded = array();
     $rule = excludeText($rule, $excluded);
     // hide module dot notations
     $rule = hideModuleNotations($rule, TEXT_MODULE_DOT);
     // split left and right hand
     $split = splitString("/:=/", $rule);
     $lefthand = includeText($split[0], $excluded);
     $righthand = includeText($split[1], $excluded);
     $this->addToStatements("<div class='uscic-paperversion-for uscic-paperversion-nesting" . $this->nesting . "'><div class='uscic-paperversion-assignment'>" . includeText($rule, $excluded) . "</div></div>", 7);
 }
Пример #2
0
 function showRefactorGroupRes()
 {
     /* update last page */
     $_SESSION['LASTPAGE'] = substr($_SESSION['LASTPAGE'], 0, strripos($_SESSION['LASTPAGE'], "res"));
     $displaySysAdmin = new DisplaySysAdmin();
     $survey = new Survey($_SESSION['SUID']);
     $gid = getFromSessionParams('gid');
     if ($gid != '') {
         //refactor
         $_SESSION['GID'] = $gid;
         $group = $survey->getGroup($gid);
         $old = $group->getName();
         if ($old != loadvar(SETTING_NAME)) {
             $group->setName(loadvar(SETTING_NAME));
             $group->save();
             $new = $group->getName();
             $compiler = new Compiler($_SESSION['SUID'], getSurveyVersion($survey));
             $messages[] = $compiler->generateGroups(array($group));
             $generate = array();
             $sections = $survey->getSections();
             foreach ($sections as $sect) {
                 $routing = $sect->getRouting();
                 $excluded = array();
                 $newrouting = excludeText($routing, $excluded);
                 $newrouting = preg_replace("/\\b" . $old . "\\b/i", $new, $newrouting);
                 $newrouting = includeText($newrouting, $excluded);
                 if ($newrouting != $routing) {
                     $sect->storeRouting($newrouting);
                     $sect->save();
                     $generate[] = $sect;
                 }
             }
             $compiler = new Compiler($_SESSION['SUID'], getSurveyVersion($survey));
             $messages[] = $compiler->generateSections($generate);
             foreach ($generate as $gen) {
                 $messages[] = $compiler->generateEngine($gen->getSeid());
             }
             return $displaySysAdmin->showEditGroup($_SESSION['GID'], $displaySysAdmin->displaySuccess(Language::messageGroupRenamed($old, $new)));
         } else {
             return $displaySysAdmin->showRefactorGroup($_SESSION['GID'], $displaySysAdmin->displayWarning(Language::messageGroupNotRenamed()));
         }
     } else {
         return $displaySysAdmin->showSection($content);
     }
 }
Пример #3
0
 function addFillNoValue($text)
 {
     $excluded = array();
     $rule = excludeText($text, $excluded);
     $rule = str_replace("[", TEXT_BRACKET_LEFT, $rule);
     $rule = str_replace("]", TEXT_BRACKET_RIGHT, $rule);
     // hide module dot notations
     $rule = hideModuleNotations($rule, TEXT_MODULE_DOT);
     //echo '<BR/>' . $rule;
     $rule = includeText($rule, $excluded);
     $parser = new PHPParser_Parser(new PHPParser_Lexer());
     $this->factory = new PHPParser_BuilderFactory();
     $this->printer = new PHPParser_PrettyPrinter_Default();
     $classextension = prepareClassExtension($text);
     $rootnode = $this->factory->class(CLASS_GETFILL . "_" . $classextension)->extend(CLASS_BASICFILL);
     $stmt = new PHPParser_Node_Stmt_Return(new PHPParser_Node_Scalar_String(""));
     try {
         //echo $rule . "<br/>";
         $stmts = $parser->parse("<?php " . $rule . " ?>");
         $stmt = $stmts[0];
         $stmt = new PHPParser_Node_Arg($stmt);
         // encapsulate in fake Argument object, since updateVariables looks only at children of entered node
         $this->updateVariables($stmt);
         // fake method call for Q1[1,1] reference
         if ($stmt->value instanceof PHPParser_Node_Expr_MethodCall) {
             //print_r($stmt->value);
             $stmt = new PHPParser_Node_Stmt_Return($stmt->value);
         } else {
             //print_r($stmt->value->name);
             //echo 'hghghghghg';
             //$stmt = new PHPParser_Node_Stmt_Return($stmt->value->name->args[0]->value);
             $stmt = new PHPParser_Node_Stmt_Return($stmt->value->name);
         }
     } catch (PHPParser_Error $e) {
         $this->addErrorMessage(Language::errorFillInvalid());
         return;
     }
     /* add getFillValue function */
     $getfillvalue = $this->factory->method(FUNCTION_GET_FILL_VALUE);
     $getfillvalue->makePublic();
     $getfillvalue->addStmt($stmt);
     $rootnode->addStmt($getfillvalue);
     /* get statements */
     $stmts = array($rootnode->getNode());
     /* generate code */
     $fillclass = $this->printer->prettyPrint($stmts);
     /* return result */
     //echo $fillclass . "<hr>";
     return $fillclass;
 }
Пример #4
0
 function addForLoop($instruction)
 {
     $rule = trim($instruction->getRule());
     $rgid = trim($instruction->getRgid());
     $rgidafter = $rgid;
     // hide text
     $excluded = array();
     $rule = excludeText($rule, $excluded);
     // hide module dot notations
     $rule = hideModuleNotations($rule, TEXT_MODULE_DOT);
     // strip FOR
     $reversefor = 1;
     if (startsWith($rule, ROUTING_IDENTIFY_FORREVERSE)) {
         $rule = substr($rule, stripos($rule, ROUTING_IDENTIFY_FORREVERSE) + strlen(ROUTING_IDENTIFY_FORREVERSE));
         $reversefor = 2;
     } else {
         $rule = substr($rule, stripos($rule, ROUTING_IDENTIFY_FOR) + strlen(ROUTING_IDENTIFY_FOR));
     }
     /* multi-line for */
     //if ($pos < 0) {
     if (endsWith(strtoupper($rule), ROUTING_IDENTIFY_DO) == false) {
         for ($cnt = $this->cnt + 1; $cnt <= sizeof($this->instructions); $cnt++) {
             if (isset($this->instructions[$cnt])) {
                 $text = trim($this->instructions[$cnt]->getRule());
                 if (startsWith($text, "/*")) {
                     $this->skipComments($cnt, $cnt);
                 } else {
                     if (startsWith($text, "//")) {
                     } else {
                         //$pos = strripos($text, ROUTING_IDENTIFY_DO);
                         $rule .= " " . $text;
                         //if ($pos > -1) {
                         if (endsWith(strtoupper($rule), ROUTING_IDENTIFY_DO) == true) {
                             $this->cnt = $cnt;
                             $rgidafter = $this->instructions[$cnt]->getRgid();
                             break;
                         }
                     }
                 }
             }
         }
     }
     $pos = strripos(strtoupper($rule), ROUTING_IDENTIFY_DO);
     if ($pos < 1) {
         $this->addErrorMessage(Language::errorForLoopMissingDo());
         return;
     }
     // strip do
     $rule = trim(substr($rule, 0, $pos));
     if (!contains(strtoupper($rule), " TO ")) {
         $this->addErrorMessage(Language::errorForLoopMissingTo());
         return;
     }
     if (!contains(strtoupper($rule), ":=")) {
         $this->addErrorMessage(Language::errorForLoopMissingAssignment());
         return;
     }
     // determine min and max
     $bounds = preg_split("/ to /i", $rule);
     $counterplusstart = splitString("/:=/", $bounds[0]);
     //print_r($excluded);
     $counterfield = includeText($counterplusstart[0], $excluded);
     $minimum = includeText($counterplusstart[1], $excluded);
     $maximum = includeText($bounds[1], $excluded);
     // check for array
     if (!is_numeric($minimum)) {
         $var = $this->survey->getVariableDescriptiveByName(getBasicName($minimum));
         // new VariableDescriptive();
         if ($var->isArray()) {
             if (!contains($minimum, "[")) {
                 $this->addErrorMessage(Language::errorVariableNoArrayIndex(strtolower(getBasicName($minimum))));
             }
         }
     }
     if (!is_numeric($maximum)) {
         $var = $this->survey->getVariableDescriptiveByName(getBasicName($maximum));
         // new VariableDescriptive();
         if ($var->isArray()) {
             if (!contains($maximum, "[")) {
                 $this->addErrorMessage(Language::errorVariableNoArrayIndex(strtolower(getBasicName($maximum))));
             }
         }
     }
     // replace [ and ] with ( and ), so the parser doesn't break
     // (we deal with these cases in the updateVariables function)
     $counterfield = str_replace("[", TEXT_BRACKET_LEFT, $counterfield);
     $counterfield = str_replace("]", TEXT_BRACKET_RIGHT, $counterfield);
     $minimum = str_replace("[", TEXT_BRACKET_LEFT, $minimum);
     $minimum = str_replace("]", TEXT_BRACKET_RIGHT, $minimum);
     $maximum = str_replace("[", TEXT_BRACKET_LEFT, $maximum);
     $maximum = str_replace("]", TEXT_BRACKET_RIGHT, $maximum);
     $parser = new PHPParser_Parser(new PHPParser_Lexer());
     try {
         $stmts = $parser->parse("<?php " . $minimum . "?>");
         // only one statement (no ; allowed in loop minimum)
         $stmt = $stmts[0];
         $stmt = new PHPParser_Node_Arg($stmt);
         // encapsulate in fake Argument object, since updateVariables looks only at children of entered node
         $this->updateVariables($stmt);
         $min = $stmt;
         //echo 'min: ' . $minimum;
         $stmts = $parser->parse("<?php " . $maximum . "?>");
         // only one statement (no ; allowed in loop maximum)
         $stmt = $stmts[0];
         $stmt = new PHPParser_Node_Arg($stmt);
         // encapsulate in fake Argument object, since updateVariables looks only at children of entered node
         $this->updateVariables($stmt);
         $max = $stmt;
         //echo 'max: ' . $maximum;
         $stmts = $parser->parse("<?php " . $counterfield . "?>");
         // only one statement (no ; allowed in loop maximum)
         $stmt = $stmts[0];
         $stmt = new PHPParser_Node_Arg($stmt);
         // encapsulate in fake Argument object, since updateVariables looks only at children of entered node
         $this->updateVariables($stmt);
         //print_r($stmt);
         if ($stmt->value instanceof PHPParser_Node_Expr_MethodCall) {
             $counter = $stmt->value->var;
         } else {
             /* not a constant, which happens if the counter field does not exist */
             if ($stmt->value->name instanceof PHPParser_Node_Expr_MethodCall) {
                 $counter = $stmt->value->name->var;
             } else {
                 $counter = new PHPParser_Node_Expr_Variable($counterfield);
             }
         }
     } catch (PHPParser_Error $e) {
         $this->addErrorMessage(Language::errorForLoopInvalid());
         return;
     }
     // create for loop
     $temp = new PHPParser_Node_Expr_MethodCall($counter, FUNCTION_XI_GET_ANSWER, array($min));
     $temp1 = new PHPParser_Node_Expr_MethodCall($counter, FUNCTION_XI_GET_ANSWER, array());
     $temp2 = new PHPParser_Node_Expr_SmallerOrEqual($temp1, $max->value);
     $temp4 = new PHPParser_Node_Expr_Plus($temp1, new PHPParser_Node_Scalar_LNumber(1));
     $temp3 = new PHPParser_Node_Expr_MethodCall($counter, FUNCTION_XI_GET_ANSWER, array($temp4));
     $fillcall = "for (" . $this->printer->prettyPrint(array($temp)) . " " . $this->printer->prettyPrint(array($temp2)) . " " . $this->printer->prettyPrint(array($temp3));
     // clean up
     $fillcall = str_replace(" . (", "", $fillcall);
     $fillcall = str_replace(" . ])", "]", $fillcall);
     $fillcall = str_replace("\n", "", trim(substr($fillcall, 0, strlen($fillcall) - 1))) . ") {\r\n";
     // remove closing "}"
     $this->routing_output[$this->seid][] = $fillcall;
 }