17c478bd9Sstevel@tonic-gate /* 27c478bd9Sstevel@tonic-gate * CDDL HEADER START 37c478bd9Sstevel@tonic-gate * 47c478bd9Sstevel@tonic-gate * The contents of this file are subject to the terms of the 57c478bd9Sstevel@tonic-gate * Common Development and Distribution License, Version 1.0 only 67c478bd9Sstevel@tonic-gate * (the "License"). You may not use this file except in compliance 77c478bd9Sstevel@tonic-gate * with the License. 87c478bd9Sstevel@tonic-gate * 97c478bd9Sstevel@tonic-gate * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 107c478bd9Sstevel@tonic-gate * or http://www.opensolaris.org/os/licensing. 117c478bd9Sstevel@tonic-gate * See the License for the specific language governing permissions 127c478bd9Sstevel@tonic-gate * and limitations under the License. 137c478bd9Sstevel@tonic-gate * 147c478bd9Sstevel@tonic-gate * When distributing Covered Code, include this CDDL HEADER in each 157c478bd9Sstevel@tonic-gate * file and include the License file at usr/src/OPENSOLARIS.LICENSE. 167c478bd9Sstevel@tonic-gate * If applicable, add the following below this CDDL HEADER, with the 177c478bd9Sstevel@tonic-gate * fields enclosed by brackets "[]" replaced with your own identifying 187c478bd9Sstevel@tonic-gate * information: Portions Copyright [yyyy] [name of copyright owner] 197c478bd9Sstevel@tonic-gate * 207c478bd9Sstevel@tonic-gate * CDDL HEADER END 217c478bd9Sstevel@tonic-gate */ 227c478bd9Sstevel@tonic-gate /* 237c478bd9Sstevel@tonic-gate * Copyright (c) 1996, by Sun Microsystems, Inc. 247c478bd9Sstevel@tonic-gate * All rights reserved. 257c478bd9Sstevel@tonic-gate */ 267c478bd9Sstevel@tonic-gate 277c478bd9Sstevel@tonic-gate /* 287c478bd9Sstevel@tonic-gate * Dummy version of getsyntx() from C/370. 297c478bd9Sstevel@tonic-gate * This version simply uses the external variable VARIANTS, and assigns them 307c478bd9Sstevel@tonic-gate * to the variant structure. 317c478bd9Sstevel@tonic-gate * This is a dummy routine, that would not actually run on any production 327c478bd9Sstevel@tonic-gate * system. 337c478bd9Sstevel@tonic-gate * 347c478bd9Sstevel@tonic-gate * Copyright 1993 by Mortice Kern Systems Inc. All rights reserved. 357c478bd9Sstevel@tonic-gate * 367c478bd9Sstevel@tonic-gate */ 377c478bd9Sstevel@tonic-gate #ifdef M_RCSID 387c478bd9Sstevel@tonic-gate #ifndef lint 397c478bd9Sstevel@tonic-gate static char const rcsID[] = "$Header: /rd/src/libc/mks/rcs/getsyntx.c 1.4 1995/04/19 23:04:55 ross Exp $"; 407c478bd9Sstevel@tonic-gate #endif /* lint */ 417c478bd9Sstevel@tonic-gate #endif /* M_RCSID */ 427c478bd9Sstevel@tonic-gate 437c478bd9Sstevel@tonic-gate #include <mks.h> 447c478bd9Sstevel@tonic-gate #include <variant.h> 457c478bd9Sstevel@tonic-gate #include <stdlib.h> 467c478bd9Sstevel@tonic-gate 477c478bd9Sstevel@tonic-gate struct variant * getsyntx(void)487c478bd9Sstevel@tonic-gategetsyntx(void) 497c478bd9Sstevel@tonic-gate { 507c478bd9Sstevel@tonic-gate static struct variant v; 517c478bd9Sstevel@tonic-gate static char const var[] = "\\][}{^~!#|$@`"; 527c478bd9Sstevel@tonic-gate char const *e; 53*1da57d55SToomas Soome 547c478bd9Sstevel@tonic-gate if ((e = __m_getenv("VARIANTS")) == NULL || *e == '\0') 557c478bd9Sstevel@tonic-gate e = var; 567c478bd9Sstevel@tonic-gate else if (strlen(e) != 13) { 577c478bd9Sstevel@tonic-gate m_error("getsyntx: environment variable VARIANTS: must be exactly 13 bytes long"); 587c478bd9Sstevel@tonic-gate return NULL; 597c478bd9Sstevel@tonic-gate } 607c478bd9Sstevel@tonic-gate v.backslash = e[0]; 617c478bd9Sstevel@tonic-gate v.right_bracket = e[1]; 627c478bd9Sstevel@tonic-gate v.left_bracket = e[2]; 637c478bd9Sstevel@tonic-gate v.right_brace = e[3]; 647c478bd9Sstevel@tonic-gate v.left_brace = e[4]; 657c478bd9Sstevel@tonic-gate v.circumflex = e[5]; 667c478bd9Sstevel@tonic-gate v.tilde = e[6]; 677c478bd9Sstevel@tonic-gate v.exclamation_mark = e[7]; 687c478bd9Sstevel@tonic-gate v.number_sign = e[8]; 697c478bd9Sstevel@tonic-gate v.vertical_line = e[9]; 707c478bd9Sstevel@tonic-gate v.dollar_sign = e[10]; 717c478bd9Sstevel@tonic-gate v.commercial_at = e[11]; 727c478bd9Sstevel@tonic-gate v.grave_accent = e[12]; 737c478bd9Sstevel@tonic-gate return &v; 747c478bd9Sstevel@tonic-gate } 75