[2696] | 1 | |
---|
| 2 | // ############################################################################ |
---|
| 3 | // |
---|
| 4 | // create_mz_kpp_module |
---|
| 5 | // |
---|
| 6 | // create vectorcode from .90 sources created by KPP to be used in MESSy |
---|
| 7 | // |
---|
| 8 | // COPYRIGHT Klaus Ketelsen and MPI-CH April 2007 |
---|
| 9 | // |
---|
| 10 | // ############################################################################ |
---|
[3458] | 11 | // |
---|
| 12 | //Current revisions: |
---|
| 13 | //------------------ |
---|
| 14 | // |
---|
| 15 | // |
---|
| 16 | // Former revisions: |
---|
| 17 | // ----------------------- |
---|
| 18 | // $Id: program_line.C 3327 2018-10-09 19:55:00Z forkel $ |
---|
| 19 | // |
---|
| 20 | // global_subtolower (June 2018, forkel) |
---|
| 21 | // |
---|
| 22 | // initial version (Nov. 2016, ketelsen) |
---|
| 23 | // |
---|
[2696] | 24 | |
---|
[3458] | 25 | |
---|
[2696] | 26 | #include "program_line.h" |
---|
| 27 | |
---|
| 28 | void program_line::set_line(string s) { |
---|
| 29 | |
---|
| 30 | line = s; |
---|
| 31 | |
---|
| 32 | tokens.fill_token(line); |
---|
| 33 | |
---|
| 34 | return; |
---|
| 35 | } |
---|
| 36 | void program_line::substitute(string old_s, string new_s) { |
---|
| 37 | |
---|
| 38 | int pos = line.find (old_s, 0); // look for string |
---|
| 39 | |
---|
| 40 | if (pos != string::npos) { // found |
---|
| 41 | line.replace(pos,old_s.size(),new_s); |
---|
| 42 | } |
---|
| 43 | |
---|
| 44 | return; |
---|
| 45 | } |
---|
| 46 | |
---|
| 47 | void program_line::global_substitute(string old_s, string new_s) { |
---|
| 48 | int pos; |
---|
| 49 | |
---|
| 50 | int start = line.size()-1; |
---|
| 51 | |
---|
| 52 | while (1) { |
---|
| 53 | pos = line.rfind (old_s, start); // look for string |
---|
| 54 | |
---|
| 55 | if (pos == string::npos) { |
---|
| 56 | break; |
---|
| 57 | } |
---|
| 58 | |
---|
| 59 | line.replace(pos,old_s.size(),new_s); |
---|
| 60 | |
---|
| 61 | start = pos-1; |
---|
| 62 | } |
---|
| 63 | |
---|
| 64 | return; |
---|
| 65 | } |
---|
| 66 | |
---|
| 67 | int program_line::get_token_number_from_string (string s) { |
---|
| 68 | |
---|
| 69 | for (int i=0; i<tokens.size(); i++) { |
---|
| 70 | if(tokens.get_token_by_index(i) == s) { |
---|
| 71 | return i; |
---|
| 72 | } |
---|
| 73 | } |
---|
| 74 | |
---|
| 75 | return -1; |
---|
| 76 | } |
---|
| 77 | |
---|
| 78 | int program_line::get_token_number_from_string_upper (string s) { |
---|
| 79 | |
---|
| 80 | string s1 = my_to_upper(s); |
---|
| 81 | for (int i=0; i<tokens.size(); i++) { |
---|
| 82 | if(my_to_upper(tokens.get_token_by_index(i)) == s1) { |
---|
| 83 | return i; |
---|
| 84 | } |
---|
| 85 | } |
---|
| 86 | |
---|
| 87 | return -1; |
---|
| 88 | } |
---|
| 89 | |
---|
| 90 | void program_line::update_token (int i, string s) { |
---|
| 91 | |
---|
| 92 | string s_old=tokens.get_token_by_index(i); |
---|
| 93 | tokens.update (i,s); |
---|
| 94 | int pos=tokens.get_position(i); |
---|
| 95 | line.replace(pos,s_old.size(),s); |
---|
| 96 | |
---|
| 97 | return; |
---|
| 98 | } |
---|
| 99 | |
---|
| 100 | void program_line::change_variable_to_vector (string var) { |
---|
| 101 | string U_token; |
---|
| 102 | |
---|
| 103 | int ind = tokens.size()-2; |
---|
| 104 | for (int i=ind; i >= 0; i--) { |
---|
| 105 | U_token.clear(); |
---|
| 106 | U_token = my_to_upper(tokens.get_token_by_index(i)); |
---|
| 107 | if(U_token == my_to_upper(var) && tokens.get_token_by_index(i+1) == "(" ) { |
---|
| 108 | string new_s="(1:VL,"; |
---|
| 109 | tokens.update (i+1,new_s); |
---|
| 110 | int pos=tokens.get_position(i+1); |
---|
| 111 | line.replace(pos,1,new_s); |
---|
| 112 | tokens.reset (line); |
---|
| 113 | } |
---|
| 114 | } |
---|
| 115 | |
---|
| 116 | return; |
---|
| 117 | } |
---|
| 118 | |
---|
| 119 | void program_line::change_variable_to_vector_g (Vvar &var) { |
---|
| 120 | string U_token; |
---|
| 121 | string new_s; |
---|
| 122 | |
---|
| 123 | tokens.reset (line); |
---|
| 124 | |
---|
| 125 | int ind = tokens.size()-2; |
---|
| 126 | for (int i=ind; i >= 0; i--) { |
---|
| 127 | U_token.clear(); |
---|
| 128 | U_token = tokens.get_token_by_index(i); |
---|
| 129 | if(var.nr_dim() == 0) { |
---|
| 130 | if(my_to_upper(U_token) == my_to_upper(var.name) ) { |
---|
| 131 | new_s=U_token + "(k)"; |
---|
| 132 | tokens.update (i,new_s); |
---|
| 133 | int pos=tokens.get_position(i); |
---|
| 134 | line.replace(pos,U_token.size(),new_s); |
---|
| 135 | tokens.reset (line); |
---|
| 136 | } |
---|
| 137 | } else { |
---|
| 138 | if(my_to_upper(U_token) == my_to_upper(var.name) && tokens.get_token_by_index(i+1) == "(" ) { |
---|
| 139 | new_s="(k,"; |
---|
| 140 | tokens.update (i+1,new_s); |
---|
| 141 | int pos=tokens.get_position(i+1); |
---|
| 142 | line.replace(pos,1,new_s); |
---|
| 143 | tokens.reset (line); |
---|
| 144 | } |
---|
| 145 | } |
---|
| 146 | } |
---|
| 147 | |
---|
| 148 | return; |
---|
| 149 | } |
---|
[3298] | 150 | void program_line::global_subtolower(string &line) { |
---|
[2696] | 151 | |
---|
[3298] | 152 | int start = line.size()-1; |
---|
| 153 | char c; |
---|
| 154 | |
---|
| 155 | int i = 0; |
---|
| 156 | while (line[i]) |
---|
| 157 | { |
---|
| 158 | c = line[i]; |
---|
| 159 | line[i] = tolower(c); |
---|
| 160 | i++; |
---|
| 161 | } |
---|
| 162 | return; |
---|
| 163 | } |
---|
| 164 | |
---|