← Back to branch summary

~ubuntu-branches/ubuntu/karmic/scilab/karmic

« back to all changes in this revision

Viewing changes to macros/Tomake.c

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2002-03-21 16:57:43 UTC
  • Revision ID: james.westby@ubuntu.com-20020321165743-e9mv12c1tb1plztg
Tags: upstream-2.6
Import upstream version 2.6

Show diffs side-by-side

added added

removed removed

Lines of Context:
macros/Tomake.c
 
1
#include <stdio.h>
 
2
#include <string.h>
 
3
 
 
4
void StringConvrt(str)
 
5
     char *str;
 
6
{
 
7
  char *str1;
 
8
  str1 = str;
 
9
  while ( *str != 0) 
 
10
    {
 
11
      if ( *str == '\\' ) 
 
12
        {
 
13
          switch ( *(str+1)) 
 
14
            {
 
15
            case 'n' : *str1 = '\n' ; str1++; str += 2;break;
 
16
            case 't' : *str1 = '\t' ; str1++; str += 2;break;
 
17
            case 'r' : *str1 = '\r' ; str1++; str += 2;break;
 
18
            default : *str1 = *str; str1++; str++;break;
 
19
            }
 
20
        }
 
21
      else 
 
22
        {
 
23
          *str1 = *str; str1++; str++;
 
24
        }
 
25
    }
 
26
  *str1 = '\0';
 
27
}
 
28
 
 
29
/* 
 
30
   Util      Xfilename1   Xfilename2    Xfilename3   Xfilename4 Xfilename5
 
31
               format       list1         list2         list3     writeto
 
32
====>writeto:
 
33
list1(1)list2(1)list3(1)
 
34
list1(2)list2(2)list3(2)
 
35
using format
 
36
............
 
37
etc
 
38
 
 
39
*/
 
40
 
 
41
int main(argc,argv)
 
42
     int argc;char *argv[];
 
43
{
 
44
  char fname[256],nam1[256],nam2[256],nam3[256],nam4[256];
 
45
  char format[256]; 
 
46
  FILE *filesce,*filei1,*filei2,*filei3,*filei4;
 
47
 
 
48
  int narg,i;  narg=argc-1;
 
49
 
 
50
  /*            filesce=writeto     */
 
51
  strcpy(fname,argv[narg]); fname[strlen(fname)]= '\0';
 
52
  /** we use fname +1 since msvc makefile temporary filenames 
 
53
      begin whith extra @ char **/
 
54
 
 
55
  if (NULL == (filei1=fopen(fname+1,"r")))  return 1;
 
56
  fscanf(filei1,"%s",nam1); fclose(filei1);
 
57
  if (NULL == (filesce = fopen (nam1, "a"))) return 1;
 
58
 
 
59
  /*   ***********  Xfilename1 = format*************   */
 
60
  strcpy(fname,argv[1]);  fname[strlen(fname)]= '\0';
 
61
  if (NULL == (filei1=fopen(fname+1,"r"))) return 1;
 
62
  i=0;format[0]='\0';
 
63
  while (1)
 
64
    {
 
65
      if ( fscanf(filei1,"%s",nam1) == EOF ) break;
 
66
      if (i>0) strcat(format," "); 
 
67
      i++;
 
68
      strcat(format,nam1);
 
69
    }
 
70
  /*  printf("FORMAT=%s\n",format); */
 
71
  fclose(filei1);
 
72
  StringConvrt(format);
 
73
  /*                  lists                */
 
74
  if (narg==3) {
 
75
  strcpy(fname,argv[2]); fname[strlen(fname)]= '\0';
 
76
  if (NULL == (filei1=fopen(fname+1,"r")))    return 1;
 
77
 
 
78
  while (1)
 
79
    {
 
80
      if ( fscanf(filei1,"%s",nam1) == EOF ) break;
 
81
      fprintf(filesce,format,nam1);
 
82
    }
 
83
  fclose(filei1);
 
84
  }
 
85
  if (narg==4) {
 
86
  strcpy(fname,argv[2]); fname[strlen(fname)]= '\0';
 
87
  if (NULL == (filei1=fopen(fname+1,"r")))    return 1;
 
88
  strcpy(fname,argv[3]); fname[strlen(fname)]= '\0';
 
89
  if (NULL == (filei2=fopen(fname+1,"r")))    return 1;
 
90
 
 
91
  while (1)
 
92
    {
 
93
      if ( fscanf(filei1,"%s",nam1) == EOF ) break;
 
94
      if ( fscanf(filei2,"%s",nam2) == EOF ) break;
 
95
      fprintf(filesce,format,nam1,nam2);
 
96
    }
 
97
 
 
98
fclose(filei1);
 
99
fclose(filei2);
 
100
  }
 
101
  if (narg==5) {
 
102
  strcpy(fname,argv[2]); fname[strlen(fname)]= '\0';
 
103
  if (NULL == (filei1=fopen(fname+1,"r")))    return 1;
 
104
  strcpy(fname,argv[3]); fname[strlen(fname)]= '\0';
 
105
  if (NULL == (filei2=fopen(fname+1,"r")))    return 1;
 
106
  strcpy(fname,argv[4]); fname[strlen(fname)]= '\0';
 
107
  if (NULL == (filei3=fopen(fname+1,"r")))    return 1;
 
108
 
 
109
  while (1)
 
110
    {
 
111
      if ( fscanf(filei1,"%s",nam1) == EOF ) break;
 
112
      if ( fscanf(filei2,"%s",nam2) == EOF ) break;
 
113
      if ( fscanf(filei3,"%s",nam3) == EOF ) break;
 
114
      fprintf(filesce,format,nam1,nam2,nam3);
 
115
    }
 
116
 
 
117
fclose(filei1);
 
118
fclose(filei2);
 
119
fclose(filei3);
 
120
  }
 
121
  if (narg==6) {
 
122
  strcpy(fname,argv[2]); fname[strlen(fname)]= '\0';
 
123
  if (NULL == (filei1=fopen(fname+1,"r")))    return 1;
 
124
  strcpy(fname,argv[3]); fname[strlen(fname)]= '\0';
 
125
  if (NULL == (filei2=fopen(fname+1,"r")))    return 1;
 
126
  strcpy(fname,argv[4]); fname[strlen(fname)]= '\0';
 
127
  if (NULL == (filei3=fopen(fname+1,"r")))    return 1;
 
128
  strcpy(fname,argv[5]); fname[strlen(fname)]= '\0';
 
129
  if (NULL == (filei4=fopen(fname+1,"r")))    return 1;
 
130
 
 
131
  while (1)
 
132
    {
 
133
      if ( fscanf(filei1,"%s",nam1) == EOF ) break;
 
134
      if ( fscanf(filei2,"%s",nam2) == EOF ) break;
 
135
      if ( fscanf(filei3,"%s",nam3) == EOF ) break;
 
136
      if ( fscanf(filei4,"%s",nam4) == EOF ) break;
 
137
      fprintf(filesce,format,nam1,nam2,nam3,nam4);
 
138
    }
 
139
 
 
140
fclose(filei1);
 
141
fclose(filei2);
 
142
fclose(filei3);
 
143
fclose(filei4);
 
144
  }
 
145
  fclose(filesce);
 
146
  return 0;
 
147
}
 
148
 
 
149
 
 
150
 
 
151
 
 
152
 
 
153