home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / utility / wnx1091 / bin2c.c next >
Encoding:
C/C++ Source or Header  |  1991-10-20  |  11.7 KB  |  568 lines
  1. /*********************************************************************/
  2. /* SAMPLE .WNX APPLICATION SKELETON */
  3. /*    portions borrowed from: */
  4. /*    started 5/28/85 R.Z.   Copyright ATARI Corp. 1985 */
  5. /*********************************************************************/
  6. /*********************************************************************/
  7. /* INCLUDE FILES */
  8. /*********************************************************************/
  9. #include <stdio.h>
  10. #include <obdefs.h>
  11. #include <gemdefs.h>
  12. #include <osbind.h>
  13. #include <xesblk.h>
  14. #include <xesdefs.h>
  15. /*********************************************************************/
  16. /* DEFINES */
  17. /*********************************************************************/
  18. #define TRUE 1
  19. #define FALSE 0
  20.  
  21. #define    ACCNAME    "  File Converter "
  22.  
  23. #define WI_KIND        (SIZER|MOVER|FULLER|CLOSER|NAME)
  24.  
  25. #define NO_WINDOW (-1)
  26.  
  27. #define MIN_WIDTH  (2*gl_wbox)
  28. #define MIN_HEIGHT (3*gl_hbox)
  29.  
  30. /*********************************************************************/
  31. /* EXTERNALS                                    */
  32. /*********************************************************************/
  33.  
  34. extern int    gl_apid,_app,errno;
  35. extern long    base,stksize,stack;
  36.  
  37. extern struct __c {
  38.     int *cb_pcontrol;
  39.     int *cb_pglobal;
  40.     int *cb_pintin;
  41.     int *cb_pintout;
  42.     long *cb_padrin;
  43.     long *cb_padrout;
  44. } _c, *_ad_c;
  45.  
  46. extern int control[], global[]; 
  47. extern int_in[], int_out[];
  48. extern long addr_in[], addr_out[];
  49.  
  50. /*********************************************************************/
  51. /* GLOBAL VARIABLES                                */
  52. /*********************************************************************/
  53.  
  54. long    oldstack;
  55.  
  56. int    gl_hchar;
  57. int    gl_wchar;
  58. int    gl_wbox;
  59. int    gl_hbox;    /* system sizes */
  60.  
  61. int     phys_handle;    /* physical workstation handle */
  62. int     handle;        /* virtual workstation handle */
  63. int        wi_handle;    /* window handle */
  64. int        top_window;    /* handle of topped window */
  65.  
  66. int    xdesk,ydesk,hdesk,wdesk;
  67. int    xold,yold,hold,wold;
  68. int    xwork,ywork,hwork,wwork;    /* desktop and work areas */
  69.  
  70. int    msgbuff[8];    /* event message buffer */
  71. int    keycode;    /* keycode returned by event-keyboard */
  72. int    mx,my;        /* mouse x and y pos. */
  73. int    butdown;    /* button state tested for, UP/DOWN */
  74. int    ret;        /* dummy return variable */
  75.  
  76. int    hidden;        /* current state of cursor */
  77.  
  78. int    fulled;        /* current state of window */
  79.  
  80. int    contrl[12];
  81. int    intin[128];
  82. int    ptsin[128];
  83. int    intout[128];
  84. int    ptsout[128];    /* storage wasted for idiotic bindings */
  85.  
  86. int work_in[11];    /* Input to GSX parameter array */
  87. int work_out[57];    /* Output from GSX parameter array */
  88. int pxyarray[10];    /* input point array */
  89.  
  90. int    menu_id;
  91.  
  92. xesparmblk    xparmblk;
  93.  
  94. int    current_type=0;    /* Defaults to C code    */
  95.  
  96. OBJECT    *treeptr;
  97.  
  98. typedef    struct{
  99.         char    dta_res[21];
  100.         char    dta_attrib[1];
  101.         int        dta_time[1];
  102.         int        dta_date[1];
  103.         long    dta_size[1];
  104.         char    dta_name[14];
  105. }newdta;
  106.  
  107. #include    "D:\\WNX_DEV\\WERCS\\CONVERT.H"
  108. #include    "D:\\WNX_DEV\\WERCS\\CONVERT.C"
  109.  
  110. void    wnx_button()
  111. {
  112.         /* Finds out what was clicked on and does what's necessary */
  113.         xes_xformdo(-1,treeptr,xparmblk.WNX_out[5],&xparmblk);
  114.         
  115.         switch(xparmblk.WNX_out[5]){
  116.             case    _C:    {
  117.                 current_type=0;
  118.                 break;
  119.             }
  120.             
  121.             case    _devpac:    {
  122.                 current_type=1;
  123.                 break;
  124.             }
  125.             
  126.             case    _list:    {
  127.                 current_type=2;
  128.                 break;
  129.             }
  130.             
  131.             case    convertit:    {
  132.                     program();
  133.                     treeptr[convertit].ob_state &= ~SELECTED;
  134.                     xes_draw(convertit,1,&xparmblk);
  135.                     break;
  136.             }
  137.         }
  138. }
  139.  
  140. open_vwork()
  141. {
  142. int i;
  143.     for(i=0;i<10;work_in[i++]=1);
  144.     work_in[10]=2;
  145.     handle=phys_handle;
  146.     v_opnvwk(work_in,&handle,work_out);
  147. }
  148.  
  149.  
  150. void prg_acc_startup()
  151. {
  152.         appl_init();
  153.         phys_handle=graf_handle(&gl_wchar,&gl_hchar,&gl_wbox,&gl_hbox);
  154.         open_vwork();
  155. }    
  156.  
  157.  
  158. multi()
  159. {
  160.     int event;
  161.  
  162.       while (TRUE) {
  163.   
  164.           /*    currently only messages... could change this to an
  165.                   evnt_mesag call, but I like to keep it open... */
  166.                 event = evnt_multi(MU_MESAG,
  167.                 1,1,1,
  168.                 0,0,0,0,0,
  169.                 0,0,0,0,0,
  170.                 msgbuff,0,0,&mx,&my,&ret,&ret,&keycode,&ret);
  171.  
  172.                 switch(msgbuff[0]){
  173.                     case    AC_OPEN:
  174.                                 program();
  175.                                 break;
  176.                 }
  177.             }
  178. }
  179.  
  180.  
  181. fix_path_name(p_ptr,n_ptr,f_ptr)
  182.         register char    *p_ptr,*n_ptr,*f_ptr;
  183. {
  184.                 while    (*p_ptr)
  185.                     {
  186.                         *f_ptr=*p_ptr;
  187.                         ++f_ptr;
  188.                         ++p_ptr;
  189.                     }
  190.                     
  191.                 while    (*f_ptr!='\\')
  192.                     --f_ptr;
  193.                     
  194.                 ++f_ptr;
  195.                 
  196.                 while    (*n_ptr)
  197.                     {
  198.                         *f_ptr=*n_ptr;
  199.                         ++n_ptr;
  200.                         ++f_ptr;
  201.                     }
  202.         
  203.                 *f_ptr=0;
  204. }
  205.  
  206. stopme()
  207. {        
  208.         if    (_app==-1){
  209.             xparmblk.WNX_tcount=10;
  210.             xes_submit(&xparmblk);
  211.         }
  212. }
  213.  
  214. uc2str(in,begin1)
  215.     unsigned char *in,begin1[];
  216. {
  217.     int    i;
  218.     unsigned char    c[4];
  219.  
  220.         sprintf(c,"%d",*in);
  221.         strcat(begin1,c);
  222. }
  223.  
  224.  
  225. convert2C(f_name,name,size)
  226. char    *f_name;
  227. char    *name[14];
  228. long    size;
  229. {
  230.     char    *in;
  231.     char    filename[144],arrayname[11];
  232.     
  233.     if    (in=(char *)Malloc(size)){
  234.             /* Do the conversion here    */
  235.             int    i,j,inhandle,outhandle;
  236.             long    temp1,temp2,fseekptr=0;
  237.             char    begin1[80],begin2[80],begin3[80],begin4[80];
  238.             
  239.             inhandle    =    Fopen(f_name,0);
  240.             if    (inhandle<0)
  241.                 return    FALSE;
  242.             temp1    =    Fread(inhandle,size,in);
  243.             if    (temp1!=size)    return    FALSE;
  244.             Fclose(inhandle);            
  245.  
  246.             strcpy(filename,f_name);
  247.             
  248.             i=0;
  249.             while    (filename[i])
  250.                 i++;
  251.     
  252.             while    (filename[i]!='\\')
  253.                 i--;
  254.             
  255.             while (filename[i]!='.' & filename[i]!=0)
  256.                 i++;
  257.         
  258.             if    (filename[i+1]!='C' & (current_type==0)){
  259.                     filename[i+1]='C';
  260.                     filename[i+2]=0;
  261.             }
  262.             else if(filename[i+1]!='S' & (current_type==1)){
  263.                     filename[i+1]='S';
  264.                     filename[i+2]=0;
  265.             }
  266.             else{
  267.                     filename[i+1]='O';
  268.                     filename[i+2]='O';
  269.                     filename[i+3]='P';
  270.                     filename[i+4]=0;
  271.             }
  272.  
  273.  
  274.             outhandle    =    Fcreate(filename,0);
  275.  
  276.             if    (outhandle<0)
  277.                 return    FALSE;
  278.                                         
  279.             /* fix the array name up... */
  280.             strcpy(arrayname,name);
  281.             
  282.             i=0;
  283.             while (arrayname[i]!='.' & arrayname[i]!=0)
  284.                 i++;
  285.             
  286.             arrayname[i]=0;
  287.         
  288.             switch    (current_type){
  289.                 case    0:{
  290.                     /* C Declaration    */
  291.  
  292.                     strcpy(begin1,"/* This is a C code representation of the file:\n");
  293.                     
  294.                     strcpy(begin2,"   ");
  295.                     strcat(begin2,f_name);
  296.                     strcat(begin2,"\n");
  297.                     
  298.                     strcpy(begin3,"   ...as an array of unsigned character (bytes) */\n\n");
  299.                     
  300.                     strcpy(begin4,"unsigned char ");
  301.                     strcat(begin4,arrayname);
  302.                     strcat(begin4,"[] = {");
  303.                     
  304.                     break;
  305.                     }
  306.                 case    1:{
  307.                     /* Assembler (DevPac ST) */
  308.                 
  309.                     strcpy(begin1,"; This is an assembler representation of the file:\n");
  310.                     
  311.                     strcpy(begin2,"; ");
  312.                     strcat(begin2,f_name);
  313.                     strcat(begin2,"\n");
  314.                     
  315.                     strcpy(begin3,"; ...as an array of bytes.\n\n");
  316.                     
  317.                     strcpy(begin4,arrayname);
  318.                     strcat(begin4,":");
  319.                     
  320.                     break;
  321.                     }
  322.                 case    3:{
  323.                 
  324.                     begin1[0]=0;
  325.                     begin2[0]=0;
  326.                     begin3[0]=0;
  327.                     begin4[0]=0;
  328.                 
  329.                     break;
  330.                     }
  331.                 }
  332.  
  333.             temp2=(long)strlen(begin1);
  334.             if    (temp2!=(Fwrite(outhandle,temp2,begin1)))
  335.                 return FALSE;
  336.             Fclose(outhandle);
  337.             fseekptr    +=    temp2;
  338.  
  339.             outhandle    =    Fopen(filename,2);
  340.             if    (outhandle<0)    return    FALSE;
  341.             temp2=(long)strlen(begin2);
  342.             Fseek(fseekptr,outhandle,0);
  343.             Fwrite(outhandle,temp2,begin2);
  344.             Fclose(outhandle);
  345.             fseekptr    +=    temp2;
  346.             
  347.             outhandle    =    Fopen(filename,2);
  348.             if    (outhandle<0)    return    FALSE;
  349.             temp2=(long)strlen(begin3);
  350.             Fseek(fseekptr,outhandle,0);
  351.             Fwrite(outhandle,temp2,begin3);
  352.             Fclose(outhandle);
  353.             fseekptr    +=    temp2;
  354.  
  355.             outhandle    =    Fopen(filename,2);
  356.             if    (outhandle<0)    return    FALSE;
  357.             temp2=(long)strlen(begin4);
  358.             Fseek(fseekptr,outhandle,0);
  359.             Fwrite(outhandle,temp2,begin4);            
  360.             Fclose(outhandle);
  361.             fseekptr    +=    temp2;
  362.             
  363.             j=0;
  364.             for(i=0;i<size;i++){
  365.  
  366.                 /* Every 18 entries, skip to a new line...    */            
  367.  
  368.                 if    ((i%18)==0){
  369.                     if(i){
  370.  
  371.                         outhandle    =    Fopen(filename,2);
  372.                         if    (outhandle<0)    return    FALSE;
  373.                         temp2=(long)strlen(begin1);
  374.                         Fseek(fseekptr,outhandle,0);
  375.                         Fwrite(outhandle,temp2,begin1);
  376.                         Fclose(outhandle);
  377.                         fseekptr    +=    temp2;
  378.                     
  379.                         stopme();
  380.                     }
  381.                     
  382.                     switch(current_type){
  383.                         case    0:{
  384.                             strcpy(begin1,"\n\t");
  385.                             uc2str(in,begin1);
  386.                             break;
  387.                         }
  388.                         case    1:{
  389.                             strcpy(begin1,"\n\tdc.b   ");
  390.                             uc2str(in,begin1);
  391.                             break;
  392.                         }
  393.                         case    2:{
  394.                             strcpy(begin1,"\n\t");
  395.                             uc2str(in,begin1);
  396.                             break;
  397.                         }
  398.                     }
  399.  
  400.                         stopme();
  401.                 }
  402.                 else{    
  403.                             uc2str(in,begin1);
  404.                 }
  405.                 
  406.                 if    (i<size-1){
  407.                     switch(current_type){
  408.                         case    0:{
  409.                             strcat(begin1,",");
  410.                             break;
  411.                         }
  412.                         default:{
  413.                             if (i%18!=17)
  414.                                 strcat(begin1,",");
  415.                             break;
  416.                         }
  417.                     }
  418.                 }
  419.                 ++in;
  420.             }
  421.             /*    End declaration    */
  422.  
  423.             outhandle    =    Fopen(filename,2);
  424.             if    (outhandle<0)    return    FALSE;
  425.             temp2=(long)strlen(begin1);
  426.             Fseek(fseekptr,outhandle,0);
  427.             Fwrite(outhandle,temp2,begin1);
  428.             Fclose(outhandle);
  429.             fseekptr    +=    temp2;
  430.             
  431.             if    (current_type==0){
  432.                 strcpy(begin1,"\n};");
  433.  
  434.                 outhandle    =    Fopen(filename,2);
  435.                 if    (outhandle<0)    return    FALSE;
  436.                 temp2=(long)strlen(begin1);
  437.                 Fseek(fseekptr,outhandle,0);
  438.                 Fwrite(outhandle,temp2,begin1);
  439.                 Fclose(outhandle);
  440.                 fseekptr    +=    temp2;
  441.             }
  442.             return    TRUE;
  443.     }
  444.     else    return FALSE;        
  445. }
  446.  
  447.  
  448.  
  449. program()
  450. {
  451.         int    button;
  452.         static unsigned char    drive;
  453.         static char    path[128],name[14];
  454.         char    fullname[144];
  455.         long    size;
  456.         newdta    *dta_ptr;
  457.  
  458. /*    code for program's "guts" goes here... this is only called if
  459.         we're an .ACC or .PRG.  A .WNX has to call this itself.            */
  460.  
  461.         if    (!path[0]){
  462.             /* path has not been set before... */
  463.             
  464.             strcpy(path,"A:\\");
  465.             drive    =    Dgetdrv();
  466.             path[0]+=drive;
  467.             Dgetpath(&path[3],drive+1);
  468.             strcat(path,"\\*.*");
  469.             }
  470.  
  471.         button    =    TRUE;
  472.  
  473.         /* loops until the user doesn't pick a file    */
  474.         while(button){
  475.  
  476.             /* pop goes the fsel cuz the fsel goes pop!    */
  477.             fsel_input(path,name,&button);
  478.             
  479.             if    (button){
  480.                 fix_path_name(path,name,fullname);
  481.                 dta_ptr=(newdta *)Fgetdta();
  482.                 
  483.                 if (!Fsfirst(fullname,3)){
  484.                     size    =    *(dta_ptr->dta_size);
  485.                     
  486.                     xparmblk.WNX_flags=XES_LINK|XES_TIMER;            
  487.  
  488.                     convert2C(fullname,name,size);
  489.  
  490.                     xparmblk.WNX_flags=XES_BUTTON;            
  491.  
  492.                     /* If not a program, don't keep looping like this */
  493.                     if    (_app!=1)
  494.                         button = FALSE;
  495.                 }
  496.             }
  497.         }        
  498. }
  499.  
  500. /****************************************************************/
  501. /*        Accessory Init. Until First Event_Multi        */
  502. /****************************************************************/
  503. main()
  504. {
  505.     switch(_app)
  506.     {
  507.         case    -1:
  508.         {
  509.             /*    WNX    */
  510.             strcpy(xparmblk.WNX_idname,"File Converter");
  511.             xes_init(&xparmblk);
  512.  
  513.             /*    A .WNX doesn't have the variable __c, which is
  514.                     its AES parameter block, fixed up during an
  515.                     appl_init, so I have to do it myself.    */
  516.             
  517.             _c.cb_pcontrol=control;
  518.             _c.cb_pglobal=global;
  519.             _c.cb_pintin=int_in;
  520.             _c.cb_pintout=int_out;
  521.             _c.cb_padrin=addr_in;
  522.             _c.cb_padrout=addr_out;
  523.             
  524.             _ad_c=&_c;
  525.  
  526.             xes_genv(&xparmblk);
  527.             xes_pwindow(&xparmblk);
  528.  
  529.             xes_rsrcinit(-1,2,CONVERT,&xparmblk);
  530.             treeptr=*(OBJECT **)&xparmblk.WNX_out[1];
  531.             treeptr[_C].ob_state = SELECTED;
  532.         
  533.             phys_handle=xparmblk.WNX_grafhandle;
  534.             
  535.             xparmblk.WNX_flags=XES_BUTTON;            /* button events only */
  536.             xparmblk.WNX_broutine=wnx_button;
  537.             
  538.             xes_submit(&xparmblk);
  539.             break;
  540.         }
  541.  
  542. #ifdef LASERC
  543.         default:
  544.         {
  545.             _app=1;
  546.             prg_acc_startup();
  547.             program();
  548.         }    
  549. #else
  550.         case    1:
  551.         {
  552.         /*    PROGRAM    */
  553.             prg_acc_startup();
  554.             program();
  555.             break;
  556.         }
  557.         case    0:
  558.         {
  559.         /* ACCESSORY */
  560.             prg_acc_startup();
  561.             menu_id=menu_register(gl_apid,ACCNAME);
  562.             multi();
  563.             break;
  564.         }
  565. #endif    
  566.      }
  567. }
  568.