home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / libs / gle / c.c < prev    next >
Encoding:
Text File  |  1992-11-29  |  30.8 KB  |  809 lines
  1. ************
  2. File GR_DISK1:[SRGHCXP.GC]A.A;34
  3.     1   ******************************
  4.     2   GR_DISK1:[SRGHCXP.GC]AXIS.C;75
  5.     3
  6. ******
  7. File GR_DISK1:[SRGHCXP.GC]B.B;26
  8.     1
  9.     2   ******************************
  10.     3   gr_disk1:[SRGHCXP.GC]AXIS.C;75
  11.     4
  12. ************
  13. ************
  14. File GR_DISK1:[SRGHCXP.GC]A.A;34
  15.     7       if ((gmax - gmin)/dsubticks>2000) {gprint("too many subticks\n");
  16.     8       if (delta==0) {gprint("Axis range error min=%g max=%g \n",*gmin,*gmax);
  17. ******
  18. File GR_DISK1:[SRGHCXP.GC]B.B;26
  19.     8       if ((gmax - gmin)/dsubticks>2000) {gprint("too many subticks \n");
  20.     9       if (delta==0) {gprint("Axis range error min=%g max=%g \n",*gmin,*gmax);
  21. ************
  22. ************
  23. File GR_DISK1:[SRGHCXP.GC]A.A;34
  24.    12   GR_DISK1:[SRGHCXP.GC]BEGIN.C;21
  25.    13
  26.    14           gprint("Expecting another text in pcode (5) , got %ld\n"
  27.    15
  28.    16   ******************************
  29.    17   GR_DISK1:[SRGHCXP.GC]B_TAB.C;55
  30.    18
  31.    19                   gprint("Too much tabbing text in one line\n");
  32.    20
  33.    21   ******************************
  34.    22   GR_DISK1:[SRGHCXP.GC]B_TEXT.C;32
  35.    23
  36. ******
  37. File GR_DISK1:[SRGHCXP.GC]B.B;26
  38.    13   gr_disk1:[SRGHCXP.GC]BEGIN.C;21
  39.    14
  40.    15           gprint("Expecting another text in pcode (5) , got %ld \n"
  41.    16
  42.    17   ******************************
  43.    18   gr_disk1:[SRGHCXP.GC]B_TAB.C;55
  44.    19
  45.    20                   gprint("Too much tabbing text in one go\n");
  46.    21
  47.    22   ******************************
  48.    23   gr_disk1:[SRGHCXP.GC]B_TEXT.C;32
  49.    24
  50. ************
  51. ************
  52. File GR_DISK1:[SRGHCXP.GC]A.A;34
  53.    27   GR_DISK1:[SRGHCXP.GC]CORE.C;121
  54.    28
  55.    29       gprint("%s\n",s);
  56.    30       gprint("What is setting end \n"?);
  57.    31         gprint("G_OPEN, Width or height was zero w=%d, h=%d\n",width,height);
  58. ******
  59. File GR_DISK1:[SRGHCXP.GC]B.B;26
  60.    28   gr_disk1:[SRGHCXP.GC]CORE.C;121
  61.    29
  62.    30       gprint("%s\n",s);
  63.    31       gprint("what is setting end \n");
  64.    32         gprint("G_OPEN, Width or height was zero w=%d, h=%d\n",width,height);
  65. ************
  66. ************
  67. File GR_DISK1:[SRGHCXP.GC]A.A;34
  68.    36       if (cdiv==0) {gprint("Image matrix FLAT, a 1D world, giving up\n");return;}
  69.    37       gprint("\n Matrix {%s} \n",s);
  70. ******
  71. File GR_DISK1:[SRGHCXP.GC]B.B;26
  72.    37       if (cdiv==0) {gprint("Image matrix FLAT, a 1D world, giving up \n");return;}
  73.    38       gprint("\n Matrix {%s} \n",s);
  74. ************
  75. ************
  76. File GR_DISK1:[SRGHCXP.GC]A.A;34
  77.    40           gprint("Over 99 GSAVEs, probably a loop in yourcode\n");
  78.    41           gprint("Attempt to GRESTORE at top of stack\n");
  79.    42                   gprint("You MUST define the sub before defining the marker\n");
  80.    43       if (i<1 || i>nmrk) {gprint("Invalid marker number %d \n",i); return;}
  81. ******
  82. File GR_DISK1:[SRGHCXP.GC]B.B;26
  83.    41           gprint("Over 99 GSAVE's, probably a loop in you're code\n");
  84.    42           gprint("Attempt to GRESTORE at top of stack\n");
  85.    43                   gprint("You MUST define the sub before defineing the marker\n");
  86.    44       if (i<1 || i>nmrk) {gprint("Invalid marker number %d \n",i); return;}
  87. ************
  88. ************
  89. File GR_DISK1:[SRGHCXP.GC]A.A;34
  90.    50   GR_DISK1:[SRGHCXP.GC]CURVE.C;20
  91.    51
  92. ******
  93. File GR_DISK1:[SRGHCXP.GC]B.B;26
  94.    51   gr_disk1:[SRGHCXP.GC]CURVE.C;20
  95.    52
  96. ************
  97. ************
  98. File GR_DISK1:[SRGHCXP.GC]A.A;34
  99.    55   GR_DISK1:[SRGHCXP.GC]DRAWIT.C;78
  100.    56
  101. ******
  102. File GR_DISK1:[SRGHCXP.GC]B.B;26
  103.    56   gr_disk1:[SRGHCXP.GC]DRAWIT.C;78
  104.    57
  105. ************
  106. ************
  107. File GR_DISK1:[SRGHCXP.GC]A.A;34
  108.    61       gprint("include file (not implemented  phone 5666919) {%s} \n",s);
  109.    62           gprint("Unable to open input file {%s} \n",fname);
  110. ******
  111. File GR_DISK1:[SRGHCXP.GC]B.B;26
  112.    62       gprint("include file (not implemnted ) {%s} \n",s);
  113.    63           gprint("Unable to open input file {%s} \n",fname);
  114. ************
  115. ************
  116. File GR_DISK1:[SRGHCXP.GC]A.A;34
  117.    67   GR_DISK1:[SRGHCXP.GC]D_BMP.C;15
  118.    68
  119.    69       gprint("AARRRrrrrgg, watch out I'm dying!!!\n");
  120.    70
  121.    71   ******************************
  122.    72   GR_DISK1:[SRGHCXP.GC]D_DECX.C;3
  123.    73
  124. ******
  125. File GR_DISK1:[SRGHCXP.GC]B.B;26
  126.    68   gr_disk1:[SRGHCXP.GC]D_BMP.C;15
  127.    69
  128.    70       gprint("AARRRrrrrgg,  Dieing\n");
  129.    71
  130.    72   ******************************
  131.    73   gr_disk1:[SRGHCXP.GC]D_DECX.C;3
  132.    74
  133. ************
  134. ************
  135. File GR_DISK1:[SRGHCXP.GC]A.A;34
  136.    77   GR_DISK1:[SRGHCXP.GC]D_DVI.C;29
  137.    78
  138.    79       gprint("AARRRrrrrgg, watch out I'm dying!!!\n");
  139.    80
  140.    81   ******************************
  141.    82   GR_DISK1:[SRGHCXP.GC]D_HPGL.C;50
  142.    83
  143.    84           gprint("Unable to open HP output file {%s} \n",outfile);
  144.    85       if (d_scale<1) gprint("Shrinking picture to fit by factor %d \n",d_scale);
  145. ******
  146. File GR_DISK1:[SRGHCXP.GC]B.B;26
  147.    78   gr_disk1:[SRGHCXP.GC]D_DVI.C;29
  148.    79
  149.    80       gprint("AARRRrrrrgg,  Dieing\n");
  150.    81
  151.    82   ******************************
  152.    83   gr_disk1:[SRGHCXP.GC]D_HPGL.C;50
  153.    84
  154.    85           gprint("Unable to hp output file {%s} \n",outfile);
  155.    86       if (d_scale<1) gprint("Shrinking picture to fit by factor %d \n",d_scale);
  156. ************
  157. ************
  158. File GR_DISK1:[SRGHCXP.GC]A.A;34
  159.    88   GR_DISK1:[SRGHCXP.GC]D_P79.C;16
  160.    89
  161. ******
  162. File GR_DISK1:[SRGHCXP.GC]B.B;26
  163.    89   gr_disk1:[SRGHCXP.GC]D_P79.C;16
  164.    90
  165. ************
  166. ************
  167. File GR_DISK1:[SRGHCXP.GC]A.A;34
  168.    93   GR_DISK1:[SRGHCXP.GC]D_PC.C;39
  169.    94
  170.    95           gprint("AARRRrrrrgg, watch out I'm dying!!!\n")
  171.    96       dbg gprint("rrr %g a4/2 %g t=%g a2=%g a1=%g r1=%g r2=%g r3=%g \n",rrr,a4/2,tan(a4/2),a2,a1,r1,r2,r3);
  172. ******
  173. File GR_DISK1:[SRGHCXP.GC]B.B;26
  174.    94   gr_disk1:[SRGHCXP.GC]D_PC.C;39
  175.    95
  176.    96           gprint("AARRRrrrrgg,  Dieing\n")
  177.    97       dbg gprint("rrr %g a4/2 %g t=%g a2=%g a1=%g r1=%g r2=%g r3=%g \n",rrr,a4/2,tan(a4/2),a2,a1,r1,r2,r3);
  178. ************
  179. ************
  180. File GR_DISK1:[SRGHCXP.GC]A.A;34
  181.   100   GR_DISK1:[SRGHCXP.GC]D_PS.C;101
  182.   101
  183.   102       dbg gprint("in d_line  g.curx,y  %g %g ",g.curx,g.cury);
  184.   103           gprint("Warning, complex path, if filling fails then try /nomaxpath \n");
  185.   104               gprint("Font size is zero, error ********* \n");
  186. ******
  187. File GR_DISK1:[SRGHCXP.GC]B.B;26
  188.   101   gr_disk1:[SRGHCXP.GC]D_PS.C;101
  189.   102
  190.   103       dbg gprint("in d_line  g.curx,y  %g %g ",g.curx,g.cury);
  191.   104           gprint("Warning, complex path, if filling fails then try /nomaxpath \n");
  192.   105               gprint("Font size is zero, error ********* \n");
  193. ************
  194. ************
  195. File GR_DISK1:[SRGHCXP.GC]A.A;34
  196.   107   GR_DISK1:[SRGHCXP.GC]D_X.C;49
  197.   108
  198. ******
  199. File GR_DISK1:[SRGHCXP.GC]B.B;26
  200.   108   gr_disk1:[SRGHCXP.GC]D_X.C;49
  201.   109
  202. ************
  203. ************
  204. File GR_DISK1:[SRGHCXP.GC]A.A;34
  205.   112   GR_DISK1:[SRGHCXP.GC]EDT.C;145
  206.   113
  207.   114               gprint("Unable to open input file {%s} \n",input_file);
  208.   115       if (file_desc==-1) { gprint("Open glegle.tmp error \n"); return;}
  209.   116    /*gotoxy(5,9);gprint("negtab line=%d m=%d f=%d \n",tfy,move_pos,tfx);*/
  210. ******
  211. File GR_DISK1:[SRGHCXP.GC]B.B;26
  212.   113   gr_disk1:[SRGHCXP.GC]EDT.C;145
  213.   114
  214.   115               gprint("Unable to open input file {%s} \n",input_file);
  215.   116       if (file_desc==-1) { gprint("Open glegle.tmp error \n");  return;}
  216.   117    /*gotoxy(5,9);gprint("negtab line=%d m=%d f=%d \n",tfy,move_pos,tfx);*/
  217. ************
  218. ************
  219. File GR_DISK1:[SRGHCXP.GC]A.A;34
  220.   119   GR_DISK1:[SRGHCXP.GC]EVAL.C;84
  221.   120
  222. ******
  223. File GR_DISK1:[SRGHCXP.GC]B.B;26
  224.   120   gr_disk1:[SRGHCXP.GC]EVAL.C;84
  225.   121
  226. ************
  227. ************
  228. File GR_DISK1:[SRGHCXP.GC]A.A;34
  229.   127       if (plen>1000) gprint("Expression is suspiciously long %d \n",plen);
  230.   128         dbg gprint(" c=%d ",cde);
  231. ******
  232. File GR_DISK1:[SRGHCXP.GC]B.B;26
  233.   128       if (plen>1000) gprint("Expession is suspiciously long %d \n",plen);
  234.   129         dbg gprint(" c=%d ",cde);
  235. ************
  236. ************
  237. File GR_DISK1:[SRGHCXP.GC]A.A;34
  238.   132                   gprint("Error in color name {%s}\n",stk_str[nstk]);
  239.   133               else gprint("Unrecognised pcode exp prim %d at position=%d \n",*(pcode+c),c);
  240.   134       dbg gprint("RESULT ISa ==== %d [1] %f   [nstk] %f \n",nstk,stk[1],stk[nstk]);
  241. ******
  242. File GR_DISK1:[SRGHCXP.GC]B.B;26
  243.   133                   gprint("Error in color name {%s} \n",stk_str[nstk]);
  244.   134               else gprint("Unrecognezed pcode exp prim %d at position=%d \n",*(pcode+c),c);
  245.   135       dbg gprint("RESULT ISa ==== %d [1] %f   [nstk] %f \n",nstk,stk[1],stk[nstk]);
  246. ************
  247. ************
  248. File GR_DISK1:[SRGHCXP.GC]A.A;34
  249.   138            gprint("Stack stuffed (up : overfull? maybe) in EVAL %d \n",nstk);
  250.   139           gprint("Expecting expression, v=%d \n",(int) *(pcode+-- (*cp)) );
  251.   140       gprint("Expression length %d current point %d \n",plen,(int) *cp);
  252.   141       if (plen>1000) gprint("Expression is suspiciously (What is this? long maybe?)int %d \n",plen);
  253.   142       gprint("Code=%d ",cde);
  254. ******
  255. File GR_DISK1:[SRGHCXP.GC]B.B;26
  256.   139            gprint("Stack stuffed up in EVAL %d \n",nstk);
  257.   140           gprint("Expecting expression, v=%d \n",(int) *(pcode+--(*cp)) );
  258.   141       gprint("Expression length %d current point %d \n",plen,(int) *cp);
  259.   142       if (plen>1000) gprint("Expession is suspiciously int %d \n",plen);
  260.   143       gprint("Code=%d ",cde);
  261. ************
  262. ************
  263. File GR_DISK1:[SRGHCXP.GC]A.A;34
  264.   147               gprint("# String variable \n"); c++;
  265.   148               gprint("# String constant {%s} \n",eval_str(pcode,&c));
  266. ******
  267. File GR_DISK1:[SRGHCXP.GC]B.B;26
  268.   148               gprint("# String Variable \n"); c++;
  269.   149               gprint("# String constant {%s} \n",eval_str(pcode,&c));
  270. ************
  271. ************
  272. File GR_DISK1:[SRGHCXP.GC]A.A;34
  273.   151               gprint("# Built in function (with salt) {%s}\n",keywfn[cde-60].word);
  274.   152               gprint("# User defined function %d \n",cde);
  275. ******
  276. File GR_DISK1:[SRGHCXP.GC]B.B;26
  277.   152               gprint("# Built in function (with salt) {%s} \n",keywfn[cde-60].word);
  278.   153               gprint("# User defined function %d \n",cde);
  279. ************
  280. ************
  281. File GR_DISK1:[SRGHCXP.GC]A.A;34
  282.   155   GR_DISK1:[SRGHCXP.GC]FBUILD.C;29
  283.   156
  284. ******
  285. File GR_DISK1:[SRGHCXP.GC]B.B;26
  286.   156   gr_disk1:[SRGHCXP.GC]FBUILD.C;29
  287.   157
  288. ************
  289. ************
  290. File GR_DISK1:[SRGHCXP.GC]A.A;34
  291.   162   GR_DISK1:[SRGHCXP.GC]FITCF.C;21
  292.   163
  293. ******
  294. File GR_DISK1:[SRGHCXP.GC]B.B;26
  295.   163   gr_disk1:[SRGHCXP.GC]FITCF.C;21
  296.   164
  297. ************
  298. ************
  299. File GR_DISK1:[SRGHCXP.GC]A.A;34
  300.   167       gprint("Identical x values i, %g %g \n",(int) i,(double) x[i-1],(double) x[i]);
  301.   168       gprint("Identical x values i, %g %g \n",(int) i,(double) x[i-1],(double) x[i]);
  302.   169       gprint("%s  %ld \n",s,l);
  303. ******
  304. File GR_DISK1:[SRGHCXP.GC]B.B;26
  305.   168       gprint("Identical x values i, %g %g \n",(int) i,(double) x[i-1], (double) x[i]);
  306.   169       gprint("Identical x aavalues i, %g %g \n",(int) i,(double) x[i-1], (double) x[i]);
  307.   170       gprint("%s  %ld \n",s,l);
  308. ************
  309. ************
  310. File GR_DISK1:[SRGHCXP.GC]A.A;34
  311.   172   GR_DISK1:[SRGHCXP.GC]FONT.C;86
  312.   173
  313. ******
  314. File GR_DISK1:[SRGHCXP.GC]B.B;26
  315.   173   gr_disk1:[SRGHCXP.GC]FONT.C;86
  316.   174
  317. ************
  318. ************
  319. File GR_DISK1:[SRGHCXP.GC]A.A;34
  320.   179               gprint("(Warning) Font Metric not found [%d](%s), Spacing wrong \n"
  321.   180           dbg gprint("Encoding %d  slant %f,  box %f %f %f %f \n"
  322. ******
  323. File GR_DISK1:[SRGHCXP.GC]B.B;26
  324.   180               gprint("(Warning) Font Metric not found [%d] (%s), Spacing wrong \n"
  325.   181           dbg gprint("Encoding %d  slant %f,  box %f %f %f %f \n"
  326. ************
  327. ************
  328. File GR_DISK1:[SRGHCXP.GC]A.A;34
  329.   186   GR_DISK1:[SRGHCXP.GC]GENERAL.C;33
  330.   187
  331. ******
  332. File GR_DISK1:[SRGHCXP.GC]B.B;26
  333.   187   gr_disk1:[SRGHCXP.GC]GENERAL.C;33
  334.   188
  335. ************
  336. ************
  337. File GR_DISK1:[SRGHCXP.GC]A.A;34
  338.   194   GR_DISK1:[SRGHCXP.GC]GLE.C;74
  339.   195
  340. ******
  341. File GR_DISK1:[SRGHCXP.GC]B.B;26
  342.   195   gr_disk1:[SRGHCXP.GC]GLE.C;74
  343.   196
  344. ************
  345. ************
  346. File GR_DISK1:[SRGHCXP.GC]A.A;34
  347.   199   GR_DISK1:[SRGHCXP.GC]GPRINT.C;34
  348.   200
  349. ******
  350. File GR_DISK1:[SRGHCXP.GC]B.B;26
  351.   200   gr_disk1:[SRGHCXP.GC]GPRINT.C;34
  352.   201
  353. ************
  354. ************
  355. File GR_DISK1:[SRGHCXP.GC]A.A;34
  356.   217   GR_DISK1:[SRGHCXP.GC]GRAPH.C;153
  357.   218
  358. ******
  359. File GR_DISK1:[SRGHCXP.GC]B.B;26
  360.   218   gr_disk1:[SRGHCXP.GC]GRAPH.C;153
  361.   219
  362. ************
  363. ************
  364. File GR_DISK1:[SRGHCXP.GC]A.A;34
  365.   222       gprint("Unrecognised graph sub command {%s} %d \n ",tk[ct],ct);
  366.   223           if (d==0 || d>99) gprint("Error in bar command {%s} token number %d \n",tk[ct],ct);
  367.   224          else gprint("Unrecognised GRAPH BAR sub command {%s} %d \n "
  368.   225           if (d==0) { gprint("Not a valid fill option {%s} wanted FILL X1,D1 \n",tk[ct]); goto end_fill_read; }
  369. ******
  370. File GR_DISK1:[SRGHCXP.GC]B.B;26
  371.   223       gprint("Unrecoginzed graph sub command {%s} %d \n ",tk[ct],ct);
  372.   224           if (d==0 || d>99) gprint("Error in bar command {%s}  token number %d \n",tk[ct],ct);
  373.   225          else gprint("Unrecoginzed GRAPH BAR sub command {%s} %d \n "
  374.   226           if (d==0) { gprint("Not a valid fill option {%s} wanted FILL X1,D1 \n",tk[ct]); goto end_fill_read; }
  375. ************
  376. ************
  377. File GR_DISK1:[SRGHCXP.GC]A.A;34
  378.   230          else gprint("Unrecognised GRAPH FILL sub command {%s} %d (Note: CGLE syntax change\n  Expected COLOR,XMIN,XMAX,YMIN,YMAX
  379.   231          else gprint("Unrecognised GRAPH KEY sub command {%s} %d \nExpected  KEY POS BL,TL,BR,TR HEI .6 NOBOX OFFSET 2 3 \n"
  380.   232               if (s1==NULL || data_d[nm]==0) gprint("Expecting Dn=Ca,Cb (no spaces) {%s}\n",tk[ct]);
  381.   233                   gprint("Expecting Dn=Ca,Cb   (no spaces) {%s}\n",tk[ct]);
  382.   234               if (*tk[ct] != 0) gprint("Expecting Dn=Ca,Cb (no spaces) {%s}\n",tk[ct]);
  383.   235           } else gprint("Warning, found {%s}, expecting   data a.dat d1 d2 d3 \n",tk[ct]);
  384. ******
  385. File GR_DISK1:[SRGHCXP.GC]B.B;26
  386.   231          else gprint("Unrecoginzed GRAPH FILL sub command {%s} %d (Note: CGLE syntax change\n  Expected COLOR,XMIN,XMAX,YMIN,YMAX
  387.   232          else gprint("Unrecoginzed GRAPH KEY sub command {%s} %d \nExpected  KEY POS BL,TL,BR,TR HEI .6 NOBOX OFFSET 2 3 \n"
  388.   233               if (s1==NULL || data_d[nm]==0) gprint("Expecting Dn=Ca,Cb (no spaces) {%s}\n",tk[ct]);
  389.   234                   gprint("Expecting Dn=Ca,Cb   (no spaces) {%s}\n",tk[ct]);
  390.   235               if (*tk[ct] != 0) gprint("Expecting Dn=Ca,Cb   (no spaces) {%s}\n",tk[ct]);
  391.   236           } else gprint("Warning, found {%s}, expecting   data a.dat d1 d2 d3 \n",tk[ct]);
  392. ************
  393. ************
  394. File GR_DISK1:[SRGHCXP.GC]A.A;34
  395.   240           gprint("Warning, expecting %d columns in data file {%s} found %d \n"
  396.   241               if (dp[dn]==NULL) gprint("Memory allocation error, graph dataset \n");
  397.   242               dbg gprint("(xym    %f %f %d \n",*(px-1),*(py-1),*(m-1));
  398.   243          else gprint("Unrecognised GRAPH %%AXIS sub command {%s} %d\n",tk[ct],ct);
  399.   244           else gprint("Expecting TITLE sub command, found {%s} pos %d\n",tk[ct],ct);
  400. ******
  401. File GR_DISK1:[SRGHCXP.GC]B.B;26
  402.   241           gprint("Warning, expecting %d coloumns in data file {%s} found %d \n"
  403.   242               if (dp[dn]==NULL) gprint("Memory allocation error, graph dataset \n");
  404.   243               dbg gprint("(xym    %f %f %d \n",*(px-1),*(py-1),*(m-1));
  405.   244          else gprint("Unrecognized GRAPH %%AXIS sub command {%s} %d\n",tk[ct],ct);
  406.   245           else gprint("Expecting TITLE sub command, found {%s} pos %d\n",tk[ct],ct);
  407. ************
  408. ************
  409. File GR_DISK1:[SRGHCXP.GC]A.A;34
  410.   255   GR_DISK1:[SRGHCXP.GC]GRAPH2.C;202
  411.   256
  412.   257                       gprint("Expecting\"file.name,xcolumn,ycolumn\" found [%s] \n",infile);
  413.   258           gprint("Unable to open data file {%s} \n",infile);
  414. ******
  415. File GR_DISK1:[SRGHCXP.GC]B.B;26
  416.   256   gr_disk1:[SRGHCXP.GC]GRAPH2.C;202
  417.   257
  418.   258                       gprint("Expecting \"file.name,xcoloumn,ycolumn\" found [%s] \n",infile);
  419.   259           gprint("Unable to open data file {%s} \n",infile);
  420. ************
  421. ************
  422. File GR_DISK1:[SRGHCXP.GC]A.A;34
  423.   262       if (px==NULL || nb==0) { gprint("error in bar data dn=%d ngrp=%d\n",d,nb); return;}
  424.   263               gprint("No data in bargraph datasets\n");
  425.   264               gprint("No data in bargraph dataset. d(%d) \n",dt);
  426.   265           gprint("Warning no data (or spread ie. no min or max to make up a range\n");
  427.   266         if (dp[dn]==NULL) { gprint("No data in fill dataset at all \n");return;}
  428.   267         if (xt==NULL) { gprint("No data in fill dataset \n"); return;}
  429.   268       if (tmpf == NULL) {gprint("Ran out of tmp storage for fill \n");
  430.   269   gle_abort("tmp data \n"); }
  431.   270           gprint("Dataset %d doesn't exist at all\n",i);
  432. ******
  433. File GR_DISK1:[SRGHCXP.GC]B.B;26
  434.   263       if (px==NULL || nb==0) { gprint("error in bar data dn=%d  ngrp=%d\n",d,nb); return;}
  435.   264               gprint("No data in bargraph datasets\n");
  436.   265               gprint("No data in bargraph dataset. d(%d) \n",dt);
  437.   266           gprint("Warning no data (or no spread) and no min,max so making up range\n");
  438.   267         if (dp[dn]==NULL) { gprint("No data in fill dataset at all \n");return;}
  439.   268         if (xt==NULL) { gprint("No data in fill dataset \n"); return;}
  440.   269       if (tmpf == NULL) {gprint("Ran out of tmp storage for fill \n"); gle_abort("tmp data \n"); }
  441.   270           gprint("Dataset %d doesn't exist at all\n",i);
  442. ************
  443. ************
  444. File GR_DISK1:[SRGHCXP.GC]A.A;34
  445.   278           gprint("Found {%s} When expecting {=} at token %d\n",tk[ct]
  446.   279               gprint("Expecting    FROM exp TO exp [ STEP exp]\n");
  447.   280               gprint("or expression containing Dataset d1,d2 etc\n");
  448. ******
  449. File GR_DISK1:[SRGHCXP.GC]B.B;26
  450.   278           gprint("Found {%s} When expecting {=} at token %d \n",tk[ct]
  451.   279               gprint("Expecting    FROM exp TO exp [ STEP exp] \n");
  452.   280               gprint("or expression containing Dataset d1,d2 etc\n");
  453. ************
  454. ************
  455. File GR_DISK1:[SRGHCXP.GC]A.A;34
  456.   283       if (dp[dd]==NULL) gprint("Memory allocation error, graph dataset\n");
  457.   284       if (dp[dd]->xv != NULL) gprint("Over writing DATASET %d \n",dd);
  458.   285       else gprint("Unrecogised GRAPH DN sub command {%s} \n ",tk[ct]);
  459.   286
  460.   287   ******************************
  461.   288   GR_DISK1:[SRGHCXP.GC]KEY.C;32
  462.   289
  463.   290        else gprint("Unrecognised KEY sub command {%s} %d \n",tk[ct],ct);
  464.   291           if (strlen(kpos)>0) gprint("Expecting POS BL,BR,TR or TL\n");
  465.   292
  466.   293   ******************************
  467.   294   GR_DISK1:[SRGHCXP.GC]MEMORY.C;48
  468.   295
  469.   296       if (size>40000) gprint(" allocating a lot of memory %d\n",size);
  470.   297         gprint(" allocating a lot of memory %ld \n",size);
  471.   298           gprint("Freeing cached characters\n");
  472. ******
  473. File GR_DISK1:[SRGHCXP.GC]B.B;26
  474.   283       if (dp[dd]==NULL) gprint("Memory allocation error, graph dataset \n");
  475.   284       if (dp[dd]->xv != NULL) gprint("Over Writing DATASET %d \n",dd);
  476.   285       else gprint("Unrecoginzed GRAPH DN sub command {%s} \n ",tk[ct]);
  477.   286
  478.   287   ******************************
  479.   288   gr_disk1:[SRGHCXP.GC]KEY.C;32
  480.   289
  481.   290        else gprint("Unrecoginzed KEY sub command {%s} %d \n ",tk[ct],ct);
  482.   291           if (strlen(kpos)>0) gprint("Expecting POS BL,BR,TR or TL \n");
  483.   292
  484.   293   ******************************
  485.   294   gr_disk1:[SRGHCXP.GC]MEMORY.C;48
  486.   295
  487.   296       if (size>40000) gprint(" allocating alot of memory %d \n",size);
  488.   297         gprint(" zallocating alot of memory %ld \n",size);
  489.   298           gprint("Freeing cached characters\n");
  490. ************
  491. ************
  492. File GR_DISK1:[SRGHCXP.GC]A.A;34
  493.   301   GR_DISK1:[SRGHCXP.GC]MENU.C;173
  494.   302
  495. ******
  496. File GR_DISK1:[SRGHCXP.GC]B.B;26
  497.   301   gr_disk1:[SRGHCXP.GC]MENU.C;173
  498.   302
  499. ************
  500. ************
  501. File GR_DISK1:[SRGHCXP.GC]A.A;34
  502.   306   GR_DISK1:[SRGHCXP.GC]MYCHAR.C;41
  503.   307
  504. ******
  505. File GR_DISK1:[SRGHCXP.GC]B.B;26
  506.   306   gr_disk1:[SRGHCXP.GC]MYCHAR.C;41
  507.   307
  508. ************
  509. ************
  510. File GR_DISK1:[SRGHCXP.GC]A.A;34
  511.   317   GR_DISK1:[SRGHCXP.GC]NAME.C;28
  512.   318
  513. ******
  514. File GR_DISK1:[SRGHCXP.GC]B.B;26
  515.   317   gr_disk1:[SRGHCXP.GC]NAME.C;28
  516.   318
  517. ************
  518. ************
  519. File GR_DISK1:[SRGHCXP.GC]A.A;34
  520.   324   GR_DISK1:[SRGHCXP.GC]NULLEDT.C;5
  521.   325
  522. ******
  523. File GR_DISK1:[SRGHCXP.GC]B.B;26
  524.   324   gr_disk1:[SRGHCXP.GC]NULLEDT.C;5
  525.   325
  526. ************
  527. ************
  528. File GR_DISK1:[SRGHCXP.GC]A.A;34
  529.   329   GR_DISK1:[SRGHCXP.GC]PASS.C;118
  530.   330
  531. ******
  532. File GR_DISK1:[SRGHCXP.GC]B.B;26
  533.   329   gr_disk1:[SRGHCXP.GC]PASS.C;118
  534.   330
  535. ************
  536. ************
  537. File GR_DISK1:[SRGHCXP.GC]A.A;34
  538.   339           gprint("Goto IS NOT implemented, being kept for a future release \n");
  539.   340           gprint("Region IS NOT implemented, complain to your local MP   \n");
  540. ******
  541. File GR_DISK1:[SRGHCXP.GC]B.B;26
  542.   339           gprint("Goto IS NOT implemented \n");
  543.   340           gprint("Region IS NOT implemented, complain to your local MP   \n");
  544. ************
  545. ************
  546. File GR_DISK1:[SRGHCXP.GC]A.A;34
  547.   345           if (sp==NULL) {gprint("what the shit? (specialist users only?) \n"); break;}
  548.   346           if (sp==NULL) {gprint("what the shit \n"); break;}
  549.   347           gprint("Until IS NOT implemented (neither is \box), complain to your local MP  \n");
  550.   348           gprint("While IS NOT implemented, complain to your local MP   \n");
  551.   349           gprint("Unrecognised command verb {%s}   %d \n",tok(1),ix);
  552.   350               gprint("There should be a space on either side of an equals sign \n");
  553. ******
  554. File GR_DISK1:[SRGHCXP.GC]B.B;26
  555.   345           if (sp==NULL) {gprint("what the shit \n"); break;}
  556.   346           if (sp==NULL) {gprint("what the shit \n"); break;}
  557.   347           gprint("Until IS NOT implemented, complain to your local MP  \n");
  558.   348           gprint("While IS NOT implemented, complain to your local MP   \n");
  559.   349           gprint("Unrecognized command verb {%s}   %d \n",tok(1),ix);
  560.   350               gprint("There should be a space on either side of an equals sign \n");
  561. ************
  562. ************
  563. File GR_DISK1:[SRGHCXP.GC]A.A;34
  564.   367           dbg gprint("val Returned,  curtok=%d prest=%d type %d\n",tt,prest,etype);
  565.   368           if (*pt!=0) gprint("Duplicate or illegal combination of qualifiers ");
  566.   369           dbg gprint("val Returned,  curtok=%d prest=%d type %d\n",tt,prest,etype);
  567.   370           if (*pt!=0) gprint("Duplicate or illegal combination of qualifiers %ld %p \n",*pt,pt);
  568. ******
  569. File GR_DISK1:[SRGHCXP.GC]B.B;26
  570.   367           dbg gprint("val Returned,  curtok=%d prest=%d type %d \n",tt,prest,etype);
  571.   368           if (*pt!=0) gprint("Duplicate or illegal combination of qualifiers ");
  572.   369           dbg gprint("val Returned,  curtok=%d prest=%d type %d \n",tt,prest,etype);
  573.   370           if (*pt!=0) gprint("Duplicate or illegal combination of qualifiers %ld %p \n",*pt,pt);
  574. ************
  575. ************
  576. File GR_DISK1:[SRGHCXP.GC]A.A;34
  577.   376   GR_DISK1:[SRGHCXP.GC]POLISH.C;35
  578.   377
  579.   378       dbg gprint("====Start of expression {%s} \n",expr);
  580.   379       if (strlen(expr)==0) {gprint("Zero length expression\n");return;}
  581.   380         dbg gprint("First word token=%d via (1=unary %d) cts {%s} %d\n "
  582.   381   evalagain:            dbg gprint("Found number {%s}\n",cts);
  583.   382               if (last_typ==2) gprint("Expecting string {%s}\n",cts);
  584.   383             dbg gprint("Found built in function \n");
  585.   384                   gprint("Expecting left bracket afterfunction name");
  586.   385                   if (nparam>np) {gprint("Too manyparamters got=%d want=%d \n",nparam,np);abort;}
  587.   386                   gprint("Function of wrong type Expecting{%s} \n",ns[ret]);
  588.   387             dbg gprint("Found user function \n");
  589. ******
  590. File GR_DISK1:[SRGHCXP.GC]B.B;26
  591.   376   gr_disk1:[SRGHCXP.GC]POLISH.C;35
  592.   377
  593.   378       dbg gprint("====Start of expression {%s} \n",expr);
  594.   379       if (strlen(expr)==0) {gprint("Zero length expression\n"); return;}
  595.   380         dbg gprint("First word token=%d via (1=unary %d) cts {%s} %d \n "
  596.   381   evalagain:            dbg gprint("Found number {%s}\n",cts);
  597.   382               if (last_typ==2) gprint("Expecting string {%s} \n",cts);
  598.   383             dbg gprint("Found built in function \n");
  599.   384                   gprint("Expecting left bracket after functsion name");
  600.   385                   if (nparam>np) {gprint("Too many paramters got=%d want=%d \n",nparam,np);abort;}
  601.   386                   gprint("Function of wrong type Expecting {%s} \n",ns[ret]);
  602.   387             dbg gprint("Found user function \n");
  603. ************
  604. ************
  605. File GR_DISK1:[SRGHCXP.GC]A.A;34
  606.   390                   gprint("Function of wrong type Expecting{%s} \n",ns[ret]);
  607.   391               dbg gprint("Found variable %d \n",v);
  608.   392                   gprint("Expecting {%s}\n",ns[last_typ]);
  609.   393             dbg gprint("Found string \n");
  610.   394                   gprint("Expecting number {%s} \n",cts);
  611.   395               gprint("Too many right brackets found in exp\n");
  612.   396               dbg gprint("Found un-initialized variable {%s}/n",cts);
  613.   397               gprint("Expression contained unquoted string\n");
  614. ******
  615. File GR_DISK1:[SRGHCXP.GC]B.B;26
  616.   390                   gprint("Function of wrong type Expecting {%s} \n",ns[ret]);
  617.   391               dbg gprint("Found variable %d \n",v);
  618.   392                   gprint("Expecting {%s} \n",ns[last_typ]);
  619.   393             dbg gprint("Found string \n");
  620.   394                   gprint("Expecting number {%s} \n",cts);
  621.   395               gprint("Too many right brackets found in exp \n");
  622.   396               dbg gprint("Found un-initialized variable {%s} /n",cts);
  623.   397               gprint("Expression contained unquoted string\n");
  624. ************
  625. ************
  626. File GR_DISK1:[SRGHCXP.GC]A.A;34
  627.   404           dbg gprint("Adding left over operators  I = %d  op=%d\n",i,stk[i]);
  628.   405       gprint("Aborting expression parsing. \n");
  629. ******
  630. File GR_DISK1:[SRGHCXP.GC]B.B;26
  631.   404           dbg gprint("Adding left over operators  I = %d  op=%d \n",i,stk[i]);
  632.   405       gprint("Aborting expression parsing. \n");
  633. ************
  634. ************
  635. File GR_DISK1:[SRGHCXP.GC]A.A;34
  636.   409           dbg gprint("ADDING oper stack = %d  oper=%d\n",*nstk,stk[(*nstk)]);
  637.   410
  638.   411   ******************************
  639.   412   GR_DISK1:[SRGHCXP.GC]PTIME.C;20
  640.   413
  641. ******
  642. File GR_DISK1:[SRGHCXP.GC]B.B;26
  643.   409           dbg gprint("ADDING oper stack = %d  oper=%d \n",*nstk,stk[(*nstk)]);
  644.   410
  645.   411   ******************************
  646.   412   gr_disk1:[SRGHCXP.GC]PTIME.C;20
  647.   413
  648. ************
  649. ************
  650. File GR_DISK1:[SRGHCXP.GC]A.A;34
  651.   417   GR_DISK1:[SRGHCXP.GC]RUN.C;120
  652.   418
  653. ******
  654. File GR_DISK1:[SRGHCXP.GC]B.B;26
  655.   417   gr_disk1:[SRGHCXP.GC]RUN.C;120
  656.   418
  657. ************
  658. ************
  659. File GR_DISK1:[SRGHCXP.GC]A.A;34
  660.   441               gprint("Not a valid end %d \n",jj);
  661.   442   (what is FOPEN?)        gprint("FOPEN TEST MEASURE \n");
  662.   443           gprint("Fopen test completed **********\n");
  663. ******
  664. File GR_DISK1:[SRGHCXP.GC]B.B;26
  665.   441               gprint("Not a valid end %d \n",jj);
  666.   442           gprint("FOPEN TEST MEASURE \n");
  667.   443           gprint("Fopen test completed **********\n");
  668. ************
  669. ************
  670. File GR_DISK1:[SRGHCXP.GC]A.A;34
  671.   447           dbg gprint("%FOR   Setting line back to %d  nloop %d \n",*srclin,nloop);
  672.   448           dbg gprint("RLINE getxy %f %f \n",ox,oy);
  673.   449           dbg gprint("set sub command %d \n",(*(pcode+i)-500));
  674.   450               gprint("Not a valid set sub command {%d} i=%d\n",*(pcode+i),i);
  675.   451               if (t!=49) gprint("WRITE, PCODE ERROR, %d  cp %d plen %d\n",t,cp,plen);
  676.   452           gprint("Not a recognised command \n");
  677.   453           gprint("Too many end boxes \n");
  678. ******
  679. File GR_DISK1:[SRGHCXP.GC]B.B;26
  680.   447           dbg gprint("%FOR   Setting line back to %d  nloop %d \n ",*srclin,nloop);
  681.   448           dbg gprint("RLINE getxy %f %f \n",ox,oy);
  682.   449           dbg gprint("set sub command %d \n",(*(pcode+i)-500));
  683.   450               gprint("Not a valid set sub command {%d} i=%d \n",*(pcode+i),i);
  684.   451               if (t!=49) gprint("WRITE, PCODE ERROR, %d  cp %d plen %d\n",t,cp,plen);
  685.   452           gprint("Not a recognized command \n");
  686.   453           gprint("Too many end boxes \n");
  687. ************
  688. ************
  689. File GR_DISK1:[SRGHCXP.GC]A.A;34
  690.   456   GR_DISK1:[SRGHCXP.GC]SUB.C;28
  691.   457
  692.   458           gprint("idx is out of range \n");
  693.   459       dbg for (i=0;i<4;i++) gprint("STACK IN SUBCALL, (%d) = %f\n",i,*(pval+i));
  694.   460       if (*npm<sb[idx]->np) gprint("parameters in sub_call, not enough **\n");
  695. ******
  696. File GR_DISK1:[SRGHCXP.GC]B.B;26
  697.   456   gr_disk1:[SRGHCXP.GC]SUB.C;28
  698.   457
  699.   458           gprint("idx is out of range \n");
  700.   459       dbg for (i=0;i<4;i++) gprint("STACK IN SUBCALL, (%d) = %f \n",i,*(pval+i));
  701.   460       if (*npm<sb[idx]->np) gprint("parameters in sub_call, not enough **\n");
  702. ************
  703. ************
  704. File GR_DISK1:[SRGHCXP.GC]A.A;34
  705.   465       dbg for (i=0;i<=*npm;i++) gprint("STACK IN SUBCALL, (%d) = %f\n",i,*(pval+i));
  706.   466
  707.   467   ******************************
  708.   468   GR_DISK1:[SRGHCXP.GC]TEX.C;432
  709.   469
  710.   470   int text_gprint(long *in,int ilen);
  711.   471     dbg /* if (chr_code[c]>2) */ gprint("uchar %d, code %d  value %d\n",c,chr_code[c],chr_val[c]);
  712.   472           dbg gprint("==char width %d %f %f \n",d,chrwidth(d),w);
  713. ******
  714. File GR_DISK1:[SRGHCXP.GC]B.B;26
  715.   465       dbg for (i=0;i<=*npm;i++) gprint("STACK IN SUBCALL, (%d) = %f \n",i,*(pval+i));
  716.   466
  717.   467   ******************************
  718.   468   gr_disk1:[SRGHCXP.GC]TEX.C;432
  719.   469
  720.   470   int text_gprint(long *in,int ilen);
  721.   471     dbg /* if (chr_code[c]>2) */ gprint("uchar %d, code %d  value %d \n",c,chr_code[c],chr_val[c]);
  722.   472           dbg gprint("==char width %d %f %f \n",d,chrwidth(d),w);
  723. ************
  724. ************
  725. File GR_DISK1:[SRGHCXP.GC]A.A;34
  726.   476               gprint("Unrecognised control sequence {%s}\n",cmdstr);
  727.   477           gprint("Saving definitions\n");
  728. ******
  729. File GR_DISK1:[SRGHCXP.GC]B.B;26
  730.   476               gprint("Unrecognized control sequence {%s} \n",cmdstr);
  731.   477           gprint("Saving definitions\n");
  732. ************
  733. ************
  734. File GR_DISK1:[SRGHCXP.GC]A.A;34
  735.   484               dbg gprint("Call SET_GLUE  from %d, to %d\n",si,last_space);
  736.   485           dbg gprint("total stretch %f, shrink %f\n",totstretch,totshrink);
  737.   486               dbg gprint("Call SET_GLUE  from %d, to %d\n",si,last_space);
  738.   487           gprint("dud pcode in wrap pcode %d   i=%d\n",*(in+i),i);
  739.   488       dbg gprint("Exiting call to SET_GLUE  from %d, to %d\n",si,last_space);
  740.   489       dbg text_gprint(in,ilen);
  741. ******
  742. File GR_DISK1:[SRGHCXP.GC]B.B;26
  743.   484               dbg gprint("Call SET_GLUE  from %d, to %d \n",si,last_space);
  744.   485           dbg gprint("total stretch %f, shrink %f \n",totstretch,totshrink);
  745.   486               dbg gprint("Call SET_GLUE  from %d, to %d \n",si,last_space);
  746.   487           gprint("dud pcode in wrap pcode %d   i=%d \n",*(in+i),i);
  747.   488       dbg gprint("Exiting call to SET_GLUE  from %d, to %d \n",si,last_space);
  748.   489       dbg text_gprint(in,ilen);
  749. ************
  750. ************
  751. File GR_DISK1:[SRGHCXP.GC]A.A;34
  752.   526       if (fout==NULL) {gprint("Could not open inittex.ini file \n");
  753.   527   return;}
  754.   528
  755.   529   ******************************
  756.   530   GR_DISK1:[SRGHCXP.GC]TOKEN.C;193
  757.   531
  758.   532       gprint("Subscript out of range in tokenizer (use shorter lines)\n");
  759.   533
  760.   534   ******************************
  761.   535   GR_DISK1:[SRGHCXP.GC]VAR.C;50
  762.   536
  763. ******
  764. File GR_DISK1:[SRGHCXP.GC]B.B;26
  765.   526       if (fout==NULL) {gprint("Could not open inittex.ini file \n"); return;}
  766.   527
  767.   528   ******************************
  768.   529   gr_disk1:[SRGHCXP.GC]TOKEN.C;193
  769.   530
  770.   531       gprint("Subscript out of range in tokenizer (use shorter lines) \n");
  771.   532
  772.   533   ******************************
  773.   534   gr_disk1:[SRGHCXP.GC]VAR.C;50
  774.   535
  775. ************
  776. ************
  777. File GR_DISK1:[SRGHCXP.GC]A.A;34
  778.   546   GR_DISK1:[SRGHCXP.GC]VARARGS.C;3
  779.   547
  780. ******
  781. File GR_DISK1:[SRGHCXP.GC]B.B;26
  782.   545   gr_disk1:[SRGHCXP.GC]VARARGS.C;3
  783.   546
  784. ************
  785. ************
  786. File GR_DISK1:[SRGHCXP.GC]A.A;34
  787.   552
  788.   553   GR_DISK1:[SRGHCXP.GC]XEDT.C;1
  789.   554
  790.   555               gprint("Unable to open input file {%s} \n",input_file);
  791.   556       if (file_desc==-1) { gprint("Open glegle.tmp error \n"); return;}
  792.   557    /*gotoxy(5,9);gprint("negtab line=%d m=%d f=%d \n",tfy,move_pos,tfx);*/
  793.   558
  794. ******
  795. File GR_DISK1:[SRGHCXP.GC]B.B;26
  796.   551   gr_disk1:[SRGHCXP.GC]XEDT.C;1
  797.   552
  798.   553               gprint("Unable to open input file {%s} \n",input_file);
  799.   554       if (file_desc==-1) { gprint("Open glegle.tmp error \n");  return;}
  800.   555    /*gotoxy(5,9);gprint("negtab line=%d m=%d f=%d \n",tfy,move_pos,tfx);*/
  801. ************
  802.  
  803. Number of difference sections found: 60
  804. Number of difference records found: 194
  805.  
  806. DIFFERENCES /IGNORE=()/MERGED=1/OUTPUT=GR_DISK1:[SRGHCXP.GC]C.C;2-
  807.     GR_DISK1:[SRGHCXP.GC]A.A;34-
  808.     GR_DISK1:[SRGHCXP.GC]B.B;26
  809.