+/* SPDX-License-Identifier: (BSD-3-Clause)
+ * Copyright(c) 2018-2020 Intel Corporation
+ */
+
#ifndef TEST_COMPRESSDEV_TEST_BUFFERS_H_
#define TEST_COMPRESSDEV_TEST_BUFFERS_H_
"\n"
"ORLANDO Go apart, Adam, and thou shalt hear how he will\n";
-/* Snippet of source code in Pascal */
-static const char test_buf_pascal[] =
- " Ptr = 1..DMem;\n"
- " Loc = 1..IMem;\n"
- " Loc0 = 0..IMem;\n"
- " EdgeT = (hout,lin,hin,lout); {Warning this order is important in}\n"
- " {predicates such as gtS,geS}\n"
- " CardT = (finite,infinite);\n"
- " ExpT = Minexp..Maxexp;\n"
- " ManT = Mininf..Maxinf; \n"
- " Pflag = (PNull,PSoln,PTrace,PPrint);\n"
- " Sreal = record\n"
- " edge:EdgeT;\n"
- " cardinality:CardT;\n"
- " exp:ExpT; {exponent}\n"
- " mantissa:ManT;\n"
- " end;\n"
- " Int = record\n"
- " hi:Sreal;\n"
- " lo:Sreal;\n"
- " end;\n"
- " Instr = record\n"
- " Code:OpType;\n"
- " Pars: array[0..Par] of 0..DMem;\n"
- " end;\n"
- " DataMem= record\n"
- " D :array [Ptr] of Int;\n"
- " S :array [Loc] of State;\n"
- " LastHalve:Loc;\n"
- " RHalve :array [Loc] of real;\n"
- " end;\n"
- " DataFlags=record\n"
- " PF :array [Ptr] of Pflag;\n"
- " end;\n"
- "var\n"
- " Debug : (none,activity,post,trace,dump);\n"
- " Cut : (once,all);\n"
- " GlobalEnd,Verifiable:boolean;\n"
- " HalveThreshold:real;\n"
- " I : array [Loc] of Instr; {Memory holding instructions}\n"
- " End : Loc; {last instruction in I}\n"
- " ParN : array [OpType] of -1..Par; {number of parameters for each \n"
- " opcode. -1 means no result}\n"
- " ParIntersect : array [OpType] of boolean ;\n"
- " DInit : DataMem; {initial memory which is cleared and \n"
- " used in first call}\n"
- " DF : DataFlags; {hold flags for variables, e.g. print/trace}\n"
- " MaxDMem:0..DMem;\n"
- " Shift : array[0..Digits] of 1..maxint;{array of constant multipliers}\n"
- " {used for alignment etc.}\n"
- " Dummy :Positive;\n"
- " {constant intervals and Sreals}\n"
- " PlusInfS,MinusInfS,PlusSmallS,MinusSmallS,ZeroS,\n"
- " PlusFiniteS,MinusFiniteS:Sreal;\n"
- " Zero,All,AllFinite:Int;\n"
- "\n"
- "procedure deblank;\n"
- "var Ch:char;\n"
- "begin\n"
- " while (not eof) and (input^ in [' ',' ']) do read(Ch);\n"
- "end;\n"
- "\n"
- "procedure InitialOptions;\n"
- "\n"
- "#include '/user/profs/cleary/bin/options.i';\n"
- "\n"
- " procedure Option;\n"
- " begin\n"
- " case Opt of\n"
- " 'a','A':Debug:=activity;\n"
- " 'd','D':Debug:=dump;\n"
- " 'h','H':HalveThreshold:=StringNum/100;\n"
- " 'n','N':Debug:=none;\n"
- " 'p','P':Debug:=post;\n"
- " 't','T':Debug:=trace;\n"
- " 'v','V':Verifiable:=true;\n"
- " end;\n"
- " end;\n"
- "\n"
- "begin\n"
- " Debug:=trace;\n"
- " Verifiable:=false;\n"
- " HalveThreshold:=67/100;\n"
- " Options;\n"
- " writeln(Debug);\n"
- " writeln('Verifiable:',Verifiable);\n"
- " writeln('Halve threshold',HalveThreshold);\n"
- "end;{InitialOptions}\n"
- "\n"
- "procedure NormalizeUp(E,M:integer;var S:Sreal;var Closed:boolean);\n"
- "begin\n"
- "with S do\n"
- "begin\n"
- " if M=0 then S:=ZeroS else\n"
- " if M>0 then\n";
+/* Snippet of Alice's Adventures in Wonderland */
+static const char test_buf_alice2[] =
+ "`Curiouser and curiouser!' cried Alice (she was so much\n"
+ "surprised, that for the moment she quite forgot how to speak good\n"
+ "English); `now I'm opening out like the largest telescope that\n"
+ "ever was! Good-bye, feet!' (for when she looked down at her\n"
+ "feet, they seemed to be almost out of sight, they were getting so\n"
+ "far off). `Oh, my poor little feet, I wonder who will put on\n"
+ "your shoes and stockings for you now, dears? I'm sure _I_ shan't\n"
+ "be able! I shall be a great deal too far off to trouble myself\n"
+ "about you: you must manage the best way you can; --but I must be\n"
+ "kind to them,' thought Alice, `or perhaps they won't walk the\n"
+ "way I want to go! Let me see: I'll give them a new pair of\n"
+ "boots every Christmas.'\n"
+ "\n"
+ " And she went on planning to herself how she would manage it.\n"
+ "`They must go by the carrier,' she thought; `and how funny it'll\n"
+ "seem, sending presents to one's own feet! And how odd the\n"
+ "directions will look!\n"
+ "\n"
+ " ALICE'S RIGHT FOOT, ESQ.\n"
+ " HEARTHRUG,\n"
+ " NEAR THE FENDER,\n"
+ " (WITH ALICE'S LOVE).\n"
+ "\n"
+ "Oh dear, what nonsense I'm talking!'\n"
+ "\n"
+ " Just then her head struck against the roof of the hall: in\n"
+ "fact she was now more than nine feet high, and she at once took\n"
+ "up the little golden key and hurried off to the garden door.\n"
+ "\n"
+ " Poor Alice! It was as much as she could do, lying down on one\n"
+ "side, to look through into the garden with one eye; but to get\n"
+ "through was more hopeless than ever: she sat down and began to\n"
+ "cry again.\n"
+ "\n"
+ " `You ought to be ashamed of yourself,' said Alice, `a great\n"
+ "girl like you,' (she might well say this), `to go on crying in\n"
+ "this way! Stop this moment, I tell you!' But she went on all\n"
+ "the same, shedding gallons of tears, until there was a large pool\n"
+ "all round her, about four inches deep and reaching half down the\n"
+ "hall.\n"
+ "\n"
+ " After a time she heard a little pattering of feet in the\n"
+ "distance, and she hastily dried her eyes to see what was coming.\n"
+ "It was the White Rabbit returning, splendidly dressed, with a\n"
+ "pair of white kid gloves in one hand and a large fan in the\n"
+ "other: he came trotting along in a great hurry, muttering to\n"
+ "himself as he came, `Oh! the Duchess, the Duchess! Oh! won't she\n"
+ "be savage if I've kept her waiting!' Alice felt so desperate\n"
+ "that she was ready to ask help of any one; so, when the Rabbit\n"
+ "came near her, she began, in a low, timid voice, `If you please,\n"
+ "sir--' The Rabbit started violently, dropped the white kid\n"
+ "gloves and the fan, and skurried away into the darkness as hard\n"
+ "as he could go.\n"
+ "\n"
+ " Alice took up the fan and gloves, and, as the hall was very\n"
+ "hot, she kept fanning herself all the time she went on talking:\n"
+ "`Dear, dear! How queer everything is to-day! And yesterday\n"
+ "things went on just as usual. I wonder if I've been changed in\n"
+ "the night? Let me think: was I the same when I got up this\n"
+ "morning? I almost think I can remember feeling a little\n"
+ "different. But if I'm not the same, the next question is, Who in\n"
+ "the world am I? Ah, THAT'S the great puzzle!' And she began\n"
+ "thinking over all the children she knew that were of the same age\n"
+ "as herself, to see if she could have been changed for any of\n"
+ "them.\n"
+ "\n"
+ " `I'm sure I'm not Ada,' she said, `for her hair goes in such\n"
+ "long ringlets, and mine doesn't go in ringlets at all; and I'm\n"
+ "sure I can't be Mabel, for I know all sorts of things, and she,\n"
+ "oh! she knows such a very little! Besides, SHE'S she, and I'm I,\n"
+ "and--oh dear, how puzzling it all is! I'll try if I know all the\n"
+ "things I used to know. Let me see: four times five is twelve,\n"
+ "and four times six is thirteen, and four times seven is--oh dear!\n"
+ "I shall never get to twenty at that rate! However, the\n"
+ "Multiplication Table doesn't signify: let's try Geography.\n"
+ "London is the capital of Paris, and Paris is the capital of Rome,\n"
+ "and Rome--no, THAT'S all wrong, I'm certain! I must have been\n"
+ "changed for Mabel! I'll try and say ''How doth the little--''\n"
+ "and she crossed her hands on her lap as if she were saying lessons,\n"
+ "and began to repeat it, but her voice sounded hoarse and\n"
+ "strange, and the words did not come the same as they used to do:--\n"
+ "\n"
+ " `How doth the little crocodile\n"
+ " Improve his shining tail,\n"
+ " And pour the waters of the Nile\n"
+ " On every golden scale!\n"
+ "\n"
+ " `How cheerfully he seems to grin,\n"
+ " How neatly spread his claws,\n"
+ " And welcome little fishes in\n"
+ " With gently smiling jaws!'\n";
static const char * const compress_test_bufs[] = {
test_buf_alice,
test_buf_shakespeare,
- test_buf_pascal
+ test_buf_alice2
};
#endif /* TEST_COMPRESSDEV_TEST_BUFFERS_H_ */
git.droids-corp.org / dpdk.git / commitdiff