2 #include <string.h> /* for strlen */
4 /* typedef enum { False, True } Boolean; */
6 #define SKIP /* Algol-68 lives */
14 int thisline = 0, lastline = 0, linestart = 0;
19 fprintf(stderr,"usage: %s sourcefile",argv[0]);
23 if((srcf=fopen(argv[1],"r")) == NULL)
25 fprintf(stderr,"can't read %s\n",argv[1]);
31 while(scanf("%u",&line)!=EOF)
35 while(thisline < line && !feof(srcf))
37 linestart+=strlen(linebuff);
38 fgets(linebuff,1023,srcf);
45 for(chpos = linebuff; *chpos != '=' && *chpos != '\n' && *chpos != '\0'; ++chpos)
51 printf("%c%d,%d\n",0177,line,linestart);