pintos-os.org Git - pspp/blob - tests/language/lexer/scan.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 General 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([syntax scanning])
  18 m4_define([PSPP_CHECK_SCAN],
  19   [sed 's/^-//' < expout-base > expout
  20    AT_CHECK([scan-test $1 input], [0], [expout])
  21
  22    sed '/^-/d' < expout-base > expout
  23    AT_CHECK([scan-test -s $1 input], [0], [expout])])
  24 \f
  25 AT_SETUP([identifiers])
  26 AT_KEYWORDS([scan])
  27 AT_DATA([input], [dnl
  28 a aB i5 $x @efg @@. !abcd #.# .x _z.
  29 abcd. abcd.
  30 QRSTUV./* end of line comment */
  31 QrStUv./* end of line comment */ @&t@
  32 WXYZ. /* unterminated end of line comment
  33 �. /* U+FFFD is not valid in an identifier
  34 ])
  35 AT_DATA([expout-base], [dnl
  36 ID "a"
  37 SKIP
  38 ID "aB"
  39 SKIP
  40 ID "i5"
  41 SKIP
  42 ID "$x"
  43 SKIP
  44 ID "@efg"
  45 SKIP
  46 ID "@@."
  47 SKIP
  48 MACRO_ID "!abcd"
  49 SKIP
  50 ID "#.#"
  51 SKIP
  52 MACRO_PUNCT "."
  53 ID "x"
  54 SKIP
  55 MACRO_PUNCT "_"
  56 ID "z"
  57 ENDCMD
  58 SKIP
  59 ID "abcd."
  60 SKIP
  61 ID "abcd"
  62 ENDCMD
  63 SKIP
  64 ID "QRSTUV"
  65 ENDCMD
  66 SKIP
  67 SKIP
  68 ID "QrStUv"
  69 ENDCMD
  70 SKIP
  71 SKIP
  72 SKIP
  73 ID "WXYZ"
  74 ENDCMD
  75 SKIP
  76 SKIP
  77 SKIP
  78 UNEXPECTED_CHAR 65533
  79 ENDCMD
  80 SKIP
  81 SKIP
  82 -SKIP
  83 STOP
  84 ])
  85 PSPP_CHECK_SCAN([-i])
  86 AT_CLEANUP
  87 \f
  88 AT_SETUP([reserved words])
  89 AT_KEYWORDS([scan])
  90 AT_DATA([input], [dnl
  91 and or not eq ge gt le lt ne all by to with
  92 AND OR NOT EQ GE GT LE LT NE ALL BY TO WITH
  93 andx orx notx eqx gex gtx lex ltx nex allx byx tox withx
  94 and. with.
  95 ])
  96 AT_DATA([expout-base], [dnl
  97 AND
  98 SKIP
  99 OR
 100 SKIP
 101 NOT
 102 SKIP
 103 EQ
 104 SKIP
 105 GE
 106 SKIP
 107 GT
 108 SKIP
 109 LE
 110 SKIP
 111 LT
 112 SKIP
 113 NE
 114 SKIP
 115 ALL
 116 SKIP
 117 BY
 118 SKIP
 119 TO
 120 SKIP
 121 WITH
 122 SKIP
 123 AND
 124 SKIP
 125 OR
 126 SKIP
 127 NOT
 128 SKIP
 129 EQ
 130 SKIP
 131 GE
 132 SKIP
 133 GT
 134 SKIP
 135 LE
 136 SKIP
 137 LT
 138 SKIP
 139 NE
 140 SKIP
 141 ALL
 142 SKIP
 143 BY
 144 SKIP
 145 TO
 146 SKIP
 147 WITH
 148 SKIP
 149 ID "andx"
 150 SKIP
 151 ID "orx"
 152 SKIP
 153 ID "notx"
 154 SKIP
 155 ID "eqx"
 156 SKIP
 157 ID "gex"
 158 SKIP
 159 ID "gtx"
 160 SKIP
 161 ID "lex"
 162 SKIP
 163 ID "ltx"
 164 SKIP
 165 ID "nex"
 166 SKIP
 167 ID "allx"
 168 SKIP
 169 ID "byx"
 170 SKIP
 171 ID "tox"
 172 SKIP
 173 ID "withx"
 174 SKIP
 175 ID "and."
 176 SKIP
 177 WITH
 178 ENDCMD
 179 -SKIP
 180 STOP
 181 ])
 182 PSPP_CHECK_SCAN([-i])
 183 AT_CLEANUP
 184 \f
 185 AT_SETUP([punctuation])
 186 AT_KEYWORDS([scan])
 187 AT_DATA([input], [dnl
 188 ~ & | = >= > <= < ~= <> ( ) , - + * / [[ ]] **
 189 ~&|=>=><=<~=<>(),-+*/[[]]**
 190 % : ; ? _ ` { } ~
 191 ])
 192 AT_DATA([expout-base], [dnl
 193 NOT
 194 SKIP
 195 AND
 196 SKIP
 197 OR
 198 SKIP
 199 EQUALS
 200 SKIP
 201 GE
 202 SKIP
 203 GT
 204 SKIP
 205 LE
 206 SKIP
 207 LT
 208 SKIP
 209 NE
 210 SKIP
 211 NE
 212 SKIP
 213 LPAREN
 214 SKIP
 215 RPAREN
 216 SKIP
 217 COMMA
 218 SKIP
 219 DASH
 220 SKIP
 221 PLUS
 222 SKIP
 223 ASTERISK
 224 SKIP
 225 SLASH
 226 SKIP
 227 LBRACK
 228 SKIP
 229 RBRACK
 230 SKIP
 231 EXP
 232 SKIP
 233 NOT
 234 AND
 235 OR
 236 EQUALS
 237 GE
 238 GT
 239 LE
 240 LT
 241 NE
 242 NE
 243 LPAREN
 244 RPAREN
 245 COMMA
 246 DASH
 247 PLUS
 248 ASTERISK
 249 SLASH
 250 LBRACK
 251 RBRACK
 252 EXP
 253 SKIP
 254 MACRO_PUNCT "%"
 255 SKIP
 256 MACRO_PUNCT ":"
 257 SKIP
 258 MACRO_PUNCT ";"
 259 SKIP
 260 MACRO_PUNCT "?"
 261 SKIP
 262 MACRO_PUNCT "_"
 263 SKIP
 264 MACRO_PUNCT "`"
 265 SKIP
 266 MACRO_PUNCT "{"
 267 SKIP
 268 MACRO_PUNCT "}"
 269 SKIP
 270 NOT
 271 -SKIP
 272 STOP
 273 ])
 274 PSPP_CHECK_SCAN([-i])
 275 AT_CLEANUP
 276 \f
 277 AT_SETUP([numbers])
 278 AT_KEYWORDS([scan])
 279 AT_DATA([input], [dnl
 280 0 1 01 001. 1.
 281 123. /* comment 1 */ /* comment 2 */
 282 .1 0.1 00.1 00.10
 283 5e1 6E-1 7e+1 6E+01 6e-03
 284 .3E1 .4e-1 .5E+1 .6e+01 .7E-03
 285 1.23e1 45.6E-1 78.9e+1 99.9E+01 11.2e-03
 286 . 1e e1 1e+ 1e-
 287 ])
 288 AT_DATA([expout-base], [dnl
 289 POS_NUM
 290 SKIP
 291 POS_NUM 1
 292 SKIP
 293 POS_NUM 1
 294 SKIP
 295 POS_NUM 1
 296 SKIP
 297 POS_NUM 1
 298 ENDCMD
 299 SKIP
 300 POS_NUM 123
 301 ENDCMD
 302 SKIP
 303 SKIP
 304 SKIP
 305 SKIP
 306 SKIP
 307 ENDCMD
 308 POS_NUM 1
 309 SKIP
 310 POS_NUM 0.1
 311 SKIP
 312 POS_NUM 0.1
 313 SKIP
 314 POS_NUM 0.1
 315 SKIP
 316 POS_NUM 50
 317 SKIP
 318 POS_NUM 0.6
 319 SKIP
 320 POS_NUM 70
 321 SKIP
 322 POS_NUM 60
 323 SKIP
 324 POS_NUM 0.006
 325 SKIP
 326 ENDCMD
 327 POS_NUM 30
 328 SKIP
 329 POS_NUM 0.04
 330 SKIP
 331 POS_NUM 5
 332 SKIP
 333 POS_NUM 6
 334 SKIP
 335 POS_NUM 0.0007
 336 SKIP
 337 POS_NUM 12.3
 338 SKIP
 339 POS_NUM 4.56
 340 SKIP
 341 POS_NUM 789
 342 SKIP
 343 POS_NUM 999
 344 SKIP
 345 POS_NUM 0.0112
 346 SKIP
 347 ENDCMD
 348 SKIP
 349 EXPECTED_EXPONENT "1e"
 350 SKIP
 351 ID "e1"
 352 SKIP
 353 EXPECTED_EXPONENT "1e+"
 354 SKIP
 355 EXPECTED_EXPONENT "1e-"
 356 -SKIP
 357 STOP
 358 ])
 359 PSPP_CHECK_SCAN([-i])
 360 AT_CLEANUP
 361 \f
 362 AT_SETUP([strings])
 363 AT_KEYWORDS([scan])
 364 AT_DATA([input], [dnl
 365 'x' "y" 'abc'
 366 'Don''t' "Can't" 'Won''t'
 367 """quoted""" '"quoted"'
 368 '' "" '''' """"
 369 'missing end quote
 370 "missing double quote
 371 'x' + "y"
 372 + 'z' +
 373 'a' /* abc */ + "b" /*
 374 + 'c' +/* */"d"/* */+'e'
 375 'foo'
 376 +          /* special case: + in column 0 would ordinarily start a new command
 377 'bar'
 378 'foo'
 379  +
 380 'bar'
 381 'foo'
 382 +
 383
 384 'bar'
 385
 386 +
 387 x"4142"+'5152'
 388 "4142"+
 389 x'5152'
 390 x"4142"
 391 +u'304a'
 392 "�あいうえお"
 393 "abc"+U"FFFD"+u'3048'+"xyz"
 394 ])
 395 AT_DATA([expout-base], [dnl
 396 STRING "x"
 397 SKIP
 398 STRING "y"
 399 SKIP
 400 STRING "abc"
 401 SKIP
 402 STRING "Don't"
 403 SKIP
 404 STRING "Can't"
 405 SKIP
 406 STRING "Won't"
 407 SKIP
 408 STRING ""quoted""
 409 SKIP
 410 STRING ""quoted""
 411 SKIP
 412 STRING ""
 413 SKIP
 414 STRING ""
 415 SKIP
 416 STRING "'"
 417 SKIP
 418 STRING """
 419 SKIP
 420 EXPECTED_QUOTE
 421 SKIP
 422 EXPECTED_QUOTE
 423 SKIP
 424 STRING "xyzabcde"
 425 SKIP
 426 STRING "foobar"
 427 SKIP
 428 STRING "foobar"
 429 SKIP
 430 STRING "foo"
 431 SKIP
 432 PLUS
 433 SKIP
 434 ENDCMD
 435 SKIP
 436 STRING "bar"
 437 SKIP
 438 ENDCMD
 439 SKIP
 440 PLUS
 441 SKIP
 442 STRING "AB5152"
 443 SKIP
 444 STRING "4142QR"
 445 SKIP
 446 STRING "ABお"
 447 SKIP
 448 STRING "�あいうえお"
 449 SKIP
 450 STRING "abc�えxyz"
 451 -SKIP
 452 STOP
 453 ])
 454 PSPP_CHECK_SCAN([-i])
 455 AT_CLEANUP
 456 \f
 457 AT_SETUP([@%:@! construct])
 458 AT_KEYWORDS([scan])
 459 AT_DATA([input], [dnl
 460 #! /usr/bin/pspp
 461 #! /usr/bin/pspp
 462 ])
 463 AT_DATA([expout-base], [dnl
 464 SKIP
 465 SKIP
 466 ID "#"
 467 MACRO_ID "!"
 468 SKIP
 469 SLASH
 470 ID "usr"
 471 SLASH
 472 ID "bin"
 473 SLASH
 474 ID "pspp"
 475 -SKIP
 476 STOP
 477 ])
 478 PSPP_CHECK_SCAN([-i])
 479 AT_CLEANUP
 480 \f
 481 AT_SETUP([* and COMMENT commands])
 482 AT_KEYWORDS([scan])
 483 AT_DATA([input], [dnl
 484 * Comment commands "don't
 485 have to contain valid tokens.
 486
 487 ** Check ambiguity with ** token.
 488 ****************.
 489
 490 comment keyword works too.
 491 COMM also.
 492 com is ambiguous with COMPUTE.
 493
 494    * Comment need not start at left margin.
 495
 496 * Comment ends with blank line
 497
 498 next command.
 499
 500 ])
 501 AT_DATA([expout-base], [dnl
 502 SKIP
 503 SKIP
 504 SKIP
 505 ENDCMD
 506 SKIP
 507 ENDCMD
 508 SKIP
 509 SKIP
 510 ENDCMD
 511 SKIP
 512 SKIP
 513 ENDCMD
 514 SKIP
 515 ENDCMD
 516 SKIP
 517 SKIP
 518 ENDCMD
 519 SKIP
 520 SKIP
 521 ENDCMD
 522 SKIP
 523 ID "com"
 524 SKIP
 525 ID "is"
 526 SKIP
 527 ID "ambiguous"
 528 SKIP
 529 WITH
 530 SKIP
 531 ID "COMPUTE"
 532 ENDCMD
 533 SKIP
 534 ENDCMD
 535 SKIP
 536 SKIP
 537 SKIP
 538 ENDCMD
 539 SKIP
 540 ENDCMD
 541 SKIP
 542 SKIP
 543 SKIP
 544 ENDCMD
 545 SKIP
 546 ID "next"
 547 SKIP
 548 ID "command"
 549 ENDCMD
 550 SKIP
 551 -ENDCMD
 552 -SKIP
 553 STOP
 554 ])
 555 PSPP_CHECK_SCAN([-i])
 556 AT_CLEANUP
 557 \f
 558 AT_SETUP([DOCUMENT command])
 559 AT_KEYWORDS([scan])
 560 AT_DATA([input], [dnl
 561 DOCUMENT one line.
 562 DOC more
 563     than
 564         one
 565             line.
 566 docu
 567 first.paragraph
 568 isn't parsed as tokens
 569
 570 second paragraph.
 571 ])
 572 AT_DATA([expout-base], [dnl
 573 ID "DOCUMENT"
 574 STRING "DOCUMENT one line."
 575 ENDCMD
 576 ENDCMD
 577 SKIP
 578 ID "DOCUMENT"
 579 STRING "DOC more"
 580 SKIP
 581 STRING "    than"
 582 SKIP
 583 STRING "        one"
 584 SKIP
 585 STRING "            line."
 586 ENDCMD
 587 ENDCMD
 588 SKIP
 589 ID "DOCUMENT"
 590 STRING "docu"
 591 SKIP
 592 STRING "first.paragraph"
 593 SKIP
 594 STRING "isn't parsed as tokens"
 595 SKIP
 596 STRING ""
 597 SKIP
 598 STRING "second paragraph."
 599 -ENDCMD
 600 -ENDCMD
 601 -SKIP
 602 STOP
 603 ])
 604 PSPP_CHECK_SCAN([-i])
 605 AT_CLEANUP
 606 \f
 607 AT_SETUP([TITLE, SUBTITLE, FILE LABEL commands])
 608 AT_KEYWORDS([scan])
 609 AT_DATA([input], [dnl
 610 title/**/'Quoted string title'.
 611 tit /*
 612 "Quoted string on second line".
 613 sub "Quoted string subtitle"
 614  .
 615
 616 TITL /* Not a */ quoted string title.
 617 SUBT Not a quoted string /* subtitle
 618
 619 FIL label isn't quoted.
 620 FILE
 621   lab 'is quoted'.
 622 FILE /*
 623 /**/  lab not quoted here either
 624
 625 ])
 626 AT_DATA([expout-base], [dnl
 627 ID "title"
 628 SKIP
 629 STRING "Quoted string title"
 630 ENDCMD
 631 SKIP
 632 ID "tit"
 633 SKIP
 634 SKIP
 635 SKIP
 636 STRING "Quoted string on second line"
 637 ENDCMD
 638 SKIP
 639 ID "sub"
 640 SKIP
 641 STRING "Quoted string subtitle"
 642 SKIP
 643 SKIP
 644 ENDCMD
 645 SKIP
 646 ENDCMD
 647 SKIP
 648 ID "TITL"
 649 SKIP
 650 STRING "/* Not a */ quoted string title"
 651 ENDCMD
 652 SKIP
 653 ID "SUBT"
 654 SKIP
 655 STRING "Not a quoted string /* subtitle"
 656 SKIP
 657 ENDCMD
 658 SKIP
 659 ID "FIL"
 660 SKIP
 661 ID "label"
 662 SKIP
 663 STRING "isn't quoted"
 664 ENDCMD
 665 SKIP
 666 ID "FILE"
 667 SKIP
 668 SKIP
 669 ID "lab"
 670 SKIP
 671 STRING "is quoted"
 672 ENDCMD
 673 SKIP
 674 ID "FILE"
 675 SKIP
 676 SKIP
 677 SKIP
 678 SKIP
 679 SKIP
 680 ID "lab"
 681 SKIP
 682 STRING "not quoted here either"
 683 SKIP
 684 -ENDCMD
 685 -SKIP
 686 STOP
 687 ])
 688 PSPP_CHECK_SCAN([-i])
 689 AT_CLEANUP
 690 \f
 691 AT_SETUP([BEGIN DATA command])
 692 AT_KEYWORDS([scan])
 693 AT_DATA([input], [dnl
 694 begin data.
 695 123
 696 xxx
 697 end data.
 698
 699 BEG /**/ DAT /*
 700 5 6 7 /* x
 701
 702 end  data
 703 end data
 704 .
 705 ])
 706 AT_DATA([expout-base], [dnl
 707 ID "begin"
 708 SKIP
 709 ID "data"
 710 ENDCMD
 711 SKIP
 712 STRING "123"
 713 SKIP
 714 STRING "xxx"
 715 SKIP
 716 ID "end"
 717 SKIP
 718 ID "data"
 719 ENDCMD
 720 SKIP
 721 ENDCMD
 722 SKIP
 723 ID "BEG"
 724 SKIP
 725 SKIP
 726 SKIP
 727 ID "DAT"
 728 SKIP
 729 SKIP
 730 SKIP
 731 STRING "5 6 7 /* x"
 732 SKIP
 733 STRING ""
 734 SKIP
 735 STRING "end  data"
 736 SKIP
 737 ID "end"
 738 SKIP
 739 ID "data"
 740 SKIP
 741 ENDCMD
 742 -SKIP
 743 STOP
 744 ])
 745 PSPP_CHECK_SCAN([-i])
 746 AT_CLEANUP
 747 \f
 748 AT_SETUP([DO REPEAT command])
 749 AT_KEYWORDS([scan])
 750 AT_DATA([input], [dnl
 751 do repeat x=a b c
 752           y=d e f.
 753   do repeat a=1 thru 5.
 754 another command.
 755 second command
 756 + third command.
 757 end /* x */ /* y */ repeat print.
 758 end
 759  repeat.
 760 ])
 761 AT_DATA([expout-base], [dnl
 762 ID "do"
 763 SKIP
 764 ID "repeat"
 765 SKIP
 766 ID "x"
 767 EQUALS
 768 ID "a"
 769 SKIP
 770 ID "b"
 771 SKIP
 772 ID "c"
 773 SKIP
 774 SKIP
 775 ID "y"
 776 EQUALS
 777 ID "d"
 778 SKIP
 779 ID "e"
 780 SKIP
 781 ID "f"
 782 ENDCMD
 783 SKIP
 784 STRING "  do repeat a=1 thru 5."
 785 SKIP
 786 STRING "another command."
 787 SKIP
 788 STRING "second command"
 789 SKIP
 790 STRING "+ third command."
 791 SKIP
 792 STRING "end /* x */ /* y */ repeat print."
 793 SKIP
 794 ID "end"
 795 SKIP
 796 SKIP
 797 ID "repeat"
 798 ENDCMD
 799 -SKIP
 800 STOP
 801 ])
 802 PSPP_CHECK_SCAN([-i])
 803 AT_CLEANUP
 804 \f
 805 AT_SETUP([DO REPEAT command in batch mode])
 806 AT_KEYWORDS([scan])
 807 AT_DATA([input], [dnl
 808 do repeat x=a b c
 809           y=d e f
 810 do repeat a=1 thru 5
 811 another command
 812 second command
 813 + third command
 814 end /* x */ /* y */ repeat print
 815 end
 816  repeat
 817 do
 818   repeat #a=1
 819
 820   inner command
 821 end repeat
 822 ])
 823 AT_DATA([expout-base], [dnl
 824 ID "do"
 825 SKIP
 826 ID "repeat"
 827 SKIP
 828 ID "x"
 829 EQUALS
 830 ID "a"
 831 SKIP
 832 ID "b"
 833 SKIP
 834 ID "c"
 835 SKIP
 836 SKIP
 837 ID "y"
 838 EQUALS
 839 ID "d"
 840 SKIP
 841 ID "e"
 842 SKIP
 843 ID "f"
 844 SKIP
 845 ENDCMD
 846 STRING "do repeat a=1 thru 5"
 847 SKIP
 848 STRING "another command"
 849 SKIP
 850 STRING "second command"
 851 SKIP
 852 STRING "+ third command"
 853 SKIP
 854 STRING "end /* x */ /* y */ repeat print"
 855 SKIP
 856 ID "end"
 857 SKIP
 858 SKIP
 859 ID "repeat"
 860 SKIP
 861 ENDCMD
 862 ID "do"
 863 SKIP
 864 SKIP
 865 ID "repeat"
 866 SKIP
 867 ID "#a"
 868 EQUALS
 869 POS_NUM 1
 870 SKIP
 871 ENDCMD
 872 SKIP
 873 STRING "  inner command"
 874 SKIP
 875 ID "end"
 876 SKIP
 877 ID "repeat"
 878 -SKIP
 879 STOP
 880 ])
 881 PSPP_CHECK_SCAN([-b])
 882 AT_CLEANUP
 883 \f
 884 AT_SETUP([DEFINE command - simple])
 885 AT_KEYWORDS([scan])
 886 AT_DATA([input], [dnl
 887 define !macro1()
 888 var1 var2 var3
 889 !enddefine.
 890 ])
 891 AT_DATA([expout-base], [dnl
 892 ID "define"
 893 SKIP
 894 MACRO_ID "!macro1"
 895 LPAREN
 896 RPAREN
 897 STRING ""
 898 SKIP
 899 STRING "var1 var2 var3"
 900 SKIP
 901 MACRO_ID "!enddefine"
 902 ENDCMD
 903 -SKIP
 904 STOP
 905 ])
 906 PSPP_CHECK_SCAN([-i])
 907 AT_CLEANUP
 908 \f
 909 AT_SETUP([DEFINE command - no newline after parentheses])
 910 AT_KEYWORDS([scan])
 911 AT_DATA([input], [dnl
 912 define !macro1() var1 var2 var3
 913 !enddefine.
 914 ])
 915 AT_DATA([expout-base], [dnl
 916 ID "define"
 917 SKIP
 918 MACRO_ID "!macro1"
 919 LPAREN
 920 RPAREN
 921 STRING " var1 var2 var3"
 922 SKIP
 923 MACRO_ID "!enddefine"
 924 ENDCMD
 925 -SKIP
 926 STOP
 927 ])
 928 PSPP_CHECK_SCAN([-i])
 929 AT_CLEANUP
 930 \f
 931 AT_SETUP([DEFINE command - no newline before !ENDDEFINE])
 932 AT_KEYWORDS([scan ENDDEFINE])
 933 AT_DATA([input], [dnl
 934 define !macro1()
 935 var1 var2 var3!enddefine.
 936 ])
 937 AT_DATA([expout-base], [dnl
 938 ID "define"
 939 SKIP
 940 MACRO_ID "!macro1"
 941 LPAREN
 942 RPAREN
 943 STRING ""
 944 SKIP
 945 STRING "var1 var2 var3"
 946 MACRO_ID "!enddefine"
 947 ENDCMD
 948 -SKIP
 949 STOP
 950 ])
 951 PSPP_CHECK_SCAN([-i])
 952 AT_CLEANUP
 953 \f
 954 AT_SETUP([DEFINE command - all on one line])
 955 AT_KEYWORDS([scan])
 956 AT_DATA([input], [dnl
 957 define !macro1()var1 var2 var3!enddefine.
 958 ])
 959 AT_DATA([expout-base], [dnl
 960 ID "define"
 961 SKIP
 962 MACRO_ID "!macro1"
 963 LPAREN
 964 RPAREN
 965 STRING "var1 var2 var3"
 966 MACRO_ID "!enddefine"
 967 ENDCMD
 968 -SKIP
 969 STOP
 970 ])
 971 PSPP_CHECK_SCAN([-i])
 972 AT_CLEANUP
 973 \f
 974 AT_SETUP([DEFINE command - empty])
 975 AT_KEYWORDS([scan])
 976 AT_DATA([input], [dnl
 977 define !macro1()
 978 !enddefine.
 979 ])
 980 AT_DATA([expout-base], [dnl
 981 ID "define"
 982 SKIP
 983 MACRO_ID "!macro1"
 984 LPAREN
 985 RPAREN
 986 STRING ""
 987 SKIP
 988 MACRO_ID "!enddefine"
 989 ENDCMD
 990 -SKIP
 991 STOP
 992 ])
 993 PSPP_CHECK_SCAN([-i])
 994 AT_CLEANUP
 995 \f
 996 AT_SETUP([DEFINE command - arguments])
 997 AT_KEYWORDS([scan])
 998 AT_DATA([input], [dnl
 999 define !macro1(a(), b(), c())
1000 !enddefine.
1001 ])
1002 AT_DATA([expout-base], [dnl
1003 ID "define"
1004 SKIP
1005 MACRO_ID "!macro1"
1006 LPAREN
1007 ID "a"
1008 LPAREN
1009 RPAREN
1010 COMMA
1011 SKIP
1012 ID "b"
1013 LPAREN
1014 RPAREN
1015 COMMA
1016 SKIP
1017 ID "c"
1018 LPAREN
1019 RPAREN
1020 RPAREN
1021 STRING ""
1022 SKIP
1023 MACRO_ID "!enddefine"
1024 ENDCMD
1025 -SKIP
1026 STOP
1027 ])
1028 PSPP_CHECK_SCAN([-i])
1029 AT_CLEANUP
1030 \f
1031 AT_SETUP([DEFINE command - multiline arguments])
1032 AT_KEYWORDS([scan])
1033 AT_DATA([input], [dnl
1034 define !macro1(
1035   a(), b(
1036   ),
1037   c()
1038 )
1039 !enddefine.
1040 ])
1041 AT_DATA([expout-base], [dnl
1042 ID "define"
1043 SKIP
1044 MACRO_ID "!macro1"
1045 LPAREN
1046 SKIP
1047 SKIP
1048 ID "a"
1049 LPAREN
1050 RPAREN
1051 COMMA
1052 SKIP
1053 ID "b"
1054 LPAREN
1055 SKIP
1056 SKIP
1057 RPAREN
1058 COMMA
1059 SKIP
1060 SKIP
1061 ID "c"
1062 LPAREN
1063 RPAREN
1064 SKIP
1065 RPAREN
1066 STRING ""
1067 SKIP
1068 MACRO_ID "!enddefine"
1069 ENDCMD
1070 -SKIP
1071 STOP
1072 ])
1073 PSPP_CHECK_SCAN([-i])
1074 AT_CLEANUP
1075 \f
1076 AT_SETUP([DEFINE command - arguments start on second line])
1077 AT_KEYWORDS([scan])
1078 AT_DATA([input], [dnl
1079 define !macro1
1080 (x,y,z
1081 )
1082 content 1
1083 content 2
1084 !enddefine.
1085 ])
1086 AT_DATA([expout-base], [dnl
1087 ID "define"
1088 SKIP
1089 MACRO_ID "!macro1"
1090 SKIP
1091 LPAREN
1092 ID "x"
1093 COMMA
1094 ID "y"
1095 COMMA
1096 ID "z"
1097 SKIP
1098 RPAREN
1099 STRING ""
1100 SKIP
1101 STRING "content 1"
1102 SKIP
1103 STRING "content 2"
1104 SKIP
1105 MACRO_ID "!enddefine"
1106 ENDCMD
1107 -SKIP
1108 STOP
1109 ])
1110 PSPP_CHECK_SCAN([-i])
1111 AT_CLEANUP
1112 \f
1113 AT_SETUP([DEFINE command - early end of command 1])
1114 AT_KEYWORDS([scan])
1115 AT_DATA([input], [dnl
1116 define !macro1.
1117 data list /x 1.
1118 ])
1119 AT_DATA([expout-base], [dnl
1120 ID "define"
1121 SKIP
1122 MACRO_ID "!macro1"
1123 ENDCMD
1124 SKIP
1125 ID "data"
1126 SKIP
1127 ID "list"
1128 SKIP
1129 SLASH
1130 ID "x"
1131 SKIP
1132 POS_NUM 1
1133 ENDCMD
1134 -SKIP
1135 STOP
1136 ])
1137 PSPP_CHECK_SCAN([-i])
1138 AT_CLEANUP
1139 \f
1140 AT_SETUP([DEFINE command - early end of command 2])
1141 AT_KEYWORDS([scan])
1142 AT_DATA([input], [dnl
1143 define !macro1
1144 x.
1145 data list /x 1.
1146 ])
1147 AT_DATA([expout-base], [dnl
1148 ID "define"
1149 SKIP
1150 MACRO_ID "!macro1"
1151 SKIP
1152 ID "x"
1153 ENDCMD
1154 SKIP
1155 ID "data"
1156 SKIP
1157 ID "list"
1158 SKIP
1159 SLASH
1160 ID "x"
1161 SKIP
1162 POS_NUM 1
1163 ENDCMD
1164 -SKIP
1165 STOP
1166 ])
1167 PSPP_CHECK_SCAN([-i])
1168 AT_CLEANUP
1169 \f
1170 AT_SETUP([DEFINE command - early end of command 3])
1171 AT_KEYWORDS([scan])
1172 AT_DATA([input], [dnl
1173 define !macro1(.
1174 x.
1175 data list /x 1.
1176 ])
1177 AT_DATA([expout-base], [dnl
1178 ID "define"
1179 SKIP
1180 MACRO_ID "!macro1"
1181 LPAREN
1182 ENDCMD
1183 SKIP
1184 ID "x"
1185 ENDCMD
1186 SKIP
1187 ID "data"
1188 SKIP
1189 ID "list"
1190 SKIP
1191 SLASH
1192 ID "x"
1193 SKIP
1194 POS_NUM 1
1195 ENDCMD
1196 -SKIP
1197 STOP
1198 ])
1199 PSPP_CHECK_SCAN([-i])
1200 AT_CLEANUP
1201 \f
1202 AT_SETUP([DEFINE command - early end of command 4])
1203 AT_KEYWORDS([segment])
1204 AT_DATA([input], [dnl
1205 dnl Notice the command terminator at the end of the DEFINE command,
1206 dnl which should not be there and ends it early.
1207 define !macro1.
1208 data list /x 1.
1209 ])
1210 AT_DATA([expout-base], [dnl
1211 ID "define"
1212 SKIP
1213 MACRO_ID "!macro1"
1214 ENDCMD
1215 SKIP
1216 ID "data"
1217 SKIP
1218 ID "list"
1219 SKIP
1220 SLASH
1221 ID "x"
1222 SKIP
1223 POS_NUM 1
1224 ENDCMD
1225 -SKIP
1226 STOP
1227 ])
1228 PSPP_CHECK_SCAN([-i])
1229 AT_CLEANUP
1230 \f
1231 AT_SETUP([DEFINE command - missing !ENDDEFINE])
1232 AT_KEYWORDS([scan])
1233 AT_DATA([input], [dnl
1234 define !macro1()
1235 content line 1
1236 content line 2
1237 ])
1238 AT_DATA([expout-base], [dnl
1239 ID "define"
1240 SKIP
1241 MACRO_ID "!macro1"
1242 LPAREN
1243 RPAREN
1244 STRING ""
1245 SKIP
1246 STRING "content line 1"
1247 SKIP
1248 STRING "content line 2"
1249 -SKIP
1250 STOP
1251 ])
1252 PSPP_CHECK_SCAN([-i])
1253 AT_CLEANUP
1254 \f
1255 AT_SETUP([batch mode])
1256 AT_KEYWORDS([scan])
1257 AT_DATA([input], [dnl
1258 first command
1259      another line of first command
1260 +  second command
1261 third command
1262
1263 fourth command.
1264    fifth command.
1265 ])
1266 AT_DATA([expout-base], [dnl
1267 ID "first"
1268 SKIP
1269 ID "command"
1270 SKIP
1271 SKIP
1272 ID "another"
1273 SKIP
1274 ID "line"
1275 SKIP
1276 ID "of"
1277 SKIP
1278 ID "first"
1279 SKIP
1280 ID "command"
1281 SKIP
1282 ENDCMD
1283 SKIP
1284 ID "second"
1285 SKIP
1286 ID "command"
1287 SKIP
1288 ENDCMD
1289 ID "third"
1290 SKIP
1291 ID "command"
1292 SKIP
1293 ENDCMD
1294 SKIP
1295 ID "fourth"
1296 SKIP
1297 ID "command"
1298 ENDCMD
1299 SKIP
1300 SKIP
1301 ID "fifth"
1302 SKIP
1303 ID "command"
1304 ENDCMD
1305 -SKIP
1306 STOP
1307 ])
1308 PSPP_CHECK_SCAN([-b])
1309 AT_CLEANUP