code-browser/F90Mapper/fd.c

/* $Id: $ */

/*
 File-directory table routines
*/

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