View | Details | Raw Unified | Return to bug 258470
Collapse All | Expand All

(-)b/devel/frink/files/patch-tcl.c (-17 / +55 lines)
Lines 514-520 Link Here
514
 {
514
 {
515
     List *bp = blocks;
515
     List *bp = blocks;
516
     Blox *xp;
516
     Blox *xp;
517
@@ -1524,7 +1512,7 @@ static void addForVars(Token *cmd)
517
@@ -1476,7 +1464,6 @@ static void checkVar(Token *cmd, char *nm)
518
 static void addForVars(Token *cmd)
519
 {
520
     Token *vr, *vp, *ap;
521
-    VarData *rp;
522
 
523
     switch (cmd->type)
524
     {
525
@@ -1484,12 +1471,12 @@ static void addForVars(Token *cmd)
526
 	checkVar(cmd, cmd->text);
527
 	if ((ap = isArray(cmd)) != noToken)
528
 	{
529
-	    rp = setVar(ap, VFOR, 1);
530
+	    setVar(ap, VFOR, 1);
531
 	    freeToken(ap);
532
 	}
533
 	else
534
 	{
535
-	    rp = setVar(cmd, VFOR, 0);
536
+	    setVar(cmd, VFOR, 0);
537
 	}
538
 	break;
539
 
540
@@ -1506,12 +1493,12 @@ static void addForVars(Token *cmd)
541
 		checkVar(vp, vp->text);
542
 		if ((ap = isArray(vp)) != noToken)
543
 		{
544
-		    rp = setVar(ap, VFOR, 1);
545
+		    setVar(ap, VFOR, 1);
546
 		    freeToken(ap);
547
 		}
548
 		else
549
 		{
550
-		    rp = setVar(vp, VFOR, 0);
551
+		    setVar(vp, VFOR, 0);
552
 		}
553
 	    }
554
 	    vp = vp->next;
555
@@ -1524,7 +1511,7 @@ static void addForVars(Token *cmd)
518
     }
556
     }
519
 }
557
 }
520
 
558
 
Lines 523-529 Link Here
523
 {
561
 {
524
     failIfNullToken(cmd, "varName", "foreach", 0);
562
     failIfNullToken(cmd, "varName", "foreach", 0);
525
     loopstart(0, 0);
563
     loopstart(0, 0);
526
@@ -1534,7 +1522,7 @@ Token *doforeach(Token *cmd, Token *leadin)
564
@@ -1534,7 +1521,7 @@ Token *doforeach(Token *cmd, Token *leadin)
527
 	addForVars(cmd);
565
 	addForVars(cmd);
528
 	cmd = cmd->next;
566
 	cmd = cmd->next;
529
 	failIfNullToken(cmd, "list", "foreach", 0);
567
 	failIfNullToken(cmd, "list", "foreach", 0);
Lines 532-538 Link Here
532
 	cmd = cmd->next;
570
 	cmd = cmd->next;
533
     }
571
     }
534
     while (cmd != noToken && cmd->next != noToken && cmd->next->type != SCOMMENT);
572
     while (cmd != noToken && cmd->next != noToken && cmd->next->type != SCOMMENT);
535
@@ -1546,7 +1534,7 @@ Token *doforeach(Token *cmd, Token *leadin)
573
@@ -1546,7 +1533,7 @@ Token *doforeach(Token *cmd, Token *leadin)
536
     return noToken;
574
     return noToken;
537
 }
575
 }
538
 
576
 
