コーディングをオリジナルコードに合わせました

Author: n-isaka

cobc/codegen.c

@@ -4360,7 +4360,7 @@ output_internal_function (struct cb_program *prog, cb_tree parameter_list)
 				prog->program_id);
 		}
 	}
-	output_line("cob_set_programid(&module, \"%s\");", prog->program_id);
+	output_line ("cob_set_programid(&module, \"%s\");", prog->program_id);
 	if (prog->decimal_index_max) {
 		output_line ("/* Initialize decimal numbers */");
 		for (i = 0; i < prog->decimal_index_max; i++) {

libcob/common.c

@@ -2659,14 +2659,15 @@ cob_acuw_justify (unsigned char *data, ...)
 }
 
 void
-cob_set_programid(struct cob_module *module, const char *program_name){
+cob_set_programid (struct cob_module *module, const char *program_name)
+{
 	int length;
-	length = strlen(program_name);
-	if (module->program_id != NULL){
-		free(module->program_id);
+	length = strlen (program_name);
+	if (module->program_id != NULL) {
+		free (module->program_id);
 	}
-	module->program_id = cob_malloc((const size_t)length+1);
-	strcpy(module->program_id, program_name);
+	module->program_id = cob_malloc ((const size_t) length+1);
+	strcpy (module->program_id, program_name);
 }
 
 int
@@ -2676,23 +2677,23 @@ cob_acuw_calledby (unsigned char *data)
 	cob_field *f1;
 	char *called_program_name;
 
-	COB_CHK_PARMS(C$CALLEDBY, 1);
+	COB_CHK_PARMS (C$CALLEDBY, 1);
 
 	if (cob_current_module->cob_procedure_parameters[0]) {
 		f1 = cob_current_module->cob_procedure_parameters[0];
 		if (cob_current_module->next == NULL){
-			memset(f1->data, ' ', (int)f1->size);
+			memset (f1->data, ' ', (int)f1->size);
 			return 0;
 		}else{
 			called_program_name = (const char *)cob_current_module->next->program_id;
 			if (called_program_name == NULL){
 				return -1;
 			}
 			length = (int)f1->size;
-			if (strlen(called_program_name) < length){
-				length = strlen(called_program_name);
+			if (strlen (called_program_name) < length){
+				length = strlen (called_program_name);
 			}
-			memcpy(f1->data, called_program_name, length);
+			memcpy (f1->data, called_program_name, length);
 		}
 	}
 	return 1;

libcob/common.h

@@ -351,7 +351,7 @@ struct cob_module {
 	const unsigned char		flag_binary_truncate;
 	const unsigned char		flag_pretty_display;
 	const unsigned char		spare8;
-	char				*program_id;
+	char			*program_id;
 };
 
 /*******************************/
@@ -462,7 +462,7 @@ COB_EXPIMP void		cob_ready_trace		(void);
 COB_EXPIMP void		cob_reset_trace		(void);
 
 COB_EXPIMP void		cob_set_programid	(struct cob_module *,
-						const char *);
+						 const char *);
 
 /* Switch */