| 133 | |
| 134 | |
| 135 | Boolean Func_2 (Str_1_Par_Ref, Str_2_Par_Ref) |
| 136 | /*************************************************/ |
| 137 | /* executed once */ |
| 138 | /* Str_1_Par_Ref == "DHRYSTONE PROGRAM, 1'ST STRING" */ |
| 139 | /* Str_2_Par_Ref == "DHRYSTONE PROGRAM, 2'ND STRING" */ |
| 140 | |
| 141 | Str_30 Str_1_Par_Ref; |
| 142 | Str_30 Str_2_Par_Ref; |
| 143 | { |
| 144 | REG One_Thirty Int_Loc; |
| 145 | Capital_Letter Ch_Loc; |
| 146 | |
| 147 | Int_Loc = 2; |
| 148 | while (Int_Loc <= 2) /* loop body executed once */ |
| 149 | if (Func_1 (Str_1_Par_Ref[Int_Loc], |
| 150 | Str_2_Par_Ref[Int_Loc+1]) == Ident_1) |
| 151 | /* then, executed */ |
| 152 | { |
| 153 | Ch_Loc = 'A'; |
| 154 | Int_Loc += 1; |
| 155 | } /* if, while */ |
| 156 | if (Ch_Loc >= 'W' && Ch_Loc < 'Z') |
| 157 | /* then, not executed */ |
| 158 | Int_Loc = 7; |
| 159 | if (Ch_Loc == 'R') |
| 160 | /* then, not executed */ |
| 161 | return (true); |
| 162 | else /* executed */ |
| 163 | { |
| 164 | if (strcmp (Str_1_Par_Ref, Str_2_Par_Ref) > 0) |
| 165 | /* then, not executed */ |
| 166 | { |
| 167 | Int_Loc += 7; |
| 168 | Int_Glob = Int_Loc; |
| 169 | return (true); |
| 170 | } |
| 171 | else /* executed */ |
| 172 | return (false); |
| 173 | } /* if Ch_Loc */ |
| 174 | } /* Func_2 */ |
| 175 | |
| 176 | |
| 177 | Boolean Func_3 (Enum_Par_Val) |