SecuritySNACCRuntime/c++-lib/c++/asn-bool.cpp

   1 /*
   2  * Copyright (c) 2000-2001 Apple Computer, Inc. All Rights Reserved.
   3  *
   4  * The contents of this file constitute Original Code as defined in and are
   5  * subject to the Apple Public Source License Version 1.2 (the 'License').
   6  * You may not use this file except in compliance with the License. Please obtain
   7  * a copy of the License at http://www.apple.com/publicsource and read it before
   8  * using this file.
   9  *
  10  * This Original Code and all software distributed under the License are
  11  * distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS
  12  * OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES, INCLUDING WITHOUT
  13  * LIMITATION, ANY WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR
  14  * PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT. Please see the License for the
  15  * specific language governing rights and limitations under the License.
  16  */
  17
  18
  19 // file: .../c++-lib/src/asn-bool.C - methods for AsnBool (ASN.1 BOOLEAN) class
  20 //
  21 // MS 92/06/16
  22 // Copyright (C) 1992 Michael Sample and the University of British Columbia
  23 //
  24 // This library is free software; you can redistribute it and/or
  25 // modify it provided that this copyright/license information is retained
  26 // in original form.
  27 //
  28 // If you modify this file, you must clearly indicate your changes.
  29 //
  30 // This source code is distributed in the hope that it will be
  31 // useful, but WITHOUT ANY WARRANTY; without even the implied warranty
  32 // of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  33 //
  34 // $Header: /cvs/Darwin/src/live/Security/SecuritySNACCRuntime/c++-lib/c++/asn-bool.cpp,v 1.3 2002/03/21 05:38:44 dmitch Exp $
  35 // $Log: asn-bool.cpp,v $
  36 // Revision 1.3  2002/03/21 05:38:44  dmitch
  37 // Radar 2868524: no more setjmp/longjmp in SNACC-generated code.
  38 //
  39 // Revision 1.2.44.1  2002/03/20 00:36:49  dmitch
  40 // Radar 2868524: SNACC-generated code now uses throw/catch instead of setjmp/longjmp.
  41 //
  42 // Revision 1.2  2001/06/27 23:09:14  dmitch
  43 // Pusuant to Radar 2664258, avoid all cerr-based output in NDEBUG configuration.
  44 //
  45 // Revision 1.1.1.1  2001/05/18 23:14:05  mb
  46 // Move from private repository to open source repository
  47 //
  48 // Revision 1.2  2001/05/05 00:59:17  rmurphy
  49 // Adding darwin license headers
  50 //
  51 // Revision 1.1  2000/06/15 18:44:57  dmitch
  52 // These snacc-generated source files are now checked in to allow cross-platform build.
  53 //
  54 // Revision 1.2  2000/06/08 20:05:34  dmitch
  55 // Mods for X port. These files are actually machine generated and probably don't need to be in CVS....
  56 //
  57 // Revision 1.1.1.1  2000/03/09 01:00:05  rmurphy
  58 // Base Fortissimo Tree
  59 //
  60 // Revision 1.2  1999/03/21 02:07:35  mb
  61 // Added Copy to every AsnType.
  62 //
  63 // Revision 1.1  1999/02/25 05:21:50  mb
  64 // Added snacc c++ library
  65 //
  66 // Revision 1.7  1997/02/28 13:39:44  wan
  67 // Modifications collected for new version 1.3: Bug fixes, tk4.2.
  68 //
  69 // Revision 1.6  1997/02/16 20:26:03  rj
  70 // check-in of a few cosmetic changes
  71 //
  72 // Revision 1.5  1995/07/24  20:10:43  rj
  73 // call constructor with additional pdu and create arguments.
  74 //
  75 // #if TCL ... #endif wrapped into #if META ... #endif
  76 //
  77 // changed `_' to `-' in file names.
  78 //
  79 // Revision 1.4  1994/10/08  04:18:22  rj
  80 // code for meta structures added (provides information about the generated code itself).
  81 //
  82 // code for Tcl interface added (makes use of the above mentioned meta code).
  83 //
  84 // virtual inline functions (the destructor, the Clone() function, BEnc(), BDec() and Print()) moved from inc/*.h to src/*.C because g++ turns every one of them into a static non-inline function in every file where the .h file gets included.
  85 //
  86 // made Print() const (and some other, mainly comparison functions).
  87 //
  88 // several `unsigned long int' turned into `size_t'.
  89 //
  90 // Revision 1.3  1994/08/31  23:30:48  rj
  91 // use the bool built-in where applicable, and a replacement type otherwise.
  92 //
  93 // Revision 1.2  1994/08/28  10:01:11  rj
  94 // comment leader fixed.
  95 //
  96 // Revision 1.1  1994/08/28  09:20:58  rj
  97 // first check-in. for a list of changes to the snacc-1.1 distribution please refer to the ChangeLog.
  98
  99 #include "asn-config.h"
 100 #include "asn-len.h"
 101 #include "asn-tag.h"
 102 #include "asn-type.h"
 103 #include "asn-bool.h"
 104
 105 AsnType *AsnBool::Clone() const
 106 {
 107   return new AsnBool;
 108 }
 109
 110 AsnType *AsnBool::Copy() const
 111 {
 112   return new AsnBool (*this);
 113 }
 114
 115 AsnLen AsnBool::BEnc (BUF_TYPE b)
 116 {
 117     AsnLen l;
 118     l = BEncContent (b);
 119     BEncDefLenTo127 (b, l);
 120     l++;
 121     l += BEncTag1 (b, UNIV, PRIM, BOOLEAN_TAG_CODE);
 122     return l;
 123 }
 124
 125 void AsnBool::BDec (BUF_TYPE b, AsnLen &bytesDecoded, ENV_TYPE env)
 126 {
 127     AsnLen elmtLen;
 128     if (BDecTag (b, bytesDecoded, env) != MAKE_TAG_ID (UNIV, PRIM, BOOLEAN_TAG_CODE))
 129     {
 130         Asn1Error << "AsnBool::BDec: ERROR tag on BOOLEAN wrong." << endl;
 131         #if SNACC_EXCEPTION_ENABLE
 132         SnaccExcep::throwMe(-51);
 133         #else
 134         longjmp (env, -51);
 135         #endif
 136     }
 137     elmtLen = BDecLen (b, bytesDecoded, env);
 138
 139     BDecContent (b, MAKE_TAG_ID (UNIV, PRIM, BOOLEAN_TAG_CODE), elmtLen, bytesDecoded, env);
 140 }
 141
 142 // Decodes the content of a BOOLEAN and sets this object's value
 143 // to the decoded value. Flags an error if the length is wrong
 144 // or a read error occurs.
 145 void AsnBool::BDecContent (BUF_TYPE b, AsnTag tagId, AsnLen elmtLen, AsnLen &bytesDecoded, ENV_TYPE env)
 146 {
 147     if (elmtLen != 1)
 148     {
 149         Asn1Error << "AsnBool::BDecContent: ERROR - boolean value too long." << endl;
 150                 #if SNACC_EXCEPTION_ENABLE
 151                 SnaccExcep::throwMe(-5);
 152                 #else
 153         longjmp (env, -5);
 154                 #endif
 155     }
 156
 157     value = (b.GetByte() != 0);
 158     bytesDecoded++;
 159
 160     if (b.ReadError())
 161     {
 162         Asn1Error << "AsnBool::BDecContent: ERROR - decoded past end of data " << endl;
 163                 #if SNACC_EXCEPTION_ENABLE
 164                 SnaccExcep::throwMe(-6);
 165                 #else
 166         longjmp (env, -6);
 167                 #endif
 168     }
 169 }
 170
 171 AsnLen AsnBool::BEncContent (BUF_TYPE b)
 172 {
 173     b.PutByteRvs (value ? 0xFF : 0);
 174     return 1;
 175 }
 176
 177 // print the BOOLEAN's value in ASN.1 value notation to the given ostream
 178 void AsnBool::Print (ostream &os) const
 179 {
 180 #ifndef NDEBUG
 181   os << (value ? "TRUE" : "FALSE");
 182 #endif
 183 }
 184
 185 #if META
 186
 187 const AsnTypeDesc AsnBool::_desc (NULL, NULL, false, AsnTypeDesc::BOOLEAN, NULL);
 188
 189 const AsnTypeDesc *AsnBool::_getdesc() const
 190 {
 191   return &_desc;
 192 }
 193
 194 #if TCL
 195
 196 int AsnBool::TclGetVal (Tcl_Interp *interp) const
 197 {
 198   Tcl_SetResult (interp, value ? "TRUE" : "FALSE", TCL_STATIC);
 199   return TCL_OK;
 200 }
 201
 202 int AsnBool::TclSetVal (Tcl_Interp *interp, const char *valstr)
 203 {
 204   int valval;
 205
 206   if (Tcl_GetBoolean (interp, (char*) valstr, &valval) != TCL_OK)
 207     return TCL_ERROR;
 208
 209   value = valval;
 210
 211   return TCL_OK;
 212 }
 213
 214 #endif /* TCL */
 215 #endif /* META */