Subversion Repositories wimsdev

Rev

Rev 8171 | Rev 11125 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8171 Rev 8185
Line 12... Line 12...
12 
 *
 12 
 *
13 
 *  You should have received a copy of the GNU General Public License
 13 
 *  You should have received a copy of the GNU General Public License
14 
 *  along with this program; if not, write to the Free Software
 14 
 *  along with this program; if not, write to the Free Software
15 
 *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 15 
 *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
16 
 */
 16 
 */
- 
 
 17 
 
- 
 
 18 
#include "wims.h"
17 
 
 19 
 
18 
void calc_itemof(char *p);
 20 
void calc_itemof(char *p);
19 
void calc_rowof(char *p);
 21 
void calc_rowof(char *p);
20 
void calc_columnof(char *p);
 22 
void calc_columnof(char *p);
21 
 
 23 
 
Line 154... Line 156...
154 
    }
 156 
    }
155 
    *newend=0; return p;
 157 
    *newend=0; return p;
156 
    too_long: user_error("cmd_output_too_long"); return NULL;
 158 
    too_long: user_error("cmd_output_too_long"); return NULL;
157 
}
 159 
}
158 
 
 160 
 
159 
enum {for_in, for_from};
 161 
struct forstruct forstruct;
160 
struct {
 - 
 
161 
    char var[MAX_NAMELEN+1];
 - 
 
162 
    int type;
 - 
 
163 
    double list[MAX_VALUE_LIST];
 - 
 
164 
    char *pos[MAX_VALUE_LIST];
 - 
 
165 
    double from, to, step;
 - 
 
166 
} forstruct;
 - 
 
167 
 
 162 
 
168 
int for_getvar(char *p)
 163 
int for_getvar(char *p)
169 
{
 164 
{
170 
    char *vp, buf[MAX_LINELEN+1];
 165 
    char *vp, buf[MAX_LINELEN+1];
171 
    mystrncpy(buf,p,sizeof(buf)); substit(buf);
 166 
    mystrncpy(buf,p,sizeof(buf)); substit(buf);