/* Cel 3d Loader - october.97 - par Sylvain Huet
*/

typedef Anchor=objAnchor [H3d HMat3d S I] | posAnchor [S [I I I] [I I I]];;
typeof anchors=[[S [Anchor r1]] r1];;

struct File3d=
 [nameFile3d:S,posFile3d:[[I I I][I I I]],
  objFile3d:[[S S] r1],pickFile3d:[[S [I I I][I I I]] r1],obbFile3d:[S r1],
  linkFile3d:[[S S S I Anchor] r1], matFile3d:[[S S] r1], transmatFile3d:[[S I] r1],
  nolightFile3d:[S r1],scaleFile3d:[[S I] r1]
 ]mkFile3d;;

struct Cel3d=
 [nameCel3d:S,backCel3d:I,clipCel3d:I,fogCel3d:I,focalCel3d:F,bufCel3d:I,
  iposCel3d:[[S [I I I] [I I I]]r1],anchCel3d:[[S [S r1]]r1],
  filesCel3d:[File3d r1],colCel3d:[S I I],gravCel3d:I,
  lightCel3d:[S [I I I] [I I I]],dummiesCel3d:[[S [I I I] [I I I] [[S S S I Anchor] r1]]r1],
  darkbaseCel3d:S
 ]mkCel3d;;

var defaultAv="default";;

fun anchbyn(x,n)=let x->[a _] in !strcmp a n;;

/* parsing routines */

fun searchpoint(s)=
 let strlen s->l in
 let 0-> i in
  (while i<l && (nth_char s i)!='. do set i=i+1;
   i);;

var linktype=0;;
proto setspeed=fun[I] I;;

fun Cel3dLoader(l,b)=
 let hd l -> s in
 if s==nil then nil
 else let sizelist l -> sz in
 if (!strcmp s "ipos") && sz>=8 then
  let [nth_list l 1
     [atoi nth_list l 2 atoi nth_list l 3 atoi nth_list l 4]
     [atoi nth_list l 5 atoi nth_list l 6 atoi nth_list l 7 ]]->p in
  (set b.iposCel3d=p::b.iposCel3d;
   set anchors=[nth_list l 1 (posAnchor p)::nil]::anchors;
   0)
 else if (!strcmp s "anchor") && sz>=3 then
  (set b.anchCel3d=[nth_list l 1 tl tl l]::b.anchCel3d;
   0)
 else if (!strcmp s "link") && sz>=3 then
  let nth_list l 2-> obj in
  let searchpoint obj -> i in
  let atoi nth_list l 3 -> k in
  let objAnchor [nil nil nth_list l 1 k]-> a in
  (if linktype
   then
   let hd b.dummiesCel3d -> f in
    (let f->[_ _ _ x] in mutate f<-[_ _ _ [nth_list l 1 substr obj 0 i substr obj i+1 1000 k a]::x];
     nil)
   else
   let hd b.filesCel3d -> f in
    set f.linkFile3d=[nth_list l 1 substr obj 0 i substr obj i+1 1000 k a]::f.linkFile3d;
   set anchors=[nth_list l 1 a::nil]::anchors;
   0)
 else if (!strcmp s "m3d") && sz==2 then
  (set b.filesCel3d=(mkFile3d [nth_list l 1 nil nil nil nil nil nil nil nil nil])::b.filesCel3d;
   set linktype=0;
   0)
 else if (!strcmp s "m3d") && sz>=8 then
  (set b.filesCel3d=(mkFile3d [nth_list l 1
    [[atoi nth_list l 2 atoi nth_list l 3 atoi nth_list l 4]
    [atoi nth_list l 5 atoi nth_list l 6 atoi nth_list l 7 ]] nil nil nil nil nil nil nil nil])::b.filesCel3d;
   0)
 else if (!strcmp s "obj") && sz>=8 then
  (let hd b.filesCel3d-> f in
   set f.pickFile3d=[nth_list l 1
    [atoi nth_list l 2 atoi nth_list l 3 atoi nth_list l 4]
    [atoi nth_list l 5 atoi nth_list l 6 atoi nth_list l 7 ]]::f.pickFile3d;
   0)
 else if (!strcmp s "Obb") then
  (let hd b.filesCel3d-> f in
   let hd f.pickFile3d ->[n _ _] in
   set f.obbFile3d= n::f.obbFile3d;
   0)
 else if (!strcmp s "Scale") then
  (let hd b.filesCel3d-> f in
   let hd f.pickFile3d ->[n _ _] in
   set f.scaleFile3d= [n atoi nth_list l 1]::f.scaleFile3d;
   0)
 else if (!strcmp s "ren_mat") && sz>=3 then
  (let hd b.filesCel3d -> f in
   set f.matFile3d=[nth_list l 1 nth_list l 2]::f.matFile3d;
   0)
 else if (!strcmp s "texture") && sz>=3 then
  (let hd b.filesCel3d -> f in
   set f.matFile3d=[nth_list l 1 strcat "/" nth_list l 2]::f.matFile3d;
   0)
 else if (!strcmp s "nolight") && sz>=2 then
  (let hd b.filesCel3d -> f in
   set f.nolightFile3d=(nth_list l 1)::f.nolightFile3d;
   0)
 else if (!strcmp s "transparency") && sz>=3 then
  (let hd b.filesCel3d -> f in
   set f.transmatFile3d=[nth_list l 1 atoi nth_list l 2]::f.transmatFile3d;
   0)
 else if (!strcmp s "ren_obj") && sz>=3 then
  (let hd b.filesCel3d -> f in
   set f.objFile3d=[nth_list l 1 nth_list l 2]::f.objFile3d;
   0)
 else if (!strcmp s "name") && sz>=2 then
  (set b.nameCel3d=nth_list l 1;
   0)
 else if (!strcmp s "background") && sz>=2 then
  (set b.backCel3d=htoi nth_list l 1;
   0)
 else if (!strcmp s "backclip") && sz>=2 then
  (set b.clipCel3d=atoi nth_list l 1;
   set b.fogCel3d=atoi nth_list l 2;
   0)
 else if (!strcmp s "focal") && sz>=2 then
  (set b.focalCel3d=atof nth_list l 1;
   0)
 else if (!strcmp s "speed") && sz>=2 then
  (setspeed atoi nth_list l 1;
   0)
 else if (!strcmp s "buffersize") && sz>=2 then
  (set b.bufCel3d=atoi nth_list l 1;
   0)
 else if (!strcmp s "inbox") && sz>=4 then
  (set b.colCel3d=[nth_list l 1 atoi nth_list l 2 atoi nth_list l 3];
   0)
 else if (!strcmp s "gravity") && sz>=2 then
  (set b.gravCel3d=atoi nth_list l 1;
   0)
 else if (!strcmp s "light") && (sizelist l)>=8 then
  (set b.lightCel3d=[nth_list l 1
    [atoi nth_list l 2 atoi nth_list l 3 atoi nth_list l 4]
    [atoi nth_list l 5 atoi nth_list l 6 atoi nth_list l 7]];
   0)
 else if (!strcmp s "dummy") && (sizelist l)>=8 then
  (set b.dummiesCel3d=[nth_list l 1
    [atoi nth_list l 2 atoi nth_list l 3 atoi nth_list l 4]
    [atoi nth_list l 5 atoi nth_list l 6 atoi nth_list l 7] nil]::b.dummiesCel3d;
   set linktype=1;
   0)
 else if (!strcmp s "darkbase") then
  (set b.darkbaseCel3d=nth_list l 1;
   0)
 else if (!strcmp s "defaultAvatar") then
  (set defaultAv=nth_list l 1;
   0)
 else nil;;

fun _Cel3dLoader(s)=
 let mkCel3d [nil nil nil nil nil nil nil nil nil nil nil nil nil nil] -> b in
 (apply_on_list s @Cel3dLoader b;
  b);;