1*0Sstevel@tonic-gate /* 2*0Sstevel@tonic-gate * CDDL HEADER START 3*0Sstevel@tonic-gate * 4*0Sstevel@tonic-gate * The contents of this file are subject to the terms of the 5*0Sstevel@tonic-gate * Common Development and Distribution License, Version 1.0 only 6*0Sstevel@tonic-gate * (the "License"). You may not use this file except in compliance 7*0Sstevel@tonic-gate * with the License. 8*0Sstevel@tonic-gate * 9*0Sstevel@tonic-gate * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 10*0Sstevel@tonic-gate * or http://www.opensolaris.org/os/licensing. 11*0Sstevel@tonic-gate * See the License for the specific language governing permissions 12*0Sstevel@tonic-gate * and limitations under the License. 13*0Sstevel@tonic-gate * 14*0Sstevel@tonic-gate * When distributing Covered Code, include this CDDL HEADER in each 15*0Sstevel@tonic-gate * file and include the License file at usr/src/OPENSOLARIS.LICENSE. 16*0Sstevel@tonic-gate * If applicable, add the following below this CDDL HEADER, with the 17*0Sstevel@tonic-gate * fields enclosed by brackets "[]" replaced with your own identifying 18*0Sstevel@tonic-gate * information: Portions Copyright [yyyy] [name of copyright owner] 19*0Sstevel@tonic-gate * 20*0Sstevel@tonic-gate * CDDL HEADER END 21*0Sstevel@tonic-gate */ 22*0Sstevel@tonic-gate /* 23*0Sstevel@tonic-gate * Copyright (c) 1999 by Sun Microsystems, Inc. 24*0Sstevel@tonic-gate * All rights reserved. 25*0Sstevel@tonic-gate */ 26*0Sstevel@tonic-gate 27*0Sstevel@tonic-gate #pragma ident "%Z%%M% %I% %E% SMI" 28*0Sstevel@tonic-gate 29*0Sstevel@tonic-gate /* 30*0Sstevel@tonic-gate * Utils.xs contains XS wrappers for utility functions needed initially by 31*0Sstevel@tonic-gate * Sun::Solaris::Kstat, but that should prove generally useful as well. 32*0Sstevel@tonic-gate */ 33*0Sstevel@tonic-gate 34*0Sstevel@tonic-gate /* Solaris includes */ 35*0Sstevel@tonic-gate #include <libgen.h> 36*0Sstevel@tonic-gate #include <libintl.h> 37*0Sstevel@tonic-gate 38*0Sstevel@tonic-gate /* Perl XS includes */ 39*0Sstevel@tonic-gate #include "EXTERN.h" 40*0Sstevel@tonic-gate #include "perl.h" 41*0Sstevel@tonic-gate #include "XSUB.h" 42*0Sstevel@tonic-gate 43*0Sstevel@tonic-gate /* 44*0Sstevel@tonic-gate * The XS code exported to perl is below here. Note that the XS preprocessor 45*0Sstevel@tonic-gate * has its own commenting syntax, so all comments from this point on are in 46*0Sstevel@tonic-gate * that form. 47*0Sstevel@tonic-gate */ 48*0Sstevel@tonic-gate 49*0Sstevel@tonic-gate MODULE = Sun::Solaris::Utils PACKAGE = Sun::Solaris::Utils 50*0Sstevel@tonic-gate PROTOTYPES: ENABLE 51*0Sstevel@tonic-gate 52*0Sstevel@tonic-gate # 53*0Sstevel@tonic-gate # See gmatch(3GEN) 54*0Sstevel@tonic-gate # 55*0Sstevel@tonic-gate 56*0Sstevel@tonic-gate int 57*0Sstevel@tonic-gate gmatch(str, pattern) 58*0Sstevel@tonic-gate char *str; 59*0Sstevel@tonic-gate char *pattern; 60*0Sstevel@tonic-gate 61*0Sstevel@tonic-gate # 62*0Sstevel@tonic-gate # See gettext(3C) 63*0Sstevel@tonic-gate # 64*0Sstevel@tonic-gate 65*0Sstevel@tonic-gate char * 66*0Sstevel@tonic-gate gettext(msgid) 67*0Sstevel@tonic-gate char *msgid 68*0Sstevel@tonic-gate 69*0Sstevel@tonic-gate # 70*0Sstevel@tonic-gate # See dcgettext(3C) 71*0Sstevel@tonic-gate # 72*0Sstevel@tonic-gate 73*0Sstevel@tonic-gate char * 74*0Sstevel@tonic-gate dcgettext(domainname, msgid, category) 75*0Sstevel@tonic-gate char *domainname 76*0Sstevel@tonic-gate char *msgid 77*0Sstevel@tonic-gate int category 78*0Sstevel@tonic-gate 79*0Sstevel@tonic-gate # 80*0Sstevel@tonic-gate # See dgettext(3C) 81*0Sstevel@tonic-gate # 82*0Sstevel@tonic-gate 83*0Sstevel@tonic-gate char * 84*0Sstevel@tonic-gate dgettext(domainname, msgid) 85*0Sstevel@tonic-gate char *domainname 86*0Sstevel@tonic-gate char *msgid 87*0Sstevel@tonic-gate 88*0Sstevel@tonic-gate # 89*0Sstevel@tonic-gate # See textdomain(3C) 90*0Sstevel@tonic-gate # 91*0Sstevel@tonic-gate 92*0Sstevel@tonic-gate char * 93*0Sstevel@tonic-gate textdomain(domain) 94*0Sstevel@tonic-gate char *domain 95*0Sstevel@tonic-gate 96*0Sstevel@tonic-gate # 97*0Sstevel@tonic-gate # See bindtextdomain(3C) 98*0Sstevel@tonic-gate # 99*0Sstevel@tonic-gate 100*0Sstevel@tonic-gate char * 101*0Sstevel@tonic-gate bindtextdomain(domain, dirname) 102*0Sstevel@tonic-gate char *domain 103*0Sstevel@tonic-gate char *dirname 104