"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "fortran.c" between
Ygl-4.2f.tar.gz and Ygl-4.2g.tar.gz

About: Ygl emulates SGI’s GL routines under X11.

fortran.c  (Ygl-4.2f):fortran.c  (Ygl-4.2g)
/* /*
* Ygl: Run GL programs with standard X11 and/or OpenGL routines. * Ygl: Run GL programs with standard X11 and/or OpenGL routines.
* (C) Fred Hucht 1993-2006 * (C) Fred Hucht 1993-2009
* EMail: fred<at>thp.Uni-Duisburg.de * EMail: fred<at>thp.Uni-DuE.de
*/ */
static const char vcid[] = "$Id: fortran.c,v 4.2 2007-05-08 13:23:57+02 fred Exp $"; static const char vcid[] = "$Id: fortran.c,v 4.3 2009-09-18 12:00:54+02 fred Exp $";
#include "header.h" /* for COVERSLEEP & string.h */ #include "header.h" /* for COVERSLEEP & string.h */
#ifndef YGL_PRE #ifndef YGL_PRE
# define YGL_PRE(x) x # define YGL_PRE(x) x
#endif #endif
/* Fortran types */ /* Fortran types */
#define REAL Float32 #define REAL Float32
#define REAL8 Float64 #define REAL8 Float64
skipping to change at line 191 skipping to change at line 191
void YGL_PRE(pushna_)(INT4*x1) { pushname(*x1); } void YGL_PRE(pushna_)(INT4*x1) { pushname(*x1); }
void YGL_PRE(popnam_)(void) { popname(); } void YGL_PRE(popnam_)(void) { popname(); }
#endif /* OGL */ #endif /* OGL */
/********************* misc.c */ /********************* misc.c */
void YGL_PRE(single_)(void) { singlebuffer(); } void YGL_PRE(single_)(void) { singlebuffer(); }
void YGL_PRE(doublebuffer_)(void) { doublebuffer(); } /* > 6 */ void YGL_PRE(doublebuffer_)(void) { doublebuffer(); } /* > 6 */
void YGL_PRE(double_)(void) { doublebuffer(); } void YGL_PRE(double_)(void) { doublebuffer(); }
void YGL_PRE(swapbu_)(void) { swapbuffers(); } void YGL_PRE(swapbu_)(void) { swapbuffers(); }
void YGL_PRE(frontb_)(LOGICAL*x1) { frontbuffer(*x1); } void YGL_PRE(frontb_)(LOGICAL*x1) { frontbuffer(*x1); }
void YGL_PRE(backbu_)(LOGICAL*x1) { backbuffer (*x1); } void YGL_PRE(backbu_)(LOGICAL*x1) { backbuffer (*x1); }
void YGL_PRE(gflush_)(void) { gflush(); } void YGL_PRE(gflush_)(void) { gflush(); }
void YGL_PRE(gsync_) (void) { gsync(); } void YGL_PRE(gsync_) (void) { gsync(); }
INT4 YGL_PRE(getxdpy_)(void) { return (INT4)getXdpy(); } /* > 6 */ Display*
/**/ YGL_PRE(getxdpy_)(void) { return getXdpy(); } /* > 6 */
INT4 YGL_PRE(getxwid_)(void) { return (INT4)getXwid(); } /* > 6 */ INT4 YGL_PRE(getxwid_)(void) { return (INT4)getXwid(); } /* > 6 */
#ifdef X11 #ifdef X11
INT4 YGL_PRE(getxdid_)(void) { return (INT4)getXdid(); } /* > 6 */ INT4 YGL_PRE(getxdid_)(void) { return (INT4)getXdid(); } /* > 6 */
INT4 YGL_PRE(getxgc_) (void) { return (INT4)getXgc (); } GC YGL_PRE(getxgc_) (void) { return getXgc (); }
#endif #endif
void YGL_PRE(wintit_)(CHAR*x1, INT4*len) { wintitle(apnd_0(x1,len));} void YGL_PRE(wintit_)(CHAR*x1, INT4*len) { wintitle(apnd_0(x1,len));}
void YGL_PRE(winset_)(INT4*x1) { winset(*x1);} void YGL_PRE(winset_)(INT4*x1) { winset(*x1);}
INT4 YGL_PRE(winget_)(void) { return winget();} INT4 YGL_PRE(winget_)(void) { return winget();}
INT4 YGL_PRE(getpla_)(void) { return getplanes();} INT4 YGL_PRE(getpla_)(void) { return getplanes();}
INT4 YGL_PRE(getval_)(INT4*x1) { return getvaluator(*x1);} INT4 YGL_PRE(getval_)(INT4*x1) { return getvaluator(*x1);}
INT4 YGL_PRE(getbut_)(INT4*x1) { return getbutton(*x1);} INT4 YGL_PRE(getbut_)(INT4*x1) { return getbutton(*x1);}
INT4 YGL_PRE(gversi_)(CHAR*x1, INT4*len) { INT4 r = gversion(x1);if(len) *len = strlen(x1);return r;} INT4 YGL_PRE(gversi_)(CHAR*x1, INT4*len) { INT4 r = gversion(x1);if(len) *len = strlen(x1);return r;}
skipping to change at line 241 skipping to change at line 241
void YGL_PRE(ringbe_)(void) { ringbell();} void YGL_PRE(ringbe_)(void) { ringbell();}
INT4 YGL_PRE(getgde_)(INT4*x1) { return getgdesc(*x1);} INT4 YGL_PRE(getgde_)(INT4*x1) { return getgdesc(*x1);}
void YGL_PRE(foregr_)(void) { } void YGL_PRE(foregr_)(void) { }
void YGL_PRE(logico_)(INT4*x1) { logicop(*x1);} void YGL_PRE(logico_)(INT4*x1) { logicop(*x1);}
void YGL_PRE(getmat_)(Matrix x1) { getmatrix(x1);} void YGL_PRE(getmat_)(Matrix x1) { getmatrix(x1);}
/* for fsscale et al. */
void YGL_PRE(pntsiz_)(INT4*x1) { pntsize(*x1); }
/* pntsizef not implemented */
/********************* font.c */ /********************* font.c */
void YGL_PRE(loadxf_)(INT4*x1, CHAR*x2, INT4*len) { loadXfont(*x1, apnd_0(x2,len )); } void YGL_PRE(loadxf_)(INT4*x1, CHAR*x2, INT4*len) { loadXfont(*x1, apnd_0(x2,len )); }
void YGL_PRE(font_) (INT4*x1) { font(*x1);} void YGL_PRE(font_) (INT4*x1) { font(*x1);}
INT4 YGL_PRE(getfon_)(void) { return getfont();} INT4 YGL_PRE(getfon_)(void) { return getfont();}
void YGL_PRE(getfontencoding_)(CHAR*x1, INT4*len) { getfontencoding(x1);if(len) *len = strlen(x1);} /* > 6 */ void YGL_PRE(getfontencoding_)(CHAR*x1, INT4*len) { getfontencoding(x1);if(len) *len = strlen(x1);} /* > 6 */
INT4 YGL_PRE(gethei_)(void) { return getheight();} INT4 YGL_PRE(gethei_)(void) { return getheight();}
INT4 YGL_PRE(getdes_)(void) { return getdescender();} INT4 YGL_PRE(getdes_)(void) { return getdescender();}
INT4 YGL_PRE(strwid_)(CHAR*x1, INT4*len) { return strwidth(apnd_0(x1,len));} INT4 YGL_PRE(strwid_)(CHAR*x1, INT4*len) { return strwidth(apnd_0(x1,len));}
void YGL_PRE(charst_)(CHAR*x1, INT4*len) { charstr(apnd_0(x1,len));} void YGL_PRE(charst_)(CHAR*x1, INT4*len) { charstr(apnd_0(x1,len));}
 End of changes. 6 change blocks. 
6 lines changed or deleted 10 lines changed or added

Home  |  About  |  All  |  Newest  |  Fossies Dox  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTPS