xref: /openbmc/u-boot/disk/part_iso.c (revision ae28a5f8)
1 // SPDX-License-Identifier: GPL-2.0+
2 /*
3  * (C) Copyright 2001
4  * Denis Peter, MPL AG Switzerland, d.peter@mpl.ch.
5  */
6 
7 #include <common.h>
8 #include <command.h>
9 #include <asm/unaligned.h>
10 #include "part_iso.h"
11 
12 #ifdef CONFIG_HAVE_BLOCK_DEVICE
13 
14 /* #define	ISO_PART_DEBUG */
15 
16 #ifdef	ISO_PART_DEBUG
17 #define	PRINTF(fmt,args...)	printf (fmt ,##args)
18 #else
19 #define PRINTF(fmt,args...)
20 #endif
21 
22 /* enable this if CDs are written with the PowerPC Platform ID */
23 #undef CHECK_FOR_POWERPC_PLATTFORM
24 #define CD_SECTSIZE 2048
25 
26 static unsigned char tmpbuf[CD_SECTSIZE] __aligned(ARCH_DMA_MINALIGN);
27 
28 unsigned long iso_dread(struct blk_desc *block_dev, lbaint_t start,
29                         lbaint_t blkcnt, void *buffer)
30 {
31 	unsigned long ret;
32 
33 	if (block_dev->blksz == 512) {
34 		/* Convert from 2048 to 512 sector size */
35 		start *= 4;
36 		blkcnt *= 4;
37 	}
38 
39 	ret = blk_dread(block_dev, start, blkcnt, buffer);
40 
41 	if (block_dev->blksz == 512)
42 		ret /= 4;
43 
44 	return ret;
45 }
46 
47 /* only boot records will be listed as valid partitions */
48 int part_get_info_iso_verb(struct blk_desc *dev_desc, int part_num,
49 			   disk_partition_t *info, int verb)
50 {
51 	int i,offset,entry_num;
52 	unsigned short *chksumbuf;
53 	unsigned short chksum;
54 	unsigned long newblkaddr,blkaddr,lastsect,bootaddr;
55 	iso_boot_rec_t *pbr = (iso_boot_rec_t	*)tmpbuf; /* boot record */
56 	iso_pri_rec_t *ppr = (iso_pri_rec_t	*)tmpbuf;	/* primary desc */
57 	iso_val_entry_t *pve = (iso_val_entry_t *)tmpbuf;
58 	iso_init_def_entry_t *pide;
59 
60 	if ((dev_desc->blksz != CD_SECTSIZE) && (dev_desc->blksz != 512))
61 		return -1;
62 
63 	/* the first sector (sector 0x10) must be a primary volume desc */
64 	blkaddr=PVD_OFFSET;
65 	if (iso_dread(dev_desc, PVD_OFFSET, 1, (ulong *)tmpbuf) != 1)
66 		return -1;
67 	if(ppr->desctype!=0x01) {
68 		if(verb)
69 			printf ("** First descriptor is NOT a primary desc on %d:%d **\n",
70 				dev_desc->devnum, part_num);
71 		return (-1);
72 	}
73 	if(strncmp((char *)ppr->stand_ident,"CD001",5)!=0) {
74 		if(verb)
75 			printf ("** Wrong ISO Ident: %s on %d:%d **\n",
76 				ppr->stand_ident, dev_desc->devnum, part_num);
77 		return (-1);
78 	}
79 	lastsect = le32_to_cpu(ppr->firstsek_LEpathtab1_LE);
80 	/* assuming same block size for all entries */
81 	info->blksz = be16_to_cpu(ppr->secsize_BE);
82 	PRINTF(" Lastsect:%08lx\n",lastsect);
83 	for(i=blkaddr;i<lastsect;i++) {
84 		PRINTF("Reading block %d\n", i);
85 		if (iso_dread(dev_desc, i, 1, (ulong *)tmpbuf) != 1)
86 			return -1;
87 		if(ppr->desctype==0x00)
88 			break; /* boot entry found */
89 		if(ppr->desctype==0xff) {
90 			if(verb)
91 				printf ("** No valid boot catalog found on %d:%d **\n",
92 					dev_desc->devnum, part_num);
93 			return (-1);
94 		}
95 	}
96 	/* boot entry found */
97 	if(strncmp(pbr->ident_str,"EL TORITO SPECIFICATION",23)!=0) {
98 		if(verb)
99 			printf ("** Wrong El Torito ident: %s on %d:%d **\n",
100 				pbr->ident_str, dev_desc->devnum, part_num);
101 		return (-1);
102 	}
103 	bootaddr = get_unaligned_le32(pbr->pointer);
104 	PRINTF(" Boot Entry at: %08lX\n",bootaddr);
105 	if (iso_dread(dev_desc, bootaddr, 1, (ulong *)tmpbuf) != 1) {
106 		if(verb)
107 			printf ("** Can't read Boot Entry at %lX on %d:%d **\n",
108 				bootaddr, dev_desc->devnum, part_num);
109 		return (-1);
110 	}
111 	chksum=0;
112 	chksumbuf = (unsigned short *)tmpbuf;
113 	for(i=0;i<0x10;i++)
114 		chksum += le16_to_cpu(chksumbuf[i]);
115 	if(chksum!=0) {
116 		if(verb)
117 			printf("** Checksum Error in booting catalog validation entry on %d:%d **\n",
118 			       dev_desc->devnum, part_num);
119 		return (-1);
120 	}
121 	if((pve->key[0]!=0x55)||(pve->key[1]!=0xAA)) {
122 		if(verb)
123 			printf ("** Key 0x55 0xAA error on %d:%d **\n",
124 				dev_desc->devnum, part_num);
125 		return(-1);
126 	}
127 #ifdef CHECK_FOR_POWERPC_PLATTFORM
128 	if(pve->platform!=0x01) {
129 		if(verb)
130 			printf ("** No PowerPC platform CD on %d:%d **\n",
131 				dev_desc->devnum, part_num);
132 		return(-1);
133 	}
134 #endif
135 	/* the validation entry seems to be ok, now search the "partition" */
136 	entry_num=1;
137 	offset=0x20;
138 	strcpy((char *)info->type, "U-Boot");
139 	part_set_generic_name(dev_desc, part_num, (char *)info->name);
140 	/* the bootcatalog (including validation Entry) is limited to 2048Bytes
141 	 * (63 boot entries + validation entry) */
142 	 while(offset<2048) {
143 		pide=(iso_init_def_entry_t *)&tmpbuf[offset];
144 		if ((pide->boot_ind==0x88) ||
145 		    (pide->boot_ind==0x00)) { /* Header Id for default Sections Entries */
146 			if(entry_num==part_num) { /* part found */
147 				goto found;
148 			}
149 			entry_num++; /* count partitions Entries (boot and non bootables */
150 			offset+=0x20;
151 			continue;
152 		}
153 		if ((pide->boot_ind==0x90) ||	/* Section Header Entry */
154 		    (pide->boot_ind==0x91) ||	/* Section Header Entry (last) */
155 		    (pide->boot_ind==0x44)) {	/* Extension Indicator */
156 			offset+=0x20; /* skip unused entries */
157 		}
158 		else {
159 			if(verb)
160 				printf ("** Partition %d not found on device %d **\n",
161 					part_num, dev_desc->devnum);
162 			return(-1);
163 		}
164 	}
165 	/* if we reach this point entire sector has been
166 	 * searched w/o succsess */
167 	if(verb)
168 		printf ("** Partition %d not found on device %d **\n",
169 			part_num, dev_desc->devnum);
170 	return(-1);
171 found:
172 	if(pide->boot_ind!=0x88) {
173 		if(verb)
174 			printf("** Partition %d is not bootable on device %d **\n",
175 			       part_num, dev_desc->devnum);
176 		return (-1);
177 	}
178 	switch(pide->boot_media) {
179 		case 0x00: /* no emulation */
180 			info->size = get_unaligned_le16(pide->sec_cnt)>>2;
181 			break;
182 		case 0x01:	info->size=2400>>2; break; /* 1.2MByte Floppy */
183 		case 0x02:	info->size=2880>>2; break; /* 1.44MByte Floppy */
184 		case 0x03:	info->size=5760>>2; break; /* 2.88MByte Floppy */
185 		case 0x04:	info->size=2880>>2; break; /* dummy (HD Emulation) */
186 		default:	info->size=0; break;
187 	}
188 	newblkaddr = get_unaligned_le32(pide->rel_block_addr);
189 	info->start=newblkaddr;
190 
191 	if (dev_desc->blksz == 512) {
192 		info->size *= 4;
193 		info->start *= 4;
194 		info->blksz = 512;
195 	}
196 
197 	PRINTF(" part %d found @ %lx size %lx\n",part_num,info->start,info->size);
198 	return 0;
199 }
200 
201 static int part_get_info_iso(struct blk_desc *dev_desc, int part_num,
202 				  disk_partition_t *info)
203 {
204 	return part_get_info_iso_verb(dev_desc, part_num, info, 0);
205 }
206 
207 static void part_print_iso(struct blk_desc *dev_desc)
208 {
209 	disk_partition_t info;
210 	int i;
211 
212 	if (part_get_info_iso_verb(dev_desc, 1, &info, 0) == -1) {
213 		printf("** No boot partition found on device %d **\n",
214 		       dev_desc->devnum);
215 		return;
216 	}
217 	printf("Part   Start     Sect x Size Type\n");
218 	i=1;
219 	do {
220 		printf(" %2d " LBAFU " " LBAFU " %6ld %.32s\n",
221 		       i, info.start, info.size, info.blksz, info.type);
222 		i++;
223 	} while (part_get_info_iso_verb(dev_desc, i, &info, 0) != -1);
224 }
225 
226 static int part_test_iso(struct blk_desc *dev_desc)
227 {
228 	disk_partition_t info;
229 
230 	return part_get_info_iso_verb(dev_desc, 1, &info, 0);
231 }
232 
233 U_BOOT_PART_TYPE(iso) = {
234 	.name		= "ISO",
235 	.part_type	= PART_TYPE_ISO,
236 	.max_entries	= ISO_ENTRY_NUMBERS,
237 	.get_info	= part_get_info_iso,
238 	.print		= part_print_iso,
239 	.test		= part_test_iso,
240 };
241 #endif
242