source/corefont.cc

   1 /* This file is part of Shapes.
   2  *
   3  * Shapes is free software: you can redistribute it and/or modify
   4  * it under the terms of the GNU General Public License as published by
   5  * the Free Software Foundation, either version 3 of the License, or
   6  * any later version.
   7  *
   8  * Shapes is distributed in the hope that it will be useful,
   9  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  10  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11  * GNU General Public License for more details.
  12  *
  13  * You should have received a copy of the GNU General Public License
  14  * along with Shapes.  If not, see <http://www.gnu.org/licenses/>.
  15  *
  16  * Copyright 2008 Henrik Tidefelt
  17  */
  18
  19 #include "shapescore.h"
  20 #include "globals.h"
  21 #include "charconverters.h"
  22 #include "autoonoff.h"
  23 #include "ast.h"
  24 #include "glyphlist.h"
  25 #include "config.h"
  26
  27 using namespace Shapes;
  28
  29
  30 namespace Shapes
  31 {
  32         namespace Lang
  33         {
  34                 class Core_makeglyph : public Lang::CoreFunction
  35                 {
  36                         Lang::Type3Glyph::Kind kind_;
  37                 public:
  38                         Core_makeglyph( const RefCountPtr< const Ast::NamespacePath > & ns, const char * name, Lang::Type3Glyph::Kind kind )
  39                                 : CoreFunction( ns, name, new Kernel::EvaluatedFormals( Ast::FileID::build_internal( name ), true ) ), kind_( kind )
  40                         {
  41                                 formals_->appendEvaluatedCoreFormal( "width", Kernel::THE_SLOT_VARIABLE );
  42                                 formals_->appendEvaluatedCoreFormal( "glyph", Kernel::THE_SLOT_VARIABLE );
  43                                 formals_->appendEvaluatedCoreFormal( "char", Kernel::THE_VOID_VARIABLE );
  44                                 formals_->appendEvaluatedCoreFormal( "name", Kernel::THE_VOID_VARIABLE );
  45                         }
  46                         virtual void
  47                         call( Kernel::EvalState * evalState, Kernel::Arguments & args, const Ast::SourceLocation & callLoc ) const
  48                         {
  49                                 args.applyDefaults( callLoc );
  50
  51                                 size_t argsi = 0;
  52                                 typedef const Lang::Length WidthType;
  53                                 RefCountPtr< WidthType > widthX = Helpers::down_cast_CoreArgument< WidthType >( id_, args, argsi, callLoc );
  54
  55                                 ++argsi;
  56                                 typedef const Lang::Drawable2D GlyphType;
  57                                 RefCountPtr< GlyphType > glyph = Helpers::down_cast_CoreArgument< GlyphType >( id_, args, argsi, callLoc );
  58
  59                                 ++argsi;
  60                                 typedef const Lang::Character CodeType;
  61                                 RefCountPtr< CodeType > codeArg = Helpers::down_cast_CoreArgument< CodeType >( id_, args, argsi, callLoc, true );
  62
  63                                 ++argsi;
  64                                 typedef const Lang::Symbol NameType;
  65                                 RefCountPtr< NameType > nameUTF8 = RefCountPtr< NameType >( NullPtr< NameType >( ) );
  66
  67                                 RefCountPtr< const Lang::String > nameStringUTF8 = RefCountPtr< const Lang::String >( NullPtr< const Lang::String >( ) );
  68                                 if( codeArg != NullPtr< CodeType >( ) )
  69                                         {
  70                                                 const size_t charBufSize = 10;
  71                                                 char charBuf[ charBufSize ];
  72                                                 char * dst = charBuf;
  73                                                 size_t charBufAvail = charBufSize - 1;
  74                                                 codeArg->val_.encode_UTF8( & dst, & charBufAvail );
  75                                                 *dst = '\0';
  76                                                 nameStringUTF8 = RefCountPtr< const Lang::String >( new Lang::String( strrefdup( charBuf ) ) );
  77                                         }
  78                                 {
  79                                         try
  80                                                 {
  81                                                         // If the argument is void, this goes through with nameUTF8 being null. We will then refer to nameStringUTF8 as set above.
  82                                                         nameUTF8 = Helpers::try_cast_CoreArgument< NameType >( args.getValue( argsi ), true );
  83                                                         goto foundNameType;
  84                                                 }
  85                                         catch( const NonLocalExit::NotThisType & ball )
  86                                                 {
  87                                                         /* Never mind, see below. */
  88                                                 }
  89
  90                                         try
  91                                                 {
  92                                                         // If we reach here, the value is present, but not a Symbol.    Hence we require that it be a string value for the name that replaces the default value being that of codeStringUTF8.
  93                                                         nameStringUTF8 = Helpers::try_cast_CoreArgument< const Lang::String >( args.getValue( argsi ) );
  94                                                         goto foundNameType;
  95                                                 }
  96                                         catch( const NonLocalExit::NotThisType & ball )
  97                                                 {
  98                                                         /* Never mind, see below. */
  99                                                 }
 100
 101                                         throw Exceptions::CoreTypeMismatch( callLoc, id_, args, argsi, Helpers::typeSetString( Lang::Symbol::staticTypeName( ), Lang::String::staticTypeName( ) ) );
 102                                 }
 103                         foundNameType:
 104
 105                                 unsigned char code = 0;
 106                                 if( codeArg != NullPtr< CodeType >( ) )
 107                                         {
 108                                                 code = codeArg->val_.get_MacRoman( );
 109                                         }
 110
 111                                 RefCountPtr< const char > name = RefCountPtr< const char >( NullPtr< const char >( ) );
 112                                 if( nameUTF8 == NullPtr< NameType >( ) )
 113                                         {
 114                                                 if( nameStringUTF8 == NullPtr< const Lang::String >( ) )
 115                                                         {
 116                                                                 throw Exceptions::CoreRequirement( "At least one of <char> and <name> must be specified.", id_, callLoc );
 117                                                         }
 118                                                 const FontMetrics::GlyphList & glyphList = Helpers::requireGlyphList( );
 119                                                 const char * dst;
 120                                                 if( ! glyphList.UTF8_to_name( nameStringUTF8->val_.getPtr( ), & dst ) )
 121                                                         {
 122                                                                 throw Exceptions::CoreOutOfRange( id_, args, 2, "When no name is given, characters without default names are not allowed.  Please refer to the glyph list." );
 123                                                         }
 124                                                 name = strrefdup( dst );
 125                                         }
 126                                 else
 127                                         {
 128                                                 // Ensure that the glyph name is legal
 129                                                 iconv_t converter = Helpers::requireUTF8ToASCIIConverter( );
 130
 131                                                 const char * inbuf = nameUTF8->name( ).getPtr( );
 132
 133                                                 size_t bufSize = strlen( inbuf );
 134                                                 char * buf = new char[ bufSize + 1 ];
 135                                                 name = RefCountPtr< const char >( buf );        // this will delete the buffer if it becomes unused.
 136
 137                                                 char * outbuf = buf;
 138                                                 size_t inbytesleft = bufSize;
 139                                                 size_t outbytesleft = bufSize;
 140                                                 // The ICONV_CAST macro is defined in config.h.
 141                                                 size_t count = iconv( converter,
 142                                                                                                                                         ICONV_CAST( & inbuf ), & inbytesleft,
 143                                                                                                                                         & outbuf, & outbytesleft );
 144                                                 if( count == (size_t)(-1) )
 145                                                         {
 146                                                                 if( errno == EILSEQ )
 147                                                                         {
 148                                                                                 throw Exceptions::CoreOutOfRange( id_, args, 3, "A non-ASCII character was found in a glyph name." );
 149                                                                         }
 150                                                                 else if( errno == EINVAL )
 151                                                                         {
 152                                                                                 throw Exceptions::MiscellaneousRequirement( "It is suspected that glyph's name ended with an incomplete multibyte character." );
 153                                                                         }
 154                                                                 else if( errno == E2BIG )
 155                                                                         {
 156                                                                                 throw Exceptions::InternalError( "The buffer allocated for UTF-8 to ASCII conversion was too small." );
 157                                                                         }
 158                                                                 else
 159                                                                         {
 160                                                                                 std::ostringstream msg;
 161                                                                                 msg << "iconv failed with an unrecognized error code: " << errno ;
 162                                                                                 throw Exceptions::InternalError( strrefdup( msg ) );
 163                                                                         }
 164                                                         }
 165                                                 *outbuf = '\0';
 166                                         }
 167
 168                                 // Find boudning box:
 169                                 RefCountPtr< const Lang::ElementaryPath2D > theBBox = glyph->bbox( Lang::Drawable2D::BOUNDING );
 170                                 Concrete::Coords2D llcorner( 0, 0 );
 171                                 Concrete::Coords2D urcorner( 0, 0 );
 172                                 if( ! theBBox->boundingRectangle( & llcorner, & urcorner ) )
 173                                         {
 174                                                 throw Exceptions::InternalErrorIn( id_, "The glyph has no bounding box." );
 175                                         }
 176
 177                                 Kernel::ContRef cont = evalState->cont_;
 178                                 cont->takeValue( Kernel::ValueRef( new Lang::Type3Glyph( kind_,
 179                                                                                                                                                                                                                                                                  code,
 180                                                                                                                                                                                                                                                                  name,
 181                                                                                                                                                                                                                                                                  glyph,
 182                                                                                                                                                                                                                                                                  widthX->get( ),
 183                                                                                                                                                                                                                                                                  llcorner.x_,
 184                                                                                                                                                                                                                                                                  llcorner.y_,
 185                                                                                                                                                                                                                                                                  urcorner.x_,
 186                                                                                                                                                                                                                                                                  urcorner.y_ ) ),
 187                                                                                                  evalState );
 188                         }
 189                 };
 190
 191         }
 192 }
 193
 194
 195 void
 196 Kernel::registerCore_font( Kernel::Environment * env )
 197 {
 198   env->initDefineCoreFunction( new Lang::Core_makeglyph( Lang::THE_NAMESPACE_Shapes_Text, "basicglyph", Lang::Type3Glyph::BASIC ) );
 199   env->initDefineCoreFunction( new Lang::Core_makeglyph( Lang::THE_NAMESPACE_Shapes_Text, "coloredglyph", Lang::Type3Glyph::COLORED ) );
 200
 201   env->initDefine( Lang::THE_NAMESPACE_Shapes_Text_Font, "TIMES_ROMAN", RefCountPtr< const Lang::Font >( new Lang::PDFStandardFont( BuiltInFonts::TIMES_ROMAN ) ) );
 202   env->initDefine( Lang::THE_NAMESPACE_Shapes_Text_Font, "TIMES_BOLD", RefCountPtr< const Lang::Font >( new Lang::PDFStandardFont( BuiltInFonts::TIMES_BOLD ) ) );
 203   env->initDefine( Lang::THE_NAMESPACE_Shapes_Text_Font, "TIMES_ITALIC", RefCountPtr< const Lang::Font >( new Lang::PDFStandardFont( BuiltInFonts::TIMES_ITALIC ) ) );
 204   env->initDefine( Lang::THE_NAMESPACE_Shapes_Text_Font, "TIMES_BOLDITALIC", RefCountPtr< const Lang::Font >( new Lang::PDFStandardFont( BuiltInFonts::TIMES_BOLDITALIC ) ) );
 205   env->initDefine( Lang::THE_NAMESPACE_Shapes_Text_Font, "HELVETICA", Lang::THE_FONT_HELVETICA );
 206   env->initDefine( Lang::THE_NAMESPACE_Shapes_Text_Font, "HELVETICA_BOLD", RefCountPtr< const Lang::Font >( new Lang::PDFStandardFont( BuiltInFonts::HELVETICA_BOLD ) ) );
 207   env->initDefine( Lang::THE_NAMESPACE_Shapes_Text_Font, "HELVETICA_OBLIQUE", RefCountPtr< const Lang::Font >( new Lang::PDFStandardFont( BuiltInFonts::HELVETICA_OBLIQUE ) ) );
 208   env->initDefine( Lang::THE_NAMESPACE_Shapes_Text_Font, "HELVETICA_BOLDOBLIQUE", RefCountPtr< const Lang::Font >( new Lang::PDFStandardFont( BuiltInFonts::HELVETICA_BOLDOBLIQUE ) ) );
 209   env->initDefine( Lang::THE_NAMESPACE_Shapes_Text_Font, "COURIER", RefCountPtr< const Lang::Font >( new Lang::PDFStandardFont( BuiltInFonts::COURIER ) ) );
 210   env->initDefine( Lang::THE_NAMESPACE_Shapes_Text_Font, "COURIER_BOLD", RefCountPtr< const Lang::Font >( new Lang::PDFStandardFont( BuiltInFonts::COURIER_BOLD ) ) );
 211   env->initDefine( Lang::THE_NAMESPACE_Shapes_Text_Font, "COURIER_OBLIQUE", RefCountPtr< const Lang::Font >( new Lang::PDFStandardFont( BuiltInFonts::COURIER_OBLIQUE ) ) );
 212   env->initDefine( Lang::THE_NAMESPACE_Shapes_Text_Font, "COURIER_BOLDOBLIQUE", RefCountPtr< const Lang::Font >( new Lang::PDFStandardFont( BuiltInFonts::COURIER_BOLDOBLIQUE ) ) );
 213   env->initDefine( Lang::THE_NAMESPACE_Shapes_Text_Font, "SYMBOL", RefCountPtr< const Lang::Font >( new Lang::PDFStandardFont( BuiltInFonts::SYMBOL ) ) );
 214   env->initDefine( Lang::THE_NAMESPACE_Shapes_Text_Font, "ZAPFDINGBATS", RefCountPtr< const Lang::Font >( new Lang::PDFStandardFont( BuiltInFonts::ZAPFDINGBATS ) ) );
 215 }