[trunk] WIP: enhance codestream index generation
[openjpeg.git] / applications / codec / j2k_dump.c
1 /*
2  * Copyright (c) 2010, Mathieu Malaterre, GDCM
3  * Copyright (c) 2011, Mickael Savinaud, Communications & Systemes <mickael.savinaud@c-s.fr>
4  * All rights reserved.
5  *
6  * Redistribution and use in source and binary forms, with or without
7  * modification, are permitted provided that the following conditions
8  * are met:
9  * 1. Redistributions of source code must retain the above copyright
10  *    notice, this list of conditions and the following disclaimer.
11  * 2. Redistributions in binary form must reproduce the above copyright
12  *    notice, this list of conditions and the following disclaimer in the
13  *    documentation and/or other materials provided with the distribution.
14  *
15  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS `AS IS'
16  * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
17  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
18  * ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
19  * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
20  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
21  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
22  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
23  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
24  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
25  * POSSIBILITY OF SUCH DAMAGE.
26  */
27 #include "opj_config.h"
28
29 #include <stdio.h>
30 #include <string.h>
31 #include <stdlib.h>
32 #include <math.h>
33
34 #ifdef _WIN32
35 #include "windirent.h"
36 #else
37 #include <dirent.h>
38 #endif /* _WIN32 */
39
40 #ifdef _WIN32
41 #include <windows.h>
42 #else
43 #include <strings.h>
44 #define _stricmp strcasecmp
45 #define _strnicmp strncasecmp
46 #endif /* _WIN32 */
47
48 #include "openjpeg.h"
49 #include "opj_getopt.h"
50 #include "convert.h"
51 #include "index.h"
52
53 #include "format_defs.h"
54
55 typedef struct dircnt{
56         /** Buffer for holding images read from Directory*/
57         char *filename_buf;
58         /** Pointer to the buffer*/
59         char **filename;
60 }dircnt_t;
61
62
63 typedef struct img_folder{
64         /** The directory path of the folder containing input images*/
65         char *imgdirpath;
66         /** Output format*/
67         const char *out_format;
68         /** Enable option*/
69         char set_imgdir;
70         /** Enable Cod Format for output*/
71         char set_out_format;
72
73 }img_fol_t;
74
75 /* -------------------------------------------------------------------------- */
76 /* Declarations                                                               */
77 int get_num_images(char *imgdirpath);
78 int load_images(dircnt_t *dirptr, char *imgdirpath);
79 int get_file_format(char *filename);
80 char get_next_file(int imageno,dircnt_t *dirptr,img_fol_t *img_fol, opj_dparameters_t *parameters);
81
82 int parse_cmdline_decoder(int argc, char **argv, opj_dparameters_t *parameters,img_fol_t *img_fol);
83 int parse_DA_values( char* inArg, unsigned int *DA_x0, unsigned int *DA_y0, unsigned int *DA_x1, unsigned int *DA_y1);
84
85 /* -------------------------------------------------------------------------- */
86 void decode_help_display(void) {
87         fprintf(stdout,"HELP for j2k_dump\n----\n\n");
88         fprintf(stdout,"- the -h option displays this help information on screen\n\n");
89
90 /* UniPG>> */
91         fprintf(stdout,"List of parameters for the JPEG 2000 "
92 #ifdef USE_JPWL
93                 "+ JPWL "
94 #endif /* USE_JPWL */
95                 "decoder:\n");
96 /* <<UniPG */
97         fprintf(stdout,"\n");
98         fprintf(stdout,"\n");
99         fprintf(stdout,"  -ImgDir \n");
100         fprintf(stdout,"        Image file Directory path \n");
101         fprintf(stdout,"  -i <compressed file>\n");
102         fprintf(stdout,"    REQUIRED only if an Input image directory not specified\n");
103         fprintf(stdout,"    Currently accepts J2K-files, JP2-files and JPT-files. The file type\n");
104         fprintf(stdout,"    is identified based on its suffix.\n");
105         fprintf(stdout,"  -o <output file>\n");
106         fprintf(stdout,"    OPTIONAL\n");
107         fprintf(stdout,"    Output file where file info will be dump.\n");
108         fprintf(stdout,"    By default it will be in the stdout.\n");
109         fprintf(stdout,"  -d <x0,x1,y0,y1>\n"); /* FIXME WIP_MSD */
110         fprintf(stdout,"    OPTIONAL\n");
111         fprintf(stdout,"    Decoding area\n");
112         fprintf(stdout,"    By default all tiles header are read.\n");
113         fprintf(stdout,"  -v "); /* FIXME WIP_MSD */
114         fprintf(stdout,"    OPTIONAL\n");
115         fprintf(stdout,"    Activate or not the verbose mode (display info and warning message)\n");
116         fprintf(stdout,"    By default verbose mode is off.\n");
117         fprintf(stdout,"\n");
118 }
119
120 /* -------------------------------------------------------------------------- */
121 int get_num_images(char *imgdirpath){
122         DIR *dir;
123         struct dirent* content; 
124         int num_images = 0;
125
126         /*Reading the input images from given input directory*/
127
128         dir= opendir(imgdirpath);
129         if(!dir){
130                 fprintf(stderr,"Could not open Folder %s\n",imgdirpath);
131                 return 0;
132         }
133         
134         while((content=readdir(dir))!=NULL){
135                 if(strcmp(".",content->d_name)==0 || strcmp("..",content->d_name)==0 )
136                         continue;
137                 num_images++;
138         }
139         return num_images;
140 }
141
142 /* -------------------------------------------------------------------------- */
143 int load_images(dircnt_t *dirptr, char *imgdirpath){
144         DIR *dir;
145         struct dirent* content; 
146         int i = 0;
147
148         /*Reading the input images from given input directory*/
149
150         dir= opendir(imgdirpath);
151         if(!dir){
152                 fprintf(stderr,"Could not open Folder %s\n",imgdirpath);
153                 return 1;
154         }else   {
155                 fprintf(stderr,"Folder opened successfully\n");
156         }
157         
158         while((content=readdir(dir))!=NULL){
159                 if(strcmp(".",content->d_name)==0 || strcmp("..",content->d_name)==0 )
160                         continue;
161
162                 strcpy(dirptr->filename[i],content->d_name);
163                 i++;
164         }
165         return 0;       
166 }
167
168 /* -------------------------------------------------------------------------- */
169 int get_file_format(char *filename) {
170         unsigned int i;
171         static const char *extension[] = {"pgx", "pnm", "pgm", "ppm", "bmp","tif", "raw", "tga", "png", "j2k", "jp2", "jpt", "j2c", "jpc"  };
172         static const int format[] = { PGX_DFMT, PXM_DFMT, PXM_DFMT, PXM_DFMT, BMP_DFMT, TIF_DFMT, RAW_DFMT, TGA_DFMT, PNG_DFMT, J2K_CFMT, JP2_CFMT, JPT_CFMT, J2K_CFMT, J2K_CFMT };
173         char * ext = strrchr(filename, '.');
174         if (ext == NULL)
175                 return -1;
176         ext++;
177         if(ext) {
178                 for(i = 0; i < sizeof(format)/sizeof(*format); i++) {
179                         if(_strnicmp(ext, extension[i], 3) == 0) {
180                                 return format[i];
181                         }
182                 }
183         }
184
185         return -1;
186 }
187
188 /* -------------------------------------------------------------------------- */
189 char get_next_file(int imageno,dircnt_t *dirptr,img_fol_t *img_fol, opj_dparameters_t *parameters){
190         char image_filename[OPJ_PATH_LEN], infilename[OPJ_PATH_LEN],outfilename[OPJ_PATH_LEN],temp_ofname[OPJ_PATH_LEN];
191         char *temp_p, temp1[OPJ_PATH_LEN]="";
192
193         strcpy(image_filename,dirptr->filename[imageno]);
194         fprintf(stderr,"File Number %d \"%s\"\n",imageno,image_filename);
195         parameters->decod_format = get_file_format(image_filename);
196         if (parameters->decod_format == -1)
197                 return 1;
198         sprintf(infilename,"%s/%s",img_fol->imgdirpath,image_filename);
199         strncpy(parameters->infile, infilename, sizeof(infilename));
200
201         /* Set output file */
202         strcpy(temp_ofname,strtok(image_filename,"."));
203         while((temp_p = strtok(NULL,".")) != NULL){
204                 strcat(temp_ofname,temp1);
205                 sprintf(temp1,".%s",temp_p);
206         }
207         if(img_fol->set_out_format==1){
208                 sprintf(outfilename,"%s/%s.%s",img_fol->imgdirpath,temp_ofname,img_fol->out_format);
209                 strncpy(parameters->outfile, outfilename, sizeof(outfilename));
210         }
211         return 0;
212 }
213
214 /* -------------------------------------------------------------------------- */
215 /**
216  * Parse the command line
217  */
218 /* -------------------------------------------------------------------------- */
219 int parse_cmdline_decoder(int argc, char **argv, opj_dparameters_t *parameters,img_fol_t *img_fol) {
220         int totlen, c;
221         opj_option_t long_option[]={
222                 {"ImgDir",REQ_ARG, NULL ,'y'},
223         };
224         const char optlist[] = "i:o:d:hv";
225
226         totlen=sizeof(long_option);
227         img_fol->set_out_format = 0;
228         do {
229                 c = opj_getopt_long(argc, argv,optlist,long_option,totlen);
230                 if (c == -1)
231                         break;
232                 switch (c) {
233                         case 'i':                       /* input file */
234                         {
235                                 char *infile = opj_optarg;
236                                 parameters->decod_format = get_file_format(infile);
237                                 switch(parameters->decod_format) {
238                                         case J2K_CFMT:
239                                                 break;
240                                         case JP2_CFMT:
241                                                 break;
242                                         case JPT_CFMT:
243                                                 break;
244                                         default:
245                                                 fprintf(stderr, 
246                                                         "!! Unrecognized format for infile : %s [accept only *.j2k, *.jp2, *.jpc or *.jpt] !!\n\n", 
247                                                         infile);
248                                                 return 1;
249                                 }
250                                 strncpy(parameters->infile, infile, sizeof(parameters->infile)-1);
251                         }
252                         break;
253
254                                 /* ------------------------------------------------------ */
255
256                         case 'o':     /* output file */
257                         {
258                           char *outfile = opj_optarg;
259                           strncpy(parameters->outfile, outfile, sizeof(parameters->outfile)-1);
260                         }
261                         break;
262                                 
263                                 /* ----------------------------------------------------- */
264
265                         case 'h':                       /* display an help description */
266                                 decode_help_display();
267                                 return 1;                               
268
269                                 /* ------------------------------------------------------ */
270
271                         case 'y':                       /* Image Directory path */
272                         {
273                                 img_fol->imgdirpath = (char*)malloc(strlen(opj_optarg) + 1);
274                                 strcpy(img_fol->imgdirpath,opj_optarg);
275                                 img_fol->set_imgdir=1;
276                         }
277                         break;
278
279                                 /* ----------------------------------------------------- */
280
281                         case 'd':               /* Input decode ROI */
282                         {
283                                 int size_optarg = (int)strlen(opj_optarg) + 1;
284                                 char *ROI_values = (char*) malloc(size_optarg);
285                                 ROI_values[0] = '\0';
286                                 strncpy(ROI_values, opj_optarg, strlen(opj_optarg));
287                                 ROI_values[strlen(opj_optarg)] = '\0';
288                                 /*printf("ROI_values = %s [%d / %d]\n", ROI_values, strlen(ROI_values), size_optarg ); */
289                                 parse_DA_values( ROI_values, &parameters->DA_x0, &parameters->DA_y0, &parameters->DA_x1, &parameters->DA_y1);
290                         }
291                         break;
292                         /* ----------------------------------------------------- */
293
294                         case 'v':               /* Verbose mode */
295                         {
296                                 parameters->m_verbose = 1;
297                         }
298                         break;
299                         
300                                 /* ----------------------------------------------------- */
301                         default:
302                                 fprintf(stderr,"WARNING -> this option is not valid \"-%c %s\"\n",c, opj_optarg);
303                                 break;
304                 }
305         }while(c != -1);
306
307         /* check for possible errors */
308         if(img_fol->set_imgdir==1){
309                 if(!(parameters->infile[0]==0)){
310                         fprintf(stderr, "Error: options -ImgDir and -i cannot be used together !!\n");
311                         return 1;
312                 }
313                 if(img_fol->set_out_format == 0){
314                         fprintf(stderr, "Error: When -ImgDir is used, -OutFor <FORMAT> must be used !!\n");
315                         fprintf(stderr, "Only one format allowed! Valid format PGM, PPM, PNM, PGX, BMP, TIF, RAW and TGA!!\n");
316                         return 1;
317                 }
318                 if(!((parameters->outfile[0] == 0))){
319                         fprintf(stderr, "Error: options -ImgDir and -o cannot be used together !!\n");
320                         return 1;
321                 }
322         }else{
323                 if((parameters->infile[0] == 0) ) {
324                         fprintf(stderr, "Example: %s -i image.j2k\n",argv[0]);
325                         fprintf(stderr, "    Try: %s -h\n",argv[0]);
326                         return 1;
327                 }
328         }
329
330         return 0;
331 }
332
333 /* -------------------------------------------------------------------------- */
334 /**
335  * Parse decoding area input values
336  * separator = ","
337  */
338 /* -------------------------------------------------------------------------- */
339 int parse_DA_values( char* inArg, unsigned int *DA_x0, unsigned int *DA_y0, unsigned int *DA_x1, unsigned int *DA_y1)
340 {
341         int it = 0;
342         int values[4];
343         char delims[] = ",";
344         char *result = NULL;
345         result = strtok( inArg, delims );
346
347         while( (result != NULL) && (it < 4 ) ) {
348                 values[it] = atoi(result);
349                 result = strtok( NULL, delims );
350                 it++;
351         }
352
353         if (it != 4) {
354                 return EXIT_FAILURE;
355         }
356         else{
357                 *DA_x0 = values[0]; *DA_y0 = values[1];
358                 *DA_x1 = values[2]; *DA_y1 = values[3];
359                 return EXIT_SUCCESS;
360         }
361 }
362
363
364 /* -------------------------------------------------------------------------- */
365 /**
366  * J2K_DUMP MAIN
367  */
368 /* -------------------------------------------------------------------------- */
369 int main(int argc, char *argv[])
370 {
371         FILE *fsrc = NULL, *fout = NULL;
372
373         opj_dparameters_t parameters;                   /* Decompression parameters */
374         opj_event_mgr_t event_mgr;                              /* Event manager */
375         opj_image_t* image = NULL;                                      /* Image structure */
376         opj_codec_t* dinfo = NULL;                              /* Handle to a decompressor */
377         opj_stream_t *cio = NULL;                               /* Stream */
378         opj_codestream_info_v2_t* cstr_info = NULL;
379         opj_codestream_index_t* cstr_index = NULL;
380
381         OPJ_INT32 num_images, imageno;
382         img_fol_t img_fol;
383         dircnt_t *dirptr = NULL;
384
385 #ifdef MSD
386         opj_bool l_go_on = OPJ_TRUE;
387         OPJ_UINT32 l_max_data_size = 1000;
388         OPJ_BYTE * l_data = (OPJ_BYTE *) malloc(1000);
389 #endif
390
391         /* Set decoding parameters to default values */
392         opj_set_default_decoder_parameters(&parameters);
393
394         /* Initialize img_fol */
395         memset(&img_fol,0,sizeof(img_fol_t));
396
397         /* Parse input and get user encoding parameters */
398         if(parse_cmdline_decoder(argc, argv, &parameters,&img_fol) == 1) {
399                 return EXIT_FAILURE;
400         }
401
402         /* Set default event mgr */
403         opj_initialize_default_event_handler(&event_mgr, parameters.m_verbose);
404
405         /* Initialize reading of directory */
406         if(img_fol.set_imgdir==1){      
407                 int it_image;
408                 num_images=get_num_images(img_fol.imgdirpath);
409
410                 dirptr=(dircnt_t*)malloc(sizeof(dircnt_t));
411                 if(dirptr){
412                         dirptr->filename_buf = (char*)malloc(num_images*OPJ_PATH_LEN*sizeof(char));     /* Stores at max 10 image file names */
413                         dirptr->filename = (char**) malloc(num_images*sizeof(char*));
414
415                         if(!dirptr->filename_buf){
416                                 return EXIT_FAILURE;
417                         }
418
419                         for(it_image=0;it_image<num_images;it_image++){
420                                 dirptr->filename[it_image] = dirptr->filename_buf + it_image*OPJ_PATH_LEN;
421                         }
422                 }
423                 if(load_images(dirptr,img_fol.imgdirpath)==1){
424                         return EXIT_FAILURE;
425                 }
426
427                 if (num_images==0){
428                         fprintf(stdout,"Folder is empty\n");
429                         return EXIT_FAILURE;
430                 }
431         }else{
432                 num_images=1;
433         }
434
435         /* Try to open for writing the output file if necessary */
436         if (parameters.outfile[0] != 0){
437                 fout = fopen(parameters.outfile,"w");
438                 if (!fout){
439                         fprintf(stderr, "ERROR -> failed to open %s for writing\n", parameters.outfile);
440                         return EXIT_FAILURE;
441                 }
442         }
443         else
444                 fout = stdout;
445
446         /* Read the header of each image one by one */
447         for(imageno = 0; imageno < num_images ; imageno++){
448
449                 fprintf(stderr,"\n");
450
451                 if(img_fol.set_imgdir==1){
452                         if (get_next_file(imageno, dirptr,&img_fol, &parameters)) {
453                                 fprintf(stderr,"skipping file...\n");
454                                 continue;
455                         }
456                 }
457
458                 /* Read the input file and put it in memory */
459                 /* ---------------------------------------- */
460                 fsrc = fopen(parameters.infile, "rb");
461                 if (!fsrc) {
462                         fprintf(stderr, "ERROR -> failed to open %s for reading\n", parameters.infile);
463                         return EXIT_FAILURE;
464                 }
465
466                 cio = opj_stream_create_default_file_stream(fsrc,1);
467                 if (!cio){
468                         fclose(fsrc);
469                         fprintf(stderr, "ERROR -> failed to create the stream from the file\n");
470                         return EXIT_FAILURE;
471                 }
472
473                 /* Read the JPEG2000 stream */
474                 /* ------------------------ */
475
476                 switch(parameters.decod_format) {
477                         case J2K_CFMT:  /* JPEG-2000 codestream */
478                         {
479                                 /* Get a decoder handle */
480                                 dinfo = opj_create_decompress_v2(CODEC_J2K);
481                                 break;
482                         }
483                         case JP2_CFMT:  /* JPEG 2000 compressed image data */
484                         {
485                                 /* Get a decoder handle */
486                                 dinfo = opj_create_decompress_v2(CODEC_JP2);
487                                 break;
488                         }
489                         case JPT_CFMT:  /* JPEG 2000, JPIP */
490                         {
491                                 /* Get a decoder handle */
492                                 dinfo = opj_create_decompress_v2(CODEC_JPT);
493                                 break;
494                         }
495                         default:
496                                 fprintf(stderr, "skipping file..\n");
497                                 opj_stream_destroy(cio);
498                                 continue;
499                 }
500
501                 /* Setup the decoder decoding parameters using user parameters */
502                 if ( !opj_setup_decoder_v2(dinfo, &parameters, &event_mgr) ){
503                         fprintf(stderr, "ERROR -> j2k_dump: failed to setup the decoder\n");
504                         opj_stream_destroy(cio);
505                         fclose(fsrc);
506                         opj_destroy_codec(dinfo);
507                         fclose(fout);
508                         return EXIT_FAILURE;
509                 }
510
511                 /* Read the main header of the codestream and if necessary the JP2 boxes*/
512                 if(! opj_read_header(cio, dinfo, &image)){
513                         fprintf(stderr, "ERROR -> j2k_dump: failed to read the header\n");
514                         opj_stream_destroy(cio);
515                         fclose(fsrc);
516                         opj_destroy_codec(dinfo);
517                         opj_image_destroy(image);
518                         fclose(fout);
519                         return EXIT_FAILURE;
520                 }
521
522                 opj_dump_codec(dinfo, OPJ_IMG_INFO | OPJ_J2K_MH_INFO | OPJ_J2K_MH_IND, fout );
523
524                 cstr_info = opj_get_cstr_info(dinfo);
525
526                 cstr_index = opj_get_cstr_index(dinfo);
527
528 #ifdef MSD
529                 fprintf(stdout,"Setting decoding area to %d,%d,%d,%d\n",
530                                 parameters.DA_x0, parameters.DA_y0, parameters.DA_x1, parameters.DA_y1);
531
532
533                 /* FIXME WIP_MSD <*/
534                 if (! opj_set_decode_area(      dinfo,
535                                                                         parameters.DA_x0, parameters.DA_y0,
536                                                                         parameters.DA_x1, parameters.DA_y1)){
537                         fprintf(stderr, "ERROR -> j2k_dump: failed to set the decoded area\n");
538                         opj_stream_destroy(cio);
539                         opj_destroy_codec(dinfo);
540                         fclose(fsrc);
541                         fclose(fout);
542                         return EXIT_FAILURE;
543                 }
544
545                 while (l_go_on) {
546                         OPJ_INT32 l_current_tile_x0,l_current_tile_y0,l_current_tile_x1,l_current_tile_y1;
547                         OPJ_UINT32 l_nb_comps, l_tile_index, l_data_size;
548
549
550                         if (! opj_read_tile_header(     dinfo,
551                                                                                 cio,
552                                                                                 &l_tile_index,
553                                                                                 &l_data_size,
554                                                                                 &l_current_tile_x0,
555                                                                                 &l_current_tile_y0,
556                                                                                 &l_current_tile_x1,
557                                                                                 &l_current_tile_y1,
558                                                                                 &l_nb_comps,
559                                                                                 &l_go_on
560                                                                                 )) {
561                                 fprintf(stderr, "ERROR -> j2k_dump: failed read the tile header\n");
562                                 opj_stream_destroy(cio);
563                                 fclose(fsrc);
564                                 opj_destroy_codec(dinfo);
565                                 return EXIT_FAILURE;
566                         }
567
568                         if (l_go_on) {
569
570                                 if (l_data_size > l_max_data_size) {
571
572                                         l_data = (OPJ_BYTE *) realloc(l_data,l_data_size);
573                                         if (! l_data) {
574                                                 opj_stream_destroy(cio);
575                                                 opj_destroy_codec(dinfo);
576                                                 fclose(fsrc);
577                                                 fclose(fout);
578                                                 return EXIT_FAILURE;
579                                         }
580
581                                         l_max_data_size = l_data_size;
582                                 }
583
584                                 if (! opj_decode_tile_data(dinfo,l_tile_index,l_data,l_data_size,cio))
585                                 {
586                                         free(l_data);
587                                         opj_stream_destroy(cio);
588                                         opj_destroy_codec(dinfo);
589                                         fclose(fsrc);
590                                         fclose(fout);
591                                         return EXIT_FAILURE;
592                                 }
593                                 /** now should inspect image to know the reduction factor and then how to behave with data */
594                         }
595                 }
596                 /* FIXME WIP_MSD >*/
597 #endif
598
599                 /* close the byte stream */
600                 opj_stream_destroy(cio);
601                 fclose(fsrc);
602
603                 /* free remaining structures */
604                 if (dinfo) {
605                         opj_destroy_codec(dinfo);
606                 }
607
608                 /* destroy the image header */
609                 opj_image_destroy(image);
610
611                 /* destroy the codestream index */
612                 opj_destroy_cstr_index(&cstr_index);
613
614                 /* destroy the codestream info */
615                 opj_destroy_cstr_info_v2(&cstr_info);
616
617         }
618
619         /* Close the output file */
620         fclose(fout);
621
622   return EXIT_SUCCESS;
623 }