main.c (b66926aad422ad350796a2770d6b2d328a63b92c) main.c (9890ff8357a674572254e0be06b175a1e8eab4b0)
1/*
2 * stub main for testing Ficl
3 * $Id: main.c,v 1.2 2010/09/10 09:01:28 asau Exp $
4 */
5/*
6 * Copyright (c) 1997-2001 John Sadler (john_sadler@alum.mit.edu)
7 * All rights reserved.
8 *

--- 88 unchanged lines hidden (view full) ---

97 if (ws.ws_col)
98 cols = ws.ws_col;
99 if (ws.ws_row)
100 rows = ws.ws_row;
101 }
102
103 clearenv();
104 asprintf(&buffer, "%d", cols);
1/*
2 * stub main for testing Ficl
3 * $Id: main.c,v 1.2 2010/09/10 09:01:28 asau Exp $
4 */
5/*
6 * Copyright (c) 1997-2001 John Sadler (john_sadler@alum.mit.edu)
7 * All rights reserved.
8 *

--- 88 unchanged lines hidden (view full) ---

97 if (ws.ws_col)
98 cols = ws.ws_col;
99 if (ws.ws_row)
100 rows = ws.ws_row;
101 }
102
103 clearenv();
104 asprintf(&buffer, "%d", cols);
105 setenv("COLUMNS", buffer, 1);
105 setenv("screen-#cols", buffer, 1);
106 free(buffer);
107 asprintf(&buffer, "%d", rows);
106 free(buffer);
107 asprintf(&buffer, "%d", rows);
108 setenv("LINES", buffer, 1);
108 setenv("screen-#rows", buffer, 1);
109 free(buffer);
110
111 if (getenv("prompt") == NULL)
112 setenv("prompt", "${interpret}", 1);
113 if (getenv("interpret") == NULL)
114 setenv("interpret", "ok", 1);
115
116 if ((vm = bf_init("", NULL)) == NULL)

--- 28 unchanged lines hidden --- 		109 free(buffer);
110
111 if (getenv("prompt") == NULL)
112 setenv("prompt", "${interpret}", 1);
113 if (getenv("interpret") == NULL)
114 setenv("interpret", "ok", 1);
115
116 if ((vm = bf_init("", NULL)) == NULL)

--- 28 unchanged lines hidden ---