pintos-os.org Git - pspp/blob - tests/language/control/define.at

   1 dnl PSPP - a program for statistical analysis.
   2 dnl Copyright (C) 2017 Free Software Foundation, Inc.
   3 dnl
   4 dnl This program is free software: you can redistribute it and/or modify
   5 dnl it under the terms of the GNU General Public License as published by
   6 dnl the Free Software Foundation, either version 3 of the License, or
   7 dnl (at your option) any later version.
   8 dnl
   9 dnl This program is distributed in the hope that it will be useful,
  10 dnl but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 dnl GNU nGeneral Public License for more details.
  13 dnl
  14 dnl You should have received a copy of the GNU General Public License
  15 dnl along with this program.  If not, see <http://www.gnu.org/licenses/>.
  16 dnl
  17 AT_BANNER([DEFINE])
  18
  19 AT_SETUP([simple macro expansion])
  20 AT_DATA([define.sps], [dnl
  21 DEFINE !macro()
  22 a b c d
  23 e f g h.
  24 i j k l
  25 1,2,3,4.
  26 5+6+7.
  27 m(n,o).
  28 "a" "b" "c" 'a' 'b' 'c'.
  29 "x "" y".
  30 !ENDDEFINE.
  31 DEBUG EXPAND.
  32 !macro
  33 ])
  34 AT_CHECK([pspp --testing-mode define.sps], [0], [dnl
  35 a b c d e f g h.
  36 i j k l 1, 2, 3, 4.
  37 5 + 6 + 7.
  38 m(n, o).
  39 "a" "b" "c" 'a' 'b' 'c'.
  40 "x "" y".
  41 ])
  42 AT_CLEANUP
  43
  44 AT_SETUP([macro expansion - one !TOKENS(1) positional argument])
  45 AT_KEYWORDS([TOKENS])
  46 AT_DATA([define.sps], [dnl
  47 DEFINE !t1(!positional=!tokens(1)) t1 (!1) !ENDDEFINE.
  48 DEBUG EXPAND.
  49 !t1 a.
  50 !t1 b.
  51 !t1 a b.
  52 ])
  53 AT_CAPTURE_FILE([define.sps])
  54 AT_CHECK([pspp --testing-mode define.sps], [0], [dnl
  55 t1(a)
  56
  57 t1(b)
  58
  59 t1(a)
  60
  61 note: unexpanded token "b"
  62 ])
  63 AT_CLEANUP
  64
  65 AT_SETUP([macro expansion with positional arguments])
  66 AT_DATA([define.sps], [dnl
  67 DEFINE !title(!positional !tokens(1)) !1 !ENDDEFINE.
  68 DEFINE !t1(!positional !tokens(1)) t1 (!1) !ENDDEFINE.
  69 DEFINE !t2(!positional !tokens(2)) t2 (!1) !ENDDEFINE.
  70
  71 DEFINE !ce(!positional=!charend('/')) ce (!1) !ENDDEFINE.
  72 DEFINE !ce2(!positional=!charend('(')
  73            /!positional !charend(')'))
  74 ce2 (!1, !2)
  75 !ENDDEFINE.
  76
  77 DEFINE !e(!positional !enclose('{','}')) e (!1) !ENDDEFINE.
  78
  79 DEFINE !cmd(!positional !cmdend) cmd(!1) !ENDDEFINE.
  80 DEFINE !cmd2(!positional !cmdend
  81             /!positional !tokens(1))
  82 cmd2(!1, !2)
  83 !ENDDEFINE.
  84
  85 DEFINE !p(!positional !tokens(1)
  86          /!positional !tokens(1)
  87          /!positional !tokens(1))
  88 p(!1, !2, !3)(!*)
  89 !ENDDEFINE.
  90
  91 DEBUG EXPAND.
  92 !title "!TOKENS(1) argument."
  93 !t1 a.
  94 !t1 b.
  95 !t1 a b.
  96
  97 !title "!TOKENS(2) argument."
  98 !t2 a b.
  99 !t2 b c d.
 100
 101 !title "!CHAREND argument."
 102 !ce/.
 103 !ce x/.
 104 !ce x y/.
 105 !ce x y z/.
 106
 107 !title "Two !CHAREND arguments."
 108 !ce2 x(y).
 109 !ce2 1 2 3 4().
 110
 111 !title "!ENCLOSE argument."
 112 !e {}.
 113 !e {a}.
 114 !e {a b}.
 115
 116 !title "!CMDEND argument."
 117 !cmd 1 2 3 4.
 118 !cmd2 5 6.
 119 7.
 120
 121 !title "Three !TOKENS(1) arguments."
 122 !p a b c.
 123 !p 1 -2 -3.
 124 ])
 125 AT_CHECK([pspp --testing-mode define.sps], [0], [dnl
 126 "!TOKENS(1) argument."
 127
 128 t1(a)
 129
 130 t1(b)
 131
 132 t1(a)
 133
 134 note: unexpanded token "b"
 135
 136 "!TOKENS(2) argument."
 137
 138 t2(a b)
 139
 140 t2(b c)
 141
 142 note: unexpanded token "d"
 143
 144 "!CHAREND argument."
 145
 146 ce( )
 147
 148 ce(x)
 149
 150 ce(x y)
 151
 152 ce(x y z)
 153
 154 "Two !CHAREND arguments."
 155
 156 ce2(x, y)
 157
 158 ce2(1 2 3 4, )
 159
 160 "!ENCLOSE argument."
 161
 162 e( )
 163
 164 e(a)
 165
 166 e(a b)
 167
 168 "!CMDEND argument."
 169
 170 cmd(1 2 3 4)
 171
 172 cmd2(5 6, )
 173
 174 note: unexpanded token "7"
 175
 176 "Three !TOKENS(1) arguments."
 177
 178 p(a, b, c) (a b c)
 179
 180 p(1, -2, -3) (1 -2 -3)
 181 ])
 182 AT_CLEANUP
 183
 184 AT_SETUP([macro call missing positional !TOKENS arguments])
 185 AT_KEYWORDS([TOKENS])
 186 AT_DATA([define.sps], [dnl
 187 DEFINE !p(!positional !tokens(1) !default(x)
 188          /!positional !tokens(1) !default(y)
 189          /!positional !tokens(1) !default(z))
 190 (!1, !2, !3)
 191 !ENDDEFINE.
 192 DEBUG EXPAND.
 193 !p a b c.
 194 !p a b.
 195 !p a.
 196 !p.
 197 ])
 198 AT_CHECK([pspp --testing-mode define.sps], [0], [dnl
 199 (a, b, c)
 200
 201 (a, b, z)
 202
 203 (a, y, z)
 204
 205 (x, y, z)
 206 ])
 207 AT_CLEANUP
 208
 209 AT_SETUP([macro call incomplete positional !TOKENS arguments])
 210 AT_KEYWORDS([TOKENS])
 211 AT_DATA([define.sps], [dnl
 212 DEFINE !p(!positional !tokens(2) !default(x)
 213          /!positional !tokens(2) !default(y)
 214          /!positional !tokens(2) !default(z))
 215 (!1, !2, !3)
 216 !ENDDEFINE.
 217 DEBUG EXPAND.
 218 !p a1 a2 b1 b2 c1 c2.
 219 !p a1 a2 b1 b2 c1.
 220 !p a1 a2 b1 b2.
 221 !p a1 a2 b1.
 222 !p a1 a2.
 223 !p a1.
 224 !p.
 225 ])
 226 AT_CHECK([pspp --testing-mode define.sps], [1], [dnl
 227 (a1 a2, b1 b2, c1 c2)
 228
 229 define.sps:8.18: error: DEBUG EXPAND: Reached end of command expecting 1 more
 230 token in argument !3 to macro !p.
 231
 232 (a1 a2, b1 b2, c1)
 233
 234 (a1 a2, b1 b2, z)
 235
 236 define.sps:10.12: error: DEBUG EXPAND: Reached end of command expecting 1 more
 237 token in argument !2 to macro !p.
 238
 239 (a1 a2, b1, z)
 240
 241 (a1 a2, y, z)
 242
 243 define.sps:12.6: error: DEBUG EXPAND: Reached end of command expecting 1 more
 244 token in argument !1 to macro !p.
 245
 246 (a1, y, z)
 247
 248 (x, y, z)
 249 ])
 250 AT_CLEANUP
 251
 252 AT_SETUP([macro call empty positional !CHAREND arguments])
 253 AT_KEYWORDS([CHAREND])
 254 AT_DATA([define.sps], [dnl
 255 DEFINE !p(!positional !charend(',') !default(x)
 256          /!positional !charend(';') !default(y)
 257          /!positional !charend(':') !default(z))
 258 (!1, !2, !3)
 259 !ENDDEFINE.
 260 DEBUG EXPAND.
 261 !p a,b;c:.
 262 !p a,b;:.
 263 !p a,;c:.
 264 !p a,;:.
 265 !p,b;c:.
 266 !p,b;:.
 267 !p,;c:.
 268 !p,;:.
 269 ])
 270 AT_CHECK([pspp --testing-mode define.sps], [0], [dnl
 271 (a, b, c)
 272
 273 (a, b, )
 274
 275 (a, , c)
 276
 277 (a, , )
 278
 279 (, b, c)
 280
 281 (, b, )
 282
 283 (, , c)
 284
 285 (, , )
 286 ])
 287 AT_CLEANUP
 288
 289 AT_SETUP([macro call missing positional !CHAREND arguments])
 290 AT_DATA([define.sps], [dnl
 291 DEFINE !p(!positional !charend(',') !default(x)
 292          /!positional !charend(';') !default(y)
 293          /!positional !charend(':') !default(z))
 294 (!1, !2, !3)
 295 !ENDDEFINE.
 296 DEBUG EXPAND.
 297 !p a,b;c:.
 298 !p a,b;.
 299 !p a,;.
 300 !p ,b;.
 301 !p ,;.
 302
 303 !p a,.
 304 !p ,.
 305
 306 !p.
 307 ])
 308 AT_CHECK([pspp --testing-mode define.sps], [0], [dnl
 309 (a, b, c)
 310
 311 (a, b, z)
 312
 313 (a, , z)
 314
 315 (, b, z)
 316
 317 (, , z)
 318
 319 (a, y, z)
 320
 321 (, y, z)
 322
 323 (x, y, z)
 324 ])
 325 AT_CLEANUP
 326
 327 AT_SETUP([macro call incomplete positional !CHAREND arguments])
 328 AT_KEYWORDS([CHAREND])
 329 AT_DATA([define.sps], [dnl
 330 DEFINE !p(!positional !charend(',') !default(x)
 331          /!positional !charend(';') !default(y)
 332          /!positional !charend(':') !default(z))
 333 (!1, !2, !3)
 334 !ENDDEFINE.
 335 DEBUG EXPAND.
 336 !p a,b;c:.
 337 !p a,b;c.
 338 !p a,b;.
 339 !p a,b.
 340 !p a,.
 341 !p a.
 342 !p.
 343 ])
 344 AT_CHECK([pspp --testing-mode define.sps], [1], [dnl
 345 (a, b, c)
 346
 347 define.sps:8.9: error: DEBUG EXPAND: Reached end of command expecting ":" in
 348 argument !3 to macro !p.
 349
 350 (a, b, c)
 351
 352 (a, b, z)
 353
 354 define.sps:10.7: error: DEBUG EXPAND: Reached end of command expecting ";" in
 355 argument !2 to macro !p.
 356
 357 (a, b, z)
 358
 359 (a, y, z)
 360
 361 define.sps:12.5: error: DEBUG EXPAND: Reached end of command expecting "," in
 362 argument !1 to macro !p.
 363
 364 (a, y, z)
 365
 366 (x, y, z)
 367 ])
 368 AT_CLEANUP
 369
 370 AT_SETUP([macro call missing positional !ENCLOSE arguments])
 371 AT_KEYWORDS([ENCLOSE])
 372 AT_DATA([define.sps], [dnl
 373 DEFINE !p(!positional !enclose('(',')') !default(x)
 374          /!positional !enclose('<','>') !default(y)
 375          /!positional !enclose('{','}') !default(z))
 376 (!1, !2, !3)
 377 !ENDDEFINE.
 378 DEBUG EXPAND.
 379 !p (a)<b>{c}.
 380 !p (a)<b>.
 381 !p (a).
 382 !p.
 383 ])
 384 AT_CHECK([pspp --testing-mode define.sps], [0], [dnl
 385 (a, b, c)
 386
 387 (a, b, z)
 388
 389 (a, y, z)
 390
 391 (x, y, z)
 392 ])
 393 AT_CLEANUP
 394
 395 AT_SETUP([macro call incomplete positional !ENCLOSE arguments])
 396 AT_KEYWORDS([ENCLOSE])
 397 AT_DATA([define.sps], [dnl
 398 DEFINE !p(!positional !enclose('(',')') !default(x)
 399          /!positional !enclose('<','>') !default(y)
 400          /!positional !enclose('{','}') !default(z))
 401 (!1, !2, !3)
 402 !ENDDEFINE.
 403 DEBUG EXPAND.
 404 !p (a)<b>{c}.
 405 !p (a)<b>{c.
 406 !p (a)<b>{.
 407 !p (a)<b>.
 408 !p (a)<b.
 409 !p (a)<.
 410 !p (a).
 411 !p (a.
 412 !p (.
 413 !p.
 414 ])
 415 AT_CHECK([pspp --testing-mode define.sps], [1], [dnl
 416 (a, b, c)
 417
 418 define.sps:8.12: error: DEBUG EXPAND: Reached end of command expecting "}" in
 419 argument !3 to macro !p.
 420
 421 (a, b, c)
 422
 423 define.sps:9.11: error: DEBUG EXPAND: Reached end of command expecting "}" in
 424 argument !3 to macro !p.
 425
 426 (a, b, )
 427
 428 (a, b, z)
 429
 430 define.sps:11.9: error: DEBUG EXPAND: Reached end of command expecting ">" in
 431 argument !2 to macro !p.
 432
 433 (a, b, z)
 434
 435 define.sps:12.8: error: DEBUG EXPAND: Reached end of command expecting ">" in
 436 argument !2 to macro !p.
 437
 438 (a, , z)
 439
 440 (a, y, z)
 441
 442 define.sps:14.6: error: DEBUG EXPAND: Reached end of command expecting ")" in
 443 argument !1 to macro !p.
 444
 445 (a, y, z)
 446
 447 define.sps:15.5: error: DEBUG EXPAND: Reached end of command expecting ")" in
 448 argument !1 to macro !p.
 449
 450 (, y, z)
 451
 452 (x, y, z)
 453 ])
 454 AT_CLEANUP
 455
 456 AT_SETUP([keyword macro argument name with ! prefix])
 457 AT_DATA([define.sps], [dnl
 458 DEFINE !macro(!x !TOKENS(1).
 459 ])
 460 AT_CHECK([pspp -O format=csv define.sps], [1], [dnl
 461 "define.sps:1.15-1.16: error: DEFINE: Syntax error at `!x': Keyword macro parameter must be named in definition without ""!"" prefix."
 462 ])
 463 AT_CLEANUP
 464
 465 AT_SETUP([reserved macro keyword argument name])
 466 AT_DATA([define.sps], [dnl
 467 DEFINE !macro(if=!TOKENS(1).
 468 ])
 469 AT_CHECK([pspp -O format=csv define.sps], [1], [dnl
 470 "define.sps:1.15-1.16: error: DEFINE: Syntax error at `if': Cannot use macro keyword ""if"" as an argument name."
 471 ])
 472 AT_CLEANUP
 473
 474 AT_SETUP([macro expansion - one !TOKENS(1) keyword argument])
 475 AT_KEYWORDS([TOKENS])
 476 AT_DATA([define.sps], [dnl
 477 DEFINE !k(arg1 = !TOKENS(1)) k(!arg1) !ENDDEFINE.
 478 DEBUG EXPAND.
 479 !k arg1=x.
 480 !k arg1=x y.
 481 !k.
 482 ])
 483 AT_CAPTURE_FILE([define.sps])
 484 AT_CHECK([pspp --testing-mode define.sps], [0], [dnl
 485 k(x)
 486
 487 k(x)
 488
 489 note: unexpanded token "y"
 490
 491 k( )
 492 ])
 493 AT_CLEANUP
 494
 495 AT_SETUP([macro expansion - one !TOKENS(1) keyword argument - negative])
 496 AT_KEYWORDS([TOKENS])
 497 AT_DATA([define.sps], [dnl
 498 DEFINE !k(arg1 !TOKENS(1)) k(!arg1) !ENDDEFINE.
 499 DEBUG EXPAND.
 500 !k arg1.
 501 !k arg1=.
 502 ])
 503 AT_CAPTURE_FILE([define.sps])
 504 AT_CHECK([pspp --testing-mode define.sps], [1], [dnl
 505 define.sps:3.8: error: DEBUG EXPAND: Found `.' while expecting `=' reading
 506 argument !arg1 to macro !k.
 507
 508 k( )
 509
 510 define.sps:4.9: error: DEBUG EXPAND: Reached end of command expecting 1 more
 511 token in argument !arg1 to macro !k.
 512
 513 k( )
 514 ])
 515 AT_CLEANUP
 516
 517 AT_SETUP([macro expansion - !CHAREND keyword arguments])
 518 AT_KEYWORDS([CHAREND])
 519 AT_DATA([define.sps], [dnl
 520 DEFINE !k(arg1 = !CHAREND('/')
 521          /arg2 = !CHAREND('/'))
 522 k(!arg1, !arg2)
 523 !ENDDEFINE.
 524 DEBUG EXPAND.
 525 !k arg1=x/ arg2=y/.
 526 !k arg1=x/.
 527 !k arg2=y/.
 528 !k.
 529 ])
 530 AT_CAPTURE_FILE([define.sps])
 531 AT_CHECK([pspp --testing-mode define.sps], [0], [dnl
 532 k(x, y)
 533
 534 k(x, )
 535
 536 k(, y)
 537
 538 k(, )
 539 ])
 540 AT_CLEANUP
 541
 542 AT_SETUP([macro expansion - !CHAREND keyword arguments - negative])
 543 AT_KEYWORDS([CHAREND])
 544 AT_DATA([define.sps], [dnl
 545 DEFINE !k(arg1 = !CHAREND('/')
 546          /arg2 = !CHAREND('/'))
 547 k(!arg1, !arg2)
 548 !ENDDEFINE.
 549 DEBUG EXPAND.
 550 !k arg1.
 551 !k arg1=.
 552 !k arg1=x.
 553 !k arg1=x/ arg2=y.
 554 ])
 555 AT_CAPTURE_FILE([define.sps])
 556 AT_CHECK([pspp --testing-mode define.sps], [1], [dnl
 557 define.sps:6.8: error: DEBUG EXPAND: Found `.' while expecting `=' reading
 558 argument !arg1 to macro !k.
 559
 560 k(, )
 561
 562 define.sps:7.9: error: DEBUG EXPAND: Reached end of command expecting "/" in
 563 argument !arg1 to macro !k.
 564
 565 k(, )
 566
 567 define.sps:8.10: error: DEBUG EXPAND: Reached end of command expecting "/" in
 568 argument !arg1 to macro !k.
 569
 570 k(x, )
 571
 572 define.sps:9.18: error: DEBUG EXPAND: Reached end of command expecting "/" in
 573 argument !arg2 to macro !k.
 574
 575 k(x, y)
 576 ])
 577 AT_CLEANUP
 578
 579 AT_SETUP([macro expansion - !ENCLOSE keyword arguments])
 580 AT_KEYWORDS([ENCLOSE])
 581 AT_DATA([define.sps], [dnl
 582 DEFINE !k(arg1 = !ENCLOSE('(',')')
 583          /arg2 = !ENCLOSE('{','}'))
 584 k(!arg1, !arg2)
 585 !ENDDEFINE.
 586 DEBUG EXPAND.
 587 !k arg1=(x) arg2={y}.
 588 !k arg1=(x).
 589 !k arg2={y}.
 590 !k.
 591 ])
 592 AT_CAPTURE_FILE([define.sps])
 593 AT_CHECK([pspp --testing-mode define.sps], [0], [dnl
 594 k(x, y)
 595
 596 k(x, )
 597
 598 k(, y)
 599
 600 k(, )
 601 ])
 602 AT_CLEANUP
 603
 604 AT_SETUP([macro expansion - !ENCLOSE keyword arguments - negative])
 605 AT_KEYWORDS([ENCLOSE])
 606 AT_DATA([define.sps], [dnl
 607 DEFINE !k(arg1 = !ENCLOSE('(',')')
 608          /arg2 = !ENCLOSE('{','}'))
 609 k(!arg1, !arg2)
 610 !ENDDEFINE.
 611 DEBUG EXPAND.
 612 !k arg1.
 613 !k arg1=.
 614 !k arg1=x.
 615 !k arg1=(x.
 616 !k arg1=(x) arg2.
 617 !k arg1=(x) arg2=.
 618 !k arg1=(x) arg2=y.
 619 !k arg1=(x) arg2=(y.
 620 ])
 621 AT_CAPTURE_FILE([define.sps])
 622 AT_CHECK([pspp --testing-mode define.sps], [1], [dnl
 623 define.sps:6.8: error: DEBUG EXPAND: Found `.' while expecting `=' reading
 624 argument !arg1 to macro !k.
 625
 626 k(, )
 627
 628 define.sps:7.9: error: DEBUG EXPAND: Found `.' while expecting `@{:@' reading
 629 argument !arg1 to macro !k.
 630
 631 k(, )
 632
 633 define.sps:8.9: error: DEBUG EXPAND: Found `x' while expecting `@{:@' reading
 634 argument !arg1 to macro !k.
 635
 636 k(, )
 637
 638 note: unexpanded token "x"
 639
 640 define.sps:9.11: error: DEBUG EXPAND: Reached end of command expecting "@:}@" in
 641 argument !arg1 to macro !k.
 642
 643 k(x, )
 644
 645 define.sps:10.17: error: DEBUG EXPAND: Found `.' while expecting `=' reading
 646 argument !arg2 to macro !k.
 647
 648 k(x, )
 649
 650 define.sps:11.18: error: DEBUG EXPAND: Found `.' while expecting `{' reading
 651 argument !arg2 to macro !k.
 652
 653 k(x, )
 654
 655 define.sps:12.18: error: DEBUG EXPAND: Found `y' while expecting `{' reading
 656 argument !arg2 to macro !k.
 657
 658 k(x, )
 659
 660 note: unexpanded token "y"
 661
 662 define.sps:13.18: error: DEBUG EXPAND: Found `@{:@' while expecting `{' reading
 663 argument !arg2 to macro !k.
 664
 665 k(x, )
 666
 667 note: unexpanded token "@{:@"
 668
 669 note: unexpanded token "y"
 670 ])
 671 AT_CLEANUP
 672
 673 dnl Keep this test in sync with the examples for !BLANKS in the manual.
 674 AT_SETUP([macro expansion - !BLANKS])
 675 AT_KEYWORDS([BLANKS])
 676 AT_DATA([define.sps], [dnl
 677 DEFINE !b()
 678 !BLANKS(0).
 679 !QUOTE(!BLANKS(0)).
 680 !BLANKS(1).
 681 !QUOTE(!BLANKS(1)).
 682 !BLANKS(2).
 683 !QUOTE(!BLANKS(2)).
 684 !BLANKS(5).
 685 !QUOTE(!BLANKS(5)).
 686 !ENDDEFINE.
 687 DEBUG EXPAND.
 688 !b.
 689 ])
 690 AT_CAPTURE_FILE([define.sps])
 691 AT_CHECK([pspp --testing-mode define.sps], [0], [dnl
 692 .
 693 ''.
 694 .
 695 ' '.
 696 .
 697 '  '.
 698 .
 699 '     '.
 700 ])
 701 AT_CLEANUP
 702
 703 dnl Keep this test in sync with the examples for !CONCAT in the manual.
 704 AT_SETUP([macro expansion - !CONCAT])
 705 AT_KEYWORDS([CONCAT])
 706 AT_DATA([define.sps], [dnl
 707 DEFINE !c()
 708 !CONCAT(x, y).
 709 !CONCAT('x', 'y').
 710 !CONCAT(12, 34).
 711 !CONCAT(!NULL, 123).
 712 !CONCAT(x, 0).
 713 !CONCAT(x, 0, y).
 714 !CONCAT(0, x).
 715 !CONCAT(0, x, y).
 716 !ENDDEFINE.
 717 DEBUG EXPAND.
 718 !c
 719 ])
 720 AT_CAPTURE_FILE([define.sps])
 721 AT_CHECK([pspp --testing-mode define.sps], [0], [dnl
 722 xy.
 723 xy.
 724 1234.
 725 123.
 726 x0.
 727 x0y.
 728 0 x.
 729 0 xy.
 730 ])
 731 AT_CLEANUP
 732
 733 dnl Keep this test in sync with the examples for !EVAL in the manual.
 734 AT_SETUP([macro expansion - !EVAL])
 735 AT_KEYWORDS([EVAL])
 736 AT_DATA([define.sps], [dnl
 737 DEFINE !vars() a b c !ENDDEFINE.
 738
 739 DEFINE !e()
 740 !vars.
 741 !QUOTE(!vars).
 742 !EVAL(!vars).
 743 !QUOTE(!EVAL(!vars)).
 744 !ENDDEFINE
 745
 746 DEFINE !e2(!positional !enclose('(',')'))
 747 !1.
 748 !QUOTE(!1).
 749 !EVAL(!1).
 750 !QUOTE(!EVAL(!1)).
 751 !ENDDEFINE.
 752 DEBUG EXPAND.
 753 !e.
 754 !e2(!vars).
 755 ])
 756 AT_CAPTURE_FILE([define.sps])
 757 AT_CHECK([pspp --testing-mode define.sps], [0], [dnl
 758 a b c.
 759 '!vars'.
 760 a b c.
 761 'a b c'.
 762
 763 a b c.
 764 '!vars'.
 765 a b c.
 766 'a b c'.
 767 ])
 768 AT_CLEANUP
 769
 770 dnl Keep this test in sync with the examples for !HEAD in the manual.
 771 AT_SETUP([macro expansion - !HEAD])
 772 AT_KEYWORDS([HEAD])
 773 AT_DATA([define.sps], [dnl
 774 DEFINE !h()
 775 !HEAD('a b c').
 776 !HEAD('a').
 777 !HEAD(!NULL).
 778 !HEAD('').
 779 !ENDDEFINE.
 780 DEBUG EXPAND.
 781 !h.
 782 ])
 783 AT_CAPTURE_FILE([define.sps])
 784 AT_CHECK([pspp --testing-mode define.sps], [0], [dnl
 785 a.
 786 a.
 787 .
 788 .
 789 ])
 790 AT_CLEANUP
 791
 792 dnl Keep this test in sync with the examples for !TAIL in the manual.
 793 AT_SETUP([macro expansion - !TAIL])
 794 AT_KEYWORDS([TAIL])
 795 AT_DATA([define.sps], [dnl
 796 DEFINE !t()
 797 !TAIL('a b c').
 798 !TAIL('a').
 799 !TAIL(!NULL).
 800 !TAIL('').
 801 !ENDDEFINE.
 802 DEBUG EXPAND.
 803 !t.
 804 ])
 805 AT_CAPTURE_FILE([define.sps])
 806 AT_CHECK([pspp --testing-mode define.sps], [0], [dnl
 807 b c.
 808 .
 809 .
 810 .
 811 ])
 812 AT_CLEANUP
 813
 814 dnl Keep this test in sync with the examples for !INDEX in the manual.
 815 AT_SETUP([macro expansion - !INDEX])
 816 AT_KEYWORDS([INDEX])
 817 AT_DATA([define.sps], [dnl
 818 DEFINE !i()
 819 !INDEX(banana, an).
 820 !INDEX(banana, nan).
 821 !INDEX(banana, apple).
 822 !INDEX("banana", nan).
 823 !INDEX("banana", "nan").
 824 !INDEX(!UNQUOTE("banana"), !UNQUOTE("nan")).
 825 !ENDDEFINE.
 826 DEBUG EXPAND.
 827 !i.
 828 ])
 829 AT_CAPTURE_FILE([define.sps])
 830 AT_CHECK([pspp --testing-mode define.sps], [0], [dnl
 831 2.
 832 3.
 833 0.
 834 4.
 835 0.
 836 3.
 837 ])
 838 AT_CLEANUP
 839
 840 dnl Keep this test in sync with the examples for !LENGTH in the manual.
 841 AT_SETUP([macro expansion - !LENGTH])
 842 AT_KEYWORDS([LENGTH])
 843 AT_DATA([define.sps], [dnl
 844 DEFINE !l()
 845 !LENGTH(123).
 846 !LENGTH(123.00).
 847 !LENGTH( 123 ).
 848 !LENGTH("123").
 849 !LENGTH(xyzzy).
 850 !LENGTH("xyzzy").
 851 !LENGTH("xy""zzy").
 852 !LENGTH(!UNQUOTE("xyzzy")).
 853 !LENGTH(!UNQUOTE("xy""zzy")).
 854 !LENGTH(!NULL).
 855 !ENDDEFINE.
 856 DEFINE !la(!positional !enclose('(',')'))
 857 !LENGTH(!1).
 858 !ENDDEFINE.
 859 DEBUG EXPAND.
 860 !l.
 861 !la(a b c).
 862 !la().
 863 ])
 864 AT_CAPTURE_FILE([define.sps])
 865 AT_CHECK([pspp --testing-mode define.sps], [0], [dnl
 866 3.
 867 6.
 868 3.
 869 5.
 870 5.
 871 7.
 872 9.
 873 5.
 874 6.
 875 0.
 876
 877 5.
 878
 879 0.
 880 ])
 881 AT_CLEANUP
 882
 883 dnl Keep this test in sync with the examples for !SUBSTR in the manual.
 884 AT_SETUP([macro expansion - !SUBSTR])
 885 AT_KEYWORDS([SUBSTR])
 886 AT_DATA([define.sps], [dnl
 887 DEFINE !s()
 888 !SUBSTR(banana, 3).
 889 !SUBSTR(banana, 3, 3).
 890 !SUBSTR("banana", 1, 3).
 891 !SUBSTR(!UNQUOTE("banana"), 3).
 892 !SUBSTR("banana", 3, 3).
 893 !SUBSTR(banana, 3, 0).
 894 !SUBSTR(banana, 3, 10).
 895 !SUBSTR(banana, 10, 3).
 896 !ENDDEFINE.
 897 DEBUG EXPAND.
 898 !s.
 899 ])
 900 AT_CAPTURE_FILE([define.sps])
 901 AT_CHECK([pspp --testing-mode define.sps], [1], [dnl
 902 define.sps:1-10: At `"ba' in the expansion of `!s',dnl "
 903
 904 define.sps:12.1-12.2: error: DEBUG EXPAND: Unterminated string constant.
 905
 906 nana.
 907 nan.
 908 .
 909 nana.
 910 ana.
 911 .
 912 nana.
 913 .
 914 ])
 915 AT_CLEANUP
 916
 917 dnl Keep this test in sync with the examples for !UPCASE in the manual.
 918 AT_SETUP([macro expansion - !UPCASE])
 919 AT_KEYWORDS([UPCASE])
 920 AT_DATA([define.sps], [dnl
 921 DEFINE !u()
 922 !UPCASE(freckle).
 923 !UPCASE('freckle').
 924 !UPCASE('a b c').
 925 !UPCASE('A B C').
 926 !ENDDEFINE.
 927 DEBUG EXPAND.
 928 !u.
 929 ])
 930 AT_CAPTURE_FILE([define.sps])
 931 AT_CHECK([pspp --testing-mode define.sps], [0], [dnl
 932 FRECKLE.
 933 FRECKLE.
 934 A B C.
 935 A B C.
 936 ])
 937 AT_CLEANUP
 938
 939 dnl !* is implemented separately inside and outside function arguments
 940 dnl so this test makes sure to include both.
 941 AT_SETUP([macro expansion - !*])
 942 AT_DATA([define.sps], [dnl
 943 DEFINE !m(!POSITIONAL !TOKENS(1)
 944          /!POSITIONAL !TOKENS(1))
 945 !*/
 946 !LENGTH(!*)/
 947 !SUBSTR(!*, 3)/
 948 !QUOTE(!*).
 949 !ENDDEFINE.
 950 DEBUG EXPAND.
 951 !m 123 b
 952 !m 2 3
 953 !m '' 'b'.
 954 ])
 955 AT_CAPTURE_FILE([define.sps])
 956 AT_CHECK([pspp --testing-mode define.sps], [0], [dnl
 957 123 b / 5 / 3 b / '123 b'.
 958
 959 2 3 / 3 / 3 / '2 3'.
 960
 961 '' 'b' / 6 / 'b' / ''''' ''b'''.
 962 ])
 963 AT_CLEANUP
 964
 965 AT_SETUP([macro maximum nesting level (MNEST)])
 966 AT_KEYWORDS([MNEST])
 967 AT_DATA([define.sps], [dnl
 968 DEFINE !macro()
 969 !macro
 970 !ENDDEFINE.
 971 !macro.
 972 ])
 973 AT_CHECK([pspp -O format=csv define.sps], [1], [dnl
 974 "define.sps:1-3: In the expansion of `!macro',
 975 define.sps:1-3: inside the expansion of `!macro',
 976 define.sps:1-3: inside the expansion of `!macro',
 977 define.sps:1-3: inside the expansion of `!macro',
 978 define.sps:1-3: inside the expansion of `!macro',
 979 define.sps:1-3: inside the expansion of `!macro',
 980 define.sps:1-3: inside the expansion of `!macro',
 981 define.sps:1-3: inside the expansion of `!macro',
 982 define.sps:1-3: inside the expansion of `!macro',
 983 define.sps:1-3: inside the expansion of `!macro',
 984 define.sps:1-3: inside the expansion of `!macro',
 985 define.sps:1-3: inside the expansion of `!macro',
 986 define.sps:1-3: inside the expansion of `!macro',
 987 define.sps:1-3: inside the expansion of `!macro',
 988 define.sps:1-3: inside the expansion of `!macro',
 989 define.sps:1-3: inside the expansion of `!macro',
 990 define.sps:1-3: inside the expansion of `!macro',
 991 define.sps:1-3: inside the expansion of `!macro',
 992 define.sps:1-3: inside the expansion of `!macro',
 993 define.sps:1-3: inside the expansion of `!macro',
 994 define.sps:1-3: inside the expansion of `!macro',
 995 define.sps:1-3: inside the expansion of `!macro',
 996 define.sps:1-3: inside the expansion of `!macro',
 997 define.sps:1-3: inside the expansion of `!macro',
 998 define.sps:1-3: inside the expansion of `!macro',
 999 define.sps:1-3: inside the expansion of `!macro',
1000 define.sps:1-3: inside the expansion of `!macro',
1001 define.sps:1-3: inside the expansion of `!macro',
1002 define.sps:1-3: inside the expansion of `!macro',
1003 define.sps:1-3: inside the expansion of `!macro',
1004 define.sps:1-3: inside the expansion of `!macro',
1005 define.sps:1-3: inside the expansion of `!macro',
1006 define.sps:1-3: inside the expansion of `!macro',
1007 define.sps:1-3: inside the expansion of `!macro',
1008 define.sps:1-3: inside the expansion of `!macro',
1009 define.sps:1-3: inside the expansion of `!macro',
1010 define.sps:1-3: inside the expansion of `!macro',
1011 define.sps:1-3: inside the expansion of `!macro',
1012 define.sps:1-3: inside the expansion of `!macro',
1013 define.sps:1-3: inside the expansion of `!macro',
1014 define.sps:1-3: inside the expansion of `!macro',
1015 define.sps:1-3: inside the expansion of `!macro',
1016 define.sps:1-3: inside the expansion of `!macro',
1017 define.sps:1-3: inside the expansion of `!macro',
1018 define.sps:1-3: inside the expansion of `!macro',
1019 define.sps:1-3: inside the expansion of `!macro',
1020 define.sps:1-3: inside the expansion of `!macro',
1021 define.sps:1-3: inside the expansion of `!macro',
1022 define.sps:1-3: inside the expansion of `!macro',
1023 define.sps:1-3: inside the expansion of `!macro',
1024 define.sps:1-3: inside the expansion of `!macro',
1025 define.sps:4.1-4.6: error: DEFINE: Maximum nesting level 50 exceeded.  (Use SET MNEST to change the limit.)"
1026
1027 define.sps:4.1-4.6: error: Syntax error at `!macro' (in expansion of `!macro'): expecting command name.
1028 ])
1029 AT_CLEANUP
1030
1031 AT_SETUP([macro !IF condition])
1032 AT_KEYWORDS([if])
1033 for operators in \
1034     '!eq !ne !lt !gt !le !ge' \
1035     '  =  <>   <   >  <=  >='
1036 do
1037     set $operators
1038     AS_BOX([$operators])
1039     cat > define.sps <<EOF
1040 DEFINE !test(!positional !tokens(1))
1041 !if (!1 $1 1) !then true !else false !ifend
1042 !if (!1 $2 1) !then true !else false !ifend
1043 !if (!1 $3 1) !then true !else false !ifend
1044 !if (!1 $4 1) !then true !else false !ifend
1045 !if (!1 $5 1) !then true !else false !ifend
1046 !if (!1 $6 1) !then true !else false !ifend.
1047 !ENDDEFINE.
1048 DEBUG EXPAND.
1049 !test 0
1050 !test 1
1051 !test 2
1052 !test '1'
1053 !test 1.0
1054 EOF
1055     AT_CAPTURE_FILE([define.sps])
1056     AT_CHECK([pspp --testing-mode define.sps], [0], [dnl
1057 false true true false true false.
1058
1059 true false false false true true.
1060
1061 false true false true false true.
1062
1063 true false false false true true.
1064
1065 false true false true false true.
1066 ])
1067 done
1068 AT_CLEANUP
1069
1070 AT_SETUP([macro !IF condition -- case sensitivity])
1071 AT_KEYWORDS([if])
1072 for operators in \
1073     '!eq !ne !lt !gt !le !ge' \
1074     '  =  <>   <   >  <=  >='
1075 do
1076     set $operators
1077     AS_BOX([$operators])
1078     cat > define.sps <<EOF
1079 DEFINE !test(!positional !tokens(1))
1080 !if (!1 $1 a) !then true !else false !ifend
1081 !if (!1 $1 A) !then true !else false !ifend
1082 !if (!1 $2 a) !then true !else false !ifend
1083 !if (!1 $2 A) !then true !else false !ifend
1084 !if (!1 $3 a) !then true !else false !ifend
1085 !if (!1 $3 A) !then true !else false !ifend
1086 !if (!1 $4 a) !then true !else false !ifend
1087 !if (!1 $4 A) !then true !else false !ifend
1088 !if (!1 $5 a) !then true !else false !ifend
1089 !if (!1 $5 A) !then true !else false !ifend
1090 !if (!1 $6 a) !then true !else false !ifend
1091 !if (!1 $6 A) !then true !else false !ifend
1092 !if (!1 $1 !null) !then true !else false !ifend
1093 !if (!1 $2 !null) !then true !else false !ifend.
1094 !ENDDEFINE.
1095 DEBUG EXPAND.
1096 !test a
1097 !test A
1098 !test b
1099 !test B
1100 EOF
1101     AT_CAPTURE_FILE([define.sps])
1102     AT_CHECK([pspp --testing-mode define.sps], [0], [dnl
1103 true false false true false false false true true false true true false true.
1104
1105 false true true false true false false false true true false true false true.
1106
1107 false false true true false false true true false false true true false true.
1108
1109 false false true true true false false true true false false true false true.
1110 ])
1111 done
1112 AT_CLEANUP
1113
1114 AT_SETUP([macro !IF condition -- logical operators])
1115 AT_KEYWORDS([if])
1116 for operators in \
1117     '!and !or !not' \
1118     '   &   |    ~'
1119 do
1120     set $operators
1121     AS_BOX([$operators])
1122     cat > define.sps <<EOF
1123 DEFINE !test_binary(!positional !tokens(1)/!positional !tokens(1))
1124 !if !1 $1 !2 !then true !else false !ifend
1125 !if !1 $2 !2 !then true !else false !ifend.
1126 !ENDDEFINE.
1127
1128 DEFINE !test_unary(!positional !tokens(1))
1129 !if $3 !1 !then true !else false !ifend.
1130 !ENDDEFINE.
1131
1132 * These are:
1133   ((not A) and B) or C
1134   not (A and B) or C
1135   not A and (B or C)
1136 DEFINE !test_prec(!pos !tokens(1)/!pos !tokens(1)/!pos !tokens(1))
1137 !if $3 !1 $1 !2 $2 !3 !then true !else false !ifend
1138 !if $3 (!1 $1 !2) $2 !3 !then true !else false !ifend
1139 !if $3 !1 $1 (!2 $2 !3) !then true !else false !ifend
1140 !ENDDEFINE.
1141
1142 DEBUG EXPAND.
1143 !test_binary 0 0
1144 !test_binary 0 1
1145 !test_binary 1 0
1146 !test_binary 1 1
1147 !test_unary 0
1148 !test_unary 1
1149 !test_prec 0 0 0 !test_prec 0 0 1 !test_prec 0 1 0 !test_prec 0 1 1.
1150 !test_prec 1 0 0 !test_prec 1 0 1 !test_prec 1 1 0 !test_prec 1 1 1.
1151 EOF
1152     AT_CAPTURE_FILE([define.sps])
1153     AT_CHECK([pspp --testing-mode define.sps], [0], [dnl
1154 false false.
1155
1156 false true.
1157
1158 false true.
1159
1160 true true.
1161
1162 true.
1163
1164 false.
1165
1166 false true false
1167 true true true
1168 true true true
1169 true true true
1170
1171 false true false
1172 true true false
1173 false false false
1174 true true false
1175 ])
1176 done
1177 AT_CLEANUP
1178
1179 AT_SETUP([macro !LET])
1180 AT_KEYWORDS([let])
1181 AT_DATA([define.sps], [dnl
1182 DEFINE !macro(!POS !CMDEND)
1183 !LET !v1 = !CONCAT('x',!1,'y')
1184 !LET !v2 = !QUOTE(!v1)
1185 !LET !v3 = (!LENGTH(!1) = 1)
1186 !LET !v4 = (!SUBSTR(!1, 3) = !NULL)
1187 v1=!v1.
1188 v2=!v2.
1189 v3=!v3.
1190 v4=!v4.
1191 !ENDDEFINE.
1192 DEBUG EXPAND.
1193 !macro 0.
1194 !macro.
1195 !macro xyzzy.
1196 ])
1197 AT_CHECK([pspp --testing-mode define.sps], [0], [dnl
1198 v1 = x0y.
1199 v2 = x0y.
1200 v3 = 1.
1201 v4 = 1.
1202
1203 v1 = xy.
1204 v2 = xy.
1205 v3 = 0.
1206 v4 = 1.
1207
1208 v1 = xxyzzyy.
1209 v2 = xxyzzyy.
1210 v3 = 0.
1211 v4 = 0.
1212 ])
1213 AT_CLEANUP
1214
1215 AT_SETUP([macro indexed !DO])
1216 AT_KEYWORDS([index do])
1217 AT_DATA([define.sps], [dnl
1218 DEFINE !title(!POS !TOKENS(1)) !1. !ENDDEFINE.
1219
1220 DEFINE !for(!POS !TOKENS(1) / !POS !TOKENS(1))
1221 !DO !var = !1 !TO !2 !var !DOEND.
1222 !ENDDEFINE.
1223
1224 DEFINE !forby(!POS !TOKENS(1) / !POS !TOKENS(1) / !POS !TOKENS(1))
1225 !DO !var = !1 !TO !2 !BY !3 !var !DOEND.
1226 !ENDDEFINE.
1227
1228 DEBUG EXPAND.
1229 !title "increasing".
1230 !for 1 5.
1231 !forby 1 5 1.
1232 !forby 1 5 2.
1233 !forby 1 5 2.5.
1234 !forby 1 5 -1.
1235
1236 !title "decreasing".
1237 !for 5 1.
1238 !forby 5 1 1.
1239 !forby 5 1 -1.
1240 !forby 5 1 -2.
1241 !forby 5 1 -3.
1242
1243 !title "non-integer".
1244 !for 1.5 3.5.
1245 ])
1246 AT_CHECK([pspp --testing-mode define.sps], [0], [dnl
1247 "increasing".
1248
1249 1 2 3 4 5.
1250
1251 1 2 3 4 5.
1252
1253 1 3 5.
1254
1255 1 3.5.
1256
1257 .
1258
1259 "decreasing".
1260
1261 .
1262
1263 .
1264
1265 5 4 3 2 1.
1266
1267 5 3 1.
1268
1269 5 2.
1270
1271 "non-integer".
1272
1273 1.5 2.5 3.5.
1274 ])
1275 AT_CLEANUP
1276
1277 AT_SETUP([macro !DO invalid variable names])
1278 AT_KEYWORDS([index do])
1279 AT_DATA([define.sps], [dnl
1280 DEFINE !for(x=!TOKENS(1) / y=!TOKENS(1))
1281 !DO !x = !x !TO !y !var !DOEND.
1282 !ENDDEFINE.
1283
1284 DEFINE !for2(x=!TOKENS(1) / y=!TOKENS(1))
1285 !DO !noexpand = !x !TO !y !var !DOEND.
1286 !ENDDEFINE.
1287
1288 DEBUG EXPAND.
1289 !for x=1 y=5.
1290 !for2 x=1 y=5.
1291 ])
1292 AT_CHECK([pspp --testing-mode define.sps], [1], [dnl
1293 define.sps:1-3: At `!x' in the expansion of `!for',
1294 define.sps:10.1-10.12: error: DEBUG EXPAND: Cannot use argument name or macro
1295 keyword as !DO variable.
1296
1297 !DO 1 = 1 !TO 5 !var !DOEND.
1298
1299 define.sps:5-7: At `!noexpand' in the expansion of `!for2',
1300 define.sps:11.1-11.13: error: DEBUG EXPAND: Cannot use argument name or macro
1301 keyword as !DO variable.
1302
1303 !DO !noexpand = 1 !TO 5 !var !DOEND.
1304 ])
1305 AT_CLEANUP
1306
1307 AT_SETUP([macro indexed !DO reaches MITERATE])
1308 AT_KEYWORDS([index do])
1309 AT_DATA([define.sps], [dnl
1310 DEFINE !title(!POS !TOKENS(1)) !1. !ENDDEFINE.
1311
1312 DEFINE !for(!POS !TOKENS(1) / !POS !TOKENS(1))
1313 !DO !var = !1 !TO !2 !var !DOEND.
1314 !ENDDEFINE.
1315
1316 DEFINE !forby(!POS !TOKENS(1) / !POS !TOKENS(1) / !POS !TOKENS(1))
1317 !DO !var = !1 !TO !2 !BY !3 !var !DOEND.
1318 !ENDDEFINE.
1319
1320 SET MITERATE=3.
1321 DEBUG EXPAND.
1322 !title "increasing".
1323 !for 1 5.
1324 !forby 1 5 1.
1325 !forby 1 5 2.
1326 !forby 1 5 2.5.
1327 !forby 1 5 -1.
1328
1329 !title "decreasing".
1330 !for 5 1.
1331 !forby 5 1 1.
1332 !forby 5 1 -1.
1333 !forby 5 1 -2.
1334 !forby 5 1 -3.
1335
1336 !title "non-integer".
1337 !for 1.5 3.5.
1338 ])
1339 AT_CHECK([pspp --testing-mode define.sps], [1], [dnl
1340 "increasing".
1341
1342 In the expansion of `!DO',
1343 define.sps:3-5: inside the expansion of `!for',
1344 define.sps:14.1-14.8: error: DEBUG EXPAND: Numerical !DO loop exceeded maximum
1345 number of iterations 3.  (Use SET MITERATE to change the limit.)
1346
1347 1 2 3 4.
1348
1349 In the expansion of `!DO',
1350 define.sps:7-9: inside the expansion of `!forby',
1351 define.sps:15.1-15.12: error: DEBUG EXPAND: Numerical !DO loop exceeded maximum
1352 number of iterations 3.  (Use SET MITERATE to change the limit.)
1353
1354 1 2 3 4.
1355
1356 1 3 5.
1357
1358 1 3.5.
1359
1360 .
1361
1362 "decreasing".
1363
1364 .
1365
1366 .
1367
1368 In the expansion of `!DO',
1369 define.sps:7-9: inside the expansion of `!forby',
1370 define.sps:23.1-23.13: error: DEBUG EXPAND: Numerical !DO loop exceeded maximum
1371 number of iterations 3.  (Use SET MITERATE to change the limit.)
1372
1373 5 4 3 2.
1374
1375 5 3 1.
1376
1377 5 2.
1378
1379 "non-integer".
1380
1381 1.5 2.5 3.5.
1382 ])
1383 AT_CLEANUP
1384
1385 AT_SETUP([!BREAK with macro indexed !DO])
1386 AT_KEYWORDS([index do break])
1387 AT_DATA([define.sps], [dnl
1388 DEFINE !title(!POS !TOKENS(1)) !1. !ENDDEFINE.
1389
1390 DEFINE !for(!POS !TOKENS(1) / !POS !TOKENS(1) / !POS !TOKENS(1))
1391 !DO !var = !1 !TO !2
1392   !var
1393   !IF 1 !THEN
1394     !IF !var = !3 !THEN
1395       x
1396       !BREAK
1397       y
1398     !IFEND
1399     ,
1400   !IFEND
1401 !DOEND.
1402 !ENDDEFINE.
1403
1404 DEBUG EXPAND.
1405 !for 1 5 4.
1406 ])
1407 AT_CHECK([pspp --testing-mode define.sps], [0], [dnl
1408 1, 2, 3, 4 x.
1409 ])
1410 AT_CLEANUP
1411
1412 AT_SETUP([macro list !DO])
1413 AT_KEYWORDS([index do])
1414 AT_DATA([define.sps], [dnl
1415 DEFINE !for(!POS !CMDEND)
1416 (!DO !i !IN (!1) (!i) !DOEND).
1417 !ENDDEFINE.
1418
1419 DEBUG EXPAND.
1420 !for a b c.
1421 !for 'foo bar baz quux'.
1422 !for.
1423 ])
1424 AT_CHECK([pspp --testing-mode define.sps], [0], [dnl
1425 ( (a) (b) (c) ).
1426
1427 ( (foo) (bar) (baz) (quux) ).
1428
1429 ( ).
1430 ])
1431 AT_CLEANUP
1432
1433 AT_SETUP([macro list !DO reaches MITERATE])
1434 AT_KEYWORDS([index do])
1435 AT_DATA([define.sps], [dnl
1436 DEFINE !for(!POS !CMDEND)
1437 (!DO !i !IN (!1) (!i) !DOEND).
1438 !ENDDEFINE.
1439
1440 SET MITERATE=2.
1441 DEBUG EXPAND.
1442 !for a b c.
1443 !for 'foo bar baz quux'.
1444 !for.
1445 ])
1446 AT_CHECK([pspp --testing-mode define.sps], [1], [dnl
1447 In the expansion of `!DO',
1448 define.sps:1-3: inside the expansion of `!for',
1449 define.sps:7.1-7.10: error: DEBUG EXPAND: !DO loop over list exceeded maximum
1450 number of iterations 2.  (Use SET MITERATE to change the limit.)
1451
1452 ( (a) (b) ).
1453
1454 In the expansion of `!DO',
1455 define.sps:1-3: inside the expansion of `!for',
1456 define.sps:8.1-8.23: error: DEBUG EXPAND: !DO loop over list exceeded maximum
1457 number of iterations 2.  (Use SET MITERATE to change the limit.)
1458
1459 ( (foo) (bar) ).
1460
1461 ( ).
1462 ])
1463 AT_CLEANUP
1464
1465 AT_SETUP([!BREAK with macro list !DO])
1466 AT_KEYWORDS([index break do])
1467 AT_DATA([define.sps], [dnl
1468 DEFINE !for(!POS !TOKENS(1) / !POS !CMDEND)
1469 (!DO !i !IN (!2)
1470   (!i)
1471   !IF 1 !THEN
1472     !IF !i = !1 !THEN
1473       x
1474       !BREAK
1475       y
1476     !IFEND
1477     ,
1478   !IFEND
1479 !DOEND).
1480 !ENDDEFINE.
1481
1482 DEBUG EXPAND.
1483 !for d a b c.
1484 !for baz 'foo bar baz quux'.
1485 !for e.
1486 ])
1487 AT_CHECK([pspp --testing-mode define.sps], [0], [dnl
1488 ( (a), (b), (c), ).
1489
1490 ( (foo), (bar), (baz)x).
1491
1492 ( ).
1493 ])
1494 AT_CLEANUP
1495
1496 AT_SETUP([macro !LET])
1497 AT_DATA([define.sps], [dnl
1498 DEFINE !macro(!pos !enclose('(',')'))
1499 !LET !x=!1
1500 !LET !y=!QUOTE(!1)
1501 !LET !z=(!y="abc")
1502 !y !z
1503 !ENDDEFINE.
1504
1505 DEBUG EXPAND.
1506 !macro(1+2).
1507 !macro(abc).
1508 ])
1509 AT_CHECK([pspp --testing-mode define.sps -O format=csv], [0], [dnl
1510 1 + 2 0
1511
1512 abc 1
1513 ])
1514 AT_CLEANUP
1515
1516 AT_SETUP([macro !LET invalid variable names])
1517 AT_DATA([define.sps], [dnl
1518 DEFINE !macro(x=!tokens(1))
1519 !LET !x=!x
1520 !ENDDEFINE.
1521
1522 DEFINE !macro2()
1523 !LET !do=x
1524 !ENDDEFINE.
1525
1526 DEBUG EXPAND.
1527 !macro x=1.
1528 !macro2.
1529 ])
1530 AT_CHECK([pspp --testing-mode define.sps -O format=csv], [1], [dnl
1531 "define.sps:1-3: At `!x' in the expansion of `!macro',
1532 define.sps:10.1-10.10: error: DEBUG EXPAND: Cannot use argument name or macro keyword ""!x"" as !LET variable."
1533
1534 !LET 1 = 1
1535
1536 "define.sps:5-7: At `!do' in the expansion of `!macro2',
1537 define.sps:11.1-11.7: error: DEBUG EXPAND: Cannot use argument name or macro keyword ""!do"" as !LET variable."
1538
1539 "define.sps:5-7: At `=' in the expansion of `!macro2',
1540 define.sps:11.1-11.7: error: DEBUG EXPAND: Expected macro variable name following !DO."
1541
1542 !LET !do = x
1543 ])
1544 AT_CLEANUP
1545
1546 AT_SETUP([BEGIN DATA inside a macro])
1547 AT_DATA([define.sps], [dnl
1548 DEFINE !macro()
1549 DATA LIST NOTABLE /x 1.
1550 BEGIN DATA
1551 1
1552 2
1553 3
1554 END DATA.
1555 LIST.
1556 !ENDDEFINE.
1557
1558 !macro
1559 ])
1560 AT_CHECK([pspp define.sps -O format=csv], [0], [dnl
1561 Table: Data List
1562 x
1563 1
1564 2
1565 3
1566 ])
1567 AT_CLEANUP
1568
1569 AT_SETUP([TITLE and SUBTITLE with macros])
1570 AT_KEYWORDS([macro])
1571 for command in TITLE SUBTITLE; do
1572     cat >title.sps <<EOF
1573 DEFINE !paste(!POS !TOKENS(1) / !POS !TOKENS(1))
1574 !CONCAT(!1,!2)
1575 !ENDDEFINE.
1576 $command prefix !paste foo bar suffix.
1577 SHOW $command.
1578 EOF
1579     cat >expout <<EOF
1580 title.sps:5: note: SHOW: $command is prefix foobar suffix.
1581 EOF
1582     AT_CHECK([pspp -O format=csv title.sps], [0], [expout])
1583 done
1584 AT_CLEANUP
1585
1586 AT_SETUP([error message within macro expansion])
1587 AT_DATA([define.sps], [dnl
1588 DEFINE !vars(!POS !TOKENS(1)) a b C !ENDDEFINE.
1589 DATA LIST NOTABLE /a b 1-2.
1590 COMPUTE x = !vars x.
1591 ])
1592 AT_CHECK([pspp -O format=csv define.sps], [1], [dnl
1593 define.sps:3.13-3.19: error: COMPUTE: Syntax error at `b' (in expansion of `!vars x'): expecting end of command.
1594 ])
1595 AT_CLEANUP
1596
1597 dnl A macro with keyword arguments needs a token of lookahead
1598 dnl to find out whether another keyword is present.  Test that
1599 dnl this special case works OK.
1600 AT_SETUP([macro calls in each others' lookahead])
1601 AT_DATA([define.sps], [dnl
1602 DEFINE !k(x=!DEFAULT(0) !TOKENS(1)/y=!DEFAULT(0) !TOKENS(1))
1603 (x=!x)(y=!y)
1604 !ENDDEFINE.
1605 DEBUG EXPAND.
1606 !k
1607 !k x=1
1608 !k y=2
1609 !k y=2 x=1
1610 !k x=1 y=2.
1611 ])
1612 AT_CHECK([pspp -O format=csv define.sps --testing-mode], [0], [dnl
1613 (x = 0) (y = 0)
1614
1615 (x = 1) (y = 0)
1616
1617 (x = 0) (y = 2)
1618 (x = 1) (y = 2)
1619
1620 (x = 1) (y = 2)
1621 ])
1622 AT_CLEANUP
1623
1624 AT_SETUP([bad token in macro body])
1625 AT_DATA([define.sps], [dnl
1626 DEFINE !x()
1627 x'123'
1628 !ENDDEFINE.
1629 ])
1630 AT_CHECK([pspp define.sps], [1], [dnl
1631 define.sps:3: error: DEFINE: String of hex digits has 3 characters, which is
1632 not a multiple of 2.
1633 ])
1634 AT_CLEANUP
1635
1636 AT_SETUP([macro name overlaps with macro function name])
1637 dnl !len is short for macro function !LENGTH.  PSPP used to
1638 dnl reject the following with "`(' expected following !LENGTH".
1639 dnl Now PSPP only consider macro functions when the name is
1640 dnl followed by '('.
1641 AT_DATA([define.sps], [dnl
1642 DEFINE !len() 5 !ENDDEFINE.
1643 DEFINE !x() !eval(!len) !ENDDEFINE.
1644 DEBUG EXPAND.
1645 !x
1646 ])
1647 AT_CHECK([pspp -O format=csv define.sps --testing-mode], [0], [dnl
1648 5
1649 ])
1650 AT_CLEANUP
1651
1652 AT_SETUP([generic macro function syntax errors])
1653 AT_DATA([define.sps], [dnl
1654
1655
1656 DEFINE !c() !SUBSTR(1x) !ENDDEFINE.
1657 DEFINE !d() !SUBSTR(1 !ENDDEFINE.
1658 DEFINE !narg_blanks() !BLANKS() !ENDDEFINE.
1659 DEFINE !narg_concat() !CONCAT() !ENDDEFINE.
1660 DEFINE !narg_eval() !EVAL() !ENDDEFINE.
1661 DEFINE !narg_head() !HEAD() !ENDDEFINE.
1662 DEFINE !narg_index() !INDEX() !ENDDEFINE.
1663 DEFINE !narg_length() !LENGTH() !ENDDEFINE.
1664 DEFINE !narg_null() !NULL() !ENDDEFINE.
1665 DEFINE !narg_quote() !QUOTE() !ENDDEFINE.
1666 DEFINE !narg_substr() !SUBSTR() !ENDDEFINE.
1667 DEFINE !narg_tail() !TAIL() !ENDDEFINE.
1668 DEFINE !narg_unquote() !UNQUOTE() !ENDDEFINE.
1669 DEFINE !narg_upcase() !UPCASE() !ENDDEFINE.
1670 dnl )
1671 DEBUG EXPAND.
1672
1673
1674 !c.
1675 !d.
1676 !narg_blanks.
1677 !narg_concat.
1678 !narg_eval.
1679 !narg_head.
1680 !narg_index.
1681 !narg_length.
1682 !narg_null.
1683 !narg_quote.
1684 !narg_substr.
1685 !narg_tail.
1686 !narg_unquote.
1687 !narg_upcase.
1688 ])
1689 AT_CHECK([pspp --testing-mode define.sps], [1], [dnl
1690 define.sps:3: At `x' in the expansion of `!c',
1691 define.sps:20.1-20.2: error: DEBUG EXPAND: `,' or `@:}@' expected in call to macro
1692 function !SUBSTR.
1693
1694 !SUBSTR(1 x)
1695
1696 define.sps:4: In the expansion of `!d',
1697 define.sps:21.1-21.2: error: DEBUG EXPAND: Missing `@:}@' in call to macro
1698 function !SUBSTR.
1699
1700 !SUBSTR@{:@1
1701
1702 define.sps:5: In the expansion of `!narg_blanks',
1703 define.sps:22.1-22.12: error: DEBUG EXPAND: Macro function !BLANKS takes one
1704 argument (not 0).
1705
1706 !BLANKS( )
1707
1708 define.sps:6: In the expansion of `!narg_concat',
1709 define.sps:23.1-23.12: error: DEBUG EXPAND: Macro function !CONCAT needs at
1710 least one argument.
1711
1712 !CONCAT( )
1713
1714 define.sps:7: In the expansion of `!narg_eval',
1715 define.sps:24.1-24.10: error: DEBUG EXPAND: Macro function !EVAL takes one
1716 argument (not 0).
1717
1718 !EVAL( )
1719
1720 define.sps:8: In the expansion of `!narg_head',
1721 define.sps:25.1-25.10: error: DEBUG EXPAND: Macro function !HEAD takes one
1722 argument (not 0).
1723
1724 !HEAD( )
1725
1726 define.sps:9: In the expansion of `!narg_index',
1727 define.sps:26.1-26.11: error: DEBUG EXPAND: Macro function !INDEX takes two
1728 arguments (not 0).
1729
1730 !INDEX( )
1731
1732 define.sps:10: In the expansion of `!narg_length',
1733 define.sps:27.1-27.12: error: DEBUG EXPAND: Macro function !LENGTH takes one
1734 argument (not 0).
1735
1736 !LENGTH( )
1737
1738 ( )
1739
1740 define.sps:12: In the expansion of `!narg_quote',
1741 define.sps:29.1-29.11: error: DEBUG EXPAND: Macro function !QUOTE takes one
1742 argument (not 0).
1743
1744 !QUOTE( )
1745
1746 define.sps:13: In the expansion of `!narg_substr',
1747 define.sps:30.1-30.12: error: DEBUG EXPAND: Macro function !SUBSTR takes two or
1748 three arguments (not 0).
1749
1750 !SUBSTR( )
1751
1752 define.sps:14: In the expansion of `!narg_tail',
1753 define.sps:31.1-31.10: error: DEBUG EXPAND: Macro function !TAIL takes one
1754 argument (not 0).
1755
1756 !TAIL( )
1757
1758 define.sps:15: In the expansion of `!narg_unquote',
1759 define.sps:32.1-32.13: error: DEBUG EXPAND: Macro function !UNQUOTE takes one
1760 argument (not 0).
1761
1762 !UNQUOTE( )
1763
1764 define.sps:16: In the expansion of `!narg_upcase',
1765 define.sps:33.1-33.12: error: DEBUG EXPAND: Macro function !UPCASE takes one
1766 argument (not 0).
1767
1768 !UPCASE( )
1769 ])
1770 AT_CLEANUP
1771
1772 AT_SETUP([specific macro function syntax errors])
1773 AT_DATA([define.sps], [dnl
1774 DEFINE !a() !BLANKS(x). !ENDDEFINE.
1775 DEFINE !b() !SUBSTR(x, y). !ENDDEFINE.
1776 DEFINE !c() !SUBSTR(x, 1, z). !ENDDEFINE.
1777 DEBUG EXPAND.
1778 !a.
1779 !b.
1780 !c.
1781 ])
1782 AT_CHECK([pspp --testing-mode define.sps], [1], [dnl
1783 define.sps:1: In the expansion of `!a',
1784 define.sps:5.1-5.2: error: DEBUG EXPAND: Argument to !BLANKS must be non-
1785 negative integer (not "x").
1786
1787 !BLANKS(x).
1788
1789 define.sps:2: In the expansion of `!b',
1790 define.sps:6.1-6.2: error: DEBUG EXPAND: Second argument of !SUBSTR must be
1791 positive integer (not "y").
1792
1793 !SUBSTR(x, y).
1794
1795 define.sps:3: In the expansion of `!c',
1796 define.sps:7.1-7.2: error: DEBUG EXPAND: Third argument of !SUBSTR must be non-
1797 negative integer (not "z").
1798
1799 !SUBSTR(x, 1, z).
1800 ])
1801 AT_CLEANUP
1802
1803 AT_SETUP([macro expression errors])
1804 AT_DATA([define.sps], [dnl
1805 DEFINE !a() !LET !x = (1. !ENDDEFINE dnl )
1806
1807 DEFINE !b() !DO !x = x. !ENDDEFINE.
1808 DEFINE !c() !LET !x = (). !ENDDEFINE.
1809 DEBUG EXPAND.
1810 !a.
1811 !b.
1812 !c.
1813 ])
1814 AT_CHECK([pspp --testing-mode define.sps], [1], [dnl
1815 define.sps:1-2: At `.' in the expansion of `!a',
1816 define.sps:5.1-5.2: error: DEBUG EXPAND: Expecting ')' in macro expression.
1817
1818 !LET !x = (1.
1819
1820 At `x' in the expansion of `!DO',
1821 define.sps:2: inside the expansion of `!b',
1822 define.sps:6.1-6.2: error: DEBUG EXPAND: Macro expression must evaluate to a
1823 number (not "x").
1824
1825 !DO !x = x.
1826
1827 define.sps:3: At `)' in the expansion of `!c',
1828 define.sps:7.1-7.2: error: DEBUG EXPAND: Expecting literal or function
1829 invocation in macro expression.
1830
1831 !LET !x = ( ).
1832 ])
1833 AT_CLEANUP
1834
1835 AT_SETUP([macro !IF errors])
1836 AT_KEYWORDS([IF])
1837 AT_DATA([define.sps], [dnl
1838 DEFINE !a() !IF 1 !ENDDEFINE.
1839 DEFINE !b() !IF 1 !THEN !ENDDEFINE.
1840 DEFINE !c() !IF 1 !THEN !ELSE !ENDDEFINE.
1841 DEBUG EXPAND.
1842 !a.
1843 !b.
1844 !c.
1845 ])
1846 AT_CHECK([pspp --testing-mode define.sps], [1], [dnl
1847 define.sps:1: In the expansion of `!a',
1848 define.sps:5.1-5.2: error: DEBUG EXPAND: !THEN expected in macro !IF construct.
1849
1850 !IF 1
1851
1852 define.sps:2: In the expansion of `!b',
1853 define.sps:6.1-6.2: error: DEBUG EXPAND: !ELSE or !IFEND expected in macro !IF
1854 construct.
1855
1856 !IF 1 !THEN
1857
1858 define.sps:3: In the expansion of `!c',
1859 define.sps:7.1-7.2: error: DEBUG EXPAND: !IFEND expected in macro !IF
1860 construct.
1861
1862 !IF 1 !THEN !ELSE
1863 ])
1864 AT_CLEANUP
1865
1866 AT_SETUP([macro !LET errors])
1867 AT_KEYWORDS([LET])
1868 AT_DATA([define.sps], [dnl
1869 DEFINE !a() !LET !ENDDEFINE.
1870 DEFINE !b() !LET 0 !ENDDEFINE.
1871 DEFINE !c() !LET !x !ENDDEFINE.
1872 DEFINE !d() !LET !x y !ENDDEFINE.
1873 DEBUG EXPAND.
1874 !a.
1875 !b.
1876 !c.
1877 !d.
1878 ])
1879 AT_CHECK([pspp --testing-mode define.sps], [1], [dnl
1880 define.sps:1: In the expansion of `!a',
1881 define.sps:6.1-6.2: error: DEBUG EXPAND: Expected macro variable name following
1882 !LET.
1883
1884 !LET
1885
1886 define.sps:2: At `0' in the expansion of `!b',
1887 define.sps:7.1-7.2: error: DEBUG EXPAND: Expected macro variable name following
1888 !LET.
1889
1890 !LET 0
1891
1892 define.sps:3: In the expansion of `!c',
1893 define.sps:8.1-8.2: error: DEBUG EXPAND: Expected `=' following !LET.
1894
1895 !LET !x
1896
1897 define.sps:4: At `y' in the expansion of `!d',
1898 define.sps:9.1-9.2: error: DEBUG EXPAND: Expected `=' following !LET.
1899
1900 !LET !x y
1901 ])
1902 AT_CLEANUP
1903
1904 AT_SETUP([macro !DO errors])
1905 AT_KEYWORDS([DO])
1906 AT_DATA([define.sps], [dnl
1907 DEFINE !a() !DO !ENDDEFINE.
1908 DEFINE !b() !DO 0 !ENDDEFINE.
1909 DEFINE !c() !DO !x !ENDDEFINE.
1910 DEFINE !d() !DO !x !in (x) !ENDDEFINE.
1911 DEFINE !e() !DO !x = x. !ENDDEFINE.
1912 DEFINE !f() !DO !x = 5 x !ENDDEFINE.
1913 DEFINE !g() !DO !x = 5 !TO 6 !BY 0 !ENDDEFINE.
1914 DEFINE !h() !DO !x !ENDDEFINE.
1915 DEFINE !i() !DO !x 0 !ENDDEFINE.
1916 DEFINE !j() !BREAK !ENDDEFINE.
1917 DEBUG EXPAND.
1918 !a.
1919 !b.
1920 !c.
1921 !d.
1922 !e.
1923 !f.
1924 !g.
1925 !h.
1926 !i.
1927 !j.
1928 ])
1929 AT_CHECK([pspp --testing-mode define.sps], [1], [dnl
1930 define.sps:1: In the expansion of `!a',
1931 define.sps:12.1-12.2: error: DEBUG EXPAND: Expected macro variable name
1932 following !DO.
1933
1934 !DO
1935
1936 define.sps:2: At `0' in the expansion of `!b',
1937 define.sps:13.1-13.2: error: DEBUG EXPAND: Expected macro variable name
1938 following !DO.
1939
1940 !DO 0
1941
1942 define.sps:3: In the expansion of `!c',
1943 define.sps:14.1-14.2: error: DEBUG EXPAND: Expected `=' or !IN in !DO loop.
1944
1945 !DO !x
1946
1947 In the expansion of `!DO',
1948 define.sps:4: inside the expansion of `!d',
1949 define.sps:15.1-15.2: error: DEBUG EXPAND: Missing !DOEND.
1950
1951 !DO !x !in(x)
1952
1953 At `x' in the expansion of `!DO',
1954 define.sps:5: inside the expansion of `!e',
1955 define.sps:16.1-16.2: error: DEBUG EXPAND: Macro expression must evaluate to a
1956 number (not "x").
1957
1958 !DO !x = x.
1959
1960 At `x' in the expansion of `!DO',
1961 define.sps:6: inside the expansion of `!f',
1962 define.sps:17.1-17.2: error: DEBUG EXPAND: Expected !TO in numerical !DO loop.
1963
1964 !DO !x = 5 x
1965
1966 In the expansion of `!DO',
1967 define.sps:7: inside the expansion of `!g',
1968 define.sps:18.1-18.2: error: DEBUG EXPAND: !BY value cannot be zero.
1969
1970 !DO !x = 5 !TO 6 !BY 0
1971
1972 define.sps:8: In the expansion of `!h',
1973 define.sps:19.1-19.2: error: DEBUG EXPAND: Expected `=' or !IN in !DO loop.
1974
1975 !DO !x
1976
1977 define.sps:9: At `0' in the expansion of `!i',
1978 define.sps:20.1-20.2: error: DEBUG EXPAND: Expected `=' or !IN in !DO loop.
1979
1980 !DO !x 0
1981
1982 define.sps:10: At `!BREAK' in the expansion of `!j',
1983 define.sps:21.1-21.2: error: DEBUG EXPAND: !BREAK outside !DO.
1984
1985 ])
1986 AT_CLEANUP
1987
1988 AT_SETUP([macros in comments])
1989 AT_KEYWORDS([macro])
1990 AT_DATA([define.sps], [dnl
1991 DEFINE !macro() x y z !ENDDEFINE.
1992 /* !macro.
1993 *!macro.
1994 DEBUG EXPAND.
1995 !macro.
1996 ])
1997 AT_CHECK([pspp --testing-mode define.sps], [0], [dnl
1998 x y z
1999 ])
2000 AT_CLEANUP
2001
2002 AT_SETUP([DEFINE syntax errors])
2003 AT_KEYWORDS([macro])
2004 AT_DATA([define.sps], [dnl
2005 DEFINE !macro(!POSITIONAL !CHAREND('x y')) !ENDDEFINE.
2006 DEFINE !macro(a=!TOKENS(1)/!POSITIONAL !TOKENS(1)) !ENDDEFINE.
2007 DEFINE !macro(!a=!TOKENS(1)) !ENDDEFINE.
2008 DEFINE !macro(do=!TOKENS(1)) !ENDDEFINE.
2009 DEFINE 0() !ENDDEFINE.
2010 DEFINE x y () !ENDDEFINE.
2011 DEFINE !macro(1) !ENDDEFINE.
2012 DEFINE !macro(x 2) !ENDDEFINE.
2013 DEFINE !macro(x=!DEFAULT 3) !ENDDEFINE.
2014 DEFINE !macro(x=!TOKENS 4) !ENDDEFINE.
2015 DEFINE !macro(x=!TOKENS(x)) !ENDDEFINE.
2016 DEFINE !macro(x=!TOKENS(1 5)) !ENDDEFINE.
2017 DEFINE !macro(x=!ENCLOSE 6) !ENDDEFINE.
2018 DEFINE !macro(x=!ENCLOSE('x' y)) !ENDDEFINE.
2019 DEFINE !macro(x=!ENCLOSE('x',y)) !ENDDEFINE.
2020 DEFINE !macro(x=!ENCLOSE('x','y' z)) !ENDDEFINE.
2021 DEFINE !macro(x=!CHAREND 7) !ENDDEFINE.
2022 DEFINE !macro(x=!CHAREND(8)) !ENDDEFINE.
2023 DEFINE !macro(x=!CHAREND('x' 9)) !ENDDEFINE.
2024 DEFINE !macro(x=!WTF) !ENDDEFINE.
2025 DEFINE !macro(x=!TOKENS(1) x) !ENDDEFINE.
2026 DEFINE !macro(x=!DEFAULT() !DEFAULT()) !ENDDEFINE.
2027 DEFINE !macro(x=!TOKENS(1) !CMDEND) !ENDDEFINE.
2028 DEFINE !macro()
2029 ])
2030 AT_CHECK([pspp define.sps], [1], [dnl
2031 define.sps:1.36-1.40: error: DEFINE: Syntax error at `'x y'': String must
2032 contain exactly one token.
2033
2034 define.sps:2.40-2.46: error: DEFINE: Syntax error at `!TOKENS': Positional
2035 parameters must precede keyword parameters.
2036
2037 define.sps:3.15-3.16: error: DEFINE: Syntax error at `!a': Keyword macro
2038 parameter must be named in definition without "!" prefix.
2039
2040 define.sps:4.15-4.16: error: DEFINE: Syntax error at `do': Cannot use macro
2041 keyword "do" as an argument name.
2042
2043 define.sps:5.8: error: DEFINE: Syntax error at `0': expecting identifier.
2044
2045 define.sps:6.10: error: DEFINE: Syntax error at `y': expecting `@{:@'.
2046
2047 define.sps:7.15: error: DEFINE: Syntax error at `1': expecting identifier.
2048
2049 define.sps:8.17: error: DEFINE: Syntax error at `2': expecting !TOKENS, !
2050 CHAREND, !ENCLOSE, or !CMDEND.
2051
2052 define.sps:9.26: error: DEFINE: Syntax error at `3': expecting `@{:@'.
2053
2054 define.sps:10.25: error: DEFINE: Syntax error at `4': expecting `('.
2055
2056 define.sps:11.25: error: DEFINE: Syntax error at `x': Expected positive integer
2057 for !TOKENS.
2058
2059 define.sps:12.27: error: DEFINE: Syntax error at `5': expecting `)'.
2060
2061 define.sps:13.26: error: DEFINE: Syntax error at `6': expecting `('.
2062
2063 define.sps:14.30: error: DEFINE: Syntax error at `y': expecting `,'.
2064
2065 define.sps:15.30: error: DEFINE: Syntax error at `y': expecting string.
2066
2067 define.sps:16.34: error: DEFINE: Syntax error at `z': expecting `)'.
2068
2069 define.sps:17.26: error: DEFINE: Syntax error at `7': expecting `('.
2070
2071 define.sps:18.26: error: DEFINE: Syntax error at `8': expecting string.
2072
2073 define.sps:19.30: error: DEFINE: Syntax error at `9': expecting `)'.
2074
2075 define.sps:20.17-20.20: error: DEFINE: Syntax error at `!WTF': expecting !
2076 TOKENS, !CHAREND, !ENCLOSE, or !CMDEND.
2077
2078 define.sps:21.28: error: DEFINE: Syntax error at `x': expecting `/'.
2079
2080 define.sps:22.36: error: DEFINE: Syntax error at `(': !DEFAULT is allowed only
2081 once per argument.
2082
2083 define.sps:23.35: error: DEFINE: Syntax error at `)': Only one of !TOKENS, !
2084 CHAREND, !ENCLOSE, or !CMDEND is allowed.
2085
2086 define.sps:25.1: error: DEFINE: Syntax error at end of command: Expecting macro
2087 body or !ENDDEFINE.
2088 ])
2089 AT_CLEANUP
2090
2091 AT_SETUP([macro expansion with token merging])
2092 AT_DATA([define.sps], [dnl
2093 DEFINE !foo() "foo" !ENDDEFINE.
2094 DEFINE !bar() "bar" !ENDDEFINE.
2095 DEFINE !plus() + !ENDDEFINE.
2096 DEFINE !minus() - !ENDDEFINE.
2097 DEFINE !one() 1 !ENDDEFINE.
2098 ECHO "foo" + "bar".
2099 ECHO !foo.
2100 ECHO !bar.
2101 ECHO !foo + "quux".
2102 ECHO "baz" + !bar.
2103 ECHO !foo + !bar.
2104 ECHO !foo !plus !bar.
2105 ECHO "two" "strings".
2106 N OF CASES -/**/1.
2107 N OF CASES !minus 1.
2108 N OF CASES - !one.
2109 N OF CASES !minus !one.
2110 ])
2111 AT_CHECK([pspp define.sps], [1], [dnl
2112 foobar
2113
2114 foo
2115
2116 bar
2117
2118 fooquux
2119
2120 bazbar
2121
2122 foobar
2123
2124 foobar
2125
2126 two
2127
2128 define.sps:13.12-13.20: error: ECHO: Syntax error at `"strings"': expecting end
2129 of command.
2130
2131 define.sps:14.12-14.17: error: N OF CASES: Syntax error at `-/**/1': Expected
2132 positive integer for N OF CASES.
2133
2134 define.sps:15.12-15.19: error: N OF CASES: Syntax error at `!minus 1': Expected
2135 positive integer for N OF CASES.
2136
2137 define.sps:16.12-16.17: error: N OF CASES: Syntax error at `- !one': Expected
2138 positive integer for N OF CASES.
2139
2140 define.sps:17.12-17.22: error: N OF CASES: Syntax error at `!minus !one':
2141 Expected positive integer for N OF CASES.
2142 ])
2143 AT_CLEANUP
2144
2145 AT_SETUP([one macro calls another])
2146 AT_DATA([define.sps], [dnl
2147 DEFINE !a(!pos !enclose('(',')')) [[!1]] !ENDDEFINE.
2148 DEFINE !b(!pos !enclose('{','}')) !a(x !1 z) !ENDDEFINE.
2149 DEFINE !c(!pos !enclose('{','}')) !let !tmp=!quote(!concat('<',!1,'>')) !a(!tmp) !ENDDEFINE.
2150 DEBUG EXPAND.
2151 !b{y}.
2152 !c{y}.
2153 ])
2154 AT_CHECK([pspp --testing-mode define.sps], [0], [dnl
2155 [[x y z]]
2156
2157 [[ < y > ]]
2158 ])
2159 AT_CLEANUP