1N/A * Copyright (c) 2002, Oracle and/or its affiliates. All rights reserved. 1N/A * File.xs contains XS code for exacct file manipulation. 1N/A#
include "../exacct_common.xh" 1N/A/* Pull in the file generated by extract_defines. */ 1N/A#
include "FileDefs.xi" 1N/A * The XS code exported to perl is below here. Note that the XS preprocessor 1N/A * has its own commenting syntax, so all comments from this point on are in 1N/A /* Assume usernames are <= 32 chars (pwck(1M) assumes <= 8) */ 1N/A * Account for the mandatory parameters, 1N/A * and the rest must be an even number. 1N/A croak(
"Usage: Sun::Solaris::Exacct::File::new" 1N/A "(class, name, oflags, ...)");
1N/A /* Process any optional parameters. */ 1N/A /* Check and default the creator parameter. */ 1N/A /* Check and default the aflags parameter. */ 1N/A {
"EO_NONE",
"EO_GROUP",
"EO_ITEM" };
1N/A /* Work out the call context. */ 1N/A /* In a scalar context, just return the type. */ 1N/A /* In a list contect, return the type and catalog. */ 1N/A /* In a void context, return nothing. */ 1N/A /* Check the value is either an ::Item or a ::Group. */ 1N/A /* Deflate and write the object. */