code-browser/F90Mapper/fd.c

/* $Id: fd.c,v 1.1.1.1 2002/09/20 19:47:31 adcroft Exp $ */

/*
 File-directory table routines
*/

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

#include "DD.h"
#include "FD.h"
#include "GLOBALS.h"

/*
 Set initial state of file-directory table
*/
fdInit()
{
 fdList = NULL;
 fdListHead = fdList;
 fdListTail = fdList;
}

/*
 Store directory, file and associated html source info.
 Info. is stored in table of form
   dirname1 file1 html
            file2 html
            file3 html
              :

   dirname2 filen html
            filem html
            fileo html
              :
  etc..,,
*/
fdAdd( srcDirName, srcFileName, sHtmlName )
char *srcDirName;
char *srcFileName;
char *sHtmlName;
{
 int nComp, nCompPrev;
 int nFd;
 /* For search file names */
 fdSTab *sfList, *sfListBefore, *sfListAfter;
 fdDTab *fdListAfter, *fdListBefore;

 fdList = fdListHead;
 fdListBefore = NULL;
 fdListAfter  = NULL;
 nFd    = 0;

 /* Search for the directory name                   */
 /* Insert new names in alphabetical order          */
 nComp = -1;
 while ( fdList != NULL ) {
  /* nComp +ve arg1 alphabetically before arg2
     nComp 0   arg1 == arg2
     nComp -ve arg1 alphabetically after arg2
  */
  nComp = -strcmp( srcDirName, (fdList->dir).name );
  ++nFd;
  if ( nComp >= 0 ) {
   fdListAfter = fdList;
   break;
  }
  fdListBefore = fdList;
  fdList = fdList->next;
 }

 /* No match for directory name */
 if ( nComp != 0 ) {
  /* Create an entry */
  fdList = (fdDTab *) malloc(sizeof(fdDTab));
  fdList->next  = fdListAfter;
  fdList->prev  = fdListBefore;
  fdList->sList = NULL;
  (fdList->dir).name = strdup(srcDirName);
  /* Insert into list */
  if ( fdListHead == NULL ) {
   /* First entry */
   fdListHead = fdList; fdListTail = fdList;
  } 
  if ( fdListAfter == fdListHead ) {
   /* Adding at head */
   fdListHead = fdList;
  }
  /* Inserts between existing entries */
  if ( fdList->next != NULL ) fdList->next->prev = fdList;
  if ( fdList->prev != NULL ) fdList->prev->next = fdList;
 }

 /* Search through file names paired with directory */
 /* Insert new names in alphabetical order          */
 sfList = fdList->sList;
 sfListBefore = NULL;
 sfListAfter  = NULL;
 nFd       = 0;
 nComp     = -1;
 while ( sfList != NULL ) {
  /* nComp +ve arg1 alphabetically before arg2
     nComp 0   arg1 == arg2
     nComp -ve arg1 alphabetically after arg2
  */
  nComp = -strcmp( srcFileName, (sfList->fileNam).name );
  if ( nComp >= 0 ) {
   sfListAfter  = sfList;
   break;
  }
  ++nFd;
  sfListBefore = sfList;
  sfList = sfList->next;
 }
 /* No match for file name */
 if ( nComp != 0 ) {
  /* Create an entry */
  sfList = (fdSTab *) malloc(sizeof(fdSTab));
  sfList->fileNam.name  = strdup(srcFileName);
  sfList->fileNam.hname = strdup(sHtmlName);
  sfList->prev  = sfListBefore;
  sfList->next  = sfListAfter;
  if ( fdList->sList == NULL ) {
   /* First file for this directory */
   fdList->sList = sfList;
  }
  if ( fdList->sList == sfList->next ) {
   /* Added to head of list */
   fdList->sList = sfList;
  }
  if ( sfList->prev != NULL ) { sfList->prev->next = sfList; }
  if ( sfList->next != NULL ) { sfList->next->prev = sfList; }
 }

}

/*
 Print fd tables.
*/
fdPrint()
{
 int nComp;
 int nFd;
 fdSTab *sfList, *sfListTail;

 fdList = fdListHead;
 nFd    = 0;

 /* Search for the directory name */
 while ( fdList != NULL ) {
  printf("FD %s",fdList->dir.name);
  /* Search through file names paired with directory */
  sfList = fdList->sList;
  sfListTail = sfList;
  nFd    = 0;
  while ( sfList != NULL ) {
   printf(", %s<%s>",sfList->fileNam.name,sfList->fileNam.hname);
   sfList = sfList->next;
  }
  printf("\n");
  fdList = fdList->next;
 }

}

/*
 Write fd directories.
*/
fdDirList(FILE *o)
{
 int nComp;
 int nFd;
 fdSTab *sfList, *sfListTail;
 char subURL[MAXPATHNAM];

 fdList = fdListHead;
 nFd    = 0;

 /* List directory names to DFMenu */
 while ( fdList != NULL ) {
  ++nFd;
  sprintf(subURL,"%s/%s_dir%d%s target=codeBrowserWindow",
   rootDir,SFDICT,nFd,HTMLSUF);
  html_entryli(o,fdList->dir.name,subURL,"h4");
  fdList = fdList->next;
 }

}

/*
 Write fd entry by letter
*/
fdFlistAlpha(FILE *o)
{
 int nComp;
 int nFd;
 fdSTab *sfList, *sfListTail;
 char subURL[MAXPATHNAM];
 char let1[2];
 char lolet[27] = "abcdefghijklmnopqrstuvwxyz";
 char uplet[27] = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
 int i;
 int f1, f0;

 fdList = fdListHead;
 nFd    = 0;
 let1[0]=' ';
 let1[1]='\0';
 f0=0;

 /* Make links for alphabetic file tables */
 for (i=0;i<27;++i) {
  fdList = fdListHead;
  f1=0;
  while ( fdList != NULL ) {
   sfList = fdList->sList;
   while ( sfList != NULL ) {
    if ( ( sfList->fileNam.name[0] == lolet[i] ||
           sfList->fileNam.name[0] == uplet[i] ) &&
         f1 == 0 ) {
     if ( f0 == 0 ) { html_li(o); f0=1; html_hn(o,"h4"); }
     let1[0]=uplet[i];
     sprintf(subURL,"%s/%s_pref%c%s target=codeBrowserWindow",
      rootDir,SFDICT,uplet[i],HTMLSUF);
     html_entry(o,let1,subURL);fprintf(o,", ");
     f1=1;  
    }
    sfList = sfList->next;
   }
   fdList = fdList->next;
  }
 }
 if ( f0 == 1 ) { html_ehn(o,"h4"); html_eli(o); }
}

fdTab() 
{
FILE *allTabfd, *htout;
char allTabName[MAXPATHNAM];
 fdSTab *sfList, *sfListTail;
 int dNo;
 ddRecord rec, *searchResult;

 fdList = fdListHead;

 /* Single list */
 sprintf(allTabName,"%s/%s%s",rootDir,SFDICT,HTMLSUF);
 allTabfd=fopen(allTabName,"w");
 htout=allTabfd;

 html_start(htout);
  html_FlistTabStart(htout);
  html_FlistColHeader(htout);
  while ( fdList != NULL ) {
   sfList = fdList->sList;
   while ( sfList != NULL ) {
    rec.name = sfList->fileNam.name; rec.hrefEntry      = NULL;
    rec.textEntry      = NULL; rec.unitsEntry     = NULL;
    rec.footNotesEntry = NULL; rec.active         = 1;
    searchResult       = ddFind(&rec); 
    if ( searchResult != NULL ) {
     html_FlistColRecord(htout,
     fdList->dir.name,
     sfList->fileNam.name,
     sfList->fileNam.hname,
     searchResult->textEntry);
    } else {
     html_FlistColRecord(htout,
     fdList->dir.name,
     sfList->fileNam.name,
     sfList->fileNam.hname,
     " ");    /* NO DEFINITION */
    }
    sfList = sfList->next;
   }
   fdList = fdList->next;
  }
  html_FlistTabStop(htout);
 html_end(htout);
 fprintf(htout,"\n");         

 fclose(allTabfd);

 /* Directory at a time tables */
 fdList = fdListHead;
 dNo=0;
 while ( fdList != NULL ) {
  ++dNo;
  sprintf(allTabName,"%s/%s_dir%d%s",rootDir,SFDICT,dNo,HTMLSUF);
  allTabfd=fopen(allTabName,"w");
  htout=allTabfd;
  html_start(htout);
  html_FlistTabStart(htout);
  html_FlistColHeader(htout);
  sfList = fdList->sList;
  while ( sfList != NULL ) {
   rec.name = sfList->fileNam.name; rec.hrefEntry      = NULL;
   rec.textEntry      = NULL; rec.unitsEntry     = NULL;
   rec.footNotesEntry = NULL; rec.active         = 1;
   searchResult       = ddFind(&rec); 
   if ( searchResult != NULL ) {
    html_FlistColRecord(htout,
    fdList->dir.name,
    sfList->fileNam.name,
    sfList->fileNam.hname,
    searchResult->textEntry);
   } else {
    html_FlistColRecord(htout,
    fdList->dir.name,
    sfList->fileNam.name,
    sfList->fileNam.hname,
     " ");   /* NO DEFINITION */
   }
   sfList = sfList->next;
  }
  html_FlistTabStop(htout);
  html_end(htout);
  fprintf(htout,"\n");         
  fclose(allTabfd);
  fdList = fdList->next;
 }

 /* Alphabetic tables         */
 fdFlistAlphaTab();

}

/*
 Write fd entry by letter
*/
fdFlistAlphaTab()
{
 int nComp; int nFd;
 fdSTab *sfList, *sfListTail;
 char subURL[MAXPATHNAM];
 char let1[2];
 char lolet[27] = "abcdefghijklmnopqrstuvwxyz";
 char uplet[27] = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
 int i; int f1, f0;
 FILE *htout;
 ddRecord rec, *searchResult;

 fdList = fdListHead;
 nFd    = 0;
 let1[0]=' ';
 let1[1]='\0';
 f0=0;

 /* Make alphabetic file tables */
 for (i=0;i<27;++i) {
  fdList = fdListHead;
  f1=0;
  while ( fdList != NULL ) {
   sfList = fdList->sList;
   while ( sfList != NULL ) {
    if ( sfList->fileNam.name[0] == lolet[i] ||
         sfList->fileNam.name[0] == uplet[i] )
    {
     if ( f1 == 0 ) {
      sprintf(subURL,"%s/%s_pref%c%s",rootDir,SFDICT,uplet[i],HTMLSUF);
      htout=fopen(subURL,"w");
      f1=1;  
      html_start(htout); html_FlistTabStart(htout); html_FlistColHeader(htout);
     }
     rec.name = sfList->fileNam.name; rec.hrefEntry      = NULL;
     rec.textEntry      = NULL; rec.unitsEntry     = NULL;
     rec.footNotesEntry = NULL; rec.active         = 1;
     searchResult       = ddFind(&rec); 

     if ( searchResult != NULL ) {
      html_FlistColRecord(htout,
       fdList->dir.name,
       sfList->fileNam.name,
       sfList->fileNam.hname,
       searchResult->textEntry);
     } else {
      html_FlistColRecord(htout,
       fdList->dir.name,
       sfList->fileNam.name,
       sfList->fileNam.hname,
       " "); /*  NO DEFINITION */

     }
    }
    sfList = sfList->next;
   }
   fdList = fdList->next;
  }
  if ( f1 == 1 ) {
   html_FlistTabStop(htout); html_end(htout); fprintf(htout,"\n");         
   fclose(htout);
  }
 }
}
1	/* $Id: fd.c,v 1.1.1.1 2002/09/20 19:47:31 adcroft Exp $ */
2
3	/*
4	File-directory table routines
5	*/
6
7	#include <stdlib.h>
8	#include <stdio.h>
9	#include <string.h>
10	#include <ctype.h>
11
12	#include "DD.h"
13	#include "FD.h"
14	#include "GLOBALS.h"
15
16	/*
17	Set initial state of file-directory table
18	*/
19	fdInit()
20	{
21	fdList = NULL;
22	fdListHead = fdList;
23	fdListTail = fdList;
24	}
25
26	/*
27	Store directory, file and associated html source info.
28	Info. is stored in table of form
29	dirname1 file1 html
30	file2 html
31	file3 html
32	:
33
34	dirname2 filen html
35	filem html
36	fileo html
37	:
38	etc..,,
39	*/
40	fdAdd( srcDirName, srcFileName, sHtmlName )
41	char *srcDirName;
42	char *srcFileName;
43	char *sHtmlName;
44	{
45	int nComp, nCompPrev;
46	int nFd;
47	/* For search file names */
48	fdSTab sfList, sfListBefore, *sfListAfter;
49	fdDTab fdListAfter, fdListBefore;
50
51	fdList = fdListHead;
52	fdListBefore = NULL;
53	fdListAfter = NULL;
54	nFd = 0;
55
56	/* Search for the directory name */
57	/* Insert new names in alphabetical order */
58	nComp = -1;
59	while ( fdList != NULL ) {
60	/* nComp +ve arg1 alphabetically before arg2
61	nComp 0 arg1 == arg2
62	nComp -ve arg1 alphabetically after arg2
63	*/
64	nComp = -strcmp( srcDirName, (fdList->dir).name );
65	++nFd;
66	if ( nComp >= 0 ) {
67	fdListAfter = fdList;
68	break;
69	}
70	fdListBefore = fdList;
71	fdList = fdList->next;
72	}
73
74	/* No match for directory name */
75	if ( nComp != 0 ) {
76	/* Create an entry */
77	fdList = (fdDTab *) malloc(sizeof(fdDTab));
78	fdList->next = fdListAfter;
79	fdList->prev = fdListBefore;
80	fdList->sList = NULL;
81	(fdList->dir).name = strdup(srcDirName);
82	/* Insert into list */
83	if ( fdListHead == NULL ) {
84	/* First entry */
85	fdListHead = fdList; fdListTail = fdList;
86	}
87	if ( fdListAfter == fdListHead ) {
88	/* Adding at head */
89	fdListHead = fdList;
90	}
91	/* Inserts between existing entries */
92	if ( fdList->next != NULL ) fdList->next->prev = fdList;
93	if ( fdList->prev != NULL ) fdList->prev->next = fdList;
94	}
95
96	/* Search through file names paired with directory */
97	/* Insert new names in alphabetical order */
98	sfList = fdList->sList;
99	sfListBefore = NULL;
100	sfListAfter = NULL;
101	nFd = 0;
102	nComp = -1;
103	while ( sfList != NULL ) {
104	/* nComp +ve arg1 alphabetically before arg2
105	nComp 0 arg1 == arg2
106	nComp -ve arg1 alphabetically after arg2
107	*/
108	nComp = -strcmp( srcFileName, (sfList->fileNam).name );
109	if ( nComp >= 0 ) {
110	sfListAfter = sfList;
111	break;
112	}
113	++nFd;
114	sfListBefore = sfList;
115	sfList = sfList->next;
116	}
117	/* No match for file name */
118	if ( nComp != 0 ) {
119	/* Create an entry */
120	sfList = (fdSTab *) malloc(sizeof(fdSTab));
121	sfList->fileNam.name = strdup(srcFileName);
122	sfList->fileNam.hname = strdup(sHtmlName);
123	sfList->prev = sfListBefore;
124	sfList->next = sfListAfter;
125	if ( fdList->sList == NULL ) {
126	/* First file for this directory */
127	fdList->sList = sfList;
128	}
129	if ( fdList->sList == sfList->next ) {
130	/* Added to head of list */
131	fdList->sList = sfList;
132	}
133	if ( sfList->prev != NULL ) { sfList->prev->next = sfList; }
134	if ( sfList->next != NULL ) { sfList->next->prev = sfList; }
135	}
136
137	}
138
139	/*
140	Print fd tables.
141	*/
142	fdPrint()
143	{
144	int nComp;
145	int nFd;
146	fdSTab sfList, sfListTail;
147
148	fdList = fdListHead;
149	nFd = 0;
150
151	/* Search for the directory name */
152	while ( fdList != NULL ) {
153	printf("FD %s",fdList->dir.name);
154	/* Search through file names paired with directory */
155	sfList = fdList->sList;
156	sfListTail = sfList;
157	nFd = 0;
158	while ( sfList != NULL ) {
159	printf(", %s<%s>",sfList->fileNam.name,sfList->fileNam.hname);
160	sfList = sfList->next;
161	}
162	printf("\n");
163	fdList = fdList->next;
164	}
165
166	}
167
168	/*
169	Write fd directories.
170	*/
171	fdDirList(FILE *o)
172	{
173	int nComp;
174	int nFd;
175	fdSTab sfList, sfListTail;
176	char subURL[MAXPATHNAM];
177
178	fdList = fdListHead;
179	nFd = 0;
180
181	/* List directory names to DFMenu */
182	while ( fdList != NULL ) {
183	++nFd;
184	sprintf(subURL,"%s/%s_dir%d%s target=codeBrowserWindow",
185	rootDir,SFDICT,nFd,HTMLSUF);
186	html_entryli(o,fdList->dir.name,subURL,"h4");
187	fdList = fdList->next;
188	}
189
190	}
191
192	/*
193	Write fd entry by letter
194	*/
195	fdFlistAlpha(FILE *o)
196	{
197	int nComp;
198	int nFd;
199	fdSTab sfList, sfListTail;
200	char subURL[MAXPATHNAM];
201	char let1[2];
202	char lolet[27] = "abcdefghijklmnopqrstuvwxyz";
203	char uplet[27] = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
204	int i;
205	int f1, f0;
206
207	fdList = fdListHead;
208	nFd = 0;
209	let1[0]=' ';
210	let1[1]='\0';
211	f0=0;
212
213	/* Make links for alphabetic file tables */
214	for (i=0;i<27;++i) {
215	fdList = fdListHead;
216	f1=0;
217	while ( fdList != NULL ) {
218	sfList = fdList->sList;
219	while ( sfList != NULL ) {
220	if ( ( sfList->fileNam.name[0] == lolet[i] \|\|
221	sfList->fileNam.name[0] == uplet[i] ) &&
222	f1 == 0 ) {
223	if ( f0 == 0 ) { html_li(o); f0=1; html_hn(o,"h4"); }
224	let1[0]=uplet[i];
225	sprintf(subURL,"%s/%s_pref%c%s target=codeBrowserWindow",
226	rootDir,SFDICT,uplet[i],HTMLSUF);
227	html_entry(o,let1,subURL);fprintf(o,", ");
228	f1=1;
229	}
230	sfList = sfList->next;
231	}
232	fdList = fdList->next;
233	}
234	}
235	if ( f0 == 1 ) { html_ehn(o,"h4"); html_eli(o); }
236	}
237
238	fdTab()
239	{
240	FILE allTabfd, htout;
241	char allTabName[MAXPATHNAM];
242	fdSTab sfList, sfListTail;
243	int dNo;
244	ddRecord rec, *searchResult;
245
246	fdList = fdListHead;
247
248	/* Single list */
249	sprintf(allTabName,"%s/%s%s",rootDir,SFDICT,HTMLSUF);
250	allTabfd=fopen(allTabName,"w");
251	htout=allTabfd;
252
253	html_start(htout);
254	html_FlistTabStart(htout);
255	html_FlistColHeader(htout);
256	while ( fdList != NULL ) {
257	sfList = fdList->sList;
258	while ( sfList != NULL ) {
259	rec.name = sfList->fileNam.name; rec.hrefEntry = NULL;
260	rec.textEntry = NULL; rec.unitsEntry = NULL;
261	rec.footNotesEntry = NULL; rec.active = 1;
262	searchResult = ddFind(&rec);
263	if ( searchResult != NULL ) {
264	html_FlistColRecord(htout,
265	fdList->dir.name,
266	sfList->fileNam.name,
267	sfList->fileNam.hname,
268	searchResult->textEntry);
269	} else {
270	html_FlistColRecord(htout,
271	fdList->dir.name,
272	sfList->fileNam.name,
273	sfList->fileNam.hname,
274	" "); /* NO DEFINITION */
275	}
276	sfList = sfList->next;
277	}
278	fdList = fdList->next;
279	}
280	html_FlistTabStop(htout);
281	html_end(htout);
282	fprintf(htout,"\n");
283
284	fclose(allTabfd);
285
286	/* Directory at a time tables */
287	fdList = fdListHead;
288	dNo=0;
289	while ( fdList != NULL ) {
290	++dNo;
291	sprintf(allTabName,"%s/%s_dir%d%s",rootDir,SFDICT,dNo,HTMLSUF);
292	allTabfd=fopen(allTabName,"w");
293	htout=allTabfd;
294	html_start(htout);
295	html_FlistTabStart(htout);
296	html_FlistColHeader(htout);
297	sfList = fdList->sList;
298	while ( sfList != NULL ) {
299	rec.name = sfList->fileNam.name; rec.hrefEntry = NULL;
300	rec.textEntry = NULL; rec.unitsEntry = NULL;
301	rec.footNotesEntry = NULL; rec.active = 1;
302	searchResult = ddFind(&rec);
303	if ( searchResult != NULL ) {
304	html_FlistColRecord(htout,
305	fdList->dir.name,
306	sfList->fileNam.name,
307	sfList->fileNam.hname,
308	searchResult->textEntry);
309	} else {
310	html_FlistColRecord(htout,
311	fdList->dir.name,
312	sfList->fileNam.name,
313	sfList->fileNam.hname,
314	" "); /* NO DEFINITION */
315	}
316	sfList = sfList->next;
317	}
318	html_FlistTabStop(htout);
319	html_end(htout);
320	fprintf(htout,"\n");
321	fclose(allTabfd);
322	fdList = fdList->next;
323	}
324
325	/* Alphabetic tables */
326	fdFlistAlphaTab();
327
328	}
329
330	/*
331	Write fd entry by letter
332	*/
333	fdFlistAlphaTab()
334	{
335	int nComp; int nFd;
336	fdSTab sfList, sfListTail;
337	char subURL[MAXPATHNAM];
338	char let1[2];
339	char lolet[27] = "abcdefghijklmnopqrstuvwxyz";
340	char uplet[27] = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
341	int i; int f1, f0;
342	FILE *htout;
343	ddRecord rec, *searchResult;
344
345	fdList = fdListHead;
346	nFd = 0;
347	let1[0]=' ';
348	let1[1]='\0';
349	f0=0;
350
351	/* Make alphabetic file tables */
352	for (i=0;i<27;++i) {
353	fdList = fdListHead;
354	f1=0;
355	while ( fdList != NULL ) {
356	sfList = fdList->sList;
357	while ( sfList != NULL ) {
358	if ( sfList->fileNam.name[0] == lolet[i] \|\|
359	sfList->fileNam.name[0] == uplet[i] )
360	{
361	if ( f1 == 0 ) {
362	sprintf(subURL,"%s/%s_pref%c%s",rootDir,SFDICT,uplet[i],HTMLSUF);
363	htout=fopen(subURL,"w");
364	f1=1;
365	html_start(htout); html_FlistTabStart(htout); html_FlistColHeader(htout);
366	}
367	rec.name = sfList->fileNam.name; rec.hrefEntry = NULL;
368	rec.textEntry = NULL; rec.unitsEntry = NULL;
369	rec.footNotesEntry = NULL; rec.active = 1;
370	searchResult = ddFind(&rec);
371
372	if ( searchResult != NULL ) {
373	html_FlistColRecord(htout,
374	fdList->dir.name,
375	sfList->fileNam.name,
376	sfList->fileNam.hname,
377	searchResult->textEntry);
378	} else {
379	html_FlistColRecord(htout,
380	fdList->dir.name,
381	sfList->fileNam.name,
382	sfList->fileNam.hname,
383	" "); /* NO DEFINITION */
384
385	}
386	}
387	sfList = sfList->next;
388	}
389	fdList = fdList->next;
390	}
391	if ( f1 == 1 ) {
392	html_FlistTabStop(htout); html_end(htout); fprintf(htout,"\n");
393	fclose(htout);
394	}
395	}
396	}