1da2e3ebdSchin /*********************************************************************** 2da2e3ebdSchin * * 3da2e3ebdSchin * This software is part of the ast package * 4*34f9b3eeSRoland Mainz * Copyright (c) 1992-2009 AT&T Intellectual Property * 5da2e3ebdSchin * and is licensed under the * 6da2e3ebdSchin * Common Public License, Version 1.0 * 77c2fbfb3SApril Chin * by AT&T Intellectual Property * 8da2e3ebdSchin * * 9da2e3ebdSchin * A copy of the License is available at * 10da2e3ebdSchin * http://www.opensource.org/licenses/cpl1.0.txt * 11da2e3ebdSchin * (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) * 12da2e3ebdSchin * * 13da2e3ebdSchin * Information and Software Systems Research * 14da2e3ebdSchin * AT&T Research * 15da2e3ebdSchin * Florham Park NJ * 16da2e3ebdSchin * * 17da2e3ebdSchin * Glenn Fowler <gsf@research.att.com> * 18da2e3ebdSchin * David Korn <dgk@research.att.com> * 19da2e3ebdSchin * * 20da2e3ebdSchin ***********************************************************************/ 21da2e3ebdSchin #pragma prototyped 22da2e3ebdSchin /* 23da2e3ebdSchin * AT&T Research 24da2e3ebdSchin * 25da2e3ebdSchin * builtin cmd definitions 26da2e3ebdSchin */ 27da2e3ebdSchin 28da2e3ebdSchin #ifndef _CMD_H 29da2e3ebdSchin #define _CMD_H 30da2e3ebdSchin 31da2e3ebdSchin #include <ast.h> 32da2e3ebdSchin #include <error.h> 33da2e3ebdSchin #include <stak.h> 347c2fbfb3SApril Chin #include <shcmd.h> 35da2e3ebdSchin 36da2e3ebdSchin #define cmdinit _cmd_init 37da2e3ebdSchin 38*34f9b3eeSRoland Mainz #define ERROR_CALLBACK ERROR_SET 39*34f9b3eeSRoland Mainz 40da2e3ebdSchin #if _BLD_cmd && defined(__EXPORT__) 41da2e3ebdSchin #define extern __EXPORT__ 42da2e3ebdSchin #endif 43da2e3ebdSchin 44da2e3ebdSchin #include <cmdext.h> 45da2e3ebdSchin 46da2e3ebdSchin #undef extern 47da2e3ebdSchin 48da2e3ebdSchin #if defined(CMD_BUILTIN) && !defined(CMD_STANDALONE) 49da2e3ebdSchin #define CMD_STANDALONE CMD_BUILTIN 50da2e3ebdSchin #endif 51da2e3ebdSchin 52da2e3ebdSchin #ifdef CMD_STANDALONE 53da2e3ebdSchin 547c2fbfb3SApril Chin #define CMD_CONTEXT(c) ((Shbltin_t*)0) 557c2fbfb3SApril Chin 56da2e3ebdSchin #if CMD_DYNAMIC 57da2e3ebdSchin 58da2e3ebdSchin #include <dlldefs.h> 59da2e3ebdSchin 607c2fbfb3SApril Chin typedef int (*Shbltin_f)(int, char**, void*); 61da2e3ebdSchin 62da2e3ebdSchin #else 63da2e3ebdSchin 64da2e3ebdSchin extern int CMD_STANDALONE(int, char**, void*); 65da2e3ebdSchin 66da2e3ebdSchin #endif 67da2e3ebdSchin 68da2e3ebdSchin #ifndef CMD_BUILTIN 69da2e3ebdSchin 70da2e3ebdSchin /* 71da2e3ebdSchin * command initialization 72da2e3ebdSchin */ 73da2e3ebdSchin 74da2e3ebdSchin static int 75da2e3ebdSchin cmdinit(int argc, register char** argv, void* context, const char* catalog, int flags) 76da2e3ebdSchin { 77da2e3ebdSchin register char* cp; 78da2e3ebdSchin register char* pp; 79da2e3ebdSchin 80da2e3ebdSchin if (cp = strrchr(argv[0], '/')) 81da2e3ebdSchin cp++; 82da2e3ebdSchin else 83da2e3ebdSchin cp = argv[0]; 84da2e3ebdSchin if (pp = strrchr(cp, '_')) 85da2e3ebdSchin cp = pp + 1; 86da2e3ebdSchin error_info.id = cp; 87da2e3ebdSchin if (!error_info.catalog) 88da2e3ebdSchin error_info.catalog = (char*)catalog; 89da2e3ebdSchin opt_info.index = 0; 90da2e3ebdSchin if (context) 91*34f9b3eeSRoland Mainz error_info.flags |= flags & ~(ERROR_CALLBACK|ERROR_NOTIFY); 92da2e3ebdSchin return 0; 93da2e3ebdSchin } 94da2e3ebdSchin 95da2e3ebdSchin #endif 96da2e3ebdSchin 97da2e3ebdSchin int 98da2e3ebdSchin main(int argc, char** argv) 99da2e3ebdSchin { 100da2e3ebdSchin #if CMD_DYNAMIC 101da2e3ebdSchin register char* s; 102da2e3ebdSchin register char* t; 103da2e3ebdSchin void* dll; 1047c2fbfb3SApril Chin Shbltin_f fun; 105da2e3ebdSchin char buf[64]; 106da2e3ebdSchin 107da2e3ebdSchin if (s = strrchr(argv[0], '/')) 108da2e3ebdSchin s++; 109da2e3ebdSchin else if (!(s = argv[0])) 110da2e3ebdSchin return 127; 111da2e3ebdSchin if ((t = strrchr(s, '_')) && *++t) 112da2e3ebdSchin s = t; 113da2e3ebdSchin buf[0] = '_'; 114da2e3ebdSchin buf[1] = 'b'; 115da2e3ebdSchin buf[2] = '_'; 116da2e3ebdSchin strncpy(buf + 3, s, sizeof(buf) - 4); 117da2e3ebdSchin buf[sizeof(buf) - 1] = 0; 118da2e3ebdSchin if (t = strchr(buf, '.')) 119da2e3ebdSchin *t = 0; 120da2e3ebdSchin for (;;) 121da2e3ebdSchin { 122da2e3ebdSchin if (dll = dlopen(NiL, RTLD_LAZY)) 123da2e3ebdSchin { 1247c2fbfb3SApril Chin if (fun = (Shbltin_f)dlsym(dll, buf + 1)) 125da2e3ebdSchin break; 1267c2fbfb3SApril Chin if (fun = (Shbltin_f)dlsym(dll, buf)) 127da2e3ebdSchin break; 128da2e3ebdSchin } 129da2e3ebdSchin if (dll = dllfind("cmd", NiL, RTLD_LAZY)) 130da2e3ebdSchin { 1317c2fbfb3SApril Chin if (fun = (Shbltin_f)dlsym(dll, buf + 1)) 132da2e3ebdSchin break; 1337c2fbfb3SApril Chin if (fun = (Shbltin_f)dlsym(dll, buf)) 134da2e3ebdSchin break; 135da2e3ebdSchin } 136da2e3ebdSchin return 127; 137da2e3ebdSchin } 138da2e3ebdSchin return (*fun)(argc, argv, NiL); 139da2e3ebdSchin #else 140da2e3ebdSchin return CMD_STANDALONE(argc, argv, NiL); 141da2e3ebdSchin #endif 142da2e3ebdSchin } 143da2e3ebdSchin 144da2e3ebdSchin #else 145da2e3ebdSchin 146da2e3ebdSchin #undef cmdinit 1477c2fbfb3SApril Chin #ifdef _MSC_VER 1487c2fbfb3SApril Chin #define CMD_CONTEXT(p) ((Shbltin_t*)(p)) 149da2e3ebdSchin #define cmdinit(a,b,c,d,e) do{if(_cmd_init(a,b,c,d,e))return -1;}while(0) 1507c2fbfb3SApril Chin #else 1517c2fbfb3SApril Chin #define CMD_CONTEXT(p) (((p)&&((Shbltin_t*)(p))->version>=20071012&&((Shbltin_t*)(p))->version<20350101)?((Shbltin_t*)(p)):0) 1527c2fbfb3SApril Chin #define cmdinit(a,b,c,d,e) do{if((c)&&!CMD_CONTEXT(c))c=0;if(_cmd_init(a,b,c,d,e))return -1;}while(0) 153da2e3ebdSchin #endif 154da2e3ebdSchin 155da2e3ebdSchin #if _BLD_cmd && defined(__EXPORT__) 156da2e3ebdSchin #define extern extern __EXPORT__ 157da2e3ebdSchin #endif 158da2e3ebdSchin 159da2e3ebdSchin extern int _cmd_init(int, char**, void*, const char*, int); 160da2e3ebdSchin 161da2e3ebdSchin #undef extern 162da2e3ebdSchin 163da2e3ebdSchin #endif 164da2e3ebdSchin 165da2e3ebdSchin #endif 166