-#This file was created by <wiensk> Tue Feb 23 22:25:52 1999
-#LyX 1.0 (C) 1995-1999 Matthias Ettrich and the LyX Team
-\lyxformat 2.15
-\textclass literate-article
-\language default
+#LyX 2.1 created this file. For more info see http://www.lyx.org/
+\lyxformat 448
+\begin_document
+\begin_header
+\textclass article
+\use_default_options false
+\begin_modules
+noweb
+\end_modules
+\maintain_unincluded_children false
+\language english
+\language_package default
\inputencoding default
-\fontscheme default
+\fontencoding global
+\font_roman default
+\font_sans default
+\font_typewriter default
+\font_math auto
+\font_default_family default
+\use_non_tex_fonts false
+\font_sc false
+\font_osf false
+\font_sf_scale 100
+\font_tt_scale 100
\graphics default
+\default_output_format default
+\output_sync 0
+\bibtex_command default
+\index_command default
\paperfontsize default
-\spacing single
-\papersize Default
-\paperpackage a4
-\use_geometry 0
-\use_amsmath 0
+\spacing single
+\use_hyperref false
+\papersize default
+\use_geometry false
+\use_package amsmath 0
+\use_package amssymb 0
+\use_package esint 0
+\use_package mathdots 1
+\use_package mathtools 0
+\use_package mhchem 1
+\use_package undertilde 0
+\cite_engine basic
+\cite_engine_type numerical
+\biblio_style plain
+\use_bibtopic false
+\use_indices false
\paperorientation portrait
+\suppress_date false
+\justification true
+\use_refstyle 0
+\index Index
+\shortcut idx
+\color #008000
+\end_index
\secnumdepth 3
\tocdepth 3
\paragraph_separation indent
-\defskip medskip
+\paragraph_indentation default
\quotes_language english
-\quotes_times 2
\papercolumns 1
\papersides 1
\paperpagestyle default
+\tracking_changes false
+\output_changes false
+\html_math_output 0
+\html_css_as_file 0
+\html_be_strict false
+\end_header
-\layout Title
+\begin_body
+\begin_layout Title
LyX and Literate Programming
-\newline
+\begin_inset Newline newline
+\end_inset
+
An example program
-\layout Author
+\end_layout
+\begin_layout Author
Edmar Wienskoski Jr.
-\newline
+\begin_inset Newline newline
+\end_inset
+
edmar-w-jr@technologist.com
-\layout Date
+\begin_inset Foot
+status collapsed
+
+\begin_layout Plain Layout
+Modified by Bernard Michael Hurley bernardh@westherts.ac.uk ---- Don't blame
+ Edmar for any errors that have crept in!
+\end_layout
+
+\end_inset
+
+
+\end_layout
+\begin_layout Abstract
-\latex latex
+\series bold
+Note:
+\series default
+ This example program is provided for educational use only.
+ The functionality in this C program has been superceded by the equivalent
+ Python code in
+\emph on
+examples/listerrors.lyx
+\emph default
+ which should be installed in the LyX scripts directory.
+\end_layout
-\backslash
+\begin_layout Date
+\begin_inset ERT
+status collapsed
+
+\begin_layout Plain Layout
+
+
+\backslash
today
-\layout Standard
+\end_layout
+\end_inset
-\begin_inset LatexCommand \tableofcontents
-\end_inset
+\end_layout
+\begin_layout Standard
+\begin_inset CommandInset toc
+LatexCommand tableofcontents
-\layout Section
+\end_inset
+
+\end_layout
+
+\begin_layout Section
Introduction
-\layout Standard
+\end_layout
+\begin_layout Standard
After typesetting a document, LyX scans the LaTeX log file looking for errors.
For each error found, the line number is obtained and a error box is displayed
in the LyX screen at that position.
-\layout Standard
+\end_layout
+\begin_layout Standard
To use this feature to view compilation errors while working with literate
documents, we need a program that filters the compilation errors and puts
them in a format suitable for LyX reading it.
-\layout Standard
+\end_layout
+\begin_layout Standard
In this document we present a filter that recognizes compilation error messages
from noweb, gnu C, and the IBM C compiler (xlc).
-\layout Standard
+\end_layout
+\begin_layout Standard
The filter is required to read from standard input, parse for error messages
and copy the error messages to the standard output.
- During the output process, the filter must present the error messages in a
- format that LyX can interpret, currently, the LaTeX error message format.
- Of course, nothing will prevent future LyX releases from being able to read
- other formats as well (like gcc error messages for example).
- This mechanism is necessary to fully explore the literate programming
- tool's capabilities.
-\layout Section
-
+ During the output process, the filter must present the error messages in
+ a format that LyX can interpret, currently, the LaTeX error message format.
+ Of course, nothing will prevent future LyX releases from being able to
+ read other formats as well (like gcc error messages for example).
+ This mechanism is necessary to fully explore the literate programming tool's
+ capabilities.
+\end_layout
+
+\begin_layout Section
Algorithm
-\layout Scrap
+\end_layout
+\begin_layout Chunk
<<Function bodies>>=
-\newline
-int
-\newline
-main (int argc, char **argv)
-\newline
-{
-\newline
-
-\protected_separator
- if (argc == 2) {
-\newline
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- switch (argv[1][0]) {
-\newline
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- case 'n':
-\newline
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- <<Scan input for noweb error messages>>
-\newline
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- break;
-\newline
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- case 'x':
-\newline
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- <<Scan input for xlc error messages>>
-\newline
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- break;
-\newline
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- case 'a':
-\newline
+\end_layout
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-<<AIX system using both noweb and xlc>>
-\newline
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- break;
-\newline
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- case 's':
-\newline
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- case 'b':
-\newline
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- <<Solaris and Linux systems using both noweb and gcc>>
-\newline
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
+\begin_layout Chunk
+int
+\end_layout
-\protected_separator
+\begin_layout Chunk
+main (int argc, char **argv)
+\end_layout
-\protected_separator
- break;
-\newline
+\begin_layout Chunk
+{
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ if (argc == 2) {
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ switch (argv[1][0]) {
+\end_layout
-\protected_separator
- case 'g':
-\newline
+\begin_layout Chunk
+ case 'n':
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ <<Scan input for noweb error messages>>
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ break;
+\end_layout
-\protected_separator
- default:
-\newline
+\begin_layout Chunk
+ case 'x':
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ <<Scan input for xlc error messages>>
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ break;
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ case 'a':
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ <<AIX system using both noweb and xlc>>
+\end_layout
-\protected_separator
- <<Scan input for gcc error messages>>
-\newline
+\begin_layout Chunk
+ break;
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ case 's':
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ case 'b':
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ <<Solaris and Linux systems using both noweb and gcc>>
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ break;
+\end_layout
-\protected_separator
- break;
-\newline
+\begin_layout Chunk
+ case 'g':
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ default:
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ <<Scan input for gcc error messages>>
+\end_layout
-\protected_separator
- }
-\newline
+\begin_layout Chunk
+ break;
+\end_layout
-\protected_separator
- } else {
-\newline
+\begin_layout Chunk
+ }
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ } else {
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ <<Scan input for gcc error messages>>
+\end_layout
-\protected_separator
- <<Scan input for gcc error messages>>
-\newline
+\begin_layout Chunk
+ }
+\end_layout
-\protected_separator
- }
-\newline
+\begin_layout Chunk
}
-\newline
+\end_layout
+
+\begin_layout Chunk
@
-\layout Scrap
+\end_layout
+\begin_layout Chunk
<<Function prototypes>>=
-\newline
+\end_layout
+
+\begin_layout Chunk
int main (int argc, char **argv);
-\newline
+\end_layout
+
+\begin_layout Chunk
@
-\layout Section
+\end_layout
+\begin_layout Section
Data Structures
-\layout Standard
+\end_layout
+\begin_layout Standard
We resort to some global variables to allow access from several different
routines.
These are the buffer and related pointers used during the parse of the
input.
-\layout Scrap
+\end_layout
+\begin_layout Chunk
<<Global variables>>=
-\newline
-char
-\protected_separator
+\end_layout
-\protected_separator
+\begin_layout Chunk
+char buffer[200][200];
+\begin_inset Newline newline
+\end_inset
-\protected_separator
- buffer[200][200];
-\newline
-int
-\protected_separator
-
-\protected_separator
-
-\protected_separator
+int last_buf_line;
+\begin_inset Newline newline
+\end_inset
-\protected_separator
- last_buf_line;
-\newline
-int
-\protected_separator
-
-\protected_separator
+int last_err_line;
+\begin_inset Newline newline
+\end_inset
-\protected_separator
+int err_line;
+\begin_inset Newline newline
+\end_inset
-\protected_separator
- last_err_line;
-\newline
-int
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- err_line;
-\newline
@
-\layout Section
+\end_layout
+\begin_layout Section
The output format
-\layout Standard
+\end_layout
-The output format mimics the LaTeX error messages format.
+\begin_layout Standard
+The output format mimics the TeX error messages format.
This function prints a number of lines residing in the global variable
-\family typewriter
+\family typewriter
buffer
-\family default
+\family default
, a program name and line number.
There is no special requirement on the input strings, they can be anything.
-\layout Scrap
+\begin_inset Foot
+status collapsed
+
+\begin_layout Plain Layout
+This function has been slightly changed from EW's original to make scanning
+ a bit easier with LaTeX::scanLogFile().
+ The test has been added because LyX can crash if empty lines are allowed
+ here --- I can't figure out why! --- BMH
+\end_layout
+
+\end_inset
+
+\end_layout
+
+\begin_layout Chunk
<<Function bodies>>=
-\newline
+\end_layout
+
+\begin_layout Chunk
void
-\newline
+\end_layout
+
+\begin_layout Chunk
output_error (int buf_size, int error_line, char *tool)
-\newline
-{
-\newline
+\end_layout
-\protected_separator
- int
-\protected_separator
+\begin_layout Chunk
+{
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ int i;
+\end_layout
-\protected_separator
+\begin_layout Chunk
+
+\end_layout
-\protected_separator
- i;
-\newline
+\begin_layout Chunk
+ fprintf(stdout, "! Build Error: ==> %s ==>
+\backslash
+n", tool);
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ fprintf(stdout, " ...
+\backslash
+n
+\backslash
+nl.%d ...
+\backslash
+n", error_line);
+\end_layout
-\newline
+\begin_layout Chunk
+
+\end_layout
-\protected_separator
- fprintf(stdout, "! Build Error: ==> %s ==>
-\backslash
-n", tool);
-\newline
+\begin_layout Chunk
+ for (i=0; i<buf_size; i++)
+\end_layout
-\protected_separator
- for (i=0; i<buf_size; i++)
-\newline
+\begin_layout Chunk
+ if (strlen(buffer[i]) != 0)
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ fprintf(stdout, "%s", buffer[i]);
+\end_layout
-\protected_separator
+\begin_layout Chunk
+
+\end_layout
-\protected_separator
- fprintf(stdout, "%s", buffer[i]);
-\newline
+\begin_layout Chunk
+ fprintf(stdout, "
+\backslash
+n");
+\end_layout
-\protected_separator
- fprintf(stdout, " ...
-\backslash
-n
-\backslash
-nl.%d ...
-\backslash
-n
-\backslash
-n", error_line);
-\newline
+\begin_layout Chunk
}
-\newline
+\end_layout
+
+\begin_layout Chunk
@
-\layout Scrap
+\end_layout
+\begin_layout Chunk
<<Function prototypes>>=
-\newline
+\end_layout
+
+\begin_layout Chunk
void output_error (int buf_size, int error_line, char *tool);
-\newline
+\end_layout
+
+\begin_layout Chunk
@
-\layout Section
+\end_layout
+\begin_layout Section
Functions Implementation
-\layout Standard
+\end_layout
+\begin_layout Standard
Both noweave and notangle routines, always output one single line for each
error found, thus to scan the buffer for noweb error messages is enough
to exam one input line at a time.
Note that the noweb software does not provide a line error number, so all
errors boxes related to noweb messages will be displayed at the beginning
of the file.
-\layout Scrap
+\end_layout
+\begin_layout Chunk
<<Scan input for noweb error messages>>=
-\newline
-{
-\newline
-
-\protected_separator
- last_buf_line = 0;
-\newline
-
-\protected_separator
- while (fgets(buffer[0], 200, stdin)) {
-\newline
+\end_layout
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- if (noweb_try(0))
-\newline
+\begin_layout Chunk
+{
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ last_buf_line = 0;
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ while (fgets(buffer[0], 200, stdin)) {
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ if (noweb_try(0))
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ output_error(1, err_line, "noweb");
+\end_layout
-\protected_separator
- output_error(1, 0, "noweb");
-\newline
+\begin_layout Chunk
+ }
+\end_layout
-\protected_separator
- }
-\newline
+\begin_layout Chunk
}
-\newline
+\end_layout
+
+\begin_layout Chunk
@
-\layout Standard
+\end_layout
+\begin_layout Standard
The examination itself is very inefficient.
Unfortunately noweb doesn't have any characteristic that would help to
identify one of its error messages.
The solution is to collect all possible output messages in an array of
strings, and turn the examination process into a linear search in this
array.
-\layout Scrap
+\end_layout
-<<Global variables>>=
-\newline
-char *noweb_msgs[] = {
-\newline
+\begin_layout Chunk
-\protected_separator
- "couldn't open file",
-\newline
+\end_layout
-\protected_separator
- "couldn't open temporary file",
-\newline
-
-\protected_separator
- "error writing temporary file",
-\newline
-
-\protected_separator
- "ill-formed option",
-\newline
+\begin_layout Chunk
+<<Global variables>>=
+\end_layout
-\protected_separator
- "unknown option",
-\newline
+\begin_layout Chunk
+char *noweb_msgs[] = {
+\end_layout
-\protected_separator
- "Bad format sequence",
-\newline
+\begin_layout Chunk
+ "couldn't open file",
+\end_layout
-\protected_separator
- "Can't open output file",
-\newline
+\begin_layout Chunk
+ "couldn't open temporary file",
+\end_layout
-\protected_separator
- "Can't open temporary file",
-\newline
+\begin_layout Chunk
+ "error writing temporary file",
+\end_layout
-\protected_separator
- "Capacity exceeded:",
-\newline
+\begin_layout Chunk
+ "ill-formed option",
+\end_layout
-\protected_separator
- "Ignoring unknown option -",
-\newline
+\begin_layout Chunk
+ "unknown option",
+\end_layout
-\protected_separator
- "This can't happen:",
-\newline
+\begin_layout Chunk
+ "Bad format sequence",
+\end_layout
-\protected_separator
- "non-numeric line number in"
-\newline
-};
-\newline
-@
-\layout Standard
+\begin_layout Chunk
+ "Can't open output file",
+\end_layout
-A noweb error message can be any string that contains a matching pair of
- < <
-\protected_separator
+\begin_layout Chunk
+ "Can't open temporary file",
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ "Capacity exceeded:",
+\end_layout
-\protected_separator
-> >, or any of the above strings.
-\layout Scrap
+\begin_layout Chunk
+ "Ignoring unknown option -",
+\end_layout
-<<Function bodies>>=
-\newline
-int
-\newline
-noweb_try (int buf_line)
-\newline
-{
-\newline
+\begin_layout Chunk
+ "This can't happen:",
+\end_layout
-\protected_separator
- char
-\protected_separator
+\begin_layout Chunk
+ "non-numeric line number in"
+\end_layout
-\protected_separator
-
-\protected_separator
- *s, *b;
-\newline
-
-\protected_separator
- int
-\protected_separator
-
-\protected_separator
+\begin_layout Chunk
+};
+\end_layout
-\protected_separator
+\begin_layout Chunk
-\protected_separator
- i;
-\newline
+\end_layout
-\protected_separator
+\begin_layout Chunk
+char *noweb_msgs_mimic_gcc[] = {
+\end_layout
-\newline
+\begin_layout Chunk
+ ": unescaped << in documentation chunk"
+\end_layout
-\protected_separator
- b = buffer[buf_line];
-\newline
+\begin_layout Chunk
+};
+\end_layout
-\protected_separator
- s = strstr(b, "<<");
-\newline
+\begin_layout Chunk
+@
+\end_layout
-\protected_separator
- if (s != NULL) {
-\newline
+\begin_layout Standard
+A noweb error message can be any string that contains a matching pair of
+ < <
+\begin_inset space ~
+\end_inset
-\protected_separator
-\protected_separator
+\begin_inset space ~
+\end_inset
-\protected_separator
- s = strstr(s+2, ">>");
-\newline
-\protected_separator
+\begin_inset space ~
+\end_inset
-\protected_separator
+> >, or any of the above strings
+\end_layout
-\protected_separator
- if (s != NULL)
-\newline
+\begin_layout Chunk
-\protected_separator
+\end_layout
-\protected_separator
+\begin_layout Chunk
+<<Function bodies>>=
+\begin_inset Newline newline
+\end_inset
-\protected_separator
+int
+\begin_inset Newline newline
+\end_inset
-\protected_separator
+noweb_try (int buf_line)
+\begin_inset Newline newline
+\end_inset
-\protected_separator
- return 1;
-\newline
+{
+\begin_inset Newline newline
+\end_inset
-\protected_separator
- } else {
-\newline
+ char *s, *t, *b;
+\begin_inset Newline newline
+\end_inset
-\protected_separator
+ int i;
+\begin_inset Newline newline
+\end_inset
-\protected_separator
-\protected_separator
- for (i=0; i<12; i++) {
-\newline
+\begin_inset Newline newline
+\end_inset
-\protected_separator
+ b = buffer[buf_line];
+\begin_inset Newline newline
+\end_inset
-\protected_separator
+ err_line = 0;
+\begin_inset Newline newline
+\end_inset
-\protected_separator
-\protected_separator
+\begin_inset Newline newline
+\end_inset
-\protected_separator
- s = strstr (b, noweb_msgs[i]);
-\newline
+ for (i=0; i<1; i++) {
+\begin_inset Newline newline
+\end_inset
-\protected_separator
+ s = (char *)strstr (b, noweb_msgs_mimic_gcc[i]);
+\begin_inset Newline newline
+\end_inset
-\protected_separator
+ if (s != NULL) {
+\begin_inset Newline newline
+\end_inset
-\protected_separator
+ t = (char *)strchr(buffer[buf_line], ':');
+\begin_inset Newline newline
+\end_inset
-\protected_separator
+ err_line = atoi(t+1);
+\begin_inset Newline newline
+\end_inset
-\protected_separator
- if (s != NULL)
-\newline
+ t = buffer[buf_line];
+\begin_inset Newline newline
+\end_inset
-\protected_separator
+ ++s;
+\begin_inset Newline newline
+\end_inset
-\protected_separator
+ while (*(t++) = *(s++));
+\begin_inset Newline newline
+\end_inset
-\protected_separator
+ return 1;
+\begin_inset Newline newline
+\end_inset
-\protected_separator
+ }
+\begin_inset Newline newline
+\end_inset
-\protected_separator
+ }
+\begin_inset Newline newline
+\end_inset
-\protected_separator
+ s = (char *)strstr(b, "<<");
+\begin_inset Newline newline
+\end_inset
-\protected_separator
+ if (s != NULL) {
+\begin_inset Newline newline
+\end_inset
-\protected_separator
-break;
-\newline
+ s = (char *)strstr(s+2, ">>");
+\begin_inset Newline newline
+\end_inset
-\protected_separator
+ if (s != NULL) {
+\begin_inset Newline newline
+\end_inset
-\protected_separator
+ return 1;
+\begin_inset Newline newline
+\end_inset
-\protected_separator
- }
-\newline
+ }
+\begin_inset Newline newline
+\end_inset
-\protected_separator
+ } else {
+\begin_inset Newline newline
+\end_inset
-\protected_separator
+ for (i = 0; i < 12; ++i) {
+\begin_inset Newline newline
+\end_inset
-\protected_separator
- if (s != NULL)
-\newline
+ s = (char *)strstr (b, noweb_msgs[i]);
+\begin_inset Newline newline
+\end_inset
-\protected_separator
+ if (s != NULL) {
+\begin_inset Newline newline
+\end_inset
-\protected_separator
+ return 1;
+\begin_inset Newline newline
+\end_inset
-\protected_separator
+ }
+\begin_inset Newline newline
+\end_inset
-\protected_separator
+ }
+\begin_inset Newline newline
+\end_inset
-\protected_separator
- return 1;
-\newline
+ }
+\begin_inset Newline newline
+\end_inset
-\protected_separator
- }
-\newline
+ return 0;
+\begin_inset Newline newline
+\end_inset
-\protected_separator
- return 0;
-\newline
}
-\newline
+\begin_inset Newline newline
+\end_inset
+
@
-\layout Scrap
+\end_layout
+\begin_layout Chunk
<<Function prototypes>>=
-\newline
+\end_layout
+
+\begin_layout Chunk
int noweb_try (int buf_line);
-\newline
+\end_layout
+
+\begin_layout Chunk
@
-\layout Standard
+\end_layout
+\begin_layout Standard
The xlc compiler always outputs one single line for each error found, thus
to scan the buffer for xlc error messages it is enough to exam one input
line at a time.
-\layout Scrap
+\end_layout
-<<Scan input for xlc error messages>>=
-\protected_separator
+\begin_layout Chunk
+<<Scan input for xlc error messages>>=
+\end_layout
-\newline
+\begin_layout Chunk
{
-\newline
-
-\protected_separator
- last_buf_line = 0;
-\newline
-
-\protected_separator
- while (fgets(buffer[last_buf_line], 200, stdin)) {
-\newline
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ last_buf_line = 0;
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ while (fgets(buffer[last_buf_line], 200, stdin)) {
+\end_layout
-\protected_separator
- if (xlc_try(0))
-\newline
+\begin_layout Chunk
+ if (xlc_try(0))
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ output_error(1, err_line, "xlc");
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ }
+\end_layout
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- output_error(1, err_line, "xlc");
-\newline
-
-\protected_separator
- }
-\newline
+\begin_layout Chunk
}
-\newline
+\end_layout
+
+\begin_layout Chunk
@
-\layout Standard
+\end_layout
+\begin_layout Standard
A xlc error message is easy to identify.
Every error message starts with a quoted string with no spaces, a comma,
a space, the word
\begin_inset Quotes eld
-\end_inset
+\end_inset
line
\begin_inset Quotes erd
-\end_inset
+\end_inset
, a space, and some variable text.
The following routine tests if a given buffer line matches this criteria:
-\layout Scrap
+\end_layout
-<<Function bodies>>=
-\newline
-int
-\newline
-xlc_try (int buf_line)
-\newline
-{
-\newline
+\begin_layout Chunk
+
+\end_layout
-\protected_separator
- char
-\protected_separator
+\begin_layout Chunk
-\protected_separator
+\end_layout
-\protected_separator
- *s, *t;
-\newline
+\begin_layout Chunk
+<<Function bodies>>=
+\end_layout
-\protected_separator
+\begin_layout Chunk
+int
+\end_layout
-\newline
+\begin_layout Chunk
+xlc_try (int buf_line)
+\end_layout
-\protected_separator
- t = buffer[buf_line];
-\newline
+\begin_layout Chunk
+{
+\end_layout
-\protected_separator
- s = t+1;
-\newline
+\begin_layout Chunk
+ char *s, *t;
+\end_layout
-\protected_separator
- while (*s != '"' && *s != ' ' && *s != '
-\backslash
-0')
-\newline
+\begin_layout Chunk
+
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ t = buffer[buf_line];
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ s = t+1;
+\end_layout
-\protected_separator
- s++;
-\newline
+\begin_layout Chunk
+ while (*s != '"' && *s != ' ' && *s != '
+\backslash
+0')
+\end_layout
-\protected_separator
- if (*t != '"' || *s != '"' || strncmp(s+1, ", line ", 7) != 0)
-\newline
+\begin_layout Chunk
+ s++;
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ if (*t != '"' || *s != '"' || strncmp(s+1, ", line ", 7) != 0)
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ return 0;
+\end_layout
-\protected_separator
- return 0;
-\newline
+\begin_layout Chunk
+ s += 8;
+\end_layout
-\protected_separator
- s += 8;
-\newline
+\begin_layout Chunk
+ err_line = atoi(s);
+\end_layout
-\protected_separator
- err_line = atoi(s);
-\newline
+\begin_layout Chunk
+ return 1;
+\end_layout
-\protected_separator
- return 1;
-\newline
+\begin_layout Chunk
}
-\newline
+\end_layout
+
+\begin_layout Chunk
@
-\layout Scrap
+\end_layout
+\begin_layout Chunk
<<Function prototypes>>=
-\newline
+\end_layout
+
+\begin_layout Chunk
int xlc_try (int buf_line);
-\newline
+\end_layout
+
+\begin_layout Chunk
@
-\layout Standard
+\end_layout
+\begin_layout Standard
The gcc compiler error messages are more complicated to scan.
Each error can span more than one line in the buffer.
The good news is that every buffer line on each error has the same pattern,
At the time they differ, all the accumulated lines, except the last one,
will belong to one single error message, which now can be output-ed to
LyX.
-\layout Standard
+\end_layout
+\begin_layout Standard
Every gcc error message contains a string with no space followed by a
\begin_inset Quotes eld
-\end_inset
+\end_inset
:
\begin_inset Quotes eld
-\end_inset
+\end_inset
.
If the next character is a space, then this line is a header of a error
where the error was found.
Otherwise, the next thing is a integer number followed by another
\begin_inset Quotes eld
-\end_inset
+\end_inset
:
\begin_inset Quotes eld
-\end_inset
+\end_inset
.
-\layout Scrap
+\end_layout
+\begin_layout Chunk
<<Scan input for gcc error messages>>=
-\newline
-{
-\newline
-
-\protected_separator
- char
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- *s, *t;
-\newline
-
-\protected_separator
-
-\newline
-
-\protected_separator
- last_buf_line = 0;
-\newline
-
-\protected_separator
- while (fgets(buffer[last_buf_line], 200, stdin)) {
-\newline
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- /****** Skip lines until I find an error */
-\newline
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- s = strpbrk(buffer[last_buf_line], " :");
-\newline
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- if (s == NULL || *s == ' ')
-\newline
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- continue; /* No gcc error found here */
-\newline
+\end_layout
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- do {
-\newline
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-<<gcc error message criteria is to find a "...:999:" or a "...: ">>
-\newline
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- /****** OK It is an error message, get line number */
-\newline
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- err_line = atoi(s+1);
-\newline
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- if (last_err_line == 0 || last_err_line == err_line) {
-\newline
+\begin_layout Chunk
+{
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ char *s, *t;
+\end_layout
-\protected_separator
+\begin_layout Chunk
+
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ last_buf_line = 0;
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ while (fgets(buffer[last_buf_line], 200, stdin)) {
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ /****** Skip lines until I find an error */
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ s = (char *)strpbrk(buffer[last_buf_line], " :");
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ if (s == NULL || *s == ' ')
+\end_layout
-\protected_separator
-last_err_line = err_line;
-\newline
+\begin_layout Chunk
+ continue; /* No gcc error found here */
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ do {
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ <<gcc error message criteria is to find a "...:999:" or a "...: ">>
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ /****** OK It is an error message, get line number */
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ err_line = atoi(s+1);
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ if (last_err_line == 0 || last_err_line == err_line) {
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ last_err_line = err_line;
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ continue; /* It's either a header or a continuation, don't output
+ yet */
+\end_layout
-\protected_separator
-continue; /* It's either a header or a continuation, don't output yet */
-\newline
+\begin_layout Chunk
+ }
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ /****** Completed the scan of one error message, output it to LyX
+ */
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ discharge_buffer(1);
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ break;
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ } while (fgets(buffer[last_buf_line], 200, stdin));
+\end_layout
-\protected_separator
- }
-\newline
+\begin_layout Chunk
+ }
+\end_layout
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- /****** Completed the scan of one error message, output it to LyX */
-\newline
+\begin_layout Chunk
+ /****** EOF completes the scan of whatever was being scanned */
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ discharge_buffer(0);
+\end_layout
-\protected_separator
+\begin_layout Chunk
+}
+\end_layout
-\protected_separator
+\begin_layout Chunk
+@
+\end_layout
-\protected_separator
+\begin_layout Chunk
+<<gcc error message criteria is to find a "...:999:" or a "...: ">>=
+\end_layout
-\protected_separator
- discharge_buffer(1);
-\newline
+\begin_layout Chunk
+/****** Search first ":" in the error number */
+\end_layout
-\protected_separator
+\begin_layout Chunk
+s = (char *)strpbrk(buffer[last_buf_line], " :");
+\end_layout
-\protected_separator
+\begin_layout Chunk
+last_buf_line++;
+\end_layout
-\protected_separator
+\begin_layout Chunk
+if (s == NULL || *s == ' ')
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ <<No gcc error found here, but it might terminate the scanning of a previous
+ one>>
+\end_layout
-\protected_separator
- break;
-\newline
+\begin_layout Chunk
+/****** Search second ":" in the error number */
+\end_layout
-\protected_separator
+\begin_layout Chunk
+t = (char *)strpbrk(s+1, " :");
+\begin_inset Newline newline
+\end_inset
-\protected_separator
+if (t == NULL || *t == ' ')
+\begin_inset Newline newline
+\end_inset
-\protected_separator
- } while (fgets(buffer[last_buf_line], 200, stdin));
-\newline
+ <<No gcc error found here, but it might terminate the scanning of a previous
+ one>>
+\begin_inset Newline newline
+\end_inset
-\protected_separator
- }
-\newline
+/****** Verify if is all digits between ":" */
+\begin_inset Newline newline
+\end_inset
-\protected_separator
+if (t != s+1+strspn(s+1, "0123456789"))
+\begin_inset Newline newline
+\end_inset
-\protected_separator
-/****** EOF completes the scan of whatever was being scanned */
-\newline
+ <<No gcc error found here, but it might terminate the scanning of a previous
+ one>>
+\begin_inset Newline newline
+\end_inset
-\protected_separator
- discharge_buffer(0);
-\newline
-}
-\newline
@
-\layout Scrap
+\end_layout
-<<gcc error message criteria is to find a "...:999:" or a "...: ">>=
-\newline
-/****** Search first ":" in the error number */
-\newline
-s = strpbrk(buffer[last_buf_line], " :");
-\newline
-last_buf_line++;
-\newline
-if (s == NULL || *s == ' ')
-\newline
+\begin_layout Chunk
-\protected_separator
- <<No gcc error found here, but it might terminate the scanning of a previous
- one>>
-\newline
-/****** Search second ":" in the error number */
-\newline
-t = strpbrk(s+1, " :");
-\newline
-if (t == NULL || *t == ' ')
-\newline
+\end_layout
-\protected_separator
- <<No gcc error found here, but it might terminate the scanning of a previous
- one>>
-\newline
-/****** Verify if is all digits between ":" */
-\newline
-if (t != s+1+strspn(s+1, "0123456789"))
-\newline
+\begin_layout Chunk
-\protected_separator
- <<No gcc error found here, but it might terminate the scanning of a previous
- one>>
-\newline
-@
-\layout Scrap
+\end_layout
+\begin_layout Chunk
<<No gcc error found here, but it might terminate the scanning of a previous
one>>=
-\newline
-{
-\newline
-
-\protected_separator
+\end_layout
-\protected_separator
-err_line = 0;
-\newline
+\begin_layout Chunk
+{
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ err_line = 0;
+\end_layout
-\protected_separator
-discharge_buffer(1);
-\newline
+\begin_layout Chunk
+ discharge_buffer(1);
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ continue;
+\end_layout
-\protected_separator
-continue;
-\newline
+\begin_layout Chunk
}
-\newline
+\end_layout
+
+\begin_layout Chunk
@
-\layout Standard
+\end_layout
+\begin_layout Standard
As we mentioned, when the scan of one gcc error message is completed everything
in the buffer except the last line is one single error message.
But if the scan terminates with a EOF or through finding one line that
does not match the gcc error message criteria, then there is no
\begin_inset Quotes eld
-\end_inset
+\end_inset
last line
\begin_inset Quotes erd
-\end_inset
+\end_inset
in the buffer to be concerned with.
In those cases we empty the buffer completely.
-\layout Scrap
-
-<<Function bodies>>=
-\newline
-void
-\newline
-discharge_buffer (int save_last)
-\newline
-{
-\newline
-
-\protected_separator
- if (last_err_line != 0) {
-\newline
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- if (save_last != 0) {
-\newline
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- output_error(last_buf_line-1, last_err_line, "gcc");
-\newline
+\end_layout
-\protected_separator
+\begin_layout Chunk
-\protected_separator
+\end_layout
-\protected_separator
+\begin_layout Chunk
-\protected_separator
+\end_layout
-\protected_separator
- strcpy (buffer[0], buffer[last_buf_line-1]);
-\newline
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- last_err_line = err_line;
-\newline
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- last_buf_line = 1;
-\newline
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- } else {
-\newline
+\begin_layout Chunk
+<<Function bodies>>=
+\end_layout
-\protected_separator
+\begin_layout Chunk
+void
+\end_layout
-\protected_separator
+\begin_layout Chunk
+discharge_buffer (int save_last)
+\end_layout
-\protected_separator
+\begin_layout Chunk
+{
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ if (last_err_line != 0) {
+\end_layout
-\protected_separator
- output_error (last_buf_line, last_err_line, "gcc");
-\newline
+\begin_layout Chunk
+ clean_gcc_messages();
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ if (save_last != 0) {
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ output_error(last_buf_line-1, last_err_line, "gcc");
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ strcpy (buffer[0], buffer[last_buf_line-1]);
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ last_err_line = err_line;
+\end_layout
-\protected_separator
- last_err_line = 0;
-\newline
+\begin_layout Chunk
+ last_buf_line = 1;
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ } else {
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ ++last_buf_line;
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ clean_gcc_messages();
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ output_error(last_buf_line-1, last_err_line, "gcc");
+\end_layout
-\protected_separator
- last_buf_line = 0;
-\newline
+\begin_layout Chunk
+ last_err_line = 0;
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ last_buf_line = 0;
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ }
+\end_layout
-\protected_separator
- }
-\newline
+\begin_layout Chunk
+ }
+\end_layout
-\protected_separator
- }
-\newline
+\begin_layout Chunk
}
-\newline
-@
-\layout Scrap
+\end_layout
-<<Function prototypes>>=
-\newline
-void discharge_buffer (int save_last);
-\newline
+\begin_layout Chunk
@
-\layout Standard
-
-To combine the scan of noweb error messages and xlc error messages is very
- simple.
- We just try each one for every input line:
-\layout Scrap
-
-<<AIX system using both noweb and xlc>>=
-\newline
-{
-\newline
-
-\protected_separator
- last_buf_line = 0;
-\newline
-
-\protected_separator
- while (fgets(buffer[0], 200, stdin)) {
-\newline
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- if (noweb_try(0))
-\newline
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
+\end_layout
-\protected_separator
-
-\protected_separator
- output_error(1, 0, "noweb");
-\newline
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- else if (xlc_try(0))
-\newline
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
+\begin_layout Chunk
+<<Function prototypes>>=
+\end_layout
-\protected_separator
- output_error(1, err_line, "xlc");
-\newline
+\begin_layout Chunk
+void discharge_buffer (int save_last);
+\end_layout
-\protected_separator
- }
-\newline
-}
-\newline
+\begin_layout Chunk
@
-\layout Standard
-
-To combine the scan of noweb error messages and gcc error messages is simple
- if we realize that it is not possible to find a noweb error message
- in the middle of a gcc error message.
- So we just repeat the gcc procedure and test for noweb error messages in
- the beginning of the scan:
-\layout Scrap
-
-<<Solaris and Linux systems using both noweb and gcc>>=
-\newline
-{
-\newline
-
-\protected_separator
- char
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- *s, *t;
-\newline
-
-\protected_separator
-
-\newline
-
-\protected_separator
- last_buf_line = 0;
-\newline
-
-\protected_separator
- while (fgets(buffer[last_buf_line], 200, stdin)) {
-\newline
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- /****** Skip lines until I find an error */
-\newline
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- if (last_buf_line == 0 && noweb_try(0)) {
-\newline
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
+\end_layout
-\protected_separator
- output_error(1, 0, "noweb");
-\newline
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\protected_separator
+\begin_layout Standard
+The next function
+\begin_inset Quotes eld
+\end_inset
-\protected_separator
- continue;
-\newline
+cleans
+\begin_inset Quotes erd
+\end_inset
-\protected_separator
+ superfluous information from gcc messages, namely the name of the noweb
+ file and the line number of the Error.
+\begin_inset Foot
+status collapsed
-\protected_separator
+\begin_layout Plain Layout
+More could be done.
+ For instance, some way of distinguishing between gcc Errors and Warnings
+ should be devised.
+\end_layout
-\protected_separator
- }
-\newline
+\end_inset
-\protected_separator
-\protected_separator
+\end_layout
-\protected_separator
- s = strpbrk(buffer[last_buf_line], " :");
-\newline
+\begin_layout Chunk
+<<Function bodies>>=
+\end_layout
-\protected_separator
+\begin_layout Chunk
+void
+\end_layout
-\protected_separator
+\begin_layout Chunk
+clean_gcc_messages ()
+\end_layout
-\protected_separator
- if (s == NULL || *s == ' ')
-\newline
+\begin_layout Chunk
+{
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ int index;
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ char search [30];
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ char *tail, *head;
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ int search_len = sprintf(search, ".nw:%d:", last_err_line);
+\end_layout
-\protected_separator
- continue; /* No gcc error found here */
-\newline
+\begin_layout Chunk
+
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ for (index = 0; index < last_buf_line-1; index++) {
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ tail = (char *)strstr (buffer[index], search);
+\end_layout
-\protected_separator
- do {
-\newline
+\begin_layout Chunk
+ if ( tail == NULL) {
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ tail = (char *) strstr (buffer[index], ".nw:");
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ if (tail) {
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ tail += 4;
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ }
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ } else {
+\end_layout
-\protected_separator
-<<gcc error message criteria is to find a "...:999:" or a "...: ">>
-\newline
+\begin_layout Chunk
+ tail += search_len;
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ }
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ if (tail != NULL) {
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ head = buffer[index];
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ while (*(head++) = *(tail++));
+\end_layout
-\protected_separator
- /****** OK It is an error, get line number */
-\newline
+\begin_layout Chunk
+ }
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ }
+\end_layout
-\protected_separator
+\begin_layout Chunk
+}
+\end_layout
-\protected_separator
+\begin_layout Chunk
+@
+\end_layout
-\protected_separator
+\begin_layout Chunk
+<<Function prototypes>>=
+\end_layout
-\protected_separator
- err_line = atoi(s+1);
-\newline
+\begin_layout Chunk
+void clean_gcc_messages ();
+\end_layout
-\protected_separator
+\begin_layout Chunk
+@
+\end_layout
-\protected_separator
+\begin_layout Standard
+To combine the scan of noweb error messages and xlc error messages is very
+ simple.
+ We just try each one for every input line:
+\end_layout
-\protected_separator
+\begin_layout Chunk
+<<AIX system using both noweb and xlc>>=
+\end_layout
-\protected_separator
+\begin_layout Chunk
+{
+\end_layout
-\protected_separator
- if (last_err_line == 0 || last_err_line == err_line) {
-\newline
+\begin_layout Chunk
+ last_buf_line = 0;
+\begin_inset Newline newline
+\end_inset
-\protected_separator
+ while (fgets(buffer[0], 200, stdin)) {
+\begin_inset Newline newline
+\end_inset
-\protected_separator
+ if (noweb_try(0))
+\begin_inset Newline newline
+\end_inset
-\protected_separator
+ output_error(1, err_line, "noweb");
+\begin_inset Newline newline
+\end_inset
-\protected_separator
+ else if (xlc_try(0))
+\begin_inset Newline newline
+\end_inset
-\protected_separator
+ output_error(1, err_line, "xlc");
+\begin_inset Newline newline
+\end_inset
-\protected_separator
+ }
+\begin_inset Newline newline
+\end_inset
-\protected_separator
+}
+\begin_inset Newline newline
+\end_inset
-\protected_separator
-last_err_line = err_line;
-\newline
+@
+\end_layout
-\protected_separator
+\begin_layout Standard
+To combine the scan of noweb error messages and gcc error messages is simple
+ if we realize that it is not possible to find a noweb error message in
+ the middle of a gcc error message.
+ So we just repeat the gcc procedure and test for noweb error messages in
+ the beginning of the scan:
+\end_layout
-\protected_separator
+\begin_layout Chunk
+<<Solaris and Linux systems using both noweb and gcc>>=
+\end_layout
-\protected_separator
+\begin_layout Chunk
+{
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ char *s, *t;
+\end_layout
-\protected_separator
+\begin_layout Chunk
+
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ last_buf_line = 0;
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ while (fgets(buffer[last_buf_line], 200, stdin)) {
+\end_layout
-\protected_separator
-continue; /* It's either a header or a continuation, don't output yet */
-\newline
+\begin_layout Chunk
+ /****** Skip lines until I find an error */
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ if (last_buf_line == 0 && noweb_try(0)) {
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ output_error(1, err_line, "noweb");
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ continue;
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ }
+\end_layout
-\protected_separator
- }
-\newline
+\begin_layout Chunk
+ s = (char *)strpbrk(buffer[last_buf_line], " :");
+\end_layout
-\protected_separator
-
-\protected_separator
-
-\protected_separator
- /****** Completed the scan of one error message, output it to LyX */
-\newline
+\begin_layout Chunk
+ if (s == NULL || *s == ' ')
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ continue; /* No gcc error found here */
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ do {
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ <<gcc error message criteria is to find a "...:999:" or a "...: ">>
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ /****** OK It is an error, get line number */
+\end_layout
-\protected_separator
- discharge_buffer(1);
-\newline
+\begin_layout Chunk
+ err_line = atoi(s+1);
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ if (last_err_line == 0 || last_err_line == err_line) {
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ last_err_line = err_line;
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ continue; /* It's either a header or a continuation, don't output
+ yet */
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ }
+\end_layout
-\protected_separator
- break;
-\newline
+\begin_layout Chunk
+ /****** Completed the scan of one error message, output it to LyX
+ */
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ discharge_buffer(1);
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ break;
+\end_layout
-\protected_separator
- } while (fgets(buffer[last_buf_line], 200, stdin));
-\newline
+\begin_layout Chunk
+ } while (fgets(buffer[last_buf_line], 200, stdin));
+\end_layout
-\protected_separator
- }
-\newline
+\begin_layout Chunk
+ }
+\end_layout
-\protected_separator
+\begin_layout Chunk
+ /****** EOF completes the scan of whatever was being scanned */
+\end_layout
-\protected_separator
-/****** EOF completes the scan of whatever was being scanned */
-\newline
+\begin_layout Chunk
+ discharge_buffer(0);
+\end_layout
-\protected_separator
- discharge_buffer(0);
-\newline
+\begin_layout Chunk
}
-\newline
+\end_layout
+
+\begin_layout Chunk
@
-\layout Section
+\end_layout
+\begin_layout Section
Wrapping the code into a file
-\layout Scrap
+\end_layout
+\begin_layout Chunk
<<listerrors.c>>=
-\newline
+\end_layout
+
+\begin_layout Chunk
#include <stdio.h>
-\newline
-#include <strings.h>
-\protected_separator
-
-\protected_separator
-
-\protected_separator
-
-\newline
+\end_layout
-\protected_separator
+\begin_layout Chunk
+#include <strings.h>
+\end_layout
-\newline
+\begin_layout Chunk
+
+\end_layout
+
+\begin_layout Chunk
<<Global variables>>
-\newline
+\end_layout
+
+\begin_layout Chunk
<<Function prototypes>>
-\newline
+\end_layout
+
+\begin_layout Chunk
<<Function bodies>>
-\newline
+\end_layout
+
+\begin_layout Chunk
@
-\layout Standard
+\end_layout
+\begin_layout Standard
To build this program, we want to add the
\begin_inset Quotes eld
-\end_inset
+\end_inset
-L
\begin_inset Quotes erd
-\end_inset
+\end_inset
option in the tangle command to force gdb to load the file
-\family typewriter
+\family typewriter
Literate.nw
-\family default
+\family default
instead of
-\family typewriter
+\family typewriter
listerrors.c
-\family default
+\family default
.
In accordance with this, we pass the
\begin_inset Quotes eld
-\end_inset
+\end_inset
-g
\begin_inset Quotes erd
-\end_inset
+\end_inset
option to gcc.
-\layout Scrap
+\end_layout
+\begin_layout Chunk
<<build-script>>=
-\newline
-#!/usr/local/bin/bash
-\newline
-notangle -L -Rlisterrors.c Literate.nw > listerrors.c
-\newline
+\end_layout
+
+\begin_layout Chunk
+#!/bin/sh
+\end_layout
+
+\begin_layout Chunk
+if [ -z "$NOWEB_SOURCE" ]; then NOWEB_SOURCE=Literate.nw; fi
+\end_layout
+
+\begin_layout Chunk
+if [ -z "$NOWEB_OUTPUT_DIR" ]; then NOWEB_OUTPUT_DIR=.; fi
+\end_layout
+
+\begin_layout Chunk
+notangle -L -Rlisterrors.c ${NOWEB_SOURCE} > ${NOWEB_OUTPUT_DIR}/listerrors.c
+\end_layout
+
+\begin_layout Chunk
gcc -g -o listerrors listerrors.c
-\newline
+\end_layout
+
+\begin_layout Chunk
@
-\layout Standard
+\end_layout
+\begin_layout Standard
This project can be tangled and compiled from LyX if you set
-\family typewriter
+\family typewriter
-\backslash
+\backslash
build_command
-\family default
- to call a generic script that always extracts a scrap named
-\family typewriter
+\family default
+ to call a generic script that always extracts a chunk named
+\family typewriter
build-script
-\family default
+\family default
and executes it.
Here is a example of such generic script:
-\layout LyX-Code
+\end_layout
+\begin_layout LyX-Code
#!/bin/sh
-\newline
-notangle -Rbuild-script $1 | sh
-\the_end
-
-
+\begin_inset Newline newline
+\end_inset
+notangle -Rbuild-script $1 | env NOWEB_SOURCE=$1 NOWEB_OUTPUT_DIR=$r sh
+\end_layout
+\begin_layout LyX-Code
+\end_layout
+\end_body
+\end_document
projects / lyx.git / blobdiff