mf-pool.c

#include <stdio.h>
#include <string.h>

static const char *poolfilearr[] = {
  "buffer size",
  "pool size",
  "number of strings",
  "" "?" "?" "?",
  "End of file on the terminal!",
  "",
  ": ",
  "! ",
  "(That makes 100 errors; please try again.)",
  "" "? ",
  "Type <return> to proceed, S to scroll future error messages,",
  "R to run without stopping, Q to run quietly,",
  "I to insert something, ",
  "E to edit your file,",
  "1 or ... or 9 to ignore the next 1 to 9 tokens of input,",
  "H for help, X to quit.",
  "OK, entering ",
  "batchmode",
  "nonstopmode",
  "scrollmode",
  "...",
  "insert>",
  "I have just deleted some text, as you asked.",
  "You can now delete more, or insert, or whatever.",
  "Sorry, I don't know how to help in this situation.",
  "Maybe you should try asking a human" "?",
  "Sorry, I already gave what help I could...",
  "An error might have occurred before I noticed any problems.",
  "``If all else fails, read the instructions.''",
  "Emergency stop",
  "METAFONT capacity exceeded, sorry [",
  "If you really absolutely need more capacity,",
  "you can ask a wizard to enlarge me.",
  "This can't happen (",
  "I'm broken. Please show this to someone who can fix can fix",
  "I can't go on meeting you like this",
  "One of your faux pas seems to have wounded me deeply...",
  "in fact, I'm barely conscious. Please fix it and try again.",
  "Interruption",
  "You rang" "?",
  "Try to insert some instructions for me (e.g.,`I show x'),",
  "unless you just want to quit by typing `X'.",
  "Missing `",
  "' has been inserted",
  "Arithmetic overflow",
  "Uh, oh. A little while ago one of the quantities that I was",
  "computing got too large, so I'm afraid your answers will be",
  "somewhat askew. You'll probably have to adopt different",
  "tactics next time. But I shall try to carry on anyway.",
  "Square root of ",
  " has been replaced by 0",
  "Since I don't take square roots of negative numbers,",
  "I'm zeroing this one. Proceed, with fingers crossed.",
  "Pythagorean subtraction ",
  "+-+",
  "Logarithm of ",
  "Since I don't take logs of non-positive numbers,",
  "angle(0,0) is taken as zero",
  "The `angle' between two identical points is undefined.",
  "main memory size",
  "AVAIL list clobbered at ",
  "Double-AVAIL list clobbered at ",
  "Doubly free location at ",
  "Bad flag at ",
  "New busy locs:",
  "LINK(",
  "INFO(",
  "vacuous",
  "boolean",
  "unknown boolean",
  "string",
  "unknown string",
  "pen",
  "unknown pen",
  "future pen",
  "path",
  "unknown path",
  "picture",
  "unknown picture",
  "transform",
  "pair",
  "known numeric",
  "dependent",
  "proto-dependent",
  "numeric",
  "independent",
  "token list",
  "structured",
  "unsuffixed macro",
  "suffixed macro",
  "undefined",
  "true",
  "false",
  "nullpicture",
  "nullpen",
  "jobname",
  "readstring",
  "pencircle",
  "normaldeviate",
  "odd",
  "known",
  "unknown",
  "not",
  "decimal",
  "reverse",
  "makepath",
  "makepen",
  "totalweight",
  "oct",
  "hex",
  "ASCII",
  "char",
  "length",
  "turningnumber",
  "xpart",
  "ypart",
  "xxpart",
  "xypart",
  "yxpart",
  "yypart",
  "sqrt",
  "mexp",
  "mlog",
  "sind",
  "cosd",
  "floor",
  "uniformdeviate",
  "charexists",
  "angle",
  "cycle",
  "++",
  "or",
  "and",
  "<=",
  ">=",
  "<>",
  "rotated",
  "slanted",
  "scaled",
  "shifted",
  "transformed",
  "xscaled",
  "yscaled",
  "zscaled",
  "intersectiontimes",
  "substring",
  "subpath",
  "directiontime",
  "point",
  "precontrol",
  "postcontrol",
  "penoffset",
  "..",
  "tracingtitles",
  "tracingequations",
  "tracingcapsules",
  "tracingchoices",
  "tracingspecs",
  "tracingpens",
  "tracingcommands",
  "tracingrestores",
  "tracingmacros",
  "tracingedges",
  "tracingoutput",
  "tracingstats",
  "tracingonline",
  "year",
  "month",
  "day",
  "time",
  "charcode",
  "charext",
  "charwd",
  "charht",
  "chardp",
  "charic",
  "chardx",
  "chardy",
  "designsize",
  "hppp",
  "vppp",
  "xoffset",
  "yoffset",
  "pausing",
  "showstopping",
  "fontmaking",
  "proofing",
  "smoothing",
  "autorounding",
  "granularity",
  "fillin",
  "turningcheck",
  "warningcheck",
  "boundarychar",
  " at line ",
  "a bad variable",
  "fi",
  "endgroup",
  "enddef",
  "endfor",
  " INACCESSIBLE",
  "hash size",
  "EQUIV(",
  "::",
  "||:",
  ":=",
  "addto",
  "at",
  "atleast",
  "begingroup",
  "controls",
  "cull",
  "curl",
  "delimiters",
  "display",
  "everyjob",
  "exitif",
  "expandafter",
  "from",
  "inwindow",
  "interim",
  "let",
  "newinternal",
  "of",
  "openwindow",
  "randomseed",
  "save",
  "scantokens",
  "shipout",
  "skipto",
  "step",
  "str",
  "tension",
  "to",
  "until",
  "token",
  " ETC.",
  " CLOBBERED",
  " IMPOSSIBLE",
  " NONEXISTENT",
  " BAD",
  "[]",
  "(EXPR",
  "(SUFFIX",
  "(TEXT",
  "->",
  ">->",
  "<expr>->",
  "<expr>of<primary>->",
  "<suffix>->",
  "<text>->",
  "(SAVED)",
  "var",
  "xx",
  "xy",
  "yx",
  "yy",
  "%CAPSULE",
  "part ",
  "struct",
  "{restoring ",
  "Path",
  "{open" "?}",
  "..control" "?",
  " ..",
  "{curl ",
  "..tension ",
  " and ",
  "..controls ",
  "" "?" "?",
  ", before choices",
  ", after choices",
  "Some number got too big",
  "The path that I just computed is out of range.",
  "So it will probably look funny. Proceed, for a laugh.",
  "path size",
  "Edge structure",
  "row ",
  " |",
  "Scaled picture would be too big",
  "I can't yscale the picture as requested---it would",
  "make some coordinates too large or too small.",
  "Proceed, and I'll omit the transformation.",
  "I can't xscale the picture as requested---it would",
  "move table size",
  "Tracing edges",
  " (weight ",
  "(No new edges added.)",
  "Cycle spec",
  " % beginning in octant `",
  "% entering octant `",
  " & cycle",
  "ENE",
  "NNE",
  "NNW",
  "WNW",
  "WSW",
  "SSW",
  "SSE",
  "ESE",
  "   ..controls ",
  " % segment ",
  " (",
  ", before subdivision into octants",
  ", after subdivision",
  ", after subdivision and double autorounding",
  ", after subdivision and autorounding",
  "Curve out of range",
  "At least one of the coordinates in the path I'm about to",
  "digitize was really huge (potentially bigger than 4095).",
  "So I've cut it back to the maximum size.",
  "The results will probably be pretty wild.",
  "rounding table size",
  "Pen polygon",
  " .. cycle",
  " .. ",
  " (newly created)",
  "Pen too large",
  "The cycle you specified has a coordinate of 4095.5 or more.",
  "So I've replaced it by the trivial path `(0,0)..cycle'.",
  "Pen cycle must be convex",
  "The cycle you specified either has consecutive equal points",
  "or turns right or turns through more than 360 degrees.",
  "pen polygon size",
  "@ Octant ",
  " offsets",
  " offset",
  "), from ",
  " to ",
  "@ retrograde line from ",
  "@ transition line ",
  ", from ",
  "independent variables",
  "dep",
  "*4",
  "Value is too large (",
  "The equation I just processed has given some variable",
  "a value of 4096 or more. Continue and I'll try to cope",
  "with that big value; but it might be dangerous.",
  "(Set warningcheck:=0 to suppress this message.)",
  "#### ",
  "## ",
  "Bad PREVDEP at ",
  "Out of order at ",
  "Redundant equation",
  "I already knew that this equation was true.",
  "But perhaps no harm has been done; let's continue.",
  "[unknown command code!]",
  "<*>",
  "<insert>",
  "<scantokens>",
  "l.",
  "<forever> ",
  "<argument> ",
  "<recently read> ",
  "<to be read again> ",
  "<inserted text> ",
  "<for(",
  ")> ",
  "input stack size",
  "text input levels",
  "endinput",
  "Incomplete if; all text was ignored after line ",
  "A forbidden `outer' token occurred in skipped text.",
  "This kind of error happens when you say `if...' and forget",
  "the matching `fi'. I've inserted a `fi'; this might work.",
  "The file ended while I was skipping conditional text.",
  "File ended",
  "Forbidden token found",
  " while scanning ",
  "I suspect you have forgotten an `enddef',",
  "causing me to read past where you wanted me to stop.",
  "I'll try to recover; but if the error is serious,",
  "you'd better type `E' or `X' now and fix your file.",
  "to the end of the statement",
  "A previous error seems to have propagated,",
  "a text argument",
  "It seems that a right delimiter was left out,",
  "the definition of ",
  "the text of a ",
  " loop",
  "I suspect you have forgotten an `endfor',",
  "Runaway ",
  "text" "?",
  "definition" "?",
  "loop" "?",
  "Text line contains an invalid character",
  "A funny symbol that I can't read has just been input.",
  "Continue, and I'll forget that it ever happened.",
  "Incomplete string token has been flushed",
  "Strings should finish on the same line as they began.",
  "I've deleted the partial string; you might want to",
  "insert another by typing, e.g., `I\"new string\"'.",
  "Enormous number has been reduced",
  "I can't handle numbers bigger than about 4095.99998;",
  "so I've changed your constant to that maximum amount.",
  "(Please type a command or say `end')",
  "*** (job aborted, no legal end found)",
  "=>",
  "def",
  "vardef",
  "primarydef",
  "secondarydef",
  "tertiarydef",
  "for",
  "forsuffixes",
  "forever",
  "quote",
  "#@",
  "@#",
  "Missing symbolic token inserted",
  "Sorry: You can't redefine a number, string, or expr.",
  "I've inserted an inaccessible symbol so that your",
  "definition will be completed without mixing me up too badly.",
  "Sorry: You can't redefine my error-recovery tokens.",
  "The next thing in this `def' should have been `=',",
  "because I've already looked at the definition heading.",
  "But don't worry; I'll pretend that an equals sign",
  "was present. Everything from here to `enddef'",
  "will be the replacement text of this macro.",
  "expr",
  "suffix",
  "text",
  "primary",
  "secondary",
  "tertiary",
  "This variable already starts with a macro",
  "After `vardef a' you can't say `vardef a.b'.",
  "So I'll have to discard this definition.",
  "Missing parameter type; `expr' will be assumed",
  "You should've had `expr' or `suffix' or `text' here.",
  "parameter stack size",
  "Extra `endfor'",
  "I'm not currently working on a for loop,",
  "so I had better not try to end anything.",
  "input",
  "Lost loop",
  "I'm confused; after exiting from a loop, I still seem",
  "to want to repeat it. I'll try to forget the problem.",
  "No loop is in progress",
  "Why say `exitif' when there's nothing to exit from" "?",
  "After `exitif <boolean exp>' I expect to see a semicolon.",
  "I shall pretend that one was there.",
  "*** (loop confusion)",
  "Not a string",
  "I'm going to flush this expression, since",
  "scantokens should be followed by a known string.",
  ")<-",
  "Too many arguments to ",
  "  Missing `",
  "I'm going to assume that the comma I just read was a",
  "right delimiter, and then I'll begin expanding the macro.",
  "You might want to delete some tokens before continuing.",
  "Missing argument to ",
  "That macro has more parameters than you thought.",
  "I'll continue by pretending that each missing argument",
  "is either zero or null.",
  "I've finished reading a macro argument and am about to",
  "read another; the arguments weren't delimited correctly.",
  "I've gotten to the end of the macro parameter list.",
  " for ",
  "I've got the first argument; will look now for the other.",
  "if",
  "else",
  "elseif",
  "There should've been a colon after the condition.",
  "{true}",
  "{false}",
  "Extra ",
  "I'm ignoring this; it doesn't match any if.",
  "Improper ",
  "When you say `for x=a step b until c',",
  "the initial value `a' and the step size `b'",
  "and the final value `c' must have known numeric values.",
  "The next thing in this loop should have been `=' or `:='.",
  "was present, and I'll look for the values next.",
  "The next thing in this loop should have been a `:'.",
  "So I'll pretend that a colon was present;",
  "everything from here to `endfor' will be iterated.",
  " ENDFOR",
  "{loop value=",
  "initial value",
  "step size",
  "I assume you meant to say `until' after `step'.",
  "So I'll look for the final value and colon next.",
  "final value",
  ".base",
  "input file name",
  "I can't find file `",
  "I can't write on file `",
  "'.",
  ".mf",
  "Please type another ",
  "*** (job aborted, file error in nonstop mode)",
  "mfput",
  ".fls",
  ".log",
  "**",
  "transcript file name",
  "  ",
  "file name for output",
  "File names can't appear within macros",
  "Sorry...I've converted what follows to tokens,",
  "possibly garbaging the name you gave.",
  "Please delete the tokens and insert the name again.",
  "exp",
  " (see the transcript file)",
  " (future pen)",
  "linearform",
  ">> ",
  "recycle",
  "### ",
  " = ",
  "A primary",
  " expression can't begin with `",
  "I'm afraid I need some sort of value in order to continue,",
  "so I've tentatively inserted `0'. You may want to",
  "delete this zero and insert something else;",
  "see Chapter 27 of The METAFONTbook for an example.",
  "Nonnumeric ypart has been replaced by 0",
  "I thought you were giving me a pair `(x,y)'; but",
  "after finding a nice xpart `x' I found a ypart `y'",
  "that isn't of numeric type. So I've changed y to zero.",
  "(The y that I didn't like appears above the error message.)",
  "A group begun on line ",
  " never ended",
  "I saw a `begingroup' back there that hasn't been matched",
  "by `endgroup'. So I've inserted `endgroup' now.",
  "Division by zero",
  "I'll pretend that you meant to divide by 1.",
  "Improper subscript has been replaced by zero",
  "A bracketed subscript must have a known numeric value;",
  "unfortunately, what I found was the value that appears just",
  "above this error message. So I'll try a zero subscript.",
  "Variable ",
  " has been obliterated",
  "It seems you did a nasty thing---probably by accident,",
  "but nevertheless you nearly hornswoggled me...",
  "While I was evaluating the right-hand side of this",
  "command, something happened, and the left-hand side",
  "is no longer a variable! So I won't change anything.",
  "While I was evaluating the suffix of this variable,",
  "something was redefined, and it's no longer a variable!",
  "In order to get back on my feet, I've inserted `0' instead.",
  "copy",
  "I've scanned an expression of the form `a[b,c',",
  "so a right bracket should have come next.",
  "I've seen a `[' and a subscript value, in a suffix,",
  "A secondary",
  "A tertiary",
  "Pen path must be a cycle",
  "I can't make a pen from the given path.",
  "An",
  "Undefined coordinates have been replaced by (0,0)",
  "I need x and y numbers for this part of the path.",
  "The value I found (see above) was no good;",
  "so I'll try to keep going by using zero instead.",
  "(Chapter 27 of The METAFONTbook explains that",
  "you might want to type `I " "?" "?" "?' now.)",
  "Undefined x coordinate has been replaced by 0",
  "I need a `known' x value for this part of the path.",
  "Undefined y coordinate has been replaced by 0",
  "I need a `known' y value for this part of the path.",
  "I've scanned a direction spec for part of a path,",
  "so a right brace should have come next.",
  "Improper curl has been replaced by 1",
  "A curl must be a known, nonnegative number.",
  "I've got the x coordinate of a path direction;",
  "will look for the y coordinate next.",
  "A path join command should end with two dots.",
  "Improper tension has been set to 1",
  "The expression above should have been a number >=3/4.",
  "Paths don't touch; `&' will be changed to `..'",
  "When you join paths `p&q', the ending point of p",
  "must be exactly equal to the starting point of q.",
  "So I'm going to pretend that you said `p..q' instead.",
  "Undefined condition will be treated as `false'",
  "The expression shown above should have had a definite",
  "true-or-false value. I'm changing it to `false'.",
  "*** (cannot readstring in nonstop modes)",
  "unknown pair",
  "unknown numeric",
  "Not implemented: ",
  "I'm afraid I don't know how to apply that operation to that",
  "particular type. Continue, and I'll simply return the",
  "argument (shown above) as the result of the operation.",
  ")}",
  "String contains illegal digits",
  "I zeroed out characters that weren't in the range 0..7.",
  "I zeroed out characters that weren't hex digits.",
  "Number too large (",
  "I have trouble with numbers greater than 4095; watch out.",
  "combination of types. Continue, and I'll return the second",
  "argument (see above) as the result of the operation.",
  "{(",
  "The quantities shown above have not been equated.",
  "Oh dear. I can't decide if the expression above is positive,",
  "negative, or zero. So this comparison test won't be `true'.",
  "Unknown relation will be considered false",
  ")*(",
  "You're trying to divide the quantity shown above the error",
  "message by zero. I'm going to divide it by one instead.",
  "Improper transformation argument",
  "The expression shown above has the wrong type,",
  "so I can't transform anything using it.",
  "Transform components aren't all known",
  "I'm unable to apply a partially specified transformation",
  "except to a fully known pair or transform.",
  "That transformation is too hard",
  "I can apply complicated transformations to paths,",
  "but I can only do integer operations on pictures.",
  "Too far to shift",
  "I can't shift the picture as requested---it would",
  "A statement can't begin with `",
  "I was looking for the beginning of a new statement.",
  "If you just proceed without changing anything, I'll ignore",
  "everything up to the next `;'. Please insert a semicolon",
  "now in front of anything that you don't want me to delete.",
  "(See Chapter 27 of The METAFONTbook for an example.)",
  "Extra tokens will be flushed",
  "I've just read as much of that statement as I could fathom,",
  "so a semicolon should have been next. It's very puzzling...",
  "but I'll try to get myself back together, by ignoring",
  "Isolated expression",
  "I couldn't find an `=' or `:=' after the",
  "expression that is shown above this error message,",
  "so I guess I'll just ignore it and carry on.",
  "Improper `:=' will be changed to `='",
  "I didn't find a variable name at the left of the `:=',",
  "so I'm going to pretend that you said `=' instead.",
  ")=(",
  "Internal quantity `",
  "' must receive a known value",
  "I can't set an internal quantity to anything but a known",
  "numeric value, so I'll have to ignore this assignment.",
  "Equation cannot be performed (",
  "I'm sorry, but I don't know how to make such things equal.",
  "(See the two expressions just above the error message.)",
  "Redundant or inconsistent equation",
  "An equation between already-known quantities can't help.",
  "But don't worry; continue and I'll just ignore it.",
  "Inconsistent equation",
  "The equation I just read contradicts what was said before.",
  " (off by ",
  "Declared variable conflicts with previous vardef",
  "You can't use, e.g., `numeric foo[]' after `vardef foo'.",
  "Proceed, and I'll ignore the illegal redeclaration.",
  "Illegal suffix of declared variable will be flushed",
  "Variables in declarations must consist entirely of",
  "names and collective subscripts, e.g., `x[]a'.",
  "Are you trying to use a reserved word in a variable name" "?",
  "I'm going to discard the junk I found here,",
  "up to the next comma or the end of the declaration.",
  "Explicit subscripts like `x15a' aren't permitted.",
  "Extra `endgroup'",
  "I'm not currently working on a `begingroup',",
  "end",
  "dump",
  "Always say `randomseed:=<numeric expression>'.",
  "Unknown value will be ignored",
  "Your expression was too random for me to handle,",
  "so I won't change the random seed just now.",
  "{randomseed:=",
  "errorstopmode",
  "inner",
  "outer",
  "I found no right delimiter to match a left one. So I've",
  "put one in, behind the scenes; this may fix the problem.",
  "The token `",
  "' is no longer a right delimiter",
  "Strange: This token has lost its former meaning!",
  "I'll read it as a right delimiter this time;",
  "but watch out, I'll probably miss it later.",
  "(%CAPSULE)",
  "' isn't an internal quantity",
  "Something like `tracingonline' should follow `interim'.",
  "You should have said `let symbol = something'.",
  "was present. The next token I read will be `something'.",
  "number of internals",
  "showtoken",
  "showstats",
  "show",
  "showvariable",
  "showdependencies",
  "> ",
  "(outer) ",
  "lef",
  "righ",
  "t delimiter that matches ",
  "tag",
  "variable",
  "macro:",
  "'d macro:",
  "[repeat the loop]",
  "Memory usage ",
  " still untouched)",
  "String usage ",
  "=macro:",
  "OK",
  "This isn't an error message; I'm just showing something.",
  "contour",
  "doublepath",
  "also",
  "withpen",
  "withweight",
  "dropping",
  "keeping",
  "Improper type",
  "Next time say `withweight <known numeric expression>';",
  "I'll ignore the bad `with' clause and look for another.",
  "Next time say `withpen <known pen expression>';",
  "Weight must be -3, -2, -1, +1, +2, or +3",
  " is the wrong type (",
  "I was looking for a \"known\" picture variable.",
  "So I'll not change anything just now.",
  "Not a suitable variable",
  "At this point I needed to see the name of a picture variable.",
  "(Or perhaps you have indeed presented me with one; I might",
  "have missed it, if it wasn't followed by the proper token.)",
  "Improper `addto'",
  "This expression should have specified a known picture.",
  "This expression should have been a known path.",
  "Not a cycle",
  "That contour should have ended with `..cycle' or `&cycle'.",
  "Strange path (turning number is zero)",
  "Backwards path (turning number is negative)",
  "The path doesn't have a counterclockwise orientation,",
  "so I'll probably have trouble drawing it.",
  "(See Chapter 27 of The METAFONTbook for more help.)",
  "Bad window number",
  "It should be the number of an open window.",
  "Improper `openwindow'",
  "Say `openwindow k from (r0,c0) to (r1,c1) at (x,y)',",
  "where all quantities are known and k is between 0 and 15.",
  "Bad culling amounts",
  "Always cull by known amounts that exclude 0.",
  "message",
  "errmessage",
  "errhelp",
  "A message should be a known string expression.",
  "(That was another `errmessage'.)",
  "This error message was generated by an `errmessage'",
  "command, so I can't give any explicit help.",
  "Pretend that you're Miss Marple: Examine all clues,",
  "and deduce the truth by inspired guesses.",
  "Enormous ",
  " has been reduced",
  "Font metric dimensions must be less than 2048pt.",
  "charlist",
  "ligtable",
  "extensible",
  "headerbyte",
  "fontdimen",
  "Invalid code has been replaced by 0",
  "I was looking for a number between 0 and 255, or for a",
  "string of length 1. Didn't find it; will use 0 instead.",
  "Character ",
  "||",
  "code ",
  " is already ",
  "in a ligtable",
  "in a charlist",
  "It's not legal to label a character more than once.",
  "Improper location",
  "I was looking for a known, positive number.",
  "For safety's sake I'll ignore the present command.",
  "A colon should follow a headerbyte or fontinfo location.",
  "Illegal ligtable step",
  "I was looking for `=:' or `kern' here.",
  "ligtable size",
  "=:",
  "=:|",
  "=:|>",
  "|=:",
  "|=:>",
  "|=:|",
  "|=:|>",
  "|=:|>>",
  "kern",
  "Too far to skip",
  "At most 127 lig/kern steps can separate skipto1 from 1::.",
  "Improper kern",
  "The amount of kern should be a known numeric value.",
  "I'm processing `extensible c: t,m,b,r'.",
  "Improper font parameter",
  "(some ",
  " values had to be adjusted by as much as ",
  "pt)",
  "(illegal design size has been changed to 128pt)",
  ".tfm",
  "file name for font metrics",
  "Font metrics written on ",
  "(local label ",
  ":: was missing)",
  "(a font metric dimension",
  " font metric dimensions",
  " had to be decreased)",
  "gf length exceeds \"7FFFFFFF",
  " METAFONT output ",
  ".gf",
  "gf",
  " (just shipped out)",
  "(There's unbounded black in character shipped out!)",
  "special",
  "numspecial",
  "Unsuitable expression",
  "The expression shown above has the wrong type to be output.",
  "title ",
  "Output written on ",
  " characters",
  " character",
  ", ",
  " bytes).",
  " (INIMF)",
  " strings of total length ",
  " memory locations dumped; current usage is ",
  " symbolic tokens",
  " (preloaded base=",
  "base file name",
  "Beginning to dump on file ",
  "Transcript written on ",
  " )",
  "(end occurred when ",
  " on line ",
  " was incomplete)",
  "(see the transcript file for additional information)",
  "(dump is performed only by INIMF)",
  "debug # (-1 to exit):",
  NULL };
int loadpoolstrings (integer spare_size) {
  const char *s;
  strnumber g=0;
  int i=0,j=0;
  while ((s = poolfilearr[j++])) {
    int l = strlen (s);
    i += l;
    if (i>=spare_size) return 0;
    while (l-- > 0) strpool[poolptr++] = *s++;
    g = makestring();
    strref[g]= 127;
  }
  return g;
}