Update RingRayLib - raylib.c - Add Function : const char *TextToPascal(const char *text)
@@ -4540,6 +4540,20 @@ RING_FUNC(ring_TextToLower)
RING_API_RETSTRING(TextToLower(RING_API_GETSTRING(1)));
}
+
+RING_FUNC(ring_TextToPascal)
+{
+ if ( RING_API_PARACOUNT != 1 ) {
+ RING_API_ERROR(RING_API_MISS1PARA);
+ return ;
+ }
+ if ( ! RING_API_ISSTRING(1) ) {
+ RING_API_ERROR(RING_API_BADPARATYPE);
+ return ;
+ }
+ RING_API_RETSTRING(TextToPascal(RING_API_GETSTRING(1)));
+}
+
RING_API void ringlib_init(RingState *pRingState)
{
ring_vm_funcregister("initwindow",ring_InitWindow);
@@ -4800,4 +4814,5 @@ RING_API void ringlib_init(RingState *pRingState)
ring_vm_funcregister("textfindindex",ring_TextFindIndex);
ring_vm_funcregister("texttoupper",ring_TextToUpper);
ring_vm_funcregister("texttolower",ring_TextToLower);
+ ring_vm_funcregister("texttopascal",ring_TextToPascal);
}
