1 // Copyright (C) 2016 and later: Unicode, Inc. and others. 2 // License & terms of use: http://www.unicode.org/copyright.html 3 /* Copyright (C) 2011 IBM Corporation and Others. All Rights Reserved */ 4 5 /** 6 Input: 7 -o makeconv makeconv.o ucnvstat.o ../../lib/libicuuc48.so -qOPTION='*DUPPROC *DUPVAR*' 8 9 CRTPGM PGM(SRLICU/MAKECONV) MODULE(SRLICU/MAKECONV SRLICU/UCNVSTAT SRLICU/GENMBCS SRLICU/GENCNVEX) BNDSRVPGM(SRLICU/LIBICUUC48 SRLICU/LIBICUTU48 SRLICU/LIBICUIN48) OPTION(*DUPPROC *DUPVAR) REPLACE(*YES) 10 11 Handles .o ( modules ), .so ( srvpgm ), .a ( bnddir ). 12 13 TODO: 14 15 - cleanup 16 - much better error handling 17 - factor common code 18 - instead of caring about .o vs .so vs .a, just read the link - if it ends in .srvpgm then treat it as a service program, etc. 19 20 */ 21 22 #include <stdio.h> 23 #include <stdlib.h> 24 #include <string.h> 25 #include <errno.h> 26 27 #ifndef TEST_MODE 28 #define TEST_MODE 0 29 #endif 30 31 32 #if !TEST_MODE 33 #include <qp0z1170.h> 34 #else 35 static int Qp0zSystem(const char *cmd) { 36 printf("CL: %s\n", cmd); 37 return 0; 38 } 39 #endif 40 41 static int runcmd(const char *cmd) { 42 int rc; 43 printf("%s\n", cmd); 44 rc = Qp0zSystem(cmd); 45 if(rc==0) { 46 printf("..ok\n"); 47 return 0; 48 } else if(rc<0){ 49 printf("..Qp0zSystem failed.\n"); 50 return 1; 51 } else { 52 printf("..System call failed.\n"); 53 return 1; 54 } 55 } 56 57 int main(int argc, const char *argv[]) { 58 int i; 59 60 char buf[8048]; 61 char opt[4100]; 62 char objs[4024]; 63 char libs[4024]; 64 char bnddirs[4024]; 65 const char *prog=""; 66 const char *progshort=prog; 67 const char *outputdir=getenv("OUTPUTDIR"); 68 69 printf("# OUTPUTDIR=%s ",outputdir); 70 for(i=0;i<argc;i++) { 71 printf("%s ", argv[i]); 72 } 73 printf("\n"); 74 75 buf[0]=0; 76 opt[0]=0; 77 objs[0]=0; 78 libs[0]=0; 79 bnddirs[0]=0; 80 81 for(i=1;i<argc;i++) { 82 if(argv[i][0]=='-') { 83 switch(argv[i][1]) { 84 case 'O': 85 printf(".. ignoring optimization: %s\n", argv[i]); 86 break; 87 case 'g': 88 printf(".. ignoring debugging: %s\n", argv[i]); 89 break; 90 case 'l': 91 printf(".. ignoring lib: %s\n", argv[i]); 92 break; 93 case 'v': 94 printf(".. already verbose\n"); 95 break; 96 case 'o': 97 i++; 98 prog=argv[i]; 99 progshort=strrchr(prog,'/'); 100 if(!progshort) { 101 progshort=prog; 102 } else { 103 progshort++; /* / */ 104 } 105 break; 106 case 'q': 107 if(!strncmp(argv[i]+2,"OPTION=",7)) { 108 strcat(opt,argv[i]+9); 109 } else { 110 printf("Unknown -q option: %s\n", argv[i]); 111 return 1; 112 } 113 break; 114 default: 115 printf("Unknown option: %s\n", argv[i]); 116 return 1; 117 } 118 } else { 119 int n = strlen(argv[i]); 120 if(argv[i][n-1]=='o' && 121 argv[i][n-2]=='.') { 122 const char *b = argv[i]; 123 char linkbuf[200]; 124 char outbuf[100]; 125 int nlen = n-2; 126 127 if(nlen >= 10) { 128 nlen = 10; 129 } 130 131 if(readlink(b,linkbuf,200)>0) { 132 /* printf("linkbuf %s for %s\n", linkbuf, b); */ 133 /* /qsys.lib/srlicu.lib/currtest.module */ 134 char *mend = strrchr(linkbuf,'.'); 135 if(mend) { 136 *mend=0; 137 mend = strrchr(linkbuf,'/'); 138 if(mend) { 139 mend++; 140 strcpy(outbuf,mend); 141 b=outbuf; 142 nlen=strlen(b); 143 } 144 } 145 } else { 146 /* perror("readlink"); 147 puts(b); */ 148 } 149 150 strcat(objs,outputdir); 151 strcat(objs,"/"); 152 strncat(objs,b,nlen); 153 strcat(objs, " "); 154 } else if(argv[i][n-1]=='a' && 155 argv[i][n-2]=='.') { 156 const char *b = argv[i]; 157 char linkbuf[200]; 158 char outbuf[100]; 159 int nlen = n-2; 160 161 if(nlen >= 10) { 162 nlen = 10; 163 } 164 165 if(readlink(b,linkbuf,200)>0) { 166 /* printf("linkbuf %s for %s\n", linkbuf, b); */ 167 /* /qsys.lib/srlicu.lib/currtest.srvpgm */ 168 char *mend = strrchr(linkbuf,'.'); 169 if(mend) { 170 *mend=0; 171 mend = strrchr(linkbuf,'/'); 172 if(mend) { 173 mend++; 174 strcpy(outbuf,mend); 175 b=outbuf; 176 nlen=strlen(b); 177 } 178 } 179 } else { 180 /* perror("readlink"); 181 puts(b); */ 182 } 183 184 strcat(bnddirs,outputdir); 185 strcat(bnddirs,"/"); 186 strncat(bnddirs,b,nlen); 187 strcat(bnddirs, " "); 188 } else if(argv[i][n-1]=='o' && 189 argv[i][n-2]=='s' && 190 argv[i][n-3]=='.') { 191 const char *p = strrchr(argv[i],'/'); 192 if(!p) { 193 printf("Can't find trailing slash in %s\n", argv[i]); 194 return 1; 195 } 196 strcat(libs,outputdir); 197 strcat(libs,"/"); 198 strncat(libs,p+1,strlen(p)-4); 199 strcat(libs," "); 200 } else { 201 printf("Unknown input file: %s\n", argv[i]); 202 return 1; 203 } 204 } 205 } 206 207 if(prog[0]==0) { 208 printf("no program (-o) option specified.\n"); 209 return 1; 210 } 211 212 sprintf(buf,"CRTPGM PGM(%s/%s) MODULE(%s) BNDSRVPGM(%s) BNDDIR(%s) OPTION(%s) REPLACE(*YES)", 213 outputdir,progshort, 214 215 objs, 216 217 libs, 218 219 bnddirs, 220 221 opt); 222 223 224 if(runcmd(buf)) { 225 return 1; 226 } 227 228 /* -- OK */ 229 { 230 char path1[1000]; 231 sprintf(path1,"/qsys.lib/%s.lib/%s.pgm", 232 outputdir, 233 progshort); 234 printf("# ln -s %s %s\n", path1, prog); 235 if((!TEST_MODE) && symlink(path1,prog)) { 236 perror("symlink"); 237 if(errno!=EEXIST) { /* ignored */ 238 return 1; 239 } 240 } 241 } 242 return 0; 243 } 244 245 246 247 248 249 250 251 252
