multiline string literals
This commit is contained in:
parent
5a333df48e
commit
880c0ad228
38
comms/seyon/patches/patch-SeParse_y
Normal file
38
comms/seyon/patches/patch-SeParse_y
Normal file
@ -0,0 +1,38 @@
|
||||
$OpenBSD: patch-SeParse_y,v 1.1 2003/12/30 01:18:55 espie Exp $
|
||||
--- SeParse.y.orig 2003-12-30 02:12:58.000000000 +0100
|
||||
+++ SeParse.y 2003-12-30 02:13:27.000000000 +0100
|
||||
@@ -81,20 +81,20 @@ main(int argc, char *argv[])
|
||||
{
|
||||
char long_line[1000];
|
||||
|
||||
- char input_str[] = "This(is, a, real, funky); script();
|
||||
- Scripts(); Can(be); Multi(Line, \"Can't they?\");
|
||||
- Commas(are, no, longer, optional, inside, arglists);
|
||||
- Scripts(); Can(); contain(\"tabs \\t and backspaces \\b\");
|
||||
- As(\"Well\\ as Quoted Strings\", and, '\"Quoted Strings inside
|
||||
- quoted strings\"');
|
||||
- esc(can, appear, outside, strings, ^z, \\012\\015\\n);
|
||||
- But(parenthesis, should, match);
|
||||
- We(\"have a funny way of specifying \\012 chars and even)\");
|
||||
- backslashes( \" \\\\ \");
|
||||
- new(\"in this version are ^m and ^A ctr-escapes, as in ^S^Q\");
|
||||
- The(next, line, will, give, a, syntax, error, because, it, has, two, adj, functions,
|
||||
- without, a, separating, semicolon);
|
||||
- End() script()";
|
||||
+ char input_str[] = "This(is, a, real, funky); script();\n"
|
||||
+" Scripts(); Can(be); Multi(Line, \"Can't they?\");\n"
|
||||
+" Commas(are, no, longer, optional, inside, arglists);\n"
|
||||
+" Scripts(); Can(); contain(\"tabs \\t and backspaces \\b\");\n"
|
||||
+" As(\"Well\\ as Quoted Strings\", and, '\"Quoted Strings inside\n"
|
||||
+" quoted strings\"');\n"
|
||||
+" esc(can, appear, outside, strings, ^z, \\012\\015\\n);\n"
|
||||
+" But(parenthesis, should, match);\n"
|
||||
+" We(\"have a funny way of specifying \\012 chars and even)\"); \n"
|
||||
+" backslashes( \" \\\\ \");\n"
|
||||
+" new(\"in this version are ^m and ^A ctr-escapes, as in ^S^Q\");\n"
|
||||
+" The(next, line, will, give, a, syntax, error, because, it, has, two, adj, functions,\n"
|
||||
+" without, a, separating, semicolon);\n"
|
||||
+" End() script()";
|
||||
|
||||
printf("------ String to parse: \n%s\n\n---- Parsing begins:\n", input_str);
|
||||
strcpy(long_line, input_str);
|
16
comms/seyon/patches/patch-SeScan_c
Normal file
16
comms/seyon/patches/patch-SeScan_c
Normal file
@ -0,0 +1,16 @@
|
||||
$OpenBSD: patch-SeScan_c,v 1.1 2003/12/30 01:18:55 espie Exp $
|
||||
--- SeScan.c.orig 2003-12-30 02:08:16.000000000 +0100
|
||||
+++ SeScan.c 2003-12-30 02:08:33.000000000 +0100
|
||||
@@ -275,9 +275,9 @@ GetFirstWord(line)
|
||||
#ifdef TEST
|
||||
main()
|
||||
{
|
||||
- scSetInputBuf("Just to see if we'\\'re \\n\\033 able to distinguish' words and strings
|
||||
-\"Also 'quotes' inside strings\" and 'strs \"inside quotes\"'
|
||||
-Not to forget ^S and ^q control ^ chars");
|
||||
+ scSetInputBuf("Just to see if we'\\'re \\n\\033 able to distinguish' words and strings\n"
|
||||
+"\"Also 'quotes' inside strings\" and 'strs \"inside quotes\"'\n"
|
||||
+"Not to forget ^S and ^q control ^ chars");
|
||||
|
||||
while (lGetWord() != 0);
|
||||
}
|
Loading…
x
Reference in New Issue
Block a user