Lines 541-547 Link Here
541
 {
579
 {
542
     Token *tp;
580
     Token *tp;
543
     if (!tclX)
581
     if (!tclX)
544
@@ -1556,15 +1544,15 @@ Token *doloop(Token *cmd, Token *leadin)
582
@@ -1556,15 +1543,15 @@ Token *doloop(Token *cmd, Token *leadin)
545
     else
583
     else
546
     {
584
     {
547
 	failIfNullToken(cmd, "var", "loop", 0);
585
 	failIfNullToken(cmd, "var", "loop", 0);
Lines 560-566 Link Here
560
 
598
 
561
 	tp = tp->next;
599
 	tp = tp->next;
562
 	failIfNullToken(tp, "body", "loop", 0);
600
 	failIfNullToken(tp, "body", "loop", 0);
563
@@ -1572,7 +1560,7 @@ Token *doloop(Token *cmd, Token *leadin)
601
@@ -1572,7 +1559,7 @@ Token *doloop(Token *cmd, Token *leadin)
564
 	if (tp->next != noToken)
602
 	if (tp->next != noToken)
565
 	{
603
 	{
566
 	    warnExpr(cmd, "Unbracketed loop \"incr\"");
604
 	    warnExpr(cmd, "Unbracketed loop \"incr\"");
Lines 569-575 Link Here
569
 	    tp = tp->next;
607
 	    tp = tp->next;
570
 	}
608
 	}
571
 	loopstart(0, 0);
609
 	loopstart(0, 0);
572
@@ -1584,7 +1572,7 @@ Token *doloop(Token *cmd, Token *leadin)
610
@@ -1584,7 +1571,7 @@ Token *doloop(Token *cmd, Token *leadin)
573
     return noToken;
611
     return noToken;
574
 } 
612
 } 
575
 
613
 
Lines 578-584 Link Here
578
 {
616
 {
579
     if (!doExpr)
617
     if (!doExpr)
580
     {
618
     {
581
@@ -1599,7 +1587,7 @@ Token *doexpr(Token *cmd, Token *leadin)
619
@@ -1599,7 +1586,7 @@ Token *doexpr(Token *cmd, Token *leadin)
582
 	else if (cmd->next == noToken)
620
 	else if (cmd->next == noToken)
583
 	{
621
 	{
584
 	    warnExpr(cmd, "expr body not braced.");
622
 	    warnExpr(cmd, "expr body not braced.");
Lines 587-593 Link Here
587
 	}
625
 	}
588
 	else
626
 	else
589
 	{
627
 	{
590
@@ -1610,7 +1598,7 @@ Token *doexpr(Token *cmd, Token *leadin)
628
@@ -1610,7 +1597,7 @@ Token *doexpr(Token *cmd, Token *leadin)
591
     return noToken;
629
     return noToken;
592
 }
630
 }
593
 
631
 
Lines 596-602 Link Here
596
 {
634
 {
597
     int pCount = 1;
635
     int pCount = 1;
598
 
636
 
599
@@ -1641,7 +1629,7 @@ Token *dounset(Token *cmd, Token *leadin)
637
@@ -1641,7 +1628,7 @@ Token *dounset(Token *cmd, Token *leadin)
600
     return noToken;
638
     return noToken;
601
 }
639
 }
602
 
640
 
Lines 605-611 Link Here
605
 {
643
 {
606
     int paramCount = 0;
644
     int paramCount = 0;
607
     int ln = leadin->lineNo;
645
     int ln = leadin->lineNo;
608
@@ -1672,7 +1660,7 @@ Token *doupvar(Token *cmd, Token *leadin)
646
@@ -1672,7 +1659,7 @@ Token *doupvar(Token *cmd, Token *leadin)
609
     return noToken;
647
     return noToken;
610
 }
648
 }
611
 
649
 
Lines 614-620 Link Here
614
 {
652
 {
615
     int paramCount = 1;
653
     int paramCount = 1;
616
 
654
 
617
@@ -1776,7 +1764,7 @@ static int valuecheck(ParamData *pdp, Token *cmd)
655
@@ -1776,7 +1763,7 @@ static int valuecheck(ParamData *pdp, Token *cmd)
618
     return 0;
656
     return 0;
619
 }
657
 }
620
 
658
 
Lines 623-629 Link Here
623
 {
661
 {
624
     List *sp, *llp, *lp;
662
     List *sp, *llp, *lp;
625
     ParamData *pt, *pdp;
663
     ParamData *pt, *pdp;
626
@@ -1793,7 +1781,7 @@ void doBasic(ConfigData *cpt, Token *hd, Token *cmd)
664
@@ -1793,7 +1780,7 @@ void doBasic(ConfigData *cpt, Token *hd, Token *cmd)
627
 	pt = (ParamData *) lpeek(lp);
665
 	pt = (ParamData *) lpeek(lp);
628
 	if (pt != (ParamData *) 0 && pt->values != noList)
666
 	if (pt != (ParamData *) 0 && pt->values != noList)
629
 	{
667
 	{
Lines 632-638 Link Here
632
 	}
670
 	}
633
 	else
671
 	else
634
 	{
672
 	{
635
@@ -1850,7 +1838,7 @@ void doBasic(ConfigData *cpt, Token *hd, Token *cmd)
673
@@ -1850,7 +1837,7 @@ void doBasic(ConfigData *cpt, Token *hd, Token *cmd)
636
 	    }
674
 	    }
637
 	    else
675
 	    else
638
 	    {
676
 	    {
Lines 641-647 Link Here
641
 	    }
679
 	    }
642
 	    break;
680
 	    break;
643
 
681
 
644
@@ -1862,7 +1850,7 @@ void doBasic(ConfigData *cpt, Token *hd, Token *cmd)
682
@@ -1862,7 +1849,7 @@ void doBasic(ConfigData *cpt, Token *hd, Token *cmd)
645
 	    else
683
 	    else
646
 	    {
684
 	    {
647
 		warnExpr(cmd, "Unbracketed expression");
685
 		warnExpr(cmd, "Unbracketed expression");
Lines 650-656 Link Here
650
 	    }
688
 	    }
651
 	    break;
689
 	    break;
652
 
690
 
653
@@ -1883,7 +1871,7 @@ void doBasic(ConfigData *cpt, Token *hd, Token *cmd)
691
@@ -1883,7 +1870,7 @@ void doBasic(ConfigData *cpt, Token *hd, Token *cmd)
654
 		{
692
 		{
655
 		    ptpar |= SPACEOUT;
693
 		    ptpar |= SPACEOUT;
656
 		}
694
 		}
Lines 659-665 Link Here
659
 		loopstart(infloop, 1);
697
 		loopstart(infloop, 1);
660
 	    }
698
 	    }
661
 	    break;
699
 	    break;
662
@@ -2085,7 +2073,7 @@ void doBasic(ConfigData *cpt, Token *hd, Token *cmd)
700
@@ -2085,7 +2072,7 @@ void doBasic(ConfigData *cpt, Token *hd, Token *cmd)
663
 	pt = (ParamData *) lpeek(lp);
701
 	pt = (ParamData *) lpeek(lp);
664
 	if ((sp = pt->values) != noList)
702
 	if ((sp = pt->values) != noList)
665
 	{
703
 	{
Lines 668-674 Link Here
668
 	}
706
 	}
669
 	else
707
 	else
670
 	{
708
 	{
671
@@ -2140,7 +2128,8 @@ void doBasic(ConfigData *cpt, Token *hd, Token *cmd)
709
@@ -2140,7 +2127,8 @@ void doBasic(ConfigData *cpt, Token *hd, Token *cmd)
672
     }
710
     }
673
 }
711
 }
674
 
712
 
(-)b/devel/frink/files/patch-token.c (-9 / +28 lines)
Lines 233-245 Link Here
233
+	{ NULL,			0,		1},
233
+	{ NULL,			0,		1},
234
     };
234
     };
235
     struct pragma_s *prp;
235
     struct pragma_s *prp;
236
     int label, mode = 1;
236
-    int label, mode = 1;
237
-    char *cp;
237
-    char *cp;
238
+    int mode = 1;
238
+    const char *cp;
239
+    const char *cp;
239
     Token *token, *chars = newToken(CONST);
240
     Token *token, *chars = newToken(CONST);
240
     Input *pfile;
241
     Input *pfile;
241
 
242
 
242
@@ -1347,9 +1329,6 @@ int handle(Token *line)
243
@@ -1277,16 +1259,8 @@ static void handlePragma(Token *tp)
244
     chars->length = strlen(cp);
245
     pfile=tokenise(chars, 0);
246
     token = getToken(pfile);
247
-    if (tokNEqual(token, "PRAGMA", 6))
248
+    if (!tokNEqual(token, "PRAGMA", 6) && !tokNEqual(token, "FRINK", 5))
249
     {
250
-        label = 1;
251
-    }
252
-    else if (tokNEqual(token, "FRINK", 5))
253
-    {
254
-        label = 2;
255
-    }
256
-    else
257
-    {
258
         warn(tp, "Pragma syntax weirdness");
259
     }
260
     freeToken(token);
261
@@ -1347,9 +1321,6 @@ int handle(Token *line)
243
 {
262
 {
244
     Token *hd;
263
     Token *hd;
245
 
264
 
Lines 249-255 Link Here
249
     if (line == noToken)
268
     if (line == noToken)
250
     {
269
     {
251
 	if (!minimise)
270
 	if (!minimise)
252
@@ -1575,7 +1554,7 @@ void lprocess(Token *lst, int nls)
271
@@ -1575,7 +1546,7 @@ void lprocess(Token *lst, int nls)
253
     if (line != noToken) { handle(line); }
272
     if (line != noToken) { handle(line); }
254
 }
273
 }
255
 
274
 
Lines 258-264 Link Here
258
 {
277
 {
259
     Token *line = noToken, *hd = noToken;
278
     Token *line = noToken, *hd = noToken;
260
     TokenType last = NL;
279
     TokenType last = NL;
261
@@ -1652,16 +1631,16 @@ Token *tokacc(Token *tp, int flag, int nl)
280
@@ -1652,16 +1623,16 @@ Token *tokacc(Token *tp, int flag, int nl)
262
     return lp;
281
     return lp;
263
 }
282
 }
264
 
283
 
Lines 278-284 Link Here
278
     TBuff *tb;
297
     TBuff *tb;
279
 
298
 
280
     if (token != noToken && token->type == CONC)
299
     if (token != noToken && token->type == CONC)
281
@@ -1694,7 +1673,7 @@ int isVarToken(Token *token)
300
@@ -1694,7 +1665,7 @@ int isVarToken(Token *token)
282
     return chkVarToken(token);
301
     return chkVarToken(token);
283
 }
302
 }
284
 
303
 
Lines 287-293 Link Here
287
 {
306
 {
288
     if (token != noToken)
307
     if (token != noToken)
289
     {
308
     {
290
@@ -1715,7 +1694,7 @@ int isSingleCall(Token *token, char *proc)
309
@@ -1715,7 +1686,7 @@ int isSingleCall(Token *token, char *proc)
291
     return 0;
310
     return 0;
292
 }
311
 }
293
 
312
 
Lines 296-302 Link Here
296
 {
315
 {
297
     if (token != noToken)
316
     if (token != noToken)
298
     {
317
     {
299
@@ -1739,14 +1718,15 @@ int isSwitch(Token *token)
318
@@ -1739,14 +1710,15 @@ int isSwitch(Token *token)
300
     return 0;
319
     return 0;
301
 }
320
 }
302
 
321
 
Lines 315-321 Link Here
315
     {
334
     {
316
 	switch (tp->type)
335
 	switch (tp->type)
317
 	{
336
 	{
318
@@ -1776,9 +1756,7 @@ Token *isArray(Token *tp)
337
@@ -1776,9 +1748,7 @@ Token *isArray(Token *tp)
319
 	        ch = *cp;
338
 	        ch = *cp;
320
 	        if (ch == '(')
339
 	        if (ch == '(')
321
 		{
340
 		{
Lines 326-332 Link Here
326
 		    break;
345
 		    break;
327
 		}
346
 		}
328
 		if (ch == '\0') { break; }
347
 		if (ch == '\0') { break; }
329
@@ -1790,7 +1768,7 @@ Token *isArray(Token *tp)
348
@@ -1790,7 +1760,7 @@ Token *isArray(Token *tp)
330
     return res;
349
     return res;
331
 }
350
 }
332
 
351
 

Return to bug 258470